equal
deleted
inserted
replaced
153 {$INCLUDE "HHHandlers.inc"} |
153 {$INCLUDE "HHHandlers.inc"} |
154 |
154 |
155 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
155 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
156 @doStepBomb, |
156 @doStepBomb, |
157 @doStepHedgehog, |
157 @doStepHedgehog, |
158 @doStepGrenade, |
158 @doStepShell, |
159 @doStepGrave, |
159 @doStepGrave, |
160 @doStepBee, |
160 @doStepBee, |
161 @doStepShotgunShot, |
161 @doStepShotgunShot, |
162 @doStepPickHammer, |
162 @doStepPickHammer, |
163 @doStepRope, |
163 @doStepRope, |
290 gear^.Hedgehog:= CurrentHedgehog; |
290 gear^.Hedgehog:= CurrentHedgehog; |
291 gear^.IntersectGear:= CurrentHedgehog^.Gear |
291 gear^.IntersectGear:= CurrentHedgehog^.Gear |
292 end; |
292 end; |
293 |
293 |
294 case Kind of |
294 case Kind of |
295 gtAmmo_Bomb, |
295 gtBomb, |
296 gtClusterBomb, |
296 gtClusterBomb, |
297 gtGasBomb: begin |
297 gtGasBomb: begin |
298 gear^.ImpactSound:= sndGrenadeImpact; |
298 gear^.ImpactSound:= sndGrenadeImpact; |
299 gear^.nImpactSounds:= 1; |
299 gear^.nImpactSounds:= 1; |
300 gear^.AdvBounce:= 1; |
300 gear^.AdvBounce:= 1; |
323 gear^.Z:= cHHZ; |
323 gear^.Z:= cHHZ; |
324 if (GameFlags and gfAISurvival) <> 0 then |
324 if (GameFlags and gfAISurvival) <> 0 then |
325 if PHedgehog(gear^.Hedgehog)^.BotLevel > 0 then |
325 if PHedgehog(gear^.Hedgehog)^.BotLevel > 0 then |
326 PHedgehog(gear^.Hedgehog)^.Effects[heResurrectable] := true; |
326 PHedgehog(gear^.Hedgehog)^.Effects[heResurrectable] := true; |
327 end; |
327 end; |
328 gtAmmo_Grenade: begin // bazooka |
328 gtShell: begin |
329 gear^.Radius:= 4; |
329 gear^.Radius:= 4; |
330 end; |
330 end; |
331 gtGrave: begin |
331 gtGrave: begin |
332 gear^.ImpactSound:= sndGraveImpact; |
332 gear^.ImpactSound:= sndGraveImpact; |
333 gear^.nImpactSounds:= 1; |
333 gear^.nImpactSounds:= 1; |