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

more interaction.

Browse Source
This commit is contained in:
=
2014-09-09 22:12:15 -07:00
parent 356e802dec
commit 69bae884e7
3 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
desktop/project.clj
View File

@@ -14,7 +14,9 @@
:classifier "natives-desktop"] :classifier "natives-desktop"]
[org.clojure/clojure "1.6.0"] [org.clojure/clojure "1.6.0"]
#_[play-clj "0.3.9"] #_[play-clj "0.3.9"]
[org.clojure/data.priority-map "0.0.5"]] [org.clojure/data.priority-map "0.0.5"]
[criterium "0.4.3"]
[com.taoensso/timbre "3.3.1"]]
:source-paths ["src" "src-common"] :source-paths ["src" "src-common"]
:javac-options ["-target" "1.6" "-source" "1.6" "-Xlint:-options"] :javac-options ["-target" "1.6" "-source" "1.6" "-Xlint:-options"]

BIN
desktop/resources/town-music.mp3
View File

Binary file not shown.

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

@@ -109,7 +109,7 @@
house (texture "house.png") house (texture "house.png")
overdirt (texture "overdirt.png") overdirt (texture "overdirt.png")
music (sound "town-music.mp3") music (sound "town-music.mp3")
;; _ (sound! music :loop) _ (sound! music :loop)
] ]
{ {
:cursor {:id "cursor" :current :walk } :cursor {:id "cursor" :current :walk }
@@ -132,7 +132,15 @@
:touch (fn [screen entities _] :touch (fn [screen entities _]
(assoc-in entities [:ego :actions] (concat (assoc-in entities [:ego :actions] (concat
(actions/from-path screen entities :ego [262 88]) (actions/from-path screen entities :ego [262 88])
[(actions/talk :ego (str "Anyone home?"))])))}] [(actions/talk :ego (str "Anyone home?"))])))}
{:mouse-in? (zone/box 274 55 305 88)
:look (fn [screen entities _]
(assoc-in entities [:ego :actions] [(actions/stop :ego)
(actions/talk :ego (str "It's the coolest sword I've ever seen!"))]))
:touch (fn [screen entities _]
(assoc-in entities [:ego :actions] (concat
(actions/from-path screen entities :ego [290 66])
[(actions/talk :ego (str "Maybe I can pull it out."))])))}]
:scale-fn (scaler-fn-with-baseline 110 0.10 1.00) :scale-fn (scaler-fn-with-baseline 110 0.10 1.00)
:layers [(assoc background :x 0 :y 0 :baseline 0) :layers [(assoc background :x 0 :y 0 :baseline 0)
(assoc house :x 0 :y 0 :baseline 122) (assoc house :x 0 :y 0 :baseline 122)