mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-07-26 22:42:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
* 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
Download Patch File Download Diff File Expand all files Collapse all files
goal_src/levels/rolling/rolling-obs.gc
+5 -15
View File
@@ -1416,9 +1416,7 @@
(suspend)
(set! (-> self state-time) (-> *display* base-frame-counter))
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 3))
(set! (-> self timer-pos-offset)
(seekl (-> self timer-pos-offset) 100 (the int (* 3.0 (-> *display* time-adjust-ratio))))
)
(seekl! (-> self timer-pos-offset) 100 (the int (* 3.0 (-> *display* time-adjust-ratio))))
(when (= (-> self timer-pos-offset) 100)
(send-event (ppointer->process (-> *hud-parts* fuel-cell)) 'enable)
(send-event (ppointer->process (-> *hud-parts* money)) 'enable)
@@ -1444,9 +1442,7 @@
(behavior ()
(set! (-> self state-time) (-> *display* base-frame-counter))
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 3))
(set! (-> self timer-pos-offset)
(seekl (-> self timer-pos-offset) 100 (the int (* 5.0 (-> *display* time-adjust-ratio))))
)
(seekl! (-> self timer-pos-offset) 100 (the int (* 5.0 (-> *display* time-adjust-ratio))))
(when (= (-> self timer-pos-offset) 100)
(send-event (ppointer->process (-> *hud-parts* fuel-cell)) 'enable)
(send-event (ppointer->process (-> *hud-parts* money)) 'enable)
@@ -1634,9 +1630,7 @@
(set! (-> self state-time) (-> *display* game-frame-counter))
(while #t
(seconds->race-time (-> self this-time) (- (-> *display* game-frame-counter) (-> self state-time)))
(set! (-> self timer-pos-offset)
(seekl (-> self timer-pos-offset) 0 (the int (* 5.0 (-> *display* time-adjust-ratio))))
)
(seekl! (-> self timer-pos-offset) 0 (the int (* 5.0 (-> *display* time-adjust-ratio))))
(completed? (-> self ticker))
(gorge-start-draw-time #f #f)
(suspend)
@@ -1655,9 +1649,7 @@
(behavior ()
(while #t
(suspend)
(set! (-> self timer-pos-offset)
(seekl (-> self timer-pos-offset) 100 (the int (* 5.0 (-> *display* time-adjust-ratio))))
)
(seekl! (-> self timer-pos-offset) 100 (the int (* 5.0 (-> *display* time-adjust-ratio))))
(when (= (-> self timer-pos-offset) 100)
(send-event (ppointer->process (-> *hud-parts* fuel-cell)) 'enable)
(send-event (ppointer->process (-> *hud-parts* money)) 'enable)
@@ -1701,9 +1693,7 @@
(behavior ()
(while #t
(suspend)
(set! (-> self timer-pos-offset)
(seekl (-> self timer-pos-offset) 100 (the int (* 5.0 (-> *display* time-adjust-ratio))))
)
(seekl! (-> self timer-pos-offset) 100 (the int (* 5.0 (-> *display* time-adjust-ratio))))
(when (= (-> self timer-pos-offset) 100)
(send-event (ppointer->process (-> *hud-parts* fuel-cell)) 'enable)
(send-event (ppointer->process (-> *hud-parts* money)) 'enable)