276 if Gear <> nil then |
276 if Gear <> nil then |
277 begin |
277 begin |
278 if ExtDriven then |
278 if ExtDriven then |
279 NameTagTex:= RenderStringTexLim(ansistring(Name), Clan^.Color, fnt16, cTeamHealthWidth) |
279 NameTagTex:= RenderStringTexLim(ansistring(Name), Clan^.Color, fnt16, cTeamHealthWidth) |
280 else NameTagTex:= RenderStringTex(ansistring(Name), Clan^.Color, fnt16); |
280 else NameTagTex:= RenderStringTex(ansistring(Name), Clan^.Color, fnt16); |
281 if Hat = 'NoHat' then |
281 if cHolidaySilliness then |
282 begin |
282 begin |
283 if (month = 4) and (md = 20) then |
283 // Special hats on special days |
284 Hat := 'eastertop' // Easter |
284 if Hat = 'NoHat' then |
285 else if (month = 12) and ((md = 24) or (md = 25) or (md = 26)) then |
285 begin |
286 Hat := 'Santa' // Christmas Eve/Christmas/Boxing Day |
286 if (month = 4) and (md = 20) then |
287 else if (month = 10) and (md = 31) then |
287 Hat := 'eastertop' // Easter |
288 Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday |
288 else if (month = 12) and ((md = 24) or (md = 25) or (md = 26)) then |
289 end; |
289 Hat := 'Santa' // Christmas Eve/Christmas/Boxing Day |
290 if (month = 4) and (md = 1) then |
290 else if (month = 10) and (md = 31) then |
291 begin |
291 Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday |
292 AprilOne:= true; |
292 end; |
293 Hat := 'fr_tomato'; // avoid promoting violence to hedgehogs. see https://hedgewars.org/node/5818 |
293 if (month = 4) and (md = 1) then |
|
294 begin |
|
295 AprilOne:= true; |
|
296 Hat := 'fr_tomato'; // avoid promoting violence to hedgehogs. see https://hedgewars.org/node/5818 |
|
297 end; |
294 end; |
298 end; |
295 |
299 |
296 if Hat <> 'NoHat' then |
300 if Hat <> 'NoHat' then |
297 begin |
301 begin |
298 if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then |
302 if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then |