mirror of
https://github.com/1dot13/source.git
synced 2026-07-22 13:40:22 +02:00
Overhaul
ffc70e9723
Made direction variables more consistent as unsigned chars. Several function prototypes updated for this. Many memory leaks plugged: External options, video overlays, laptop file lists, tactical message queue, strategic pathing, autobandage, merc hiring, detailed placements, crate in Drassen, tactical placement New functions and attributes for soldiers in LUA (still for debugging at best): Soldier.APs (current APs), Soldier.changestance (changes stance, uses game heights) File catalog ignores .SVN directories (game load speedup) Fix CTD in mouse regions JA2 window now refuses to move to negative coords Checks to prevent DirectX-related infinite loops due to minimizing and task switching Invading enemies should now appear on the borders even when reinforcements disabled in .ini Suppression should no longer work on mercs in medium water Infant/Young creatures use restored spit instead of Molotov Creatures begin with their 'guns' (spit) 'locked and loaded' (cartridge in chamber) Further fix to AXP and AlaarDB's weapon ready check: Now 'firing' is always counted as 'ready'. Prevent mercs from falling and flying back through obstacles Check whether battle group is even set before testing its location for battle setup Burst spread locations now limited to 6, the limit within the soldier struct Extra burst spread locations zeroed out so that they aren't used unless necessary Spread code now only shoots at locations in the spread, and will shoot at all 6 Only mercs in the sector where autobandage happens will be made to stand up after it's done Throwing a grenade at the tail of the plane in Drassen should not result in a CTD Reset attack busy count when loading a new sector git-svn-id: https://ja2svn.mooo.com/source/ja2/trunk/GameSource/ja2_v1.13/Build@1347 3b4a5df2-a311-0410-b5c6-a8a6f20db521
501 lines
14 KiB
C++
501 lines
14 KiB
C++
#ifdef PRECOMPILEDHEADERS
|
|
#include "Tactical All.h"
|
|
#include "PreBattle Interface.h"
|
|
#include "Intro.h"
|
|
#else
|
|
#include "Soldier Control.h"
|
|
#include "Overhead.h"
|
|
#include "Boxing.h"
|
|
#include "Render Fun.h"
|
|
#include "Random.h"
|
|
#include "Worldman.h"
|
|
#include "Soldier Profile.h"
|
|
#include "NPC.h"
|
|
#include "Opplist.h"
|
|
#include "ai.h"
|
|
#include "Dialogue Control.h"
|
|
#include "Handle UI.h"
|
|
#include "Points.h"
|
|
#include "interface.h"
|
|
#include "end game.h"
|
|
#include "Intro.h"
|
|
#include "Exit Grids.h"
|
|
#include "strategicmap.h"
|
|
#include "Quests.h"
|
|
#include "SaveLoadMap.h"
|
|
#include "Sound Control.h"
|
|
#include "renderworld.h"
|
|
#include "Isometric Utils.h"
|
|
#include "Music Control.h"
|
|
#include "Soldier macros.h"
|
|
#include "qarray.h"
|
|
#include "los.h"
|
|
#include "Strategic AI.h"
|
|
#include "Squads.h"
|
|
#include "PreBattle Interface.h"
|
|
#include "Strategic Movement.h"
|
|
#include "strategic.h"
|
|
#include "Morale.h"
|
|
#include "Queen Command.h"
|
|
#include "Strategic Town Loyalty.h"
|
|
#include "Player Command.h"
|
|
#include "Campaign Types.h"
|
|
#include "Tactical Save.h"
|
|
#include "screenids.h"
|
|
#endif
|
|
|
|
INT16 sStatueGridNos[] = { 13829, 13830, 13669, 13670 };
|
|
|
|
SOLDIERTYPE *gpKillerSoldier = NULL;
|
|
INT16 gsGridNo;
|
|
INT8 gbLevel;
|
|
|
|
|
|
// This function checks if our statue exists in the current sector at given gridno
|
|
BOOLEAN DoesO3SectorStatueExistHere( INT16 sGridNo )
|
|
{
|
|
INT32 cnt;
|
|
EXITGRID ExitGrid;
|
|
|
|
// First check current sector......
|
|
if ( gWorldSectorX == 3 && gWorldSectorY == MAP_ROW_O && gbWorldSectorZ == 0 )
|
|
{
|
|
// Check for exitence of and exit grid here...
|
|
// ( if it doesn't then the change has already taken place )
|
|
if ( !GetExitGrid( 13669, &ExitGrid ) )
|
|
{
|
|
for ( cnt = 0; cnt < 4; cnt++ )
|
|
{
|
|
if ( sStatueGridNos[ cnt ] == sGridNo )
|
|
{
|
|
return( TRUE );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return( FALSE );
|
|
}
|
|
|
|
// This function changes the graphic of the statue and adds the exit grid...
|
|
void ChangeO3SectorStatue( BOOLEAN fFromExplosion )
|
|
{
|
|
EXITGRID ExitGrid;
|
|
UINT16 usTileIndex;
|
|
INT16 sX, sY;
|
|
|
|
// Remove old graphic
|
|
ApplyMapChangesToMapTempFile( TRUE );
|
|
// Remove it!
|
|
// Get index for it...
|
|
GetTileIndexFromTypeSubIndex( EIGHTOSTRUCT, (INT8)( 5 ), &usTileIndex );
|
|
RemoveStruct( 13830, usTileIndex );
|
|
|
|
// Add new one...
|
|
if ( fFromExplosion )
|
|
{
|
|
// Use damaged peice
|
|
GetTileIndexFromTypeSubIndex( EIGHTOSTRUCT, (INT8)( 7 ), &usTileIndex );
|
|
}
|
|
else
|
|
{
|
|
GetTileIndexFromTypeSubIndex( EIGHTOSTRUCT, (INT8)( 8 ), &usTileIndex );
|
|
// Play sound...
|
|
|
|
PlayJA2Sample( OPEN_STATUE, RATE_11025, HIGHVOLUME, 1, MIDDLEPAN );
|
|
|
|
}
|
|
AddStructToHead( 13830, usTileIndex );
|
|
|
|
// Add exit grid
|
|
ExitGrid.ubGotoSectorX = 3;
|
|
ExitGrid.ubGotoSectorY = MAP_ROW_O;
|
|
ExitGrid.ubGotoSectorZ = 1;
|
|
ExitGrid.usGridNo = 13037;
|
|
|
|
AddExitGridToWorld( 13669, &ExitGrid );
|
|
gpWorldLevelData[ 13669 ].uiFlags |= MAPELEMENT_REVEALED;
|
|
|
|
// Turn off permenant changes....
|
|
ApplyMapChangesToMapTempFile( FALSE );
|
|
|
|
// Re-render the world!
|
|
gTacticalStatus.uiFlags |= NOHIDE_REDUNDENCY;
|
|
// FOR THE NEXT RENDER LOOP, RE-EVALUATE REDUNDENT TILES
|
|
InvalidateWorldRedundency( );
|
|
SetRenderFlags(RENDER_FLAG_FULL);
|
|
|
|
// Redo movement costs....
|
|
ConvertGridNoToXY( 13830, &sX, &sY );
|
|
|
|
RecompileLocalMovementCostsFromRadius( 13830, 5 );
|
|
|
|
}
|
|
|
|
void DeidrannaTimerCallback( void )
|
|
{
|
|
HandleDeidrannaDeath( gpKillerSoldier, gsGridNo, gbLevel );
|
|
}
|
|
|
|
|
|
void BeginHandleDeidrannaDeath( SOLDIERTYPE *pKillerSoldier, INT16 sGridNo, INT8 bLevel )
|
|
{
|
|
gpKillerSoldier = pKillerSoldier;
|
|
gsGridNo = sGridNo;
|
|
gbLevel = bLevel;
|
|
|
|
// Lock the UI.....
|
|
gTacticalStatus.uiFlags |= ENGAGED_IN_CONV;
|
|
// Increment refrence count...
|
|
giNPCReferenceCount = 1;
|
|
|
|
gTacticalStatus.uiFlags |= IN_DEIDRANNA_ENDGAME;
|
|
|
|
SetCustomizableTimerCallbackAndDelay( 2000, DeidrannaTimerCallback, FALSE );
|
|
|
|
}
|
|
|
|
void HandleDeidrannaDeath( SOLDIERTYPE *pKillerSoldier, INT16 sGridNo, INT8 bLevel )
|
|
{
|
|
SOLDIERTYPE *pTeamSoldier;
|
|
INT32 cnt;
|
|
INT16 sDistVisible = FALSE;
|
|
UINT8 ubKillerSoldierID = NOBODY;
|
|
|
|
// Start victory music here...
|
|
SetMusicMode( MUSIC_TACTICAL_VICTORY );
|
|
|
|
|
|
if ( pKillerSoldier )
|
|
{
|
|
TacticalCharacterDialogue( pKillerSoldier, QUOTE_KILLING_DEIDRANNA );
|
|
ubKillerSoldierID = pKillerSoldier->ubID;
|
|
}
|
|
|
|
// STEP 1 ) START ALL QUOTES GOING!
|
|
// OK - loop through all witnesses and see if they want to say something abou this...
|
|
cnt = gTacticalStatus.Team[ gbPlayerNum ].bFirstID;
|
|
|
|
// run through list
|
|
for ( pTeamSoldier = MercPtrs[ cnt ]; cnt <= gTacticalStatus.Team[ gbPlayerNum ].bLastID; cnt++,pTeamSoldier++ )
|
|
{
|
|
if ( cnt != ubKillerSoldierID )
|
|
{
|
|
if ( OK_INSECTOR_MERC( pTeamSoldier ) && !( pTeamSoldier->uiStatusFlags & SOLDIER_GASSED ) && !AM_AN_EPC( pTeamSoldier ) )
|
|
{
|
|
if ( QuoteExp_WitnessDeidrannaDeath[ pTeamSoldier->ubProfile ] )
|
|
{
|
|
if ( SoldierTo3DLocationLineOfSightTest( pTeamSoldier, sGridNo, bLevel, 3, TRUE, CALC_FROM_ALL_DIRS ) )
|
|
{
|
|
TacticalCharacterDialogue( pTeamSoldier, QUOTE_KILLING_DEIDRANNA );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// Set fact that she is dead!
|
|
SetFactTrue( FACT_QUEEN_DEAD );
|
|
|
|
ExecuteStrategicAIAction( STRATEGIC_AI_ACTION_QUEEN_DEAD, 0, 0 );
|
|
|
|
// AFTER LAST ONE IS DONE - PUT SPECIAL EVENT ON QUEUE TO BEGIN FADE< ETC
|
|
SpecialCharacterDialogueEvent( DIALOGUE_SPECIAL_EVENT_MULTIPURPOSE, MULTIPURPOSE_SPECIAL_EVENT_DONE_KILLING_DEIDRANNA, 0,0,0,0 );
|
|
|
|
}
|
|
|
|
void DoneFadeInKilledQueen( void )
|
|
{
|
|
SOLDIERTYPE *pNPCSoldier;
|
|
|
|
// Locate gridno.....
|
|
|
|
// Run NPC script
|
|
pNPCSoldier = FindSoldierByProfileID( 136, FALSE );
|
|
if ( !pNPCSoldier )
|
|
{
|
|
return;
|
|
}
|
|
|
|
// Converse!
|
|
//InitiateConversation( pNPCSoldier, pSoldier, 0, 1 );
|
|
TriggerNPCRecordImmediately( pNPCSoldier->ubProfile, 6 );
|
|
|
|
}
|
|
|
|
void DoneFadeOutKilledQueen( void )
|
|
{
|
|
INT32 cnt;
|
|
SOLDIERTYPE *pSoldier, *pTeamSoldier;
|
|
|
|
// For one, loop through our current squad and move them over
|
|
cnt = gTacticalStatus.Team[ gbPlayerNum ].bFirstID;
|
|
|
|
// look for all mercs on the same team,
|
|
for ( pSoldier = MercPtrs[ cnt ]; cnt <= gTacticalStatus.Team[ gbPlayerNum ].bLastID; cnt++,pSoldier++)
|
|
{
|
|
// Are we in this sector, On the current squad?
|
|
if ( pSoldier->bActive && pSoldier->bLife >= OKLIFE && pSoldier->bInSector && pSoldier->bAssignment == CurrentSquad( ) )
|
|
{
|
|
gfTacticalTraversal = TRUE;
|
|
SetGroupSectorValue( 3, MAP_ROW_P, 0, pSoldier->ubGroupID );
|
|
|
|
// Set next sectore
|
|
pSoldier->sSectorX = 3;
|
|
pSoldier->sSectorY = MAP_ROW_P;
|
|
pSoldier->bSectorZ = 0;
|
|
|
|
// Set gridno
|
|
pSoldier->ubStrategicInsertionCode = INSERTION_CODE_GRIDNO;
|
|
pSoldier->usStrategicInsertionData = 5687;
|
|
// Set direction to face....
|
|
pSoldier->ubInsertionDirection = 100 + NORTHWEST;
|
|
}
|
|
}
|
|
|
|
// Kill all enemies in world.....
|
|
cnt = gTacticalStatus.Team[ ENEMY_TEAM ].bFirstID;
|
|
|
|
// look for all mercs on the same team,
|
|
for ( pTeamSoldier = MercPtrs[ cnt ]; cnt <= gTacticalStatus.Team[ ENEMY_TEAM ].bLastID; cnt++,pTeamSoldier++)
|
|
{
|
|
// Are we active and in sector.....
|
|
if ( pTeamSoldier->bActive )
|
|
{
|
|
// For sure for flag thet they are dead is not set
|
|
// Check for any more badguys
|
|
// ON THE STRAGETY LAYER KILL BAD GUYS!
|
|
if ( !pTeamSoldier->bNeutral && (pTeamSoldier->bSide != gbPlayerNum ) )
|
|
{
|
|
ProcessQueenCmdImplicationsOfDeath( pTeamSoldier );
|
|
}
|
|
}
|
|
}
|
|
|
|
// 'End' battle
|
|
ExitCombatMode();
|
|
gTacticalStatus.fLastBattleWon = TRUE;
|
|
// Set enemy presence to false
|
|
gTacticalStatus.fEnemyInSector = FALSE;
|
|
|
|
SetMusicMode( MUSIC_TACTICAL_VICTORY );
|
|
|
|
HandleMoraleEvent( NULL, MORALE_QUEEN_BATTLE_WON, 3, MAP_ROW_P, 0 );
|
|
HandleGlobalLoyaltyEvent( GLOBAL_LOYALTY_QUEEN_BATTLE_WON, 3, MAP_ROW_P, 0 );
|
|
|
|
SetMusicMode( MUSIC_TACTICAL_VICTORY );
|
|
|
|
SetThisSectorAsPlayerControlled( gWorldSectorX, gWorldSectorY, gbWorldSectorZ, TRUE );
|
|
|
|
// ATE: Force change of level set z to 1
|
|
gbWorldSectorZ = 1;
|
|
|
|
// Clear out dudes.......
|
|
SectorInfo[ SEC_P3 ].ubNumAdmins = 0;
|
|
SectorInfo[ SEC_P3 ].ubNumTroops = 0;
|
|
SectorInfo[ SEC_P3 ].ubNumElites = 0;
|
|
SectorInfo[ SEC_P3 ].ubAdminsInBattle = 0;
|
|
SectorInfo[ SEC_P3 ].ubTroopsInBattle = 0;
|
|
SectorInfo[ SEC_P3 ].ubElitesInBattle = 0;
|
|
|
|
// ATE: GEt rid of elliot in P3...
|
|
gMercProfiles[ ELLIOT ].sSectorX = 1;
|
|
|
|
ChangeNpcToDifferentSector( DEREK, 3, MAP_ROW_P, 0 );
|
|
ChangeNpcToDifferentSector( OLIVER, 3, MAP_ROW_P, 0 );
|
|
|
|
|
|
// OK, insertion data found, enter sector!
|
|
SetCurrentWorldSector( 3, MAP_ROW_P, 0 );
|
|
|
|
// OK, once down here, adjust the above map with crate info....
|
|
gfTacticalTraversal = FALSE;
|
|
gpTacticalTraversalGroup = NULL;
|
|
gpTacticalTraversalChosenSoldier = NULL;
|
|
|
|
gFadeInDoneCallback = DoneFadeInKilledQueen;
|
|
|
|
FadeInGameScreen( );
|
|
}
|
|
|
|
// Called after all player quotes are done....
|
|
void HandleDoneLastKilledQueenQuote( )
|
|
{
|
|
gFadeOutDoneCallback = DoneFadeOutKilledQueen;
|
|
|
|
FadeOutGameScreen( );
|
|
}
|
|
|
|
|
|
void EndQueenDeathEndgameBeginEndCimenatic( )
|
|
{
|
|
INT32 cnt;
|
|
SOLDIERTYPE *pSoldier;
|
|
|
|
// Start end cimimatic....
|
|
gTacticalStatus.uiFlags |= IN_ENDGAME_SEQUENCE;
|
|
|
|
// first thing is to loop through team and say end quote...
|
|
cnt = gTacticalStatus.Team[ gbPlayerNum ].bFirstID;
|
|
|
|
// look for all mercs on the same team,
|
|
for ( pSoldier = MercPtrs[ cnt ]; cnt <= gTacticalStatus.Team[ gbPlayerNum ].bLastID; cnt++,pSoldier++)
|
|
{
|
|
// Are we in this sector, On the current squad?
|
|
if ( pSoldier->bActive && pSoldier->bLife >= OKLIFE && !AM_AN_EPC( pSoldier ) )
|
|
{
|
|
TacticalCharacterDialogue( pSoldier, QUOTE_END_GAME_COMMENT );
|
|
}
|
|
}
|
|
|
|
// Add queue event to proceed w/ smacker cimimatic
|
|
SpecialCharacterDialogueEvent( DIALOGUE_SPECIAL_EVENT_MULTIPURPOSE, MULTIPURPOSE_SPECIAL_EVENT_TEAM_MEMBERS_DONE_TALKING, 0,0,0,0 );
|
|
|
|
}
|
|
|
|
void EndQueenDeathEndgame( )
|
|
{
|
|
// Unset flags...
|
|
gTacticalStatus.uiFlags &= (~ENGAGED_IN_CONV );
|
|
// Increment refrence count...
|
|
giNPCReferenceCount = 0;
|
|
|
|
gTacticalStatus.uiFlags &= (~IN_DEIDRANNA_ENDGAME);
|
|
}
|
|
|
|
|
|
void DoneFadeOutEndCinematic( void )
|
|
{
|
|
// DAVE PUT SMAKER STUFF HERE!!!!!!!!!!!!
|
|
// :)
|
|
gTacticalStatus.uiFlags &= (~IN_ENDGAME_SEQUENCE);
|
|
|
|
|
|
// For now, just quit the freaken game...
|
|
// InternalLeaveTacticalScreen( MAINMENU_SCREEN );
|
|
|
|
InternalLeaveTacticalScreen( INTRO_SCREEN );
|
|
// guiCurrentScreen = INTRO_SCREEN;
|
|
|
|
|
|
SetIntroType( INTRO_ENDING );
|
|
}
|
|
|
|
// OK, end death UI - fade to smaker....
|
|
void HandleDoneLastEndGameQuote( )
|
|
{
|
|
EndQueenDeathEndgame( );
|
|
|
|
gFadeOutDoneCallback = DoneFadeOutEndCinematic;
|
|
|
|
FadeOutGameScreen( );
|
|
}
|
|
|
|
|
|
|
|
void QueenBitchTimerCallback( void )
|
|
{
|
|
HandleQueenBitchDeath( gpKillerSoldier, gsGridNo, gbLevel );
|
|
}
|
|
|
|
|
|
void BeginHandleQueenBitchDeath( SOLDIERTYPE *pKillerSoldier, INT16 sGridNo, INT8 bLevel )
|
|
{
|
|
SOLDIERTYPE *pTeamSoldier;
|
|
INT32 cnt;
|
|
|
|
|
|
gpKillerSoldier = pKillerSoldier;
|
|
gsGridNo = sGridNo;
|
|
gbLevel = bLevel;
|
|
|
|
// Lock the UI.....
|
|
gTacticalStatus.uiFlags |= ENGAGED_IN_CONV;
|
|
// Increment refrence count...
|
|
giNPCReferenceCount = 1;
|
|
|
|
// gTacticalStatus.uiFlags |= IN_DEIDRANNA_ENDGAME;
|
|
|
|
SetCustomizableTimerCallbackAndDelay( 3000, QueenBitchTimerCallback, FALSE );
|
|
|
|
|
|
// Kill all enemies in creature team.....
|
|
cnt = gTacticalStatus.Team[ CREATURE_TEAM ].bFirstID;
|
|
|
|
// look for all mercs on the same team,
|
|
for ( pTeamSoldier = MercPtrs[ cnt ]; cnt <= gTacticalStatus.Team[ CREATURE_TEAM ].bLastID; cnt++,pTeamSoldier++)
|
|
{
|
|
// Are we active and ALIVE and in sector.....
|
|
if ( pTeamSoldier->bActive && pTeamSoldier->bLife > 0 )
|
|
{
|
|
// For sure for flag thet they are dead is not set
|
|
// Check for any more badguys
|
|
// ON THE STRAGETY LAYER KILL BAD GUYS!
|
|
|
|
// HELLO! THESE ARE CREATURES! THEY CAN'T BE NEUTRAL!
|
|
//if ( !pTeamSoldier->bNeutral && (pTeamSoldier->bSide != gbPlayerNum ) )
|
|
{
|
|
// gTacticalStatus.ubAttackBusyCount++;
|
|
DebugAttackBusy( "Killing off a queen ally.\n");
|
|
EVENT_SoldierGotHit( pTeamSoldier, 0, 10000, 0, pTeamSoldier->ubDirection, 320, NOBODY , FIRE_WEAPON_NO_SPECIAL, pTeamSoldier->bAimShotLocation, 0, NOWHERE );
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
}
|
|
|
|
void HandleQueenBitchDeath( SOLDIERTYPE *pKillerSoldier, INT16 sGridNo, INT8 bLevel )
|
|
{
|
|
SOLDIERTYPE *pTeamSoldier;
|
|
INT32 cnt;
|
|
INT16 sDistVisible = FALSE;
|
|
UINT8 ubKillerSoldierID = NOBODY;
|
|
|
|
// Start victory music here...
|
|
SetMusicMode( MUSIC_TACTICAL_VICTORY );
|
|
|
|
if ( pKillerSoldier )
|
|
{
|
|
TacticalCharacterDialogue( pKillerSoldier, QUOTE_KILLING_QUEEN );
|
|
ubKillerSoldierID = pKillerSoldier->ubID;
|
|
}
|
|
|
|
// STEP 1 ) START ALL QUOTES GOING!
|
|
// OK - loop through all witnesses and see if they want to say something abou this...
|
|
cnt = gTacticalStatus.Team[ gbPlayerNum ].bFirstID;
|
|
|
|
// run through list
|
|
for ( pTeamSoldier = MercPtrs[ cnt ]; cnt <= gTacticalStatus.Team[ gbPlayerNum ].bLastID; cnt++,pTeamSoldier++ )
|
|
{
|
|
if ( cnt != ubKillerSoldierID )
|
|
{
|
|
if ( OK_INSECTOR_MERC( pTeamSoldier ) && !( pTeamSoldier->uiStatusFlags & SOLDIER_GASSED ) && !AM_AN_EPC( pTeamSoldier ) )
|
|
{
|
|
if ( QuoteExp_WitnessQueenBugDeath[ pTeamSoldier->ubProfile ] )
|
|
{
|
|
if ( SoldierTo3DLocationLineOfSightTest( pTeamSoldier, sGridNo, bLevel, 3, TRUE, CALC_FROM_ALL_DIRS ) )
|
|
{
|
|
TacticalCharacterDialogue( pTeamSoldier, QUOTE_KILLING_QUEEN );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// Set fact that she is dead!
|
|
if ( CheckFact( FACT_QUEEN_DEAD, 0 ) )
|
|
{
|
|
EndQueenDeathEndgameBeginEndCimenatic( );
|
|
}
|
|
else
|
|
{
|
|
// Unset flags...
|
|
gTacticalStatus.uiFlags &= (~ENGAGED_IN_CONV );
|
|
// Increment refrence count...
|
|
giNPCReferenceCount = 0;
|
|
}
|
|
}
|
|
|