hedgewars/uStore.pas
branch0.9.20
changeset 9909 b2e868026bb0
parent 9807 a44963cc6648
child 9950 2759212a27de
child 9993 76ad55807c24
equal deleted inserted replaced
9907:129614d78ae8 9909:b2e868026bb0
   242                     NameTagTex:= RenderStringTexLim(Name, Clan^.Color, fnt16, cTeamHealthWidth);
   242                     NameTagTex:= RenderStringTexLim(Name, Clan^.Color, fnt16, cTeamHealthWidth);
   243                     if Hat = 'NoHat' then
   243                     if Hat = 'NoHat' then
   244                         begin
   244                         begin
   245                         if (month = 4) and (md = 20) then
   245                         if (month = 4) and (md = 20) then
   246                             Hat := 'eastertop'   // Easter
   246                             Hat := 'eastertop'   // Easter
   247                         else if (month = 12) and ((md = 25) or (md = 24)) then
   247                         else if (month = 12) and ((md = 24) or (md = 25) or (md = 26)) then
   248                             Hat := 'Santa'       // Christmas/Christmas Eve
   248                             Hat := 'Santa'       // Christmas Eve/Christmas/Boxing Day
   249                         else if (month = 10) and (md = 31) then
   249                         else if (month = 10) and (md = 31) then
   250                             Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday
   250                             Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday
   251                         end;
   251                         end;
   252                     
   252                     
   253                     if Hat <> 'NoHat' then
   253                     if Hat <> 'NoHat' then