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

themedRollCredits support

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-07-03 07:11:50 -06:00
parent 6aca7062d2
commit 6a604fed7f
1 changed files with 22 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/hollywoo_flixel/FlxDirector.kiss
View File

@@ -727,13 +727,25 @@
(+= textY threeColSize creditMargin))
(otherwise)))
(doFor text creditsText
(FlxG.state.add text)
(set text.cameras [flxMovie.uiCamera])
(let [:Array<Dynamic> tweenArgs []]
(tweenArgs.push text)
(tweenArgs.push text.x)
(tweenArgs.push (- text.y textY))
(tweenArgs.push 200)
(tweenArgs.push cc)
(Reflect.callMethod flxMovie (Reflect.field flxMovie "linearMotion") tweenArgs))))
(let [pixelsToScroll
(+ textY .height (last creditsText))
idealTimeLimit
(/ pixelsToScroll IDEAL_SCROLL_SPEED)
timeLimitDifference (- idealTimeLimit timeLimit)
scrollSpeed
(if timeLimit
(/ pixelsToScroll timeLimit)
IDEAL_SCROLL_SPEED)]
(#when debug
(when !(= scrollSpeed IDEAL_SCROLL_SPEED)
(print "Time given for credit roll (${timeLimit}s) is $(Math.abs timeLimitDifference)sec $(if (> timeLimitDifference 0) "too short" "too long") for ideal speed.")))
(doFor text creditsText
(FlxG.state.add text)
(set text.cameras [flxMovie.uiCamera])
(let [:Array<Dynamic> tweenArgs []]
(tweenArgs.push text)
(tweenArgs.push text.x)
(tweenArgs.push (- text.y textY))
(tweenArgs.push scrollSpeed)
(tweenArgs.push cc)
(Reflect.callMethod flxMovie (Reflect.field flxMovie "linearMotion") tweenArgs)))))