equal
deleted
inserted
replaced
84 procedure AmmoFlameWork(Ammo: PGear); forward; |
84 procedure AmmoFlameWork(Ammo: PGear); forward; |
85 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: integer): PGear; forward; |
85 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: integer): PGear; forward; |
86 procedure SpawnBoxOfSmth; forward; |
86 procedure SpawnBoxOfSmth; forward; |
87 procedure AfterAttack; forward; |
87 procedure AfterAttack; forward; |
88 procedure FindPlace(Gear: PGear; withFall: boolean; Left, Right: integer); forward; |
88 procedure FindPlace(Gear: PGear; withFall: boolean; Left, Right: integer); forward; |
|
89 procedure HedgehogStep(Gear: PGear); forward; |
89 |
90 |
90 {$INCLUDE GSHandlers.inc} |
91 {$INCLUDE GSHandlers.inc} |
91 {$INCLUDE HHHandlers.inc} |
92 {$INCLUDE HHHandlers.inc} |
92 |
93 |
93 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
94 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
116 doStepActionTimer, |
117 doStepActionTimer, |
117 doStepActionTimer, |
118 doStepActionTimer, |
118 doStepActionTimer, |
119 doStepActionTimer, |
119 doStepParachute, |
120 doStepParachute, |
120 doStepAirAttack, |
121 doStepAirAttack, |
121 doStepAirBomb |
122 doStepAirBomb, |
|
123 doStepBlowTorch |
122 ); |
124 ); |
123 |
125 |
124 procedure InsertGearToList(Gear: PGear); |
126 procedure InsertGearToList(Gear: PGear); |
125 var tmp: PGear; |
127 var tmp: PGear; |
126 begin |
128 begin |
257 end; |
259 end; |
258 gtFirePunch: begin |
260 gtFirePunch: begin |
259 Result.Radius:= 15; |
261 Result.Radius:= 15; |
260 Result.Tag:= Y |
262 Result.Tag:= Y |
261 end; |
263 end; |
262 gtAirBomb: begin |
264 gtAirBomb: begin |
263 Result.Radius:= 10; |
265 Result.Radius:= 10; |
264 end; |
266 end; |
|
267 gtBlowTorch: begin |
|
268 Result.Timer:= 6000; |
|
269 end; |
265 end; |
270 end; |
266 InsertGearToList(Result) |
271 InsertGearToList(Result) |
267 end; |
272 end; |
268 |
273 |
269 procedure DeleteGear(Gear: PGear); |
274 procedure DeleteGear(Gear: PGear); |