| changeset 32 | 78bff13b11c0 |
| parent 24 | 79c411363184 |
| child 35 | 9367f246fb5f |
| 31:99888245a4e8 | 32:78bff13b11c0 |
|---|---|
72 procedure AssignHHCoords; |
72 procedure AssignHHCoords; |
73 |
73 |
74 var CurAmmoGear: PGear = nil; |
74 var CurAmmoGear: PGear = nil; |
75 |
75 |
76 implementation |
76 implementation |
77 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand; |
77 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO; |
78 var GearsList: PGear = nil; |
78 var GearsList: PGear = nil; |
79 RopePoints: record |
79 RopePoints: record |
80 Count: Longword; |
80 Count: Longword; |
81 HookAngle: integer; |
81 HookAngle: integer; |
82 ar: array[0..300] of record |
82 ar: array[0..300] of record |
88 |
88 |
89 procedure DeleteGear(Gear: PGear); forward; |
89 procedure DeleteGear(Gear: PGear); forward; |
90 procedure doMakeExplosion(X, Y, Radius: integer; Mask: LongWord); forward; |
90 procedure doMakeExplosion(X, Y, Radius: integer; Mask: LongWord); forward; |
91 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: integer): PGear; forward; |
91 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: integer): PGear; forward; |
92 procedure SpawnBoxOfSmth; forward; |
92 procedure SpawnBoxOfSmth; forward; |
93 procedure AfterAttack; forward; |
|
93 |
94 |
94 {$INCLUDE GSHandlers.inc} |
95 {$INCLUDE GSHandlers.inc} |
95 {$INCLUDE HHHandlers.inc} |
96 {$INCLUDE HHHandlers.inc} |
96 |
97 |
97 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
98 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |