hedgewars/uGears.pas
changeset 688 e4d1fb310a66
parent 656 6d6d9d7b1054
child 689 f4ec46c48ed2
--- a/hedgewars/uGears.pas	Wed Dec 26 22:18:34 2007 +0000
+++ b/hedgewars/uGears.pas	Sun Dec 30 15:24:02 2007 +0000
@@ -490,7 +490,7 @@
                       GameTicks div 32 mod 16, Surface);
         if (Gear^.State and (gstMoving or gstDrowning)) = 0 then
            if (Gear^.State and gstHHThinking) <> 0 then
-              DrawGear(sQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, Surface)
+              DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0, Surface)
               else
               if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
                  DrawSurfSprite(Round(hwRound(Gear^.X) + hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx - 11,
@@ -562,7 +562,7 @@
         if b then
            begin
            inc(roplen);
-           if (roplen mod 4) = 0 then DrawGear(sRopeNode, x - 2, y - 2, Surface)
+           if (roplen mod 4) = 0 then DrawSprite(sprRopeNode, x - 2, y - 2, 0, Surface)
            end
        end
     end;