more updates.
This commit is contained in:
Bryce Covert
@@ -105,7 +105,7 @@
|
||||
(rooms/make :music {:day :town-1 :night :night}
|
||||
:name "Fountain"
|
||||
:interactions {:down-dir {:box [30 0 227 40]
|
||||
:script (actions/get-script entities
|
||||
:only-script (actions/get-script entities
|
||||
(actions/walk-to entities :ego [159 5] :skip-type :end :stop? false)
|
||||
(actions/walk-straight-to entities :ego [159 -20])
|
||||
(actions/transition-background entities :inside-castle [92 150])
|
||||
@@ -113,24 +113,34 @@
|
||||
(actions/walk-to entities :ego [159 74] :skip-type :end))
|
||||
:cursor :down}
|
||||
:door {:box [22 42 46 124]
|
||||
:script (actions/get-script entities
|
||||
:cursor :left
|
||||
:only-script (actions/get-script entities
|
||||
(if (= :night (get-in @entities [:state :time]))
|
||||
(actions/talk entities :ego "I do NOT want to go back in there!")
|
||||
(do (actions/walk-to entities :ego [50 46])
|
||||
(actions/talk entities :warden "NO VISITORS!"))))}
|
||||
:window {:box [62 175 80 212]
|
||||
:label "Window"
|
||||
:cursor :look
|
||||
|
||||
:script (actions/get-script entities
|
||||
(if (= :night (get-in @entities [:state :time]))
|
||||
(actions/do-dialogue entities :ego "Boy am I glad to be out of there!"
|
||||
:ego "They didn't even give me my one telephone call!")
|
||||
(actions/talk entities :ego "I wonder if anyone is imprisoned up there?")))}
|
||||
:sign {:box [5 173 61 199]
|
||||
:label "Sign"
|
||||
:cursor :look
|
||||
:script (actions/get-script entities
|
||||
(actions/talk entities :ego "J.A.I.L. Jail. Can't you read?"))}
|
||||
:my-house {:box [89 128 118 179]
|
||||
:label "House"
|
||||
:cursor :look
|
||||
:script (actions/get-script entities
|
||||
(actions/talk entities :ego "That's my house. I'd rather play outside."))}
|
||||
:sherrif-house {:box [138 143 160 168]
|
||||
:label "Sherriff's house"
|
||||
:cursor :look
|
||||
:script (actions/get-script entities
|
||||
(actions/do-dialogue entities
|
||||
:ego "That's the Sheriff's house."
|
||||
@@ -139,6 +149,8 @@
|
||||
:ego "Or windows."
|
||||
:ego "What's the big deal?"))}
|
||||
:mchulk-house {:box [223 137 282 172]
|
||||
:label "Captain McHulk's house"
|
||||
:cursor :look
|
||||
:script (actions/get-script entities
|
||||
(actions/do-dialogue entities
|
||||
:ego "That's Captain McHulk's house!"
|
||||
@@ -146,6 +158,8 @@
|
||||
:ego "If only I could be as strong as he is one day."
|
||||
))}
|
||||
:stump {:box [205 68 251 100]
|
||||
:label "Stump"
|
||||
:cursor :hand
|
||||
:script (actions/get-script entities
|
||||
(actions/walk-to entities :ego [170 71] :face :right)
|
||||
(actions/walk-straight-to entities :ego [188 71] :face :right)
|
||||
@@ -178,6 +192,8 @@
|
||||
:frog-legs (actions/get-script entities (actions/talk entities :ego "They're already chopped up!"))
|
||||
:broken-clock (actions/get-script entities (actions/talk entities :ego "It's already split in half!"))}}
|
||||
:lever {:box [3 72 20 90]
|
||||
:label "Candle"
|
||||
:cursor :hand
|
||||
:script (actions/get-script entities
|
||||
(interact-with-lever entities))
|
||||
:scripts {:rope (actions/get-script entities
|
||||
@@ -202,14 +218,17 @@
|
||||
(actions/talk entities :ego "Why would I want to burn that?")
|
||||
(actions/talk entities :ego "The candle's not lit right now.")))}}
|
||||
:end-of-rope {:box [177 101 185 108]
|
||||
:label "Rope"
|
||||
:cursor :hand
|
||||
:script (actions/get-script entities (try-to-go-in-stash entities))}
|
||||
:fountain {:box [150 126 193 170]
|
||||
:label "Fountain"
|
||||
:cursor :look
|
||||
:script (actions/get-script entities
|
||||
(actions/walk-to entities :ego [151 119] :face :right)
|
||||
(actions/do-dialogue entities :ego "Some would say this is life-giving nectar."
|
||||
:ego "... Me?"
|
||||
:ego "I'd just as soon say it's nasty public fountain water.")
|
||||
(actions/play-animation entities :ego :get-sick))
|
||||
:ego "I'd just as soon say it's nasty public fountain water."))
|
||||
:scripts {:flask-2 (actions/get-script entities
|
||||
(actions/walk-to entities :ego [151 119] :face :right)
|
||||
(actions/play-animation entities :ego :reach)
|
||||
@@ -257,6 +276,8 @@
|
||||
:stand guard-stand
|
||||
:talk guard-talk
|
||||
:sleep guard-sleep
|
||||
:label "Knocked out guard"
|
||||
:cursor :hand
|
||||
:script (actions/get-script entities (search-guard entities))
|
||||
:night-profile :sprite))
|
||||
:rope (rooms/make-entity :rope (assoc (utils/get-texture "outside-jail/rope.png")
|
||||
@@ -264,9 +285,13 @@
|
||||
:spear (rooms/make-entity :spear (assoc (utils/get-texture "outside-jail/spear.png")
|
||||
:night-profile :none
|
||||
:x 60 :y 65 :baseline 180
|
||||
:label "Spear"
|
||||
:cursor :hand
|
||||
:script (actions/get-script entities (grab-spear entities))))
|
||||
:alarm-clock (rooms/make-entity :alarm-clock (assoc (utils/get-texture "outside-jail/alarm-clock.png")
|
||||
:x 217 :y 83 :baseline 160
|
||||
:label "Broken clock"
|
||||
:cursor :hand
|
||||
:script (actions/get-script entities
|
||||
(actions/walk-to entities :ego [189 65] :face :right)
|
||||
(actions/play-animation entities :ego :reach)
|
||||
@@ -285,15 +310,30 @@
|
||||
:apply-state (fn [screen entities]
|
||||
(utils/fast-forward-particle (get-in entities [:room :entities :outside-particles]))
|
||||
|
||||
|
||||
(as-> entities entities
|
||||
(utils/play-sound! screen entities (get-in entities [:room :fountain-sound :sound])
|
||||
(utils/sourced-volume-fn :fountain 0.06 [172 120])
|
||||
(utils/get-sound-pan 172)
|
||||
:loop)
|
||||
|
||||
(if (= :night (get-in entities [:state :time]))
|
||||
(make-night entities)
|
||||
(update-in entities [:room :entities] dissoc :candle-aura :candle-flame))
|
||||
(if (get-in entities [:state :dropped-ball?])
|
||||
(update-in entities [:room :entities :guard] #(actions/start-animation % :sleep))
|
||||
(update-in entities [:room :entities] dissoc :bent-bar-window )))))))
|
||||
|
||||
(if (get-in entities [:state :knows-about-stash?])
|
||||
(update-in entities [:room :interactions] (fn [xs]
|
||||
(for [i xs]
|
||||
(if (= (:id i)
|
||||
:lever)
|
||||
(assoc i :cursor :hand)
|
||||
i))))
|
||||
(update-in entities [:room :interactions] (fn [xs]
|
||||
(for [i xs]
|
||||
(if (= (:id i)
|
||||
:lever)
|
||||
(assoc i :cursor :look)
|
||||
i)))))
|
||||
|
||||
(if (= :night (get-in entities [:state :time]))
|
||||
(make-night entities)
|
||||
(update-in entities [:room :entities] dissoc :candle-aura :candle-flame))
|
||||
(if (get-in entities [:state :dropped-ball?])
|
||||
(update-in entities [:room :entities :guard] #(actions/start-animation % :sleep))
|
||||
(update-in entities [:room :entities] dissoc :bent-bar-window )))))))
|
||||
|
||||
Reference in New Issue
Block a user