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

cleanup namePlates

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-09-18 11:07:48 -06:00
parent d17fcdc2bb
commit 8c34d0e5ec
1 changed files with 20 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
src/hollywoo_flixel/HollywooFlixelDSL.kiss
View File

@@ -324,25 +324,32 @@
(let [[x y] (SpriteTools.positionOn s (canvas) rpos true)]
(new StagePosition x y layer)))
(prop &mut :Array<FlxSprite> plates)
(method namePlates [:Bool skipping :Array<String> names :Dynamic delayLength :Bool delayWhileShown :Void->Void cc]
(when skipping
(cc)
(return))
(let [plates
(for name names
(let [plate (SpriteTools.textPlate name FlxDirector.DIALOG_SIZE FlxDirector.SUPER_MARGIN)
actor .actor (dictGet .characters (_currentScene) name)]
(set plate.x (- (+ actor.x (/ actor.width 2))
(/ plate.width 2)))
(set plate.y (+ actor.y actor.height))
(FlxG.state.add plate)
plate))]
(delay skipping delayLength
(makeCC
(doFor plate plates (FlxG.state.remove plate true))
(when delayWhileShown (cc)))))
(set plates
(for name names
(let [plate (SpriteTools.textPlate name FlxDirector.DIALOG_SIZE FlxDirector.SUPER_MARGIN)
actor .actor (dictGet .characters (_currentScene) name)]
(set plate.x (- (+ actor.x (/ actor.width 2))
(/ plate.width 2)))
(set plate.y (+ actor.y actor.height))
(FlxG.state.add plate)
plate)))
(delay skipping delayLength
(makeCC
(doFor plate plates (FlxG.state.remove plate true))
(set plates null)
(when delayWhileShown (cc))))
(unless delayWhileShown (cc)))
(cleanup
(when plates
(doFor plate plates (FlxG.state.remove plate true))
(set plates null)))
(method putPresetPosition [key x y z]
(let [pos (new StagePosition (Std.int x) (Std.int y) (Std.int z))]
(stagePositions.put key pos)