hedgewars/uGears.pas
changeset 3310 e6e9b811d32f
parent 3302 0973c5af5141
child 3322 80afcb97eb46
--- a/hedgewars/uGears.pas	Tue Apr 06 09:58:43 2010 +0000
+++ b/hedgewars/uGears.pas	Tue Apr 06 10:51:09 2010 +0000
@@ -925,6 +925,11 @@
     begin
     DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
     exit
+    end
+else if (Gear^.State and gstHHGone) <> 0 then
+    begin
+    DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, Gear^.Pos, hwSign(Gear^.dX), 0);
+    exit
     end;
 
 defaultPos:= true;