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

cat toy can be off.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-06 07:37:39 -08:00
parent 2d042e5efe
commit 51998792a8
4 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
desktop/src-common/advent/screens/rooms/cat_tree.clj
View File

@@ -398,11 +398,13 @@
(update-in entities [:room :entities] #(dissoc % :cat))
entities)
(if (is-standing-on-ladder entities)
(-> entities
(update-in [:room :entities]
assoc :blank (get-in entities [:room :blank])
:ladder (get-in entities [:room :ladder]))
(update-in [:room :entities :ego ] assoc :x 140 :y 85))
(do
(-> entities
(update-in [:room :entities]
assoc :blank (get-in entities [:room :blank])
:ladder (get-in entities [:room :ladder]))
(update-in [:room :entities :ego ] assoc :x 140 :y 85 :facing :right :baseline (- 240 25))))
entities)
(if (= :night (get-in entities [:state :time]))
(make-night entities)

1
desktop/src-common/advent/screens/scene.clj
View File

@@ -720,6 +720,7 @@ void main ()
(get-in ego [:left :jump-straight]) {:origin-x 9}
(get-in ego [:right :jump-straight]) {:origin-x 9}
(get-in ego [:left :jumping-straight]) {:origin-x 9}
(get-in ego [:left :cat-toy]) {:origin-x 32}
(get-in ego [:right :jumping-straight]) {:origin-x 9}
(get-in ego [:left :swing-shovel]) {:origin-x 26}
(get-in ego [:right :swing-shovel]) {:origin-x 26}