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

I can see the fear in your eyes.

Browse Source
This commit is contained in:
Remington Covert
2015-02-18 15:53:41 -08:00
parent 0876119e3e
commit 4789df90f9
12 changed files with 186 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -188,6 +188,8 @@
shock (utils/make-anim "ego/shock.png" [40 48] 0.075 (flatten (repeat 2 [(repeat 5 [0 1 2]) (repeat 5 [3 4 5]) (repeat 5 [6 7 8])])))
burnt (utils/make-anim "ego/burnt.png" [40 46] 0.12 [1 2 3 2 1 2 3 2 1 0 2 0 4 5 6 7 8 9 10 11 10 9 10 11])
passed-out (utils/make-anim "ego/burnt.png" [40 46] 0.12 [9 10 11 10])
scared (utils/make-anim "ego/scared.png" [18 36] 0.05 [0 1])
scared-talk (utils/make-anim "ego/scared.png" [18 36] 0.05 [0 1 0 1 0 1 0 1 2 3 2 3 2 3 2 3])
ego {:right {:walk walk-right
:stand stand-anim
@@ -218,7 +220,9 @@
:pant pant
:shock shock
:burnt burnt
:passed-out passed-out}
:passed-out passed-out
:scared scared
:scared-talk scared-talk}
:left {:walk (utils/flip walk-right)
:stand (utils/flip stand-anim)
:talk (utils/flip talk-anim)
@@ -447,7 +451,7 @@
:inventory (assoc (texture "inventory.png") :x 278 :y 0 :baseline 9000
:mouse-in? (zone/box 278 0 320 42))
:fps (assoc (label "0" (color :white) ) :x 5 :baseline 0)}]
(music! (utils/get-current-music entities) :set-volume (get-in entities [:volume :value]))
(music! (utils/get-current-music entities) :set-volume 0.0 #_(get-in entities [:volume :value]))
(utils/play-sound (get-in entities [:musics (actions/get-music (get-in entities [:room :music]) (get-in entities [:state :time]))]))
@@ -486,7 +490,7 @@
(play-key-sounds (get-in entities [:room :entities]))
(doseq [m (vals (get-in entities [:musics]))]
(when m
(music! m :set-volume (get-in entities [:volume :value]) )))
(music! m :set-volume 0.0 #_(get-in entities [:volume :value]) )))
(label! (:fps entities) :set-text (str (game :fps)))