equal
deleted
inserted
replaced
151 i, maxLevel: LongInt; |
151 i, maxLevel: LongInt; |
152 r: TSDL_Rect; |
152 r: TSDL_Rect; |
153 drY: LongInt; |
153 drY: LongInt; |
154 texsurf, flagsurf, iconsurf: PSDL_Surface; |
154 texsurf, flagsurf, iconsurf: PSDL_Surface; |
155 foundBot: boolean; |
155 foundBot: boolean; |
|
156 year, month, md : word; |
156 begin |
157 begin |
157 if cOnlyStats then exit; |
158 if cOnlyStats then exit; |
158 r.x:= 0; |
159 r.x:= 0; |
159 r.y:= 0; |
160 r.y:= 0; |
160 drY:= - 4; |
161 drY:= - 4; |
|
162 DecodeDate(Date, year, month, md); |
161 for t:= 0 to Pred(TeamsCount) do |
163 for t:= 0 to Pred(TeamsCount) do |
162 with TeamsArray[t]^ do |
164 with TeamsArray[t]^ do |
163 begin |
165 begin |
164 NameTagTex:= RenderStringTexLim(TeamName, Clan^.Color, Font, cTeamHealthWidth); |
166 NameTagTex:= RenderStringTexLim(TeamName, Clan^.Color, Font, cTeamHealthWidth); |
165 |
167 |
234 for i:= 0 to cMaxHHIndex do |
236 for i:= 0 to cMaxHHIndex do |
235 with Hedgehogs[i] do |
237 with Hedgehogs[i] do |
236 if Gear <> nil then |
238 if Gear <> nil then |
237 begin |
239 begin |
238 NameTagTex:= RenderStringTexLim(Name, Clan^.Color, fnt16, cTeamHealthWidth); |
240 NameTagTex:= RenderStringTexLim(Name, Clan^.Color, fnt16, cTeamHealthWidth); |
|
241 if Hat = 'NoHat' then |
|
242 begin |
|
243 if ((month = 4) and (md = 20)) then |
|
244 Hat := 'eastertop'; // Easter |
|
245 if ((month = 12) and (md = 25)) then |
|
246 Hat := 'Santa'; // Christmas |
|
247 if ((month = 10) and (md = 31)) then |
|
248 Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday |
|
249 end; |
|
250 |
239 if Hat <> 'NoHat' then |
251 if Hat <> 'NoHat' then |
240 begin |
252 begin |
241 if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then |
253 if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then |
242 LoadHedgehogHat(Hedgehogs[i], 'Reserved/' + Copy(Hat,9,Length(Hat)-8)) |
254 LoadHedgehogHat(Hedgehogs[i], 'Reserved/' + Copy(Hat,9,Length(Hat)-8)) |
243 else |
255 else |