hedgewars/uGearsHandlersMess.pas
changeset 10796 f7cdca3ed697
parent 10794 ace862eda192
parent 10795 5672d43e8d88
child 10797 6458fd2f5636
equal deleted inserted replaced
10794:ace862eda192 10796:f7cdca3ed697
  1866                     Gear^.Hedgehog:= CurrentHedgehog;
  1866                     Gear^.Hedgehog:= CurrentHedgehog;
  1867                     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Karma, Gear^.Hedgehog, EXPLAutoSound);
  1867                     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Karma, Gear^.Hedgehog, EXPLAutoSound);
  1868                     DeleteGear(Gear);
  1868                     DeleteGear(Gear);
  1869                     exit
  1869                     exit
  1870                     end;
  1870                     end;
  1871                 Gear^.State:= Gear^.State and not gstAttacking;
  1871                 Gear^.State:= Gear^.State and (not gstAttacking);
  1872                 Gear^.Timer:= Gear^.WDTimer
  1872                 Gear^.Timer:= Gear^.WDTimer
  1873                 end;
  1873                 end;
  1874             dec(Gear^.Timer);
  1874             dec(Gear^.Timer);
  1875             end
  1875             end
  1876     else // gsttmpFlag = 0
  1876     else // gsttmpFlag = 0