[decomp] fisher and FIN.DGO (finalboss) level (#899)

* decomp `fisher`, `robotboss`, `light-eco`, `green-eco-lurker`, `sage-finalboss`, `robotboss-weapon`, `robotboss-misc`

* fixes

* add files

* add `:states` list to `deftype` and fix files

* test state forward decl's on a few more types

* also the refs

* add light-eco

* whatever
This commit is contained in:
ManDude
2021-10-16 19:06:33 +01:00
committed by GitHub
parent 9225d28444
commit caac740aff
185 changed files with 30529 additions and 4422 deletions
+7 -13
View File
@@ -317,7 +317,7 @@
(else
(until
(>=
(- (-> *display* base-frame-counter) (the-as int (-> self state-time)))
(- (-> *display* base-frame-counter) (-> self state-time))
(the int (* 300.0 (-> self timeout)))
)
(suspend)
@@ -788,10 +788,7 @@
(not
(member (level-status *level* (-> arg1 load-name)) '(loaded active))
)
(<
(- (-> *display* base-frame-counter) (the-as int (-> self state-time)))
600
)
(< (- (-> *display* base-frame-counter) (-> self state-time)) 600)
)
(suspend)
)
@@ -860,7 +857,7 @@
(-> self control unknown-vector102 y)
(+ -4096.0 (-> self control unknown-vector102 y))
)
(set! (-> self control unknown-int11) (the-as int #f))
(set! (-> self control unknown-symbol20) #f)
(vector-reset! (-> self control transv))
(logior! (-> self state-flags) 1024)
(set! (-> self alt-cam-pos quad) (-> arg1 quad))
@@ -1023,12 +1020,9 @@
(and
(or
(< (vector-dot gp-2 (-> self control transv)) 0.0)
(-> self control unknown-int11)
)
(>=
(- (-> *display* base-frame-counter) (the-as int (-> self state-time)))
15
(-> self control unknown-symbol20)
)
(>= (- (-> *display* base-frame-counter) (-> self state-time)) 15)
)
(vector-seek!
(-> self draw color-mult)
@@ -1037,7 +1031,7 @@
)
(set! (-> self control transv x) (* 0.95 (-> self control transv x)))
(set! (-> self control transv z) (* 0.95 (-> self control transv z)))
(when (not (-> self control unknown-int11))
(when (not (-> self control unknown-symbol20))
(let ((a1-9 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-9 from) self)
(set! (-> a1-9 num-params) 2)
@@ -1047,7 +1041,7 @@
(send-event-function self a1-9)
)
(let ((v0-2 #t))
(set! (-> self control unknown-int11) (the-as int v0-2))
(set! (-> self control unknown-symbol20) v0-2)
v0-2
)
)