mirror of
https://github.com/open-goal/jak-project
synced 2026-05-31 17:32:51 -04:00
Tyler Wilding
c6f0c5cd29
* decompiler: merge all `s6-*` usages * decomp: finish `training-obs` * decomp: finish `rolling-robber` * decomp: finish `villagep-obs` * decomp: finish `lavatube-obs` * skip function in `lavatube-obs` over #1029 * closes #1029 * kick nasm * merge s6 and sp in variable naming pass * revert my fix * fix mistakes and a bad method signature Co-authored-by: water111 <awaterford111445@gmail.com>
83 lines
2.8 KiB
Common Lisp
Vendored
Generated
83 lines
2.8 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type mud
|
|
(deftype mud (water-anim)
|
|
()
|
|
:heap-base #x70
|
|
:method-count-assert 30
|
|
:size-assert #xdc
|
|
:flag-assert #x1e007000dc
|
|
)
|
|
|
|
;; definition for method 3 of type mud
|
|
(defmethod inspect mud ((obj mud))
|
|
(let ((t9-0 (method-of-type water-anim inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; definition for symbol ripple-for-mud, type ripple-wave-set
|
|
(define ripple-for-mud (new 'static 'ripple-wave-set
|
|
:count 3
|
|
:converted #f
|
|
:normal-scale 1.0
|
|
:wave
|
|
(new 'static 'inline-array ripple-wave 4
|
|
(new 'static 'ripple-wave :scale 40.0 :xdiv 1 :speed 1.5)
|
|
(new 'static 'ripple-wave :scale 40.0 :xdiv -1 :zdiv 1 :speed 1.5)
|
|
(new 'static 'ripple-wave :scale 20.0 :xdiv 5 :zdiv 3 :speed 0.75)
|
|
(new 'static 'ripple-wave)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for symbol ripple-for-small-mud, type ripple-wave-set
|
|
(define ripple-for-small-mud (new 'static 'ripple-wave-set
|
|
:count 3
|
|
:converted #f
|
|
:normal-scale 1.0
|
|
:wave
|
|
(new 'static 'inline-array ripple-wave 4
|
|
(new 'static 'ripple-wave :scale 20.0 :xdiv 2 :speed 0.5)
|
|
(new 'static 'ripple-wave :scale 20.0 :xdiv -2 :zdiv 2 :speed 0.5)
|
|
(new 'static 'ripple-wave :scale 20.0 :xdiv 5 :zdiv 3 :speed 0.75)
|
|
(new 'static 'ripple-wave)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 22 of type mud
|
|
;; INFO: Return type mismatch ripple-wave-set vs none.
|
|
(defmethod TODO-RENAME-22 mud ((obj mud))
|
|
(let ((t9-0 (method-of-type water-anim TODO-RENAME-22)))
|
|
(t9-0 obj)
|
|
)
|
|
(set! (-> obj flags) (logand -8388609 (-> obj flags)))
|
|
(set! (-> obj flags) (logior #x40000 (-> obj flags)))
|
|
(let ((gp-0 (new 'process 'ripple-control)))
|
|
(set! (-> obj draw ripple) gp-0)
|
|
(set! (-> gp-0 global-scale) 3072.0)
|
|
(set! (-> gp-0 waveform) ripple-for-mud)
|
|
(let ((v1-9 (res-lump-data (-> obj entity) 'water-anim-fade-dist (pointer float))))
|
|
(when v1-9
|
|
(set! (-> gp-0 close-fade-dist) (-> v1-9 0))
|
|
(set! (-> gp-0 far-fade-dist) (-> v1-9 1))
|
|
)
|
|
)
|
|
(case (-> obj look)
|
|
((21 25 29)
|
|
(set! (-> gp-0 close-fade-dist) 4096000000.0)
|
|
(set! (-> gp-0 far-fade-dist) 8192000000.0)
|
|
)
|
|
)
|
|
(case (-> obj look)
|
|
((22 25 24 27 26 31)
|
|
(set! (-> gp-0 waveform) ripple-for-small-mud)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|