sound effects.
This commit is contained in:
BIN
desktop/resources/space/jump.ogg
Normal file
BIN
desktop/resources/space/jump.ogg
Normal file
Binary file not shown.
BIN
desktop/resources/space/jump.wav
Normal file
BIN
desktop/resources/space/jump.wav
Normal file
Binary file not shown.
BIN
desktop/resources/space/shock.ogg
Normal file
BIN
desktop/resources/space/shock.ogg
Normal file
Binary file not shown.
BIN
desktop/resources/space/shock.wav
Normal file
BIN
desktop/resources/space/shock.wav
Normal file
Binary file not shown.
BIN
desktop/resources/space/swingsword.ogg
Normal file
BIN
desktop/resources/space/swingsword.ogg
Normal file
Binary file not shown.
BIN
desktop/resources/space/swingsword.wav
Normal file
BIN
desktop/resources/space/swingsword.wav
Normal file
Binary file not shown.
BIN
desktop/resources/space/swingsword_1.wav
Normal file
BIN
desktop/resources/space/swingsword_1.wav
Normal file
Binary file not shown.
@@ -46,6 +46,8 @@
|
|||||||
swing-duration (/ swing-dist (* speed 1.5))]
|
swing-duration (/ swing-dist (* speed 1.5))]
|
||||||
(actions/run-action entities
|
(actions/run-action entities
|
||||||
(begin [this screen entities]
|
(begin [this screen entities]
|
||||||
|
|
||||||
|
(sound! (sound "space/jump.ogg") :play)
|
||||||
(-> entities
|
(-> entities
|
||||||
(assoc-in [:room :entities :cloud] (assoc (texture "space/cloud.png")
|
(assoc-in [:room :entities :cloud] (assoc (texture "space/cloud.png")
|
||||||
:x (- (get-in entities [:room :entities :ego :x]) 10)
|
:x (- (get-in entities [:room :entities :ego :x]) 10)
|
||||||
@@ -92,6 +94,7 @@
|
|||||||
(actions/run-action entities
|
(actions/run-action entities
|
||||||
(begin [this screen entities]
|
(begin [this screen entities]
|
||||||
|
|
||||||
|
(sound! (sound "space/swingsword.ogg") :play)
|
||||||
(-> entities
|
(-> entities
|
||||||
(update-in [:room :entities :ego]
|
(update-in [:room :entities :ego]
|
||||||
#(actions/start-animation screen % :swing))
|
#(actions/start-animation screen % :swing))
|
||||||
@@ -143,7 +146,7 @@
|
|||||||
blergh-appear (utils/make-anim "space/blergh-appear.png" [106 165] 0.05 (flatten [(range 13) 12 12 12 12 12 12 12 12 12 12 12 12 12 ]))
|
blergh-appear (utils/make-anim "space/blergh-appear.png" [106 165] 0.05 (flatten [(range 13) 12 12 12 12 12 12 12 12 12 12 12 12 12 ]))
|
||||||
blergh-grow (utils/make-anim "space/blergh-grow.png" [106 165] 0.10 [0 1 0 1 0 1 0 1 1 1 1 0 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 2 2 2 2 3 2 3 2 3 2 3 2 3 2 3 2 3 2 3 2 3 3 3 3 3 3 3 3 3 3 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 5 6 7 8 9 10 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11])
|
blergh-grow (utils/make-anim "space/blergh-grow.png" [106 165] 0.10 [0 1 0 1 0 1 0 1 1 1 1 0 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 2 2 2 2 3 2 3 2 3 2 3 2 3 2 3 2 3 2 3 2 3 3 3 3 3 3 3 3 3 3 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 5 6 7 8 9 10 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11])
|
||||||
bullet (utils/make-anim "space/bullet.png" [24 24] 0.0075 [0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 3 3 3 4 4 5 5 6 5 4 7])]
|
bullet (utils/make-anim "space/bullet.png" [24 24] 0.0075 [0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 3 3 3 4 4 5 5 6 5 4 7])]
|
||||||
(rooms/make :music :town-1
|
(rooms/make :music :fight
|
||||||
:interactions
|
:interactions
|
||||||
{}
|
{}
|
||||||
:layers [(assoc (texture "space/background.png") :x 0 :y 0 :baseline 0)]
|
:layers [(assoc (texture "space/background.png") :x 0 :y 0 :baseline 0)]
|
||||||
@@ -171,6 +174,8 @@
|
|||||||
|
|
||||||
(actions/do-dialogue entities :bloodclot-head "Ha ha ha! Is that the best you can do?"
|
(actions/do-dialogue entities :bloodclot-head "Ha ha ha! Is that the best you can do?"
|
||||||
:bloodclot-head "Take this!")
|
:bloodclot-head "Take this!")
|
||||||
|
|
||||||
|
(sound! (sound "space/shock.ogg") :play)
|
||||||
(actions/play-animation entities :bloodclot-head :shoot :stop? false)
|
(actions/play-animation entities :bloodclot-head :shoot :stop? false)
|
||||||
(actions/begin-animation entities :bloodclot-head :keep-shoot)
|
(actions/begin-animation entities :bloodclot-head :keep-shoot)
|
||||||
(actions/play-animation entities :ego :shock :stop? false)
|
(actions/play-animation entities :ego :shock :stop? false)
|
||||||
|
|||||||
Reference in New Issue
Block a user