mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-16 05:09:45 -04:00
Code Issues Packages Projects Releases Wiki Activity

add mood and tod

Browse Source
This commit is contained in:
Hat Kid
2024-04-06 00:46:36 +02:00
parent 76ee24f2b1
commit 545bd8ad7a
12 changed files with 5660 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files
goal_src/jak3/engine/game/main.gc
+1 -1
View File
@@ -1633,7 +1633,7 @@
;; initial setup
(set! *teleport* #t)
(update *setting-control*) ;; dies on camera stuff, which looks for entities.
;; (init-time-of-day-context *time-of-day-context*)
(init-time-of-day-context *time-of-day-context*)
(display-sync gp-1)
(display-frame-finish gp-1)
(display-sync gp-1)
goal_src/jak3/engine/gfx/mood/mood-funcs.gc
+519
View File
@@ -7,3 +7,522 @@
;; DECOMP BEGINS
(defbehavior update-mood-default time-of-day-proc ((arg0 mood-context) (arg1 float) (arg2 int))
(copy-mood-exterior arg0)
0
(none)
)
(defun update-mood-copy-parent ((arg0 mood-context) (arg1 object) (arg2 int))
(let* ((v1-3 (-> *level* level arg2))
(a1-3 (-> v1-3 info memory-mode))
)
(when (or (or (= a1-3 (level-memory-mode borrow))
(= a1-3 (level-memory-mode borrow0))
(= a1-3 (level-memory-mode borrow1))
(= a1-3 (level-memory-mode borrow2))
(= a1-3 (level-memory-mode borrow3))
(= a1-3 (level-memory-mode borrow4))
(= a1-3 (level-memory-mode micro))
(= a1-3 (level-memory-mode borrow-city-small))
)
(-> v1-3 borrow-from-level)
)
(let ((v1-4 (-> v1-3 borrow-from-level)))
(if (and v1-4 (= (-> v1-4 status) 'active))
(mem-copy! (the-as pointer arg0) (the-as pointer (-> v1-4 mood-context)) 1968)
)
)
)
)
0
(none)
)
(defun get-sphere-interp ((arg0 sphere) (arg1 vector) (arg2 float) (arg3 float))
(let ((v1-0 (new 'stack-no-clear 'vector)))
0.0
(set! (-> v1-0 quad) (-> arg0 quad))
(vector-! v1-0 arg1 v1-0)
(let ((f1-0 (vector-length v1-0)))
(/ (fmax 0.0 (fmin (- f1-0 arg2) arg3)) arg3)
)
)
)
(deftype ctywide-states (structure)
((light light-state :inline)
(flame flames-state :inline)
)
)
(defbehavior update-mood-ctywide time-of-day-proc ((arg0 mood-context) (arg1 float) (arg2 int))
(copy-mood-exterior arg0)
(when (and (= (-> *level* level arg2 status) 'active)
(< (the-as uint (-> *time-of-day-context* mode)) (the-as uint 9))
)
(-> arg0 state)
(update-mood-light arg0 5 0 1.0 0.0 arg1 0.0 2.0)
(update-mood-flames arg0 6 1 8 1.0 0.000390625 1.5)
)
0
(none)
)
(defbehavior update-mood-copy-ctywide time-of-day-proc ((arg0 mood-context) (arg1 float) (arg2 int))
(let ((v1-1 (level-get *level* 'ctywide)))
(cond
((and v1-1 (= (-> v1-1 status) 'active))
(mem-copy! (the-as pointer arg0) (the-as pointer (-> v1-1 mood-context)) 1968)
)
(else
(update-mood-ctywide arg0 arg1 arg2)
(if (or (>= arg1 18.0) (>= 6.0 arg1))
(set! (-> arg0 times 5 w) 1.0)
)
)
)
)
0
(none)
)
(deftype ctysluma-states (structure)
((light light-state :inline)
(flame flames-state :inline)
(spec-0 sp-field-init-spec)
(spec-1 sp-field-init-spec)
(flicker float)
)
)
;; WARN: Return type mismatch sp-field-init-spec vs float.
(defun init-mood-ctysluma ((arg0 mood-context))
(let ((gp-0 (-> arg0 state)))
(let ((a0-1 (-> *part-id-table* 2)))
(set! (-> gp-0 4) (the-as uint 0))
(if (nonzero? a0-1)
(set! (-> gp-0 4) (the-as uint (get-field-spec-by-id a0-1 (sp-field-id spt-a))))
)
)
(let ((a0-2 (-> *part-id-table* 3)))
(set! (-> gp-0 5) (the-as uint 0))
(the-as float (when (nonzero? a0-2)
(let ((v0-1 (get-field-spec-by-id a0-2 (sp-field-id spt-a))))
(set! (-> gp-0 5) (the-as uint v0-1))
v0-1
)
)
)
)
)
)
(defbehavior update-mood-ctysluma time-of-day-proc ((arg0 mood-context) (arg1 float) (arg2 int))
(copy-mood-exterior arg0)
(when (and (!= arg2 -1)
(= (-> *level* level arg2 status) 'active)
(< (the-as uint (-> *time-of-day-context* mode)) (the-as uint 9))
)
(let ((s5-1 (the-as ctysluma-states (-> arg0 state))))
(update-mood-flames arg0 6 1 8 1.0 0.000390625 1.5)
(update-mood-light arg0 5 0 1.0 0.0 arg1 0.0 2.0)
(if (nonzero? (-> s5-1 spec-0))
(set! (-> s5-1 spec-0 initial-valuef) (* 32.0 (-> s5-1 light fade)))
)
(if (nonzero? (-> s5-1 spec-1))
(set! (-> s5-1 spec-1 initial-valuef) (* 8.0 (-> s5-1 light fade)))
)
(set! (-> arg0 times 7 w) (-> s5-1 flicker))
(if (not (paused?))
(set! (-> s5-1 flicker) (rand-vu-float-range 0.8 1.0))
)
)
)
0
(none)
)
(deftype ctyslumb-states (structure)
((light light-state :inline)
(spec-0 sp-field-init-spec)
(spec-1 sp-field-init-spec)
(flicker float)
)
)
;; WARN: Return type mismatch sp-field-init-spec vs uint.
(defun init-mood-ctyslumb ((arg0 mood-context))
(let ((gp-0 (-> arg0 state)))
(let ((a0-1 (-> *part-id-table* 4)))
(set! (-> gp-0 2) (the-as uint 0))
(if (nonzero? a0-1)
(set! (-> gp-0 2) (the-as uint (get-field-spec-by-id a0-1 (sp-field-id spt-a))))
)
)
(let ((a0-2 (-> *part-id-table* 5)))
(set! (-> gp-0 3) (the-as uint 0))
(the-as uint (when (nonzero? a0-2)
(let ((v0-1 (get-field-spec-by-id a0-2 (sp-field-id spt-a))))
(set! (-> gp-0 3) (the-as uint v0-1))
v0-1
)
)
)
)
)
)
(deftype ctyslumc-states (structure)
((light light-state :inline)
(spec-0 sp-field-init-spec)
(spec-1 sp-field-init-spec)
(flicker float)
)
)
;; WARN: Return type mismatch sp-field-init-spec vs none.
(defun init-mood-ctyslumc ((arg0 mood-context))
(let ((gp-0 (-> arg0 state)))
(let ((a0-1 (-> *part-id-table* 6)))
(set! (-> gp-0 2) (the-as uint 0))
(if (nonzero? a0-1)
(set! (-> gp-0 2) (the-as uint (get-field-spec-by-id a0-1 (sp-field-id spt-a))))
)
)
(let ((a0-2 (-> *part-id-table* 7)))
(set! (-> gp-0 3) (the-as uint 0))
(if (nonzero? a0-2)
(set! (-> gp-0 3) (the-as uint (get-field-spec-by-id a0-2 (sp-field-id spt-a))))
)
)
)
(none)
)
(deftype ctygenb-states (structure)
((light light-state :inline)
(flame flames-state :inline)
(flicker flicker-state :inline)
(spec-0 sp-field-init-spec)
(spec-1 sp-field-init-spec)
(spec-2 sp-field-init-spec)
(spec-3 sp-field-init-spec)
(next-flicker float)
)
)
;; WARN: Return type mismatch sp-field-init-spec vs object.
(defun init-mood-ctygenb ((arg0 mood-context))
(let ((gp-0 (-> arg0 state)))
(let ((a0-1 (-> *part-id-table* 8)))
(set! (-> gp-0 5) (the-as uint 0))
(if (nonzero? a0-1)
(set! (-> gp-0 5) (the-as uint (get-field-spec-by-id a0-1 (sp-field-id spt-a))))
)
)
(let ((a0-2 (-> *part-id-table* 9)))
(set! (-> gp-0 6) (the-as uint 0))
(if (nonzero? a0-2)
(set! (-> gp-0 6) (the-as uint (get-field-spec-by-id a0-2 (sp-field-id spt-a))))
)
)
(let ((a0-3 (-> *part-id-table* 10)))
(set! (-> gp-0 7) (the-as uint 0))
(if (nonzero? a0-3)
(set! (-> gp-0 7) (the-as uint (get-field-spec-by-id a0-3 (sp-field-id spt-a))))
)
)
(let ((a0-4 (-> *part-id-table* 11)))
(set! (-> gp-0 8) (the-as uint 0))
(when (nonzero? a0-4)
(let ((v0-3 (get-field-spec-by-id a0-4 (sp-field-id spt-a))))
(set! (-> gp-0 8) (the-as uint v0-3))
v0-3
)
)
)
)
)
(define *mhcity-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 171.4687 :y 155.0 :z 58.125 :w 128.0)
:fog-dists (new 'static 'vector :y 819200.0 :z 240.0 :w 130.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 171.4687 :y 155.0 :z 58.125 :w 128.0)
:fog-dists (new 'static 'vector :y 819200.0 :z 240.0 :w 130.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 171.4687 :y 155.0 :z 58.125 :w 128.0)
:fog-dists (new 'static 'vector :y 819200.0 :z 240.0 :w 130.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 171.4687 :y 155.0 :z 58.125 :w 128.0)
:fog-dists (new 'static 'vector :y 819200.0 :z 240.0 :w 130.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 171.4687 :y 155.0 :z 58.125 :w 128.0)
:fog-dists (new 'static 'vector :y 819200.0 :z 240.0 :w 130.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 180.0 :y 179.0 :z 40.0 :w 128.0)
:fog-dists (new 'static 'vector :x 40960.0 :y 819200.0 :z 240.0 :w 165.5)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 180.0 :y 159.0 :z 50.0 :w 128.0)
:fog-dists (new 'static 'vector :x 40960.0 :y 819200.0 :z 240.0 :w 175.5)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 180.0 :y 179.0 :z 40.0 :w 128.0)
:fog-dists (new 'static 'vector :x 40960.0 :y 819200.0 :z 230.0 :w 165.5)
:erase-color (new 'static 'vector :w 128.0)
)
)
)
)
;; ERROR: function has no type analysis. Cannot decompile.
(deftype mhcitya-states (structure)
((pulse pulse-state :inline)
)
)
;; WARN: Return type mismatch float vs object.
(defun init-mood-mhcitya ((arg0 mood-context))
(let ((v1-0 (-> arg0 state)))
(set! (-> v1-0 2) (the-as uint 1.0))
(let ((f0-1 1.0))
(set! (-> v1-0 1) (the-as uint f0-1))
f0-1
)
)
)
(deftype mhcityb-states (structure)
((pulse pulse-state :inline)
)
)
;; WARN: Return type mismatch float vs object.
(defun init-mood-mhcityb ((arg0 mood-context))
(let ((v1-0 (-> arg0 state)))
(set! (-> v1-0 2) (the-as uint 1.0))
(let ((f0-1 1.0))
(set! (-> v1-0 1) (the-as uint f0-1))
f0-1
)
)
)
(deftype ctyport-states (structure)
((light light-state :inline)
(spec-0 sp-field-init-spec)
(neon-min-bright float)
)
)
(define *ctyport-level* (the-as level-group #f))
(deftype ctymarka-states (structure)
((light light-state :inline)
(blink float)
)
)
(defbehavior update-mood-ctymarka time-of-day-proc ((arg0 mood-context) (arg1 float) (arg2 int))
(copy-mood-exterior arg0)
(when (and (= (-> *level* level arg2 status) 'active)
(< (the-as uint (-> *time-of-day-context* mode)) (the-as uint 9))
)
(let ((gp-1 (-> arg0 state)))
(update-mood-light arg0 5 0 1.0 0.0 arg1 0.0 2.0)
(set! (-> arg0 times 6 w) (the-as float (-> gp-1 2)))
(set! (-> arg0 times 7 w) 0.75)
(when (not (paused?))
(let ((v1-11 (-> *display* part-clock frame-counter)))
(if (< (* 0.2 (the float (mod v1-11 600))) 60.0)
(set! (-> gp-1 2) (the-as uint 0.0))
(set! (-> gp-1 2) (the-as uint 1.0))
)
)
)
)
)
0
(none)
)
(deftype mountain-states (structure)
((light0 light-state :inline)
(light1 light-state :inline)
(spec-0 sp-field-init-spec)
(spec-1 sp-field-init-spec)
(spec-2 sp-field-init-spec)
(spec-3 sp-field-init-spec)
(spec-4 sp-field-init-spec)
(spec-5 sp-field-init-spec)
(spec-6 sp-field-init-spec)
)
)
;; WARN: Return type mismatch sp-field-init-spec vs uint.
(defun init-mood-mountain ((arg0 mood-context))
(let ((gp-0 (-> arg0 state)))
(let ((a0-1 (-> *part-id-table* 12)))
(set! (-> gp-0 4) (the-as uint 0))
(if (nonzero? a0-1)
(set! (-> gp-0 4) (the-as uint (get-field-spec-by-id a0-1 (sp-field-id spt-a))))
)
)
(let ((a0-2 (-> *part-id-table* 13)))
(set! (-> gp-0 5) (the-as uint 0))
(if (nonzero? a0-2)
(set! (-> gp-0 5) (the-as uint (get-field-spec-by-id a0-2 (sp-field-id spt-a))))
)
)
(let ((a0-3 (-> *part-id-table* 14)))
(set! (-> gp-0 6) (the-as uint 0))
(if (nonzero? a0-3)
(set! (-> gp-0 6) (the-as uint (get-field-spec-by-id a0-3 (sp-field-id spt-a))))
)
)
(let ((a0-4 (-> *part-id-table* 15)))
(set! (-> gp-0 7) (the-as uint 0))
(if (nonzero? a0-4)
(set! (-> gp-0 7) (the-as uint (get-field-spec-by-id a0-4 (sp-field-id spt-a))))
)
)
(let ((a0-5 (-> *part-id-table* 16)))
(set! (-> gp-0 8) (the-as uint 0))
(if (nonzero? a0-5)
(set! (-> gp-0 8) (the-as uint (get-field-spec-by-id a0-5 (sp-field-id spt-a))))
)
)
(let ((a0-6 (-> *part-id-table* 17)))
(set! (-> gp-0 9) (the-as uint 0))
(if (nonzero? a0-6)
(set! (-> gp-0 9) (the-as uint (get-field-spec-by-id a0-6 (sp-field-id spt-a))))
)
)
(let ((a0-7 (-> *part-id-table* 18)))
(set! (-> gp-0 10) (the-as uint 0))
(the-as uint (when (nonzero? a0-7)
(let ((v0-6 (get-field-spec-by-id a0-7 (sp-field-id spt-a))))
(set! (-> gp-0 10) (the-as uint v0-6))
v0-6
)
)
)
)
)
)
(deftype ctyinda-states (structure)
((light light-state :inline)
)
)
(defbehavior update-mood-ctyinda time-of-day-proc ((arg0 mood-context) (arg1 float) (arg2 int))
(copy-mood-exterior arg0)
(when (and (= (-> *level* level arg2 status) 'active)
(< (the-as uint (-> *time-of-day-context* mode)) (the-as uint 9))
)
(set! (-> arg0 times 6 w) 1.0)
(let ((f0-1 0.5))
(let ((f1-0 1.0))
(cond
((or (>= 6.0 arg1) (>= arg1 18.0))
(set! f0-1 f1-0)
)
((and (< 6.0 arg1) (< arg1 7.0))
(+! f0-1 (* (- f1-0 f0-1) (- 7.0 arg1)))
)
((and (< 17.0 arg1) (< arg1 18.0))
(+! f0-1 (* (- f1-0 f0-1) (+ -17.0 arg1)))
)
)
)
(set! (-> arg0 times 7 w) f0-1)
)
(-> arg0 state)
(update-mood-light arg0 5 0 1.0 0.0 arg1 0.0 2.0)
)
0
(none)
)
(deftype ctyindb-states (structure)
((light light-state :inline)
(flicker float)
)
)
(defbehavior update-mood-ctyindb time-of-day-proc ((arg0 mood-context) (arg1 float) (arg2 int))
(copy-mood-exterior arg0)
(when (and (= (-> *level* level arg2 status) 'active)
(< (the-as uint (-> *time-of-day-context* mode)) (the-as uint 9))
)
(let ((s4-1 (-> arg0 state)))
(set! (-> arg0 times 6 w) 1.0)
(update-mood-light arg0 5 0 1.0 0.0 arg1 0.0 2.0)
(set! (-> arg0 times 7 w) (the-as float (-> s4-1 2)))
(if (not (paused?))
(set! (-> s4-1 2) (the-as uint (rand-vu-float-range 0.8 1.0)))
)
)
)
0
(none)
)
(defun set-atoll-explosion! ((arg0 float))
(let ((v1-1 (level-get *level* 'atoll)))
(when v1-1
(let ((v1-2 (-> v1-1 mood-context state))
(f0-0 arg0)
)
(set! (-> v1-2 2) (the-as uint f0-0))
f0-0
)
)
)
)
(defbehavior update-mood-atollext time-of-day-proc ((arg0 mood-context) (arg1 float) (arg2 int))
(copy-mood-exterior-ambi arg0 #t)
(when (and (= (-> *level* level arg2 status) 'active)
(< (the-as uint (-> *time-of-day-context* mode)) (the-as uint 9))
)
(set-vector! (-> arg0 times 1) 1.0 1.0 1.0 1.0)
(set! (-> arg0 times 2 w) 0.0)
(set! (-> arg0 times 3 w) 0.0)
(set! (-> arg0 times 4 w) 0.0)
(set! (-> arg0 times 5 w) 0.0)
(set! (-> arg0 times 6 w) 0.0)
(set! (-> arg0 times 7 w) 0.0)
)
0
(none)
)
goal_src/jak3/engine/gfx/mood/mood-h.gc
+220 -127
View File
@@ -15,184 +15,272 @@
;; DECOMP BEGINS
(deftype mood-channel (structure)
((data float 24)
(vecs vector4 6 :overlay-at (-> data 0))))
((data float 24)
(vecs vector4 6 :inline :overlay-at (-> data 0))
)
)
(deftype mood-channel-group (structure)
((data mood-channel 4 :inline)))
((data mood-channel 4 :inline)
)
)
(deftype mood-fog (structure)
((fog-color vector :inline)
(fog-dists vector :inline)
(fog-start meters :overlay-at (-> fog-dists data 0))
(fog-end meters :overlay-at (-> fog-dists data 1))
(fog-max float :overlay-at (-> fog-dists data 2))
(fog-min float :overlay-at (-> fog-dists data 3))
(erase-color vector :inline)))
((fog-color vector :inline)
(fog-dists vector :inline)
(fog-start meters :overlay-at (-> fog-dists data 0))
(fog-end meters :overlay-at (-> fog-dists data 1))
(fog-max float :overlay-at (-> fog-dists data 2))
(fog-min float :overlay-at (-> fog-dists data 3))
(erase-color vector :inline)
)
)
(deftype mood-fog-table (structure)
((data mood-fog 8 :inline)))
((data mood-fog 8 :inline)
(_data uint128 24 :overlay-at data)
)
)
(deftype mood-color (structure)
((lgt-color vector :inline)
(amb-color vector :inline)))
((lgt-color vector :inline)
(amb-color vector :inline)
)
)
(deftype mood-direction-table (structure)
((data vector 4 :inline)))
((data vector 4 :inline)
)
)
(deftype mood-color-table (structure)
((data mood-color 8 :inline)))
((data mood-color 8 :inline)
(_data uint128 16 :overlay-at data)
)
)
(deftype mood-sky-table (structure)
((data vector 8 :inline)))
((data vector 8 :inline)
)
)
(deftype mood-clouds (structure)
((cloud-min float)
(cloud-max float)))
((cloud-min float)
(cloud-max float)
)
)
(deftype mood-weather (structure)
((data float 2)
(cloud float :overlay-at (-> data 0))
(fog float :overlay-at (-> data 1)))
((data float 2)
(cloud float :overlay-at (-> data 0))
(fog float :overlay-at (-> data 1))
)
:pack-me
:allow-misaligned)
:allow-misaligned
)
(deftype mood-iweather (structure)
((data int32 2)
(cloud int32 :overlay-at (-> data 0))
(fog int32 :overlay-at (-> data 1)))
:allow-misaligned)
((data int32 2)
(cloud int32 :overlay-at (-> data 0))
(fog int32 :overlay-at (-> data 1))
)
:allow-misaligned
)
(deftype mood-range (structure)
((data float 4)
(min-cloud float :overlay-at (-> data 0))
(max-cloud float :overlay-at (-> data 1))
(min-fog float :overlay-at (-> data 2))
(max-fog float :overlay-at (-> data 3))
(quad uint128 :overlay-at (-> data 0))))
((data float 4)
(min-cloud float :overlay-at (-> data 0))
(max-cloud float :overlay-at (-> data 1))
(min-fog float :overlay-at (-> data 2))
(max-fog float :overlay-at (-> data 3))
(quad uint128 :overlay-at (-> data 0))
)
)
(deftype mood-filters-table (structure)
((data vector 8 :inline)))
((data vector 8 :inline)
)
)
(deftype mood-table (basic)
((mood-fog-table mood-fog-table)
(mood-color-table mood-color-table)
(mood-channel-group mood-channel-group)
(mood-direction-table mood-direction-table)
(mood-sky-table mood-sky-table)
(mood-interp-table sky-color-day)))
((mood-fog-table mood-fog-table)
(mood-color-table mood-color-table)
(mood-channel-group mood-channel-group)
(mood-direction-table mood-direction-table)
(mood-sky-table mood-sky-table)
(mood-interp-table sky-color-day)
)
)
(deftype light-state (structure)
((time float)
(fade float)))
((time float)
(fade float)
)
:pack-me
)
(deftype flicker-state (structure)
((flicker-off uint8)
(flicker-on uint8)))
((flicker-off uint8)
(flicker-on uint8)
)
:allow-misaligned
)
(deftype florescent-state (structure)
((value float)
(delay int8)
(delay2 int8)))
((value float)
(delay int8)
(delay2 int8)
)
)
(deftype electricity-state (structure)
((value float)
(scale float)))
((value float)
(scale float)
)
)
(deftype pulse-state (structure)
((pulse float)
(brightness float)
(target-brightness float)
(speed float)))
((pulse float)
(brightness float)
(target-brightness float)
(speed float)
)
)
(deftype strobe-state (structure)
((time float)))
((time float)
)
)
(deftype flames-state (structure)
((time float)
(index uint8)
(length uint8)
(height uint8)))
((time float)
(index uint8)
(length uint8)
(height uint8)
)
:pack-me
)
(deftype mood-context-core (structure)
((current-fog mood-fog :inline)
(current-sky-color vector :inline)
(current-env-color vector :inline)
(current-prt-color vector :inline)
(current-shadow-color vector :inline)))
((current-fog mood-fog :inline)
(current-sky-color vector :inline)
(current-env-color vector :inline)
(current-prt-color vector :inline)
(current-shadow-color vector :inline)
)
)
(deftype mood-context-core2 (mood-context-core)
((light-group light-group 8 :inline)))
((light-group light-group 8 :inline)
)
)
(deftype mood-context-core3 (mood-context-core2)
((times vector 8 :inline)))
((times vector 8 :inline)
)
)
(deftype mood-context (mood-context-core3)
((itimes vector4w 4 :inline)
(state uint32 32)))
((itimes vector4w 4 :inline)
(state uint32 32)
(data uint128 123 :overlay-at (-> current-fog fog-color data 0))
)
)
(deftype mood-control-work (structure)
((color vector4w :inline)
(weather mood-weather :inline)
(iweather mood-iweather :inline)
(interp mood-weather :inline)
(index int32 4)
(color-interp float)
(color-index int32 2)
(channel-interp float)
(channel-index int32 2)
(cloud-interp float)
(cloud-index int32 2)))
((color vector4w :inline)
(weather mood-weather :inline)
(iweather mood-iweather :inline)
(interp mood-weather :inline)
(index int32 4)
(color-interp float)
(color-index int32 2)
(channel-interp float)
(channel-index int32 2)
(cloud-interp float)
(cloud-index int32 2)
)
)
(deftype mood-control (mood-table)
((mood-clouds mood-clouds)
(current-interp mood-weather :inline)
(target-interp mood-weather :inline)
(speed-interp mood-weather :inline)
(range mood-range :inline)
(time-until-random mood-weather :inline)
(time-until-random-min mood-weather :inline)
(time-until-random-max mood-weather :inline)
(current-special-interp float)
(target-special-interp float)
(rate-special-interp float)
(display-flag symbol)
(overide-weather-flag symbol)
(pad int32)
(overide mood-weather :inline)
(lightning-index int32)
(lightning-val int32)
(lightning-time int32)
(lightning-time2 float)
(lightning-time3 float)
(lightning-flash float)
(lightning-id sound-id)
(lightning-count0 uint32)
(lightning-count1 uint32)
(lightning-count2 uint32)
(rain-id sound-id)
(sound-pitch float)
(fogs mood-fog-table 9)
(colors mood-color-table 3)
(channels mood-channel-group 3)
(clouds mood-clouds 9))
((mood-clouds mood-clouds)
(current-interp mood-weather :inline)
(target-interp mood-weather :inline)
(speed-interp mood-weather :inline)
(range mood-range :inline)
(time-until-random mood-weather :inline)
(time-until-random-min mood-weather :inline)
(time-until-random-max mood-weather :inline)
(current-special-interp float)
(target-special-interp float)
(rate-special-interp float)
(display-flag symbol)
(overide-weather-flag symbol)
(pad int32)
(overide mood-weather :inline)
(lightning-index int32)
(lightning-val int32)
(lightning-time int32)
(lightning-time2 float)
(lightning-time3 float)
(lightning-flash float)
(lightning-id sound-id)
(lightning-count0 uint32)
(lightning-count1 uint32)
(lightning-count2 uint32)
(rain-id sound-id)
(sound-pitch float)
(fogs mood-fog-table 9)
(colors mood-color-table 3)
(channels mood-channel-group 3)
(clouds mood-clouds 9)
)
(:methods
(mood-control-method-9 () none)
(mood-control-method-10 () none)
(mood-control-method-11 () none)
(mood-control-method-12 () none)
(set-special-interps! (_type_ float float symbol) none)
(weather-event-concluded? (_type_) symbol)
(mood-control-method-15 () none)
(mood-control-method-16 () none)
(mood-control-method-17 () none)
(mood-control-method-18 () none)
(mood-control-method-19 () none)
(mood-control-method-20 () none)
(mood-control-method-21 () none)
(mood-control-method-22 () none)
(mood-control-method-23 () none)
(mood-control-method-24 () none)))
(init-weather! (_type_) none)
(set-cloud-and-fog-interp! (_type_ float float float float) none)
(update-mood-range! (_type_ float float float float) none)
(set-time-for-random-weather! (_type_ float float) none)
(set-special-interps! (_type_ float float symbol) none)
(weather-event-concluded? (_type_) symbol)
(set-lightning-time! (_type_ int int float) none)
(apply-mood-clouds-and-fog (_type_ mood-control-work) none)
(apply-mood-fog (_type_ mood-control-work mood-color-table mood-color-table mood-color-table float) none)
(apply-fog-height (_type_ mood-control-work float float float float) none)
(apply-mood-colors (_type_ mood-control-work) none)
(mood-control-method-20 (_type_ mood-control-work mood-color-table mood-color-table mood-color-table float) none)
(apply-mood-channels (_type_ mood-control-work) none)
(adjust-num-clouds (_type_ mood-control-work) none)
(gen-lightning-and-thunder! (_type_ int) none)
(play-or-stop-lightning-sfx! (_type_ sound-spec vector) none)
)
)
(defmethod set-special-interps! ((this mood-control) (target-interp float) (rate-interp float) (set-current-interp? symbol))
"Sets the `*-special-interp` values with the given values
@@ -204,10 +292,15 @@
(let ((clamped-interp (fmax 0.0 (fmin 1.0 target-interp))))
(set! (-> this target-special-interp) clamped-interp)
(set! (-> this rate-special-interp) rate-interp)
(if set-current-interp? (set! (-> this current-special-interp) clamped-interp)))
(if set-current-interp?
(set! (-> this current-special-interp) clamped-interp)
)
)
0
(none))
(none)
)
(defmethod weather-event-concluded? ((this mood-control))
"@returns [[#t]] if [[this::override-weather-flag]] is set, we aren't in a cutscene and [[this::current-special-interp]] is equal to `0.0`"
(and (-> this overide-weather-flag) (not (movie?)) (= (-> this current-special-interp) 0.0)))
(and (-> this overide-weather-flag) (not (movie?)) (= (-> this current-special-interp) 0.0))
)
goal_src/jak3/engine/gfx/mood/mood-tables2.gc
+436
View File
@@ -7,3 +7,439 @@
;; DECOMP BEGINS
;; this file is debug only
(declare-file (debug))
(define *overide-mood-color-table*
(new 'static 'mood-color-table :data (new 'static 'inline-array mood-color 8
(new 'static 'mood-color
:lgt-color (new 'static 'vector :x 1.375 :y 1.157)
:amb-color (new 'static 'vector :x 0.625 :y 0.553 :z 0.725 :w 1.0)
)
(new 'static 'mood-color
:lgt-color (new 'static 'vector :x 1.473 :y 1.337 :z 1.0)
:amb-color (new 'static 'vector :x 0.527 :y 0.652 :z 0.75 :w 1.0)
)
(new 'static 'mood-color
:lgt-color (new 'static 'vector :x 1.473 :y 1.348 :z 1.15)
:amb-color (new 'static 'vector :x 0.527 :y 0.652 :z 0.75 :w 1.0)
)
(new 'static 'mood-color
:lgt-color (new 'static 'vector :x 1.473 :y 1.337 :z 1.0)
:amb-color (new 'static 'vector :x 0.527 :y 0.652 :z 0.75 :w 1.0)
)
(new 'static 'mood-color
:lgt-color (new 'static 'vector :x 1.5 :y 1.148)
:amb-color (new 'static 'vector :x 0.5 :y 0.562 :z 0.75 :w 1.0)
)
(new 'static 'mood-color
:lgt-color (new 'static 'vector :x 0.05 :y 0.149 :z 0.375)
:amb-color (new 'static 'vector :x 0.35 :y 0.451 :z 0.625 :w 1.0)
)
(new 'static 'mood-color
:lgt-color (new 'static 'vector :x 0.1 :y 0.35 :z 0.5)
:amb-color (new 'static 'vector :x 0.3 :y 0.35 :z 0.5 :w 1.0)
)
(new 'static 'mood-color
:lgt-color (new 'static 'vector :x 0.1 :y 0.575 :z 0.4)
:amb-color (new 'static 'vector :x 0.3 :y 0.425 :z 0.5 :w 1.0)
)
)
)
)
(define *overide-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 160.0 :y 150.0 :z 200.0 :w 128.0)
:fog-dists (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 64.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 150.0 :y 165.0 :z 220.0 :w 128.0)
:fog-dists (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 64.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 128.0 :y 180.0 :z 243.0 :w 128.0)
:fog-dists (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 64.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 150.0 :y 165.0 :z 220.0 :w 128.0)
:fog-dists (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 64.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 160.0 :y 150.0 :z 200.0 :w 128.0)
:fog-dists (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 64.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :x 16.0 :y 32.0 :z 100.0 :w 128.0)
:fog-dists (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 64.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :y 24.0 :z 64.0 :w 128.0)
:fog-dists (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 64.0)
:erase-color (new 'static 'vector :w 128.0)
)
(new 'static 'mood-fog
:fog-color (new 'static 'vector :y 56.0 :z 72.0 :w 128.0)
:fog-dists (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 64.0)
:erase-color (new 'static 'vector :w 128.0)
)
)
)
)
;; WARN: Return type mismatch pointer vs none.
(defun init-overide-table ((table mood-table))
"Similar to the beginning of [[init-mood-control]], does the bare minimum to setup the given [[mood-table]]
@param! table The table to initialize
@returns [[none]]"
(set! (-> table mood-fog-table) (new 'debug 'mood-fog-table))
(set! (-> table mood-color-table) (new 'debug 'mood-color-table))
(set! (-> table mood-channel-group) *no-cloud-mood-channel-group*)
(set! (-> table mood-direction-table) *mood-direction-table*)
(set! (-> table mood-sky-table) *mood-sky-table*)
(set! (-> table mood-interp-table) *mood-interp-table*)
(mem-copy! (the-as pointer (-> table mood-fog-table)) (the-as pointer *no-cloud-clear-mood-fog-table*) 384)
(mem-copy! (the-as pointer (-> table mood-color-table)) (the-as pointer *no-cloud-mood-color-table*) 256)
(none)
)
(define *overide-table* (new 'static 'mood-table))
(init-overide-table *overide-table*)
;; WARN: Return type mismatch object vs none.
(defun print-mood-tables ()
"Generates the GOAL code for defining the current state of [[*overide-table*]]"
(mem-copy! (the-as pointer (-> *overide-table* mood-fog-table)) (the-as pointer *overide-mood-fog-table*) 384)
(mem-copy!
(the-as pointer (-> *overide-table* mood-color-table))
(the-as pointer *overide-mood-color-table*)
256
)
(dotimes (data-idx 8)
(vector-float*!
(the-as vector (-> *overide-table* mood-fog-table data data-idx))
(the-as vector (-> *overide-table* mood-fog-table data data-idx))
(-> *overide-table* mood-fog-table data data-idx fog-color w)
)
(vector-float*!
(the-as vector (-> *overide-table* mood-color-table data data-idx))
(the-as vector (-> *overide-table* mood-color-table data data-idx))
(-> *overide-table* mood-color-table data data-idx lgt-color w)
)
(vector-float*!
(the-as vector (+ (the-as uint (-> *overide-table* mood-color-table data 0 amb-color)) (* data-idx 32)))
(the-as vector (+ (the-as uint (-> *overide-table* mood-color-table data 0 amb-color)) (* data-idx 32)))
(-> *overide-table* mood-color-table data data-idx amb-color w)
)
(set! (-> *overide-table* mood-fog-table data data-idx fog-color w) 128.0)
(set! (-> *overide-table* mood-color-table data data-idx lgt-color w) 0.0)
(set! (-> *overide-table* mood-color-table data data-idx amb-color w) 1.0)
)
(format 0 "(define *overide-mood-color-table*~%")
(format 0 " (new 'static 'mood-color-table~%")
(format 0 " :data (new 'static 'inline-array 'mood-color 0~%")
(dotimes (_color-idx 8)
(format 0 " (new 'static 'mood-color")
(let ((color-idx _color-idx))
(cond
((zero? color-idx)
(format 0 " ; sun rise~%")
)
((= color-idx 1)
(format 0 " ; morning~%")
)
((= color-idx 2)
(format 0 " ; noon~%")
)
((= color-idx 3)
(format 0 " ; afternoon~%")
)
((= color-idx 4)
(format 0 " ; sunset~%")
)
((= color-idx 5)
(format 0 " ; twilight~%")
)
((= color-idx 6)
(format 0 " ; evening~%")
)
((= color-idx 7)
(format 0 " ; green sun~%")
)
)
)
(format
0
" :lgt-color (new 'static 'vector :x ~f :y ~f :z ~f :w ~f)~%"
(-> *overide-table* mood-color-table data _color-idx lgt-color x)
(-> *overide-table* mood-color-table data _color-idx lgt-color y)
(-> *overide-table* mood-color-table data _color-idx lgt-color z)
(-> *overide-table* mood-color-table data _color-idx lgt-color w)
)
(format
0
" :amb-color (new 'static 'vector :x ~f :y ~f :z ~f :w ~f)~%"
(-> *overide-table* mood-color-table data _color-idx amb-color x)
(-> *overide-table* mood-color-table data _color-idx amb-color y)
(-> *overide-table* mood-color-table data _color-idx amb-color z)
(-> *overide-table* mood-color-table data _color-idx amb-color w)
)
(format 0 " )~%")
)
(format 0 " )~%")
(format 0 " )~%")
(format 0 " )~%")
(format 0 "(define *overide-mood-fog-table*~%")
(format 0 " (new 'static 'mood-fog-table~%")
(format 0 " :data (new 'static 'inline-array 'mood-fog 0~%")
(dotimes (_fog-idx 8)
(format 0 " (new 'static 'mood-fog")
(let ((fog-idx _fog-idx))
(cond
((zero? fog-idx)
(format 0 " ; sun rise~%")
)
((= fog-idx 1)
(format 0 " ; morning~%")
)
((= fog-idx 2)
(format 0 " ; noon~%")
)
((= fog-idx 3)
(format 0 " ; afternoon~%")
)
((= fog-idx 4)
(format 0 " ; sunset~%")
)
((= fog-idx 5)
(format 0 " ; twilight~%")
)
((= fog-idx 6)
(format 0 " ; evening~%")
)
((= fog-idx 7)
(format 0 " ; green sun~%")
)
)
)
(format
0
" :fog-color (new 'static 'vector :x ~f :y ~f :z ~f :w ~f)~%"
(-> *overide-table* mood-fog-table data _fog-idx fog-color x)
(-> *overide-table* mood-fog-table data _fog-idx fog-color y)
(-> *overide-table* mood-fog-table data _fog-idx fog-color z)
(-> *overide-table* mood-fog-table data _fog-idx fog-color w)
)
(format
0
" :fog-start (meters ~f) :fog-end (meters ~f) :fog-min ~f :fog-max ~f ~%"
(-> *overide-table* mood-fog-table data _fog-idx fog-dists x)
(-> *overide-table* mood-fog-table data _fog-idx fog-dists y)
(-> *overide-table* mood-fog-table data _fog-idx fog-dists w)
(-> *overide-table* mood-fog-table data _fog-idx fog-dists z)
)
(format 0 " :erase-color (new 'static 'vector :x 0.0 :y 0.0 :z 0.0 :w 128.0)~%")
(format 0 " )~%")
)
(format 0 " )~%")
(format 0 " )~%")
(format 0 " )~%")
(format 0 "(define *overide-table* (new 'static 'mood-table))~%")
(none)
)
;; WARN: Return type mismatch object vs none.
(defun desaturate-mood-colors ((arg0 float) (arg1 float) (arg2 float))
"Unused - Generate GOAL code for a new [[*overide-mood-color-table*]] definition that desaturates the color
Apply said overrides to the [[*overide-table*]]"
(mem-copy!
(the-as pointer (-> *overide-table* mood-color-table))
(the-as pointer *no-cloud-mood-color-table*)
256
)
(dotimes (data-idx 8)
(let ((color-data (-> *overide-table* mood-color-table data data-idx))
(mood-colors
(the-as
(inline-array mood-color)
(-> (the-as (inline-array mood-color) (-> *overide-table* mood-color-table data 0 amb-color)) data-idx)
)
)
)
(let ((max-light-color
(fmax (fmax (-> color-data lgt-color x) (-> color-data lgt-color y)) (-> color-data lgt-color z))
)
(max-0th-light-color
(fmax (fmax (-> mood-colors 0 lgt-color x) (-> mood-colors 0 lgt-color y)) (-> mood-colors 0 lgt-color z))
)
)
(set! (-> color-data lgt-color x)
(* (+ (-> color-data lgt-color x) (* (- max-light-color (-> color-data lgt-color x)) arg0)) arg1)
)
(set! (-> color-data lgt-color y)
(* (+ (-> color-data lgt-color y) (* (- max-light-color (-> color-data lgt-color y)) arg0)) arg1)
)
(set! (-> color-data lgt-color z)
(* (+ (-> color-data lgt-color z) (* (- max-light-color (-> color-data lgt-color z)) arg0)) arg1)
)
(set! (-> color-data lgt-color w) 0.0)
(set! (-> mood-colors 0 lgt-color x)
(* (+ (-> mood-colors 0 lgt-color x) (* (- max-0th-light-color (-> mood-colors 0 lgt-color x)) arg0)) arg2)
)
(set! (-> mood-colors 0 lgt-color y)
(* (+ (-> mood-colors 0 lgt-color y) (* (- max-0th-light-color (-> mood-colors 0 lgt-color x)) arg0)) arg2)
)
(set! (-> mood-colors 0 lgt-color z)
(* (+ (-> mood-colors 0 lgt-color z) (* (- max-0th-light-color (-> mood-colors 0 lgt-color x)) arg0)) arg2)
)
)
(set! (-> mood-colors 0 lgt-color w) 1.0)
)
)
(format 0 "(define *overide-mood-color-table*~%")
(format 0 " (new 'static 'mood-color-table~%")
(format 0 " :data (new 'static 'inline-array 'mood-color 0~%")
(dotimes (_color-idx 8)
(format 0 " (new 'static 'mood-color")
(let ((color-idx _color-idx))
(cond
((zero? color-idx)
(format 0 " ; sun rise~%")
)
((= color-idx 1)
(format 0 " ; morning~%")
)
((= color-idx 2)
(format 0 " ; noon~%")
)
((= color-idx 3)
(format 0 " ; afternoon~%")
)
((= color-idx 4)
(format 0 " ; sunset~%")
)
((= color-idx 5)
(format 0 " ; twilight~%")
)
((= color-idx 6)
(format 0 " ; evening~%")
)
((= color-idx 7)
(format 0 " ; green sun~%")
)
)
)
(format
0
" :lgt-color (new 'static 'vector :x ~f :y ~f :z ~f :w ~f)~%"
(-> *overide-table* mood-color-table data _color-idx lgt-color x)
(-> *overide-table* mood-color-table data _color-idx lgt-color y)
(-> *overide-table* mood-color-table data _color-idx lgt-color z)
(-> *overide-table* mood-color-table data _color-idx lgt-color w)
)
(format
0
" :amb-color (new 'static 'vector :x ~f :y ~f :z ~f :w ~f)~%"
(-> *overide-table* mood-color-table data _color-idx amb-color x)
(-> *overide-table* mood-color-table data _color-idx amb-color y)
(-> *overide-table* mood-color-table data _color-idx amb-color z)
(-> *overide-table* mood-color-table data _color-idx amb-color w)
)
(format 0 " )~%")
)
(format 0 " )~%")
(format 0 " )~%")
(format 0 " )~%")
(none)
)
;; WARN: Return type mismatch object vs none.
(defun desaturate-mood-fog ((arg0 (pointer mood-fog-table)) (arg1 float) (arg2 float))
"Unused - Generate GOAL code for a new [[*overide-mood-fog-table*]] definition that desaturates the fog color
Apply said overrides to the [[*overide-table*]]"
(mem-copy! (the-as pointer (-> *overide-table* mood-fog-table)) arg0 384)
(dotimes (data-idx 8)
(let ((fog-data (-> *overide-table* mood-fog-table data data-idx)))
(let ((max-fog-val (fmax (fmax (-> fog-data fog-color x) (-> fog-data fog-color y)) (-> fog-data fog-color z))))
(set! (-> fog-data fog-color x)
(* (+ (-> fog-data fog-color x) (* (- max-fog-val (-> fog-data fog-color x)) arg1)) arg2)
)
(set! (-> fog-data fog-color y)
(* (+ (-> fog-data fog-color y) (* (- max-fog-val (-> fog-data fog-color y)) arg1)) arg2)
)
(set! (-> fog-data fog-color z)
(* (+ (-> fog-data fog-color z) (* (- max-fog-val (-> fog-data fog-color z)) arg1)) arg2)
)
)
(set! (-> fog-data fog-color w) 1.0)
)
)
(format 0 "(define *overide-mood-fog-table*~%")
(format 0 " (new 'static 'mood-fog-table~%")
(format 0 " :data (new 'static 'inline-array 'mood-fog 0~%")
(dotimes (_fog-idx 8)
(format 0 " (new 'static 'mood-fog")
(let ((fog-idx _fog-idx))
(cond
((zero? fog-idx)
(format 0 " ; sun rise~%")
)
((= fog-idx 1)
(format 0 " ; morning~%")
)
((= fog-idx 2)
(format 0 " ; noon~%")
)
((= fog-idx 3)
(format 0 " ; afternoon~%")
)
((= fog-idx 4)
(format 0 " ; sunset~%")
)
((= fog-idx 5)
(format 0 " ; twilight~%")
)
((= fog-idx 6)
(format 0 " ; evening~%")
)
((= fog-idx 7)
(format 0 " ; green sun~%")
)
)
)
(format
0
" :fog-color (new 'static 'vector :x ~f :y ~f :z ~f :w ~f)~%"
(-> *overide-table* mood-fog-table data _fog-idx fog-color x)
(-> *overide-table* mood-fog-table data _fog-idx fog-color y)
(-> *overide-table* mood-fog-table data _fog-idx fog-color z)
(-> *overide-table* mood-fog-table data _fog-idx fog-color w)
)
(format
0
" :fog-start (meters ~f) :fog-end (meters ~f) :fog-min ~f :fog-max ~f ~%"
(* 0.00024414062 (-> *overide-table* mood-fog-table data _fog-idx fog-dists x))
(* 0.00024414062 (-> *overide-table* mood-fog-table data _fog-idx fog-dists y))
(-> *overide-table* mood-fog-table data _fog-idx fog-dists w)
(-> *overide-table* mood-fog-table data _fog-idx fog-dists z)
)
(format 0 " :erase-color (new 'static 'vector :x 0.0 :y 0.0 :z 0.0 :w 128.0)~%")
(format 0 " )~%")
)
(format 0 " )~%")
(format 0 " )~%")
(format 0 " )~%")
(none)
)
(define *debug-mood-color-table* (-> *mood-control* mood-color-table))
(define *debug-mood-fog-table* (-> *mood-control* mood-fog-table))
goal_src/jak3/engine/gfx/mood/mood.gc
+1615 -4
View File
File diff suppressed because it is too large Load Diff
goal_src/jak3/engine/gfx/mood/time-of-day.gc
+793 -2
View File
@@ -11,6 +11,797 @@
;; DECOMP BEGINS
;; WARN: Return type mismatch uint vs int.
(defmethod asize-of ((this time-of-day-palette))
(the-as int (+ (-> this type size) (* (* (-> this height) (-> this width)) 4)))
)
(defmethod deactivate ((this time-of-day-proc))
"Make a process dead, clean it up, remove it from the active pool, and return to dead pool."
(if (nonzero? (-> this sun))
(kill-particles (-> this sun))
)
(if (nonzero? (-> this green-sun))
(kill-particles (-> this green-sun))
)
(if (nonzero? (-> this moon))
(kill-particles (-> this moon))
)
(if (nonzero? (-> this day-star))
(kill-particles (-> this day-star))
)
((method-of-type process deactivate) this)
(none)
)
(if (zero? time-of-day-effect)
(set! time-of-day-effect nothing)
)
(defbehavior time-of-day-update time-of-day-proc ()
"Update particles, sky, and effect for time-of-day."
(time-of-day-effect)
(let ((v1-3 (if (-> *time-of-day-context* use-camera-other)
(-> *math-camera* inv-camera-rot-other)
(-> *math-camera* inv-camera-rot)
)
)
(gp-0 (if (-> *time-of-day-context* use-camera-other)
(-> *math-camera* trans-other)
(-> *math-camera* trans)
)
)
)
(when (-> *setting-control* user-current weather)
(let ((s5-0 (new 'stack-no-clear 'vector))
(s4-0 (new 'stack-no-clear 'vector))
)
(let ((v1-5 (-> v1-3 fvec)))
(set! (-> s5-0 quad) (-> *math-camera* trans quad))
(vector-! s4-0 s5-0 (-> *math-camera* prev-trans))
(let ((f0-1 (vector-dot s4-0 v1-5)))
(vector+float*! s5-0 s5-0 v1-5 (* 25.0 f0-1))
)
)
(set! (-> s5-0 y) (-> *math-camera* trans y))
(if (< 0.0 (-> *setting-control* user-current rain))
(update-rain (-> *setting-control* user-current rain) s5-0 s4-0)
)
(if (< 0.0 (-> *setting-control* user-current snow))
(update-snow (-> *setting-control* user-current snow) s5-0 s4-0)
)
)
)
(cond
(*dproc*
(cond
((< (-> self start-timer) 4)
(+! (-> self start-timer) 1)
)
(else
(let ((s5-1 (-> *time-of-day-context* sky))
(s4-1 (= (-> *setting-control* user-current sky-type) 'star-field))
)
(cond
((or (and (>= (-> self time-of-day) 6.25) (and (< (-> self time-of-day) 18.75) s5-1)) s4-1)
(if (zero? (-> self sun-count))
(spawn (-> self sun) gp-0)
)
)
((> (-> self sun-count) 0)
(kill-particles (-> self sun))
)
)
(cond
((or (and (or (>= (-> self time-of-day) 21.75) (>= 10.25 (-> self time-of-day))) s5-1) s4-1)
(if (zero? (-> self green-sun-count))
(spawn (-> self green-sun) gp-0)
)
)
((> (-> self green-sun-count) 0)
(kill-particles (-> self green-sun))
)
)
(cond
((or (and (or (>= 7.0 (-> self time-of-day)) (>= (-> self time-of-day) 17.0)) s5-1) s4-1)
(if (zero? (-> self moon-count))
(spawn (-> self moon) gp-0)
)
)
((> (-> self moon-count) 0)
(kill-particles (-> self moon))
)
)
(cond
((and (-> self day-star-enable) s5-1 (not s4-1))
(if (zero? (-> self day-star-count))
(spawn (-> self day-star) gp-0)
)
)
((> (-> self day-star-count) 0)
(kill-particles (-> self day-star))
)
)
)
)
)
)
(else
(set! (-> self start-timer) 0)
0
)
)
)
(set! (-> self sun-count) 0)
(set! (-> self green-sun-count) 0)
(set! (-> self moon-count) 0)
(set! (-> self day-star-count) 0)
(update-time-and-speed *sky-work* (-> self time-of-day) (-> self time-ratio))
0
(none)
)
(defbehavior update-counters time-of-day-proc ()
"Set hours, minutes, senonds based on current frame."
(let ((v1-2 (-> *display* bg-clock frame-counter)))
0
(let ((v1-3 (* 60 v1-2)))
(set! (-> self old-frame) (-> self current-frame))
(set! (-> self current-frame) (the-as uint v1-3))
(set! (-> self frames) (the-as uint v1-3))
(set! (-> self hours) (/ v1-3 #x107ac0))
(let ((v1-4 (- v1-3 (* #x107ac0 (-> self hours)))))
(set! (-> self minutes) (/ v1-4 #x4650))
(let ((v1-5 (- v1-4 (* #x4650 (-> self minutes)))))
(set! (-> self seconds) (/ v1-5 300))
(- v1-5 (* 300 (-> self seconds)))
)
)
)
)
(let ((f0-1 (* 0.0000009259259 (the float (mod (the-as int (-> self frames)) #x18b8200)))))
(set! (-> self time-of-day) f0-1)
(set! (-> *time-of-day-context* time) f0-1)
f0-1
)
)
(defstate time-of-day-tick (time-of-day-proc)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('change)
(case (-> block param 0)
(('ratio)
(let ((a0-5 (-> *display* bg-clock))
(f0-0 (the-as float (-> block param 1)))
)
(set! (-> self time-ratio) f0-0)
(set! (-> self dest-time-ratio) f0-0)
(update-rates! a0-5 f0-0)
)
)
(('hour)
(let ((f28-0 (the float (-> block param 1)))
(f30-0 (if (>= argc 3)
(the float (-> block param 2))
0.0
)
)
)
(update-counters)
(let ((v1-10 (-> *display* bg-clock frame-counter))
(a0-7 #x69780)
(a1-5 (/ (+ (the int (* 1080000.0 f28-0)) (the int (* 18000.0 f30-0))) 60))
)
(set! (-> *display* bg-clock frame-counter) (+ (- v1-10 (the-as time-frame (mod v1-10 a0-7))) a0-7 a1-5))
)
)
(update-counters)
(kill-particles (-> self sun))
(kill-particles (-> self green-sun))
(kill-particles (-> self moon))
(kill-particles (-> self day-star))
(set! (-> self sun-count) 0)
(set! (-> self green-sun-count) 0)
(set! (-> self moon-count) 0)
(set! (-> self day-star-count) 0)
(-> self hours)
)
)
)
(('save)
(set! (-> self old-frame-save) (-> self old-frame))
(set! (-> self current-frame-save) (-> self current-frame))
(set! (-> self frames-save) (-> self frames))
(set! (-> self time-of-day-save) (-> self time-of-day))
)
(('restore)
(set! (-> self old-frame) (-> self old-frame-save))
(set! (-> self current-frame) (-> self current-frame-save))
(set! (-> self frames) (-> self frames-save))
(set! (-> self time-of-day) (-> self time-of-day-save))
(let ((v1-30 (-> *display* bg-clock frame-counter))
(a0-18 #x69780)
(a1-8 (/ (the int (* 1080000.0 (-> self time-of-day))) 60))
)
(set! (-> *display* bg-clock frame-counter) (+ (- v1-30 (the-as time-frame (mod v1-30 a0-18))) a0-18 a1-8))
)
(update-counters)
(kill-particles (-> self sun))
(kill-particles (-> self green-sun))
(kill-particles (-> self moon))
(kill-particles (-> self day-star))
(set! (-> self sun-count) 0)
(set! (-> self green-sun-count) 0)
(set! (-> self moon-count) 0)
(set! (-> self day-star-count) 0)
(-> self hours)
)
(('ratio)
(-> self time-ratio)
)
(('day-length)
(if (= (-> self time-ratio) 0.0)
0
(/ 25920000.0 (-> self time-ratio))
)
)
(('time-frame)
(-> self frames)
)
(('time-of-day)
(-> self time-of-day)
)
(('time-of-day-norm)
(* 0.041666668 (-> self time-of-day))
)
(('hour)
(-> self hours)
)
(('minute)
(-> self minutes)
)
(('second)
(-> self seconds)
)
(('dest-clock-ratio-set)
(set! (-> self dest-time-ratio) (the-as float (-> block param 0)))
(let ((f0-23 (-> self time-ratio))
(f1-4 (-> self dest-time-ratio))
(f2-1 (/ 300.0 (the float (-> block param 1))))
)
(set! (-> self dest-time-delta) (* (fabs (- f0-23 f1-4)) f2-1 (-> *display* real-clock seconds-per-frame)))
)
(-> self dest-time-ratio)
)
)
)
:code (behavior ()
(until #f
(if (!= (-> self time-ratio) 0.0)
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id unk3))
)
(when (!= (-> self time-ratio) (-> self dest-time-ratio))
(seek! (-> self time-ratio) (-> self dest-time-ratio) (-> self dest-time-delta))
(update-rates! (-> *display* bg-clock) (-> self time-ratio))
)
(update-counters)
(suspend)
)
#f
)
:post time-of-day-update
)
(defbehavior init-time-of-day time-of-day-proc ()
"Initialize the time-of-day process"
(stack-size-set! (-> self main-thread) 128)
(set! (-> self hours) 0)
(set! (-> self minutes) 0)
(set! (-> self seconds) 0)
(set! (-> self frames) (the-as uint 0))
(set! (-> self time-of-day) 0.0)
(cond
(*time-of-day-fast*
(set! (-> self time-ratio) 60.0)
(set! (-> self dest-time-ratio) 60.0)
)
(else
(set! (-> self time-ratio) 1.0)
(set! (-> self dest-time-ratio) 1.0)
)
)
(update-rates! (-> *display* bg-clock) (-> self time-ratio))
(set! (-> self sun) (create-launch-control (-> *part-group-id-table* 3) self))
(set! (-> self green-sun) (create-launch-control (-> *part-group-id-table* 4) self))
(set! (-> self moon) (create-launch-control (-> *part-group-id-table* 5) self))
(set! (-> self day-star) (create-launch-control (-> *part-group-id-table* 6) self))
(set! (-> self event-hook) (-> time-of-day-tick event))
(go time-of-day-tick)
)
(defun start-time-of-day ()
"Start a new time of day process, killing old one if needed."
(kill-by-name "time-of-day-proc" *active-pool*)
(set! *time-of-day*
(process-spawn time-of-day-proc :init init-time-of-day :name "time-of-day-proc" :to *bg-pool*)
)
*time-of-day*
)
(defun time-of-day-setup ((arg0 symbol))
#f
)
"Check if the time of day ratio is set up or not. If arg0 = #t, then set it if needed."
(when arg0
(when (= (-> *time-of-day* 0 time-ratio) 0.0)
(send-event (ppointer->process *time-of-day*) 'change 'ratio (if *time-of-day-fast*
#x42700000
#x3f800000
)
)
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id unk3))
)
)
(!= (-> *time-of-day* 0 time-ratio) 0.0)
)
;; ERROR: function was not converted to expressions. Cannot decompile.
;; ERROR: function was not converted to expressions. Cannot decompile.
(defun init-time-of-day-context ((arg0 time-of-day-context))
"Set up lighting data to defaults"
(set-vector! (-> arg0 title-light-group dir0 color) 0.82 0.82 0.82 1.0)
(set-vector! (-> arg0 title-light-group dir1 color) 2.0 2.0 2.0 1.0)
(set-vector! (-> arg0 title-light-group ambi color) 0.4 0.4 0.4 1.0)
(set! (-> arg0 title-light-group dir0 extra x) 1.0)
(set! (-> arg0 title-light-group dir1 extra x) 1.0)
(set! (-> arg0 title-light-group ambi extra x) 1.0)
(set-vector! (-> arg0 rim-light-group dir0 color) 0.0 1.9 2.0 1.0)
(set-vector! (-> arg0 rim-light-group dir1 color) 0.0 1.9 2.0 1.0)
(set-vector! (-> arg0 rim-light-group dir2 color) 0.0 1.9 2.0 1.0)
(set-vector! (-> arg0 rim-light-group ambi color) 0.0 0.0 0.3 1.0)
(set! (-> arg0 rim-light-group dir0 extra x) 1.0)
(set! (-> arg0 rim-light-group dir1 extra x) 1.0)
(set! (-> arg0 rim-light-group dir2 extra x) 1.0)
(set! (-> arg0 rim-light-group ambi extra x) 1.0)
(set-vector! (-> arg0 rim-light-group2 dir0 color) 3.0 3.0 3.0 1.0)
(set-vector! (-> arg0 rim-light-group2 dir1 color) 3.0 3.0 3.0 1.0)
(set-vector! (-> arg0 rim-light-group2 dir2 color) 3.0 3.0 3.0 1.0)
(set-vector! (-> arg0 rim-light-group2 ambi color) 0.0 0.0 0.0 1.0)
(set! (-> arg0 rim-light-group2 dir0 extra x) 1.0)
(set! (-> arg0 rim-light-group2 dir1 extra x) 1.0)
(set! (-> arg0 rim-light-group2 dir2 extra x) 1.0)
(set! (-> arg0 rim-light-group2 ambi extra x) 1.0)
(set-vector! (-> arg0 rim-light-group3 dir0 color) 1.0 0.0 0.0 1.0)
(set-vector! (-> arg0 rim-light-group3 dir1 color) 1.0 0.0 0.0 1.0)
(set-vector! (-> arg0 rim-light-group3 dir2 color) 1.0 0.0 0.0 1.0)
(set-vector! (-> arg0 rim-light-group3 ambi color) 0.0 0.0 0.0 1.0)
(set! (-> arg0 rim-light-group3 dir0 extra x) 1.0)
(set! (-> arg0 rim-light-group3 dir1 extra x) 1.0)
(set! (-> arg0 rim-light-group3 dir2 extra x) 1.0)
(set! (-> arg0 rim-light-group3 ambi extra x) 1.0)
(set-vector! (-> arg0 filter-color) 1.0 1.0 1.0 1.0)
(set! (-> arg0 overide-enable) #f)
(when *debug-segment*
(mem-copy! (the-as pointer *overide-mood-color-table*) (the-as pointer *no-cloud-mood-color-table*) 256)
(mem-copy! (the-as pointer *overide-mood-fog-table*) (the-as pointer *no-cloud-clear-mood-fog-table*) 384)
(dotimes (v1-32 8)
(set! (-> *overide-mood-color-table* data v1-32 lgt-color w) 1.0)
(set! (-> *overide-mood-color-table* data v1-32 amb-color w) 1.0)
(set! (-> *overide-mood-fog-table* data v1-32 fog-color w) 1.0)
(set! (-> *overide-mood-fog-table* data v1-32 fog-dists x)
(* 0.00024414062 (-> *overide-mood-fog-table* data v1-32 fog-dists x))
)
(set! (-> *overide-mood-fog-table* data v1-32 fog-dists y)
(* 0.00024414062 (-> *overide-mood-fog-table* data v1-32 fog-dists y))
)
(set-vector! (-> *time-of-day-context* times v1-32) 1.0 1.0 1.0 1.0)
)
#f
)
)
(defun set-filter-color! ((arg0 float) (arg1 float) (arg2 float))
"Set RGB of filter."
(set-vector! (-> *time-of-day-context* filter-color) arg0 arg1 arg2 1.0)
0
(none)
)
(defun tod-madd! ((arg0 vector) (arg1 vector) (arg2 vector))
"Multiply-add"
(local-vars (v0-0 float))
(rlet ((acc :class vf)
(vf0 :class vf)
(vf4 :class vf)
(vf5 :class vf)
(vf6 :class vf)
)
(init-vf0-vector)
(.mov vf6 arg2)
(.lvf vf4 (&-> arg0 quad))
(.lvf vf5 (&-> arg1 quad))
(.mul.w.vf acc vf4 vf0)
(.add.mul.x.vf vf4 vf5 vf6 acc)
(.svf (&-> arg0 quad) vf4)
(.mov v0-0 vf4)
v0-0
)
)
(defun update-environment-colors ((arg0 time-of-day-context))
(let* ((v1-0 (-> arg0 light-group))
(s4-0 (-> v1-0 0 ambi color))
(s5-0 (new 'stack-no-clear 'vector))
)
(let ((s2-0 (-> arg0 current-prt-color))
(s3-0 (-> arg0 current-env-color))
)
(vector4-lerp! s5-0 (-> v1-0 0 dir0 color) (-> v1-0 0 dir1 color) (-> v1-0 0 dir1 extra x))
(when (and (= (-> s2-0 x) 0.0) (= (-> s2-0 y) 0.0) (= (-> s2-0 z) 0.0))
(set! (-> s2-0 x) (* 0.5 (+ (-> s4-0 x) (* 0.5 (+ (-> s4-0 x) (-> s5-0 x))))))
(set! (-> s2-0 y) (* 0.5 (+ (-> s4-0 y) (* 0.5 (+ (-> s4-0 y) (-> s5-0 y))))))
(set! (-> s2-0 z) (* 0.5 (+ (-> s4-0 z) (* 0.5 (+ (-> s4-0 z) (-> s5-0 z))))))
(set! (-> s2-0 w) 1.0)
)
(when (and (= (-> s3-0 x) 0.0) (= (-> s3-0 y) 0.0) (= (-> s3-0 z) 0.0))
(set! (-> s3-0 x) (* 48.0 (+ (-> s5-0 x) (* 0.5 (+ (-> s4-0 x) (-> s5-0 x))))))
(set! (-> s3-0 y) (* 48.0 (+ (-> s5-0 y) (* 0.5 (+ (-> s4-0 y) (-> s5-0 y))))))
(set! (-> s3-0 z) (* 48.0 (+ (-> s5-0 z) (* 0.5 (+ (-> s4-0 z) (-> s5-0 z))))))
(set! (-> s3-0 w) 128.0)
)
)
(let* ((f0-23 (fmax (fmax (-> s4-0 x) (-> s4-0 y)) (-> s4-0 z)))
(f2-14 (fmax (fmax (-> s5-0 x) (-> s5-0 y)) (-> s5-0 z)))
(f0-27 (fmin 0.85 (- 1.0 (/ (* 0.5 f2-14) (+ f0-23 f2-14)))))
(v0-1 (-> arg0 current-shadow-color))
)
(set! (-> v0-1 x) f0-27)
(set! (-> v0-1 y) f0-27)
(set! (-> v0-1 z) f0-27)
(set! (-> v0-1 w) 1.0)
v0-1
)
)
)
(defun update-time-of-day ((arg0 time-of-day-context))
(with-pp
(set! (-> arg0 exterior-level) #f)
(init-weather! *mood-control*)
(update-colors-for-time *sky-work* (-> arg0 time))
(cond
((-> arg0 overide-enable)
(mem-copy! (the-as pointer (-> *overide-table* mood-fog-table)) (the-as pointer *overide-mood-fog-table*) 384)
(mem-copy!
(the-as pointer (-> *overide-table* mood-color-table))
(the-as pointer *overide-mood-color-table*)
256
)
(dotimes (v1-7 8)
(vector-float*!
(the-as vector (-> *overide-table* mood-fog-table data v1-7))
(the-as vector (-> *overide-table* mood-fog-table data v1-7))
(-> *overide-table* mood-fog-table data v1-7 fog-color w)
)
(vector-float*!
(the-as vector (-> *overide-table* mood-color-table data v1-7))
(the-as vector (-> *overide-table* mood-color-table data v1-7))
(-> *overide-table* mood-color-table data v1-7 lgt-color w)
)
(vector-float*!
(the-as vector (+ (the-as uint (-> *overide-table* mood-color-table data 0 amb-color)) (* v1-7 32)))
(the-as vector (+ (the-as uint (-> *overide-table* mood-color-table data 0 amb-color)) (* v1-7 32)))
(-> *overide-table* mood-color-table data v1-7 amb-color w)
)
(set! (-> *overide-table* mood-fog-table data v1-7 fog-color w) 128.0)
(set! (-> *overide-table* mood-color-table data v1-7 lgt-color w) 0.0)
(set! (-> *overide-table* mood-fog-table data v1-7 fog-dists x)
(* 4096.0 (-> *overide-table* mood-fog-table data v1-7 fog-dists x))
)
(set! (-> *overide-table* mood-fog-table data v1-7 fog-dists y)
(* 4096.0 (-> *overide-table* mood-fog-table data v1-7 fog-dists y))
)
)
(let ((s5-0 (-> *level* level-default mood-context)))
(clear-mood-times s5-0)
(update-mood-exterior s5-0 *overide-table* (-> arg0 time) 10)
(update-mood-itimes s5-0)
)
)
(else
(let ((s5-1 *mood-control*))
(set! (-> arg0 current-clouds cloud-min) (-> s5-1 mood-clouds cloud-min))
(set! (-> arg0 current-clouds cloud-max) (-> s5-1 mood-clouds cloud-max))
(let ((s4-0 (-> *level* level-default mood-context)))
(clear-mood-times s4-0)
(update-mood-exterior s4-0 s5-1 (-> arg0 time) 10)
(update-mood-itimes s4-0)
)
)
)
)
(vector-float*! (-> arg0 filter) (-> arg0 filter-color) (-> arg0 filter-color w))
(set! (-> arg0 sky) #f)
(set! (-> arg0 special-mood) #f)
(set! (-> arg0 use-camera-other) #f)
(set! (-> arg0 target-interp) 0.0)
(let ((f0-16 4096000.0))
(dotimes (v1-19 (-> *level* length))
(let ((a0-52 (-> *level* level v1-19)))
(when (= (-> a0-52 status) 'active)
(if (logtest? (-> a0-52 info level-flags) (level-flags lf9))
(set! (-> arg0 sky) #t)
)
(if (and (= (-> a0-52 display?) 'display) (-> a0-52 info special-mood))
(set! (-> arg0 special-mood) (the-as basic (-> a0-52 info special-mood)))
)
(if (logtest? (-> a0-52 info level-flags) (level-flags use-camera-other))
(set! (-> arg0 use-camera-other) (the-as basic #t))
)
(set! f0-16 (fmin f0-16 (-> a0-52 info fog-height)))
)
)
)
(if (!= (-> *time-of-day-context* special-mood) 'desert)
(set-fog-height! f0-16)
)
)
(if (-> arg0 sky)
(set! (-> (&-> *level* level-default texture-anim-array 9) 0) *sky-texture-anim-array*)
(set! (-> (&-> *level* level-default texture-anim-array 9) 0) #f)
)
(let ((s5-2 (level-get-target-inside *level*)))
(dotimes (s4-1 10)
(let ((s3-0 (-> *level* level s4-1)))
(case (-> s3-0 status)
(('active 'loaded 'shutdown 'special)
(when (not (paused?))
(cond
((not s5-2)
(set! (-> arg0 interp s4-1) 1.0)
)
((= s3-0 s5-2)
(if *teleport*
(set! (-> arg0 interp s4-1) 1.0)
(set! (-> arg0 interp s4-1) (fmin 1.0 (+ 0.0166 (-> arg0 interp s4-1))))
)
)
(*teleport*
(set! (-> arg0 interp s4-1) 0.0)
)
(else
(set! (-> arg0 interp s4-1) (fmax 0.0 (+ -0.0166 (-> arg0 interp s4-1))))
)
)
)
(let ((s2-0 (-> pp clock)))
(set! (-> pp clock) (-> *display* real-clock))
(set! (-> s3-0 mood-func) (the-as (function mood-context float int none) (-> s3-0 info mood-func value)))
(clear-mood-times (-> s3-0 mood-context))
(if (nonzero? (-> s3-0 mood-func))
((-> s3-0 mood-func) (-> s3-0 mood-context) (-> arg0 time) s4-1)
(update-mood-default (-> s3-0 mood-context) (-> arg0 time) s4-1)
)
(when (-> arg0 overide-enable)
(let ((s1-0 (new 'stack-no-clear 'structure)))
(dotimes (s0-0 8)
(let ((a1-59 (-> s3-0 mood-context times s0-0)))
(vector-float*! (the-as vector s1-0) (-> arg0 times s0-0) (-> arg0 times s0-0 w))
(vector4-mul! (the-as vector4 a1-59) (the-as vector4 a1-59) (the-as vector4 s1-0))
)
)
)
)
(update-mood-itimes (-> s3-0 mood-context))
(set! (-> pp clock) s2-0)
)
)
(else
(set! (-> arg0 interp s4-1) 0.0)
)
)
)
)
)
(if (and (-> arg0 exterior-level) (!= (-> *mood-control* lightning-flash) 0.0))
(set! (-> *display* force-sync) (the-as uint 2))
)
(let ((f0-29 0.0))
(dotimes (v1-91 10)
(+! f0-29 (-> arg0 interp v1-91))
)
(when (!= f0-29 0.0)
(dotimes (v1-95 10)
(set! (-> arg0 interp v1-95) (/ (-> arg0 interp v1-95) f0-29))
)
(let ((v1-98 (-> arg0 current-fog)))
(dotimes (a0-83 103)
;; og:preserve-this
(set! (-> (the-as (pointer int128) (+ (* a0-83 16) (the-as int v1-98)))) (the int128 0))
)
)
(let* ((s5-3 (-> arg0 current-fog))
(s4-2 (-> *mood-control* range))
(v1-103 (level-get-target-inside *level*))
(s3-1 (if v1-103
(-> v1-103 index)
0
)
)
)
(set! (-> s4-2 quad) (the-as uint128 0))
(set! (-> arg0 max-rain) 0.0)
(set! (-> arg0 fog-mult) 0.0)
(set! (-> arg0 ocean-alpha) 0.0)
(dotimes (s2-1 10)
(let ((f30-0 (-> arg0 interp s2-1))
(s1-1 (-> *level* level s2-1))
)
(when (!= f30-0 0.0)
(let ((a2-23 (-> s1-1 mood-context)))
(vector4-array-madd!
(the-as (inline-array vector4) s5-3)
(the-as (inline-array vector4) s5-3)
(the-as (inline-array vector4) a2-23)
f30-0
7
)
)
(dotimes (s0-1 8)
(let ((a2-24 (-> s1-1 mood-context light-group s0-1))
(a1-63 (-> arg0 light-group s0-1))
)
(light-group-madd! a1-63 (the-as (pointer light-group) a1-63) a2-24 f30-0)
)
)
(let ((a2-25 (-> s1-1 info mood-range)))
(vector4-madd! (the-as vector4 s4-2) (the-as vector4 s4-2) (the-as vector4 a2-25) f30-0)
)
(+! (-> arg0 max-rain) (* (-> s1-1 info max-rain) f30-0))
(+! (-> arg0 fog-mult) (* (-> s1-1 info fog-mult) f30-0))
(+! (-> arg0 ocean-alpha) (* (-> s1-1 info ocean-alpha) f30-0))
(when (= s2-1 s3-1)
(dotimes (v1-126 8)
(let ((a0-92 (-> s1-1 mood-context light-group v1-126))
(a1-68 (-> arg0 light-group v1-126))
)
(dotimes (a2-26 4)
(set! (-> a1-68 lights a2-26 extra y) (-> a0-92 lights a2-26 extra y))
)
)
)
)
)
)
)
)
(dotimes (s5-4 8)
(dotimes (s4-3 3)
(let ((v1-135 (+ (+ (* 48 s4-3) 156 (* 192 s5-4)) (the-as int arg0))))
(vector-normalize! (the-as vector (+ v1-135 0)) 1.0)
)
)
)
)
)
(if (and (-> arg0 overide-enable) (!= (-> *time-of-day-context* mode) 8))
(mem-copy!
(the-as pointer (-> arg0 current-fog))
(the-as
pointer
(-> *overide-table*
mood-fog-table
data
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
)
)
48
)
)
(let ((f30-1 (-> *blit-displays-work* slow-time))
(a1-76 (new 'stack-no-clear 'vector))
(s5-5 (-> arg0 current-fog))
)
(let ((f28-0 f30-1))
(dotimes (v1-151 4)
(set! f28-0 (* f28-0 f30-1))
)
(set-vector! a1-76 0.0 48.0 128.0 128.0)
(vector4-lerp! (-> s5-5 fog-color) a1-76 (-> s5-5 fog-color) f30-1)
(set! (-> s5-5 fog-dists x) (lerp 131072.0 (-> s5-5 fog-dists x) f30-1))
(set! (-> s5-5 fog-dists y) (lerp 819200.0 (-> s5-5 fog-dists y) f28-0))
)
(set! (-> s5-5 fog-dists z) (lerp 199.0 (-> s5-5 fog-dists z) f30-1))
(set! (-> s5-5 fog-dists w) (lerp 64.0 (-> s5-5 fog-dists w) f30-1))
)
(update-environment-colors arg0)
(let ((a0-109 (-> arg0 current-fog))
(v1-156 *fog-texture-work*)
)
(let ((a1-81 (-> a0-109 fog-color)))
(set! *fog-color*
(new 'static 'rgba :r (the int (-> a1-81 x)) :g (the int (-> a1-81 y)) :b (the int (-> a1-81 z)))
)
(set! (-> v1-156 color) (new 'static 'rgba
:r (the int (-> a1-81 x))
:r (the int (-> a1-81 x))
:g (the int (-> a1-81 y))
:b (the int (-> a1-81 z))
)
)
)
(let ((a1-86 (-> a0-109 erase-color)))
(set! (-> arg0 erase-color)
(new 'static 'rgba :a #x80 :b (the int (-> a1-86 z)) :g (the int (-> a1-86 y)) :r (the int (-> a1-86 x)))
)
)
(let ((f0-73 (-> a0-109 fog-dists x))
(f1-18 (-> a0-109 fog-dists y))
)
(let ((f3-0 (-> a0-109 fog-dists z))
(f2-2 (-> a0-109 fog-dists w))
)
(set! (-> *math-camera* fog-start) f0-73)
(set! (-> *math-camera* fog-end) f1-18)
(set! (-> *math-camera* fog-max) f3-0)
(set! (-> *math-camera* fog-min) f2-2)
(set! (-> v1-156 alpha-near) (* 0.003921569 (the float (- 255 (the int f3-0)))))
(set! (-> v1-156 alpha-far) (* 0.003921569 (the float (- 255 (the int f2-2)))))
)
(set! (-> v1-156 alpha-delta) (- (-> v1-156 alpha-far) (-> v1-156 alpha-near)))
(set! (-> v1-156 fog-near) f0-73)
(set! (-> v1-156 fog-far) f1-18)
(set! (-> v1-156 fog-delta) (- f1-18 f0-73))
)
)
(set-cloud-minmax! (-> arg0 current-clouds cloud-min) (-> arg0 current-clouds cloud-max))
(reset! *palette-fade-controls*)
0
(none)
)
)
(defun calc-fade-from-fog ((arg0 vector))
(let* ((f0-0 (vector-vector-distance (math-camera-pos) arg0))
(v1-1 (-> *time-of-day-context* current-fog))
(f1-0 (-> v1-1 fog-dists x))
(f2-0 (-> v1-1 fog-dists y))
(f3-1 (* 0.003921569 (-> v1-1 fog-dists w)))
(f4-2 (* 0.003921569 (-> v1-1 fog-dists z)))
)
(+ f4-2 (* (fmax 0.0 (fmin 1.0 (/ (- f0-0 f1-0) (- f2-0 f1-0)))) (- f3-1 f4-2)))
)
)
(defmethod set-fade! ((this palette-fade-controls) (arg0 int) (arg1 float) (arg2 float) (arg3 vector))
(cond
((and (>= arg0 0) (< arg0 8))
(let ((v1-3 (-> this control arg0)))
(when (< arg2 (-> v1-3 actor-dist))
(if arg3
(set! (-> v1-3 trans quad) (-> arg3 quad))
)
(set! (-> v1-3 fade) (fmax 0.0 (fmin 1.993 arg1)))
(set! (-> v1-3 actor-dist) arg2)
)
)
)
(else
(format 0 "ERROR: Bogus palette-fade-control index!~%")
)
)
)
(defmethod reset! ((this palette-fade-controls))
(countdown (v1-0 8)
(let ((a1-2 (-> this control v1-0)))
(set! (-> a1-2 fade) 0.0)
(set! (-> a1-2 actor-dist) 4096000000.0)
)
)
0
(none)
)
(start-time-of-day)
goal_src/jak3/engine/gfx/mood/weather-part.gc
+911 -10
View File
@@ -5,15 +5,916 @@
;; name in dgo: weather-part
;; dgos: GAME
;; stubs
(defun update-rain ((a0 float) (a1 vector) (a2 vector))
(none)
)
(defun update-snow ((a0 float) (a1 vector) (a2 vector))
(none)
)
;; DECOMP BEGINS
(defpartgroup group-rain-screend-drop-real
:id 1
:flags (sp2)
:bounds (static-bspherem 0 0 0 16)
:parts ((sp-item 23 :binding 19)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 19 :flags (sp2 sp3) :binding 20)
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 20 :flags (sp2 sp3))
(sp-item 24 :binding 21)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 21 :flags (sp2 sp3) :binding 22)
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
(sp-item 22 :flags (sp2 sp3))
)
)
(define group-rain-screend-drop (-> *part-group-id-table* 1))
(defpart 24
:init-specs ((:texture (starflash level-default-sprite))
(:num 0.1)
(:x (meters -4.5) (meters 9))
(:y (meters -3) (meters 6))
(:scale-x (meters 2.5))
(:rot-z (degrees 0) (degrees 360))
(:scale-y :copy scale-x)
(:r 128.0)
(:g 128.0)
(:b 128.0)
(:a 12.0)
(:scalevel-x (meters 0.16666667))
(:scalevel-y :copy scalevel-x)
(:fade-a -0.8)
(:timer (seconds 0.035))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
)
)
(defpart 21
:init-specs ((:texture (lakedrop level-default-sprite))
(:num 1.0)
(:scale-x (meters 1.5))
(:scale-y :copy scale-x)
(:r 128.0)
(:g 128.0)
(:b 255.0)
(:a 20.0)
(:scalevel-x (meters 0.033333335))
(:scalevel-y :copy scalevel-x)
(:fade-a -0.8)
(:accel-y (meters -0.00066666666))
(:timer (seconds 0.9))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
(:next-time (seconds 0.05))
(:next-launcher 25)
)
)
(defpart 25
:init-specs ((:scalevel-x (meters 0.004166667)) (:scalevel-y :copy scalevel-x) (:fade-a -0.06666667))
)
(defpart 22
:init-specs ((:num 1.0)
(:rot-x 12)
(:r 4096.0)
(:g 3276.8)
(:b 3276.8)
(:fade-r 6.068148)
(:fade-g 68.26667)
(:fade-b 3.034074)
(:accel-y (meters -0.00066666666))
(:timer (seconds 0.9))
(:flags (distort))
(:next-time (seconds 0.1))
(:next-launcher 26)
)
)
(defpart 26
:init-specs ((:fade-g -5.1200004))
)
(defpart 23
:init-specs ((:texture (starflash level-default-sprite))
(:num 0.1)
(:x (meters -4.5) (meters 9))
(:y (meters -3) (meters 6))
(:scale-x (meters 4))
(:rot-z (degrees 0) (degrees 360))
(:scale-y :copy scale-x)
(:r 128.0)
(:g 128.0)
(:b 128.0)
(:a 12.0)
(:scalevel-x (meters 0.26666668))
(:scalevel-y :copy scalevel-x)
(:fade-a -0.8)
(:timer (seconds 0.035))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
)
)
(defpart 19
:init-specs ((:texture (lakedrop level-default-sprite))
(:num 1.0)
(:scale-x (meters 2.6))
(:scale-y :copy scale-x)
(:r 128.0)
(:g 128.0)
(:b 255.0)
(:a 20.0)
(:scalevel-x (meters 0.06666667))
(:scalevel-y :copy scalevel-x)
(:fade-a -0.8)
(:accel-y (meters -0.00066666666))
(:timer (seconds 0.9))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
(:next-time (seconds 0.05))
(:next-launcher 27)
)
)
(defpart 27
:init-specs ((:scalevel-x (meters 0.008333334)) (:scalevel-y :copy scalevel-x) (:fade-a -0.06666667))
)
(defpart 20
:init-specs ((:num 1.0)
(:rot-x 24)
(:r 12288.0)
(:g 6553.6)
(:b 6553.6)
(:fade-r 12.136296)
(:fade-g 136.53334)
(:fade-b 6.068148)
(:accel-y (meters -0.00066666666))
(:timer (seconds 0.9))
(:flags (distort))
(:next-time (seconds 0.1))
(:next-launcher 28)
)
)
(defpart 28
:init-specs ((:fade-g -10.240001))
)
(defpartgroup group-stars
:id 2
:flags (sp1)
:bounds (static-bspherem 0 0 0 8)
:parts ((sp-item 29 :flags (sp6)) (sp-item 30 :flags (sp6)) (sp-item 31 :flags (sp6)))
)
(defpart 29
:init-specs ((:texture (hotdot level-default-sprite))
(:num 1.0)
(:scale-x (meters 30) (meters 20))
(:scale-y :copy scale-x)
(:r 256.0)
(:g 256.0)
(:b 256.0)
(:a 0.0)
(:fade-a 0.42666668)
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
(:next-time (seconds 0.2) (seconds 0.797))
(:next-launcher 32)
(:conerot-x (degrees -89) (degrees 178))
(:conerot-y (degrees 0) (degrees 1440))
(:rotate-y (degrees 0) (degrees 3600))
(:conerot-radius (meters 5000))
)
)
(defpart 32
:init-specs ((:fade-a 0.0) (:next-time (seconds 99999)) (:next-launcher 33))
)
(defpart 33
:init-specs ((:fade-a -0.42666668))
)
(defpart 30
:init-specs ((:texture (hotdot level-default-sprite))
(:num 1.0)
(:scale-x (meters 30) (meters 20))
(:scale-y :copy scale-x)
(:r 256.0)
(:g 256.0)
(:b 256.0)
(:a 0.0)
(:fade-a 0.42666668)
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
(:next-time (seconds 0.2) (seconds 0.797))
(:next-launcher 32)
(:conerot-x (degrees 30) (degrees 59))
(:conerot-y (degrees 0) (degrees 2880))
(:rotate-y (degrees 0) (degrees 3600))
(:conerot-radius (meters 5000))
)
)
(defpart 31
:init-specs ((:texture (hotdot level-default-sprite))
(:num 1.0)
(:scale-x (meters 30) (meters 20))
(:scale-y :copy scale-x)
(:r 128.0)
(:g 128.0)
(:b 128.0)
(:a 0.0)
(:fade-a 0.42666668)
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
(:next-time (seconds 0.2) (seconds 0.797))
(:next-launcher 32)
(:conerot-x (degrees 60) (degrees 29))
(:conerot-y (degrees 0) (degrees 5760))
(:rotate-y (degrees 0) (degrees 3600))
(:conerot-radius (meters 5000))
)
)
(defpart 34
:init-specs ((:texture (hotdot level-default-sprite))
(:num 4.0)
(:x (meters 10) (meters 10))
(:y (meters 2) (meters 14))
(:scale-x (meters 0.2) (meters 0.1))
(:rot-x 4)
(:rot-z (degrees 0) (degrees 360))
(:scale-y :copy scale-x)
(:r 255.0)
(:g 255.0)
(:b 255.0)
(:a 0.0)
(:vel-y (meters -0.01) (meters -0.0033333334))
(:rotvel-z (degrees -1.2) (degrees 2.4))
(:fade-a 0.85333335)
(:timer (seconds 5))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 sp-cpuinfo-flag-14))
(:next-time (seconds 0.25) (seconds 0.247))
(:next-launcher 35)
(:rotate-y (degrees 0) (degrees 180))
)
)
(defpart 36
:init-specs ((:texture (hotdot level-default-sprite))
(:num 0.0)
(:x (meters 0) (meters 20))
(:y (meters 16))
(:scale-x (meters 0.2) (meters 0.1))
(:rot-x 4)
(:rot-z (degrees 0) (degrees 360))
(:scale-y :copy scale-x)
(:r 255.0)
(:g 255.0)
(:b 255.0)
(:a 0.0)
(:vel-y (meters -0.01) (meters -0.0033333334))
(:rotvel-z (degrees -1.2) (degrees 2.4))
(:fade-a 0.85333335)
(:timer (seconds 5))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 sp-cpuinfo-flag-14))
(:next-time (seconds 0.25) (seconds 0.247))
(:next-launcher 35)
(:rotate-y (degrees 0) (degrees 360))
)
)
(defpart 35
:init-specs ((:fade-a 0.0) (:next-time (seconds 4)) (:next-launcher 37))
)
(defpart 37
:init-specs ((:fade-a -0.85333335))
)
(defun update-snow ((arg0 float) (arg1 vector) (arg2 vector))
(let ((f0-0 (lerp-scale 0.0 1.0 (vector-length arg2) 2048.0 40960.0)))
(set! (-> *part-id-table* 36 init-specs 1 initial-valuef) (- 1.0 f0-0))
(set! (-> *part-id-table* 34 init-specs 1 initial-valuef) (* 4.0 f0-0))
)
(set! (-> *part-id-table* 34 init-specs 19 initial-valuef) (+ 32768.0 (vector-y-angle arg2)))
(launch-particles (-> *part-id-table* 36) arg1)
(launch-particles (-> *part-id-table* 34) arg1)
0
(none)
)
(defpart 38
:init-specs ((:texture (lakedrop level-default-sprite))
(:birth-func 'birth-func-rain)
(:num 1.0)
(:x (meters -20) (meters 40))
(:y (meters 30))
(:scale-x (meters 0.03) (meters 0.03))
(:scale-y (meters 0.5) (meters 0.5))
(:r 32.0 32.0)
(:g :copy r)
(:b 64.0 32.0)
(:a 32.0 64.0)
(:vel-y (meters -0.1) (meters -0.2))
(:timer (seconds 3))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
(:userdata 0.0)
(:func 'check-drop-level-rain)
(:rotate-y (degrees 0) (degrees 3600))
)
)
(defpart 39
:init-specs ((:texture (lakedrop level-default-sprite))
(:birth-func 'birth-func-rain)
(:num 4.0)
(:x (meters -20) (meters 40))
(:y (meters 30))
(:scale-x (meters 0.03) (meters 0.03))
(:scale-y (meters 0.5) (meters 0.5))
(:r 32.0 32.0)
(:g :copy r)
(:b 64.0 32.0)
(:a 32.0 64.0)
(:vel-y (meters -0.06666667) (meters -0.033333335))
(:timer (seconds 3))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
(:userdata 0.0)
(:func 'check-drop-level-rain2)
(:rotate-y (degrees 0) (degrees 3600))
)
)
(defpart 40
:init-specs ((:texture (lakedrop level-default-sprite))
(:num 1.0 3.0)
(:scale-x (meters 0.08) (meters 0.03))
(:rot-x 4)
(:scale-y :copy scale-x)
(:r 32.0 32.0)
(:g :copy r)
(:b 64.0 32.0)
(:a 64.0 64.0)
(:omega (degrees 0.01575) (degrees 0.009))
(:vel-y (meters 0.033333335) (meters 0.06666667))
(:fade-a -0.21333334 -0.21333334)
(:accel-y (meters -0.005) (meters -0.00066666666))
(:friction 0.98)
(:timer (seconds 1))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 launch-along-z))
(:userdata 0.0)
(:func 'check-drop-level-splash)
(:next-time (seconds 0) (seconds 0.33))
(:next-launcher 41)
(:conerot-x (degrees 0) (degrees 50.000004))
(:conerot-y (degrees 0) (degrees 3600))
(:rotate-x (degrees 0))
(:rotate-y (degrees 0))
)
)
(defpart 42
:init-specs ((:texture (hotdot level-default-sprite))
(:birth-func 'birth-func-omega-normal-orient)
(:num 1.0)
(:y (meters 0.2))
(:scale-x (meters 0.5) (meters 0.25))
(:scale-y :copy scale-x)
(:r 32.0 32.0)
(:g :copy r)
(:b 64.0 32.0)
(:a 64.0 32.0)
(:omega (degrees 0))
(:scalevel-x (meters 0.006666667) (meters 0.006666667))
(:scalevel-y :copy scalevel-x)
(:fade-a -1.2)
(:timer (seconds 1))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
(:userdata :data (new 'static 'boxed-array :type int32 10 0 0 #x401800 #x403d00 #x400700 #x408200))
(:func 'sparticle-texture-animate)
)
)
(defpart 43
:init-specs ((:texture (motion-blur-part level-default-sprite))
(:num 2.0 4.0)
(:scale-x (meters 2.5))
(:rot-x 4)
(:scale-y (meters 0.06) (meters 0.03))
(:r 255.0)
(:g 128.0 128.0)
(:b 0.0 128.0)
(:a 128.0)
(:omega (degrees 0.018) (degrees 0.01125))
(:vel-y (meters 0.1) (meters 0.06666667))
(:fade-g -2.55 -2.55)
(:fade-b -8.0)
(:fade-a -0.32 -0.64)
(:friction 0.8 0.02)
(:timer (seconds 0.335) (seconds 0.33))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:func 'sparticle-motion-blur)
(:conerot-x (degrees 0) (degrees 80))
(:conerot-y (degrees 0) (degrees 3600))
)
)
(defpart 44
:init-specs ((:texture (glow level-default-sprite))
(:num 1.0)
(:scale-x (meters 0.25))
(:rot-x (degrees 0.225))
(:rot-z (degrees 0) (degrees 3600))
(:scale-y :copy scale-x)
(:r 255.0)
(:g 196.0 128.0)
(:b 128.0 64.0)
(:a 96.0 16.0)
(:omega (degrees 3608.9998))
(:scalevel-x (meters 0.08))
(:scalevel-y :copy scalevel-x)
(:fade-g -6.375)
(:fade-b -13.066667)
(:fade-a -2.8)
(:timer (seconds 0.05) (seconds 0.03))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
(:userdata 2048.0)
)
)
(defun birth-func-omega-normal-orient ((arg0 sparticle-system)
(arg1 sparticle-cpuinfo)
(arg2 sprite-vec-data-3d)
(arg3 sparticle-launcher)
(arg4 sparticle-launch-state)
)
(local-vars (v1-6 float) (v1-7 float))
(rlet ((vf0 :class vf)
(vf1 :class vf)
(vf2 :class vf)
)
(init-vf0-vector)
(let ((s4-0 (new 'stack-no-clear 'vector))
(gp-0 (new 'stack-no-clear 'quaternion))
)
(set! (-> s4-0 x) (* 0.007874016 (the float (-> arg1 datab 2))))
(set! (-> s4-0 y) 0.0)
(set! (-> s4-0 z) (* -0.007874016 (the float (-> arg1 datab 0))))
(vector-normalize! s4-0 1.0)
(quaternion-vector-angle! gp-0 s4-0 (acos (* 0.007874016 (the float (-> arg1 datab 1)))))
(cond
((< (-> gp-0 w) 0.0)
(.lvf vf1 (&-> arg2 qx-qy-qz-sy quad))
(.lvf vf2 (&-> gp-0 quad))
(.sub.vf vf1 vf0 vf2 :mask #b111)
(.svf (&-> arg2 qx-qy-qz-sy quad) vf1)
(.mov v1-6 vf1)
)
(else
(.lvf vf1 (&-> arg2 qx-qy-qz-sy quad))
(.lvf vf2 (&-> gp-0 quad))
(.add.vf vf1 vf0 vf2 :mask #b111)
(.svf (&-> arg2 qx-qy-qz-sy quad) vf1)
(.mov v1-7 vf1)
)
)
)
0
(none)
)
)
(defun birth-func-rain ((arg0 sparticle-system)
(arg1 sparticle-cpuinfo)
(arg2 sprite-vec-data-3d)
(arg3 sparticle-launcher)
(arg4 sparticle-launch-state)
)
(let ((s4-0 (new 'stack-no-clear 'collide-query)))
(set! (-> s4-0 start-pos quad) (-> arg2 x-y-z-sx quad))
(set-vector! (-> s4-0 move-dist) 0.0 -163840.0 0.0 1.0)
(let ((v1-2 s4-0))
(set! (-> v1-2 radius) 40.96)
(set! (-> v1-2 collide-with) (collide-spec backgnd))
(set! (-> v1-2 ignore-process0) #f)
(set! (-> v1-2 ignore-process1) #f)
(set! (-> v1-2 ignore-pat)
(new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1 :board #x1)
)
(set! (-> v1-2 action-mask) (collide-action solid))
)
(fill-using-line-sphere *collide-cache* s4-0)
(cond
((>= (probe-using-line-sphere *collide-cache* s4-0) 0.0)
(set! (-> arg1 user-float) (-> s4-0 best-other-tri intersect y))
(let ((f0-8 (+ 65536.0 (-> *math-camera* trans y))))
(if (< (-> arg1 user-float) f0-8)
(set! (-> arg2 x-y-z-sx y) f0-8)
)
)
(set! (-> arg1 datab 0) (the int (* 127.0 (-> s4-0 best-other-tri normal x))))
(set! (-> arg1 datab 1) (the int (* 127.0 (-> s4-0 best-other-tri normal y))))
(set! (-> arg1 datab 2) (the int (* 127.0 (-> s4-0 best-other-tri normal z))))
(set! (-> arg1 datab 3) (the-as int (-> s4-0 best-other-tri pat event)))
)
(else
(set! (-> arg1 omega) 65280.0)
(set! (-> arg1 user-float) (+ -204800.0 (-> arg2 x-y-z-sx y)))
)
)
)
(let ((f0-21 (get-height *ocean* (-> arg2 x-y-z-sx) #f)))
(when (!= f0-21 4095996000.0)
(when (< (-> arg1 user-float) f0-21)
(set! (-> arg1 user-float) f0-21)
(set! (-> arg1 datab 0) 0)
(set! (-> arg1 datab 1) 127)
(set! (-> arg1 datab 2) 0)
(set! (-> arg1 datab 3) 0)
0
)
)
)
0
(none)
)
(defun check-drop-level-rain ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(when (< (-> arg2 y) (-> arg1 user-float))
(let ((s4-0 (new 'stack-no-clear 'vector))
(gp-0 (new 'stack-no-clear 'matrix))
)
(let ((f30-0 (-> arg1 user-float)))
(sp-kill-particle arg0 arg1)
(set-vector! s4-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
(-> arg1 omega)
(set-vector!
(-> gp-0 uvec)
(* 0.007874016 (the float (-> arg1 datab 0)))
(* 0.007874016 (the float (-> arg1 datab 1)))
(* 0.007874016 (the float (-> arg1 datab 2)))
0.0
)
(set-vector! (-> gp-0 fvec) 0.0 0.0 1.0 0.0)
(vector-cross! (-> gp-0 rvec) (-> gp-0 uvec) (-> gp-0 fvec))
(set! (-> gp-0 trans quad) (-> s4-0 quad))
(set! (-> *part-id-table* 40 init-specs 23 initial-valuef) (vector-y-angle (-> gp-0 uvec)))
(set! (-> *part-id-table* 40 init-specs 22 initial-valuef) (- 16384.0 (vector-x-angle (-> gp-0 uvec))))
(set! (-> *part-id-table* 40 init-specs 16 initial-valuef) f30-0)
)
(launch-particles (-> *part-id-table* 40) gp-0 :origin-is-matrix #t)
(case (-> arg1 datab 3)
((11 10)
(sound-play "sizzle-drips")
(launch-particles (-> *part-id-table* 44) gp-0 :origin-is-matrix #t)
(launch-particles (-> *part-id-table* 43) gp-0 :origin-is-matrix #t)
)
(else
(sound-play "dry-drips")
(set! (-> *part-id-table* 42 init-specs 10 initial-valuef) (-> arg1 omega))
(launch-particles :system *sp-particle-system-3d* (-> *part-id-table* 42) gp-0 :origin-is-matrix #t)
)
)
)
)
(none)
)
;; WARN: Return type mismatch symbol vs none.
(defun check-drop-level-rain2 ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(if (< (-> arg2 y) (-> arg1 user-float))
(sp-kill-particle arg0 arg1)
)
(none)
)
;; WARN: Return type mismatch symbol vs none.
(defun check-drop-level-splash ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(sparticle-motion-blur arg0 arg1 arg2)
(if (< (-> arg2 y) (-> arg1 user-float))
(sp-kill-particle arg0 arg1)
)
(none)
)
(defun update-rain ((arg0 float) (arg1 vector) (arg2 vector))
(let ((v1-0 (new 'stack-no-clear 'vector)))
(set! (-> v1-0 x) (-> arg2 x))
(set! (-> v1-0 y) 0.0)
(set! (-> v1-0 z) (-> arg2 z))
(set! (-> v1-0 w) 1.0)
(let ((gp-1 (vector+float*! (new 'stack-no-clear 'vector) arg1 v1-0 0.0)))
(let* ((s4-0 (matrix-local->world #f #f))
(f28-0 (lerp-scale 122.88 245.76 (fabs (-> s4-0 fvec y)) 0.0 0.7))
(f30-0 (lerp-scale 2048.0 245.76 (fabs (-> s4-0 fvec y)) 0.0 0.7))
)
(let ((f26-0 (lerp-scale 0.0 0.1 (-> s4-0 fvec y) 0.3 0.7))
(f0-11 (lerp-scale 1.0 0.1 (-> s4-0 fvec y) 0.3 0.7))
)
(if (< 0.0 f26-0)
(send-event *camera* 'part-water-drip f26-0 f0-11)
)
)
(set! (-> *part-id-table* 38 init-specs 5 initial-valuef) f28-0)
(set! (-> *part-id-table* 38 init-specs 5 random-rangef) f28-0)
(set! (-> *part-id-table* 39 init-specs 5 initial-valuef) f28-0)
(set! (-> *part-id-table* 39 init-specs 5 random-rangef) f28-0)
(set! (-> *part-id-table* 38 init-specs 6 initial-valuef) f30-0)
(set! (-> *part-id-table* 38 init-specs 6 random-rangef) f30-0)
(set! (-> *part-id-table* 39 init-specs 6 initial-valuef) f30-0)
(set! (-> *part-id-table* 39 init-specs 6 random-rangef) f30-0)
)
(set! (-> *part-id-table* 38 init-specs 2 initial-valuef) arg0)
(set! (-> *part-id-table* 39 init-specs 2 initial-valuef) (* 4.0 arg0))
(launch-particles (-> *part-id-table* 38) gp-1)
(launch-particles (-> *part-id-table* 39) gp-1)
)
)
0
(none)
)
(defbehavior cam-master-effect camera-master ()
(when (not (or (movie?) (>= (+ (current-time) (seconds -10)) (-> self water-drip-time))))
(set! (-> *part-id-table* 24 init-specs 1 initial-valuef) (-> self water-drip-mult))
(set! (-> *part-id-table* 23 init-specs 1 initial-valuef) (* 0.9 (-> self water-drip-mult)))
(set! (-> *part-id-table* 21 init-specs 11 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
(set! (-> *part-id-table* 22 init-specs 8 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
(set! (-> *part-id-table* 19 init-specs 11 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
(set! (-> *part-id-table* 20 init-specs 8 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
(spawn (-> self water-drip) *zero-vector*)
)
0
(none)
)
(defun sparticle-track-sun ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 matrix))
(-> arg1 key)
(let* ((s2-0 (the int (-> arg1 user-float)))
(s5-0 (math-camera-pos))
(s4-0 (the-as object (+ (the-as uint (-> *sky-work* upload-data)) (* (/ s2-0 4) 64))))
)
(let ((s3-0 *time-of-day*)
(v1-4 (-> *math-camera* inv-camera-rot))
)
(cond
((= s2-0 1)
(set! (-> arg2 uvec z) (+ 8192.0 (* 0.5 (vector-y-angle (-> v1-4 fvec)))))
(set! (-> s3-0 0 sun-count) 1)
)
((= s2-0 4)
(set! (-> arg2 uvec z) (+ -8192.0 (* 0.5 (vector-y-angle (-> v1-4 fvec)))))
(+! (-> s3-0 0 green-sun-count) 1)
)
((= s2-0 8)
(set! (-> arg2 uvec z) (+ -8192.0 (* 0.5 (vector-y-angle (-> v1-4 fvec)))))
(+! (-> s3-0 0 moon-count) 1)
)
((= s2-0 12)
(set! (-> arg2 uvec z) (+ -8192.0 (* 0.5 (vector-y-angle (-> v1-4 fvec)))))
(+! (-> s3-0 0 day-star-count) 1)
(let ((f0-15 (* 6144000.0 (fmax 0.3 (fmin 1.0 (* 0.01 (-> *game-info* percent-complete)))))))
(set! (-> arg2 rvec w) f0-15)
(set! (-> arg2 uvec w) f0-15)
)
)
((= s2-0 13)
(set! (-> arg2 uvec z) (+ -8192.0 (* 0.5 (vector-y-angle (-> v1-4 fvec)))))
(+! (-> s3-0 0 day-star-count) 1)
(let ((f0-20 (* 12288000.0 (fmax 0.3 (fmin 1.0 (* 0.01 (-> *game-info* percent-complete)))))))
(set! (-> arg2 rvec w) f0-20)
(set! (-> arg2 uvec w) f0-20)
)
)
)
)
(let ((s3-1 (new 'stack-no-clear 'vector)))
(set! (-> s3-1 quad) (-> (the-as vector s4-0) quad))
(if (-> *time-of-day-context* use-camera-other)
(vector-matrix*! s3-1 s3-1 (-> *math-camera* camera-rot-other-sky))
)
(vector+float*! s3-1 s5-0 s3-1 4096.0)
(set! (-> arg2 rvec x) (-> s3-1 x))
(set! (-> arg2 rvec y) (-> s3-1 y))
(set! (-> arg2 rvec z) (-> s3-1 z))
)
)
0
(none)
)
(defpartgroup group-sun
:id 3
:flags (sp1)
:bounds (static-bspherem 0 0 0 70)
:parts ((sp-item 45 :flags (sp3 sp6)) (sp-item 46 :flags (sp3 sp6)))
)
(defpart 45
:init-specs ((:texture (glow level-default-sprite))
(:num 1.0)
(:scale-x (meters 2550))
(:rot-x (degrees 1687.5))
(:rot-z (degrees 30))
(:scale-y (meters 2550))
(:r 64.0)
(:g 64.0)
(:b 16.0)
(:a 70.0)
(:omega (degrees 0))
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
(:userdata 1.0)
(:func 'sparticle-track-sun)
)
)
(defpart 46
:init-specs ((:texture (glow level-default-sprite))
(:num 1.0)
(:scale-x (meters 12000))
(:rot-x (degrees 1687.5))
(:rot-z (degrees 30))
(:scale-y (meters 12000))
(:r 64.0)
(:g 32.0)
(:b 0.0)
(:a 80.0)
(:omega (degrees 0))
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
(:userdata 1.0)
(:func 'sparticle-track-sun)
)
)
(defpartgroup group-green-sun
:id 4
:flags (sp1)
:bounds (static-bspherem 0 0 0 70)
:parts ((sp-item 47 :flags (sp3 sp6)) (sp-item 48 :flags (sp3 sp6)))
)
(defpart 47
:init-specs ((:texture (glow level-default-sprite))
(:num 1.0)
(:scale-x (meters 1500))
(:rot-x (degrees 1125))
(:rot-z (degrees 30))
(:scale-y (meters 1500))
(:r 16.0)
(:g 64.0)
(:b 32.0)
(:a 64.0)
(:omega (degrees 0))
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
(:userdata 4.0)
(:func 'sparticle-track-sun)
)
)
(defpart 48
:init-specs ((:texture (glow level-default-sprite))
(:num 1.0)
(:scale-x (meters 3000))
(:rot-x (degrees 1125))
(:rot-z (degrees 30))
(:scale-y (meters 3000))
(:r 0.0)
(:g 43.0)
(:b 8.0)
(:a 64.0)
(:omega (degrees 0))
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
(:userdata 4.0)
(:func 'sparticle-track-sun)
)
)
(defpartgroup group-moon
:id 5
:flags (sp1)
:bounds (static-bspherem 0 0 0 70)
:parts ((sp-item 49 :flags (sp3 sp6)))
)
(defpart 49
:init-specs ((:texture (glow-soft level-default-sprite))
(:num 1.0)
(:scale-x (meters 6000))
(:rot-x (degrees 2992.5))
(:rot-z (degrees 30))
(:scale-y (meters 6000))
(:r 16.0)
(:g 32.0)
(:b 64.0)
(:a 64.0)
(:omega (degrees 0))
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
(:userdata 8.0)
(:func 'sparticle-track-sun)
)
)
(defpartgroup group-day-star
:id 6
:flags (sp1)
:bounds (static-bspherem 0 0 0 70)
:parts ((sp-item 50 :flags (sp3 sp6)) (sp-item 51 :flags (sp3 sp6)))
)
(defpart 50
:init-specs ((:texture (glow level-default-sprite))
(:num 1.0)
(:scale-x (meters 2000))
(:rot-x (degrees 1125))
(:rot-z (degrees 30))
(:scale-y (meters 2000))
(:r 128.0)
(:g 128.0)
(:b 128.0)
(:a 64.0)
(:omega (degrees 0))
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
(:userdata 12.0)
(:func 'sparticle-track-sun)
)
)
(defpart 51
:init-specs ((:texture (glow level-default-sprite))
(:num 1.0)
(:scale-x (meters 5000))
(:rot-x (degrees 1125))
(:rot-z (degrees 30))
(:scale-y (meters 5000))
(:r 32.0)
(:g 0.0)
(:b 128.0)
(:a 64.0)
(:omega (degrees 0))
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
(:userdata 13.0)
(:func 'sparticle-track-sun)
)
)
goal_src/jak3/engine/gfx/sky/sky-data.gc
+1097
View File
File diff suppressed because it is too large Load Diff
goal_src/jak3/engine/gfx/sky/sky-h.gc
+3 -3
View File
@@ -194,9 +194,9 @@
(disable-day-star basic)
)
(:methods
(sky-work-method-9 () none)
(sky-work-method-10 () none)
(sky-work-method-11 () none)
(init-sun-data! (_type_ int float float float) none)
(init-orbit-settings! (_type_ int float float float float float float) none)
(update-colors-for-time (_type_ float) none)
(update-time-and-speed (_type_ float float) none)
(sky-work-method-13 () none)
(draw (_type_) none)
goal_src/jak3/engine/gfx/sky/sky-tng.gc
+56
View File
@@ -7,3 +7,59 @@
;; DECOMP BEGINS
(defmethod update-time-and-speed ((this sky-work) (arg0 float) (arg1 float))
(if (and (level-get-target-inside *level*) (= (-> (level-get-target-inside *level*) info taskname) 'nest))
(set! arg1 (* 10.0 arg1))
)
(sky-make-sun-data this 0 arg0)
(sky-make-sun-data this 1 arg0)
(sky-make-moon-data this arg0)
(+! (-> this off-s) (the int (* -8.0 arg1)))
(+! (-> this off-t) (the int (* 2.0 arg1)))
(set! (-> this time) arg0)
0
(none)
)
(defmethod update-colors-for-time ((this sky-work) (arg0 float))
0
0
0.0
(let ((s5-0 *no-cloud-mood-color-table*))
(let ((s3-0 (-> *level* level-default mood-context))
(s4-0 (new 'stack-no-clear 'vector))
)
(let* ((v1-3 (the int arg0))
(f0-4 (- arg0 (the float v1-3)))
(f1-3 (- 1.0 f0-4))
(a0-4 (/ v1-3 24))
(a1-2 (-> *mood-interp-table* hour (- v1-3 (* 24 a0-4))))
(a0-7 (-> a1-2 snapshot1))
(v1-7 (-> a1-2 snapshot2))
(f0-6 (+ (* f1-3 (-> a1-2 morph-start)) (* f0-4 (-> a1-2 morph-end))))
)
(cond
((= a0-7 v1-7)
(set! (-> this sun0-color quad) (-> s5-0 data a0-7 lgt-color quad))
)
(else
(let ((a1-5 (-> s5-0 data a0-7))
(v1-11 (-> s5-0 data v1-7))
)
(vector4-lerp! (-> this sun0-color) (-> a1-5 lgt-color) (-> v1-11 lgt-color) f0-6)
)
)
)
)
(set! (-> this sun0-color-lower quad) (-> s3-0 times 1 quad))
(set! (-> this ambi-color-lower quad) (-> s3-0 times 0 quad))
(set-vector! s4-0 1.9921875 1.9921875 1.9921875 1.0)
(vector4-lerp! (-> this ambi-color) (-> this ambi-color-lower) s4-0 (-> *mood-control* lightning-flash))
)
(set! (-> this sun0-color quad) (-> this sun0-color quad))
(set! (-> this sun1-color quad) (-> s5-0 data 7 lgt-color quad))
(set! (-> this moon-color quad) (-> s5-0 data 6 lgt-color quad))
)
0
(none)
)
goal_src/jak3/engine/gfx/texture/texture-anim-tables.gc
+8
View File
@@ -16,5 +16,13 @@
;; DECOMP BEGINS
(defun set-darkjak-texture-morph! ((arg0 float))
(none)
)
(defun set-fog-height! ((arg0 float))
(none)
)
(defun set-cloud-minmax! ((arg0 float) (arg1 float))
(none)
)
goal_src/jak3/engine/level/bsp-h.gc
+1
View File
@@ -66,6 +66,7 @@ This probably started as a very simple structure, but now it is extremely compli
(cam-outside-bsp uint8 :offset 152)
(cam-using-back uint8)
(cam-box-idx uint16)
(ambients symbol)
(subdivide-close float :offset 160)
(subdivide-far float)
(race-meshes (array entity-race-mesh))