static void
shofixti_intelligence (PELEMENT ShipPtr, PEVALUATE_DESC ObjectsOfConcern, COUNT ConcernCounter)
{
STARSHIPPTR StarShipPtr;
ship_intelligence (ShipPtr,
ObjectsOfConcern, ConcernCounter);
GetElementStarShip (ShipPtr, &StarShipPtr);
if (StarShipPtr->special_counter == 0)
{
if (StarShipPtr->ship_input_state & SPECIAL)
StarShipPtr->ship_input_state &= ~SPECIAL;
else
{
PEVALUATE_DESC lpWeaponEvalDesc, lpShipEvalDesc;
lpWeaponEvalDesc = &ObjectsOfConcern[ENEMY_WEAPON_INDEX];
lpShipEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (StarShipPtr->RaceDescPtr->ship_data.special[0]
&& (GetFrameCount (StarShipPtr->RaceDescPtr->ship_data.captain_control.special)
- GetFrameIndex (StarShipPtr->RaceDescPtr->ship_data.captain_control.special) > 5
|| (lpShipEvalDesc->ObjectPtr != NULL_PTR
&& lpShipEvalDesc->which_turn <= 4)
|| (lpWeaponEvalDesc->ObjectPtr != NULL_PTR
/* means IMMEDIATE WEAPON */
&& (((lpWeaponEvalDesc->ObjectPtr->state_flags & PLAYER_SHIP)
&& ShipPtr->crew_level == 1)
|| (PlotIntercept (lpWeaponEvalDesc->ObjectPtr, ShipPtr, 2, 0)
&& lpWeaponEvalDesc->ObjectPtr->mass_points >= ShipPtr->crew_level
&& (TFB_Random () & 1))))))
StarShipPtr->ship_input_state |= SPECIAL;
}
}
}
static void
pkunk_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
STARSHIP *StarShipPtr;
HELEMENT hPhoenix;
GetElementStarShip (ShipPtr, &StarShipPtr);
hPhoenix = (HELEMENT) StarShipPtr->RaceDescPtr->data;
if (hPhoenix && (StarShipPtr->control & STANDARD_RATING))
{
RemoveElement (hPhoenix);
FreeElement (hPhoenix);
StarShipPtr->RaceDescPtr->data = 0;
}
if (StarShipPtr->RaceDescPtr->ship_info.energy_level <
StarShipPtr->RaceDescPtr->ship_info.max_energy
&& (StarShipPtr->special_counter == 0
|| (BYTE)TFB_Random () < 20))
StarShipPtr->ship_input_state |= SPECIAL;
else
StarShipPtr->ship_input_state &= ~SPECIAL;
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
}
static void
human_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
STARSHIP *StarShipPtr;
GetElementStarShip (ShipPtr, &StarShipPtr);
if (StarShipPtr->special_counter == 0
&& ((ObjectsOfConcern[ENEMY_WEAPON_INDEX].ObjectPtr != NULL
&& ObjectsOfConcern[ENEMY_WEAPON_INDEX].which_turn <= 2)
|| (ObjectsOfConcern[ENEMY_SHIP_INDEX].ObjectPtr != NULL
&& ObjectsOfConcern[ENEMY_SHIP_INDEX].which_turn <= 4)))
StarShipPtr->ship_input_state |= SPECIAL;
else
StarShipPtr->ship_input_state &= ~SPECIAL;
ObjectsOfConcern[ENEMY_WEAPON_INDEX].ObjectPtr = NULL;
ship_intelligence (ShipPtr,
ObjectsOfConcern, ConcernCounter);
if (StarShipPtr->weapon_counter == 0)
{
if (ObjectsOfConcern[ENEMY_SHIP_INDEX].ObjectPtr
&& (!(StarShipPtr->ship_input_state & (LEFT | RIGHT /* | THRUST */))
|| ObjectsOfConcern[ENEMY_SHIP_INDEX].which_turn <= 12))
StarShipPtr->ship_input_state |= WEAPON;
}
}
static void
syreen_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
EVALUATE_DESC *lpEvalDesc;
ship_intelligence (ShipPtr,
ObjectsOfConcern, ConcernCounter);
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (lpEvalDesc->ObjectPtr != NULL)
{
STARSHIP *StarShipPtr;
STARSHIP *EnemyStarShipPtr;
GetElementStarShip (ShipPtr, &StarShipPtr);
GetElementStarShip (lpEvalDesc->ObjectPtr, &EnemyStarShipPtr);
if (!(EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags & CREW_IMMUNE)
&& StarShipPtr->special_counter == 0
&& lpEvalDesc->ObjectPtr->crew_level > 1
&& lpEvalDesc->which_turn <= 14)
StarShipPtr->ship_input_state |= SPECIAL;
else
StarShipPtr->ship_input_state &= ~SPECIAL;
}
}
static void
arilou_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
STARSHIP *StarShipPtr;
GetElementStarShip (ShipPtr, &StarShipPtr);
StarShipPtr->ship_input_state |= THRUST;
ObjectsOfConcern[ENEMY_SHIP_INDEX].MoveState = ENTICE;
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
if (StarShipPtr->special_counter == 0)
{
EVALUATE_DESC *lpEvalDesc;
StarShipPtr->ship_input_state &= ~SPECIAL;
lpEvalDesc = &ObjectsOfConcern[ENEMY_WEAPON_INDEX];
if (lpEvalDesc->ObjectPtr && lpEvalDesc->which_turn <= 6)
{
BOOLEAN IsTrackingWeapon;
STARSHIP *EnemyStarShipPtr;
GetElementStarShip (lpEvalDesc->ObjectPtr, &EnemyStarShipPtr);
if (((EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags
& SEEKING_WEAPON) &&
lpEvalDesc->ObjectPtr->next.image.farray ==
EnemyStarShipPtr->RaceDescPtr->ship_data.weapon) ||
((EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags
& SEEKING_SPECIAL) &&
lpEvalDesc->ObjectPtr->next.image.farray ==
EnemyStarShipPtr->RaceDescPtr->ship_data.special))
IsTrackingWeapon = TRUE;
else
IsTrackingWeapon = FALSE;
// JMS: Added the GASSY_SUBSTANCE clauses to prevent 'long teleport' if Baul gas is sticking to the Arilou ship.
if (((lpEvalDesc->ObjectPtr->state_flags & PLAYER_SHIP) /* means IMMEDIATE WEAPON */
|| (IsTrackingWeapon && (lpEvalDesc->which_turn == 1
|| (lpEvalDesc->ObjectPtr->state_flags & CREW_OBJECT))) /* FIGHTERS!!! */
|| (PlotIntercept (lpEvalDesc->ObjectPtr, ShipPtr, 3, 0)
&& (!(lpEvalDesc->ObjectPtr->state_flags & GASSY_SUBSTANCE) // Ignore stuck gas
|| (lpEvalDesc->ObjectPtr->state_flags & GASSY_SUBSTANCE && EnemyStarShipPtr->ship_input_state & WEAPON
&& ObjectsOfConcern[ENEMY_SHIP_INDEX].which_turn <= 20) // If sticking to gas, teleport when Baul is near&firing primary
|| (lpEvalDesc->ObjectPtr->state_flags & GASSY_SUBSTANCE && lpEvalDesc->ObjectPtr->state_flags & IGNORE_VELOCITY))) // non-stuck gas
)
&& !(TFB_Random () & 3))
{
StarShipPtr->ship_input_state &= ~(LEFT | RIGHT | THRUST | WEAPON);
StarShipPtr->ship_input_state |= SPECIAL;
}
}
}
if (StarShipPtr->RaceDescPtr->ship_info.energy_level <= SPECIAL_ENERGY_COST << 1)
StarShipPtr->ship_input_state &= ~WEAPON;
}
static void
druuge_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
UWORD ship_flags;
STARSHIP *StarShipPtr;
STARSHIP *EnemyStarShipPtr;
EVALUATE_DESC *lpEvalDesc;
GetElementStarShip (ShipPtr, &StarShipPtr);
ship_flags = 0;
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (StarShipPtr->cur_status_flags & SHIP_BEYOND_MAX_SPEED)
lpEvalDesc->MoveState = ENTICE;
else if (lpEvalDesc->ObjectPtr
&& lpEvalDesc->which_turn <= WORLD_TO_TURN (MISSILE_RANGE * 3 / 4))
{
GetElementStarShip (lpEvalDesc->ObjectPtr, &EnemyStarShipPtr);
ship_flags = EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags;
EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags &=
~(FIRES_FORE | FIRES_RIGHT | FIRES_AFT | FIRES_LEFT);
lpEvalDesc->MoveState = PURSUE;
if (ShipPtr->thrust_wait == 0)
++ShipPtr->thrust_wait;
}
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
if (ship_flags)
{
EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags = ship_flags;
}
if (!(StarShipPtr->cur_status_flags & SHIP_BEYOND_MAX_SPEED)
&& (lpEvalDesc->which_turn <= 12
|| (
ObjectsOfConcern[ENEMY_WEAPON_INDEX].ObjectPtr
&& ObjectsOfConcern[ENEMY_WEAPON_INDEX].which_turn <= 6
)))
{
StarShipPtr->ship_input_state |= WEAPON;
if (ShipPtr->thrust_wait < WEAPON_WAIT + 1)
ShipPtr->thrust_wait = WEAPON_WAIT + 1;
}
if ((StarShipPtr->ship_input_state & WEAPON)
&& StarShipPtr->RaceDescPtr->ship_info.energy_level < WEAPON_ENERGY_COST
&& ShipPtr->crew_level > 1)
StarShipPtr->ship_input_state |= SPECIAL;
else
StarShipPtr->ship_input_state &= ~SPECIAL;
}
static void
spathi_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
STARSHIP *StarShipPtr;
EVALUATE_DESC *lpEvalDesc;
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
GetElementStarShip (ShipPtr, &StarShipPtr);
StarShipPtr->ship_input_state &= ~SPECIAL;
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (StarShipPtr->special_counter == 0
&& lpEvalDesc->ObjectPtr
&& lpEvalDesc->which_turn <= 24)
{
COUNT travel_facing, direction_facing;
SIZE delta_x, delta_y;
travel_facing = NORMALIZE_FACING (
ANGLE_TO_FACING (GetVelocityTravelAngle (&ShipPtr->velocity)
+ HALF_CIRCLE)
);
delta_x = lpEvalDesc->ObjectPtr->current.location.x
- ShipPtr->current.location.x;
delta_y = lpEvalDesc->ObjectPtr->current.location.y
- ShipPtr->current.location.y;
direction_facing = NORMALIZE_FACING (
ANGLE_TO_FACING (ARCTAN (delta_x, delta_y))
);
if (NORMALIZE_FACING (direction_facing
- (StarShipPtr->ShipFacing + ANGLE_TO_FACING (HALF_CIRCLE))
+ ANGLE_TO_FACING (QUADRANT))
<= ANGLE_TO_FACING (HALF_CIRCLE)
&& (lpEvalDesc->which_turn <= 8
|| NORMALIZE_FACING (direction_facing
+ ANGLE_TO_FACING (HALF_CIRCLE)
- ANGLE_TO_FACING (GetVelocityTravelAngle (
&lpEvalDesc->ObjectPtr->velocity
))
+ ANGLE_TO_FACING (QUADRANT))
<= ANGLE_TO_FACING (HALF_CIRCLE))
&& (!(StarShipPtr->cur_status_flags &
(SHIP_BEYOND_MAX_SPEED | SHIP_IN_GRAVITY_WELL))
|| NORMALIZE_FACING (direction_facing
- travel_facing + ANGLE_TO_FACING (QUADRANT))
<= ANGLE_TO_FACING (HALF_CIRCLE)))
StarShipPtr->ship_input_state |= SPECIAL;
}
}
static void
arilou_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
STARSHIP *StarShipPtr;
GetElementStarShip (ShipPtr, &StarShipPtr);
StarShipPtr->ship_input_state |= THRUST;
ObjectsOfConcern[ENEMY_SHIP_INDEX].MoveState = ENTICE;
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
if (StarShipPtr->special_counter == 0)
{
EVALUATE_DESC *lpEvalDesc;
StarShipPtr->ship_input_state &= ~SPECIAL;
lpEvalDesc = &ObjectsOfConcern[ENEMY_WEAPON_INDEX];
if (lpEvalDesc->ObjectPtr && lpEvalDesc->which_turn <= 6)
{
BOOLEAN IsTrackingWeapon;
STARSHIP *EnemyStarShipPtr;
GetElementStarShip (lpEvalDesc->ObjectPtr, &EnemyStarShipPtr);
if (((EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags
& SEEKING_WEAPON) &&
lpEvalDesc->ObjectPtr->next.image.farray ==
EnemyStarShipPtr->RaceDescPtr->ship_data.weapon) ||
((EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags
& SEEKING_SPECIAL) &&
lpEvalDesc->ObjectPtr->next.image.farray ==
EnemyStarShipPtr->RaceDescPtr->ship_data.special))
IsTrackingWeapon = TRUE;
else
IsTrackingWeapon = FALSE;
if (((lpEvalDesc->ObjectPtr->state_flags & PLAYER_SHIP) /* means IMMEDIATE WEAPON */
|| (IsTrackingWeapon && (lpEvalDesc->which_turn == 1
|| (lpEvalDesc->ObjectPtr->state_flags & CREW_OBJECT))) /* FIGHTERS!!! */
|| PlotIntercept (lpEvalDesc->ObjectPtr, ShipPtr, 3, 0))
&& !(TFB_Random () & 3))
{
StarShipPtr->ship_input_state &= ~(LEFT | RIGHT | THRUST | WEAPON);
StarShipPtr->ship_input_state |= SPECIAL;
}
}
}
if (StarShipPtr->RaceDescPtr->ship_info.energy_level <= SPECIAL_ENERGY_COST << 1)
StarShipPtr->ship_input_state &= ~WEAPON;
}
int aiArilou(pPlayer ai, pObject ObjectsOfConcern, COUNT ConcernCounter)
{
pObject lpEvalDesc;
pPlayer opp=(pPlayer)ai->opp;
ObjectsOfConcern[ENEMY_SHIP_INDEX].MoveState = ENTICE;
ship_intelligence (ai, ObjectsOfConcern, ConcernCounter);
if (ai->special_turn == 0)
{
ai->ship_input_state &= ~SPECIAL;
lpEvalDesc = &ObjectsOfConcern[ENEMY_WEAPON_INDEX];
if (lpEvalDesc->parent && lpEvalDesc->which_turn <= 6)
{
s8 IsTrackingWeapon;
/*if (((opp->ship_flags & SEEKING_WEAPON)
//&& lpEvalDesc->tr->next.image.farray ==
//EnemyStarShipPtr->RaceDescPtr->ship_data.weapon
) ||
((opp->ship_flags & SEEKING_SPECIAL)
// && lpEvalDesc->tr->next.image.farray ==
//EnemyStarShipPtr->RaceDescPtr->ship_data.special))
})*/
if ((opp->ship_flags & SEEKING_WEAPON)&&(opp->ship_flags & SEEKING_SPECIAL))
IsTrackingWeapon = 1;
else
IsTrackingWeapon = 0;
if ((//(opp->ship_flags & IMMEDIATE_WEAPON)|| /* means IMMEDIATE WEAPON */
(IsTrackingWeapon && (lpEvalDesc->which_turn == 1
|| (lpEvalDesc->type != CREW))) /* FIGHTERS!!! */
|| PlotIntercept (ai,lpEvalDesc, 3, 0))
&& !(ran(0,3)))
{
ai->ship_input_state &= ~(LEFT | RIGHT | THRUST | WEAPON);
ai->ship_input_state |= SPECIAL;
}
}
}
if (ai->batt <= SPECIAL_ENERGY_COST << 1)
ai->ship_input_state &= ~WEAPON;
}
static void
ilwrath_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
EVALUATE_DESC *lpEvalDesc;
STARSHIP *StarShipPtr;
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
lpEvalDesc->MoveState = PURSUE;
if (lpEvalDesc->ObjectPtr && lpEvalDesc->which_turn <= 10)
/* don't want to dodge when you could be flaming */
ObjectsOfConcern[ENEMY_WEAPON_INDEX].ObjectPtr = 0;
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
GetElementStarShip (ShipPtr, &StarShipPtr);
if (lpEvalDesc->ObjectPtr
&& (lpEvalDesc->which_turn <= 6
|| (lpEvalDesc->which_turn <= 10
&& ObjectsOfConcern[ENEMY_WEAPON_INDEX].which_turn <= 10)))
{
StarShipPtr->ship_input_state &= ~SPECIAL;
if (OBJECT_CLOAKED (ShipPtr))
{
StarShipPtr->ship_input_state &= ~LEFT | RIGHT;
StarShipPtr->ship_input_state |= THRUST;
}
StarShipPtr->ship_input_state |= WEAPON;
}
else if (StarShipPtr->special_counter == 0
&& (LOBYTE (GLOBAL (CurrentActivity)) != IN_ENCOUNTER
|| !GET_GAME_STATE (PROBE_ILWRATH_ENCOUNTER)))
{
StarShipPtr->ship_input_state &= ~SPECIAL;
if (!OBJECT_CLOAKED (ShipPtr)
&& !(StarShipPtr->ship_input_state & WEAPON))
StarShipPtr->ship_input_state |= SPECIAL;
}
}
static void
androsynth_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
EVALUATE_DESC *lpEvalDesc;
STARSHIP *StarShipPtr;
GetElementStarShip (ShipPtr, &StarShipPtr);
lpEvalDesc = &ObjectsOfConcern[ENEMY_WEAPON_INDEX];
/* in blazer form */
if (ShipPtr->next.image.farray == StarShipPtr->RaceDescPtr->ship_data.special)
{
ObjectsOfConcern[CREW_OBJECT_INDEX].ObjectPtr = 0;
if (lpEvalDesc->ObjectPtr && lpEvalDesc->MoveState == ENTICE)
{
if ((lpEvalDesc->ObjectPtr->state_flags & FINITE_LIFE)
&& !(lpEvalDesc->ObjectPtr->state_flags & CREW_OBJECT))
lpEvalDesc->MoveState = AVOID;
else
lpEvalDesc->ObjectPtr = 0;
}
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
}
else
{
STARSHIP *pEnemyStarShip = NULL;
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (lpEvalDesc->ObjectPtr)
{
GetElementStarShip (lpEvalDesc->ObjectPtr, &pEnemyStarShip);
// JMS_GFX
if (lpEvalDesc->which_turn <= 16
&& (StarShipPtr->special_counter > 0
|| StarShipPtr->RaceDescPtr->ship_info.energy_level < MAX_ENERGY / 3
|| ((WEAPON_RANGE (&pEnemyStarShip->RaceDescPtr->cyborg_control) <= (CLOSE_RANGE_WEAPON << RESOLUTION_FACTOR)
&& lpEvalDesc->ObjectPtr->crew_level > BLAZER_DAMAGE)
|| (lpEvalDesc->ObjectPtr->crew_level > (BLAZER_DAMAGE * 3)
&& MANEUVERABILITY (&pEnemyStarShip->RaceDescPtr->cyborg_control) > SLOW_SHIP))))
lpEvalDesc->MoveState = ENTICE;
}
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
if (StarShipPtr->special_counter == 0)
{
StarShipPtr->ship_input_state &= ~SPECIAL;
// JMS_GFX
if ((ObjectsOfConcern[ENEMY_WEAPON_INDEX].ObjectPtr
&& ObjectsOfConcern[ENEMY_WEAPON_INDEX].which_turn <= 4)
|| (lpEvalDesc->ObjectPtr
&& StarShipPtr->RaceDescPtr->ship_info.energy_level >= MAX_ENERGY / 3
&& (WEAPON_RANGE (&pEnemyStarShip->RaceDescPtr->cyborg_control) >=
WEAPON_RANGE (&StarShipPtr->RaceDescPtr->cyborg_control) << 1
|| (lpEvalDesc->which_turn < 16
&& (WEAPON_RANGE (&pEnemyStarShip->RaceDescPtr->cyborg_control) > (CLOSE_RANGE_WEAPON << RESOLUTION_FACTOR)
|| lpEvalDesc->ObjectPtr->crew_level <= BLAZER_DAMAGE)
&& (lpEvalDesc->ObjectPtr->crew_level <= (BLAZER_DAMAGE * 3)
|| MANEUVERABILITY (&pEnemyStarShip->RaceDescPtr->cyborg_control) <=
SLOW_SHIP)))))
StarShipPtr->ship_input_state |= SPECIAL;
}
if (!(StarShipPtr->ship_input_state & SPECIAL)
&& StarShipPtr->weapon_counter == 0
&& lpEvalDesc->ObjectPtr)
{
if (lpEvalDesc->which_turn <= 4)
StarShipPtr->ship_input_state |= WEAPON;
else if (lpEvalDesc->MoveState != PURSUE
&& lpEvalDesc->which_turn <= 12)
{
COUNT travel_facing, direction_facing;
SIZE delta_x, delta_y,
ship_delta_x, ship_delta_y,
other_delta_x, other_delta_y;
GetCurrentVelocityComponents (&ShipPtr->velocity,
&ship_delta_x, &ship_delta_y);
GetCurrentVelocityComponents (&lpEvalDesc->ObjectPtr->velocity,
&other_delta_x, &other_delta_y);
delta_x = ship_delta_x - other_delta_x;
delta_y = ship_delta_y - other_delta_y;
travel_facing = ARCTAN (delta_x, delta_y);
delta_x =
lpEvalDesc->ObjectPtr->next.location.x -
ShipPtr->next.location.x;
delta_y =
lpEvalDesc->ObjectPtr->next.location.y -
ShipPtr->next.location.y;
direction_facing = ARCTAN (delta_x, delta_y);
if (NORMALIZE_ANGLE (travel_facing
- direction_facing + OCTANT) <= QUADRANT)
StarShipPtr->ship_input_state |= WEAPON;
}
}
}
}
static void
melnorme_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
BYTE old_count;
STARSHIP *StarShipPtr;
EVALUATE_DESC *lpEvalDesc;
GetElementStarShip (ShipPtr, &StarShipPtr);
StarShipPtr->RaceDescPtr->init_weapon_func = initialize_test_pump_up;
old_count = StarShipPtr->weapon_counter;
if (StarShipPtr->weapon_counter == WEAPON_WAIT)
StarShipPtr->weapon_counter = 0;
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (lpEvalDesc->ObjectPtr)
{
if (StarShipPtr->RaceDescPtr->ship_info.energy_level < SPECIAL_ENERGY_COST
+ WEAPON_ENERGY_COST
&& !(StarShipPtr->old_status_flags & WEAPON))
lpEvalDesc->MoveState = ENTICE;
else
{
STARSHIP *EnemyStarShipPtr;
GetElementStarShip (lpEvalDesc->ObjectPtr, &EnemyStarShipPtr);
if (!(EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags
& IMMEDIATE_WEAPON))
lpEvalDesc->MoveState = PURSUE;
}
}
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
if (StarShipPtr->weapon_counter == 0
&& (old_count != 0
|| ((StarShipPtr->special_counter
|| StarShipPtr->RaceDescPtr->ship_info.energy_level >= SPECIAL_ENERGY_COST
+ WEAPON_ENERGY_COST)
&& !(StarShipPtr->ship_input_state & WEAPON))))
StarShipPtr->ship_input_state ^= WEAPON;
StarShipPtr->ship_input_state &= ~SPECIAL;
if (StarShipPtr->special_counter == 0
&& StarShipPtr->RaceDescPtr->ship_info.energy_level >= SPECIAL_ENERGY_COST)
{
BYTE old_input_state;
old_input_state = StarShipPtr->ship_input_state;
StarShipPtr->RaceDescPtr->init_weapon_func = initialize_confusion;
++ShipPtr->turn_wait;
++ShipPtr->thrust_wait;
ship_intelligence (ShipPtr, ObjectsOfConcern, ENEMY_SHIP_INDEX + 1);
--ShipPtr->thrust_wait;
--ShipPtr->turn_wait;
if (StarShipPtr->ship_input_state & WEAPON)
{
StarShipPtr->ship_input_state &= ~WEAPON;
StarShipPtr->ship_input_state |= SPECIAL;
}
StarShipPtr->ship_input_state = (unsigned char)(old_input_state
| (StarShipPtr->ship_input_state & SPECIAL));
}
StarShipPtr->weapon_counter = old_count;
StarShipPtr->RaceDescPtr->init_weapon_func = initialize_pump_up;
}
static void
supox_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
STARSHIP *StarShipPtr;
EVALUATE_DESC *lpEvalDesc;
GetElementStarShip (ShipPtr, &StarShipPtr);
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (StarShipPtr->special_counter || lpEvalDesc->ObjectPtr == 0)
StarShipPtr->ship_input_state &= ~SPECIAL;
else
{
BOOLEAN LinedUp;
COUNT direction_angle;
SIZE delta_x, delta_y;
delta_x = lpEvalDesc->ObjectPtr->next.location.x
- ShipPtr->next.location.x;
delta_y = lpEvalDesc->ObjectPtr->next.location.y
- ShipPtr->next.location.y;
direction_angle = ARCTAN (delta_x, delta_y);
LinedUp = (BOOLEAN)(NORMALIZE_ANGLE (NORMALIZE_ANGLE (direction_angle
- FACING_TO_ANGLE (StarShipPtr->ShipFacing))
+ QUADRANT) <= HALF_CIRCLE);
if (!LinedUp
|| lpEvalDesc->which_turn > 20
|| NORMALIZE_ANGLE (
lpEvalDesc->facing
- (FACING_TO_ANGLE (StarShipPtr->ShipFacing)
+ HALF_CIRCLE) + OCTANT
) > QUADRANT)
StarShipPtr->ship_input_state &= ~SPECIAL;
else if (LinedUp && lpEvalDesc->which_turn <= 12)
StarShipPtr->ship_input_state |= SPECIAL;
if (StarShipPtr->ship_input_state & SPECIAL)
lpEvalDesc->MoveState = PURSUE;
}
ship_intelligence (ShipPtr,
ObjectsOfConcern, ConcernCounter);
if (StarShipPtr->ship_input_state & SPECIAL)
StarShipPtr->ship_input_state |= THRUST | WEAPON;
lpEvalDesc = &ObjectsOfConcern[ENEMY_WEAPON_INDEX];
if (StarShipPtr->special_counter == 0
&& lpEvalDesc->ObjectPtr
&& lpEvalDesc->MoveState == AVOID
&& ShipPtr->turn_wait == 0)
{
StarShipPtr->ship_input_state &= ~THRUST;
StarShipPtr->ship_input_state |= SPECIAL;
if (!(StarShipPtr->cur_status_flags & (LEFT | RIGHT)))
StarShipPtr->ship_input_state |= 1 << ((BYTE)TFB_Random () & 1);
else
StarShipPtr->ship_input_state |=
StarShipPtr->cur_status_flags & (LEFT | RIGHT);
}
}
static void
mmrnmhrm_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
BOOLEAN CanTransform;
EVALUATE_DESC *lpEvalDesc;
STARSHIP *StarShipPtr;
STARSHIP *EnemyStarShipPtr;
GetElementStarShip (ShipPtr, &StarShipPtr);
CanTransform = (BOOLEAN)(StarShipPtr->special_counter == 0
&& StarShipPtr->RaceDescPtr->ship_info.energy_level >=
StarShipPtr->RaceDescPtr->characteristics.special_energy_cost);
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (lpEvalDesc->ObjectPtr)
{
GetElementStarShip (lpEvalDesc->ObjectPtr, &EnemyStarShipPtr);
}
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
StarShipPtr->ship_input_state &= ~SPECIAL;
if (CanTransform
&& lpEvalDesc->ObjectPtr
&& !(StarShipPtr->ship_input_state & WEAPON))
{
SIZE delta_x, delta_y;
COUNT travel_angle, direction_angle;
GetCurrentVelocityComponents (&lpEvalDesc->ObjectPtr->velocity,
&delta_x, &delta_y);
if (delta_x == 0 && delta_y == 0)
direction_angle = travel_angle = 0;
else
{
delta_x = lpEvalDesc->ObjectPtr->current.location.x
- ShipPtr->current.location.x;
delta_y = lpEvalDesc->ObjectPtr->current.location.y
- ShipPtr->current.location.y;
direction_angle = ARCTAN (-delta_x, -delta_y);
travel_angle = GetVelocityTravelAngle (
&lpEvalDesc->ObjectPtr->velocity
);
}
if (ShipPtr->next.image.farray == StarShipPtr->RaceDescPtr->ship_data.ship)
{
if (lpEvalDesc->which_turn > 8)
{
if (MANEUVERABILITY (&EnemyStarShipPtr->RaceDescPtr->cyborg_control) <= SLOW_SHIP
|| NORMALIZE_ANGLE (
direction_angle - travel_angle + QUADRANT
) > HALF_CIRCLE)
StarShipPtr->ship_input_state |= SPECIAL;
}
}
else
{
SIZE ship_delta_x, ship_delta_y;
GetCurrentVelocityComponents (&ShipPtr->velocity,
&ship_delta_x, &ship_delta_y);
delta_x -= ship_delta_x;
delta_y -= ship_delta_y;
travel_angle = ARCTAN (delta_x, delta_y);
if (lpEvalDesc->which_turn < 16)
{
if (lpEvalDesc->which_turn <= 8
|| NORMALIZE_ANGLE (
direction_angle - travel_angle + OCTANT
) <= QUADRANT)
StarShipPtr->ship_input_state |= SPECIAL;
}
else if (lpEvalDesc->which_turn > 32
&& NORMALIZE_ANGLE (
direction_angle - travel_angle + QUADRANT
) > HALF_CIRCLE)
StarShipPtr->ship_input_state |= SPECIAL;
}
}
if (ShipPtr->current.image.farray == StarShipPtr->RaceDescPtr->ship_data.special)
{
if (!(StarShipPtr->ship_input_state & SPECIAL)
&& lpEvalDesc->ObjectPtr)
StarShipPtr->ship_input_state |= WEAPON;
else
StarShipPtr->ship_input_state &= ~WEAPON;
}
}
static void
chenjesu_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
EVALUATE_DESC *lpEvalDesc;
STARSHIP *StarShipPtr;
GetElementStarShip (ShipPtr, &StarShipPtr);
StarShipPtr->ship_input_state &= ~SPECIAL;
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (lpEvalDesc->ObjectPtr)
{
STARSHIP *EnemyStarShipPtr;
GetElementStarShip (lpEvalDesc->ObjectPtr, &EnemyStarShipPtr);
if ((lpEvalDesc->which_turn <= 16
&& MANEUVERABILITY (
&EnemyStarShipPtr->RaceDescPtr->cyborg_control
) >= MEDIUM_SHIP)
|| (MANEUVERABILITY (
&EnemyStarShipPtr->RaceDescPtr->cyborg_control
) <= SLOW_SHIP
&& WEAPON_RANGE (
&EnemyStarShipPtr->RaceDescPtr->cyborg_control
) >= LONG_RANGE_WEAPON * 3 / 4
&& (EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags & SEEKING_WEAPON)))
lpEvalDesc->MoveState = PURSUE;
}
if (StarShipPtr->special_counter == 1
&& ObjectsOfConcern[ENEMY_WEAPON_INDEX].ObjectPtr
&& ObjectsOfConcern[ENEMY_WEAPON_INDEX].MoveState == ENTICE
&& ObjectsOfConcern[ENEMY_WEAPON_INDEX].which_turn <= 8)
{
lpEvalDesc = &ObjectsOfConcern[ENEMY_WEAPON_INDEX];
}
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
if (lpEvalDesc->ObjectPtr)
{
HELEMENT h, hNext;
ELEMENT *CrystalPtr;
h = (StarShipPtr->old_status_flags & WEAPON) ?
GetTailElement () : (HELEMENT)0;
for (; h; h = hNext)
{
LockElement (h, &CrystalPtr);
hNext = GetPredElement (CrystalPtr);
if (!(CrystalPtr->state_flags & NONSOLID)
&& CrystalPtr->next.image.farray == StarShipPtr->RaceDescPtr->ship_data.weapon
&& CrystalPtr->preprocess_func
&& CrystalPtr->life_span > 0
&& elementsOfSamePlayer (CrystalPtr, ShipPtr))
{
if (ObjectsOfConcern[ENEMY_SHIP_INDEX].ObjectPtr)
{
COUNT which_turn;
if ((which_turn = PlotIntercept (CrystalPtr,
ObjectsOfConcern[ENEMY_SHIP_INDEX].ObjectPtr,
CrystalPtr->life_span,
FRAGMENT_RANGE / 2)) == 0
|| (which_turn == 1
&& PlotIntercept (CrystalPtr,
ObjectsOfConcern[ENEMY_SHIP_INDEX].ObjectPtr,
CrystalPtr->life_span, 0) == 0))
StarShipPtr->ship_input_state &= ~WEAPON;
else if (StarShipPtr->weapon_counter == 0)
{
StarShipPtr->ship_input_state |= WEAPON;
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
}
UnlockElement (h);
break;
}
hNext = 0;
}
UnlockElement (h);
}
if (h == 0)
{
if (StarShipPtr->old_status_flags & WEAPON)
{
StarShipPtr->ship_input_state &= ~WEAPON;
if (lpEvalDesc == &ObjectsOfConcern[ENEMY_WEAPON_INDEX])
StarShipPtr->weapon_counter = 3;
}
else if (StarShipPtr->weapon_counter == 0
&& ship_weapons (ShipPtr, lpEvalDesc->ObjectPtr, FRAGMENT_RANGE / 2))
StarShipPtr->ship_input_state |= WEAPON;
}
}
if (StarShipPtr->special_counter < MAX_DOGGIES)
{
if (lpEvalDesc->ObjectPtr
&& StarShipPtr->RaceDescPtr->ship_info.energy_level <= SPECIAL_ENERGY_COST
&& !(StarShipPtr->ship_input_state & WEAPON))
StarShipPtr->ship_input_state |= SPECIAL;
}
}
static void
thraddash_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern, COUNT ConcernCounter)
{
STARSHIP *StarShipPtr;
EVALUATE_DESC *lpEvalDesc;
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
if (lpEvalDesc->ObjectPtr)
{
#define STATIONARY_SPEED WORLD_TO_VELOCITY (DISPLAY_TO_WORLD (4))
SIZE dx, dy;
GetCurrentVelocityComponents (
&lpEvalDesc->ObjectPtr->velocity, &dx, &dy
);
if (lpEvalDesc->which_turn > 8
|| (long)dx * dx + (long)dy * dy <=
(long)STATIONARY_SPEED * STATIONARY_SPEED)
lpEvalDesc->MoveState = PURSUE;
else
lpEvalDesc->MoveState = ENTICE;
}
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
GetElementStarShip (ShipPtr, &StarShipPtr);
if (StarShipPtr->special_counter == 0)
{
StarShipPtr->ship_input_state &= ~SPECIAL;
if (ObjectsOfConcern[ENEMY_WEAPON_INDEX].ObjectPtr
&& ObjectsOfConcern[ENEMY_WEAPON_INDEX].MoveState == ENTICE)
{
if ((StarShipPtr->ship_input_state & THRUST)
|| (ShipPtr->turn_wait == 0
&& !(StarShipPtr->ship_input_state & (LEFT | RIGHT)))
|| NORMALIZE_FACING (ANGLE_TO_FACING (
GetVelocityTravelAngle (
&ObjectsOfConcern[ENEMY_WEAPON_INDEX].ObjectPtr->velocity
) + HALF_CIRCLE + OCTANT)
- StarShipPtr->ShipFacing) > ANGLE_TO_FACING (QUADRANT))
StarShipPtr->ship_input_state |= SPECIAL;
}
else if (lpEvalDesc->ObjectPtr)
{
if (lpEvalDesc->MoveState == PURSUE)
{
if (StarShipPtr->RaceDescPtr->ship_info.energy_level >= WEAPON_ENERGY_COST
+ SPECIAL_ENERGY_COST
&& ShipPtr->turn_wait == 0
&& !(StarShipPtr->ship_input_state & (LEFT | RIGHT))
&& (!(StarShipPtr->cur_status_flags & SPECIAL)
|| !(StarShipPtr->cur_status_flags
& (SHIP_AT_MAX_SPEED | SHIP_BEYOND_MAX_SPEED))))
StarShipPtr->ship_input_state |= SPECIAL;
}
else if (lpEvalDesc->MoveState == ENTICE)
{
COUNT direction_angle;
SIZE delta_x, delta_y;
delta_x = lpEvalDesc->ObjectPtr->next.location.x
- ShipPtr->next.location.x;
delta_y = lpEvalDesc->ObjectPtr->next.location.y
- ShipPtr->next.location.y;
direction_angle = ARCTAN (delta_x, delta_y);
if ((lpEvalDesc->which_turn > 24
&& !(StarShipPtr->ship_input_state & (LEFT | RIGHT)))
|| (lpEvalDesc->which_turn <= 16
&& NORMALIZE_ANGLE (direction_angle
- (FACING_TO_ANGLE (StarShipPtr->ShipFacing) + HALF_CIRCLE)
+ QUADRANT) <= HALF_CIRCLE
&& (lpEvalDesc->which_turn < 12
|| NORMALIZE_ANGLE (direction_angle
- (GetVelocityTravelAngle (
&lpEvalDesc->ObjectPtr->velocity
) + HALF_CIRCLE)
+ (OCTANT + 2)) <= ((OCTANT + 2) << 1))))
StarShipPtr->ship_input_state |= SPECIAL;
}
}
if ((StarShipPtr->ship_input_state & SPECIAL)
&& StarShipPtr->RaceDescPtr->ship_info.energy_level >=
SPECIAL_ENERGY_COST)
StarShipPtr->ship_input_state &= ~THRUST;
}
}
static void
baul_intelligence (ELEMENT *ShipPtr, EVALUATE_DESC *ObjectsOfConcern,
COUNT ConcernCounter)
{
BYTE old_count;
STARSHIP *StarShipPtr;
EVALUATE_DESC *lpEvalDesc;
BYTE in_gas_cloud = 0;
GetElementStarShip (ShipPtr, &StarShipPtr);
old_count = StarShipPtr->weapon_counter;
// Don't spawn gas unless specifically told to.
StarShipPtr->ship_input_state &= ~SPECIAL;
// See if there is gas sticking to OUR ship.
lpEvalDesc = &ObjectsOfConcern[ENEMY_WEAPON_INDEX];
if (lpEvalDesc->ObjectPtr)
{
if (lpEvalDesc->ObjectPtr->state_flags & GASSY_SUBSTANCE
&& lpEvalDesc->ObjectPtr->mass_points == 0
&& lpEvalDesc->which_turn <= 1)
in_gas_cloud = 1;
}
// Now that we're done with the gas examinations, examine enemy ship.
lpEvalDesc = &ObjectsOfConcern[ENEMY_SHIP_INDEX];
// Actions towards enemy ship:
if (lpEvalDesc->ObjectPtr)
{
#define STATIONARY_SPEED WORLD_TO_VELOCITY (DISPLAY_TO_WORLD (4 << RESOLUTION_FACTOR)) // JMS_GFX
SIZE dx, dy;
GetCurrentVelocityComponents (&lpEvalDesc->ObjectPtr->velocity, &dx, &dy);
// Chase the ship if it's within a reasonable distance and there's no gas sticking to OUR ship.
if ((lpEvalDesc->which_turn < 20
|| (long)dx * dx + (long)dy * dy <= (long)STATIONARY_SPEED * STATIONARY_SPEED)
&& !in_gas_cloud)
lpEvalDesc->MoveState = PURSUE;
// Otherwise, entice.
else
lpEvalDesc->MoveState = ENTICE;
}
// Normal ship intelligence.
ship_intelligence (ShipPtr, ObjectsOfConcern, ConcernCounter);
// We don't want the Baul shooting all the time so it doesn't kill itself so easily.
if (lpEvalDesc->ObjectPtr)
{
STARSHIP *EnemyStarShipPtr;
GetElementStarShip (lpEvalDesc->ObjectPtr, &EnemyStarShipPtr);
// If the enemy is very close, don't shoot him with the primary to avoid damage to self.
// We shoot however, if the enemy ship has lazer or tries to shoot us.
// The philosophy: Better to kill both than do nothing and die.
if (StarShipPtr->ship_input_state & WEAPON && lpEvalDesc->which_turn < 8
&& !(EnemyStarShipPtr->RaceDescPtr->ship_info.ship_flags & IMMEDIATE_WEAPON)
&& !(EnemyStarShipPtr->ship_input_state & WEAPON)
&& !(EnemyStarShipPtr->ship_input_state & SPECIAL) )
StarShipPtr->ship_input_state &= ~WEAPON;
}
// Drop gas whenever the battery tops off and when we are far away from the enemy.
if ((StarShipPtr->RaceDescPtr->ship_info.energy_level
== StarShipPtr->RaceDescPtr->ship_info.max_energy)
&& lpEvalDesc->which_turn > 12
&& !in_gas_cloud)
StarShipPtr->ship_input_state |= SPECIAL;
// Consider dropping gas also when the enemy is in our sights.
if (StarShipPtr->special_counter == 0)
{
BYTE old_input_state;
old_input_state = StarShipPtr->ship_input_state;
// The final decision of "to gas or not to gas" is made by evaluating a test weapon function.
StarShipPtr->RaceDescPtr->init_weapon_func = initialize_test_gas;
ship_intelligence (ShipPtr, ObjectsOfConcern, ENEMY_SHIP_INDEX + 1);
// Since we faked using primary weapon even though we really are gonna use special,
// change the WEAPON button press to SPECIAL.
if (StarShipPtr->ship_input_state & WEAPON)
{
StarShipPtr->ship_input_state &= ~WEAPON;
StarShipPtr->ship_input_state |= SPECIAL;
}
StarShipPtr->ship_input_state = (unsigned char)(old_input_state | (StarShipPtr->ship_input_state & SPECIAL));
}
// Return the original stats.
StarShipPtr->weapon_counter = old_count;
StarShipPtr->RaceDescPtr->init_weapon_func = initialize_spray;
}
