bloodclot scene.

desktop/src-common/advent/screens/rooms/common.clj

@@ -93,3 +93,18 @@
 
 (defn listen-to-frankie [entities]
   ((rand-nth [listen-1 listen-2 listen-3]) entities))
+
+
+(defn win []
+  (actions/get-script entities
+                      (actions/do-dialogue entities
+                                           :ego "Hey Bloodclot!"
+                                           :ego "I have this potion which will make me as strong as you!"
+                                           :bloodclot-head "What?!"
+                                           :bloodclot-head "Give it here!")
+                      (actions/transition-background entities :space [200 45])
+                      (actions/do-dialogue entities
+                                           :bloodclot-head "Yes!"
+                                           :bloodclot-head "Ultimate power is mine!"
+                                           :bloodclot-head "If I drink this entire bottle, I'll be as powerful as a god!")
+                      (Thread/sleep 5000)))