hedgewars/uGearsHandlersMess.pas
changeset 14013 967ed77d6aef
parent 14012 cfbea054754c
child 14014 d203bb36225f
equal deleted inserted replaced
14012:cfbea054754c 14013:967ed77d6aef
  2594 begin
  2594 begin
  2595     HHGear := Gear^.Hedgehog^.Gear;
  2595     HHGear := Gear^.Hedgehog^.Gear;
  2596     HHGear^.State := HHGear^.State or gstNoDamage;
  2596     HHGear^.State := HHGear^.State or gstNoDamage;
  2597     DeleteCI(HHGear);
  2597     DeleteCI(HHGear);
  2598 
  2598 
       
  2599     ClearHitOrder();
       
  2600     RefillProximityCache(Gear, 100);
  2599     for i:= 0 to 3 do
  2601     for i:= 0 to 3 do
  2600         begin
  2602         begin
  2601         AddVisualGear(hwRound(Gear^.X) + hwSign(Gear^.dX) * (10 + 6 * i), hwRound(Gear^.Y) + 12 + Random(6), vgtDust);
  2603         AddVisualGear(hwRound(Gear^.X) + hwSign(Gear^.dX) * (10 + 6 * i), hwRound(Gear^.Y) + 12 + Random(6), vgtDust);
  2602         AmmoShove(Gear, Gear^.Boom, 25);
  2604         AmmoShoveCache(Gear, Gear^.Boom, 25);
  2603         Gear^.X := Gear^.X + Gear^.dX * 5
  2605         Gear^.X := Gear^.X + Gear^.dX * 5
  2604         end;
  2606         end;
  2605 
  2607 
       
  2608     ClearHitOrder();
       
  2609     ClearProximityCache();
  2606     HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving;
  2610     HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving;
  2607 
  2611 
  2608     Gear^.Timer := 250;
  2612     Gear^.Timer := 250;
  2609     Gear^.doStep := @doStepIdle
  2613     Gear^.doStep := @doStepIdle
  2610 end;
  2614 end;