equal
deleted
inserted
replaced
17 *) |
17 *) |
18 |
18 |
19 unit uGears; |
19 unit uGears; |
20 interface |
20 interface |
21 uses SDLh, uConsts, uFloat; |
21 uses SDLh, uConsts, uFloat; |
22 {$INCLUDE options.inc} |
22 {$INCLUDE "options.inc"} |
23 const AllInactive: boolean = false; |
23 const AllInactive: boolean = false; |
24 PrvInactive: boolean = false; |
24 PrvInactive: boolean = false; |
25 |
25 |
26 type PGear = ^TGear; |
26 type PGear = ^TGear; |
27 TGearStepProcedure = procedure (Gear: PGear); |
27 TGearStepProcedure = procedure (Gear: PGear); |
115 procedure ShotgunShot(Gear: PGear); forward; |
115 procedure ShotgunShot(Gear: PGear); forward; |
116 procedure PickUp(HH, Gear: PGear); forward; |
116 procedure PickUp(HH, Gear: PGear); forward; |
117 procedure HHSetWeapon(Gear: PGear); forward; |
117 procedure HHSetWeapon(Gear: PGear); forward; |
118 |
118 |
119 |
119 |
120 {$INCLUDE GSHandlers.inc} |
120 {$INCLUDE "GSHandlers.inc"} |
121 {$INCLUDE HHHandlers.inc} |
121 {$INCLUDE "HHHandlers.inc"} |
122 |
122 |
123 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
123 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
124 @doStepBomb, |
124 @doStepBomb, |
125 @doStepHedgehog, |
125 @doStepHedgehog, |
126 @doStepGrenade, |
126 @doStepGrenade, |