making cat toys.

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

@@ -1,7 +1,18 @@
 (ns advent.screens.items
   (:require [advent.actions :as actions]))
 
-(def wool {:name "Wool" :value :wool :cursor :wool})
+
+(declare stick)
+(declare wool)
+(declare cat-toy)
+(def make-cat-toy
+  (actions/get-script entities
+                      (actions/remove-item entities stick)
+                      (actions/remove-item entities wool)
+                      (actions/give entities cat-toy)
+                      (actions/talk entities :ego "It makes a little cat toy!")))
+
+(def wool {:name "Wool" :value :wool :cursor :wool :scripts {:stick make-cat-toy}})
 (def mushrooms {:name "Mushrooms" :value :mushrooms :cursor :mushrooms})
 (def carrot {:name "Carrot" :value :carrot :cursor :carrot})
 
@@ -16,15 +27,19 @@
                       (actions/talk entities :ego "It's just like cream of mushroom soup.")))
 
 (def flask-1-with-milk {:name "Flask with milk" :value :flask-1-with-milk :cursor :flask-with-contents
-                        :scripts {mushrooms (make-cream-of-mushroom-from flask-1-with-milk)}}) 
+                        :scripts {:mushrooms (make-cream-of-mushroom-from flask-1-with-milk)}}) 
 
 (def flask-1-strength {:name "Strength potion" :value :flask-1-strength :cursor :flask-with-contents}) 
 (def flask-1 {:name "Flask" :value :flask-1 :cursor :flask
-              :scripts {mushrooms (actions/get-script entities
+              :scripts {:mushrooms (actions/get-script entities
                                                       (actions/remove-item entities flask-1)
                                                       (actions/give entities flask-1-with-mushrooms)
                                                       (actions/talk entities :ego "I'll just put a few of these in here."))}})
 
 (def cards {:name "Warlock's Tower cards" :value :cards :cursor :cards})
 (def cheat-deck {:name "Warlock's Tower cheat deck" :value :cheat-deck :cursor :cheat-deck})
-(def stick {:name "Stick" :value :stick :cursor :stick})
+
+(def cat-toy {:name "Cat toy" :value :cat-toy :cursor :cat-toy})
+(def stick {:name "Stick" :value :stick :cursor :stick :scripts {:wool make-cat-toy}})
+
+