2304     HHGear := Gear^.Hedgehog^.Gear;

  2304     dec(Gear^.Timer);

  2305     HHGear^.State := HHGear^.State or gstNoDamage;

  2305     if Gear^.Timer = 0 then

  2306     DeleteCI(HHGear);

  2306         begin

  2307 

  2307         inc(Gear^.Tag);

  2308     AmmoShove(Gear, Gear^.Boom, 115);

  2308         Gear^.Timer := 100

  2309 

  2309         end;

  2310     HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving;

  2310 

  2311     Gear^.Timer := 250;

  2311     if Gear^.Tag = 5 then

  2312     Gear^.doStep := @doStepIdle

  2312         begin

  2313         HHGear := Gear^.Hedgehog^.Gear;

  2314         HHGear^.State := HHGear^.State or gstNoDamage;

  2315         DeleteCI(HHGear);

  2316 

  2317         AmmoShove(Gear, Gear^.Boom, 115);

  2318 

  2319         HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving;

  2320         Gear^.Timer := 250;

  2321         Gear^.doStep := @doStepIdle

  2322         end