47 function CheckGearDrowning(var Gear: PGear): boolean; |
47 function CheckGearDrowning(var Gear: PGear): boolean; |
48 procedure CheckCollision(Gear: PGear); inline; |
48 procedure CheckCollision(Gear: PGear); inline; |
49 procedure CheckCollisionWithLand(Gear: PGear); inline; |
49 procedure CheckCollisionWithLand(Gear: PGear); inline; |
50 |
50 |
51 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); |
51 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); |
|
52 procedure AmmoShoveCache(Ammo: PGear; Damage, Power: LongInt); |
52 procedure AmmoShoveLine(Ammo: PGear; Damage, Power: LongInt; oX, oY, tX, tY: hwFloat); |
53 procedure AmmoShoveLine(Ammo: PGear; Damage, Power: LongInt; oX, oY, tX, tY: hwFloat); |
53 function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): PGearArrayS; |
54 function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): PGearArrayS; |
54 procedure SpawnBoxOfSmth; |
55 procedure SpawnBoxOfSmth; |
55 procedure ShotgunShot(Gear: PGear); |
56 procedure ShotgunShot(Gear: PGear); |
56 function CanUseTardis(HHGear: PGear): boolean; |
57 function CanUseTardis(HHGear: PGear): boolean; |
1449 begin |
1450 begin |
1450 AmmoShoveImpl(Ammo, Damage, Power, |
1451 AmmoShoveImpl(Ammo, Damage, Power, |
1451 CheckGearsCollision(Ammo)); |
1452 CheckGearsCollision(Ammo)); |
1452 end; |
1453 end; |
1453 |
1454 |
|
1455 procedure AmmoShoveCache(Ammo: PGear; Damage, Power: LongInt); |
|
1456 begin |
|
1457 AmmoShoveImpl(Ammo, Damage, Power, |
|
1458 CheckCacheCollision(Ammo)); |
|
1459 end; |
1454 |
1460 |
1455 function CountGears(Kind: TGearType): Longword; |
1461 function CountGears(Kind: TGearType): Longword; |
1456 var t: PGear; |
1462 var t: PGear; |
1457 count: Longword = 0; |
1463 count: Longword = 0; |
1458 begin |
1464 begin |