From c5cbb7387eacabe178f33b4926086afd7cdd27a9 Mon Sep 17 00:00:00 2001
From: = <bryce@brycecovertoperations.com>
Date: Mon, 15 Sep 2014 20:31:30 -0700
Subject: [PATCH] first stateful interaction.

---
 desktop/src-common/advent/actions.clj       | 18 ++++++++++++++++++
 desktop/src-common/advent/screens/scene.clj |  6 +++++-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/desktop/src-common/advent/actions.clj b/desktop/src-common/advent/actions.clj
index 1a54e471..cf98621e 100644
--- a/desktop/src-common/advent/actions.clj
+++ b/desktop/src-common/advent/actions.clj
@@ -125,3 +125,21 @@
               (run! dialogue/talking-screen :stop-talk :target-id target-id)
               (stop screen entities target-id))))
     (<!! c)))
+
+(defn give [entities target-id item]
+  (let [c (chan)]
+    (put! (get-in entities [:actions :channel])
+          (reify
+            IAction
+            (begin [this screen entities]
+              (update-in entities [target-id :inventory] #(conj % item)))
+
+            (continue [this screen entities] entities)
+
+            (done? [this screen entities]
+              true)
+
+            (terminate [this screen entities]
+              (put! c entities)
+              entities)))
+    (<!! c)))
diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj
index 65d2c979..87094b0b 100644
--- a/desktop/src-common/advent/screens/scene.clj
+++ b/desktop/src-common/advent/screens/scene.clj
@@ -101,6 +101,7 @@
              :origin-x 9 
              :origin-y 0 
              :scaled true
+             :inventory #{}
              :x 150 :y 95
              :id "ego"}]
     (merge (texture (animation! (:right ego) :get-key-frame 0.25)) ego)))
@@ -223,7 +224,10 @@
                                            (actions/talk entities :ego (str "Aww, it's a cute little sheep.")))
                                           :touch
                                           (actions/get-script
-                                           (actions/talk entities :ego "I guess his wool is shedding.")) 
+                                           (if ((get-in entities [:ego :inventory]) :wool)
+                                             (actions/talk entities :ego "The sheep has given me enough wool.")
+                                             (do (actions/give entities :ego :wool)
+                                                 (actions/talk entities :ego "I guess his wool is shedding.")))) 
                                           nil)))]
                      :scale-fn (scaler-fn-with-baseline 110 0.10 1.00)
                      :layers [(assoc background :x 0 :y 0 :baseline 0)