[decompiler] detect seek! and seekl! macros (#1317)

* detect `seek!` and `seekl!`

* fancy struct instead of pair mess

* fixes

* i think this was wrong?

* update refs

* update source

* More logical branching

* even better branching
This commit is contained in:
ManDude
2022-04-18 20:01:44 +01:00
committed by GitHub
parent cbc6987351
commit 66e395d547
109 changed files with 952 additions and 1398 deletions
+2 -2
View File
@@ -921,7 +921,7 @@
(dummy-22 self)
(go elevator-idle-at-fort)
)
(set! (-> self path-pos) (seek (-> self path-pos) 1.0 (* 0.06666667 (-> *display* seconds-per-frame))))
(seek! (-> self path-pos) 1.0 (* 0.06666667 (-> *display* seconds-per-frame)))
(eval-path-curve! (-> self path) (-> self basetrans) (-> self path-pos) 'interp)
(plat-trans)
(dummy-20 self)
@@ -987,7 +987,7 @@
(dummy-22 self)
(go elevator-idle-at-cave)
)
(set! (-> self path-pos) (seek (-> self path-pos) 0.0 (* 0.06666667 (-> *display* seconds-per-frame))))
(seek! (-> self path-pos) 0.0 (* 0.06666667 (-> *display* seconds-per-frame)))
(eval-path-curve! (-> self path) (-> self basetrans) (-> self path-pos) 'interp)
(plat-trans)
(dummy-20 self)
+1 -3
View File
@@ -228,9 +228,7 @@
)
)
(until (ja-done? 0)
(set! (-> self control unknown-float81)
(seek (-> self control unknown-float81) 0.0 (-> *display* seconds-per-frame))
)
(seek! (-> self control unknown-float81) 0.0 (-> *display* seconds-per-frame))
(suspend)
(let ((a0-49 (-> self skel root-channel 0)))
(set! (-> a0-49 param 0) (the float (+ (-> a0-49 frame-group data 0 length) -1)))