nice little queue for the amount of mints.

This commit is contained in:
Bryce Covert
2016-04-19 17:48:46 -07:00
parent f440eeb3ff
commit 33b4e8bb88
4 changed files with 94 additions and 47 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.2 KiB

After

Width:  |  Height:  |  Size: 1.2 KiB

View File

@@ -48,7 +48,7 @@ black
index: -1 index: -1
butterfly butterfly
rotate: false rotate: false
xy: 481, 13 xy: 1106, 844
size: 14, 7 size: 14, 7
orig: 14, 7 orig: 14, 7
offset: 0, 0 offset: 0, 0
@@ -179,21 +179,7 @@ cat-tree/dot
orig: 1, 1 orig: 1, 1
offset: 0, 0 offset: 0, 0
index: -1 index: -1
wizard/dot dream/dot
rotate: false
xy: 704, 916
size: 1, 1
orig: 1, 1
offset: 0, 0
index: -1
ego/dot
rotate: false
xy: 704, 916
size: 1, 1
orig: 1, 1
offset: 0, 0
index: -1
inside-house/dot
rotate: false rotate: false
xy: 704, 916 xy: 704, 916
size: 1, 1 size: 1, 1
@@ -214,13 +200,6 @@ inside-antique/dot
orig: 1, 1 orig: 1, 1
offset: 0, 0 offset: 0, 0
index: -1 index: -1
dream/dot
rotate: false
xy: 704, 916
size: 1, 1
orig: 1, 1
offset: 0, 0
index: -1
inside-jail/dot inside-jail/dot
rotate: false rotate: false
xy: 704, 916 xy: 704, 916
@@ -235,6 +214,27 @@ title/dot
orig: 1, 1 orig: 1, 1
offset: 0, 0 offset: 0, 0
index: -1 index: -1
ego/dot
rotate: false
xy: 704, 916
size: 1, 1
orig: 1, 1
offset: 0, 0
index: -1
wizard/dot
rotate: false
xy: 704, 916
size: 1, 1
orig: 1, 1
offset: 0, 0
index: -1
inside-house/dot
rotate: false
xy: 704, 916
size: 1, 1
orig: 1, 1
offset: 0, 0
index: -1
cat-tree/grandma cat-tree/grandma
rotate: false rotate: false
xy: 1228, 839 xy: 1228, 839
@@ -615,21 +615,21 @@ held/bloodclot-head-1
index: -1 index: -1
held/dot held/dot
rotate: false rotate: false
xy: 707, 916 xy: 1992, 1733
size: 1, 1
orig: 1, 1
offset: 0, 0
index: -1
outside-jail/dot
rotate: false
xy: 707, 916
size: 1, 1 size: 1, 1
orig: 1, 1 orig: 1, 1
offset: 0, 0 offset: 0, 0
index: -1 index: -1
space/dot space/dot
rotate: false rotate: false
xy: 707, 916 xy: 1992, 1733
size: 1, 1
orig: 1, 1
offset: 0, 0
index: -1
outside-jail/dot
rotate: false
xy: 1992, 1733
size: 1, 1 size: 1, 1
orig: 1, 1 orig: 1, 1
offset: 0, 0 offset: 0, 0
@@ -657,9 +657,37 @@ inside-antique/beard
index: -1 index: -1
inside-antique/bowl inside-antique/bowl
rotate: false rotate: false
xy: 1842, 1488 xy: 1944, 1733
size: 12, 7 size: 14, 13
orig: 12, 7 orig: 14, 13
offset: 0, 0
index: -1
inside-antique/bowl-0
rotate: false
xy: 1944, 1733
size: 14, 13
orig: 14, 13
offset: 0, 0
index: -1
inside-antique/bowl-1
rotate: false
xy: 1960, 1733
size: 14, 13
orig: 14, 13
offset: 0, 0
index: -1
inside-antique/bowl-2
rotate: false
xy: 1976, 1733
size: 14, 13
orig: 14, 13
offset: 0, 0
index: -1
inside-antique/bowl-3
rotate: false
xy: 481, 7
size: 14, 13
orig: 14, 13
offset: 0, 0 offset: 0, 0
index: -1 index: -1
inside-antique/shopkeep inside-antique/shopkeep
@@ -1266,7 +1294,7 @@ wizard/disappear
index: -1 index: -1
wizard/flame wizard/flame
rotate: false rotate: false
xy: 1106, 841 xy: 1992, 1736
size: 5, 10 size: 5, 10
orig: 5, 10 orig: 5, 10
offset: 0, 0 offset: 0, 0

Binary file not shown.

Before

Width:  |  Height:  |  Size: 672 KiB

After

Width:  |  Height:  |  Size: 673 KiB

View File

@@ -366,6 +366,10 @@
:baseline 240) :baseline 240)
(particle-effect! :set-position 162 104)) (particle-effect! :set-position 162 104))
:bowl (assoc (utils/get-texture "inside-antique/bowl.png") :bowl (assoc (utils/get-texture "inside-antique/bowl.png")
:images [(utils/get-texture "inside-antique/bowl-0.png")
(utils/get-texture "inside-antique/bowl-1.png")
(utils/get-texture "inside-antique/bowl-2.png")
(utils/get-texture "inside-antique/bowl-3.png")]
:x 165 :x 165
:y 110 :y 110
:baseline 125 :baseline 125
@@ -385,6 +389,15 @@
(actions/talk entities :ego "I'll just try another one of these mints.")) (actions/talk entities :ego "I'll just try another one of these mints."))
(actions/play-animation entities :ego :reach) (actions/play-animation entities :ego :reach)
(actions/update-state entities (fn [s] (assoc s :mints-eaten (inc (s :mints-eaten))))) (actions/update-state entities (fn [s] (assoc s :mints-eaten (inc (s :mints-eaten)))))
(actions/update-entities entities
(fn [entities]
(update-in entities
[:room :entities :bowl]
(fn [b]
(merge b
(get-in b [:images (- 3
(get-in entities [:state :mints-eaten] 0))])
)))))
(actions/play-sound entities (keyword (str "fire-" (get-in @entities [:state :mints-eaten]))) 0.8) (actions/play-sound entities (keyword (str "fire-" (get-in @entities [:state :mints-eaten]))) 0.8)
(cond (cond
@@ -412,16 +425,22 @@
:teddy (rooms/make-entity :teddy teddy) :teddy (rooms/make-entity :teddy teddy)
:collision "inside-antique/collision.png" :collision "inside-antique/collision.png"
:apply-state (fn [_ entities] :apply-state (fn [_ entities]
(as-> entities entities (let [mints-eaten (get-in entities [:state :mints-eaten] 0)]
(if (or (actions/has-item? entities :teddy) (as-> entities entities
(actions/has-obtained? entities :balloon)) (if (or (actions/has-item? entities :teddy)
(update-in entities [:room :entities] #(dissoc % :teddy)) (actions/has-obtained? entities :balloon))
entities) (update-in entities [:room :entities] #(dissoc % :teddy))
entities)
(if (actions/has-item? entities :portrait )
entities (update-in entities
(assoc-in entities [:room :entities :portrait] (get-in entities [:room :portrait]))) [:room :entities :bowl]
(choose-correct-blind-state entities) (fn [b]
)) (merge b (get-in b [:images (- 3 mints-eaten)]))))
(if (actions/has-item? entities :portrait )
entities
(assoc-in entities [:room :entities :portrait] (get-in entities [:room :portrait])))
(choose-correct-blind-state entities)
)))
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.75) :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.75)
:start-pos [222 3]))) :start-pos [222 3])))