kiss-lang/hollywoo
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

hideCustomDialog when changing scene

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-09-11 16:26:34 -06:00
parent af1aee09fa
commit a57330c005
1 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
src/hollywoo/Movie.kiss
View File

@@ -754,26 +754,28 @@
(cc))))
(hollywooMethod setScene [:Bool skipping :String name :Continuation cc]
(_hideCurrentScene
(hideCustomDialog
(makeCC
(let [name (FuzzyMapTools.bestMatch scenes name)]
(set sceneKey name)
(ifLet [songKey (dictGet sceneMusic name)]
// Keep the song going if it's the same as current. Otherwise, take over!
(unless (= playingSceneMusic songKey)
(set playingSceneMusic songKey)
(stopSong skipping (makeCC null))
(loopSong skipping songKey (makeCC null) (dictGet sceneMusicVolume name)))
(when playingSceneMusic
(set playingSceneMusic null)
(stopSong skipping (makeCC null))))
(unless (positionsInScene.exists sceneKey)
(dictSet positionsInScene sceneKey []))
(_showScene
(dictGet scenes name)
(appearanceFlag shownScenes name)
.camera (dictGet scenes name)
cc)))))
(_hideCurrentScene
(makeCC
(let [name (FuzzyMapTools.bestMatch scenes name)]
(set sceneKey name)
(ifLet [songKey (dictGet sceneMusic name)]
// Keep the song going if it's the same as current. Otherwise, take over!
(unless (= playingSceneMusic songKey)
(set playingSceneMusic songKey)
(stopSong skipping (makeCC null))
(loopSong skipping songKey (makeCC null) (dictGet sceneMusicVolume name)))
(when playingSceneMusic
(set playingSceneMusic null)
(stopSong skipping (makeCC null))))
(unless (positionsInScene.exists sceneKey)
(dictSet positionsInScene sceneKey []))
(_showScene
(dictGet scenes name)
(appearanceFlag shownScenes name)
.camera (dictGet scenes name)
cc)))))))
(hollywooMethod playSound [:Bool skipping :String name :Continuation cc &opt :Float volumeMod :Bool waitForEnd]
(when skipping