equal
deleted
inserted
replaced
131 r.y:= 0; |
131 r.y:= 0; |
132 drY:= - 4; |
132 drY:= - 4; |
133 for t:= 0 to Pred(TeamsCount) do |
133 for t:= 0 to Pred(TeamsCount) do |
134 with TeamsArray[t]^ do |
134 with TeamsArray[t]^ do |
135 begin |
135 begin |
136 NameTagTex:= RenderStringTex(TeamName, Clan^.Color, Font); |
136 NameTagTex:= RenderStringTex(TeamName, Clan^.Color, Font, cTeamHealthWidth); |
137 |
137 |
138 r.w:= cTeamHealthWidth + 5; |
138 r.w:= cTeamHealthWidth + 5; |
139 r.h:= NameTagTex^.h; |
139 r.h:= NameTagTex^.h; |
140 |
140 |
141 texsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, r.w, r.h, 32, RMask, GMask, BMask, AMask); |
141 texsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, r.w, r.h, 32, RMask, GMask, BMask, AMask); |
197 DrawHealthY:= drY; |
197 DrawHealthY:= drY; |
198 for i:= 0 to 7 do |
198 for i:= 0 to 7 do |
199 with Hedgehogs[i] do |
199 with Hedgehogs[i] do |
200 if Gear <> nil then |
200 if Gear <> nil then |
201 begin |
201 begin |
202 NameTagTex:= RenderStringTex(Name, Clan^.Color, fnt16); |
202 NameTagTex:= RenderStringTex(Name, Clan^.Color, fnt16, cTeamHealthWidth); |
203 if Hat <> 'NoHat' then |
203 if Hat <> 'NoHat' then |
204 begin |
204 begin |
205 if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then |
205 if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then |
206 LoadHedgehogHat(Gear, 'Reserved/' + Copy(Hat,9,Length(Hat)-8)) |
206 LoadHedgehogHat(Gear, 'Reserved/' + Copy(Hat,9,Length(Hat)-8)) |
207 else |
207 else |