hedgewars/uWorld.pas
changeset 446 692c75d46a4b
parent 408 6c3da4907d00
child 498 9c8b385dc9a1
equal deleted inserted replaced
445:fb66abeb551f 446:692c75d46a4b
   293                         @r, Surface);
   293                         @r, Surface);
   294       team:= team^.Next
   294       team:= team^.Next
   295       end;
   295       end;
   296 
   296 
   297 // Lag alert
   297 // Lag alert
   298 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (hwFloatTicks shr 7) mod 7, Surface);
   298 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (hwFloatTicks shr 7) mod 12, Surface);
   299 
   299 
   300 // Wind bar
   300 // Wind bar
   301 DrawGear(sWindBar, cScreenWidth - 180, cScreenHeight - 30, Surface);
   301 DrawGear(sWindBar, cScreenWidth - 180, cScreenHeight - 30, Surface);
   302 if WindBarWidth > 0 then
   302 if WindBarWidth > 0 then
   303    begin
   303    begin