safe opening sound.
This commit is contained in:
@@ -55,13 +55,12 @@
|
||||
:script (actions/get-script entities
|
||||
(if (get-in @entities [:state :opened-crack?])
|
||||
(do (actions/walk-to entities :ego [70 80])
|
||||
(actions/play-animation entities :ego :squat)
|
||||
(actions/talk entities :ego "I can see Gandarf, the wizard inside.")
|
||||
(actions/play-animation entities :ego :squat)
|
||||
(actions/talk entities :ego "It looks like he's opening his Magi-safe.")
|
||||
(actions/play-animation entities :ego :squat)
|
||||
(actions/talk entities :ego "[todo: sounds play.]")
|
||||
(actions/play-animation entities :ego :squat)
|
||||
(actions/play-animation entities :ego :start-squat :stop? false)
|
||||
(actions/talk entities :ego "I can see Gandarf, the wizard inside." :animate? false :stop? false)
|
||||
(actions/talk entities :ego "It looks like he's opening his Magi-safe." :animate? false :stop? false)
|
||||
(actions/play-sound entities "safe-sound.ogg")
|
||||
(actions/talk entities :ego "So that's the code to his safe..." :animate? false :stop? false)
|
||||
(actions/play-animation entities :ego :end-squat)
|
||||
(actions/talk entities :ego "A lot of good it'll do me to know his password while he's still there."))
|
||||
(do (actions/walk-to entities :ego [80 80])
|
||||
(actions/talk entities :ego "It looks like the wall is crumbling here.")
|
||||
|
||||
@@ -91,6 +91,10 @@
|
||||
(texture (aget stand-sheet 0 i))))
|
||||
talk-anim (animation 0.2 (for [i (range 8)]
|
||||
(texture (aget talk-sheet 0 i))))
|
||||
start-squat (animation 0.05 (for [i [0 1 2 3]]
|
||||
(texture (aget squat-sheet 0 i))))
|
||||
end-squat (animation 0.05 (for [i [3 2 1 0]]
|
||||
(texture (aget squat-sheet 0 i))))
|
||||
squat-anim (animation 0.05 (for [i [0 1 2 3 3 3 3 3 3 3 3 3 3 3 3 2 1] ]
|
||||
(texture (aget squat-sheet 0 i))))
|
||||
reach-anim (animation 0.1 (for [i [0 1 2 3 3 3 3 3 3 2 1 0]]
|
||||
@@ -107,6 +111,8 @@
|
||||
:stand stand-anim
|
||||
:talk talk-anim
|
||||
:squat squat-anim
|
||||
:start-squat start-squat
|
||||
:end-squat end-squat
|
||||
:reach reach-anim
|
||||
:cat-toy cat-toy-anim
|
||||
[:fire 1] fire-1-anim
|
||||
@@ -115,6 +121,8 @@
|
||||
:left {:walk (utils/flip walk-right)
|
||||
:stand (utils/flip stand-anim)
|
||||
:talk (utils/flip talk-anim)
|
||||
:start-squat (utils/flip start-squat)
|
||||
:end-squat (utils/flip end-squat)
|
||||
:squat (utils/flip squat-anim)
|
||||
:reach (utils/flip reach-anim)
|
||||
:cat-toy (utils/flip cat-toy-anim)
|
||||
|
||||
Reference in New Issue
Block a user