mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-06-09 12:46:43 -04:00
Code Issues Packages Projects Releases Wiki Activity

[decomp] flags for continue points (#1303)

Browse Source 
* make flags!

* finish flags

* refs

* Update game.gp

* fix target decomp

* Update target.gc
This commit is contained in:
ManDude
2022-04-15 23:06:24 +01:00
committed by GitHub
parent ab063bf7b0
commit 5300a7fc2b
21 changed files with 3349 additions and 3269 deletions
Download Patch File Download Diff File Expand all files Collapse all files
decompiler/IR2/FormExpressionAnalysis.cpp
+2 -2
View File
@@ -742,8 +742,8 @@ void SimpleExpressionElement::update_from_stack_fpr_to_gpr(const Env& env,
m_popped = false;
update_from_stack(env, pool, stack, result, allow_side_effects);
} else {
throw std::runtime_error(
fmt::format("FPR -> GPR applied to a {} in {}", src_type.print(), to_string(env)));
throw std::runtime_error(fmt::format("FPR -> GPR applied to a {} in {} at {}", src_type.print(),
to_string(env), m_my_idx));
}
}
decompiler/config/all-types.gc
+19 -2
View File
@@ -9358,7 +9358,7 @@
((want level-buffer-state 2 :inline :offset-assert 4)
(vis-nick symbol :offset-assert 36)
(command-list pair :offset-assert 40)
(object-name symbol 256 :offset-assert 44)
(object-name symbol 256 :offset-assert 44) ;; TODO string
(object-status basic 256 :offset-assert 1068)
)
:method-count-assert 21
@@ -9381,10 +9381,27 @@
)
)
(defenum continue-flags
:type uint32
:bitfield #t
(contf00)
(contf01)
(warp)
(demo)
(intro)
(sage-intro)
(sage-demo-convo)
(title)
(contf08)
(contf09)
(game-start)
(sage-ecorocks)
)
(deftype continue-point (basic)
((name string :offset-assert 4)
(level symbol :offset-assert 8)
(flags uint32 :offset-assert 12)
(flags continue-flags :offset-assert 12)
(trans vector :inline :offset-assert 16)
(quat quaternion :inline :offset-assert 32)
(camera-trans vector :inline :offset-assert 48)
decompiler/config/jak1_ntsc_black_label/label_types.jsonc
+50 -50
View File
@@ -730,26 +730,26 @@
["L878", "float", true],
["L879", "float", true],
["L880", "float", true],
["L881", "(pointer float)", 1],
["L881", "float", true],
["L882", "float", true],
["L883", "float", true],
["L884", "(pointer float)", 1],
["L885", "(pointer float)", 1],
["L884", "float", true],
["L885", "float", true],
["L886", "float", true],
["L887", "float", true],
["L888", "(pointer float)", 1],
["L889", "(pointer float)", 1],
["L890", "(pointer float)", 1],
["L891", "(pointer float)", 1],
["L892", "(pointer float)", 1],
["L888", "float", true],
["L889", "float", true],
["L890", "float", true],
["L891", "float", true],
["L892", "float", true],
["L893", "float", true],
["L894", "float", true],
["L895", "float", true],
["L896", "(pointer float)", 1],
["L897", "(pointer float)", 1],
["L898", "(pointer float)", 1],
["L896", "float", true],
["L897", "float", true],
["L898", "float", true],
["L899", "float", true],
["L900", "(pointer float)", 1],
["L900", "float", true],
["L901", "uint64", true],
["L904", "uint64", true],
["L905", "uint64", true],
@@ -990,14 +990,14 @@
["L509", "(inline-array list-field)", 12],
["L523", "vector"],
["L524", "vector"],
["L649", "(pointer float)", 1],
["L650", "(pointer float)", 1],
["L651", "(pointer float)", 1],
["L652", "(pointer float)", 1],
["L653", "(pointer float)", 1],
["L654", "(pointer float)", 1],
["L655", "(pointer float)", 1],
["L656", "(pointer float)", 1],
["L649", "float", true],
["L650", "float", true],
["L651", "float", true],
["L652", "float", true],
["L653", "float", true],
["L654", "float", true],
["L655", "float", true],
["L656", "float", true],
["L657", "uint64", true],
["L658", "uint64", true],
["L663", "uint64", true],
@@ -1108,7 +1108,7 @@
["L765", "float", true],
["L766", "float", true],
["L767", "float", true],
["L768", "(pointer float)", 1],
["L768", "float", true],
["L769", "float", true],
["L770", "float", true],
["L771", "float", true],
@@ -1377,7 +1377,7 @@
["L412", "float", true],
["L413", "float", true],
["L414", "float", true],
["L415", "(pointer float)", 1],
["L415", "float", true],
["L416", "float", true],
["L417", "float", true],
["L418", "float", true],
@@ -1393,18 +1393,18 @@
["L428", "float", true],
["L429", "float", true],
["L430", "float", true],
["L431", "(pointer float)", 1],
["L431", "float", true],
["L432", "float", true],
["L433", "float", true],
["L434", "float", true],
["L435", "float", true],
["L436", "float", true],
["L437", "float", true],
["L438", "(pointer float)", 1],
["L438", "float", true],
["L439", "float", true],
["L440", "float", true],
["L441", "float", true],
["L442", "(pointer float)", 1],
["L442", "float", true],
["L443", "float", true],
["L444", "float", true],
["L445", "float", true],
@@ -1428,10 +1428,10 @@
["L463", "float", true],
["L464", "float", true],
["L465", "float", true],
["L466", "(pointer float)", 1],
["L466", "float", true],
["L467", "float", true],
["L468", "float", true],
["L469", "(pointer float)", 1],
["L469", "float", true],
["L470", "uint64", true],
["L498", "float", true],
["L499", "uint64", true],
@@ -1494,11 +1494,11 @@
["L731", "float", true],
["L732", "float", true],
["L733", "float", true],
["L734", "(pointer float)", 1],
["L735", "(pointer float)", 1],
["L736", "(pointer float)", 1],
["L737", "(pointer float)", 1],
["L738", "(pointer float)", 1],
["L734", "float", true],
["L735", "float", true],
["L736", "float", true],
["L737", "float", true],
["L738", "float", true],
["L739", "float", true],
["L740", "float", true],
["L741", "float", true],
@@ -1510,7 +1510,7 @@
["L747", "float", true],
["L748", "float", true],
["L749", "float", true],
["L750", "(pointer float)", 1],
["L750", "float", true],
["L751", "float", true],
["L752", "float", true],
["L753", "float", true],
@@ -1527,7 +1527,7 @@
["L764", "float", true],
["L765", "float", true],
["L766", "float", true],
["L767", "(pointer float)", 1],
["L767", "float", true],
["L768", "float", true],
["L769", "float", true],
["L770", "float", true],
@@ -1546,8 +1546,8 @@
["L783", "float", true],
["L784", "float", true],
["L785", "float", true],
["L786", "(pointer float)", 1],
["L787", "(pointer float)", 1],
["L786", "float", true],
["L787", "float", true],
["L788", "float", true],
["L789", "float", true],
["L790", "float", true],
@@ -1574,7 +1574,7 @@
["L811", "float", true],
["L812", "float", true],
["L813", "float", true],
["L814", "(pointer float)", 1],
["L814", "float", true],
["L815", "uint64", true]
],
@@ -1587,7 +1587,7 @@
["L201", "float", true],
["L202", "float", true],
["L203", "float", true],
["L204", "(pointer float)", 1],
["L204", "float", true],
["L205", "uint64", true],
["L206", "uint64", true],
["L207", "uint64", true],
@@ -1636,13 +1636,13 @@
["L367", "attack-info"],
["L370", "attack-info"],
["L371", "attack-info"],
["L384", "(pointer float)", 1],
["L384", "(pointer float)", 1],
["L385", "(pointer float)", 1],
["L386", "(pointer float)", 1],
["L387", "(pointer float)", 1],
["L388", "(pointer float)", 1],
["L389", "(pointer float)", 1],
["L384", "float", true],
["L384", "float", true],
["L385", "float", true],
["L386", "float", true],
["L387", "float", true],
["L388", "float", true],
["L389", "float", true],
["L390", "float", true],
["L391", "float", true],
["L392", "float", true],
@@ -1713,7 +1713,7 @@
["L457", "float", true],
["L458", "float", true],
["L459", "float", true],
["L460", "(pointer float)", 1],
["L460", "float", true],
["L461", "rgba", true],
["L462", "uint64", true],
["L463", "uint64", true],
@@ -1765,8 +1765,8 @@
["L438", "float", true],
["L439", "float", true],
["L440", "float", true],
["L441", "(pointer float)", 1],
["L442", "(pointer float)", 1],
["L441", "float", true],
["L442", "float", true],
["L443", "float", true],
["L444", "float", true],
["L445", "float", true],
@@ -1781,7 +1781,7 @@
["L454", "float", true],
["L455", "float", true],
["L456", "float", true],
["L457", "(pointer float)", 1],
["L457", "float", true],
["L458", "uint64", true],
["L459", "uint64", true],
["L460", "uint64", true],
@@ -1920,7 +1920,7 @@
["L735", "float", true],
["L736", "float", true],
["L737", "float", true],
["L738", "(pointer float)", 1],
["L738", "float", true],
["L739", "float", true],
["L740", "float", true],
["L741", "float", true],
decompiler/config/jak1_ntsc_black_label/type_casts.jsonc
+18 -5
View File
@@ -3606,8 +3606,8 @@
],
"v-slrp!": [
[19, "v1", "(pointer float)"],
[26, "v1", "(pointer float)"]
[54, "s3", "float"],
[65, "s3", "float"]
],
"clmf-pos-rot": [
@@ -4866,7 +4866,10 @@
"(code plant-boss-root-idle)": [[17, "v1", "art-joint-anim"]],
"(code plant-boss-eat)": [[274, "v1", "art-joint-anim"]],
"(code plant-boss-eat)": [
[22, "v1", "float"],
[274, "v1", "art-joint-anim"]
],
"(code plant-boss-vulnerable)": [
[149, "v1", "art-joint-anim"],
@@ -5417,12 +5420,14 @@
],
"target-hit-ground-anim": [
[55, "v1", "float"],
[79, "v1", "art-joint-anim"],
[312, "v1", "art-joint-anim"],
[389, "v1", "art-joint-anim"],
[441, "v1", "art-joint-anim"],
[520, "v1", "art-joint-anim"],
[578, "v1", "art-joint-anim"],
[660, "v1", "float"],
[675, "v1", "art-joint-anim"],
[736, "v1", "art-joint-anim"],
[846, "v1", "art-joint-anim"]
@@ -5435,17 +5440,21 @@
[234, "v1", "art-joint-anim"],
[298, "v1", "art-joint-anim"],
[389, "v1", "art-joint-anim"],
[503, "v1", "art-joint-anim"]
[503, "v1", "art-joint-anim"],
[626, "v1", "float"]
],
"(code target-walk)": [
[146, "v1", "art-joint-anim"],
[243, "v1", "art-joint-anim"]
[243, "v1", "art-joint-anim"],
[527, "v1", "float"],
[591, "v1", "float"]
],
"(code target-slide-down)": [[26, "v1", "art-joint-anim"]],
"(code target-jump-forward)": [[13, "v1", "art-joint-anim"]],
"(code target-jump)": [[127, "v1", "float"]],
"(code target-double-jump)": [[24, "v1", "art-joint-anim"]],
@@ -5464,6 +5473,10 @@
[168, "v1", "art-joint-anim"]
],
"(code target-attack-uppercut)": [
[39, "v1", "float"]
],
"mod-var-jump": [
[77, "f0", "float"],
[80, "f0", "float"],
goal_src/engine/game/game-info-h.gc
+20 -2
View File
@@ -86,11 +86,29 @@
(define-extern *load-state* load-state)
;; a game checkpoint
(defenum continue-flags
:type uint32
:bitfield #t
(contf00)
(contf01)
(warp)
(demo)
(intro)
(sage-intro)
(sage-demo-convo)
(title)
(contf08)
(contf09)
(game-start)
(sage-ecorocks)
)
;; static data for a continue point
(deftype continue-point (basic)
((name string :offset-assert 4)
(level symbol :offset-assert 8)
(flags uint32 :offset-assert 12)
(flags continue-flags :offset-assert 12)
(trans vector :inline :offset-assert 16)
(quat quaternion :inline :offset-assert 32)
(camera-trans vector :inline :offset-assert 48)
goal_src/engine/level/level-info.gc
+2350 -2049
View File
File diff suppressed because it is too large Load Diff
goal_src/engine/target/target-death.gc
+10 -10
View File
@@ -49,7 +49,7 @@
(set! (-> *load-boundary-target* 1 quad) (-> (target-pos 0) quad))
(set! (-> *load-boundary-target* 2 quad) (-> *load-boundary-target* 0 quad))
(set! (-> *load-boundary-target* 3 quad) (-> *load-boundary-target* 1 quad))
(when (zero? (logand (-> *game-info* current-continue flags) 176))
(when (zero? (logand (-> *game-info* current-continue flags) (continue-flags intro sage-intro title)))
(set! (-> *level* border?) (-> *level* play?))
(set! (-> *setting-control* default border-mode) (-> *level* play?))
)
@@ -119,7 +119,7 @@
(let ((v1-52 (lookup-level-info (-> arg0 level))))
(if (and v1-52
(= (-> *setting-control* current music) (-> v1-52 music-bank))
(zero? (logand (-> arg0 flags) 160))
(zero? (logand (-> arg0 flags) (continue-flags sage-intro title)))
)
(clear-pending-settings-from-process *setting-control* self 'music-volume)
)
@@ -196,13 +196,13 @@
(set! (-> *ACTOR-bank* birth-max) 1000)
(set-blackout-frames (seconds 0.1))
(cond
((logtest? (-> arg0 flags) 128)
((logtest? (-> arg0 flags) (continue-flags title))
(go target-title)
)
((logtest? (-> arg0 flags) 16)
((logtest? (-> arg0 flags) (continue-flags intro))
(start-sequence-a)
)
((logtest? (-> arg0 flags) 32)
((logtest? (-> arg0 flags) (continue-flags sage-intro))
(let ((s5-3 (entity-by-name "sage-23")))
(when s5-3
(set-blackout-frames (seconds 100))
@@ -217,7 +217,7 @@
)
)
)
((and (logtest? (-> arg0 flags) 2048)
((and (logtest? (-> arg0 flags) (continue-flags sage-ecorocks))
(or (= (get-task-status (game-task beach-ecorocks)) (task-status need-hint))
(= (get-task-status (game-task beach-ecorocks)) (task-status need-introduction))
)
@@ -237,10 +237,10 @@
)
)
)
((logtest? (-> arg0 flags) 8)
((logtest? (-> arg0 flags) (continue-flags demo))
(go target-demo)
)
((logtest? (-> arg0 flags) 64)
((logtest? (-> arg0 flags) (continue-flags sage-demo-convo))
(set-blackout-frames (seconds 1))
(let ((s5-5 (get-process *default-dead-pool* process #x4000)))
(when s5-5
@@ -283,7 +283,7 @@
)
)
)
((logtest? (-> arg0 flags) 4)
((logtest? (-> arg0 flags) (continue-flags warp))
(let ((s5-6 (new 'static 'vector)))
(cond
((string= (-> arg0 name) "village1-warp")
@@ -322,7 +322,7 @@
(set-continue! *game-info* "village1-hut")
)
((or (string= (-> arg0 name) "training-warp") (string= (-> arg0 name) "game-start"))
(if (logtest? (-> arg0 flags) 1024)
(if (logtest? (-> arg0 flags) (continue-flags game-start))
(close-specific-task! (game-task intro) (task-status need-resolution))
)
(set! (-> s5-6 quad) (-> (entity-by-name "training-part-1") extra trans quad))
goal_src/engine/target/target.gc
+219 -287
View File
File diff suppressed because it is too large Load Diff
goal_src/game.gp
+10 -6
View File
@@ -160,12 +160,12 @@
(defmacro copy-sbk-files (&rest files)
`(begin ,@(apply (lambda (x) `(set! *all-sbk* (cons (copy-iso-file ,x "SBK/" ".SBK") *all-sbk*))) files)))
;; Files not yet added in here:
;; - DANGER.MUS
;; - TWEAKVAL.MUS
(define *all-mus* '())
(defmacro copy-mus-files (&rest files)
`(begin ,@(apply (lambda (x) `(set! *all-mus* (cons (copy-iso-file ,x "MUS/" ".MUS") *all-mus*))) files)))
(define *all-vag* '())
(defmacro copy-vag-files (&rest files)
`(begin ,@(apply (lambda (x) `(set! *all-vag* (cons (copy-iso-file "VAGWAD" "VAG/" (string-append "." ,x)) *all-vag*))) files)))
(defmacro group (name &rest stuff)
`(defstep :in ""
@@ -356,7 +356,6 @@
"out/iso/GAME.CGO"
)
;;;;;;;;;;;;;;;;;;;;;
;; hub1 Group
;;;;;;;;;;;;;;;;;;;;;
@@ -1902,6 +1901,9 @@
"ticky.gc"
)
(copy-mus-files "DANGER")
(copy-vag-files "ENG" "FRE" "GER" "ITA" "SPA" "JAP")
;;;;;;;;;;;;;;;;;;;;;
;; ISO Group
@@ -1912,11 +1914,13 @@
`("out/iso/0COMMON.TXT"
"out/iso/0SUBTIT.TXT"
"out/iso/TWEAKVAL.MUS"
,@(reverse *all-cgos*)
"out/iso/VAGDIR.AYB"
,@(reverse *all-vis*)
,@(reverse *all-str*)
,@(reverse *all-sbk*)
,@(reverse *all-mus*))
,@(reverse *all-mus*)
,@(reverse *all-vag*)
,@(reverse *all-cgos*))
)
test/decompiler/reference/engine/camera/cam-layout_REF.gc
Generated Vendored
+107 -132
View File
@@ -362,9 +362,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)
@@ -416,7 +416,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)
)
)
@@ -446,7 +446,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~%")
@@ -535,20 +535,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))
)
)
@@ -586,36 +586,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))
@@ -624,7 +603,7 @@
(new 'static 'vector :z 1024.0)
gp-0
(-> arg1 color)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@@ -635,17 +614,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))
)
@@ -658,7 +631,7 @@
(new 'static 'vector :z 1024.0)
gp-0
(-> arg1 color)
(-> (new 'static 'array float 1 4096.0) 0)
(meters 1.0)
)
)
)
@@ -680,8 +653,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)
)
)
@@ -695,7 +668,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)
)
)
)
@@ -708,7 +681,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)
)
)
)
@@ -721,7 +694,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)
)
)
)
@@ -735,7 +708,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
@@ -757,11 +730,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))
)
@@ -772,7 +745,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)
)
)
)
@@ -787,24 +760,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))
)
@@ -815,20 +788,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))
@@ -852,11 +825,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)))
@@ -876,7 +849,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)
)
)
)
@@ -892,12 +865,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)
)
)
@@ -958,10 +931,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)
)
)
)
@@ -969,27 +942,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)
)
)
)
@@ -998,9 +971,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)
@@ -1012,9 +985,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)
)
)
@@ -1024,10 +997,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)
)
)
)
@@ -1303,11 +1276,13 @@
)
;; definition for function fov->maya
;; INFO: Return type mismatch number vs float.
(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)))
)
)
)
;; definition for function cam-layout-save-cam-rot
@@ -1548,7 +1523,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*
)
@@ -1562,7 +1537,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*
)
@@ -1601,7 +1576,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*
)
@@ -1615,7 +1590,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*
)
@@ -1819,7 +1794,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*
)
@@ -1833,7 +1808,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*
)
@@ -1844,7 +1819,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)
@@ -1872,7 +1847,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*
)
@@ -1886,7 +1861,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*
)
@@ -1920,7 +1895,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*
)
@@ -1934,7 +1909,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*
)
@@ -2002,7 +1977,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*
)
@@ -2047,7 +2022,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*
)
@@ -2061,7 +2036,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*
)
@@ -2092,7 +2067,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*
)
@@ -2106,7 +2081,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*
)
@@ -2137,7 +2112,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*
)
@@ -2151,7 +2126,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*
)
@@ -2182,7 +2157,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*
)
@@ -2196,7 +2171,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*
)
@@ -2227,7 +2202,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*
)
@@ -2241,7 +2216,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*
)
@@ -2272,7 +2247,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*
)
@@ -2286,7 +2261,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*
)
@@ -2317,7 +2292,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*
)
@@ -2330,7 +2305,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*
)
@@ -2681,7 +2656,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*
)
@@ -2689,15 +2664,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
)
)
@@ -2716,7 +2691,7 @@
;; definition for function clmf-cam-meters
(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
@@ -2730,7 +2705,7 @@
;; definition for function clmf-cam-deg
(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
)
@@ -2751,7 +2726,7 @@
;; definition for function clmf-cam-float
(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
)
test/decompiler/reference/engine/debug/anim-tester_REF.gc
Generated Vendored
+33 -50
View File
@@ -504,10 +504,10 @@
;; INFO: Return type mismatch object vs none.
(defun anim-tester-num-print ((arg0 basic) (arg1 float))
(cond
((= arg1 (-> (new 'static 'array float 1 -2.0) 0))
((= arg1 -2.0)
(format arg0 "max")
)
((= arg1 (-> (new 'static 'array float 1 -1.0) 0))
((= arg1 -1.0)
(format arg0 "min")
)
(else
@@ -700,8 +700,8 @@
(set! (-> (the-as anim-test-seq-item v0-0) privname) arg1)
(set! (-> (the-as anim-test-seq-item v0-0) speed) 100)
(set! (-> (the-as anim-test-seq-item v0-0) blend) 0)
(set! (-> (the-as anim-test-seq-item v0-0) first-frame) (-> (new 'static 'array float 1 -1.0) 0))
(set! (-> (the-as anim-test-seq-item v0-0) last-frame) (-> (new 'static 'array float 1 -2.0) 0))
(set! (-> (the-as anim-test-seq-item v0-0) first-frame) -1.0)
(set! (-> (the-as anim-test-seq-item v0-0) last-frame) -2.0)
(the-as anim-test-seq-item v0-0)
)
)
@@ -773,7 +773,7 @@
#t
" item ~A SP=~f BL=~d FIRST="
(-> s3-0 privname)
(* (-> (new 'static 'array float 1 0.01) 0) (the float (-> s3-0 speed)))
(* 0.01 (the float (-> s3-0 speed)))
(-> s3-0 blend)
)
(anim-tester-num-print #t (-> s3-0 first-frame))
@@ -812,7 +812,7 @@
)
(format #t "-------------~%")
(format #t "current-obj=~A~%" (-> obj current-obj))
(format #t "speed=~f~%" (* (-> (new 'static 'array float 1 0.01) 0) (the float (-> obj speed))))
(format #t "speed=~f~%" (* 0.01 (the float (-> obj speed))))
(format #t "--flags:--~%")
(the-as anim-tester (format #t " CONNECTED: ~A~%" (if (logtest? (-> obj flags) (anim-tester-flags fanimt0))
"TRUE"
@@ -960,10 +960,8 @@
(defbehavior anim-tester-update-anim-info anim-tester ((arg0 anim-test-seq-item))
(set! (-> self anim-first) (-> arg0 first-frame))
(set! (-> self anim-last) (-> arg0 last-frame))
(set! (-> self anim-gspeed) (* (-> (new 'static 'array float 1 0.01) 0) (the float (-> self speed))))
(set! (-> self anim-speed)
(* (-> (new 'static 'array float 1 0.01) 0) (-> self anim-gspeed) (the float (-> arg0 speed)))
)
(set! (-> self anim-gspeed) (* 0.01 (the float (-> self speed))))
(set! (-> self anim-speed) (* 0.01 (-> self anim-gspeed) (the float (-> arg0 speed))))
(when (< (-> self anim-speed) 0.0)
(set! (-> self anim-first) (-> arg0 last-frame))
(set! (-> self anim-last) (-> arg0 first-frame))
@@ -1010,8 +1008,8 @@
(set! (-> self draw sink-group) (-> *level* level-default foreground-sink-group 1))
(set! (-> self draw lod-set lod 0 geo) a1-4)
)
(set! (-> self draw lod-set lod 0 dist) (-> (new 'static 'array float 1 4095996000.0) 0))
(set! (-> self draw bounds w) (-> (new 'static 'array float 1 40960.0) 0))
(set! (-> self draw lod-set lod 0 dist) 4095996000.0)
(set! (-> self draw bounds w) 40960.0)
(set! (-> self draw data-format) (the-as uint 1))
(let ((v1-16 (-> (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0) quad)))
(set! (-> self draw color-mult quad) v1-16)
@@ -1048,13 +1046,13 @@
(gp-0 (-> s3-0 base))
)
(cond
((= arg1 (-> (new 'static 'array float 1 -1.0) 0))
((= arg1 -1.0)
(let ((s2-1 draw-string-adv))
(format (clear *temp-string*) "~Smin" arg0)
(s2-1 *temp-string* s3-0 arg3)
)
)
((= arg1 (-> (new 'static 'array float 1 -2.0) 0))
((= arg1 -2.0)
(let ((s2-2 draw-string-adv))
(format (clear *temp-string*) "~Smax" arg0)
(s2-2 *temp-string* s3-0 arg3)
@@ -1630,36 +1628,37 @@
)
;; definition for function anim-tester-adjust-frame
;; INFO: Return type mismatch number vs float.
(defun anim-tester-adjust-frame ((arg0 float) (arg1 float))
(cond
((cpad-hold? 0 down)
(cond
((= arg0 (-> (new 'static 'array float 1 -2.0) 0))
(set! arg0 (+ (-> (new 'static 'array float 1 -1.0) 0) arg1))
((= arg0 -2.0)
(set! arg0 (+ -1.0 arg1))
)
((!= arg0 (-> (new 'static 'array float 1 -1.0) 0))
(set! arg0 (+ (-> (new 'static 'array float 1 -1.0) 0) arg0))
((!= arg0 -1.0)
(set! arg0 (+ -1.0 arg0))
(if (< arg0 0.0)
(set! arg0 (-> (new 'static 'array float 1 -1.0) 0))
(set! arg0 (the-as float -1.0))
)
)
)
)
((cpad-hold? 0 up)
(cond
((= arg0 (-> (new 'static 'array float 1 -1.0) 0))
(set! arg0 (-> (new 'static 'array float 1 0.0) 0))
((= arg0 -1.0)
(set! arg0 (the-as float 0.0))
)
((!= arg0 (-> (new 'static 'array float 1 -2.0) 0))
(set! arg0 (+ (-> (new 'static 'array float 1 1.0) 0) arg0))
((!= arg0 -2.0)
(set! arg0 (+ 1.0 arg0))
(if (>= arg0 arg1)
(set! arg0 (-> (new 'static 'array float 1 -2.0) 0))
(set! arg0 (the-as float -2.0))
)
)
)
)
)
arg0
(the-as float arg0)
)
;; definition for function anim-tester-pick-item-setup
@@ -1751,7 +1750,7 @@
*font-default-matrix*
(-> arg1 xpos)
(-> arg1 ypos)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index))
15
12
@@ -2592,13 +2591,13 @@
(ja-channel-set! 1)
)
(cond
((= (-> self anim-first) (-> (new 'static 'array float 1 -1.0) 0))
((= (-> self anim-first) -1.0)
(let ((s3-0 (-> self skel root-channel 0)))
(joint-control-channel-group-eval! s3-0 s4-1 num-func-identity)
(set! (-> s3-0 frame-num) 0.0)
)
)
((= (-> self anim-first) (-> (new 'static 'array float 1 -2.0) 0))
((= (-> self anim-first) -2.0)
(let ((s3-1 (-> self skel root-channel 0)))
(joint-control-channel-group-eval! s3-1 s4-1 num-func-identity)
(set! (-> s3-1 frame-num) (the float (+ (-> s4-1 data 0 length) -1)))
@@ -2615,13 +2614,7 @@
(while (and (!= (-> self skel root-channel 0) (-> self skel channel)) (logtest? (-> s5-1 flags) 2))
(when (logtest? (-> self flags) (anim-tester-flags fanimt5))
(TODO-RENAME-9 (-> self align))
(TODO-RENAME-10
(-> self align)
31
(-> (new 'static 'array float 1 1.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
)
(TODO-RENAME-10 (-> self align) 31 (the-as float 1.0) (the-as float 1.0) (the-as float 1.0))
)
(suspend)
)
@@ -2629,21 +2622,15 @@
(until (ja-done? 0)
(when (logtest? (-> self flags) (anim-tester-flags fanimt5))
(TODO-RENAME-9 (-> self align))
(TODO-RENAME-10
(-> self align)
31
(-> (new 'static 'array float 1 1.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
)
(TODO-RENAME-10 (-> self align) 31 (the-as float 1.0) (the-as float 1.0) (the-as float 1.0))
)
(suspend)
(anim-tester-update-anim-info s5-1)
(let ((v1-73 (= (-> self anim-last) (-> (new 'static 'array float 1 -2.0) 0))))
(let ((v1-73 (= (-> self anim-last) -2.0)))
(cond
((or v1-73 (>= (-> self anim-last) (-> self anim-first)))
(cond
((= (-> self anim-last) (-> (new 'static 'array float 1 -2.0) 0))
((= (-> self anim-last) -2.0)
(let ((a0-42 (-> self skel root-channel 0)))
(set! (-> a0-42 param 0) (the float (+ (-> a0-42 frame-group data 0 length) -1)))
(set! (-> a0-42 param 1) (-> self anim-speed))
@@ -2659,7 +2646,7 @@
)
)
)
((= (-> self anim-last) (-> (new 'static 'array float 1 -1.0) 0))
((= (-> self anim-last) -1.0)
(let ((a0-44 (-> self skel root-channel 0)))
(set! (-> a0-44 param 0) 0.0)
(set! (-> a0-44 param 1) (-> self anim-speed))
@@ -2719,11 +2706,7 @@
(set! (-> self list-con list-owner) (the-as uint self))
(quaternion-identity! (-> self root quat))
(vector-identity! (-> self root scale))
(position-in-front-of-camera!
(-> self root trans)
(-> (new 'static 'array float 1 40960.0) 0)
(-> (new 'static 'array float 1 4096.0) 0)
)
(position-in-front-of-camera! (-> self root trans) (the-as float 40960.0) (the-as float 4096.0))
(set! (-> self event-hook) anim-tester-standard-event-handler)
(anim-tester-reset)
(go anim-tester-process)
test/decompiler/reference/engine/game/game-info-h_REF.gc
Generated Vendored
+13 -13
View File
@@ -114,19 +114,19 @@
;; definition of type continue-point
(deftype continue-point (basic)
((name string :offset-assert 4)
(level symbol :offset-assert 8)
(flags uint32 :offset-assert 12)
(trans vector :inline :offset-assert 16)
(quat quaternion :inline :offset-assert 32)
(camera-trans vector :inline :offset-assert 48)
(camera-rot float 9 :offset-assert 64)
(load-commands pair :offset-assert 100)
(vis-nick symbol :offset-assert 104)
(lev0 symbol :offset-assert 108)
(disp0 symbol :offset-assert 112)
(lev1 symbol :offset-assert 116)
(disp1 symbol :offset-assert 120)
((name string :offset-assert 4)
(level symbol :offset-assert 8)
(flags continue-flags :offset-assert 12)
(trans vector :inline :offset-assert 16)
(quat quaternion :inline :offset-assert 32)
(camera-trans vector :inline :offset-assert 48)
(camera-rot float 9 :offset-assert 64)
(load-commands pair :offset-assert 100)
(vis-nick symbol :offset-assert 104)
(lev0 symbol :offset-assert 108)
(disp0 symbol :offset-assert 112)
(lev1 symbol :offset-assert 116)
(disp1 symbol :offset-assert 120)
)
:method-count-assert 10
:size-assert #x7c
test/decompiler/reference/engine/level/level-info_REF.gc
Generated Vendored
+11 -11
View File
@@ -51,7 +51,7 @@
(new 'static 'continue-point
:name "training-warp"
:level 'training
:flags #x4
:flags (continue-flags warp)
:trans
(new 'static 'vector :x -5383524.0 :y 28019.098 :z 4360302.0 :w 1.0)
:quat
@@ -81,7 +81,7 @@
(new 'static 'continue-point
:name "game-start"
:level 'training
:flags #x404
:flags (continue-flags warp game-start)
:trans
(new 'static 'vector :x -5393740.5 :y 28259.533 :z 4360945.5 :w 1.0)
:quat
@@ -162,7 +162,7 @@
(new 'static 'continue-point
:name "village1-intro"
:level 'village1
:flags #x24
:flags (continue-flags warp sage-intro)
:trans
(new 'static 'vector :x -518468.8 :y 189424.03 :z 868568.7 :w 1.0)
:quat
@@ -181,7 +181,7 @@
(new 'static 'continue-point
:name "village1-warp"
:level 'village1
:flags #x804
:flags (continue-flags warp sage-ecorocks)
:trans
(new 'static 'vector :x -518468.8 :y 189424.03 :z 868568.7 :w 1.0)
:quat
@@ -200,7 +200,7 @@
(new 'static 'continue-point
:name "village1-demo-convo"
:level 'village1
:flags #x40
:flags (continue-flags sage-demo-convo)
:trans
(new 'static 'vector :x -542529.1 :y 189424.03 :z 847101.94 :w 1.0)
:quat
@@ -219,7 +219,7 @@
(new 'static 'continue-point
:name "intro-start"
:level 'village1
:flags #x10
:flags (continue-flags intro)
:trans
(new 'static 'vector :x 164316.78 :y 15128.576 :z 3390588.0 :w 1.0)
:quat
@@ -710,7 +710,7 @@
(new 'static 'continue-point
:name "village2-warp"
:level 'village2
:flags #x4
:flags (continue-flags warp)
:trans
(new 'static 'vector :x 1592492.9 :y 91648.0 :z -6328677.0 :w 1.0)
:quat
@@ -1312,7 +1312,7 @@
(new 'static 'continue-point
:name "village3-warp"
:level 'village3
:flags #x4
:flags (continue-flags warp)
:trans
(new 'static 'vector :x 4549776.0 :y 215375.88 :z -14285922.0 :w 1.0)
:quat
@@ -1920,7 +1920,7 @@
(new 'static 'continue-point
:name "citadel-warp"
:level 'citadel
:flags #x4
:flags (continue-flags warp)
:trans
(new 'static 'vector :x 11454895.0 :y -161791.6 :z -18204690.0 :w 1.0)
:quat
@@ -2195,7 +2195,7 @@
'((new 'static 'continue-point
:name "demo-start"
:level 'demo
:flags #x8
:flags (continue-flags demo)
:trans
(new 'static 'vector :x 66396.16 :y 29782.016 :z -919973.5 :w 1.0)
:quat (new 'static 'quaternion :w 1.0)
@@ -2243,7 +2243,7 @@
'((new 'static 'continue-point
:name "title-start"
:level 'title
:flags #x80
:flags (continue-flags title)
:trans
(new 'static 'vector :x -635598.9 :y 222551.66 :z 710496.25 :w 1.0)
:quat
test/decompiler/reference/engine/target/target-death_REF.gc
Generated Vendored
+10 -10
View File
@@ -48,7 +48,7 @@
(set! (-> *load-boundary-target* 1 quad) (-> (target-pos 0) quad))
(set! (-> *load-boundary-target* 2 quad) (-> *load-boundary-target* 0 quad))
(set! (-> *load-boundary-target* 3 quad) (-> *load-boundary-target* 1 quad))
(when (zero? (logand (-> *game-info* current-continue flags) 176))
(when (zero? (logand (-> *game-info* current-continue flags) (continue-flags intro sage-intro title)))
(set! (-> *level* border?) (-> *level* play?))
(set! (-> *setting-control* default border-mode) (-> *level* play?))
)
@@ -118,7 +118,7 @@
(let ((v1-52 (lookup-level-info (-> arg0 level))))
(if (and v1-52
(= (-> *setting-control* current music) (-> v1-52 music-bank))
(zero? (logand (-> arg0 flags) 160))
(zero? (logand (-> arg0 flags) (continue-flags sage-intro title)))
)
(clear-pending-settings-from-process *setting-control* self 'music-volume)
)
@@ -195,13 +195,13 @@
(set! (-> *ACTOR-bank* birth-max) 1000)
(set-blackout-frames (seconds 0.1))
(cond
((logtest? (-> arg0 flags) 128)
((logtest? (-> arg0 flags) (continue-flags title))
(go target-title)
)
((logtest? (-> arg0 flags) 16)
((logtest? (-> arg0 flags) (continue-flags intro))
(start-sequence-a)
)
((logtest? (-> arg0 flags) 32)
((logtest? (-> arg0 flags) (continue-flags sage-intro))
(let ((s5-3 (entity-by-name "sage-23")))
(when s5-3
(set-blackout-frames (seconds 100))
@@ -216,7 +216,7 @@
)
)
)
((and (logtest? (-> arg0 flags) 2048)
((and (logtest? (-> arg0 flags) (continue-flags sage-ecorocks))
(or (= (get-task-status (game-task beach-ecorocks)) (task-status need-hint))
(= (get-task-status (game-task beach-ecorocks)) (task-status need-introduction))
)
@@ -236,10 +236,10 @@
)
)
)
((logtest? (-> arg0 flags) 8)
((logtest? (-> arg0 flags) (continue-flags demo))
(go target-demo)
)
((logtest? (-> arg0 flags) 64)
((logtest? (-> arg0 flags) (continue-flags sage-demo-convo))
(set-blackout-frames (seconds 1))
(let ((s5-5 (get-process *default-dead-pool* process #x4000)))
(when s5-5
@@ -282,7 +282,7 @@
)
)
)
((logtest? (-> arg0 flags) 4)
((logtest? (-> arg0 flags) (continue-flags warp))
(let ((s5-6 (new 'static 'vector)))
(cond
((string= (-> arg0 name) "village1-warp")
@@ -321,7 +321,7 @@
(set-continue! *game-info* "village1-hut")
)
((or (string= (-> arg0 name) "training-warp") (string= (-> arg0 name) "game-start"))
(if (logtest? (-> arg0 flags) 1024)
(if (logtest? (-> arg0 flags) (continue-flags game-start))
(close-specific-task! (game-task intro) (task-status need-resolution))
)
(set! (-> s5-6 quad) (-> (entity-by-name "training-part-1") extra trans quad))
test/decompiler/reference/engine/target/target-handler_REF.gc
Generated Vendored
+2 -2
View File
@@ -42,7 +42,7 @@
(if (!= (pickup-collectable!
(-> self fact-info-target)
(the-as pickup-type s4-0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as handle #f)
)
(pickup-collectable! (-> self fact-info-target) (the-as pickup-type s4-0) f28-0 (process->handle arg0))
@@ -115,7 +115,7 @@
(pickup-collectable!
(-> self fact-info-target)
(the-as pickup-type (-> arg3 param 1))
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as handle #f)
)
)
test/decompiler/reference/engine/target/target2_REF.gc
Generated Vendored
+1 -1
View File
@@ -3571,7 +3571,7 @@
)
arg2
arg3
(-> (new 'static 'array float 1 143360.0) 0)
143360.0
)
(-> s3-1 ppointer)
)
test/decompiler/reference/engine/target/target_REF.gc
Generated Vendored
+219 -287
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/finalboss/robotboss_REF.gc
Generated Vendored
+1 -1
View File
@@ -2227,7 +2227,7 @@
(vector-! s5-0 (-> self entity extra trans) s5-0)
(dotimes (v1-53 6)
(vector+! (the-as vector (-> arg0 info v1-53)) (the-as vector (-> arg0 info v1-53)) s5-0)
(set! (-> arg0 info v1-53 dest y) (+ (-> (new 'static 'array float 1 2048.0) 0) (-> arg0 info v1-53 dest y)))
(set! (-> arg0 info v1-53 dest y) (+ 2048.0 (-> arg0 info v1-53 dest y)))
)
)
(none)
test/decompiler/reference/levels/flut_common/target-flut_REF.gc
Generated Vendored
+16 -31
View File
@@ -435,7 +435,7 @@
(('swim)
(let* ((gp-1 (-> self control last-known-safe-ground))
(s3-1 (vector-! (new 'stack-no-clear 'vector) gp-1 (-> self control trans)))
(f30-1 (fmax (-> (new 'static 'array float 1 8192.0) 0) (fmin 40960.0 (vector-xz-length s3-1))))
(f30-1 (fmax 8192.0 (fmin 40960.0 (vector-xz-length s3-1))))
)
(vector-xz-normalize! s3-1 f30-1)
(let ((s5-0 (new 'stack-no-clear 'event-message-block)))
@@ -445,15 +445,10 @@
(set! (-> s5-0 param 0) (the-as uint #f))
(let ((s4-0 (new 'static 'attack-info :mask #x882)))
(set! (-> s4-0 vector quad) (-> s3-1 quad))
(set! (-> s4-0 shove-up) (+ (lerp-scale
(the-as float 4096.0)
(-> (new 'static 'array float 1 16384.0) 0)
f30-1
(the-as float 4096.0)
(the-as float 40960.0)
)
(fmax 0.0 (- (-> gp-1 y) (-> self control trans y)))
)
(set! (-> s4-0 shove-up)
(+ (lerp-scale (the-as float 4096.0) (the-as float 16384.0) f30-1 (the-as float 4096.0) (the-as float 40960.0))
(fmax 0.0 (- (-> gp-1 y) (-> self control trans y)))
)
)
(set! (-> s4-0 angle) 'up)
(set! (-> s5-0 param 1) (the-as uint s4-0))
@@ -549,7 +544,7 @@
(set! (-> self state-flags) (logand -1025 (-> self state-flags)))
(set! (-> self control dynam gravity-max) (-> self control unknown-dynamics00 gravity-max))
(set! (-> self control dynam gravity-length) (-> self control unknown-dynamics00 gravity-length))
(target-collide-set! 'normal (-> (new 'static 'array float 1 0.0) 0))
(target-collide-set! 'normal (the-as float 0.0))
(set! (-> self control reaction) target-collision-reaction)
(set! (-> self control unknown-vector12 quad) (the-as uint128 0))
(clear-pending-settings-from-process *setting-control* self 'sound-flava)
@@ -574,7 +569,7 @@
(set! (-> self flut entity) (-> v1-11 entity))
)
)
(target-collide-set! 'flut (-> (new 'static 'array float 1 0.0) 0))
(target-collide-set! 'flut (the-as float 0.0))
(set! (-> self control transv quad) (the-as uint128 0))
(set! (-> self control unknown-float01) 0.0)
(logior! (-> self control root-prim prim-core action) (collide-action ca-14))
@@ -634,12 +629,7 @@
)
)
(send-event (ppointer->process (-> self manipy)) 'anim-mode 'loop)
(send-event
(ppointer->process (-> self manipy))
'art-joint-anim
"flut-get-on"
(-> (new 'static 'array float 1 0.0) 0)
)
(send-event (ppointer->process (-> self manipy)) 'art-joint-anim "flut-get-on" 0.0)
(send-event (ppointer->process (-> self manipy)) 'blend-shape #t)
(send-event
(ppointer->process (-> self manipy))
@@ -880,11 +870,11 @@
(the-as float (-> self control unknown-uint20))
(* 4.0 (the-as float (-> self control unknown-uint20)))
f30-1
(-> (new 'static 'array float 1 8192.0) 0)
(the-as float 8192.0)
(the-as float 21845.334)
)
)
(if (and (= (-> self control surf name) '*tar-surface*) (< (-> (new 'static 'array float 1 8192.0) 0) f30-1))
(if (and (= (-> self control surf name) '*tar-surface*) (< 8192.0 f30-1))
(set! (-> self control unknown-surface00 target-speed) (seek
(-> self control unknown-surface00 target-speed)
(the-as float 4096.0)
@@ -990,7 +980,7 @@
(while #t
(suspend)
(let ((f0-13 (lerp-scale
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as float 1.0)
(-> self control unknown-float01)
(the-as float 49152.0)
@@ -1358,7 +1348,7 @@
)
)
)
(while (< (-> (new 'static 'array float 1 8192.0) 0) (target-height-above-ground))
(while (< 8192.0 (target-height-above-ground))
(suspend)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 0 3 (seconds 0.1))
(let ((a0-13 (-> self skel root-channel 0)))
@@ -1743,12 +1733,7 @@
)
(!= (-> self control unknown-uint31) 1)
)
(target-shoved
(-> (new 'static 'array float 1 8192.0) 0)
(-> *TARGET-bank* smack-surface-height)
(the-as process #f)
target-flut-hit
)
(target-shoved (meters 2.0) (-> *TARGET-bank* smack-surface-height) (the-as process #f) target-flut-hit)
)
(if (and (logtest? (-> self water flags) 512)
(zero? (mod (- (-> *display* base-frame-counter) (-> self state-time)) 21))
@@ -1821,7 +1806,7 @@
(the-as uint 12)
)
)
(set-forward-vel (-> (new 'static 'array float 1 0.0) 0))
(set-forward-vel (the-as float 0.0))
(set! f30-0 0.0)
)
((ja-done? 0)
@@ -2364,7 +2349,7 @@
(logior! (-> self state-flags) #x8000)
(set! (-> self neck flex-blend) 0.0)
(target-timed-invulnerable-off self)
(push-setting! *setting-control* self 'process-mask 'set (-> (new 'static 'array float 1 0.0) 0) #x14a0000)
(push-setting! *setting-control* self 'process-mask 'set 0.0 #x14a0000)
(copy-settings-from-target! *setting-control*)
(set! (-> self control transv quad) (the-as uint128 0))
(cond
@@ -2579,7 +2564,7 @@
(-> target-flut-start exit)
:code
(behavior ((arg0 handle))
(set-forward-vel (-> (new 'static 'array float 1 0.0) 0))
(set-forward-vel (the-as float 0.0))
(let ((s5-0 0))
(while (zero? (logand (-> self control status) 1))
(target-flut-falling-anim-trans)
test/decompiler/reference/levels/jungleb/plant-boss_REF.gc
Generated Vendored
+147 -176
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/ogre/ogreboss_REF.gc
Generated Vendored
+91 -142
View File
@@ -213,14 +213,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)))
@@ -233,9 +226,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)
@@ -249,15 +242,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)
@@ -321,7 +308,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*
@@ -340,7 +327,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)
@@ -362,7 +349,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)
)
)
@@ -496,19 +483,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)
)
@@ -626,7 +607,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
)
@@ -658,7 +639,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!
@@ -668,17 +649,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))
@@ -711,14 +692,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)))
@@ -742,26 +716,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!)
)
)
@@ -781,19 +755,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)
)
@@ -801,7 +775,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!)
)
)
@@ -859,7 +833,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!)
)
@@ -873,7 +847,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!)
)
)
@@ -898,7 +872,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!)
)
@@ -906,7 +880,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!)
)
)
@@ -958,7 +932,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!)
)
@@ -966,7 +940,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!)
)
)
@@ -1046,21 +1020,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))
@@ -1123,7 +1091,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))
@@ -1133,9 +1101,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)))
@@ -1156,7 +1122,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)
@@ -1180,7 +1146,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)
@@ -1219,7 +1185,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
@@ -1228,7 +1194,7 @@
20480.0
)
(else
(-> (new 'static 'array float 1 0.0) 0)
0.0
)
)
)
@@ -1237,13 +1203,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)
)
@@ -1383,7 +1343,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!)
)
@@ -1391,7 +1351,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!)
)
)
@@ -1403,7 +1363,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!)
)
@@ -1411,7 +1371,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!)
)
)
@@ -1425,7 +1385,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!)
)
@@ -1433,7 +1393,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!)
)
)
@@ -1444,7 +1404,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!)
)
@@ -1452,7 +1412,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!)
)
)
@@ -1464,7 +1424,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!)
)
@@ -1472,7 +1432,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!)
)
)
@@ -1566,7 +1526,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!)
)
@@ -1574,7 +1534,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!)
)
)
@@ -1583,7 +1543,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)
)
@@ -1664,12 +1624,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)
@@ -1963,7 +1918,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)
@@ -1976,7 +1931,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!)
)
@@ -1984,7 +1939,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!)
)
)
@@ -1996,7 +1951,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!)
)
@@ -2004,14 +1959,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))))
@@ -2038,10 +1993,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)
)
)
@@ -2050,7 +2005,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)
@@ -2102,14 +2057,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!)
)
@@ -2117,7 +2072,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!)
)
)
@@ -2193,11 +2148,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
@@ -2347,7 +2299,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)
@@ -2473,7 +2425,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)
)
)
@@ -2489,11 +2441,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
)
@@ -2688,7 +2637,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!)
)
@@ -2696,7 +2645,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!)
)
)
@@ -2706,7 +2655,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!)
)
@@ -2714,11 +2663,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)
)
@@ -2734,8 +2683,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)
@@ -2745,7 +2694,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!)
)
@@ -2753,7 +2702,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!)
)
)
@@ -2808,7 +2757,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!)
)
@@ -2817,7 +2766,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!)
)
)
@@ -2898,9 +2847,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)
@@ -2987,7 +2936,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)
@@ -2996,7 +2945,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))
@@ -3009,8 +2958,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)