minor tweaks

This commit is contained in:
2015-01-04 15:01:47 -08:00
parent 77a909784d
commit a624adbcad
5 changed files with 33 additions and 7 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 26 KiB

After

Width:  |  Height:  |  Size: 35 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.8 KiB

View File

@@ -26,7 +26,8 @@
(-> entities
(assoc-in [:room :entities :guard] (get-in entities [:room :guard]))
add-spear-if-necessary
add-watch-if-necessary))
add-watch-if-necessary
(assoc-in [:room :entities :stash] (get-in entities [:room :stash]))))
(defn search-guard [entities]
(actions/walk-to entities :ego [121 75] :face :left)
@@ -50,7 +51,9 @@
guard-sheet (texture! (texture "inside-cafeteria/ladder-guard.png") :split 37 87)
guard-stand (animation 0.1 [(aget guard-sheet 0 0)])
guard-talk (animation 0.2 (for [i [0 0 0 0 1 0 0 1]] (aget guard-sheet 0 i)))
guard-sleep (utils/make-anim "outside-jail/guard-sleep.png" [43 67] 0.1 (range 4))]
guard-sleep (utils/make-anim "outside-jail/guard-sleep.png" [43 67] 0.1 (range 4))
open-stash (animation 0.1 [(texture "outside-jail/closed-stash.png") (texture "outside-jail/open-stash.png")])
close-stash (animation 0.1 [(texture "outside-jail/open-stash.png") (texture "outside-jail/closed-stash.png")])]
(rooms/make :music {:day :town-1 :night :night}
:interactions {:down-dir {:box [30 0 227 20]
:script (actions/get-script entities
@@ -107,7 +110,17 @@
(actions/talk entities :ego "It's split right down the middle!")
(actions/play-animation entities :ego :reach)
(actions/remove-entity entities :watch)
(actions/give entities :broken-watch)))}}}
(actions/give entities :broken-watch)))}}
:lever {:box [10 72 17 85]
:script (actions/get-script entities
(when (get-in @entities [:state :knows-about-stash?])
(actions/walk-to entities :ego [48 36] :face :left)
(actions/play-animation entities :ego :reach-start :stop? false)
(actions/play-animation entities :stash :open :stop? false)
(Thread/sleep 500)
(actions/play-animation entities :ego :reach-stop :stop? false)
(actions/play-animation entities :stash :close :stop? false)
(actions/talk entities :ego "That trapdoor closes as soon as I let the lever go!")))}}
:layers {:day [(assoc (texture "outside-jail/background.png") :x 0 :y 0 :baseline 0)]
:night [(assoc (texture "outside-jail/background-dark.png") :x 0 :y 0 :baseline 0)]}
:entities {:fountain (assoc (animation->texture screen fountain)
@@ -125,14 +138,13 @@
(actions/play-animation entities :ego :reach)
(actions/remove-item entities :flask-2)
(actions/give entities :flask-water)
(actions/talk entities :ego "Filled with water, just as Gandarf wanted."))})
(actions/talk entities :ego "Filled up with water, just as Gandarf wanted."))})
:warden {:object nil
:x 36
:y 86
:width 10
:height 10
:talk-color (color 0.9 0.3 0.9 1.0)}
}
:talk-color (color 0.9 0.3 0.9 1.0)}}
:guard (rooms/make-entity :guard (assoc (animation->texture screen guard-stand)
:x 70 :y 55 :baseline 185
:stand guard-stand
@@ -148,7 +160,13 @@
(actions/walk-to entities :ego [189 65] :face :right)
(actions/play-animation entities :ego :reach)
(actions/remove-entity entities :watch)
(actions/give entities :watch))))
(actions/give entities :watch))))
:stash (rooms/make-entity :stash (assoc (texture "outside-jail/closed-stash.png")
:x 197 :y 94 :baseline 146
:open open-stash
:close close-stash))
:collision "outside-jail/collision.png"
:scale-fn (utils/scaler-fn-with-baseline 40 0.001 1.3)
:start-pos [145 15]

View File

@@ -150,6 +150,10 @@
(texture (aget squat-sheet 0 i))))
reach-anim (animation 0.1 (for [i [0 1 2 3 3 3 3 3 3 2 1 0]]
(texture (aget reach-sheet 0 i))))
reach-start (animation 0.1 (for [i [0 1 2 3 ]]
(texture (aget reach-sheet 0 i))))
reach-stop (animation 0.1 (for [i [3 2 1 0]]
(texture (aget reach-sheet 0 i))))
cat-toy-anim (animation 0.1 (for [i [0 0 1 1 2 2 3 4 3 2 3 4 3 2 3 4 3 2 3 4 3 2 2 1 1 0 0]]
(texture (aget cat-toy-sheet 0 i))))
cat-toy-first-half (animation 0.1 (for [i [0 0 1 1 2 2 3]]
@@ -187,6 +191,8 @@
:grow-talk grow-talk
:reach-up reach-up
:reach-down reach-down
:reach-start reach-start
:reach-stop reach-stop
[:fire 1] fire-1-anim
[:fire 2] fire-2-anim
[:fire 3] fire-3-anim
@@ -207,6 +213,8 @@
:grow-talk (utils/flip grow-talk)
:reach-up (utils/flip reach-up)
:reach-down (utils/flip reach-down)
:reach-start (utils/flip reach-start)
:reach-stop (utils/flip reach-stop)
[:fire 1] (utils/flip fire-1-anim)
[:fire 2] (utils/flip fire-2-anim)
[:fire 3] (utils/flip fire-3-anim)