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

non-await versions of the linearmotion reader macros

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-08-21 17:19:36 -06:00
parent 61370402a3
commit a53f754ba1
1 changed files with 21 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/hollywoo_flixel/HollywooFlixelDSL.kiss
View File

@@ -98,16 +98,23 @@
(try (read stream)
(catch [e] `null)))
(defMacroFunction awaitLMTReaderMacro [stream withMacro]
(defMacroFunction awaitLMTReaderMacro [stream withMacro await]
(let [nextLineStream (stream.expect "hollywoo macro line" ->(stream.takeLineAsStream))
exps [(read nextLineStream) (read nextLineStream) (read nextLineStream) (tryRead nextLineStream) (tryRead nextLineStream)]]
`(_linearMotionTo ,withMacro true ,@exps)))
`(_linearMotionTo ,withMacro ,await ,@exps)))
(defReaderMacro "AWAITLINEARMOTIONACTORTO" [stream &builder b]
(awaitLMTReaderMacro stream `withActorCC))
(awaitLMTReaderMacro stream `withActorCC true))
(defReaderMacro "AWAITLINEARMOTIONPROPTO" [stream &builder b]
(awaitLMTReaderMacro stream `withPropCC))
(awaitLMTReaderMacro stream `withPropCC true))
(defReaderMacro "LINEARMOTIONACTORTO" [stream &builder b]
(awaitLMTReaderMacro stream `withActorCC false))
(defReaderMacro "LINEARMOTIONPROPTO" [stream &builder b]
(awaitLMTReaderMacro stream `withPropCC false))
(defMacro _linearMotion [withMacro await objectKey _x _y speed soundLoop volumeMod]
`(,withMacro ,objectKey o
@@ -123,16 +130,22 @@
,volumeMod))
,(if (eval await) `null `(cc))))
(defMacroFunction awaitLMReaderMacro [stream withMacro]
(defMacroFunction awaitLMReaderMacro [stream withMacro await]
(let [nextLineStream (stream.expect "hollywoo macro line" ->(stream.takeLineAsStream))
exps [(read nextLineStream) (read nextLineStream) (read nextLineStream) (read nextLineStream) (tryRead nextLineStream) (tryRead nextLineStream)]]
`(_linearMotion ,withMacro true ,@exps)))
`(_linearMotion ,withMacro ,await ,@exps)))
(defReaderMacro "AWAITLINEARMOTIONACTOR" [stream &builder b]
(awaitLMReaderMacro stream `withActorCC))
(awaitLMReaderMacro stream `withActorCC true))
(defReaderMacro "AWAITLINEARMOTIONPROP" [stream &builder b]
(awaitLMReaderMacro stream `withPropCC))
(awaitLMReaderMacro stream `withPropCC true))
(defReaderMacro "LINEARMOTIONACTOR" [stream &builder b]
(awaitLMReaderMacro stream `withActorCC false))
(defReaderMacro "LINEARMOTIONPROP" [stream &builder b]
(awaitLMReaderMacro stream `withPropCC false))
// Reusable effect: Scan a slightly transparent line side-to-side across a FlxSprite like a scanner
@:keep