@@ 1285,6 1285,20 @@ define-scene : ild state
           "@}-,-`-"
 
 
+define-scene : happy-birthday state
+    Enter : Singer
+    Singer :solemn
+        Happy Birthday to you,
+        Happy Birthday to you,
+        Happy Birthday as little funny text-rpg,
+        Happy Birthday to you.
+    Choose
+        : repeat
+          ,(happy-birthday state)
+        : quit
+          Please enjoy your day! ☺
+
+
 define : final-action? args
    ;; abuse revealed-count for speed scaling
    set-speed-normal!