adding strength potion transformation.

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

@@ -6,6 +6,10 @@
 (declare wool)
 (declare cat-toy)
 (declare flask-1-with-milk)
+(declare slobber)
+(declare flask-1-strength)
+(declare flask-1-with-cream-of-mushroom)
+
 (def make-cat-toy
   (actions/get-script entities
                       (actions/remove-item entities stick)
@@ -18,8 +22,6 @@
 (def carrot {:name "Carrot" :value :carrot :cursor :carrot})
 
 (def flask-1-with-mushrooms {:name "Flask with mushrooms" :value :flask-1-with-mushrooms :cursor :flask-with-contents}) 
-(def flask-1-with-cream-of-mushroom {:name "Flask with cream of mushrooms soup" :value :flask-1-with-cream-of-mushroom :cursor :flask-with-contents}) 
-
 
 (defn make-cream-of-mushroom []
   (actions/get-script entities
@@ -32,7 +34,7 @@
 (def flask-1-with-milk {:name "Flask with milk" :value :flask-1-with-milk :cursor :flask-with-contents
                         :scripts {:mushrooms (make-cream-of-mushroom)}}) 
 
-(def flask-1-strength {:name "Strength potion" :value :flask-1-strength :cursor :flask-with-contents}) 
+(def flask-1-strength {:name "Strength potion" :value :flask-1-strength :cursor :flask-with-strength}) 
 (def flask-1 {:name "Flask" :value :flask-1 :cursor :flask
               :scripts {:mushrooms (actions/get-script entities
                                                       (actions/remove-item entities flask-1)
@@ -56,4 +58,15 @@
 (def motivational-tapes {:name "Choicest motivational tapes" :value :motivational-tapes :cursor :motivational-tapes})
 (def used-earplugs {:name "Choicest used earplugs" :value :used-earplugs :cursor :used-earplugs})
 (def grass {:name "Huge grass" :value :grass :cursor :grass})
-(def slobber {:name "Bull slobber" :value :slobber :cursor :slobber})
+
+(defn make-strength-potion []
+  (actions/get-script entities
+                      (actions/remove-item entities flask-1-with-cream-of-mushroom)
+                      (actions/remove-item entities slobber)
+                      (actions/give entities flask-1-strength)
+                      (actions/talk entities :ego "It's the completed potion of strength!")))
+
+(def slobber {:name "Bull slobber" :value :slobber :cursor :slobber :scripts {:flask-1-with-cream-of-mushroom (make-strength-potion)}})
+(def flask-1-with-cream-of-mushroom {:name "Flask with cream of mushrooms soup" :value :flask-1-with-cream-of-mushroom :cursor :flask-with-contents
+                                     :scripts {:slobber (make-strength-potion)}}) 
+