hedgewars/uWorld.pas
changeset 764 7513452b1d51
parent 762 5ecf042f6113
child 770 0138f1b5a804
equal deleted inserted replaced
763:6286afff6b87 764:7513452b1d51
   280       DrawTexture(cScreenWidth div 2 - NameTagTex^.w - 3, DrawHealthY, NameTagTex);
   280       DrawTexture(cScreenWidth div 2 - NameTagTex^.w - 3, DrawHealthY, NameTagTex);
   281 
   281 
   282       r.x:= 0;
   282       r.x:= 0;
   283       r.y:= 0;
   283       r.y:= 0;
   284       r.w:= 2 + TeamHealthBarWidth;
   284       r.w:= 2 + TeamHealthBarWidth;
   285       r.h:= HealthSurf^.h;
   285       r.h:= HealthTex^.h;
   286 
   286 
   287 //      DrawFromRect(cScreenWidth div 2,
   287       DrawFromRect(cScreenWidth div 2,
   288 //                        DrawHealthY,
   288                         DrawHealthY,
   289 //                        @r, HealthSurf, Surface);
   289                         @r, HealthTex, Surface);
   290 
   290 
   291       inc(r.x, cTeamHealthWidth + 2);
   291       inc(r.x, cTeamHealthWidth + 2);
   292       r.w:= 3;
   292       r.w:= 3;
   293 
   293 
   294 //      DrawFromRect(cScreenWidth div 2 + TeamHealthBarWidth + 2,
   294       DrawFromRect(cScreenWidth div 2 + TeamHealthBarWidth + 2,
   295 //                        DrawHealthY,
   295                         DrawHealthY,
   296 //                        @r, HealthSurf, Surface);
   296                         @r, HealthTex, Surface);
   297       end;
   297       end;
   298 
   298 
   299 // Lag alert
   299 // Lag alert
   300 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (RealTicks shr 7) mod 12, Surface);
   300 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (RealTicks shr 7) mod 12, Surface);
   301 
   301 
   307    r.x:= 8 - (RealTicks shr 6) mod 8;
   307    r.x:= 8 - (RealTicks shr 6) mod 8;
   308    {$WARNINGS ON}
   308    {$WARNINGS ON}
   309    r.y:= 0;
   309    r.y:= 0;
   310    r.w:= WindBarWidth;
   310    r.w:= WindBarWidth;
   311    r.h:= 13;
   311    r.h:= 13;
   312 //   DrawSpriteFromRect(sprWindR, r, cScreenWidth - 103, cScreenHeight - 28, 13, 0, Surface);
   312    DrawSpriteFromRect(sprWindR, r, cScreenWidth - 103, cScreenHeight - 28, 13, 0, Surface);
   313    end else
   313    end else
   314  if WindBarWidth < 0 then
   314  if WindBarWidth < 0 then
   315    begin
   315    begin
   316    {$WARNINGS OFF}
   316    {$WARNINGS OFF}
   317    r.x:= (WindBarWidth + RealTicks shr 6) mod 8;
   317    r.x:= (WindBarWidth + RealTicks shr 6) mod 8;
   318    {$WARNINGS ON}
   318    {$WARNINGS ON}
   319    r.y:= 0;
   319    r.y:= 0;
   320    r.w:= - WindBarWidth;
   320    r.w:= - WindBarWidth;
   321    r.h:= 13;
   321    r.h:= 13;
   322 //   DrawSpriteFromRect(sprWindL, r, cScreenWidth - 106 + WindBarWidth, cScreenHeight - 28, 13, 0, Surface);
   322    DrawSpriteFromRect(sprWindL, r, cScreenWidth - 106 + WindBarWidth, cScreenHeight - 28, 13, 0, Surface);
   323    end;
   323    end;
   324 
   324 
   325 // AmmoMenu
   325 // AmmoMenu
   326 //if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface);
   326 //if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface);
   327 
   327