hedgewars/uWorld.pas
changeset 690 e9d35e319328
parent 689 f4ec46c48ed2
child 753 40fc0deb388f
equal deleted inserted replaced
689:f4ec46c48ed2 690:e9d35e319328
   276       r.x:= cScreenWidth div 2 - NameTag^.w - 3;
   276       r.x:= cScreenWidth div 2 - NameTag^.w - 3;
   277       r.y:= DrawHealthY;
   277       r.y:= DrawHealthY;
   278       r.w:= NameTag^.w;
   278       r.w:= NameTag^.w;
   279       r.h:= NameTag^.h;
   279       r.h:= NameTag^.h;
   280       SDL_UpperBlit(NameTag, nil, Surface, @r);
   280       SDL_UpperBlit(NameTag, nil, Surface, @r);
   281       r:= HealthRect;
   281 
       
   282       r.x:= 0;
       
   283       r.y:= 0;
   282       r.w:= 2 + TeamHealthBarWidth;
   284       r.w:= 2 + TeamHealthBarWidth;
   283       DrawFromStoreRect(cScreenWidth div 2,
   285       r.h:= HealthSurf^.h;
       
   286 
       
   287       DrawFromRect(cScreenWidth div 2,
   284                         DrawHealthY,
   288                         DrawHealthY,
   285                         @r, Surface);
   289                         @r, HealthSurf, Surface);
       
   290 
   286       inc(r.x, cTeamHealthWidth + 2);
   291       inc(r.x, cTeamHealthWidth + 2);
   287       r.w:= 3;
   292       r.w:= 3;
   288       DrawFromStoreRect(cScreenWidth div 2 + TeamHealthBarWidth + 2,
   293 
       
   294       DrawFromRect(cScreenWidth div 2 + TeamHealthBarWidth + 2,
   289                         DrawHealthY,
   295                         DrawHealthY,
   290                         @r, Surface);
   296                         @r, HealthSurf, Surface);
   291       end;
   297       end;
   292 
   298 
   293 // Lag alert
   299 // Lag alert
   294 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);
   295 
   301