♻️ Wake up routine runs once

includes/Characters.inf

@@ -1,6 +1,3 @@
 Include "Computer.inf";
 
-Object lights "Lights"
-    with name 'lights',
-    found_in [; rtrue; ],
-    has static scenery;
+NPC pirate_leader "Pirate Leader";

includes/Classes.inf

@@ -7,12 +7,12 @@ Class Room
     ],
     has light;
 
-! Class Set
-!     with before [;
-!         Examine: return false;
-!         default: print_ret "You can't do that with ", (the) self, ".";
-!     ],
-!     has scenery;
+Class Set
+    with before [;
+        Examine: return false;
+        default: print_ret "You can't do that with ", (the) self, ".";
+    ],
+    has scenery;
 
 Class Decoration
     with before [;
@@ -28,3 +28,5 @@ Class Decoration
 !             print_ret (the) self, " is too heavy for that.";
 !     ],
 !     has supporter;
+
+Class NPC has animate;

includes/Globals.inf

@@ -0,0 +1,8 @@
+Global woke = false;
+
+[ OutOfBed;
+    if (woke) rfalse;
+    woke = true;
+    StopDaemon(red_alert);
+    print "Good morning^";
+];

includes/Items.inf

@@ -9,4 +9,9 @@ Decoration poster "Starfleet recruitment poster" bunk
 Decoration red_alert "Red alert"
     with daemon [;
         "A red alert sounds";
-    ];
+    ];
+
+Set lights "Lights"
+    with name 'lights',
+    found_in [; rtrue; ],
+    has static concealed;

includes/Rooms.inf

@@ -9,6 +9,6 @@ Room bunk "your bunk" lower_decks
       description "Your bunk is like every other bunk on the lower decks.^
            It's barely big enough to fit you. But it's home.",
       after [;
-          Exit: StopDaemon(red_alert);
+          Exit: OutOfBed();
       ],
     has proper enterable container static ~open ~light;