make ACTORPLAYANIMATION a hollywooMethod

This commit is contained in:
2025-09-23 16:55:57 -05:00
parent e7e0875aee
commit 68780b76c0
2 changed files with 5 additions and 5 deletions

View File

@@ -299,11 +299,9 @@
(defReaderMacro "LINEARMOTIONPROP" [stream &builder b]
(awaitLMReaderMacro stream `withPropCC false))
// TODO make this a hollywooMethod & interp reader macro
(defReaderMacro "ACTORPLAYANIMATION" [stream &builder b]
(let [actor (read stream)
anim (read stream)]
`(withActor ,actor a (a.playAnimation ,anim))))
(hollywooMethod actorPlayAnimation [actorKey animKey cc]
(withActor actorKey a
(a.playAnimation animKey)))
// TODO make this a hollywooMethod & interp reader macro
(defReaderMacro "ASSERTLOGSPRITES" [stream &builder b]

View File

@@ -127,5 +127,7 @@ class HollywooInterp {
readTable["ADDTEMPCAMERA "] = quickReaderMacro("(movie.addTempCamera skipping $$1 $$2 $$3 cc)");
readTable["REMOVETEMPCAMERA "] = quickReaderMacro("(movie.removeTempCamera $$1 $$2 cc)");
readTable["ACTORPLAYANIMATION"] = quickReaderMacro("(movie.actorPlayAnimation $$1 $$2 cc)");
}
}