Goon dropping
This commit is contained in:
@@ -4,6 +4,7 @@
|
||||
[advent.screens.items :as items]
|
||||
[advent.screens.rooms.common :as common]
|
||||
[advent.utils :as utils]
|
||||
[advent.screens.dialogue :as dialogue]
|
||||
|
||||
[advent.tween :as tween]
|
||||
[clojure.zip :as zip]
|
||||
@@ -148,11 +149,13 @@
|
||||
:script (actions/get-script entities
|
||||
(if (get-in @entities [:tweens :coin-y])
|
||||
(do
|
||||
|
||||
(actions/talk entities :ego "Hey goon!" :wait false)
|
||||
(actions/update-entities entities (fn [entities]
|
||||
(update-in entities [:tweens] dissoc :coin-y)))
|
||||
|
||||
(actions/walk-straight-to entities :coin-flip [212 90] :update-baseline? false :speed 3.0)
|
||||
(screen! dialogue/talking-screen :stop-talk :target-id :ego)
|
||||
(actions/do-stop entities :ego)
|
||||
|
||||
(actions/walk-straight-to entities :coin-flip [210 105] :update-baseline? false :speed 1.0)
|
||||
(Thread/sleep 50)
|
||||
@@ -165,7 +168,8 @@
|
||||
(actions/walk-straight-to entities :coin-flip [192 70] :update-baseline? false :speed 0.5)
|
||||
(Thread/sleep 50)
|
||||
(actions/walk-straight-to entities :coin-flip [185 44] :update-baseline? false :speed 0.5)
|
||||
(actions/update-state entities (fn [s] (assoc s :has-dropped-coin? true))))
|
||||
(actions/update-state entities (fn [s] (assoc s :has-dropped-coin? true)))
|
||||
(actions/talk entities :frankie "You made me lose my coin, Dipstick!"))
|
||||
(actions/talk entities :ego "Hey goon!")))
|
||||
:night-profile :sprite
|
||||
:anim-start 0
|
||||
@@ -196,7 +200,7 @@
|
||||
walkie-visible (animation 1.0 [(last (utils/split-texture "castle-gate/throw-walkie.png" [205 136] (range 9)))])
|
||||
walkie-invisible (animation 1.0 [(first (utils/split-texture "castle-gate/throw-walkie.png" [205 136] (range 9)))])]
|
||||
(rooms/make :music {:day :town-2 :night :night}
|
||||
:timers {:taunt [4.0 8.0 flip-coin]}
|
||||
:timers {:taunt [4.0 11.0 flip-coin]}
|
||||
:interactions {:right-dir {:box [300 40 320 83]
|
||||
:script (actions/get-script entities
|
||||
(actions/walk-to entities :ego [301 46] :face :right)
|
||||
|
||||
Reference in New Issue
Block a user