ShuffledEventList in "Examine" action

experiment.t

@@ -45,5 +45,6 @@ gameMain: GameMainDef
 #include "src/room/orangeBathroom.t"
 
 #include "src/room/yellowRoom.t"
+#include "src/item/advertisingDisplay.t"
 
 #include "src/actor/pc.t"

src/item/advertisingDisplay.t

@@ -0,0 +1,24 @@
+advertisingDisplay: Decoration, Fixture
+  'bright lcd screen/display/monitor'
+  'bright lcd display'
+  " Huge and bright display mounted on the wall.<.p>
+    On the screen you see "
+
+  location = yellowRoom
+
+  dobjFor (Examine) {
+    action () {
+      inherited;
+      clips.doScript();
+      "<.p>";
+    }
+  }
+
+  clips: ShuffledEventList {[
+    'a bunch of different hieroglyphics on white background.',
+    'a glitched commercial of some drinks.',
+    'shuffled cuts from some softcore video.',
+    'some strange, unrelated words.',
+    'neat columns of hieroglyphs.'
+  ]}
+;