hedgewars/uGearsHandlersMess.pas
changeset 10795 5672d43e8d88
parent 10791 0311c9fa7498
child 10796 f7cdca3ed697
equal deleted inserted replaced
10793:f8e0961b463e 10795:5672d43e8d88
  1863                     Gear^.Hedgehog:= CurrentHedgehog;
  1863                     Gear^.Hedgehog:= CurrentHedgehog;
  1864                     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Karma, Gear^.Hedgehog, EXPLAutoSound);
  1864                     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Karma, Gear^.Hedgehog, EXPLAutoSound);
  1865                     DeleteGear(Gear);
  1865                     DeleteGear(Gear);
  1866                     exit
  1866                     exit
  1867                     end;
  1867                     end;
  1868                 Gear^.State:= Gear^.State and not gstAttacking;
  1868                 Gear^.State:= Gear^.State and (not gstAttacking);
  1869                 Gear^.Timer:= Gear^.WDTimer
  1869                 Gear^.Timer:= Gear^.WDTimer
  1870                 end;
  1870                 end;
  1871             dec(Gear^.Timer);
  1871             dec(Gear^.Timer);
  1872             end
  1872             end
  1873     else // gsttmpFlag = 0
  1873     else // gsttmpFlag = 0