hedgewars/uWorld.pas
changeset 146 458f4f58c1b6
parent 110 330a2dbacd67
child 154 5667e6f38704
equal deleted inserted replaced
145:e593d5266e01 146:458f4f58c1b6
   239       r.y:= team.DrawHealthY;
   239       r.y:= team.DrawHealthY;
   240       r.w:= team.NameTag.w;
   240       r.w:= team.NameTag.w;
   241       r.h:= team.NameTag.h;
   241       r.h:= team.NameTag.h;
   242       SDL_UpperBlit(team.NameTag, nil, Surface, @r);
   242       SDL_UpperBlit(team.NameTag, nil, Surface, @r);
   243       r:= team.HealthRect;
   243       r:= team.HealthRect;
   244       r.w:= 2 + team.TeamHealth;
   244       r.w:= 2 + team.TeamHealthBarWidth;
   245       DrawFromStoreRect(cScreenWidth div 2,
   245       DrawFromStoreRect(cScreenWidth div 2,
   246                         Team.DrawHealthY,
   246                         Team.DrawHealthY,
   247                         @r, Surface);
   247                         @r, Surface);
   248       inc(r.x, cTeamHealthWidth + 2);
   248       inc(r.x, cTeamHealthWidth + 2);
   249       r.w:= 3;
   249       r.w:= 3;
   250       DrawFromStoreRect(cScreenWidth div 2 + team.TeamHealth + 2,
   250       DrawFromStoreRect(cScreenWidth div 2 + team.TeamHealthBarWidth + 2,
   251                         Team.DrawHealthY,
   251                         Team.DrawHealthY,
   252                         @r, Surface);
   252                         @r, Surface);
   253       team:= team.Next
   253       team:= team.Next
   254       end;
   254       end;
   255 
   255