hedgewars/uStore.pas
changeset 9807 a44963cc6648
parent 9791 446e4919b738
child 9909 b2e868026bb0
equal deleted inserted replaced
9806:091054b78cad 9807:a44963cc6648
   240                 if Gear <> nil then
   240                 if Gear <> nil then
   241                     begin
   241                     begin
   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                         if ((month = 12) and (md = 25)) then
   247                         else if (month = 12) and ((md = 25) or (md = 24)) then
   248                             Hat := 'Santa'; // Christmas
   248                             Hat := 'Santa'       // Christmas/Christmas Eve
   249                         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
   254                         begin
   254                         begin