diff --git a/desktop/resources/cursor.png b/desktop/resources/cursor.png index 782a841a..20ebbf60 100644 Binary files a/desktop/resources/cursor.png and b/desktop/resources/cursor.png differ diff --git a/desktop/src-common/advent/screens/items.clj b/desktop/src-common/advent/screens/items.clj index 9e50a60b..5ceb29a1 100644 --- a/desktop/src-common/advent/screens/items.clj +++ b/desktop/src-common/advent/screens/items.clj @@ -70,3 +70,5 @@ (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)}}) + +(def medal {:name "Medal of strength" :value :medal :cursor :medal}) diff --git a/desktop/src-common/advent/screens/rooms/inside_cafeteria.clj b/desktop/src-common/advent/screens/rooms/inside_cafeteria.clj index 37eb05af..0fac27b6 100644 --- a/desktop/src-common/advent/screens/rooms/inside_cafeteria.clj +++ b/desktop/src-common/advent/screens/rooms/inside_cafeteria.clj @@ -35,7 +35,21 @@ :warriors "Young esquire, thou art valiant in heart. " :warriors "Departeth henceforth and go hitherto, unto the gym.")} "I challenge you to a arm wrestling match to prove my strength." - {:run #(actions/respond entities % :warriors "[TODO] You lose.")} + {:run (fn [msg] + (actions/respond entities msg :warriors "Prepare thyself, thy task is not for the feint of heart") + (if ((set (get-in @entities [:state :inventory])) items/flask-1-strength) + (do + (actions/do-dialogue entities :ego "One sec.") + (actions/play-animation entities :ego :grow) + (actions/do-dialogue entities + :warriors "[Todo animation here]" + :warriors "Congratulations young master. Thou art worthy in might." + :warriors "Take my medal of strength.") + (actions/give entities items/medal)) + (do + (actions/do-dialogue entities + :warriors "[Todo animation here]" + :warriors "You lost, young master. Go hitherto, unto thy gym."))))} "Something else." {:choices actions/something-else}] } diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj index a173f230..beb4f8bc 100644 --- a/desktop/src-common/advent/screens/scene.clj +++ b/desktop/src-common/advent/screens/scene.clj @@ -227,7 +227,7 @@ :inside-fangald (make-music "inside-fangald.ogg")} :state {:object nil :active? true - :inventory [items/grass] + :inventory [items/grass items/flask-1-strength] :clues #{} :mints-eaten 0} :actions {:object nil diff --git a/desktop/src-common/advent/utils.clj b/desktop/src-common/advent/utils.clj index 0a0d4fda..270d14b2 100644 --- a/desktop/src-common/advent/utils.clj +++ b/desktop/src-common/advent/utils.clj @@ -11,7 +11,7 @@ (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})] (println (:input-x screen) (:input-y screen) "->" x y))) -(def +all-cursors+ [:main :wool :mushrooms :carrot :right :down :left :up :flask :flask-with-contents :trophy :stool :stick :cat-toy :balloon :frog-legs :teddy :portrait :recipe :glass-eye :motivational-tapes :used-earplugs :grass :slobber :flask-with-strength]) +(def +all-cursors+ [:main :wool :mushrooms :carrot :right :down :left :up :flask :flask-with-contents :trophy :stool :stick :cat-toy :balloon :frog-legs :teddy :portrait :recipe :glass-eye :motivational-tapes :used-earplugs :grass :slobber :flask-with-strength :medal]) (defn cursor [filename which] (let [scale 2