notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor tweaks.

Browse Source
This commit is contained in:
Bryce Covert
2015-08-14 23:12:55 -07:00
parent a8da84facf
commit f670f25d82
2 changed files with 25 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
desktop/src-common/advent/screens/rooms/outside_castle.clj
View File

@@ -175,11 +175,16 @@
(actions/transition-background entities :castle-gate [340 40]) (actions/transition-background entities :castle-gate [340 40])
(actions/walk-straight-to entities :ego [300 45]) (actions/walk-straight-to entities :ego [300 45])
(if (get-in @entities [:state :seen-frankie?]) (if (get-in @entities [:state :seen-frankie?])
(do ((rand-nth [#(do
(actions/do-dialogue entities (actions/do-dialogue entities
:frankie "Well, well, well. What have we here boys?" :frankie "Well, well, well. What have we here boys?"
:frankie "It's good ol' Dipstick again.") :frankie "It's good ol' Dipstick again.")
(actions/play-animation entities :frankie :laugh)) (actions/play-animation entities :frankie :laugh))
#(do
(actions/do-dialogue entities
:frankie "Quiet boys."
:frankie "Dipstick's here.")
)]))
(do (do
(actions/do-dialogue entities :frankie "Well, well, well. What have we here boys?") (actions/do-dialogue entities :frankie "Well, well, well. What have we here boys?")
(actions/play-animation entities :frankie :glance) (actions/play-animation entities :frankie :glance)
@@ -242,16 +247,16 @@
(actions/update-state entities #(assoc % :seen-frankie? true))) (actions/update-state entities #(assoc % :seen-frankie? true)))
(defn go-through-gate [entities] (defn go-through-gate [entities & {:keys [skip-type stop?] :or {skip-type :end stop? true}}]
(if (should-block? entities) (if (should-block? entities)
(do (do
(actions/walk-to entities :ego [82 180] :face :left :skip-type :end) (actions/walk-to entities :ego [82 180] :face :left :skip-type skip-type)
(block-entrance entities)) (block-entrance entities))
(do (do
(actions/walk-to entities :ego [82 180] :skip-type :end :stop? false) (actions/walk-to entities :ego [82 180] :skip-type skip-type :stop? false)
(actions/walk-straight-to entities :ego [61 182]) (actions/walk-straight-to entities :ego [61 182])
(actions/transition-background entities :inside-castle [295 145]) (actions/transition-background entities :inside-castle [295 145])
(actions/walk-to entities :ego [245 90] :skip-type :end)))) (actions/walk-to entities :ego [245 90] :skip-type skip-type :stop? stop?))))
(defn add-note-if-necessary [entities] (defn add-note-if-necessary [entities]

18
desktop/src-common/advent/screens/rooms/outside_house.clj
View File

@@ -37,17 +37,19 @@
(done? [this screen entities] (done? [this screen entities]
true) true)
(terminate [this screen entities] (terminate [this screen entities]
entities))) entities)
(skip-type [this screen entities]
:none)))
(defn walk-to-castle [entities] (defn walk-to-castle [entities & {:keys [skip-type stop?] :or {skip-type :end stop? true}}]
(actions/walk-to entities :ego [0 80] :skip-type :end) (actions/walk-to entities :ego [0 80] :skip-type skip-type)
(actions/walk-straight-to entities :ego [-20 80]) (actions/walk-straight-to entities :ego [-20 80])
(actions/transition-background entities :outside-castle [330 80]) (actions/transition-background entities :outside-castle [330 80])
(actions/walk-straight-to entities :ego [319 80] :stop? false) (actions/walk-straight-to entities :ego [319 80] :stop? false)
(actions/walk-to entities :ego [273 81] :skip-type :end)) (actions/walk-to entities :ego [273 81] :skip-type skip-type :stop? stop?))
(def ego-sheep-loc (def ego-sheep-loc
[132 140]) [132 140])
@@ -84,7 +86,9 @@
(done? [this screen entities] (done? [this screen entities]
(particle-effect! (get-in entities [:room :entities :magic]) :is-complete)) (particle-effect! (get-in entities [:room :entities :magic]) :is-complete))
(terminate [this screen entities] (terminate [this screen entities]
entities))) entities)
(skip-type [this screen entities]
:none)))
(defn put-something-in-cauldron [item] (defn put-something-in-cauldron [item]
(condp = item (condp = item
@@ -117,8 +121,8 @@
:ego "And just in time, too. It's getting light.") :ego "And just in time, too. It's getting light.")
(actions/update-state entities #(assoc % :next-time :sunrise :seen-bloodclot? false)) (actions/update-state entities #(assoc % :next-time :sunrise :seen-bloodclot? false))
(walk-to-castle entities) (walk-to-castle entities :skip-type :none :stop? false)
(outside-castle/go-through-gate entities) (outside-castle/go-through-gate entities :skip-type :none :stop? false)
(actions/update-state entities #(assoc % :next-time :day)) (actions/update-state entities #(assoc % :next-time :day))
(inside-castle/walk-to-blergh entities) (inside-castle/walk-to-blergh entities)
(actions/do-dialogue entities (actions/do-dialogue entities