hedgewars/uWorld.pas
changeset 988 cdff3f6f9b38
parent 965 a4d5fc8eec7a
child 1023 2a32ee7affa3
equal deleted inserted replaced
987:0fcd3fadda41 988:cdff3f6f9b38
   274 i:= 8;
   274 i:= 8;
   275 for grp:= Low(TCapGroup) to High(TCapGroup) do
   275 for grp:= Low(TCapGroup) to High(TCapGroup) do
   276     with Captions[grp] do
   276     with Captions[grp] do
   277          if Tex <> nil then
   277          if Tex <> nil then
   278             begin
   278             begin
   279             DrawCentered(cScreenWidth div 2, i + cConsoleYAdd, Tex);
   279             DrawCentered(cScreenWidth div 2, i, Tex);
   280             inc(i, Tex^.h + 2);
   280             inc(i, Tex^.h + 2);
   281             if EndTime <= RealTicks then
   281             if EndTime <= RealTicks then
   282                begin
   282                begin
   283                FreeTexture(Tex);
   283                FreeTexture(Tex);
   284                Tex:= nil;
   284                Tex:= nil;
   308                         DrawHealthY,
   308                         DrawHealthY,
   309                         @r, HealthTex);
   309                         @r, HealthTex);
   310       end;
   310       end;
   311 
   311 
   312 // Lag alert
   312 // Lag alert
   313 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (RealTicks shr 7) mod 12);
   313 if isInLag then DrawSprite(sprLag, 32, 32, (RealTicks shr 7) mod 12);
   314 
   314 
   315 // Wind bar
   315 // Wind bar
   316 DrawSprite(sprWindBar, cScreenWidth - 180, cScreenHeight - 30, 0);
   316 DrawSprite(sprWindBar, cScreenWidth - 180, cScreenHeight - 30, 0);
   317 if WindBarWidth > 0 then
   317 if WindBarWidth > 0 then
   318    begin
   318    begin