equal
deleted
inserted
replaced
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 procedure HedgehogStep(Gear: PGear); forward; |
|
90 procedure HedgehogChAngle(Gear: PGear); forward; |
90 |
91 |
91 {$INCLUDE GSHandlers.inc} |
92 {$INCLUDE GSHandlers.inc} |
92 {$INCLUDE HHHandlers.inc} |
93 {$INCLUDE HHHandlers.inc} |
93 |
94 |
94 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
95 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
263 end; |
264 end; |
264 gtAirBomb: begin |
265 gtAirBomb: begin |
265 Result.Radius:= 10; |
266 Result.Radius:= 10; |
266 end; |
267 end; |
267 gtBlowTorch: begin |
268 gtBlowTorch: begin |
268 Result.Timer:= 6000; |
269 Result.Timer:= 7500; |
269 end; |
270 end; |
270 end; |
271 end; |
271 InsertGearToList(Result) |
272 InsertGearToList(Result) |
272 end; |
273 end; |
273 |
274 |