void
resetEnergyBattle (void)
{
STARSHIP *StarShipPtr;
COUNT delta;
CONTEXT OldContext;
if (!(GLOBAL (CurrentActivity) & IN_BATTLE) ||
(inHQSpace ()))
return;
StarShipPtr = findPlayerShip (RPG_PLAYER_NUM);
if (StarShipPtr == NULL || StarShipPtr->RaceDescPtr == NULL)
return;
delta = StarShipPtr->RaceDescPtr->ship_info.max_energy -
StarShipPtr->RaceDescPtr->ship_info.energy_level;
OldContext = SetContext (StatusContext);
DeltaEnergy (StarShipPtr->hShip, delta);
SetContext (OldContext);
}
void
UninitShips (void)
{
COUNT crew_retrieved;
int i;
HELEMENT hElement, hNextElement;
STARSHIP *SPtr[NUM_PLAYERS];
StopSound ();
UninitSpace ();
for (i = 0; i < NUM_PLAYERS; ++i)
SPtr[i] = 0;
// Count the crew floating in space.
crew_retrieved = CountCrewElements();
for (hElement = GetHeadElement ();
hElement != 0; hElement = hNextElement)
{
ELEMENT *ElementPtr;
LockElement (hElement, &ElementPtr);
hNextElement = GetSuccElement (ElementPtr);
if ((ElementPtr->state_flags & PLAYER_SHIP)
|| ElementPtr->death_func == new_ship)
{
STARSHIP *StarShipPtr;
GetElementStarShip (ElementPtr, &StarShipPtr);
// There should only be one ship left in battle.
// He gets the crew still floating in space.
if (StarShipPtr->RaceDescPtr->ship_info.crew_level)
{
if (crew_retrieved >=
StarShipPtr->RaceDescPtr->ship_info.max_crew -
StarShipPtr->RaceDescPtr->ship_info.crew_level)
StarShipPtr->RaceDescPtr->ship_info.crew_level =
StarShipPtr->RaceDescPtr->ship_info.max_crew;
else
StarShipPtr->RaceDescPtr->ship_info.crew_level +=
crew_retrieved;
}
/* Record crew left after battle */
StarShipPtr->crew_level =
StarShipPtr->RaceDescPtr->ship_info.crew_level;
SPtr[StarShipPtr->playerNr] = StarShipPtr;
free_ship (StarShipPtr->RaceDescPtr, TRUE, TRUE);
StarShipPtr->RaceDescPtr = 0;
}
UnlockElement (hElement);
}
GLOBAL (CurrentActivity) &= ~IN_BATTLE;
if (LOBYTE (GLOBAL (CurrentActivity)) == IN_ENCOUNTER
&& !(GLOBAL (CurrentActivity) & CHECK_ABORT))
{
// Encounter battle in full game.
// Record the crew left in the last ship standing. The crew left
// is first recorded into STARSHIP.crew_level just a few lines
// above here.
for (i = NUM_PLAYERS - 1; i >= 0; --i)
{
if (SPtr[i] && !FleetIsInfinite (i))
UpdateShipFragCrew (SPtr[i]);
}
}
if (LOBYTE (GLOBAL (CurrentActivity)) != IN_ENCOUNTER)
{
// Remove any ships left from the race queue.
for (i = 0; i < NUM_PLAYERS; i++)
ReinitQueue (&race_q[i]);
if (inHQSpace ())
FreeHyperspace ();
}
}
SIZE
InitShips (void)
{
SIZE num_ships;
InitSpace ();
SetContext (StatusContext);
SetContext (SpaceContext);
InitDisplayList ();
InitGalaxy ();
if (inHQSpace ())
{
ReinitQueue (&race_q[0]);
ReinitQueue (&race_q[1]);
BuildSIS ();
LoadHyperspace ();
num_ships = 1;
}
else
{
COUNT i;
RECT r;
SetContextFGFrame (Screen);
r.corner.x = SAFE_X;
r.corner.y = SAFE_Y;
r.extent.width = SPACE_WIDTH;
r.extent.height = SPACE_HEIGHT;
SetContextClipRect (&r);
SetContextBackGroundColor (BLACK_COLOR);
{
CONTEXT OldContext;
OldContext = SetContext (ScreenContext);
SetContextBackGroundColor (BLACK_COLOR);
ClearDrawable ();
SetContext (OldContext);
}
if (LOBYTE (GLOBAL (CurrentActivity)) == IN_LAST_BATTLE)
free_gravity_well ();
else
{
#define NUM_ASTEROIDS 5
for (i = 0; i < NUM_ASTEROIDS; ++i)
spawn_asteroid (NULL);
#define NUM_PLANETS 1
for (i = 0; i < NUM_PLANETS; ++i)
spawn_planet ();
}
num_ships = NUM_SIDES;
}
// FlushInput ();
return (num_ships);
}
static DeviceStatus
InvokeDevice (BYTE which_device)
{
BYTE val;
switch (which_device)
{
case ROSY_SPHERE_DEVICE:
val = GET_GAME_STATE (ULTRON_CONDITION);
if (val)
{
SET_GAME_STATE (ULTRON_CONDITION, val + 1);
SET_GAME_STATE (ROSY_SPHERE_ON_SHIP, 0);
SET_GAME_STATE (DISCUSSED_ULTRON, 0);
SET_GAME_STATE (SUPOX_ULTRON_HELP, 0);
return DEVICE_SUCCESS;
}
break;
case ARTIFACT_2_DEVICE:
break;
case ARTIFACT_3_DEVICE:
break;
case SUN_EFFICIENCY_DEVICE:
if (LOBYTE (GLOBAL (CurrentActivity)) == IN_INTERPLANETARY
&& playerInPlanetOrbit ())
{
PlayMenuSound (MENU_SOUND_INVOKED);
SleepThreadUntil (FadeScreen (FadeAllToWhite, ONE_SECOND * 1)
+ (ONE_SECOND * 2));
if (CurStarDescPtr->Index != CHMMR_DEFINED
|| !matchWorld (pSolarSysState,
pSolarSysState->pOrbitalDesc,
1, MATCH_PLANET))
{
FadeScreen (FadeAllToColor, ONE_SECOND * 2);
}
else
{
SET_GAME_STATE (CHMMR_EMERGING, 1);
EncounterGroup = 0;
GLOBAL (CurrentActivity) |= START_ENCOUNTER;
PutGroupInfo (GROUPS_RANDOM, GROUP_SAVE_IP);
ReinitQueue (&GLOBAL (ip_group_q));
assert (CountLinks (&GLOBAL (npc_built_ship_q)) == 0);
CloneShipFragment (CHMMR_SHIP,
&GLOBAL (npc_built_ship_q), 0);
}
return DEVICE_SUCCESS_NO_SOUND;
}
break;
case UTWIG_BOMB_DEVICE:
SET_GAME_STATE (UTWIG_BOMB, 0);
GLOBAL (CurrentActivity) &= ~IN_BATTLE;
GLOBAL_SIS (CrewEnlisted) = (COUNT)~0;
return DEVICE_SUCCESS;
case ULTRON_0_DEVICE:
break;
case ULTRON_1_DEVICE:
break;
case ULTRON_2_DEVICE:
break;
case ULTRON_3_DEVICE:
break;
case MAIDENS_DEVICE:
break;
case TALKING_PET_DEVICE:
NextActivity |= CHECK_LOAD; /* fake a load game */
GLOBAL (CurrentActivity) |= START_ENCOUNTER;
SET_GAME_STATE (GLOBAL_FLAGS_AND_DATA, 0);
if (inHQSpace ())
{
if (GetHeadEncounter ())
{
SET_GAME_STATE (SHIP_TO_COMPEL, 1);
}
GLOBAL (CurrentActivity) &= ~IN_BATTLE;
SaveSisHyperState ();
}
else
{
EncounterGroup = 0;
if (GetHeadLink (&GLOBAL (ip_group_q)))
{
SET_GAME_STATE (SHIP_TO_COMPEL, 1);
PutGroupInfo (GROUPS_RANDOM, GROUP_SAVE_IP);
ReinitQueue (&GLOBAL (ip_group_q));
assert (CountLinks (&GLOBAL (npc_built_ship_q)) == 0);
}
if (CurStarDescPtr->Index == SAMATRA_DEFINED)
{
SET_GAME_STATE (READY_TO_CONFUSE_URQUAN, 1);
}
if (playerInPlanetOrbit ())
SaveSolarSysLocation ();
}
return DEVICE_SUCCESS;
case AQUA_HELIX_DEVICE:
val = GET_GAME_STATE (ULTRON_CONDITION);
if (val)
{
SET_GAME_STATE (ULTRON_CONDITION, val + 1);
SET_GAME_STATE (AQUA_HELIX_ON_SHIP, 0);
SET_GAME_STATE (DISCUSSED_ULTRON, 0);
SET_GAME_STATE (SUPOX_ULTRON_HELP, 0);
return DEVICE_SUCCESS;
}
break;
case CLEAR_SPINDLE_DEVICE:
val = GET_GAME_STATE (ULTRON_CONDITION);
if (val)
{
SET_GAME_STATE (ULTRON_CONDITION, val + 1);
SET_GAME_STATE (CLEAR_SPINDLE_ON_SHIP, 0);
SET_GAME_STATE (DISCUSSED_ULTRON, 0);
SET_GAME_STATE (SUPOX_ULTRON_HELP, 0);
return DEVICE_SUCCESS;
}
break;
case UMGAH_HYPERWAVE_DEVICE:
case BURVIX_HYPERWAVE_DEVICE:
if (UseCaster ())
return DEVICE_SUCCESS;
break;
case TAALO_PROTECTOR_DEVICE:
break;
case EGG_CASING0_DEVICE:
case EGG_CASING1_DEVICE:
case EGG_CASING2_DEVICE:
break;
case SYREEN_SHUTTLE_DEVICE:
break;
case VUX_BEAST_DEVICE:
break;
case DESTRUCT_CODE_DEVICE:
break;
case PORTAL_SPAWNER_DEVICE:
#define PORTAL_FUEL_COST (10 * FUEL_TANK_SCALE)
if (inHyperSpace ()
&& GLOBAL_SIS (FuelOnBoard) >= PORTAL_FUEL_COST)
{
/* No DeltaSISGauges because the flagship picture
* is currently obscured.
*/
if (!optInfiniteFuel)
GLOBAL_SIS (FuelOnBoard) -= PORTAL_FUEL_COST;
SET_GAME_STATE (PORTAL_COUNTER, 1);
return DEVICE_SUCCESS;
}
break;
case URQUAN_WARP_DEVICE:
break;
case LUNAR_BASE_DEVICE:
break;
}
return DEVICE_FAILURE;
}
// Returns TRUE if the broadcaster has been successfully activated,
// and FALSE otherwise.
static BOOLEAN
UseCaster (void)
{
if (inHQSpace ())
{
if (GET_GAME_STATE (ARILOU_SPACE_SIDE) <= 1)
{
SET_GAME_STATE (USED_BROADCASTER, 1);
return TRUE;
}
return FALSE;
}
if (LOBYTE (GLOBAL (CurrentActivity)) != IN_INTERPLANETARY
|| !playerInSolarSystem ())
return FALSE;
if (playerInPlanetOrbit ()
&& matchWorld (pSolarSysState, pSolarSysState->pOrbitalDesc,
1, MATCH_PLANET)
&& CurStarDescPtr->Index == CHMMR_DEFINED
&& !GET_GAME_STATE (CHMMR_UNLEASHED))
{
// In orbit around the Chenjesu/Mmrnmhrm home planet.
NextActivity |= CHECK_LOAD; /* fake a load game */
GLOBAL (CurrentActivity) |= START_ENCOUNTER;
EncounterGroup = 0;
PutGroupInfo (GROUPS_RANDOM, GROUP_SAVE_IP);
ReinitQueue (&GLOBAL (ip_group_q));
assert (CountLinks (&GLOBAL (npc_built_ship_q)) == 0);
SET_GAME_STATE (GLOBAL_FLAGS_AND_DATA, 1 << 7);
SaveSolarSysLocation ();
return TRUE;
}
{
BOOLEAN FoundIlwrath;
HIPGROUP hGroup;
FoundIlwrath = (CurStarDescPtr->Index == ILWRATH_DEFINED)
&& StartSphereTracking (ILWRATH_SHIP);
// In the Ilwrath home system and they are alive?
if (!FoundIlwrath &&
(hGroup = GetHeadLink (&GLOBAL (ip_group_q))))
{
// Is an Ilwrath ship in the system?
IP_GROUP *GroupPtr;
GroupPtr = LockIpGroup (&GLOBAL (ip_group_q), hGroup);
FoundIlwrath = (GroupPtr->race_id == ILWRATH_SHIP);
UnlockIpGroup (&GLOBAL (ip_group_q), hGroup);
}
if (FoundIlwrath)
{
NextActivity |= CHECK_LOAD; /* fake a load game */
GLOBAL (CurrentActivity) |= START_ENCOUNTER;
EncounterGroup = 0;
PutGroupInfo (GROUPS_RANDOM, GROUP_SAVE_IP);
ReinitQueue (&GLOBAL (ip_group_q));
assert (CountLinks (&GLOBAL (npc_built_ship_q)) == 0);
if (CurStarDescPtr->Index == ILWRATH_DEFINED)
{
// Ilwrath home system.
SET_GAME_STATE (GLOBAL_FLAGS_AND_DATA, 1 << 4);
}
else
{
// Ilwrath ship.
SET_GAME_STATE (GLOBAL_FLAGS_AND_DATA, 1 << 5);
}
if (playerInPlanetOrbit ())
SaveSolarSysLocation ();
return TRUE;
}
}
return FALSE;
}
// NB: Ship maximum speed and turning rate aren't updated in
// HyperSpace/QuasiSpace or in melee.
void
equipShip (void)
{
int i;
// Don't do anything unless in the full game.
if (LOBYTE (GLOBAL (CurrentActivity)) == SUPER_MELEE)
return;
// Thrusters:
for (i = 0; i < NUM_DRIVE_SLOTS; i++)
GLOBAL_SIS (DriveSlots[i]) = FUSION_THRUSTER;
// Turning jets:
for (i = 0; i < NUM_JET_SLOTS; i++)
GLOBAL_SIS (JetSlots[i]) = TURNING_JETS;
// Shields:
SET_GAME_STATE (LANDER_SHIELDS,
(1 << EARTHQUAKE_DISASTER) |
(1 << BIOLOGICAL_DISASTER) |
(1 << LIGHTNING_DISASTER) |
(1 << LAVASPOT_DISASTER));
// Lander upgrades:
SET_GAME_STATE (IMPROVED_LANDER_SPEED, 1);
SET_GAME_STATE (IMPROVED_LANDER_CARGO, 1);
SET_GAME_STATE (IMPROVED_LANDER_SHOT, 1);
// Modules:
if (GET_GAME_STATE (CHMMR_BOMB_STATE) < 2)
{
// The Precursor bomb has not been installed.
// This is the original TFB testing layout.
i = 0;
GLOBAL_SIS (ModuleSlots[i++]) = HIGHEFF_FUELSYS;
GLOBAL_SIS (ModuleSlots[i++]) = HIGHEFF_FUELSYS;
GLOBAL_SIS (ModuleSlots[i++]) = CREW_POD;
GLOBAL_SIS (ModuleSlots[i++]) = CREW_POD;
GLOBAL_SIS (ModuleSlots[i++]) = CREW_POD;
GLOBAL_SIS (ModuleSlots[i++]) = CREW_POD;
GLOBAL_SIS (ModuleSlots[i++]) = CREW_POD;
GLOBAL_SIS (ModuleSlots[i++]) = STORAGE_BAY;
GLOBAL_SIS (ModuleSlots[i++]) = SHIVA_FURNACE;
GLOBAL_SIS (ModuleSlots[i++]) = SHIVA_FURNACE;
GLOBAL_SIS (ModuleSlots[i++]) = DYNAMO_UNIT;
GLOBAL_SIS (ModuleSlots[i++]) = TRACKING_SYSTEM;
GLOBAL_SIS (ModuleSlots[i++]) = TRACKING_SYSTEM;
GLOBAL_SIS (ModuleSlots[i++]) = SHIVA_FURNACE;
GLOBAL_SIS (ModuleSlots[i++]) = CANNON_WEAPON;
GLOBAL_SIS (ModuleSlots[i++]) = CANNON_WEAPON;
// Landers:
GLOBAL_SIS (NumLanders) = MAX_LANDERS;
}
else
{
// The Precursor bomb has been installed.
i = NUM_BOMB_MODULES;
GLOBAL_SIS (ModuleSlots[i++]) = HIGHEFF_FUELSYS;
GLOBAL_SIS (ModuleSlots[i++]) = CREW_POD;
GLOBAL_SIS (ModuleSlots[i++]) = SHIVA_FURNACE;
GLOBAL_SIS (ModuleSlots[i++]) = SHIVA_FURNACE;
GLOBAL_SIS (ModuleSlots[i++]) = CANNON_WEAPON;
GLOBAL_SIS (ModuleSlots[i++]) = SHIVA_FURNACE;
}
assert (i <= NUM_MODULE_SLOTS);
// Fill the fuel and crew compartments to the maximum.
GLOBAL_SIS (FuelOnBoard) = FUEL_RESERVE;
GLOBAL_SIS (CrewEnlisted) = 0;
for (i = 0; i < NUM_MODULE_SLOTS; i++)
{
switch (GLOBAL_SIS (ModuleSlots[i])) {
case CREW_POD:
GLOBAL_SIS (CrewEnlisted) += CREW_POD_CAPACITY;
break;
case FUEL_TANK:
GLOBAL_SIS (FuelOnBoard) += FUEL_TANK_CAPACITY;
break;
case HIGHEFF_FUELSYS:
GLOBAL_SIS (FuelOnBoard) += HEFUEL_TANK_CAPACITY;
break;
}
}
// Update the maximum speed and turning rate when in interplanetary.
if (pSolarSysState != NULL)
{
// Thrusters:
pSolarSysState->max_ship_speed = 5 * IP_SHIP_THRUST_INCREMENT;
for (i = 0; i < NUM_DRIVE_SLOTS; i++)
if (GLOBAL_SIS (DriveSlots[i] == FUSION_THRUSTER))
pSolarSysState->max_ship_speed += IP_SHIP_THRUST_INCREMENT;
// Turning jets:
pSolarSysState->turn_wait = IP_SHIP_TURN_WAIT;
for (i = 0; i < NUM_JET_SLOTS; i++)
if (GLOBAL_SIS (JetSlots[i]) == TURNING_JETS)
pSolarSysState->turn_wait -= IP_SHIP_TURN_DECREMENT;
}
// Make sure everything is redrawn:
if (inHQSpace () ||
LOBYTE (GLOBAL (CurrentActivity)) == IN_INTERPLANETARY)
{
DeltaSISGauges (UNDEFINED_DELTA, UNDEFINED_DELTA, UNDEFINED_DELTA);
}
}
