adding sound when you pick up an item.

This commit is contained in:
=
2014-09-15 22:40:16 -07:00
parent 722efb5a25
commit c09ecbe57f
3 changed files with 3 additions and 1 deletions

Binary file not shown.

View File

@@ -135,6 +135,8 @@
(reify
IAction
(begin [this screen entities]
(sound! (sound "pickup.mp3") :play)
(-> entities
(update-in [target-id :inventory] #(conj % item))
(assoc-in [:cursor :current] item)))

View File

@@ -116,7 +116,7 @@
house (texture "house.png")
overdirt (texture "overdirt.png")
music (sound "town-music.mp3")
;;_ (sound! music :loop)
_ (sound! music :loop)
]
{
:actions {:object nil