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

newFlxVoiceTracksByPrefix

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-07-14 09:02:10 -06:00
parent c599dbeb98
commit 13c7ca2b70
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/hollywoo_flixel/HollywooFlixelDSL.kiss
View File

@@ -110,6 +110,15 @@
(doFor [wavPath jsonPath] (groups wavJsonPaths 2 Throw)
(newFlxVoiceTrack name wavPath jsonPath))))
(#when sys
(method newFlxVoiceTracksByPrefix [:Array<String> names :String voFolder :String voFilePrefix]
(let [possibleFiles (sys.FileSystem.readDirectory voFolder)
matchingWavFiles (filter possibleFiles ->[:String path] (and (StringTools.startsWith path voFilePrefix) (StringTools.endsWith path ".wav")))]
(doFor name names
(doFor wavPath matchingWavFiles
(let [wavPath (joinPath voFolder wavPath)]
(newFlxVoiceTrack name wavPath (StringTools.replace wavPath ".wav" ".json"))))))))
(method newFlxProp [name path &opt :FlxSprite->Void prepareSprite]
(let [propSprite (new FlxSprite 0 0)]
(propSprite.loadGraphic path false 0 0 true) // Load props uniquely because they can be drawn on