[decomp] game-info (#779)

* support more process stuff

* more of game info

* add ref file

* progress on save
This commit is contained in:
water111
2021-08-22 20:12:47 -04:00
committed by GitHub
parent 30d1e1d6c9
commit 403bb5f4de
117 changed files with 6234 additions and 2243 deletions
@@ -3,13 +3,13 @@
;; definition of type smush-control
(deftype smush-control (structure)
((start-time uint64 :offset-assert 0)
(period float :offset-assert 8)
(duration float :offset-assert 12)
(amp float :offset-assert 16)
(damp-amp float :offset-assert 20)
(damp-period float :offset-assert 24)
(ticks float :offset-assert 28)
((start-time int64 :offset-assert 0)
(period float :offset-assert 8)
(duration float :offset-assert 12)
(amp float :offset-assert 16)
(damp-amp float :offset-assert 20)
(damp-period float :offset-assert 24)
(ticks float :offset-assert 28)
)
:method-count-assert 15
:size-assert #x20
+7 -11
View File
@@ -78,12 +78,12 @@
;; definition of type delayed-rand-float
(deftype delayed-rand-float (structure)
((min-time int32 :offset-assert 0)
(max-time int32 :offset-assert 4)
(max-val float :offset-assert 8)
(timer int32 :offset-assert 12)
(start-time uint64 :offset-assert 16)
(value float :offset-assert 24)
((min-time int32 :offset-assert 0)
(max-time int32 :offset-assert 4)
(max-val float :offset-assert 8)
(timer int32 :offset-assert 12)
(start-time int64 :offset-assert 16)
(value float :offset-assert 24)
)
:method-count-assert 11
:size-assert #x1c
@@ -173,7 +173,7 @@
(xz-max float :offset-assert 8)
(y-max float :offset-assert 12)
(timer int32 :offset-assert 16)
(start-time uint64 :offset-assert 24)
(start-time int64 :offset-assert 24)
(value vector :inline :offset-assert 32)
)
:method-count-assert 13
@@ -232,7 +232,3 @@
;; failed to figure out what this is:
0
+41 -27
View File
@@ -277,7 +277,10 @@
(period-float (the float period))
(current-time
(+
(the float (mod (-> *display* base-frame-counter) period))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) period)
)
(-> obj offset)
)
)
@@ -312,7 +315,10 @@
)
(current-time
(+
(the float (mod (-> *display* base-frame-counter) period))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) period)
)
(-> obj offset)
)
)
@@ -355,7 +361,10 @@
(period-float (the float period))
(current-time
(+
(the float (mod (-> *display* base-frame-counter) period))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) period)
)
(-> obj offset)
)
)
@@ -377,7 +386,10 @@
(max-phase 1.0)
(current-time
(+
(the float (mod (-> *display* base-frame-counter) period))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) period)
)
(-> obj offset)
)
)
@@ -401,7 +413,10 @@
(period-float (the float period))
(current-time
(+
(the float (mod (-> *display* base-frame-counter) period))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) period)
)
(-> obj offset)
)
)
@@ -434,7 +449,10 @@
(max-val 2.0)
(current-time
(+
(the float (mod (-> *display* base-frame-counter) period))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) period)
)
(-> obj offset)
)
)
@@ -468,7 +486,10 @@
(max-val 2.0)
(current-time
(+
(the float (mod (-> *display* base-frame-counter) period))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) period)
)
(-> obj offset)
)
)
@@ -529,7 +550,10 @@
(f0-1 2.0)
(f2-2
(+
(the float (mod (-> *display* base-frame-counter) v1-0))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) v1-0)
)
(-> obj offset)
)
)
@@ -569,7 +593,10 @@
(max-val 2.0)
(current-time
(+
(the float (mod (-> *display* base-frame-counter) period))
(the
float
(mod (the-as uint (-> *display* base-frame-counter)) period)
)
(-> obj offset)
)
)
@@ -620,7 +647,7 @@
(set! (-> obj min-time) min-tim)
(set! (-> obj max-time) max-time)
(set! (-> obj max-val) (* 0.5 max-times-two))
(set! (-> obj start-time) (the-as uint 0))
(set! (-> obj start-time) 0)
(set! (-> obj timer) 0)
(set! (-> obj value) 0.0)
(-> obj value)
@@ -629,10 +656,7 @@
;; definition for method 10 of type delayed-rand-float
(defmethod update! delayed-rand-float ((obj delayed-rand-float))
(when
(>=
(the-as int (- (-> *display* base-frame-counter) (-> obj start-time)))
(-> obj timer)
)
(>= (- (-> *display* base-frame-counter) (-> obj start-time)) (-> obj timer))
(set! (-> obj start-time) (-> *display* base-frame-counter))
(set! (-> obj timer) (rand-vu-int-range (-> obj min-time) (-> obj max-time)))
(set!
@@ -752,7 +776,7 @@
(set! (-> obj max-time) max-time)
(set! (-> obj xz-max) (* 0.5 xz-range))
(set! (-> obj y-max) (* 0.5 y-range))
(set! (-> obj start-time) (the-as uint 0))
(set! (-> obj start-time) 0)
(set! (-> obj timer) 0)
(vector-reset! (-> obj value))
(-> obj value)
@@ -780,10 +804,7 @@
;; definition for method 11 of type delayed-rand-vector
(defmethod update-with-delay! delayed-rand-vector ((obj delayed-rand-vector))
(if
(>=
(the-as int (- (-> *display* base-frame-counter) (-> obj start-time)))
(-> obj timer)
)
(>= (- (-> *display* base-frame-counter) (-> obj start-time)) (-> obj timer))
(update-now! obj)
)
(-> obj value)
@@ -795,10 +816,7 @@
delayed-rand-vector
((obj delayed-rand-vector))
(if
(>=
(the-as int (- (-> *display* base-frame-counter) (-> obj start-time)))
(-> obj timer)
)
(>= (- (-> *display* base-frame-counter) (-> obj start-time)) (-> obj timer))
(update-now! obj)
(vector-reset! (-> obj value))
)
@@ -865,7 +883,3 @@
)
(-> obj value)
)