hedgewars/uWorld.pas
changeset 689 f4ec46c48ed2
parent 678 5cf90dbcb309
child 690 e9d35e319328
--- a/hedgewars/uWorld.pas	Sun Dec 30 15:24:02 2007 +0000
+++ b/hedgewars/uWorld.pas	Sun Dec 30 16:19:41 2007 +0000
@@ -232,14 +232,14 @@
 // Attack bar
 if CurrentTeam <> nil then
    case AttackBar of
-        1: begin
+(*        1: begin
            r:= StuffPoz[sPowerBar];
            {$WARNINGS OFF}
            r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor;
            {$WARNINGS ON}
            DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface);
            end;
-        2: with CurrentHedgehog^ do
+*)        2: with CurrentHedgehog^ do
                 begin
                 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle);
                 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle);
@@ -294,32 +294,26 @@
 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (RealTicks shr 7) mod 12, Surface);
 
 // Wind bar
-DrawGear(sWindBar, cScreenWidth - 180, cScreenHeight - 30, Surface);
+DrawSprite(sprWindBar, cScreenWidth - 180, cScreenHeight - 30, 0, Surface);
 if WindBarWidth > 0 then
    begin
-   with StuffPoz[sWindR] do
-        begin
-        {$WARNINGS OFF}
-        r.x:= x + 8 - (RealTicks shr 6) mod 8;
-        {$WARNINGS ON}
-        r.y:= y;
-        r.w:= WindBarWidth;
-        r.h:= 13;
-        end;
-   DrawSpriteFromRect(r, cScreenWidth - 103, cScreenHeight - 28, 13, 0, Surface);
+   {$WARNINGS OFF}
+   r.x:= 8 - (RealTicks shr 6) mod 8;
+   {$WARNINGS ON}
+   r.y:= 0;
+   r.w:= WindBarWidth;
+   r.h:= 13;
+   DrawSpriteFromRect(sprWindR, r, cScreenWidth - 103, cScreenHeight - 28, 13, 0, Surface);
    end else
  if WindBarWidth < 0 then
    begin
-   with StuffPoz[sWindL] do
-        begin
-        {$WARNINGS OFF}
-        r.x:= x + (WindBarWidth + RealTicks shr 6) mod 8;
-        {$WARNINGS ON}
-        r.y:= y;
-        r.w:= - WindBarWidth;
-        r.h:= 13;
-        end;
-   DrawSpriteFromRect(r, cScreenWidth - 106 + WindBarWidth, cScreenHeight - 28, 13, 0, Surface);
+   {$WARNINGS OFF}
+   r.x:= (WindBarWidth + RealTicks shr 6) mod 8;
+   {$WARNINGS ON}
+   r.y:= 0;
+   r.w:= - WindBarWidth;
+   r.h:= 13;
+   DrawSpriteFromRect(sprWindL, r, cScreenWidth - 106 + WindBarWidth, cScreenHeight - 28, 13, 0, Surface);
    end;
 
 // AmmoMenu