hedgewars/uStore.pas
branchqmlfrontend
changeset 10606 8e95911cb86b
parent 10526 b43d175d1577
child 10626 2562797ab3cf
--- a/hedgewars/uStore.pas	Sat Nov 22 00:55:01 2014 +0300
+++ b/hedgewars/uStore.pas	Wed Dec 03 00:07:33 2014 +0300
@@ -273,6 +273,11 @@
                         else if (month = 10) and (md = 31) then
                             Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday
                         end;
+                    if (month = 4) and (md = 1) then
+                        begin
+                        AprilOne:= true;
+                        Hat := 'fr_tomato'; // avoid promoting violence to hedgehogs. see http://hedgewars.org/node/5818
+                        end;
 
                     if Hat <> 'NoHat' then
                         begin