hedgewars/uWorld.pas
changeset 2571 349b4c586ef5
parent 2569 6f77dd38294a
child 2579 e5e4ebf528b5
equal deleted inserted replaced
2570:7093e3413594 2571:349b4c586ef5
   532    r.x:= 8 - (RealTicks shr 6) mod 8;
   532    r.x:= 8 - (RealTicks shr 6) mod 8;
   533    {$WARNINGS ON}
   533    {$WARNINGS ON}
   534    r.y:= 0;
   534    r.y:= 0;
   535    r.w:= WindBarWidth;
   535    r.w:= WindBarWidth;
   536    r.h:= 13;
   536    r.h:= 13;
   537    DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - 103, cScreenHeight - offset - 2, 13, 0);
   537    DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - 103, cScreenHeight - offset + 2, 13, 0);
   538    end else
   538    end else
   539  if WindBarWidth < 0 then
   539  if WindBarWidth < 0 then
   540    begin
   540    begin
   541    {$WARNINGS OFF}
   541    {$WARNINGS OFF}
   542    r.x:= (WindBarWidth + RealTicks shr 6) mod 8;
   542    r.x:= (WindBarWidth + RealTicks shr 6) mod 8;
   543    {$WARNINGS ON}
   543    {$WARNINGS ON}
   544    r.y:= 0;
   544    r.y:= 0;
   545    r.w:= - WindBarWidth;
   545    r.w:= - WindBarWidth;
   546    r.h:= 13;
   546    r.h:= 13;
   547    DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - 106 + WindBarWidth, cScreenHeight - offset - 2, 13, 0);
   547    DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - 106 + WindBarWidth, cScreenHeight - offset + 2, 13, 0);
   548    end;
   548    end;
   549 
   549 
   550 // AmmoMenu
   550 // AmmoMenu
   551 if (AMxShift < 210) or bShowAmmoMenu then ShowAmmoMenu;
   551 if (AMxShift < 210) or bShowAmmoMenu then ShowAmmoMenu;
   552 
   552