static COUNT
initialize_autoaim_laser (ELEMENT *ShipPtr, HELEMENT LaserArray[])
{
COUNT orig_facing;
SIZE delta_facing;
STARSHIP *StarShipPtr;
LASER_BLOCK LaserBlock;
GetElementStarShip (ShipPtr, &StarShipPtr);
LaserBlock.face = orig_facing = StarShipPtr->ShipFacing;
if ((delta_facing = TrackShip (ShipPtr, &LaserBlock.face)) > 0)
LaserBlock.face = NORMALIZE_FACING (orig_facing + delta_facing);
ShipPtr->hTarget = 0;
LaserBlock.cx = ShipPtr->next.location.x;
LaserBlock.cy = ShipPtr->next.location.y;
LaserBlock.ex = COSINE (FACING_TO_ANGLE (LaserBlock.face), LASER_RANGE);
LaserBlock.ey = SINE (FACING_TO_ANGLE (LaserBlock.face), LASER_RANGE);
LaserBlock.sender = ShipPtr->playerNr;
LaserBlock.flags = IGNORE_SIMILAR;
LaserBlock.pixoffs = ARILOU_OFFSET;
LaserBlock.color = BUILD_COLOR (MAKE_RGB15 (0x1F, 0x1F, 0x0A), 0x0E);
LaserArray[0] = initialize_laser (&LaserBlock);
return (1);
}
static void
spawn_point_defense (PELEMENT ElementPtr)
{
STARSHIPPTR StarShipPtr;
GetElementStarShip (ElementPtr, &StarShipPtr);
if (ElementPtr->state_flags & PLAYER_SHIP)
{
HELEMENT hDefense;
hDefense = AllocElement ();
if (hDefense)
{
ELEMENTPTR DefensePtr;
LockElement (hDefense, &DefensePtr);
DefensePtr->state_flags = APPEARING | NONSOLID | FINITE_LIFE |
(ElementPtr->state_flags & (GOOD_GUY | BAD_GUY));
{
DefensePtr->death_func = spawn_point_defense;
}
GetElementStarShip (ElementPtr, &StarShipPtr);
SetElementStarShip (DefensePtr, StarShipPtr);
UnlockElement (hDefense);
PutElement (hDefense);
}
}
else
{
BOOLEAN PaidFor;
HELEMENT hObject, hNextObject;
ELEMENTPTR ShipPtr;
PaidFor = FALSE;
LockElement (StarShipPtr->hShip, &ShipPtr);
for (hObject = GetTailElement (); hObject; hObject = hNextObject)
{
ELEMENTPTR ObjectPtr;
LockElement (hObject, &ObjectPtr);
hNextObject = GetPredElement (ObjectPtr);
if (ObjectPtr != ShipPtr && CollidingElement (ObjectPtr) &&
!OBJECT_CLOAKED (ObjectPtr))
{
#define LASER_RANGE (UWORD)100
SIZE delta_x, delta_y;
delta_x = ObjectPtr->next.location.x -
ShipPtr->next.location.x;
delta_y = ObjectPtr->next.location.y -
ShipPtr->next.location.y;
if (delta_x < 0)
delta_x = -delta_x;
if (delta_y < 0)
delta_y = -delta_y;
delta_x = WORLD_TO_DISPLAY (delta_x);
delta_y = WORLD_TO_DISPLAY (delta_y);
if ((UWORD)delta_x <= LASER_RANGE &&
(UWORD)delta_y <= LASER_RANGE &&
(UWORD)delta_x * (UWORD)delta_x +
(UWORD)delta_y * (UWORD)delta_y <=
LASER_RANGE * LASER_RANGE)
{
HELEMENT hPointDefense;
LASER_BLOCK LaserBlock;
if (!PaidFor)
{
if (!DeltaEnergy (ShipPtr, -SPECIAL_ENERGY_COST))
break;
ProcessSound (SetAbsSoundIndex (
/* POINT_DEFENSE_LASER */
StarShipPtr->RaceDescPtr->ship_data.ship_sounds, 1));
StarShipPtr->special_counter =
StarShipPtr->RaceDescPtr->characteristics.special_wait;
PaidFor = TRUE;
}
LaserBlock.cx = ShipPtr->next.location.x;
LaserBlock.cy = ShipPtr->next.location.y;
LaserBlock.face = 0;
LaserBlock.ex = ObjectPtr->next.location.x
- ShipPtr->next.location.x;
LaserBlock.ey = ObjectPtr->next.location.y
- ShipPtr->next.location.y;
LaserBlock.sender = (ShipPtr->state_flags & (GOOD_GUY | BAD_GUY))
| IGNORE_SIMILAR;
LaserBlock.pixoffs = 0;
LaserBlock.color = BUILD_COLOR (MAKE_RGB15 (0x1F, 0x1F, 0x1F), 0x0F);
hPointDefense = initialize_laser (&LaserBlock);
if (hPointDefense)
{
ELEMENTPTR PDPtr;
LockElement (hPointDefense, &PDPtr);
SetElementStarShip (PDPtr, StarShipPtr);
PDPtr->hTarget = 0;
UnlockElement (hPointDefense);
PutElement (hPointDefense);
}
}
}
UnlockElement (hObject);
}
UnlockElement (StarShipPtr->hShip);
}
}
static COUNT
initialize_dual_weapons (ELEMENT *ShipPtr, HELEMENT WeaponArray[])
{
#define CENTER_OFFS DISPLAY_TO_WORLD (4)
COORD cx, cy;
COUNT facing, angle;
SIZE offs_x, offs_y;
STARSHIP *StarShipPtr;
GetElementStarShip (ShipPtr, &StarShipPtr);
facing = StarShipPtr->ShipFacing;
angle = FACING_TO_ANGLE (facing);
cx = ShipPtr->next.location.x + COSINE (angle, CENTER_OFFS);
cy = ShipPtr->next.location.y + SINE (angle, CENTER_OFFS);
if (ShipPtr->next.image.farray == StarShipPtr->RaceDescPtr->ship_data.ship)
{
#define WING_OFFS DISPLAY_TO_WORLD (10)
COORD ex, ey;
LASER_BLOCK LaserBlock;
ELEMENT *LaserPtr;
LaserBlock.sender = ShipPtr->state_flags & (GOOD_GUY | BAD_GUY);
LaserBlock.pixoffs = 0;
LaserBlock.color = BUILD_COLOR (MAKE_RGB15 (0x1F, 0x0A, 0x0A), 0x0C);
LaserBlock.face = facing;
ex = cx + COSINE (angle, LASER_RANGE);
ey = cy + SINE (angle, LASER_RANGE);
offs_x = -SINE (angle, WING_OFFS);
offs_y = COSINE (angle, WING_OFFS);
LaserBlock.cx = cx + offs_x;
LaserBlock.cy = cy + offs_y;
LaserBlock.ex = ex - LaserBlock.cx;
LaserBlock.ey = ey - LaserBlock.cy;
if ((WeaponArray[0] = initialize_laser (&LaserBlock)))
{
LockElement (WeaponArray[0], &LaserPtr);
LaserPtr->collision_func = twin_laser_collision;
UnlockElement (WeaponArray[0]);
}
LaserBlock.cx = cx - offs_x;
LaserBlock.cy = cy - offs_y;
LaserBlock.ex = ex - LaserBlock.cx;
LaserBlock.ey = ey - LaserBlock.cy;
if ((WeaponArray[1] = initialize_laser (&LaserBlock)))
{
LockElement (WeaponArray[1], &LaserPtr);
LaserPtr->collision_func = twin_laser_collision;
UnlockElement (WeaponArray[1]);
}
}
else
{
#define MISSILE_HITS 1
#define MISSILE_DAMAGE 1
#define MISSILE_OFFSET 0
#define MISSILE_LIFE 40
#define LAUNCH_OFFS DISPLAY_TO_WORLD (4)
MISSILE_BLOCK TorpBlock;
ELEMENT *TorpPtr;
TorpBlock.farray = StarShipPtr->RaceDescPtr->ship_data.weapon;
TorpBlock.sender = (ShipPtr->state_flags & (GOOD_GUY | BAD_GUY))
| IGNORE_SIMILAR;
TorpBlock.pixoffs = 0;
TorpBlock.speed = MISSILE_SPEED;
TorpBlock.hit_points = MISSILE_HITS;
TorpBlock.damage = MISSILE_DAMAGE;
TorpBlock.life = MISSILE_LIFE;
TorpBlock.preprocess_func = missile_preprocess;
TorpBlock.blast_offs = MISSILE_OFFSET;
TorpBlock.face = TorpBlock.index = NORMALIZE_FACING (facing - 1);
offs_x = -SINE (FACING_TO_ANGLE (TorpBlock.face), LAUNCH_OFFS);
offs_y = COSINE (FACING_TO_ANGLE (TorpBlock.face), LAUNCH_OFFS);
TorpBlock.cx = cx + offs_x;
TorpBlock.cy = cy + offs_y;
if ((WeaponArray[0] = initialize_missile (&TorpBlock)))
{
LockElement (WeaponArray[0], &TorpPtr);
TorpPtr->turn_wait = TRACK_WAIT;
UnlockElement (WeaponArray[0]);
}
TorpBlock.face = TorpBlock.index = NORMALIZE_FACING (facing + 1);
TorpBlock.cx = cx - offs_x;
TorpBlock.cy = cy - offs_y;
if ((WeaponArray[1] = initialize_missile (&TorpBlock)))
{
LockElement (WeaponArray[1], &TorpPtr);
TorpPtr->turn_wait = TRACK_WAIT;
UnlockElement (WeaponArray[1]);
}
}
return (2);
}
