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

tweaks.

Browse Source
This commit is contained in:
Bryce Covert
2016-06-15 18:06:43 -07:00
parent 23fda8c5bc
commit 023874885f
2 changed files with 44 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
desktop/src-common/advent/actions.clj
View File

@@ -985,39 +985,45 @@
(skip-type [this screen entities] (skip-type [this screen entities]
:none)))) :none))))
(defn play-safe [entities] (defn play-safe
(let [safe-song-anim (utils/make-anim-seq "safe-song/safe-song" [100 35] 0.05 (flatten ([entities]
[ (play-safe entities true))
[1 2 3] ([entities whistle?]
(repeat 2 [ (let [safe-song-anim (utils/make-anim-seq "safe-song/safe-song" [100 35] 0.05
[5 6 7 8 8 7 6 6 6 6 6] (flatten
(map (partial + 4) [5 6 7 8 8 7 6 6 6 6 6]) [
(map (partial + 8) [5 6 7 8 8 7 6 6 6 6 6]) [1 2 3]
(map (partial + 12) [5 6 7 8 8 7 6 6 6 6 6]) (repeat 2 [
18 18 18 18 [5 6 7 8 8 7 6 6 6 6 6]
(map (partial + 16) [5 6 7 8 8 7 6 6 6 6 6]) (map (partial + 4) [5 6 7 8 8 7 6 6 6 6 6])
(repeat 45 22)]) (map (partial + 8) [5 6 7 8 8 7 6 6 6 6 6])
(map (partial + 12) [5 6 7 8 8 7 6 6 6 6 6])
18 18 18 18
(map (partial + 16) [5 6 7 8 8 7 6 6 6 6 6])
(repeat 45 22)])
[22 22 22 22 22 22 22 22 26 27 28 28 28 28 28 28 28 28 28 28 28 28 28 28] [22 22 22 22 22 22 22 22 26 27 28 28 28 28 28 28 28 28 28 28 28 28 28 28]
]))] ]))]
(wait entities 200) (when whistle?
(begin-animation entities :ego :whistle) (wait entities 200)
(wait entities 400) (begin-animation entities :ego :whistle))
(add-entity entities :safe-song (wait entities 400)
(rooms/make-entity :safe-song (add-entity entities :safe-song
(assoc (utils/get-texture "safe-song/safe-song-1") (rooms/make-entity :safe-song
:x 130 (assoc (utils/get-texture "safe-song/safe-song-1")
:y 120 :x 130
:baseline 241 :y 120
:night-profile :none :baseline 241
:anim nil :night-profile :none
:anim-start 0 :anim nil
:play safe-song-anim))) :anim-start 0
:play safe-song-anim)))
(begin-animation entities :safe-song :play) (begin-animation entities :safe-song :play)
(wait entities 100) (wait entities 100)
(play-sound entities "safe-sound.ogg" 0.1 false) (play-sound entities "safe-sound.ogg" 0.1 false)
(wait entities 10800) (wait entities 10800)
(remove-entity entities :safe-song) (remove-entity entities :safe-song)
(do-stop entities :ego))) (when whistle?
(do-stop entities :ego)))))

4
desktop/src-common/advent/screens/rooms/behind_house.clj
View File

@@ -92,7 +92,7 @@
(actions/play-animation entities :ego :start-squat :stop? false) (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 "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/talk entities :ego "It looks like he's opening his Magi-safe." :animate? false :stop? false)
(actions/play-sound entities "safe-sound.ogg" 0.1) (actions/play-safe entities false)
(actions/talk entities :ego "So that's the code to his safe..." :animate? false :stop? false) (actions/talk entities :ego "So that's the code to his safe..." :animate? false :stop? false)
(actions/play-animation entities :ego :end-squat) (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.") (actions/talk entities :ego "A lot of good it'll do me to know his password while he's still there.")
@@ -106,7 +106,7 @@
(actions/talk entities :ego "I'll give it another listen.") (actions/talk entities :ego "I'll give it another listen.")
(actions/play-animation entities :ego :start-squat :stop? false) (actions/play-animation entities :ego :start-squat :stop? false)
(actions/talk entities :ego "It looks like Gandarf's opening his Magi-safe." :animate? false :stop? false) (actions/talk entities :ego "It looks like Gandarf's opening his Magi-safe." :animate? false :stop? false)
(actions/play-sound entities "safe-sound.ogg" 0.1) (actions/play-safe entities false)
(actions/play-animation entities :ego :end-squat) (actions/play-animation entities :ego :end-squat)
(actions/talk entities :ego "Ugh! Now I've got it stuck in my head!") (actions/talk entities :ego "Ugh! Now I've got it stuck in my head!")
(increment-safe-listens entities) (increment-safe-listens entities)