hedgewars/uGears.pas
changeset 3310 e6e9b811d32f
parent 3302 0973c5af5141
child 3322 80afcb97eb46
equal deleted inserted replaced
3309:a68632232d1a 3310:e6e9b811d32f
   922 m:= 1;
   922 m:= 1;
   923 if ((Gear^.State and gstHHHJump) <> 0) and not cArtillery then m:= -1;
   923 if ((Gear^.State and gstHHHJump) <> 0) and not cArtillery then m:= -1;
   924 if (Gear^.State and gstHHDeath) <> 0 then
   924 if (Gear^.State and gstHHDeath) <> 0 then
   925     begin
   925     begin
   926     DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
   926     DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
       
   927     exit
       
   928     end
       
   929 else if (Gear^.State and gstHHGone) <> 0 then
       
   930     begin
       
   931     DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, Gear^.Pos, hwSign(Gear^.dX), 0);
   927     exit
   932     exit
   928     end;
   933     end;
   929 
   934 
   930 defaultPos:= true;
   935 defaultPos:= true;
   931 HatVisible:= false;
   936 HatVisible:= false;