hedgewars/uStore.pas
changeset 10526 b43d175d1577
parent 10510 9329dab04490
child 10626 2562797ab3cf
equal deleted inserted replaced
10525:019b4fbb21d4 10526:b43d175d1577
   270                             Hat := 'eastertop'   // Easter
   270                             Hat := 'eastertop'   // Easter
   271                         else if (month = 12) and ((md = 24) or (md = 25) or (md = 26)) then
   271                         else if (month = 12) and ((md = 24) or (md = 25) or (md = 26)) then
   272                             Hat := 'Santa'       // Christmas Eve/Christmas/Boxing Day
   272                             Hat := 'Santa'       // Christmas Eve/Christmas/Boxing Day
   273                         else if (month = 10) and (md = 31) then
   273                         else if (month = 10) and (md = 31) then
   274                             Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday
   274                             Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday
       
   275                         end;
       
   276                     if (month = 4) and (md = 1) then
       
   277                         begin
       
   278                         AprilOne:= true;
       
   279                         Hat := 'fr_tomato'; // avoid promoting violence to hedgehogs. see http://hedgewars.org/node/5818
   275                         end;
   280                         end;
   276 
   281 
   277                     if Hat <> 'NoHat' then
   282                     if Hat <> 'NoHat' then
   278                         begin
   283                         begin
   279                         if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then
   284                         if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then