(ns advent.screens.rooms.inside-house (:require [advent.screens.items :as items] [advent.screens.rooms :as rooms] [advent.screens.rooms.common :as common] [advent.screens.safe :as safe] [advent.actions :as actions] [advent.utils :as utils] [clojure.zip :as zip] [play-clj.core :refer :all] [play-clj.ui :refer :all] [play-clj.utils :refer :all] [play-clj.g2d :refer :all])) (defn open-safe [entities] (screen! safe/safe-screen :show-screen :success (actions/get-script entities (if (actions/has-item? entities :recipe) (do (actions/play-animation entities :ego :squat) (actions/talk entities :ego "I already took everything interesting from there.")) (do (actions/talk entities :ego "Yes! That worked.") (actions/talk entities :ego "Let's see here...") (actions/play-animation entities :ego :squat) (actions/talk entities :ego "No, that's a recipe to turn someone into a professional dancer...") (actions/play-animation entities :ego :squat) (actions/talk entities :ego "Here's a recipe to make everything taste like cotton candy. I'll just put that back.") (actions/play-animation entities :ego :squat) (actions/give entities :recipe) (actions/talk entities :ego "Aha! Here it is! I found a recipe for a strength potion!") (actions/talk entities :ego "Looks like there's something else in here too...") (actions/play-animation entities :ego :squat) (actions/give entities :mandrake) (actions/talk entities :ego "Weird. It's some kind of root.")))) :failure (actions/get-script entities (actions/talk entities :ego "I don't think that worked..."))) (actions/update-state entities #(assoc % :active? false))) (defn do-wizard-dialogue [entities] (actions/do-dialogue entities :wizard "What can I do for you boy?") (actions/present-choices entities {:choices ["What's with the safe?" {:run #(actions/respond entities % :wizard "That's my MagiSafe 5000." :wizard "It's used to keep whipper-snappers like you out of my precious belongings." :wizard "It's a magical safe only opened when the correct musical password is entered." :ego "What's the password?" :wizard "That's for me to know.") :choices actions/previous-choices} (when (not (actions/has-obtained-all-of? entities [:trophy :medal :kiss])) "Will you help me become a knight?") {:run #(actions/respond entities % :wizard "To become a knight you will need to be worthy in courage, wisdom, and might." :wizard "Only then can you become worthy to pull the Sword of Blergh, and become a knight.") :choices [(when (not (actions/has-obtained? entities :trophy)) "How can I prove that I'm worthy in wisdom?") {:run #(actions/respond entities % :wizard "Every year we have the annual Town of Remington Junior Smarty Pants Derby." :wizard "The whole town gets together to vote on who is the wisest in town, by a game of riddles." :wizard "Last year's winner was a young man named Brian O'Brainy, in town." :wizard "Maybe you can ask him.") :choices actions/previous-choices} (when (not (actions/has-obtained? entities :medal)) "Can you make some kind of potion to make me strong?") {:run #(actions/respond entities % :wizard "Of course I could." :wizard "I keep all sorts of potion recipes in my MagiSafe 5000." :wizard "I can turn a weakling into an olympic lifter." :wizard "But that would be cheating wouldn't it?" :wizard "Unfortunately, you're on your own.") :choices actions/previous-choices} (when (not (actions/has-obtained? entities :kiss)) "Aren't I already courageous enough?") {:run #(actions/respond entities % :wizard "When was the last time you rescued a damsel in distress?" :ego "Erm..." :wizard "Fought a firebreathing dragon?" :ego "Umm..." :wizard "Saved an old lady from a burning building?" :wizard "Stave off zombies from the eternal graveyard?" :wizard "Rescued a stranded cat?" :ego "I haven't done any of those things!" :wizard "Seems to me you have to go do some heroic deeds!") :choices actions/previous-choices} "Something else." {:choices actions/something-else}]} (when (actions/has-obtained-all-of? entities [:trophy :medal :kiss]) "Will you help me become a knight?") {:run #(actions/respond entities % :wizard "It looks to me as if you are ready to pull the sword, boy!") :choices actions/previous-choices} (when (= 3 (get-in @entities [:state :mints-eaten])) "The antique shopkeeper needs more fire mints.") {:run #(do (actions/respond entities % :wizard "Already?" :wizard "Ok, I'll deliver them myself. Don't touch anything while I'm gone.") (actions/update-state entities (fn [s] (assoc s :mints-eaten 0 :wizard-left? true))) (sound! (sound "inside-house/disappear.ogg") :play) (actions/play-animation entities :wizard :disappear :stop? false) (actions/remove-entity entities :wizard))} "Nevermind." {:run #(actions/do-dialogue entities :ego %)}]})) (defn make [screen] (let [safelock-sheet (texture! (texture "inside-house/safe-lock.png") :split 9 2) safe-lock (animation 0.1 (for [i (flatten [(repeat 20 0) 1 2 1 2 1 2 1 2 1 2 1 1 2 1 2 1 2 1 2 1 2 1 (range 3 20) 20 20 20 20 21 21 21 21 21 20 20 21 21 21 21 21 20 20 20 ])] (aget safelock-sheet 0 i))) candle (utils/make-anim (texture "inside-house/candle.png") [34 32] 0.2 [1 0 1 2])] (rooms/make :music :inside-fangald :interactions {:down-dir {:box [151 0 320 20] :script (actions/get-script entities (actions/update-state entities #(assoc % :wizard-left? false)) (actions/walk-to entities :ego [237 1]) (actions/transition-background entities :outside-house [262 88])) :cursor :down} :safe {:box [34 70 70 115] :script (actions/get-script entities (actions/walk-to entities :ego [59 65]) (if (get-in @entities [:room :entities :wizard]) (actions/talk entities :wizard "Don't touch my MagiSafe!!") (open-safe entities)))} :knight {:box [71 70 102 190] :script (actions/get-script entities (actions/talk entities :ego "Maybe when I am an older knight, Gandarf will give me his armor!"))} :shelves {:box [215 100 320 220] :script (actions/get-script entities (actions/talk entities :ego "His shelves are full of books and strange ingredients."))} :window {:box [119 120 203 190] :script (actions/get-script entities (actions/talk entities :ego "It's a really big window!"))}} :layers [(assoc (texture "inside-house/background.png") :x 0 :y 0 :baseline 0) (assoc (texture "inside-house/desk.png") :x 0 :y 0 :baseline 200) (assoc (texture "inside-house/sillhoute.png") :x 0 :y 0 :baseline 240)] :entities {:wizard (common/make-wizard screen {:x 228 :y 80 :baseline 160 :scale-x 1.75 :scale-y 1.75 :script (actions/get-script entities (do-wizard-dialogue entities)) :scripts #(condp = % :kiss (actions/get-script entities (actions/do-dialogue entities :wizard "Good job boy! You saved a damsel in distress." :wizard "You have proven yourself worthy in courage.")) :medal (actions/get-script entities (actions/do-dialogue entities :wizard "So you beat Captain McHulk at arm wrestling? " :wizard "You must have been working out!")) :trophy (actions/get-script entities (actions/do-dialogue entities :wizard "My, my, you have proven your worth in wisdom!" :wizard "One day you'll be as wise as me!")) :recipe (actions/get-script entities (actions/do-dialogue entities :ego "I probably shouldn't show him that I have his stolen posessions.")) :frog-legs (actions/get-script entities (actions/do-dialogue entities :ego "I probably shouldn't show him that I have his stolen posessions.")) :mandrake (actions/get-script entities (actions/do-dialogue entities :ego "I probably shouldn't show him that I have his stolen posessions.")) :flask-1 (actions/get-script entities (actions/do-dialogue entities :wizard "You can keep the flask.")) (actions/get-script entities (actions/do-dialogue entities :wizard "No thank you.")))}) :safe-lock (actions/start-animation screen (assoc (animation->texture screen safe-lock) :x 51 :y 95 :baseline 145 :stand safe-lock) :stand) :candle (assoc (animation->texture screen candle) :x 157 :y 92 :baseline 200 :anim candle :anim-start 0 :script (actions/get-script entities (actions/do-dialogue entities :ego "It's just a candle."))) :flask (assoc (texture "inside-house/flask.png") :x 265 :y 80 :baseline 240 :script (actions/get-script entities (actions/remove-entity entities :flask) (actions/give entities :flask-1) (when (get-in @entities [:room :entities :wizard]) (actions/do-dialogue entities :ego "Hey you think I could have this flask?" :wizard "Sure.")))) :frog-legs (assoc (texture "inside-house/frog-legs.png") :x 180 :y 77 :baseline 240 :script (actions/get-script entities (if (get-in @entities [:room :entities :wizard]) (actions/do-dialogue entities :wizard "Hey, I need those frog legs for one of my spells!") (do (actions/give entities :frog-legs) (actions/remove-entity entities :frog-legs) (actions/do-dialogue entities :ego "Eww. Frog legs.")))))} :collision "inside-house/collision.png" :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.75) :apply-state (fn [entities] (as-> entities entities (if (actions/has-obtained? entities :flask-1) (update-in entities [:room :entities] #(dissoc % :flask)) entities) (if (actions/has-obtained? entities :frog-legs) (update-in entities [:room :entities] #(dissoc % :frog-legs)) entities) (if (get-in entities [:state :wizard-left?]) (update-in entities [:room :entities] #(dissoc % :wizard)) entities))) :start-pos [237 0])))