Archive/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project.git synced 2024-10-20 11:26:18 -04:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

update source!

Browse source
This commit is contained in:
ManDude 2022-04-16 18:47:56 +01:00
parent 9a54a762df
commit 1d18d9470f
33 changed files with 496 additions and 758 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

171
goal_src/engine/ambient/mood-tables.gc
View file

@ -305,8 +305,7 @@
(none)
)
(define
*default-interp-table*
(define *default-interp-table*
(new 'static 'sky-color-day
:hour
(new 'static 'inline-array sky-color-hour 24
@ -338,8 +337,7 @@
)
)
(define
*village1-palette-interp-table*
(define *village1-palette-interp-table*
(new 'static 'sky-color-day
:hour
(new 'static 'inline-array sky-color-hour 24
@ -371,8 +369,7 @@
)
)
(define
*misty-palette-interp-table*
(define *misty-palette-interp-table*
(new 'static 'sky-color-day
:hour
(new 'static 'inline-array sky-color-hour 24
@ -404,8 +401,7 @@
)
)
(define
*firecanyon-palette-interp-table*
(define *firecanyon-palette-interp-table*
(new 'static 'sky-color-day
:hour
(new 'static 'inline-array sky-color-hour 24
@ -437,8 +433,7 @@
)
)
(define
*rolling-palette-interp-table*
(define *rolling-palette-interp-table*
(new 'static 'sky-color-day
:hour
(new 'static 'inline-array sky-color-hour 24
@ -470,8 +465,7 @@
)
)
(define
*village2-sky-texture-table*
(define *village2-sky-texture-table*
(new 'static 'sky-color-day
:hour
(new 'static 'inline-array sky-color-hour 24
@ -503,8 +497,7 @@
)
)
(define
*finalboss-interp-table*
(define *finalboss-interp-table*
(new 'static 'sky-color-day
:hour
(new 'static 'inline-array sky-color-hour 24
@ -536,8 +529,7 @@
)
)
(define
*village1-mood-fog-table*
(define *village1-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -598,8 +590,7 @@
)
)
(define
*village1-mood-lights-table*
(define *village1-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -708,8 +699,7 @@
(update-mood-shadow-direction (-> *village1-mood-lights-table* data 7))
(define
*village1-mood-sun-table*
(define *village1-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -763,8 +753,7 @@
)
)
(define
*training-mood-fog-table*
(define *training-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -825,8 +814,7 @@
)
)
(define
*snow-mood-fog-table*
(define *snow-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -888,8 +876,7 @@
)
)
(define
*snow-mood-lights-table*
(define *snow-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -1041,8 +1028,7 @@
0.41
)
(define
*snow-mood-sun-table*
(define *snow-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -1090,8 +1076,7 @@
)
)
(define
*jungleb-mood-fog-table*
(define *jungleb-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 :w 128.0)
@ -1110,8 +1095,7 @@
)
)
(define
*jungleb-mood-lights-table*
(define *jungleb-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction (new 'static 'vector :y 1.0)
@ -1133,8 +1117,7 @@
)
)
(define
*jungleb-mood-sun-table*
(define *jungleb-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -1153,8 +1136,7 @@
)
)
(define
*maincave-mood-fog-table*
(define *maincave-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -1174,8 +1156,7 @@
)
)
(define
*maincave-mood-lights-table*
(define *maincave-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction (new 'static 'vector :y 1.0)
@ -1197,8 +1178,7 @@
)
)
(define
*maincave-mood-sun-table*
(define *maincave-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -1217,8 +1197,7 @@
)
)
(define
*robocave-mood-fog-table*
(define *robocave-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 :w 128.0)
@ -1237,8 +1216,7 @@
)
)
(define
*darkcave-mood-fog-table*
(define *darkcave-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 :w 128.0)
@ -1257,8 +1235,7 @@
)
)
(define
*darkcave-mood-lights-table*
(define *darkcave-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction (new 'static 'vector :y -1.0)
@ -1280,8 +1257,7 @@
)
)
(define
*darkcave-mood-sun-table*
(define *darkcave-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -1300,8 +1276,7 @@
)
)
(define
*misty-mood-fog-table*
(define *misty-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -1363,8 +1338,7 @@
)
)
(define
*misty-mood-lights-table*
(define *misty-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -1402,8 +1376,7 @@
(update-mood-shadow-direction (-> *misty-mood-lights-table* data 1))
(define
*misty-mood-sun-table*
(define *misty-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -1457,8 +1430,7 @@
)
)
(define
*village2-mood-fog-table*
(define *village2-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -1520,8 +1492,7 @@
)
)
(define
*village2-mood-lights-table*
(define *village2-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -1581,8 +1552,7 @@
(update-mood-shadow-direction (-> *village2-mood-lights-table* data 3))
(define
*village2-mood-sun-table*
(define *village2-mood-sun-table*
(new 'static 'mood-sun-table
:data
(new 'static 'inline-array mood-sun 8
@ -1628,8 +1598,7 @@
)
)
(define
*swamp-mood-fog-table*
(define *swamp-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -1691,8 +1660,7 @@
)
)
(define
*swamp-mood-lights-table*
(define *swamp-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -1752,8 +1720,7 @@
(update-mood-shadow-direction (-> *swamp-mood-lights-table* data 3))
(define
*swamp-mood-sun-table*
(define *swamp-mood-sun-table*
(new 'static 'mood-sun-table
:data
(new 'static 'inline-array mood-sun 8
@ -1799,8 +1766,7 @@
)
)
(define
*sunken-mood-fog-table*
(define *sunken-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -1828,8 +1794,7 @@
)
)
(define
*sunken-mood-lights-table*
(define *sunken-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction (new 'static 'vector :y 1.0)
@ -1863,8 +1828,7 @@
(update-mood-shadow-direction (-> *sunken-mood-lights-table* data 1))
(define
*sunken-mood-sun-table*
(define *sunken-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -1888,8 +1852,7 @@
)
)
(define
*rolling-mood-fog-table*
(define *rolling-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -1951,8 +1914,7 @@
)
)
(define
*rolling-mood-lights-table*
(define *rolling-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -2014,8 +1976,7 @@
(update-mood-shadow-direction (-> *rolling-mood-lights-table* data 3))
(define
*rolling-mood-sun-table*
(define *rolling-mood-sun-table*
(new 'static 'mood-sun-table
:data
(new 'static 'inline-array mood-sun 8
@ -2061,8 +2022,7 @@
)
)
(define
*firecanyon-mood-fog-table*
(define *firecanyon-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -2124,8 +2084,7 @@
)
)
(define
*firecanyon-mood-lights-table*
(define *firecanyon-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -2193,8 +2152,7 @@
(update-mood-shadow-direction (-> *firecanyon-mood-lights-table* data 3))
(define
*firecanyon-mood-sun-table*
(define *firecanyon-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -2248,8 +2206,7 @@
)
)
(define
*ogre-mood-fog-table*
(define *ogre-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -2311,8 +2268,7 @@
)
)
(define
*ogre-mood-lights-table*
(define *ogre-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -2396,8 +2352,7 @@
(update-mood-shadow-direction (-> *ogre-mood-lights-table* data 5))
(define
*ogre2-mood-lights-table*
(define *ogre2-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -2481,8 +2436,7 @@
(update-mood-shadow-direction (-> *ogre2-mood-lights-table* data 5))
(define
*ogre3-mood-fog-table*
(define *ogre3-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -2502,8 +2456,7 @@
)
)
(define
*ogre3-mood-lights-table*
(define *ogre3-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction (new 'static 'vector :y 0.666 :z 0.745)
@ -2528,8 +2481,7 @@
(update-mood-shadow-direction (the-as mood-lights (-> *ogre3-mood-lights-table* data)))
(define
*village3-mood-fog-table*
(define *village3-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -2591,8 +2543,7 @@
)
)
(define
*village3-mood-lights-table*
(define *village3-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction
@ -2640,8 +2591,7 @@
)
)
(define
*lavatube-mood-fog-table*
(define *lavatube-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -2661,8 +2611,7 @@
)
)
(define
*lavatube-mood-lights-table*
(define *lavatube-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction (new 'static 'vector :y 1.0)
@ -2728,8 +2677,7 @@
(update-mood-shadow-direction (the-as mood-lights (-> *lavatube-mood-lights-table* data)))
(define
*lavatube-mood-sun-table*
(define *lavatube-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -2748,8 +2696,7 @@
)
)
(define
*finalboss-mood-sun-table*
(define *finalboss-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color
@ -2803,8 +2750,7 @@
)
)
(define
*finalboss-mood-fog-table*
(define *finalboss-mood-fog-table*
(new 'static 'mood-fog-table :data (new 'static 'inline-array mood-fog 8
(new 'static 'mood-fog
:fog-color
@ -2945,8 +2891,7 @@
0.41
)
(define
*citadel-mood-fog-table*
(define *citadel-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 :w 128.0)
@ -2965,8 +2910,7 @@
)
)
(define
*citadel-mood-lights-table*
(define *citadel-mood-lights-table*
(new 'static 'mood-lights-table :data (new 'static 'inline-array mood-lights 8
(new 'static 'mood-lights
:direction (new 'static 'vector :y 1.0)
@ -2988,8 +2932,7 @@
)
)
(define
*citadel-mood-sun-table*
(define *citadel-mood-sun-table*
(new 'static 'mood-sun-table :data (new 'static 'inline-array mood-sun 8
(new 'static 'mood-sun
:sun-color (new 'static 'vector :w 128.0)

9
goal_src/engine/ambient/mood.gc
View file

@ -515,15 +515,13 @@
)
)
(define
*flash1*
(define *flash1*
(the-as (array float)
(new 'static 'boxed-array :type float :length 9 :allocated-length 9 1.0 0.8 0.0 1.0 0.5 1.0 0.4 0.2 0.1)
)
)
(define
*flash2*
(define *flash2*
(the-as (array float)
(new 'static 'boxed-array :type float :length 10 :allocated-length 10 1.0 0.9 0.8 0.7 0.0 0.0 1.0 0.0 1.0 0.5)
)
@ -1721,8 +1719,7 @@
)
)
(define
*rolling-spheres-light2*
(define *rolling-spheres-light2*
(new 'static 'light-ellipse
:matrix
(new 'static 'matrix :vector (new 'static 'inline-array vector 4

271
goal_src/engine/camera/cam-layout.gc
View file

@ -263,9 +263,9 @@
(when (!= s1-0 sv-272)
(vector-float*! sv-192 (-> s3-0 sv-272) (-> s3-0 sv-272 w))
(vector-cross! sv-208 (-> s3-0 sv-272) (-> s3-0 s1-0))
(vector-normalize! sv-208 (-> (new 'static 'array float 1 1.0) 0))
(vector-normalize! sv-208 (the-as float 1.0))
(vector-cross! sv-224 sv-208 (-> s3-0 sv-272))
(vector-normalize! sv-224 (-> (new 'static 'array float 1 1.0) 0))
(vector-normalize! sv-224 (the-as float 1.0))
(let ((f0-6 (cam-layout-intersect-dist (-> s3-0 s1-0) sv-192 sv-224)))
(when (!= f0-6 409600000.0)
(vector+float*! sv-240 sv-192 sv-224 f0-6)
@ -317,7 +317,7 @@
(else
(dotimes (v1-87 (the-as int (-> sv-16 elt-count)))
(when (and (!= v1-87 s1-0) (!= v1-87 sv-272))
(if (< (-> (new 'static 'array float 1 4096.0) 0) (- (vector-dot sv-160 (-> s3-0 v1-87)) (-> s3-0 v1-87 w)))
(if (< 4096.0 (- (vector-dot sv-160 (-> s3-0 v1-87)) (-> s3-0 v1-87 w)))
(goto cfg-47)
)
)
@ -347,7 +347,7 @@
(set! sv-272 (+ sv-272 1))
)
(when (nonzero? sv-256)
(vector-float*! s0-0 s0-0 (/ (-> (new 'static 'array float 1 1.0) 0) (the float sv-256)))
(vector-float*! s0-0 s0-0 (/ 1.0 (the float sv-256)))
(cond
((>= *volume-normal-current* 599)
(format 0 "ERROR <GMJ>: camera editing out of volume normals~%")
@ -433,20 +433,20 @@
0.0
0.0
(cond
((< (-> (new 'static 'array float 1 1.0) 0) arg3)
(set! arg3 (-> (the-as (pointer float) (new 'static 'array float 1 1.0)) 0))
((< 1.0 arg3)
(set! arg3 (the-as float 1.0))
)
((< arg3 0.0)
(set! arg3 (-> (the-as (pointer float) (new 'static 'array float 1 0.0)) 0))
(set! arg3 (the-as float 0.0))
)
)
(vector-normalize-copy! s2-0 arg1 (-> (new 'static 'array float 1 1.0) 0))
(vector-normalize-copy! s1-0 arg2 (-> (new 'static 'array float 1 1.0) 0))
(vector-normalize-copy! s2-0 arg1 (the-as float 1.0))
(vector-normalize-copy! s1-0 arg2 (the-as float 1.0))
(vector-cross! s0-0 s2-0 s1-0)
(let* ((f30-0 (vector-length s0-0))
(f28-0 (asin f30-0))
)
(vector-float*! arg0 arg1 (/ (sin (* (- (-> (new 'static 'array float 1 1.0) 0) arg3) f28-0)) f30-0))
(vector-float*! arg0 arg1 (/ (sin (* (- 1.0 arg3) f28-0)) f30-0))
(vector+float*! arg0 arg0 arg2 (/ (sin (* arg3 f28-0)) f30-0))
)
)
@ -470,36 +470,15 @@
(let ((s3-0 (new-stack-vector0))
(gp-0 (new-stack-vector0))
)
(arg0
s3-0
(-> arg1 from)
(-> arg1 to)
(-> (new 'static 'array float 1 0.0) 0)
(-> arg1 axis)
(-> (new 'static 'array float 1 65536.0) 0)
)
(arg0 s3-0 (-> arg1 from) (-> arg1 to) (the-as float 0.0) (-> arg1 axis) (the-as float 65536.0))
(vector+! s3-0 s3-0 (-> arg1 origin))
(dotimes (s2-0 10)
(set! (-> gp-0 quad) (-> s3-0 quad))
(arg0
s3-0
(-> arg1 from)
(-> arg1 to)
(* 0.1 (+ (-> (new 'static 'array float 1 1.0) 0) (the float s2-0)))
(-> arg1 axis)
(-> (new 'static 'array float 1 65536.0) 0)
)
(arg0 s3-0 (-> arg1 from) (-> arg1 to) (* 0.1 (+ 1.0 (the float s2-0))) (-> arg1 axis) (the-as float 65536.0))
(vector+! s3-0 s3-0 (-> arg1 origin))
(camera-line s3-0 gp-0 (-> arg1 color))
)
(arg0
gp-0
(-> arg1 from)
(-> arg1 to)
(-> *CAM_LAYOUT-bank* debug-t)
(-> arg1 axis)
(-> (new 'static 'array float 1 65536.0) 0)
)
(arg0 gp-0 (-> arg1 from) (-> arg1 to) (-> *CAM_LAYOUT-bank* debug-t) (-> arg1 axis) (the-as float 65536.0))
(format *stdcon* "~S ~f~%" (-> arg1 disp) (vector-length gp-0))
(vector+! gp-0 gp-0 (-> arg1 origin))
(camera-line (-> arg1 origin) gp-0 (-> arg1 color))
@ -508,7 +487,7 @@
(new 'static 'vector :z 1024.0)
gp-0
(-> arg1 color)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@ -517,17 +496,11 @@
(let ((s3-0 (new-stack-vector0))
(gp-0 (new-stack-vector0))
)
(arg0 s3-0 (-> arg1 from) (-> arg1 to) (-> arg1 axis) (-> (new 'static 'array float 1 0.0) 0))
(arg0 s3-0 (-> arg1 from) (-> arg1 to) (-> arg1 axis) (the-as float 0.0))
(vector+! s3-0 s3-0 (-> arg1 origin))
(dotimes (s2-0 10)
(set! (-> gp-0 quad) (-> s3-0 quad))
(arg0
s3-0
(-> arg1 from)
(-> arg1 to)
(-> arg1 axis)
(* 182.04445 (* 18.0 (+ (-> (new 'static 'array float 1 1.0) 0) (the float s2-0))))
)
(arg0 s3-0 (-> arg1 from) (-> arg1 to) (-> arg1 axis) (* 182.04445 (* 18.0 (+ 1.0 (the float s2-0)))))
(vector+! s3-0 s3-0 (-> arg1 origin))
(camera-line s3-0 gp-0 (-> arg1 color))
)
@ -540,7 +513,7 @@
(new 'static 'vector :z 1024.0)
gp-0
(-> arg1 color)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@ -560,8 +533,8 @@
s5-0
s4-0
(* 0.5 (cam-slave-get-fov arg0))
(-> (new 'static 'array float 1 0.75) 0)
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 0.75)
(the-as float 1.0)
(new 'static 'vector4w :z #xff :w #x80)
)
)
@ -575,7 +548,7 @@
(new 'static 'vector :z 1024.0)
s5-1
(new 'static 'vector4w :x #x80 :w #x80)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@ -588,7 +561,7 @@
(new 'static 'vector :z 1024.0)
s5-2
(new 'static 'vector4w :y #x80 :w #x80)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@ -601,7 +574,7 @@
(new 'static 'vector :z 1024.0)
s5-3
(new 'static 'vector4w :x #x80 :z #x80 :w #x80)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@ -615,7 +588,7 @@
)
(cond
((cam-slave-get-vector-with-offset arg0 s4-1 'pivot)
(curve-get-pos! s5-4 (-> (new 'static 'array float 1 0.0) 0) s3-1)
(curve-get-pos! s5-4 (the-as float 0.0) s3-1)
(vector-! s4-1 s4-1 s5-4)
)
(else
@ -637,11 +610,11 @@
)
)
)
(curve-get-pos! s5-4 (-> (new 'static 'array float 1 0.0) 0) s3-1)
(curve-get-pos! s5-4 (the-as float 0.0) s3-1)
(vector+! s5-4 s5-4 s4-1)
(dotimes (s1-1 8)
(set! (-> s2-0 quad) (-> s5-4 quad))
(curve-get-pos! s5-4 (* (-> (new 'static 'array float 1 0.125) 0) (the float (+ s1-1 1))) s3-1)
(curve-get-pos! s5-4 (* 0.125 (the float (+ s1-1 1))) s3-1)
(vector+! s5-4 s5-4 s4-1)
(camera-line s2-0 s5-4 (new 'static 'vector4w :x #xff :y #xff :w #x80))
)
@ -652,7 +625,7 @@
(new 'static 'vector :z 1024.0)
s5-4
(new 'static 'vector4w :x #xff :y #xff :w #x80)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@ -667,24 +640,24 @@
)
(cond
((cam-slave-get-vector-with-offset arg0 s4-2 'pivot)
(curve-get-pos! s5-5 (-> (new 'static 'array float 1 1.0) 0) s3-2)
(curve-get-pos! s5-5 (the-as float 1.0) s3-2)
(vector-! s4-2 s4-2 s5-5)
)
((get-curve-data! arg0 s1-2 'campath 'campath-k (the-as float -1000000000.0))
(curve-get-pos! s4-2 (-> (new 'static 'array float 1 0.0) 0) s1-2)
(curve-get-pos! s5-5 (-> (new 'static 'array float 1 1.0) 0) s3-2)
(curve-get-pos! s4-2 (the-as float 0.0) s1-2)
(curve-get-pos! s5-5 (the-as float 1.0) s3-2)
(vector-! s4-2 s4-2 s5-5)
)
((cam-slave-get-vector-with-offset arg0 s4-2 'trans)
(curve-get-pos! s5-5 (-> (new 'static 'array float 1 1.0) 0) s3-2)
(curve-get-pos! s5-5 (the-as float 1.0) s3-2)
(vector-! s4-2 s4-2 s5-5)
)
)
(curve-get-pos! s5-5 (-> (new 'static 'array float 1 0.0) 0) s3-2)
(curve-get-pos! s5-5 (the-as float 0.0) s3-2)
(vector+! s5-5 s5-5 s4-2)
(dotimes (s1-3 8)
(set! (-> s2-1 quad) (-> s5-5 quad))
(curve-get-pos! s5-5 (* (-> (new 'static 'array float 1 0.125) 0) (the float (+ s1-3 1))) s3-2)
(curve-get-pos! s5-5 (* 0.125 (the float (+ s1-3 1))) s3-2)
(vector+! s5-5 s5-5 s4-2)
(camera-line s2-1 s5-5 (new 'static 'vector4w :z #xff :w #x80))
)
@ -695,20 +668,20 @@
(new 'static 'vector :z 1024.0)
s5-5
(new 'static 'vector4w :z #xff :w #x80)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
(curve-get-pos! s5-5 (cam-slave-get-float arg0 'intro-exitValue (-> (new 'static 'array float 1 0.0) 0)) s3-2)
(curve-get-pos! s5-5 (cam-slave-get-float arg0 'intro-exitValue (the-as float 0.0)) s3-2)
(vector+! s5-5 s5-5 s4-2)
(camera-cross
(new 'static 'vector :y 1024.0)
(new 'static 'vector :z 1024.0)
s5-5
(new 'static 'vector4w :z #xff :w #x80)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
(let ((s2-3 (res-lump-data arg0 'campoints pointer :time (-> (new 'static 'array float 1 1.0) 0)))
(let ((s2-3 (res-lump-data arg0 'campoints pointer :time (the-as float 1.0)))
(v1-95 (res-lump-struct arg0 'campoints-offset structure :time (the-as float -1000000000.0)))
(s4-3 (new 'stack-no-clear 'vector))
(s3-3 (new 'stack-no-clear 'vector))
@ -732,11 +705,11 @@
(new 'static 'vector :z 1024.0)
s5-6
(new 'static 'vector4w :x #xff :y #xff :w #x80)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
(let ((s4-4 (res-lump-data arg0 'focalpull pointer :time (-> (new 'static 'array float 1 1.0) 0)))
(let ((s4-4 (res-lump-data arg0 'focalpull pointer :time (the-as float 1.0)))
(s5-7 (new 'static 'vector))
)
(when (and s4-4 (or (!= *camera-layout-blink* 'focalpull) (logtest? (-> *display* real-actual-frame-counter) 8)))
@ -756,7 +729,7 @@
(new 'static 'vector :z 1024.0)
s5-7
(new 'static 'vector4w :y #xff :z #xff :w #x80)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@ -772,12 +745,12 @@
(vector-! (-> s5-8 from) (-> s5-8 from) (-> s5-8 origin))
(vector-! (-> s5-8 to) (-> s5-8 to) (-> s5-8 origin))
(vector-cross! s4-5 (-> s5-8 from) (-> s5-8 to))
(vector-normalize! s4-5 (-> (new 'static 'array float 1 8192.0) 0))
(vector-normalize! s4-5 (the-as float 8192.0))
(vector+! s4-5 s4-5 (-> s5-8 origin))
(camera-line (-> s5-8 origin) s4-5 (new 'static 'vector4w :x #x80 :y #x80 :z #x80 :w #x80))
(when (not (paused?))
(+! (-> *CAM_LAYOUT-bank* debug-t) (-> *CAM_LAYOUT-bank* debug-step))
(if (< (-> (new 'static 'array float 1 1.0) 0) (-> *CAM_LAYOUT-bank* debug-t))
(if (< 1.0 (-> *CAM_LAYOUT-bank* debug-t))
(set! (-> *CAM_LAYOUT-bank* debug-t) 0.0)
)
)
@ -833,10 +806,10 @@
((cpad-hold? arg2 l3)
(set! (-> arg0 z) (- (-> arg0 z) (analog-input
(the-as int (-> *cpad-list* cpads arg2 rightx))
(-> (new 'static 'array float 1 128.0) 0)
(-> (new 'static 'array float 1 48.0) 0)
(-> (new 'static 'array float 1 110.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 128.0)
(the-as float 48.0)
(the-as float 110.0)
(the-as float 1.0)
)
)
)
@ -844,27 +817,27 @@
(else
(set! (-> arg0 y) (- (-> arg0 y) (analog-input
(the-as int (-> *cpad-list* cpads arg2 rightx))
(-> (new 'static 'array float 1 128.0) 0)
(-> (new 'static 'array float 1 48.0) 0)
(-> (new 'static 'array float 1 110.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 128.0)
(the-as float 48.0)
(the-as float 110.0)
(the-as float 1.0)
)
)
)
(+! (-> arg0 x) (analog-input
(the-as int (-> *cpad-list* cpads arg2 righty))
(-> (new 'static 'array float 1 128.0) 0)
(-> (new 'static 'array float 1 48.0) 0)
(-> (new 'static 'array float 1 110.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 128.0)
(the-as float 48.0)
(the-as float 110.0)
(the-as float 1.0)
)
)
(set! (-> arg1 x) (- (-> arg1 x) (analog-input
(the-as int (-> *cpad-list* cpads arg2 leftx))
(-> (new 'static 'array float 1 128.0) 0)
(-> (new 'static 'array float 1 48.0) 0)
(-> (new 'static 'array float 1 110.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 128.0)
(the-as float 48.0)
(the-as float 110.0)
(the-as float 1.0)
)
)
)
@ -873,9 +846,9 @@
(set! (-> arg1 y) (+ 0.5
(analog-input
(the-as int (-> *cpad-list* cpads arg2 abutton 9))
(-> (new 'static 'array float 1 0.0) 0)
(-> (new 'static 'array float 1 32.0) 0)
(-> (new 'static 'array float 1 230.0) 0)
(the-as float 0.0)
(the-as float 32.0)
(the-as float 230.0)
(the-as float 0.5)
)
(-> arg1 y)
@ -887,9 +860,9 @@
(if (cpad-hold? arg2 l1)
(set! (-> arg1 y) (- (-> arg1 y) (+ 0.5 (analog-input
(the-as int (-> *cpad-list* cpads arg2 abutton 8))
(-> (new 'static 'array float 1 0.0) 0)
(-> (new 'static 'array float 1 32.0) 0)
(-> (new 'static 'array float 1 230.0) 0)
(the-as float 0.0)
(the-as float 32.0)
(the-as float 230.0)
(the-as float 0.5)
)
)
@ -899,10 +872,10 @@
)
(set! (-> arg1 z) (- (-> arg1 z) (analog-input
(the-as int (-> *cpad-list* cpads arg2 lefty))
(-> (new 'static 'array float 1 128.0) 0)
(-> (new 'static 'array float 1 48.0) 0)
(-> (new 'static 'array float 1 110.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 128.0)
(the-as float 48.0)
(the-as float 110.0)
(the-as float 1.0)
)
)
)
@ -1162,10 +1135,11 @@
)
(defun fov->maya ((arg0 float))
(if (= arg0 0.0)
(-> (new 'static 'array float 1 0.0) 0)
(/ 12.700255 (tan (* 0.5 arg0)))
)
(the-as float (if (= arg0 0.0)
0.0
(/ 12.700255 (tan (* 0.5 arg0)))
)
)
)
(defun cam-layout-save-cam-rot ((arg0 symbol) (arg1 string) (arg2 entity-actor))
@ -1390,7 +1364,7 @@
'fov
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1404,7 +1378,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1441,7 +1415,7 @@
'focalPull
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1455,7 +1429,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1651,7 +1625,7 @@
'intro-time
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1665,7 +1639,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1676,7 +1650,7 @@
(if arg0
(format #t "setup intro-time 0.0 (defaults to 1 sec)~%")
)
(set! f30-0 (-> (new 'static 'array float 1 1.0) 0))
(set! f30-0 1.0)
)
(arg0
(format #t "setup intro-time ~f~%" f30-0)
@ -1702,7 +1676,7 @@
'intro-exitValue
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1716,7 +1690,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1748,7 +1722,7 @@
'interpTime
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1762,7 +1736,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1826,7 +1800,7 @@
'spline-follow-dist-offset
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1867,7 +1841,7 @@
'tiltAdjust
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1881,7 +1855,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1910,7 +1884,7 @@
'stringMinLength
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1924,7 +1898,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1953,7 +1927,7 @@
'stringMaxLength
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1967,7 +1941,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -1996,7 +1970,7 @@
'stringMinHeight
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2010,7 +1984,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2039,7 +2013,7 @@
'stringMaxHeight
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2053,7 +2027,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2082,7 +2056,7 @@
'stringCliffHeight
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2096,7 +2070,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2125,7 +2099,7 @@
'maxAngle
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2138,7 +2112,7 @@
(string->symbol *res-key-string*)
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2474,7 +2448,7 @@
arg0
'interp
(the-as float -1000000000.0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
@ -2482,15 +2456,15 @@
(f0-0 (-> arg1 0))
)
(if (= f0-0 0.0)
(set! f0-0 (-> (new 'static 'array float 1 1.0) 0))
(set! f0-0 1.0)
)
(let ((f0-2
(+ f30-0
(analog-input
(the-as int (-> *cpad-list* cpads 0 leftx))
(-> (new 'static 'array float 1 128.0) 0)
(-> (new 'static 'array float 1 48.0) 0)
(-> (new 'static 'array float 1 110.0) 0)
(the-as float 128.0)
(the-as float 48.0)
(the-as float 110.0)
f0-0
)
)
@ -2508,7 +2482,7 @@
)
(defbehavior clmf-cam-meters cam-layout ((arg0 meters) (arg1 symbol))
(let ((f0-0 (cam-slave-get-float (-> self cam-entity) arg1 (-> (new 'static 'array float 1 0.0) 0))))
(let ((f0-0 (cam-slave-get-float (-> self cam-entity) arg1 (the-as float 0.0))))
(format arg0 ": ~M" f0-0)
)
#t
@ -2520,7 +2494,7 @@
)
(defbehavior clmf-cam-deg cam-layout ((arg0 degrees) (arg1 symbol))
(format arg0 ": ~R" (cam-slave-get-float (-> self cam-entity) arg1 (-> (new 'static 'array float 1 0.0) 0)))
(format arg0 ": ~R" (cam-slave-get-float (-> self cam-entity) arg1 (the-as float 0.0)))
#t
)
@ -2538,7 +2512,7 @@
)
(defbehavior clmf-cam-float cam-layout ((arg0 float) (arg1 symbol))
(format arg0 ": ~f" (cam-slave-get-float (-> self cam-entity) arg1 (-> (new 'static 'array float 1 0.0) 0)))
(format arg0 ": ~f" (cam-slave-get-float (-> self cam-entity) arg1 (the-as float 0.0)))
#t
)
@ -2557,8 +2531,7 @@
#t
)
(define
*clm-focalpull-attr*
(define *clm-focalpull-attr*
(new 'static 'clm
:title "---focalpull attributes--"
:items
@ -2627,8 +2600,7 @@
)
)
(define
*clm-index-attr*
(define *clm-index-attr*
(new 'static 'clm
:title "---index attributes--"
:items
@ -2697,8 +2669,7 @@
)
)
(define
*clm-intro-attr*
(define *clm-intro-attr*
(new 'static 'clm
:title "---intro attributes--"
:items
@ -2764,8 +2735,7 @@
)
)
(define
*clm-spline-attr*
(define *clm-spline-attr*
(new 'static 'clm
:title "---spline attributes--"
:items
@ -2813,8 +2783,7 @@
)
)
(define
*clm-vol-attr*
(define *clm-vol-attr*
(new 'static 'clm
:title "---volume attributes--"
:items
@ -2863,8 +2832,7 @@
)
)
(define
*clm-cam-attr*
(define *clm-cam-attr*
(new 'static 'clm
:title "---camera attributes--"
:items
@ -3221,8 +3189,7 @@
)
)
(define
*clm-cam-lookthrough*
(define *clm-cam-lookthrough*
(new 'static 'clm
:title "---cam-lookthrough---"
:items
@ -3288,8 +3255,7 @@
)
)
(define
*clm-edit*
(define *clm-edit*
(new 'static 'clm
:title "---edit---"
:items
@ -3485,8 +3451,7 @@
)
)
(define
*clm-save-all*
(define *clm-save-all*
(new 'static 'clm
:title "---save all?---"
:items
@ -3516,8 +3481,7 @@
)
)
(define
*clm-save-one*
(define *clm-save-one*
(new 'static 'clm
:title "---single save?---"
:items
@ -3547,8 +3511,7 @@
)
)
(define
*clm-select*
(define *clm-select*
(new 'static 'clm
:title "---camera---"
:items

9
goal_src/engine/camera/cam-states.gc
View file

@ -429,8 +429,7 @@
)
(define
*CAM_EYE-bank*
(define *CAM_EYE-bank*
(new 'static 'cam-eye-bank :rot-speed 364.0889 :max-degrees 12743.111 :max-fov 11650.845 :min-fov 6189.511)
)
@ -2994,8 +2993,7 @@
)
(define
*CAM_STICK-bank*
(define *CAM_STICK-bank*
(new 'static 'cam-stick-bank :max-z (meters 30) :min-z (meters 5) :max-y (meters 15) :min-y (meters 2))
)
@ -3227,8 +3225,7 @@
)
(define
*CAM_BIKE-bank*
(define *CAM_BIKE-bank*
(new 'static 'cam-bike-bank :max-z (meters 6) :min-z (meters 10) :max-y (meters 3) :min-y (meters 5))
)

3
goal_src/engine/game/crates.gc
View file

@ -75,8 +75,7 @@
)
(define
*CRATE-bank*
(define *CRATE-bank*
(new 'static 'crate-bank :COLLIDE_YOFF 4096.0 :COLLIDE_RADIUS 4915.2 :DARKECO_EXPLODE_RADIUS 16384.0)
)

39
goal_src/engine/game/task/task-control.gc
View file

@ -295,8 +295,7 @@
;; tasks for assistant (note: keira)
(define
*assistant-tasks*
(define *assistant-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -424,8 +423,7 @@
)
)
(define
*assistant-village2-tasks*
(define *assistant-village2-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -702,8 +700,7 @@
)
)
(define
*gambler-tasks*
(define *gambler-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -815,8 +812,7 @@
)
)
(define
*geologist-tasks*
(define *geologist-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -928,8 +924,7 @@
)
)
(define
*mayor-tasks*
(define *mayor-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -1050,8 +1045,7 @@
)
)
(define
*sage-tasks*
(define *sage-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -1195,8 +1189,7 @@
)
)
(define
*sage-bluehut-tasks*
(define *sage-bluehut-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -1309,8 +1302,7 @@
)
)
(define
*oracle-village1-tasks*
(define *oracle-village1-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -1428,8 +1420,7 @@
)
)
(define
*oracle-village2-tasks*
(define *oracle-village2-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -1547,8 +1538,7 @@
)
)
(define
*oracle-village3-tasks*
(define *oracle-village3-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -1666,8 +1656,7 @@
)
)
(define
*miners-tasks*
(define *miners-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -2056,8 +2045,7 @@
)
)
(define
*sage-villagec-tasks*
(define *sage-villagec-tasks*
(new 'static 'task-control
:current-stage -1
:stage
@ -2303,8 +2291,7 @@
)
)
(define
*task-controls*
(define *task-controls*
(the-as (array task-control)
(new
'static

3
goal_src/engine/gfx/depth-cue.gc
View file

@ -7,8 +7,7 @@
;; DECOMP BEGINS
(define
*depth-cue-work*
(define *depth-cue-work*
(new 'static 'depth-cue-work
:texture-strip-tmpl
(new 'static 'dma-gif-packet

15
goal_src/engine/gfx/merc/merc-death.gc
View file

@ -27,28 +27,23 @@
(none)
)
(define
death-beach-puppy
(define death-beach-puppy
(new 'static 'death-info :vertex-skip #x82 :timer #x4b :overlap #x4 :effect #x29 :sound 'temp-enemy-die)
)
(define
death-jungle-snake
(define death-jungle-snake
(new 'static 'death-info :vertex-skip #xa :timer #x4b :overlap #x4 :effect #x29 :sound 'temp-enemy-die)
)
(define
death-default
(define death-default
(new 'static 'death-info :vertex-skip #x50 :timer #x4b :overlap #x4 :effect #x29 :sound 'temp-enemy-die)
)
(define
death-warp-in
(define death-warp-in
(new 'static 'death-info :vertex-skip #x96 :timer #x4b :effect #x29 :sound 'warpgate-tele)
)
(define
death-warp-out
(define death-warp-out
(new 'static 'death-info :vertex-skip #x96 :timer #x96 :effect #x29 :sound 'warpgate-tele)
)

8
goal_src/engine/gfx/shrub/shrub-work.gc
View file

@ -7,9 +7,7 @@
;; DECOMP BEGINS
;; definition for symbol *instance-shrub-work*, type instance-shrub-work
(define
*instance-shrub-work*
(define *instance-shrub-work*
(new 'static 'instance-shrub-work
:matrix-tmpl
(new 'static 'inline-array qword 20
@ -478,14 +476,10 @@
)
)
;; failed to figure out what this is:
(set! (-> *instance-shrub-work* mscalf-tmpl vif0 imm) 103)
;; failed to figure out what this is:
(set! (-> *instance-shrub-work* mscalf-ret-tmpl vif0 imm) 103)
;; definition for function upload-generic-shrub
;; Used lq/sq
(defun upload-generic-shrub ((arg0 dma-buffer) (arg1 generic-shrub-fragment) (arg2 int) (arg3 int))
(let* ((v1-0 arg0)
(t0-0 (the-as object (-> v1-0 base)))

72
goal_src/engine/level/level-info.gc
View file

@ -7,8 +7,7 @@
;; DECOMP BEGINS
(define
training
(define training
(new 'static 'level-load-info
:index 1
:name 'training
@ -128,8 +127,7 @@
)
)
(define
village1
(define village1
(new 'static 'level-load-info
:index 2
:name 'village1
@ -268,8 +266,7 @@
)
)
(define
beach
(define beach
(new 'static 'level-load-info
:index 3
:name 'beach
@ -318,8 +315,7 @@
)
)
(define
jungle
(define jungle
(new 'static 'level-load-info
:index 4
:name 'jungle
@ -369,8 +365,7 @@
)
)
(define
jungleb
(define jungleb
(new 'static 'level-load-info
:index 5
:name 'jungleb
@ -417,8 +412,7 @@
)
)
(define
misty
(define misty
(new 'static 'level-load-info
:index 6
:name 'misty
@ -604,8 +598,7 @@
)
)
(define
firecanyon
(define firecanyon
(new 'static 'level-load-info
:index 7
:name 'firecanyon
@ -671,8 +664,7 @@
)
)
(define
village2
(define village2
(new 'static 'level-load-info
:index 8
:name 'village2
@ -757,8 +749,7 @@
)
)
(define
sunken
(define sunken
(new 'static 'level-load-info
:index 9
:name 'sunken
@ -860,8 +851,7 @@
)
)
(define
sunkenb
(define sunkenb
(new 'static 'level-load-info
:index 10
:name 'sunkenb
@ -927,8 +917,7 @@
)
)
(define
swamp
(define swamp
(new 'static 'level-load-info
:index 11
:name 'swamp
@ -1133,8 +1122,7 @@
)
)
(define
rolling
(define rolling
(new 'static 'level-load-info
:index 12
:name 'rolling
@ -1182,8 +1170,7 @@
)
)
(define
ogre
(define ogre
(new 'static 'level-load-info
:index 13
:name 'ogre
@ -1267,8 +1254,7 @@
)
)
(define
village3
(define village3
(new 'static 'level-load-info
:index 14
:name 'village3
@ -1353,8 +1339,7 @@
)
)
(define
snow
(define snow
(new 'static 'level-load-info
:index 15
:name 'snow
@ -1547,8 +1532,7 @@
)
)
(define
maincave
(define maincave
(new 'static 'level-load-info
:index 16
:name 'maincave
@ -1632,8 +1616,7 @@
)
)
(define
darkcave
(define darkcave
(new 'static 'level-load-info
:index 17
:name 'darkcave
@ -1681,8 +1664,7 @@
)
)
(define
robocave
(define robocave
(new 'static 'level-load-info
:index 18
:name 'robocave
@ -1748,8 +1730,7 @@
)
)
(define
lavatube
(define lavatube
(new 'static 'level-load-info
:index 19
:name 'lavatube
@ -1851,8 +1832,7 @@
)
)
(define
citadel
(define citadel
(new 'static 'level-load-info
:index 20
:name 'citadel
@ -2063,8 +2043,7 @@
)
)
(define
finalboss
(define finalboss
(new 'static 'level-load-info
:index 21
:name 'finalboss
@ -2159,8 +2138,7 @@
)
)
(define
demo
(define demo
(new 'static 'level-load-info
:index 23
:name 'demo
@ -2206,8 +2184,7 @@
)
)
(define
title
(define title
(new 'static 'level-load-info
:index 24
:name 'title
@ -2255,8 +2232,7 @@
)
)
(define
halfpipe
(define halfpipe
(new 'static 'level-load-info
:index 25
:name 'halfpipe

9
goal_src/engine/nav/navigate.gc
View file

@ -236,18 +236,15 @@
(vector+! arg1 arg1 (-> obj origin))
)
(define
*edge-vert0-table*
(define *edge-vert0-table*
(the-as (array int8) (new 'static 'boxed-array :type int8 :length 3 :allocated-length 3 1 2 0))
)
(define
*edge-vert1-table*
(define *edge-vert1-table*
(the-as (array int8) (new 'static 'boxed-array :type int8 :length 3 :allocated-length 3 2 0 1))
)
(define
*edge-mask-table*
(define *edge-mask-table*
(the-as (array int8) (new 'static 'boxed-array :type int8 :length 3 :allocated-length 3 1 2 4))
)

6
goal_src/engine/target/target-death.gc
View file

@ -525,8 +525,7 @@
)
)
(define
*smack-up-mods*
(define *smack-up-mods*
(new 'static 'surface
:name 'jump
:turnv 131072.0
@ -1084,8 +1083,7 @@
(the-as (function none :behavior target) target-post)
)
(define
*death-spool-array*
(define *death-spool-array*
(the-as (array spool-anim)
(new
'static

4
goal_src/engine/target/target-util.gc
View file

@ -20,8 +20,7 @@
:sort 1
)
(define
*target-shadow-control*
(define *target-shadow-control*
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
:center
(new 'static 'vector :w (the-as float #x2))
@ -709,7 +708,6 @@
(the-as collide-shape (-> obj control))
)
(defun average-turn-angle ((arg0 target))
(let ((f30-0 0.0))
(dotimes (s5-0 8)

3
goal_src/levels/beach/beach-part.gc
View file

@ -616,8 +616,7 @@
((sp-flt spt-fade-a -0.014222222))
)
(define
sound-beach-waterfall
(define sound-beach-waterfall
(new 'static 'sound-spec :num 1.0 :group #x1 :sound-name (static-sound-name "waterfall") :volume #x400)
)

6
goal_src/levels/beach/seagull.gc
View file

@ -34,8 +34,7 @@
)
)
(define
sound-seagull-squall
(define sound-seagull-squall
(new 'static 'sound-spec :num 1.0 :group #x1 :sound-name (static-sound-name "seagulls-2") :volume #x400)
)
@ -134,8 +133,7 @@
(none)
)
(define
*seagull-boxes*
(define *seagull-boxes*
(new 'static 'inline-array air-box 10
(new 'static 'air-box :vecs (new 'static 'inline-array vector 2
(new 'static 'vector :x -1146880.0 :y 143360.0 :z -1638400.0 :w -0.6427)

9
goal_src/levels/common/dark-eco-pool.gc
View file

@ -30,8 +30,7 @@
)
)
(define
ripple-for-maincave-dark-eco-pool
(define ripple-for-maincave-dark-eco-pool
(new 'static 'ripple-wave-set
:count 3
:converted #f
@ -46,8 +45,7 @@
)
)
(define
ripple-for-finalboss-dark-eco-pool
(define ripple-for-finalboss-dark-eco-pool
(new 'static 'ripple-wave-set
:count 3
:converted #f
@ -76,8 +74,7 @@
)
)
(define
ripple-for-sunken-dark-eco-helix-room
(define ripple-for-sunken-dark-eco-helix-room
(new 'static 'ripple-wave-set
:count 3
:converted #f

3
goal_src/levels/common/nav-enemy.gc
View file

@ -2085,8 +2085,7 @@ nav-enemy-default-event-handler
nav-enemy-jump-post
)
(define
*nav-enemy-dummy-shadow-control*
(define *nav-enemy-dummy-shadow-control*
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
:center
(new 'static 'vector :w (the-as float #x28))

3
goal_src/levels/common/ropebridge.gc
View file

@ -145,8 +145,7 @@
)
)
(define
*ropebridge-tunings*
(define *ropebridge-tunings*
(new 'static 'inline-array ropebridge-tuning 6
(new 'static 'ropebridge-tuning
:num-springs 16

3
goal_src/levels/common/water-anim.gc
View file

@ -414,8 +414,7 @@
)
(define
*water-anim-look*
(define *water-anim-look*
(the-as (array water-anim-look)
(new
'static

3
goal_src/levels/flut_common/flutflut.gc
View file

@ -46,8 +46,7 @@
(the-as flutflut ((method-of-type process-drawable relocate) obj arg0))
)
(define
*flutflut-shadow-control*
(define *flutflut-shadow-control*
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
:center
(new 'static 'vector :w (the-as float #xa))

326
goal_src/levels/jungleb/plant-boss.gc
View file

File diff suppressed because it is too large Load diff

6
goal_src/levels/maincave/dark-crystal.gc
View file

@ -56,15 +56,13 @@
:longest-edge (meters 0)
)
(define
*dark-crystal-flash-delays*
(define *dark-crystal-flash-delays*
(the-as (array int32)
(new 'static 'boxed-array :type int32 :length 9 :allocated-length 9 #xb4 #x96 #x78 90 60 30 15 7 3)
)
)
(define
*dark-crystal-exploder-params*
(define *dark-crystal-exploder-params*
(new 'static 'joint-exploder-static-params
:joints
(new

3
goal_src/levels/maincave/driller-lurker.gc
View file

@ -75,8 +75,7 @@
:shadow 4
)
(define
*driller-lurker-shadow-control*
(define *driller-lurker-shadow-control*
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
:center
(new 'static 'vector :w (the-as float #x9))

3
goal_src/levels/maincave/gnawer.gc
View file

@ -137,8 +137,7 @@
:longest-edge (meters 0)
)
(define
*gnawer-segment-infos*
(define *gnawer-segment-infos*
(new 'static 'inline-array gnawer-segment-info 10
(new 'static 'gnawer-segment-info
:num-joints 8

6
goal_src/levels/maincave/mother-spider.gc
View file

@ -27,8 +27,7 @@
:longest-edge (meters 0)
)
(define
*mother-spider-threads*
(define *mother-spider-threads*
(new 'static 'inline-array mother-spider-thread 9
(new 'static 'mother-spider-thread :joint-index 27)
(new 'static 'mother-spider-thread :trans-u (the-as float #x1a) :swing-arc-u 0.35)
@ -42,8 +41,7 @@
)
)
(define
*mother-spider-leg-infos*
(define *mother-spider-leg-infos*
(new 'static 'inline-array mother-spider-leg-info 8
(new 'static 'mother-spider-leg-info :joint-index0 13 :joint-index1 14 :cprim-index 8)
(new 'static 'mother-spider-leg-info :joint-index0 7 :joint-index1 8 :cprim-index 5)

3
goal_src/levels/misty/misty-conveyor.gc
View file

@ -538,8 +538,7 @@
)
)
(define
*keg-conveyor-keg-spawn-table*
(define *keg-conveyor-keg-spawn-table*
(the-as (array int8) (new 'static 'boxed-array :type int8 :length 6 :allocated-length 6 1 2 1 1 2 1))
)

3
goal_src/levels/misty/sidekick-human.gc
View file

@ -1202,8 +1202,7 @@
)
(define
*lurker-army*
(define *lurker-army*
(the-as (array army-info) (new
'static
'boxed-array

3
goal_src/levels/ogre/ogre-obs.gc
View file

@ -1134,8 +1134,7 @@
(the-as (function none :behavior ogre-bridge) rider-post)
)
(define
*ogre-bridge-joint-array*
(define *ogre-bridge-joint-array*
(the-as (array uint8)
(new 'static 'boxed-array :type uint8 :length 8 :allocated-length 8 #x4 #x9 #xc #x11 #x7 #xa #xf #x12)
)

240
goal_src/levels/ogre/ogreboss.gc
View file

@ -67,8 +67,7 @@
:longest-edge (meters 0)
)
(define
*ogreboss-missile-shadow-control*
(define *ogreboss-missile-shadow-control*
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
:center
(new 'static 'vector :w (the-as float #xe))
@ -82,8 +81,7 @@
)
)
(define
*ogreboss-shadow-control*
(define *ogreboss-shadow-control*
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
:center
(new 'static 'vector :w (the-as float #xc))
@ -181,6 +179,7 @@
(s4-0 (new 'stack-no-clear 'collide-tri-result))
)
(set! (-> self state-time) (-> *display* base-frame-counter))
(b! #t cfg-1)
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 2))
(empty)
)
@ -239,14 +238,7 @@
(-> gp-1 ppointer)
)
)
(activate!
*camera-smush-control*
(the-as float 819.2)
37
600
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 0.995)
)
(activate! *camera-smush-control* (the-as float 819.2) 37 600 (the-as float 1.0) (the-as float 0.995))
(let* ((s4-1 (get-process *default-dead-pool* manipy #x4000))
(gp-2 (when s4-1
(let ((t9-7 (method-of-type manipy activate)))
@ -259,9 +251,9 @@
)
(quaternion-axis-angle!
(-> (the-as manipy (-> gp-2 0)) root quat)
(-> (new 'static 'array float 1 0.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as float 1.0)
(the-as float 0.0)
(* 65536.0 (rand-vu))
)
(send-event (ppointer->process gp-2) 'anim-mode 'play1)
@ -273,15 +265,9 @@
(defun ogreboss-missile-scale-explosion ((arg0 handle))
(let* ((gp-0 (handle->process arg0))
(f0-0 (-> (the-as process-drawable gp-0) root scale x))
(f0-2 (seek f0-0 (-> (new 'static 'array float 1 0.0) 0) (-> *display* seconds-per-frame)))
(f0-2 (seek f0-0 (the-as float 0.0) (-> *display* seconds-per-frame)))
)
(set-vector!
(-> (the-as process-drawable gp-0) root scale)
f0-2
f0-2
f0-2
(-> (new 'static 'array float 1 1.0) 0)
)
(set-vector! (-> (the-as process-drawable gp-0) root scale) f0-2 f0-2 f0-2 1.0)
)
0
(none)
@ -344,7 +330,7 @@
0.0
(set! (-> s4-1 quad) (-> (the-as target t1-0) control trans quad))
(set! (-> s4-1 y) (+ 4096.0 (-> s4-1 y)))
(set-vector! s3-0 0.0 (- 118784.0 (-> s4-1 y)) 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! s3-0 0.0 (- 118784.0 (-> s4-1 y)) 0.0 1.0)
(let ((f30-0
(fill-and-probe-using-line-sphere
*collide-cache*
@ -363,7 +349,7 @@
(bucket-id debug-draw1)
s4-1
s3-0
(-> (new 'static 'array float 1 1.0) 0)
(meters 0.00024414062)
(the-as rgba (new 'static 'rgba :g #xff :a #x80))
)
(when (>= f30-0 0.0)
@ -385,7 +371,7 @@
)
(else
(let ((v1-37 (new 'stack-no-clear 'vector)))
(set-vector! v1-37 0.0 -12288000.0 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! v1-37 0.0 -12288000.0 0.0 1.0)
(send-event arg0 'impulse v1-37)
)
)
@ -504,19 +490,13 @@
(quaternion-axis-angle!
(-> self tumble-quat)
(cos f30-1)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(sin f30-1)
(the-as float 2730.6667)
)
)
(set! (-> self part) (create-launch-control (-> *part-group-id-table* 469) self))
(set-vector!
(-> self draw color-emissive)
(-> (new 'static 'array float 1 0.125) 0)
(-> (new 'static 'array float 1 0.0625) 0)
0.0
0.0
)
(set-vector! (-> self draw color-emissive) 0.125 0.0625 0.0 0.0)
(go ogreboss-missile-idle)
(none)
)
@ -613,7 +593,7 @@
)
)
(('grow-faster)
(let ((f0-2 (-> (new 'static 'array float 1 1.0) 0)))
(let ((f0-2 1.0))
(set! (-> self grow-rate) f0-2)
f0-2
)
@ -645,7 +625,7 @@
(set! (-> gp-0 frame-num) 0.0)
)
(set! (-> self joint enable) #t)
(set! (-> self joint blend) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> self joint blend) 1.0)
(set! (-> self state-time) (-> *display* base-frame-counter))
(while #t
(quaternion-vector-angle!
@ -655,17 +635,17 @@
)
(quaternion*! (-> self joint transform quat) (-> self joint transform quat) (-> self tumble-quat))
(+! (-> self size) (* (-> self grow-rate) (-> *display* seconds-per-frame)))
(set! (-> self size) (fmin (-> (new 'static 'array float 1 1.0) 0) (-> self size)))
(set! (-> self size) (fmin 1.0 (-> self size)))
(let* ((f0-10 (sqrtf (-> self size)))
(f28-0 (* 0.0033333334 (the float (- (-> *display* base-frame-counter) (-> self state-time)))))
(f30-0 (* 116508.445 f28-0 (-> self speed)))
)
(set-vector! (-> self joint transform scale) f0-10 f0-10 f0-10 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self joint transform scale) f0-10 f0-10 f0-10 1.0)
(let ((gp-1 (-> self joint transform)))
(set! (-> gp-1 trans x) (* 4096.0 (sin f30-0)))
(set! (-> gp-1 trans y) (+ 122880.0 (* 12288.0 (sin (* 98304.0 f28-0)))))
(set! (-> gp-1 trans z) (* 4096.0 (cos f30-0)))
(set! (-> gp-1 trans w) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-1 trans w) 1.0)
)
)
(spawn (-> self part) (-> self node-list data 3 bone transform vector 3))
@ -696,14 +676,7 @@
1
(the-as symbol (-> self draw origin))
)
(activate!
*camera-smush-control*
(the-as float 819.2)
37
600
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 0.995)
)
(activate! *camera-smush-control* (the-as float 819.2) 37 600 (the-as float 1.0) (the-as float 0.995))
(let ((gp-1 (get-process *default-dead-pool* part-tracker #x4000)))
(when gp-1
(let ((t9-4 (method-of-type part-tracker activate)))
@ -724,26 +697,26 @@
(set! (-> a0-3 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 43)) data 0 length) -1))
)
(set! (-> a0-3 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-3 param 1) 1.0)
(set! (-> a0-3 frame-num) 0.0)
(joint-control-channel-group! a0-3 (the-as art-joint-anim (-> self draw art-group data 43)) num-func-seek!)
)
(until (ja-done? 0)
(set! (-> self joint blend)
(seek (-> self joint blend) (-> (new 'static 'array float 1 0.0) 0) (* 5.0 (-> *display* seconds-per-frame)))
(seek (-> self joint blend) (the-as float 0.0) (* 5.0 (-> *display* seconds-per-frame)))
)
(let* ((f1-1 (/ (- (ja-frame-num 0) (ja-aframe (the-as float 54.0) 0))
(- (the float (ja-num-frames 0)) (ja-aframe (the-as float 54.0) 0))
)
)
(f0-13 (fmax 0.0 (fmin (-> (new 'static 'array float 1 1.0) 0) f1-1)))
(f0-13 (fmax 0.0 (fmin 1.0 f1-1)))
)
(vector-lerp! (-> self root-override trans) (-> self src-pos) (-> self orig-pos) f0-13)
)
(suspend)
(let ((a0-10 (-> self skel root-channel 0)))
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
(set! (-> a0-10 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-10 param 1) 1.0)
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -762,19 +735,19 @@
(set! (-> a0-3 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 42)) data 0 length) -1))
)
(set! (-> a0-3 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-3 param 1) 1.0)
(set! (-> a0-3 frame-num) 0.0)
(joint-control-channel-group! a0-3 (the-as art-joint-anim (-> self draw art-group data 42)) num-func-seek!)
)
(until (ja-done? 0)
(set! (-> self joint blend)
(seek (-> self joint blend) (-> (new 'static 'array float 1 0.0) 0) (* 5.0 (-> *display* seconds-per-frame)))
(seek (-> self joint blend) (the-as float 0.0) (* 5.0 (-> *display* seconds-per-frame)))
)
(let* ((f1-1 (/ (- (ja-frame-num 0) (ja-aframe (the-as float 32.0) 0))
(- (the float (ja-num-frames 0)) (ja-aframe (the-as float 32.0) 0))
)
)
(f0-13 (fmax 0.0 (fmin (-> (new 'static 'array float 1 1.0) 0) f1-1)))
(f0-13 (fmax 0.0 (fmin 1.0 f1-1)))
)
(vector-lerp! (-> self root-override trans) (-> self src-pos) (-> self orig-pos) f0-13)
)
@ -782,7 +755,7 @@
(suspend)
(let ((a0-10 (-> self skel root-channel 0)))
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
(set! (-> a0-10 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-10 param 1) 1.0)
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -837,7 +810,7 @@
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 44)))
(set! (-> gp-0 param 0) (ja-aframe (the-as float 100.0) 0))
(set! (-> gp-0 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-0 param 1) 1.0)
(set! (-> gp-0 frame-num) 0.0)
(joint-control-channel-group! gp-0 (the-as art-joint-anim (-> self draw art-group data 44)) num-func-seek!)
)
@ -851,7 +824,7 @@
(suspend)
(let ((gp-2 (-> self skel root-channel 0)))
(set! (-> gp-2 param 0) (ja-aframe (the-as float 100.0) 0))
(set! (-> gp-2 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-2 param 1) 1.0)
(joint-control-channel-group-eval! gp-2 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -875,7 +848,7 @@
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 44)))
(set! (-> gp-0 param 0) (ja-aframe (the-as float 162.0) 0))
(set! (-> gp-0 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-0 param 1) 1.0)
(set! (-> gp-0 frame-num) (ja-aframe (the-as float 100.0) 0))
(joint-control-channel-group! gp-0 (the-as art-joint-anim (-> self draw art-group data 44)) num-func-seek!)
)
@ -883,7 +856,7 @@
(suspend)
(let ((gp-1 (-> self skel root-channel 0)))
(set! (-> gp-1 param 0) (ja-aframe (the-as float 162.0) 0))
(set! (-> gp-1 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-1 param 1) 1.0)
(joint-control-channel-group-eval! gp-1 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -935,7 +908,7 @@
(set! (-> gp-4 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 44)) data 0 length) -1))
)
(set! (-> gp-4 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-4 param 1) 1.0)
(set! (-> gp-4 frame-num) (ja-aframe (the-as float 162.0) 0))
(joint-control-channel-group! gp-4 (the-as art-joint-anim (-> self draw art-group data 44)) num-func-seek!)
)
@ -943,7 +916,7 @@
(suspend)
(let ((a0-12 (-> self skel root-channel 0)))
(set! (-> a0-12 param 0) (the float (+ (-> a0-12 frame-group data 0 length) -1)))
(set! (-> a0-12 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-12 param 1) 1.0)
(joint-control-channel-group-eval! a0-12 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -1017,21 +990,15 @@
(quaternion-axis-angle!
(-> self tumble-quat)
(cos f30-1)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(sin f30-1)
(the-as float 2730.6667)
)
)
(set! (-> self joint) (new 'process 'joint-mod-blend-local self 3 #f))
(set! (-> self part) (create-launch-control (-> *part-group-id-table* 468) self))
(set-vector!
(-> self draw color-emissive)
(-> (new 'static 'array float 1 0.125) 0)
(-> (new 'static 'array float 1 0.0625) 0)
0.0
0.0
)
(set! (-> self speed) (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self draw color-emissive) 0.125 0.0625 0.0 0.0)
(set! (-> self speed) 1.0)
(set! (-> self size) 0.0)
(set! (-> self grow-rate) (/ 300.0 arg1))
(set! (-> self sound-id) (new-sound-id))
@ -1079,7 +1046,7 @@
:code
(behavior ()
(set! (-> self state-time) (-> *display* base-frame-counter))
(let ((f30-0 (-> (new 'static 'array float 1 2.0) 0)))
(let ((f30-0 2.0))
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 38)))
(set! (-> gp-0 param 0) (ja-aframe (the-as float 40.0) 0))
@ -1089,9 +1056,7 @@
)
(until (ja-done? 0)
(set! (-> self side-pos)
(* (fmin (-> (new 'static 'array float 1 1.0) 0) (/ (ja-frame-num 0) (ja-aframe (the-as float 40.0) 0)))
(-> self dest-pos)
)
(* (fmin 1.0 (/ (ja-frame-num 0) (ja-aframe (the-as float 40.0) 0))) (-> self dest-pos))
)
(suspend)
(let ((gp-1 (-> self skel root-channel 0)))
@ -1112,7 +1077,7 @@
(until (ja-done? 0)
(if (>= (ja-frame-num 0) (ja-aframe (the-as float 235.0) 0))
(set! (-> self side-pos)
(seek (-> self side-pos) (-> (new 'static 'array float 1 0.0) 0) (* 20480.0 (-> *display* seconds-per-frame)))
(seek (-> self side-pos) (the-as float 0.0) (* 20480.0 (-> *display* seconds-per-frame)))
)
)
(suspend)
@ -1136,7 +1101,7 @@
(the-as float 49152.0)
(collide-kind background)
(the-as process-drawable #f)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as float 409600.0)
)
(none)
@ -1172,7 +1137,7 @@
(set! (-> self side-pos) 0.0)
(set! (-> self dest-pos) (the-as float (cond
((zero? arg0)
(-> (new 'static 'array float 1 0.0) 0)
0.0
)
((= arg0 1)
-20480.0
@ -1181,7 +1146,7 @@
20480.0
)
(else
(-> (new 'static 'array float 1 0.0) 0)
0.0
)
)
)
@ -1190,13 +1155,7 @@
(initialize-skeleton self *ogreboss-bounce-boulder-sg* '())
(logclear! (-> self mask) (process-mask actor-pause))
(set! (-> self draw origin-joint-index) (the-as uint 3))
(set-vector!
(-> self draw color-emissive)
(-> (new 'static 'array float 1 0.125) 0)
(-> (new 'static 'array float 1 0.0625) 0)
0.0
0.0
)
(set-vector! (-> self draw color-emissive) 0.125 0.0625 0.0 0.0)
(go ogreboss-bounce-boulder-idle)
(none)
)
@ -1292,7 +1251,7 @@
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
(set! (-> gp-0 param 0) (ja-aframe (the-as float 140.0) 0))
(set! (-> gp-0 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-0 param 1) 1.0)
(set! (-> gp-0 frame-num) 0.0)
(joint-control-channel-group! gp-0 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
)
@ -1300,7 +1259,7 @@
(suspend)
(let ((gp-1 (-> self skel root-channel 0)))
(set! (-> gp-1 param 0) (ja-aframe (the-as float 140.0) 0))
(set! (-> gp-1 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-1 param 1) 1.0)
(joint-control-channel-group-eval! gp-1 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -1312,7 +1271,7 @@
(let ((gp-3 (-> self skel root-channel 0)))
(set! (-> gp-3 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
(set! (-> gp-3 param 0) (ja-aframe (the-as float 168.0) 0))
(set! (-> gp-3 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-3 param 1) 1.0)
(set! (-> gp-3 frame-num) (ja-aframe (the-as float 140.0) 0))
(joint-control-channel-group! gp-3 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
)
@ -1320,7 +1279,7 @@
(suspend)
(let ((gp-4 (-> self skel root-channel 0)))
(set! (-> gp-4 param 0) (ja-aframe (the-as float 168.0) 0))
(set! (-> gp-4 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-4 param 1) 1.0)
(joint-control-channel-group-eval! gp-4 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -1334,7 +1293,7 @@
(set! (-> gp-6 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) data 0 length) -1))
)
(set! (-> gp-6 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-6 param 1) 1.0)
(set! (-> gp-6 frame-num) (ja-aframe (the-as float 168.0) 0))
(joint-control-channel-group! gp-6 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
)
@ -1342,7 +1301,7 @@
(suspend)
(let ((a0-15 (-> self skel root-channel 0)))
(set! (-> a0-15 param 0) (the float (+ (-> a0-15 frame-group data 0 length) -1)))
(set! (-> a0-15 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-15 param 1) 1.0)
(joint-control-channel-group-eval! a0-15 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -1353,7 +1312,7 @@
(set! (-> a0-18 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
)
(set! (-> a0-18 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-18 param 1) 1.0)
(set! (-> a0-18 frame-num) 0.0)
(joint-control-channel-group! a0-18 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
)
@ -1361,7 +1320,7 @@
(suspend)
(let ((a0-19 (-> self skel root-channel 0)))
(set! (-> a0-19 param 0) (the float (+ (-> a0-19 frame-group data 0 length) -1)))
(set! (-> a0-19 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-19 param 1) 1.0)
(joint-control-channel-group-eval! a0-19 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -1373,7 +1332,7 @@
(set! (-> a0-21 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
)
(set! (-> a0-21 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-21 param 1) 1.0)
(set! (-> a0-21 frame-num) 0.0)
(joint-control-channel-group! a0-21 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
)
@ -1381,7 +1340,7 @@
(suspend)
(let ((a0-22 (-> self skel root-channel 0)))
(set! (-> a0-22 param 0) (the float (+ (-> a0-22 frame-group data 0 length) -1)))
(set! (-> a0-22 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-22 param 1) 1.0)
(joint-control-channel-group-eval! a0-22 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -1473,7 +1432,7 @@
(set! (-> a0-15 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 24)) data 0 length) -1))
)
(set! (-> a0-15 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-15 param 1) 1.0)
(set! (-> a0-15 frame-num) 0.0)
(joint-control-channel-group! a0-15 (the-as art-joint-anim (-> self draw art-group data 24)) num-func-seek!)
)
@ -1481,7 +1440,7 @@
(suspend)
(let ((a0-16 (-> self skel root-channel 0)))
(set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
(set! (-> a0-16 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-16 param 1) 1.0)
(joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -1490,7 +1449,7 @@
(send-event *target* 'continue (get-continue-by-name *game-info* "ogre-start"))
(ogreboss-inc-try-count)
)
(set-setting! *setting-control* self 'music 'ogreboss (-> (new 'static 'array float 1 0.0) 0) 0)
(set-setting! *setting-control* self 'music 'ogreboss (the-as float 0.0) 0)
(go ogreboss-wait-for-player)
(none)
)
@ -1564,12 +1523,7 @@
(let ((s5-0 (new 'stack-no-clear 'vector)))
(set! (-> gp-0 src) (-> self node-list data 52 bone transform vector 3))
(set! (-> gp-0 duration)
(the-as
time-frame
(the int
(* 300.0 (+ 1.25 (* -0.25 (-> self level)) (/ (-> (new 'static 'array float 1 0.5) 0) (-> self difficulty))))
)
)
(the-as time-frame (the int (* 300.0 (+ 1.25 (* -0.25 (-> self level)) (/ 0.5 (-> self difficulty))))))
)
(set! (-> gp-0 pickup-type) (the-as pickup-type arg0))
(set! (-> gp-0 blast-radius) 32768.0)
@ -1850,7 +1804,7 @@
(behavior ()
(set! (-> self mask) (logior (process-mask enemy) (-> self mask)))
(ogreboss-set-stage1-camera)
(ogreboss-move-near (seconds 3) (-> (new 'static 'array float 1 1.0) 0))
(ogreboss-move-near (seconds 3) (the-as float 1.0))
(cond
((= (if (> (-> self skel active-channels) 0)
(-> self skel root-channel 0 frame-group)
@ -1863,7 +1817,7 @@
(set! (-> a0-7 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) data 0 length) -1))
)
(set! (-> a0-7 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-7 param 1) 1.0)
(set! (-> a0-7 frame-num) 0.0)
(joint-control-channel-group! a0-7 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
)
@ -1871,7 +1825,7 @@
(suspend)
(let ((a0-8 (-> self skel root-channel 0)))
(set! (-> a0-8 param 0) (the float (+ (-> a0-8 frame-group data 0 length) -1)))
(set! (-> a0-8 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-8 param 1) 1.0)
(joint-control-channel-group-eval! a0-8 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -1883,7 +1837,7 @@
(set! (-> a0-11 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
)
(set! (-> a0-11 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-11 param 1) 1.0)
(set! (-> a0-11 frame-num) 0.0)
(joint-control-channel-group! a0-11 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
)
@ -1891,14 +1845,14 @@
(suspend)
(let ((a0-12 (-> self skel root-channel 0)))
(set! (-> a0-12 param 0) (the float (+ (-> a0-12 frame-group data 0 length) -1)))
(set! (-> a0-12 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-12 param 1) 1.0)
(joint-control-channel-group-eval! a0-12 (the-as art-joint-anim #f) num-func-seek!)
)
)
)
)
(let* ((gp-0 (the int (* (-> self difficulty) (+ 8.0 (* 4.0 (-> self level))))))
(f0-17 (-> (new 'static 'array float 1 1.0) 0))
(f0-17 1.0)
(f1-2 0.15)
(f2-2 (-> self difficulty))
(f30-0 (+ f0-17 (* f1-2 (* f2-2 f2-2) (-> self level))))
@ -1925,10 +1879,10 @@
(let ((s5-0 0))
(let ((f28-0 0.0))
(cond
((>= (-> (new 'static 'array float 1 1.0) 0) (-> *target* fact-info-target health))
((>= 1.0 (-> *target* fact-info-target health))
(set! f28-0 0.1)
)
((>= (-> (new 'static 'array float 1 2.0) 0) (-> *target* fact-info-target health))
((>= 2.0 (-> *target* fact-info-target health))
(set! f28-0 0.05)
)
)
@ -1937,7 +1891,7 @@
(* 0.0 f28-0)
)
((< (-> self try-count) (the-as uint 10))
(* (-> (new 'static 'array float 1 0.5) 0) f28-0)
(* 0.5 f28-0)
)
(else
(empty)
@ -1989,14 +1943,14 @@
)
)
)
(ogreboss-move-far (seconds 2) (-> (new 'static 'array float 1 1.0) 0))
(ogreboss-move-far (seconds 2) (the-as float 1.0))
(ja-channel-push! 1 30)
(let ((a0-28 (-> self skel root-channel 0)))
(set! (-> a0-28 frame-group) (the-as art-joint-anim (-> self draw art-group data 16)))
(set! (-> a0-28 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 16)) data 0 length) -1))
)
(set! (-> a0-28 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-28 param 1) 1.0)
(set! (-> a0-28 frame-num) 0.0)
(joint-control-channel-group! a0-28 (the-as art-joint-anim (-> self draw art-group data 16)) num-func-seek!)
)
@ -2004,7 +1958,7 @@
(suspend)
(let ((a0-29 (-> self skel root-channel 0)))
(set! (-> a0-29 param 0) (the float (+ (-> a0-29 frame-group data 0 length) -1)))
(set! (-> a0-29 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-29 param 1) 1.0)
(joint-control-channel-group-eval! a0-29 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -2076,11 +2030,8 @@
)
(let ((f30-0 (the float (- (-> *display* base-frame-counter) (-> self hit-time)))))
(when (and (> (-> self hit-count) 0) (>= 45.0 f30-0))
(set! f0-0 (+ (ja-aframe (-> (new 'static 'array float 1 0.0) 0) 1)
(* 0.022222223
f30-0
(- (ja-aframe (the-as float 8.0) 1) (ja-aframe (-> (new 'static 'array float 1 0.0) 0) 1))
)
(set! f0-0 (+ (ja-aframe (the-as float 0.0) 1)
(* 0.022222223 f30-0 (- (ja-aframe (the-as float 8.0) 1) (ja-aframe (the-as float 0.0) 1)))
)
)
(set! f1-0 (cond
@ -2222,7 +2173,7 @@
:code
(behavior ()
(ogreboss-set-stage2-camera)
(ogreboss-move-far (seconds 0.1) (-> (new 'static 'array float 1 2.0) 0))
(ogreboss-move-far (seconds 0.1) (the-as float 2.0))
(let ((f30-0 (* 0.75 (-> self difficulty))))
(let ((gp-0 #f))
(ja-channel-push! 1 60)
@ -2345,7 +2296,7 @@
:trans
(behavior ()
(let ((v1-1 (handle->process (-> self boulder))))
(if (and v1-1 (>= (-> (the-as ogreboss-super-boulder v1-1) size) (-> (new 'static 'array float 1 1.0) 0)))
(if (and v1-1 (>= (-> (the-as ogreboss-super-boulder v1-1) size) 1.0))
(go ogreboss-stage3-throw)
)
)
@ -2361,11 +2312,8 @@
:code
(behavior ()
(set! (-> self shuffle-pos) 0.0)
(let ((f30-0 (+ (-> (new 'static 'array float 1 1.0) 0)
(* (-> (new 'static 'array float 1 0.25) 0) (-> self difficulty) (-> self level))
)
)
(gp-0 (if (rand-vu-percent? (-> (new 'static 'array float 1 0.5) 0))
(let ((f30-0 (+ 1.0 (* 0.25 (-> self difficulty) (-> self level))))
(gp-0 (if (rand-vu-percent? (the-as float 0.5))
0
1
)
@ -2559,7 +2507,7 @@
(set! (-> a0-5 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 9)) data 0 length) -1))
)
(set! (-> a0-5 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-5 param 1) 1.0)
(set! (-> a0-5 frame-num) 0.0)
(joint-control-channel-group! a0-5 (the-as art-joint-anim (-> self draw art-group data 9)) num-func-seek!)
)
@ -2567,7 +2515,7 @@
(suspend)
(let ((a0-6 (-> self skel root-channel 0)))
(set! (-> a0-6 param 0) (the float (+ (-> a0-6 frame-group data 0 length) -1)))
(set! (-> a0-6 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-6 param 1) 1.0)
(joint-control-channel-group-eval! a0-6 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -2577,7 +2525,7 @@
(set! (-> a0-9 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 16)) data 0 length) -1))
)
(set! (-> a0-9 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-9 param 1) 1.0)
(set! (-> a0-9 frame-num) 0.0)
(joint-control-channel-group! a0-9 (the-as art-joint-anim (-> self draw art-group data 16)) num-func-seek!)
)
@ -2585,11 +2533,11 @@
(suspend)
(let ((a0-10 (-> self skel root-channel 0)))
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
(set! (-> a0-10 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-10 param 1) 1.0)
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
)
)
(ogreboss-submerge (seconds 1) (-> (new 'static 'array float 1 1.0) 0))
(ogreboss-submerge (seconds 1) (the-as float 1.0))
(while (handle->process (-> self boulder))
(suspend)
)
@ -2604,8 +2552,8 @@
(defstate ogreboss-stage3-hit (ogreboss)
:code
(behavior ()
(set! (-> self level) (+ (-> (new 'static 'array float 1 1.0) 0) (-> self level)))
(if (< (-> (new 'static 'array float 1 2.0) 0) (-> self level))
(set! (-> self level) (+ 1.0 (-> self level)))
(if (< 2.0 (-> self level))
(go ogreboss-die)
)
(send-event (handle->process (-> self boulder)) 'go-hit)
@ -2615,7 +2563,7 @@
(set! (-> a0-5 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
)
(set! (-> a0-5 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-5 param 1) 1.0)
(set! (-> a0-5 frame-num) 0.0)
(joint-control-channel-group! a0-5 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
)
@ -2623,7 +2571,7 @@
(suspend)
(let ((a0-6 (-> self skel root-channel 0)))
(set! (-> a0-6 param 0) (the float (+ (-> a0-6 frame-group data 0 length) -1)))
(set! (-> a0-6 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-6 param 1) 1.0)
(joint-control-channel-group-eval! a0-6 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -2676,7 +2624,7 @@
(set! (-> a0-5 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
)
(set! (-> a0-5 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-5 param 1) 1.0)
(set! (-> a0-5 frame-num) 0.0)
(joint-control-channel-group! a0-5 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
)
@ -2685,7 +2633,7 @@
(suspend)
(let ((a0-6 (-> self skel root-channel 0)))
(set! (-> a0-6 param 0) (the float (+ (-> a0-6 frame-group data 0 length) -1)))
(set! (-> a0-6 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-6 param 1) 1.0)
(joint-control-channel-group-eval! a0-6 (the-as art-joint-anim #f) num-func-seek!)
)
)
@ -2763,9 +2711,9 @@
)
(set! (-> self target-count) gp-1)
)
(set-vector! (-> self target-offset-array 0) 0.0 16384.0 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self target-offset-array-2) 0.0 16384.0 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self target-offset-array-3) 0.0 16384.0 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self target-offset-array 0) 0.0 16384.0 0.0 1.0)
(set-vector! (-> self target-offset-array-2) 0.0 16384.0 0.0 1.0)
(set-vector! (-> self target-offset-array-3) 0.0 16384.0 0.0 1.0)
(set! (-> self target-blast-radius-array 0) 24576.0)
(set! (-> self target-blast-radius-array 1) 24576.0)
(set! (-> self target-blast-radius-array 2) 24576.0)
@ -2849,7 +2797,7 @@
(set! (-> obj try-count) (-> obj entity extra perm user-uint8 0))
(cond
((< (-> obj try-count) (the-as uint 5))
(set! (-> obj difficulty) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> obj difficulty) 1.0)
)
((< (-> obj try-count) (the-as uint 10))
(set! (-> obj difficulty) 0.83334)
@ -2858,7 +2806,7 @@
(set! (-> obj difficulty) 0.66667)
)
(else
(set! (-> obj difficulty) (-> (new 'static 'array float 1 0.5) 0))
(set! (-> obj difficulty) 0.5)
)
)
(set! (-> obj lava) (entity-actor-lookup (-> obj entity) 'water-actor 0))
@ -2871,8 +2819,8 @@
(set! (-> obj z-plane w) (- (vector-dot (-> obj z-plane) (-> obj root-override trans))))
(vector-x-quaternion! (-> obj side-dir) (-> obj root-override quat))
(set! (-> obj far-pos quad) (-> obj root-override trans quad))
(let ((f0-38 (-> (new 'static 'array float 1 1.0) 0)))
(set-vector! (-> obj root-override scale) f0-38 f0-38 f0-38 (-> (new 'static 'array float 1 1.0) 0))
(let ((f0-38 1.0))
(set-vector! (-> obj root-override scale) f0-38 f0-38 f0-38 1.0)
)
(vector+*! (-> obj near-pos) (-> obj far-pos) (-> obj z-plane) (the-as float 348160.0))
(set! (-> obj at-near-spot) #t)

3
goal_src/levels/rolling/rolling-obs.gc
View file

@ -1741,8 +1741,7 @@
)
(define
ripple-for-rolling-water
(define ripple-for-rolling-water
(the-as object (new 'static 'ripple-wave-set
:count 3
:converted #f

3
goal_src/levels/snow/snow-ball.gc
View file

@ -110,8 +110,7 @@
:shadow 5
)
(define
*snow-ball-shadow-control*
(define *snow-ball-shadow-control*
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
:center
(new 'static 'vector :w (the-as float #xa))

3
goal_src/levels/sunken/bully.gc
View file

@ -76,8 +76,7 @@
:longest-edge (meters 0)
)
(define
*bully-shadow-control*
(define *bully-shadow-control*
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
:center
(new 'static 'vector :w (the-as float #x9))

3
goal_src/levels/village2/swamp-blimp.gc
View file

@ -237,8 +237,7 @@
)
(define
*SWAMP_BLIMP-bank*
(define *SWAMP_BLIMP-bank*
(new 'static 'swamp-blimp-bank :pause-before-dropping-arm #x4b0 :rise-per-break 16384.0 :arm-sink-wait 1500.0)
)