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

filling out jail.

Browse Source
This commit is contained in:
Remington Covert
2014-12-26 20:05:26 -08:00
parent e4a02813f8
commit f2fcfa8963
2 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
desktop/src-common/advent/screens/rooms/inside_jail.clj
View File

@@ -12,7 +12,18 @@
(defn make [screen]
(rooms/make :music :inside-antique
:interactions {}
:interactions {
:lock {:box [178 102 184 124]
:script (actions/get-script entities
(actions/walk-to entities :ego [174 80] :face :right)
(actions/play-animation entities :ego :reach)
(actions/talk entities :ego "There's no helping it. It's locked."))}
:hay {:box [130 86 177 102]
:script (actions/get-script entities
(actions/walk-to entities :ego [144 86] :face :right)
(actions/talk entities :ego "Maybe there's a needle or something in here.")
(actions/play-animation entities :ego :squat)
(actions/talk entities :ego "No. Nothing at all!"))}}
:layers [(assoc (texture "inside-jail/background.png") :x 0 :y 0 :baseline 0)
(assoc (texture "inside-jail/bars.png") :x 0 :y 0 :baseline 165)
(assoc (texture "inside-jail/glow.png") :x 0 :y 0 :baseline 240)]

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

@@ -55,6 +55,7 @@
(defn left-click [screen entities]
(let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
(println "clicked " [x y])
(if ((:mouse-in? (:inventory entities)) x y)
(click-inventory screen entities)
(let [interaction (first (filter #((:mouse-in? %) entities x y)