mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-07-09 23:01:56 -04:00
Code Issues Packages Projects Releases Wiki Activity

d/jak2: fix elevator issues and cleanup script-context new method (#2304)

Browse Source 
This fixes the issue where elevators leave you behind (stack structure
related)

At the same time I cleaned up some things I found along the way, most
notably changing `script-context`'s `basic` field to `object` as
non-basics use this method as well.

Fixes #2305
This commit is contained in:
Tyler Wilding
2023-03-09 20:03:43 -05:00
committed by GitHub
parent 2f6bfd2e64
commit 021bae08ec
95 changed files with 493 additions and 566 deletions
Download Patch File Download Diff File Expand all files Collapse all files
decompiler/config/jak2/all-types.gc
+6 -6
View File
@@ -15383,7 +15383,7 @@
(deftype script-context (structure)
((load-state load-state :offset-assert 0)
(key basic :offset-assert 4)
(key object :offset-assert 4)
(process process :offset-assert 8)
(trans vector :offset-assert 12)
(side-effect? symbol :offset-assert 16)
@@ -15397,7 +15397,7 @@
:size-assert #xa0
:flag-assert #xc000000a0
(:methods
(new (symbol type basic process vector) _type_ 0)
(new (symbol type object process vector) _type_ 0)
(eval! (_type_ pair) object 9)
(script-context-method-10 (_type_ object pair) object 10)
(script-context-method-11 (_type_ pair pair symbol) symbol 11)
@@ -33866,8 +33866,8 @@
(ride-timer time-frame :offset-assert 336)
(sticky-player-last-ride-time time-frame :offset-assert 344)
(elevator-status elevator-status :offset-assert 352)
(on-activate basic :offset-assert 360)
(on-deactivate basic :offset-assert 364)
(on-activate pair :offset-assert 360)
(on-deactivate pair :offset-assert 364)
)
:method-count-assert 49
:size-assert #x170
@@ -33886,7 +33886,7 @@
(_type_ int int) none 39)
(activate-elevator
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(_type_) none 40)
(_type_) object 40)
(init-defaults!
"Initializes default settings related to the [[elevator]]:
- `elevator-xz-threshold`
@@ -33923,7 +33923,7 @@
@param arg2 TODO
@param arg3 TODO
@returns [[#t]] if a point in the path was found"
(_type_ vector path-step symbol symbol) symbol 47)
(_type_ vector (pointer float) symbol symbol) symbol 47)
(elevator-method-48 "TODO - collision related" (_type_) none 48)
)
)
decompiler/config/jak2/ntsc_v1/stack_structures.jsonc
-4
View File
@@ -887,10 +887,6 @@
"blocking-plane-spawn": [[16, ["inline-array", "vector", 2]]],
// stack guesser can't handle inline arrays
"(enter active elec-gate)": [[176, ["inline-array", "vector", 2]]],
"(method 46 elevator)": [
// bad stack guess (method type was a path-step)
[16, "path-step"]
],
"(method 10 nav-node)": [[16, "vector"]],
"(method 9 nav-graph)": [[16, "matrix"]],
"(method 10 xz-height-map)": [[16, "matrix"]],
goal_src/goal-lib.gc
+9
View File
@@ -968,6 +968,15 @@
`(sqrtf-no-fabs (fabs ,x))
)
(defmacro basically-zero? (val)
"Checks if the value is within 0.000000000000000001 of zero (to solve float comparison bugs)"
`(<= (fabs (- ,val 0.0))
0.000000000000000001))
(defmacro basically-not-zero? (val)
"Checks if the value is NOT within 0.000000000000000001 of zero (to solve float comparison bugs)"
`(> (fabs (- ,val 0.0))
0.000000000000000001))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; user stuf
goal_src/jak2/engine/ai/enemy.gc
+5 -5
View File
@@ -1882,7 +1882,7 @@ This commonly includes things such as:
(let ((s5-1 (-> obj on-death)))
(if s5-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (-> obj root-override2 trans))
(new 'stack 'script-context (process->ppointer pp) pp (-> obj root-override2 trans))
(the-as pair s5-1)
)
)
@@ -1927,7 +1927,7 @@ This commonly includes things such as:
(let ((s5-3 (-> obj on-death)))
(if s5-3
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (-> obj root-override2 trans))
(new 'stack 'script-context (process->ppointer pp) pp (-> obj root-override2 trans))
(the-as pair s5-3)
)
)
@@ -2351,7 +2351,7 @@ This commonly includes things such as:
(let ((gp-0 (-> self on-active)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
@@ -2407,7 +2407,7 @@ This commonly includes things such as:
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
@@ -2474,7 +2474,7 @@ This commonly includes things such as:
(let ((gp-0 (-> self on-hostile)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/engine/ambient/ambient.gc
+7 -15
View File
@@ -261,17 +261,9 @@
)
(defmethod talker-method-17 talker ((obj talker))
(let ((gp-0 (new
'stack
'font-context
*font-default-matrix*
36
310
0.0
(font-color default)
(font-flags shadow kerning)
)
)
(let ((gp-0
(new 'stack 'font-context *font-default-matrix* 36 310 0.0 (font-color default) (font-flags shadow kerning))
)
)
(let ((f0-0 320.0))
(let ((v1-2 gp-0))
@@ -418,11 +410,11 @@
)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (if v1-5
(-> v1-5 root trans)
)
(new 'stack 'script-context (process->ppointer self) self (if v1-5
(-> v1-5 root trans)
)
)
(the-as pair gp-0)
gp-0
)
)
)
goal_src/jak2/engine/common_objs/basebutton.gc
+1 -1
View File
@@ -170,7 +170,7 @@
(let ((activation-script (res-lump-struct (-> self entity) 'on-activate structure)))
(if activation-script
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
(the-as pair activation-script)
)
)
goal_src/jak2/engine/common_objs/elevator.gc
+15 -30
View File
@@ -97,8 +97,8 @@
(ride-timer time-frame :offset-assert 336)
(sticky-player-last-ride-time time-frame :offset-assert 344)
(elevator-status elevator-status :offset-assert 352)
(on-activate basic :offset-assert 360)
(on-deactivate basic :offset-assert 364)
(on-activate pair :offset-assert 360)
(on-deactivate pair :offset-assert 364)
)
:heap-base #xf0
:method-count-assert 49
@@ -111,14 +111,14 @@
(arrived () _type_ :state 37)
(elevator-method-38 (_type_) none 38)
(calc-dist-between-points! (_type_ int int) none 39)
(activate-elevator (_type_) none 40)
(activate-elevator (_type_) object 40)
(init-defaults! (_type_) none 41)
(set-ambient-sound! (_type_) none 42)
(move-between-points (_type_ vector float float) symbol 43)
(elevator-method-44 (_type_) symbol 44)
(commited-to-ride? (_type_) symbol 45)
(move-to-next-point! (_type_) none 46)
(find-closest-point-in-path! (_type_ vector path-step symbol symbol) symbol 47)
(find-closest-point-in-path! (_type_ vector (pointer float) symbol symbol) symbol 47)
(elevator-method-48 (_type_) none 48)
)
)
@@ -422,7 +422,7 @@ which is obviously useful for an elevator."
)
)
(defmethod find-closest-point-in-path! elevator ((obj elevator) (arg0 vector) (arg1 path-step) (arg2 symbol) (arg3 symbol))
(defmethod find-closest-point-in-path! elevator ((obj elevator) (arg0 vector) (arg1 (pointer float)) (arg2 symbol) (arg3 symbol))
"Finds and sets the provided [[path-step]]'s `next-pos` field to the vertex index in the path which is closest to
the provided [[vector]]
@@ -459,7 +459,7 @@ the provided [[vector]]
)
)
(when (!= point-idx-tracker -1.0)
(set! (-> arg1 next-pos) point-idx-tracker)
(set! (-> arg1 0) point-idx-tracker)
#t
)
)
@@ -498,9 +498,7 @@ do so.
)
)
(set! zero (the-as float 0.0))
(when (and (find-closest-point-in-path! obj (get-trans target 0) (new 'stack-no-clear 'path-step) #t #t)
(!= (-> obj move-pos 1) zero)
)
(when (and (find-closest-point-in-path! obj (get-trans target 0) (& zero) #t #t) (!= (-> obj move-pos 1) zero))
(set! (-> obj move-pos 0) (-> obj move-pos 1))
(set! (-> obj move-pos 1) zero)
(logior! (-> obj elevator-status) (elevator-status moving))
@@ -638,14 +636,8 @@ do so.
(let ((gp-0 (-> self on-activate)))
(if gp-0
(eval!
(new
'stack
'script-context
(the-as basic (* (the int (-> self move-pos 0)) 8))
self
(-> self root-override trans)
)
(the-as pair gp-0)
(new 'stack 'script-context (* (the int (-> self move-pos 0)) 8) self (-> self root-override trans))
gp-0
)
)
)
@@ -736,14 +728,8 @@ do so.
(let ((gp-0 (-> self on-deactivate)))
(if gp-0
(eval!
(new
'stack
'script-context
(the-as basic (* (the int (-> self move-pos 1)) 8))
self
(-> self root-override trans)
)
(the-as pair gp-0)
(new 'stack 'script-context (* (the int (-> self move-pos 1)) 8) self (-> self root-override trans))
gp-0
)
)
)
@@ -816,16 +802,15 @@ For example for an elevator pre-compute the distance between the first and last
(the-as elevator ((the-as (function base-plat int base-plat) (find-parent-method elevator 7)) obj arg0))
)
;; WARN: Return type mismatch object vs none.
(defmethod activate-elevator elevator ((obj elevator))
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(if (logtest? (-> obj params flags) (elevator-flags elevator-flags-6))
(go (method-of-object obj arrived))
(go (method-of-object obj waiting))
)
(none)
)
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! elevator ((obj elevator) (entity entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
@@ -842,8 +827,8 @@ This commonly includes things such as:
(update-transforms (-> obj root-override))
(base-plat-method-32 obj)
(init-defaults! obj)
(set! (-> obj on-activate) (res-lump-struct (-> obj entity) 'on-activate basic))
(set! (-> obj on-deactivate) (res-lump-struct (-> obj entity) 'on-deactivate basic))
(set! (-> obj on-activate) (res-lump-struct (-> obj entity) 'on-activate pair))
(set! (-> obj on-deactivate) (res-lump-struct (-> obj entity) 'on-deactivate pair))
(set! (-> obj path) (new 'process 'path-control obj 'path 0.0 entity #f))
(if (logtest? (-> obj path flags) (path-control-flag not-found))
(go process-drawable-art-error "error in path")
@@ -881,7 +866,7 @@ This commonly includes things such as:
)
(if (not (and sv-40
(logtest? (-> obj params flags) (elevator-flags elevator-flags-4))
(find-closest-point-in-path! obj (get-trans sv-40 0) (the-as path-step (& sv-32)) #f #t)
(find-closest-point-in-path! obj (get-trans sv-40 0) (& sv-32) #f #t)
)
)
(set! sv-32 (-> obj params start-pos))
goal_src/jak2/engine/common_objs/water.gc
+10 -12
View File
@@ -1481,18 +1481,16 @@
(set! (-> arg0 handle) (the-as handle #f))
(set! (-> arg0 depth) 0.0)
(let ((s2-0 (the-as object (-> arg1 region on-inside))))
(set! s2-0 (cond
((= (the-as symbol (-> (the-as pair s2-0) car)) 'water)
(empty)
s2-0
)
(else
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(the-as pair s2-0)
)
)
)
(set! s2-0
(cond
((= (the-as symbol (-> (the-as pair s2-0) car)) 'water)
(empty)
s2-0
)
(else
(eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (the-as pair s2-0))
)
)
)
(let ((a0-4 (-> arg2 root-prim)))
(when s2-0
goal_src/jak2/engine/game/task/task-control.gc
+2 -2
View File
@@ -2171,7 +2171,7 @@
)
(let ((gp-3 (-> self info on-complete)))
(if gp-3
(eval! (new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f)) gp-3)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) gp-3)
)
)
(task-node-close! (-> self info final-node))
@@ -2204,7 +2204,7 @@
)
(let ((gp-1 (-> self info on-fail)))
(if gp-1
(eval! (new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f)) gp-1)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) gp-1)
)
)
(let ((a0-10 (-> self info retry-continue))
goal_src/jak2/engine/level/region.gc
+27 -27
View File
@@ -46,10 +46,10 @@
(defmethod collect-regions drawable-region-prim ((obj drawable-region-prim) (area-of-interest sphere) (_count int) (region-list region-prim-list))
"Determines the number of [[drawable]]s in the `obj` that overlap the given `area-of-interest` this number is stored in the `region-list`'s item count
@param area-of-interest The area defined by a sphere that we care about overlaps
@param _count The amount of [[drawable]]s in the object to enumerate through
@param! region-list Stores the overlapping regions and a count for how many were found
@returns none"
@param area-of-interest The area defined by a sphere that we care about overlaps
@param _count The amount of [[drawable]]s in the object to enumerate through
@param! region-list Stores the overlapping regions and a count for how many were found
@returns none"
(dotimes (count _count)
(when (spheres-overlap? area-of-interest (the-as sphere (-> obj bsphere)))
(set! (-> region-list items (-> region-list num-items)) obj)
@@ -63,10 +63,10 @@
(defmethod collect-regions drawable-inline-array-region-prim ((obj drawable-inline-array-region-prim) (arg0 sphere) (arg1 int) (arg2 region-prim-list))
"Determines the number of [[drawable]]s in the `obj` that overlap the given `area-of-interest` this number is stored in the `region-list`'s item count
@param area-of-interest The area defined by a sphere that we care about overlaps
@param _count The amount of [[drawable]]s in the object to enumerate through
@param! region-list Stores the overlapping regions and a count for how many were found
@returns none"
@param area-of-interest The area defined by a sphere that we care about overlaps
@param _count The amount of [[drawable]]s in the object to enumerate through
@param! region-list Stores the overlapping regions and a count for how many were found
@returns none"
(collect-regions (the-as drawable-region-prim (-> obj data)) arg0 (-> obj length) arg2)
0
(none)
@@ -74,10 +74,10 @@
(defmethod collect-regions drawable-tree-region-prim ((obj drawable-tree-region-prim) (arg0 sphere) (arg1 int) (arg2 region-prim-list))
"Determines the number of [[drawable]]s in the `obj` that overlap the given `area-of-interest` this number is stored in the `region-list`'s item count
@param area-of-interest The area defined by a sphere that we care about overlaps
@param _count The amount of [[drawable]]s in the object to enumerate through
@param! region-list Stores the overlapping regions and a count for how many were found
@returns none"
@param area-of-interest The area defined by a sphere that we care about overlaps
@param _count The amount of [[drawable]]s in the object to enumerate through
@param! region-list Stores the overlapping regions and a count for how many were found
@returns none"
(collect-regions (-> obj data2 0) arg0 (-> obj length) arg2)
0
(none)
@@ -151,10 +151,10 @@
;; WARN: Function (method 9 region-prim-area) has a return type of none, but the expression builder found a return statement.
(defmethod track-entered-region! region-prim-area ((obj region-prim-area) (region-sphere drawable-region-sphere))
"Enumerates through the objects `region-enter-list`, if we find the provided `region`, do nothing and exit
otherwise, add the [[drawable-region-sphere]] to `region-enter-prim-list` and increment `region-enter-count`
otherwise, add the [[drawable-region-sphere]] to `region-enter-prim-list` and increment `region-enter-count`
@param region-sphere Defines the region in question
@returns nothing"
@param region-sphere Defines the region in question
@returns nothing"
(let ((regions-entered (-> obj region-enter-count)))
(let ((region (-> region-sphere region)))
(countdown (idx regions-entered)
@@ -174,10 +174,10 @@
;; WARN: Function (method 10 region-prim-area) has a return type of none, but the expression builder found a return statement.
(defmethod track-exited-region! region-prim-area ((obj region-prim-area) (arg0 drawable-region-sphere))
"Enumerates through the objects `region-exit-list`, if we find the provided `region`, do nothing and exit
otherwise, add the [[drawable-region-sphere]] to `region-exit-prim-list` and increment `region-exit-count`
otherwise, add the [[drawable-region-sphere]] to `region-exit-prim-list` and increment `region-exit-count`
@param region-sphere Defines the region in question
@returns nothing"
@param region-sphere Defines the region in question
@returns nothing"
(let ((regions-exited (-> obj region-exit-count)))
(let ((region (-> arg0 region)))
(countdown (idx regions-exited)
@@ -197,10 +197,10 @@
;; WARN: Function (method 11 region-prim-area) has a return type of none, but the expression builder found a return statement.
(defmethod track-inside-region! region-prim-area ((obj region-prim-area) (arg0 drawable-region-sphere))
"Enumerates through the objects `region-inside-list`, if we find the provided `region`, do nothing and exit
otherwise, add the [[drawable-region-sphere]] to `region-inside-prim-list` and increment `region-inside-count`
otherwise, add the [[drawable-region-sphere]] to `region-inside-prim-list` and increment `region-inside-count`
@param region-sphere Defines the region in question
@returns nothing"
@param region-sphere Defines the region in question
@returns nothing"
(let ((regions-inside (-> obj region-inside-count)))
(let ((region (-> arg0 region)))
(countdown (idx regions-inside)
@@ -220,10 +220,10 @@
;; WARN: Function (method 12 region-prim-area) has a return type of none, but the expression builder found a return statement.
(defmethod track-start-region! region-prim-area ((obj region-prim-area) (arg0 drawable-region-sphere))
"Enumerates through the objects `region-start-list`, if we find the provided `region`, do nothing and exit
otherwise, add the [[drawable-region-sphere]] to `region-start-prim-list` and increment `region-start-count`
otherwise, add the [[drawable-region-sphere]] to `region-start-prim-list` and increment `region-start-count`
@param region-sphere Defines the region in question
@returns nothing"
@param region-sphere Defines the region in question
@returns nothing"
(let ((regions-started (-> obj region-start-count)))
(let ((region (-> arg0 region)))
(countdown (idx regions-started)
@@ -571,7 +571,7 @@
)
)
(eval!
(new 'stack 'script-context (the-as basic a2-5) pp (-> (scratchpad-object region-prim-area) region-enter-prim-list gp-2 bsphere))
(new 'stack 'script-context a2-5 pp (-> (scratchpad-object region-prim-area) region-enter-prim-list gp-2 bsphere))
(the-as pair s5-2)
)
)
@@ -591,7 +591,7 @@
)
)
(eval!
(new 'stack 'script-context (the-as basic a2-6) pp (-> (scratchpad-object region-prim-area) region-exit-prim-list gp-3 bsphere))
(new 'stack 'script-context a2-6 pp (-> (scratchpad-object region-prim-area) region-exit-prim-list gp-3 bsphere))
(the-as pair s5-3)
)
)
@@ -604,7 +604,7 @@
)
(if s5-4
(eval!
(new 'stack 'script-context (the-as basic a2-7) pp (-> (scratchpad-object region-prim-area) region-inside-prim-list gp-4 bsphere))
(new 'stack 'script-context a2-7 pp (-> (scratchpad-object region-prim-area) region-inside-prim-list gp-4 bsphere))
(the-as pair s5-4)
)
)
goal_src/jak2/engine/load/load-state.gc
+2 -1
View File
@@ -277,9 +277,10 @@
0
)
;; WARN: Function (method 17 load-state) has a return type of none, but the expression builder found a return statement.
(defmethod execute-commands-up-to load-state ((obj load-state) (arg0 float))
(with-pp
(let ((s4-0 (new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))))
(let ((s4-0 (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))))
(set! (-> s4-0 load-state) obj)
(while (not (null? (-> obj command-list)))
(let ((f0-0 (command-get-float (car (car (-> obj command-list))) 0.0))
goal_src/jak2/engine/target/target-death.gc
+2 -8
View File
@@ -221,14 +221,8 @@
(set-setting! 'allow-continue #t 0 0)
(set-setting! 'border-mode #t 0 0)
(apply-settings *setting-control*)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
'(teleport)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(-> arg0 on-goto)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) '(teleport))
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (-> arg0 on-goto))
(set-setting! 'allow-continue #f 0 0)
(set-setting! 'border-mode #f 0 0)
(apply-settings *setting-control*)
goal_src/jak2/engine/target/target-turret.gc
+5 -16
View File
@@ -978,17 +978,9 @@
)
)
)
(let ((gp-1 (new
'stack
'font-context
*font-default-matrix*
32
320
0.0
(font-color default)
(font-flags shadow kerning)
)
)
(let ((gp-1
(new 'stack 'font-context *font-default-matrix* 32 320 0.0 (font-color default) (font-flags shadow kerning))
)
)
(let ((v1-21 gp-1))
(set! (-> v1-21 width) (the float 340))
@@ -1006,10 +998,7 @@
(set! (-> self rider) (process->handle *target*))
(let ((gp-2 (res-lump-struct (-> self entity) 'on-exit structure)))
(if (and gp-2 (not *scene-player*))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-2)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-2))
)
)
(go-virtual setup)
@@ -2069,7 +2058,7 @@
(case (-> arg0 event-type)
(('script)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(the-as pair (-> arg0 param))
)
)
goal_src/jak2/engine/util/script-h.gc
+3 -3
View File
@@ -35,7 +35,7 @@
(deftype script-context (structure)
((load-state load-state :offset-assert 0)
(key basic :offset-assert 4)
(key object :offset-assert 4)
(process process :offset-assert 8)
(trans vector :offset-assert 12)
(side-effect? symbol :offset-assert 16)
@@ -49,7 +49,7 @@
:size-assert #xa0
:flag-assert #xc000000a0
(:methods
(new (symbol type basic process vector) _type_ 0)
(new (symbol type object process vector) _type_ 0)
(eval! (_type_ pair) object 9)
(script-context-method-10 (_type_ object pair) object 10)
(script-context-method-11 (_type_ pair pair symbol) symbol 11)
@@ -58,7 +58,7 @@
;; WARN: Return type mismatch structure vs script-context.
(defmethod new script-context ((allocation symbol) (type-to-make type) (arg0 basic) (arg1 process) (arg2 vector))
(defmethod new script-context ((allocation symbol) (type-to-make type) (arg0 object) (arg1 process) (arg2 vector))
(let ((t9-0 (method-of-type structure new))
(v1-1 type-to-make)
)
goal_src/jak2/levels/atoll/sniper.gc
+1 -1
View File
@@ -329,7 +329,7 @@
(with-pp
(cond
((eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(cleanup-for-death obj)
goal_src/jak2/levels/castle/pad/caspad-obs.gc
-2
View File
@@ -146,14 +146,12 @@
)
)
;; WARN: Return type mismatch object vs none.
(defmethod activate-elevator cpad-elevator ((obj cpad-elevator))
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(if (task-node-closed? (game-task-node dig-knock-down-introduction))
(go (method-of-object obj arrived))
(go (method-of-object obj dormant))
)
(none)
)
(defmethod deactivate cpad-elevator ((obj cpad-elevator))
goal_src/jak2/levels/city/common/ctywide-tasks.gc
+17 -19
View File
@@ -504,25 +504,23 @@
*game-info*
61
4
(the-as
(function object)
(lambda :behavior task-manager
()
(send-event *traffic-manager* 'decrease-alert-level 0)
(send-event *traffic-manager* 'set-alert-duration 9000)
(send-event *target* 'end-mode)
(set-setting! 'pilot #f 0 0)
(set! (-> self state-time) (-> self clock frame-counter))
(while (< (- (-> self clock frame-counter) (-> self state-time)) (seconds 2))
(suspend)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
'(send-event "keira-npc-1" 'say)
)
(none)
)
)
(the-as (function object) (lambda :behavior task-manager
()
(send-event *traffic-manager* 'decrease-alert-level 0)
(send-event *traffic-manager* 'set-alert-duration 9000)
(send-event *target* 'end-mode)
(set-setting! 'pilot #f 0 0)
(set! (-> self state-time) (-> self clock frame-counter))
(while (< (- (-> self clock frame-counter) (-> self state-time)) (seconds 2))
(suspend)
)
(eval!
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(send-event "keira-npc-1" 'say)
)
(none)
)
)
)
(set-subtask-hook!
goal_src/jak2/levels/city/common/metalhead-flitter.gc
+1 -1
View File
@@ -284,7 +284,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/city/common/metalhead-grunt.gc
+1 -1
View File
@@ -341,7 +341,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/city/onin_tent/onin-game.gc
+1 -1
View File
@@ -2702,7 +2702,7 @@
)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(birth-pickup ("pecker-npc-1" "head") skill FACT_SUPER_SKILL_INC flags (suck-in))
)
(task-node-close! (game-task-node city-play-onin-game-skill))
goal_src/jak2/levels/city/port/mines/portrun.gc
+1 -1
View File
@@ -1846,7 +1846,7 @@
(when (or (not v1-130) (!= (-> v1-130 display?) 'display))
(backup-load-state-and-set-cmds *load-state* '())
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(want-display 'ctyport 'display)
)
(restore-load-state-and-cleanup *load-state*)
goal_src/jak2/levels/common/airlock.gc
+8 -26
View File
@@ -151,10 +151,7 @@
(when (and (< f30-0 0.0) (< 0.0 (-> obj last-distance)))
(let ((s5-1 (res-lump-struct (-> obj entity) 'on-cross structure)))
(if s5-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair s5-1)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair s5-1))
)
)
)
@@ -206,7 +203,7 @@
(logtest? (-> a0-12 extra perm status) (entity-perm-status subtask-complete))
)
(and (eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
(the-as pair (-> obj open-test))
)
(-> *setting-control* user-current airlock)
@@ -234,7 +231,7 @@
(defmethod destination-loaded? com-airlock ((obj com-airlock) (arg0 symbol))
(with-pp
(let ((gp-1 (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(the-as pair (-> obj level-name))
)
)
@@ -468,10 +465,7 @@
(begin
(let ((gp-0 (res-lump-struct (-> self entity) 'on-activate structure)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-0))
)
)
(destination-loaded? self #f)
@@ -536,10 +530,7 @@
()
(let ((gp-0 (res-lump-struct (-> self entity) 'on-exit structure)))
(if (and gp-0 (not *scene-player*))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-0))
)
)
(the-as
@@ -548,10 +539,7 @@
(let ((gp-1 (res-lump-struct (-> self entity) 'on-inside structure)))
(set! (-> self were-behind?) #f)
(if (and gp-1 (not *scene-player*))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-1)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-1))
)
)
)
@@ -608,10 +596,7 @@
(when (< 0.0 (check-crossing-distance self (target-pos 0) #f))
(let ((gp-3 (res-lump-struct (-> self entity) 'on-deactivate structure)))
(if (and gp-3 (not *scene-player*))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-3)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-3))
)
)
)
@@ -745,10 +730,7 @@
(process-entity-status! self (entity-perm-status subtask-complete) #t)
(let ((s5-10 (res-lump-struct (-> self entity) 'on-enter structure)))
(if s5-10
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair s5-10)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair s5-10))
)
)
(if (and (-> self sound-open)
goal_src/jak2/levels/common/battle.gc
+3 -12
View File
@@ -1392,10 +1392,7 @@
(set! (-> self state-time) (-> self clock frame-counter))
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (-> self root trans)) (the-as pair gp-0))
)
)
(battle-method-47 self)
@@ -1529,10 +1526,7 @@
(battle-method-47 self)
(let ((gp-0 (-> self on-hostile)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (-> self root trans)) (the-as pair gp-0))
)
)
(none)
@@ -1556,10 +1550,7 @@
(process-entity-status! self (entity-perm-status subtask-complete) #t)
(let ((gp-0 (-> self on-beaten)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (-> self root trans)) (the-as pair gp-0))
)
)
(battle-method-48 self)
goal_src/jak2/levels/common/elec-gate.gc
+2 -3
View File
@@ -257,7 +257,7 @@
(process-entity-status! self (entity-perm-status subtask-complete) #f)
(if (-> self on-start)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root trans))
(the-as pair (-> self on-start))
)
)
@@ -639,7 +639,7 @@
(blocking-plane-destroy)
(if (-> self on-stop)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root trans))
(the-as pair (-> self on-stop))
)
)
@@ -788,7 +788,6 @@
)
(defmethod elec-gate-method-24 elec-gate ((obj elec-gate))
"virtual"
0
(none)
)
goal_src/jak2/levels/common/enemy/guards/crimson-guard-level.gc
+1 -1
View File
@@ -1584,7 +1584,7 @@
(let ((gp-1 (-> self on-notice)))
(if gp-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-1)
)
)
goal_src/jak2/levels/common/enemy/hopper.gc
+1 -1
View File
@@ -873,7 +873,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/common/entities/com-elevator.gc
+1 -6
View File
@@ -70,10 +70,7 @@
)
(let ((gp-1 (res-lump-struct (-> obj entity) 'on-notice structure)))
(not (if gp-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(the-as pair gp-1)
)
(eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (the-as pair gp-1))
)
)
)
@@ -171,7 +168,6 @@
)
)
;; WARN: Return type mismatch object vs none.
(defmethod activate-elevator com-elevator ((obj com-elevator))
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(cond
@@ -185,7 +181,6 @@
(go (method-of-object obj waiting))
)
)
(none)
)
(defmethod deactivate com-elevator ((obj com-elevator))
goal_src/jak2/levels/common/flitter.gc
+30 -2
View File
@@ -456,7 +456,35 @@
:default-hit-points 1
:gnd-collide-with (collide-spec backgnd)
:overlaps-others-collide-with-filter (collide-spec jak bot player-list)
:penetrate-knocked #x11fffdffa
:penetrate-knocked (penetrate
generic-attack
flop
punch
spin
roll
uppercut
bonk
tube
vehicle
flut-attack
board
mech-punch
mech-bonk
dark-skin
dark-punch
dark-bomb
dark-giant
shield
explode
jak-yellow-shot
jak-red-shot
jak-blue-shot
jak-dark-shot
enemy-yellow-shot
enemy-dark-shot
eco-yellow
knocked
)
:movement-gravity (meters -100)
:friction 0.8
:attack-shove-back (meters 6)
@@ -630,7 +658,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/common/grunt.gc
+67 -2
View File
@@ -196,7 +196,72 @@
:default-hit-points 5
:gnd-collide-with (collide-spec backgnd)
:overlaps-others-collide-with-filter (collide-spec jak bot player-list)
:penetrate-knocked #xffffffffffffffff
:penetrate-knocked (penetrate
touch
generic-attack
lunge
flop
punch
spin
roll
uppercut
bonk
tube
vehicle
flut-attack
board
mech
mech-punch
mech-bonk
dark-skin
dark-punch
dark-bomb
dark-giant
shield
explode
jak-yellow-shot
jak-red-shot
jak-blue-shot
jak-dark-shot
enemy-yellow-shot
enemy-dark-shot
eco-yellow
eco-red
eco-blue
eco-green
knocked
penetrate-33
penetrate-34
penetrate-35
penetrate-36
penetrate-37
penetrate-38
penetrate-39
penetrate-40
penetrate-41
penetrate-42
penetrate-43
penetrate-44
penetrate-45
penetrate-46
penetrate-47
penetrate-48
penetrate-49
penetrate-50
penetrate-51
penetrate-52
penetrate-53
penetrate-54
penetrate-55
penetrate-56
penetrate-57
penetrate-58
penetrate-59
penetrate-60
penetrate-61
penetrate-62
penetrate-63
)
:movement-gravity (meters -100)
:friction 0.8
:attack-shove-back (meters 5)
@@ -356,7 +421,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/common/warp-gate.gc
+7 -29
View File
@@ -479,12 +479,7 @@
(defmethod handle-notice warp-gate ((obj warp-gate))
(with-pp
(let ((s5-0 (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(-> obj on-notice)
)
)
)
(let ((s5-0 (eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (-> obj on-notice))))
(cond
((= s5-0 'hide)
(logior! (-> obj draw status) (draw-control-status no-draw))
@@ -570,21 +565,10 @@
(if (and (cpad-pressed? 0 triangle) (process-grab? *target* #f))
(go-virtual use (-> self continue))
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(-> self on-close)
)
(let ((gp-0 (new
'stack
'font-context
*font-default-matrix*
32
320
0.0
(font-color default)
(font-flags shadow kerning)
)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (-> self on-close))
(let ((gp-0
(new 'stack 'font-context *font-default-matrix* 32 320 0.0 (font-color default) (font-flags shadow kerning))
)
)
(let ((v1-51 gp-0))
(set! (-> v1-51 width) (the float 340))
@@ -677,10 +661,7 @@
(set! (-> s5-0 param 3) (the-as uint (process->handle self)))
(send-event-function *target* s5-0)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(-> self on-activate)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (-> self on-activate))
(while (begin
(set! v1-38 (when (-> self wait-for)
(let* ((s5-1 (-> self wait-for))
@@ -1279,10 +1260,7 @@ This commonly includes things such as:
(apply-settings *setting-control*)
(sound-stop (-> self hover-sound))
(set! (-> self hover-sound) (new 'static 'sound-id))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(-> self on-activate)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (-> self on-activate))
(sleep-code)
(none)
)
goal_src/jak2/levels/demo/demo-obs.gc
+1 -1
View File
@@ -794,7 +794,7 @@
(set! (-> *setting-control* user-default allow-timeout) #t)
(let ((gp-24 (demo-menu)))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(fadeout (seconds (new 'static 'bfloat :data 0.3)))
)
(let ((s5-8 (-> self clock frame-counter)))
goal_src/jak2/levels/dig/dig-digger.gc
+1 -1
View File
@@ -1274,7 +1274,7 @@ This commonly includes things such as:
)
((>= 4 s5-0)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
'(want-anim "dig-digger-explode")
)
)
goal_src/jak2/levels/dig/dig-obs.gc
+1 -4
View File
@@ -786,10 +786,7 @@ This commonly includes things such as:
(process-entity-status! self (entity-perm-status subtask-complete) #t)
(let ((gp-1 (res-lump-struct (-> self entity) 'on-activate structure)))
(if gp-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-1)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-1))
)
)
(go-virtual idle-down)
goal_src/jak2/levels/drill_platform/drill-obs.gc
+2 -8
View File
@@ -503,7 +503,6 @@ This commonly includes things such as:
((method-of-type elevator activate-elevator) obj)
(go (method-of-object obj dormant))
)
(none)
)
(defmethod init-plat! drill-elevator ((obj drill-elevator))
@@ -615,7 +614,7 @@ do so.
)
)
(set! sv-16 (the-as float 0.0))
(when (and (find-closest-point-in-path! obj (get-trans a0-1 0) (the-as path-step (& sv-16)) #t #t)
(when (and (find-closest-point-in-path! obj (get-trans a0-1 0) (& sv-16) #t #t)
(!= (-> obj move-pos 1) sv-16)
(= sv-16 (-> obj bottom-top 0))
)
@@ -646,11 +645,9 @@ For example for an elevator pre-compute the distance between the first and last
(none)
)
;; WARN: Return type mismatch object vs none.
(defmethod activate-elevator drill-mech-elevator ((obj drill-mech-elevator))
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(go (method-of-object obj waiting))
(none)
)
(deftype fire-floor (process-drawable)
@@ -1212,10 +1209,7 @@ This commonly includes things such as:
(send-event! self (-> self event-down))
(let ((gp-0 (res-lump-struct (-> self entity) 'on-activate structure)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-0))
)
)
(go-virtual down-idle)
goal_src/jak2/levels/forest/lifeseed/protect.gc
+1 -1
View File
@@ -609,7 +609,7 @@ This commonly includes things such as:
)
((< f0-0 163840.0)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(want-anim "city-protect-slums-intro")
)
)
goal_src/jak2/levels/landing_pad/roboguard-level.gc
+1 -1
View File
@@ -570,7 +570,7 @@
(let ((gp-0 (-> self on-hostile)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/mars_tomb/monster-frog.gc
+30 -2
View File
@@ -70,7 +70,35 @@
:default-hit-points 1
:gnd-collide-with (collide-spec backgnd)
:overlaps-others-collide-with-filter (collide-spec jak bot player-list)
:penetrate-knocked #x11fffdffa
:penetrate-knocked (penetrate
generic-attack
flop
punch
spin
roll
uppercut
bonk
tube
vehicle
flut-attack
board
mech-punch
mech-bonk
dark-skin
dark-punch
dark-bomb
dark-giant
shield
explode
jak-yellow-shot
jak-red-shot
jak-blue-shot
jak-dark-shot
enemy-yellow-shot
enemy-dark-shot
eco-yellow
knocked
)
:movement-gravity (meters -100)
:friction 0.8
:attack-shove-back (meters 3)
@@ -262,7 +290,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/mars_tomb/tomb-scenes.gc
+1 -1
View File
@@ -35,7 +35,7 @@
()
(if (-> self aborted?)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(cond
((task-closed? "tomb-water-resolution")
(send-event "tomb-sphinx-2" 'trigger)
goal_src/jak2/levels/mars_tomb/tomb-water.gc
+3 -12
View File
@@ -1596,10 +1596,7 @@ This commonly includes things such as:
:trans (behavior ()
(let ((gp-0 (-> self on-notice)))
(when gp-0
(if (eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-0)
)
(if (eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-0))
(go-virtual open #f)
)
)
@@ -1715,10 +1712,7 @@ This commonly includes things such as:
)
(let ((gp-2 (-> self on-activate)))
(if gp-2
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-2)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-2))
)
)
)
@@ -1827,10 +1821,7 @@ This commonly includes things such as:
(transform-post)
(let ((s5-1 (-> obj on-notice)))
(when s5-1
(if (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(the-as pair s5-1)
)
(if (eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (the-as pair s5-1))
(go (method-of-object obj open) #t)
)
)
goal_src/jak2/levels/nest/boss/metalkor-states.gc
+2 -2
View File
@@ -252,13 +252,13 @@
(case (-> self stage)
((2)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(want-anim "nest-kor-boss-fight-mid")
)
)
((3)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(want-anim "outro-nest")
)
)
goal_src/jak2/levels/nest/flying-spider.gc
+1 -1
View File
@@ -192,7 +192,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/nest/mantis.gc
+1 -1
View File
@@ -474,7 +474,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/palace/boss/squid-setup.gc
+1 -1
View File
@@ -2387,7 +2387,7 @@ This commonly includes things such as:
(with-pp
(if (= (-> obj stage) 2)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
'(want-anim "palace-boss-res")
)
)
goal_src/jak2/levels/ruins/rapid-gunner.gc
+67 -2
View File
@@ -90,7 +90,72 @@
:default-hit-points 4
:gnd-collide-with (collide-spec backgnd)
:overlaps-others-collide-with-filter (collide-spec jak bot player-list)
:penetrate-knocked #xffffffffffffffff
:penetrate-knocked (penetrate
touch
generic-attack
lunge
flop
punch
spin
roll
uppercut
bonk
tube
vehicle
flut-attack
board
mech
mech-punch
mech-bonk
dark-skin
dark-punch
dark-bomb
dark-giant
shield
explode
jak-yellow-shot
jak-red-shot
jak-blue-shot
jak-dark-shot
enemy-yellow-shot
enemy-dark-shot
eco-yellow
eco-red
eco-blue
eco-green
knocked
penetrate-33
penetrate-34
penetrate-35
penetrate-36
penetrate-37
penetrate-38
penetrate-39
penetrate-40
penetrate-41
penetrate-42
penetrate-43
penetrate-44
penetrate-45
penetrate-46
penetrate-47
penetrate-48
penetrate-49
penetrate-50
penetrate-51
penetrate-52
penetrate-53
penetrate-54
penetrate-55
penetrate-56
penetrate-57
penetrate-58
penetrate-59
penetrate-60
penetrate-61
penetrate-62
penetrate-63
)
:movement-gravity (meters -100)
:friction 0.6
:attack-shove-back (meters 6)
@@ -543,7 +608,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
goal_src/jak2/levels/sewer/sewer-obs2.gc
+2 -5
View File
@@ -278,10 +278,7 @@ For example for an elevator pre-compute the distance between the first and last
)
(let ((data (res-lump-struct (-> self entity) 'on-activate structure)))
(if data
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair data)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair data))
)
)
(none)
@@ -1374,7 +1371,7 @@ This commonly includes things such as:
(set! (-> obj attack-id) id)
)
(if (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(go (method-of-object obj hit) #t)
goal_src/jak2/levels/temple/mountain-obs.gc
+1 -4
View File
@@ -2893,10 +2893,7 @@ This commonly includes things such as:
(when (not arg0)
(let ((gp-0 (-> self on-activate)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (-> self root trans)) (the-as pair gp-0))
)
)
(ja-no-eval :group! (-> self draw art-group data 3)
goal_src/jak2/levels/underport/under-laser.gc
+2 -2
View File
@@ -311,7 +311,7 @@
)
:trans (behavior ()
(if (not (eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
(the-as pair (-> self draw-test-script))
)
)
@@ -517,7 +517,7 @@ This commonly includes things such as:
(set! (-> obj draw-test-script) (res-lump-struct (-> obj entity) 'on-activate script-context))
(cond
((and (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(the-as pair (-> obj draw-test-script))
)
(= *bot-record-path* -1)
goal_src/jak2/levels/underport/under-sig-obs.gc
+5 -5
View File
@@ -151,7 +151,7 @@ For example for an elevator pre-compute the distance between the first and last
)
:trans (behavior ()
(when (not (eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
(the-as pair (-> self draw-test-script))
)
)
@@ -441,7 +441,7 @@ otherwise, [[plat::34]]
(with-pp
(cond
((and (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(the-as pair (-> obj draw-test-script))
)
(= *bot-record-path* -1)
@@ -727,7 +727,7 @@ This commonly includes things such as:
)
(transform-post)
(if (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(go (method-of-object obj die))
@@ -869,7 +869,7 @@ This commonly includes things such as:
(transform-post)
(cond
((eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(if (= (-> obj bridge-id) 1)
@@ -1001,7 +1001,7 @@ This commonly includes things such as:
(let ((s5-2 #t))
(cond
((eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(set! s5-2 #f)
test/decompiler/reference/jak2/engine/ai/enemy_REF.gc
Generated Vendored
+5 -5
View File
@@ -1968,7 +1968,7 @@ This commonly includes things such as:
(let ((s5-1 (-> obj on-death)))
(if s5-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (-> obj root-override2 trans))
(new 'stack 'script-context (process->ppointer pp) pp (-> obj root-override2 trans))
(the-as pair s5-1)
)
)
@@ -2013,7 +2013,7 @@ This commonly includes things such as:
(let ((s5-3 (-> obj on-death)))
(if s5-3
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (-> obj root-override2 trans))
(new 'stack 'script-context (process->ppointer pp) pp (-> obj root-override2 trans))
(the-as pair s5-3)
)
)
@@ -2457,7 +2457,7 @@ This commonly includes things such as:
(let ((gp-0 (-> self on-active)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
@@ -2514,7 +2514,7 @@ This commonly includes things such as:
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
@@ -2582,7 +2582,7 @@ This commonly includes things such as:
(let ((gp-0 (-> self on-hostile)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/engine/ambient/ambient_REF.gc
Generated Vendored
+3 -3
View File
@@ -427,9 +427,9 @@
)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (if v1-5
(-> v1-5 root trans)
)
(new 'stack 'script-context (process->ppointer self) self (if v1-5
(-> v1-5 root trans)
)
)
gp-0
)
test/decompiler/reference/jak2/engine/common_objs/basebutton_REF.gc
Generated Vendored
+1 -1
View File
@@ -188,7 +188,7 @@
(let ((activation-script (res-lump-struct (-> self entity) 'on-activate structure)))
(if activation-script
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
(the-as pair activation-script)
)
)
test/decompiler/reference/jak2/engine/common_objs/elevator_REF.gc
Generated Vendored
+15 -30
View File
@@ -92,8 +92,8 @@
(ride-timer time-frame :offset-assert 336)
(sticky-player-last-ride-time time-frame :offset-assert 344)
(elevator-status elevator-status :offset-assert 352)
(on-activate basic :offset-assert 360)
(on-deactivate basic :offset-assert 364)
(on-activate pair :offset-assert 360)
(on-deactivate pair :offset-assert 364)
)
:heap-base #xf0
:method-count-assert 49
@@ -106,14 +106,14 @@
(arrived () _type_ :state 37)
(elevator-method-38 (_type_) none 38)
(calc-dist-between-points! (_type_ int int) none 39)
(activate-elevator (_type_) none 40)
(activate-elevator (_type_) object 40)
(init-defaults! (_type_) none 41)
(set-ambient-sound! (_type_) none 42)
(move-between-points (_type_ vector float float) symbol 43)
(elevator-method-44 (_type_) symbol 44)
(commited-to-ride? (_type_) symbol 45)
(move-to-next-point! (_type_) none 46)
(find-closest-point-in-path! (_type_ vector path-step symbol symbol) symbol 47)
(find-closest-point-in-path! (_type_ vector (pointer float) symbol symbol) symbol 47)
(elevator-method-48 (_type_) none 48)
)
)
@@ -451,7 +451,7 @@ which is obviously useful for an elevator."
;; definition for method 47 of type elevator
;; INFO: Used lq/sq
(defmethod find-closest-point-in-path! elevator ((obj elevator) (arg0 vector) (arg1 path-step) (arg2 symbol) (arg3 symbol))
(defmethod find-closest-point-in-path! elevator ((obj elevator) (arg0 vector) (arg1 (pointer float)) (arg2 symbol) (arg3 symbol))
"Finds and sets the provided [[path-step]]'s `next-pos` field to the vertex index in the path which is closest to
the provided [[vector]]
@@ -488,7 +488,7 @@ the provided [[vector]]
)
)
(when (!= point-idx-tracker -1.0)
(set! (-> arg1 next-pos) point-idx-tracker)
(set! (-> arg1 0) point-idx-tracker)
#t
)
)
@@ -537,9 +537,7 @@ do so.
)
)
(set! zero (the-as float 0.0))
(when (and (find-closest-point-in-path! obj (get-trans target 0) (new 'stack-no-clear 'path-step) #t #t)
(!= (-> obj move-pos 1) zero)
)
(when (and (find-closest-point-in-path! obj (get-trans target 0) (& zero) #t #t) (!= (-> obj move-pos 1) zero))
(set! (-> obj move-pos 0) (-> obj move-pos 1))
(set! (-> obj move-pos 1) zero)
(logior! (-> obj elevator-status) (elevator-status moving))
@@ -681,14 +679,8 @@ do so.
(let ((gp-0 (-> self on-activate)))
(if gp-0
(eval!
(new
'stack
'script-context
(the-as basic (* (the int (-> self move-pos 0)) 8))
self
(-> self root-override trans)
)
(the-as pair gp-0)
(new 'stack 'script-context (* (the int (-> self move-pos 0)) 8) self (-> self root-override trans))
gp-0
)
)
)
@@ -780,14 +772,8 @@ do so.
(let ((gp-0 (-> self on-deactivate)))
(if gp-0
(eval!
(new
'stack
'script-context
(the-as basic (* (the int (-> self move-pos 1)) 8))
self
(-> self root-override trans)
)
(the-as pair gp-0)
(new 'stack 'script-context (* (the int (-> self move-pos 1)) 8) self (-> self root-override trans))
gp-0
)
)
)
@@ -868,14 +854,12 @@ For example for an elevator pre-compute the distance between the first and last
)
;; definition for method 40 of type elevator
;; WARN: Return type mismatch object vs none.
(defmethod activate-elevator elevator ((obj elevator))
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(if (logtest? (-> obj params flags) (elevator-flags elevator-flags-6))
(go (method-of-object obj arrived))
(go (method-of-object obj waiting))
)
(none)
)
;; definition for method 11 of type elevator
@@ -894,6 +878,7 @@ For example for an elevator pre-compute the distance between the first and last
;; WARN: Stack slot offset 32 signed mismatch
;; WARN: Stack slot offset 32 signed mismatch
;; WARN: Stack slot offset 32 signed mismatch
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! elevator ((obj elevator) (entity entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
@@ -910,8 +895,8 @@ This commonly includes things such as:
(update-transforms (-> obj root-override))
(base-plat-method-32 obj)
(init-defaults! obj)
(set! (-> obj on-activate) (res-lump-struct (-> obj entity) 'on-activate basic))
(set! (-> obj on-deactivate) (res-lump-struct (-> obj entity) 'on-deactivate basic))
(set! (-> obj on-activate) (res-lump-struct (-> obj entity) 'on-activate pair))
(set! (-> obj on-deactivate) (res-lump-struct (-> obj entity) 'on-deactivate pair))
(set! (-> obj path) (new 'process 'path-control obj 'path 0.0 entity #f))
(if (logtest? (-> obj path flags) (path-control-flag not-found))
(go process-drawable-art-error "error in path")
@@ -949,7 +934,7 @@ This commonly includes things such as:
)
(if (not (and sv-40
(logtest? (-> obj params flags) (elevator-flags elevator-flags-4))
(find-closest-point-in-path! obj (get-trans sv-40 0) (the-as path-step (& sv-32)) #f #t)
(find-closest-point-in-path! obj (get-trans sv-40 0) (& sv-32) #f #t)
)
)
(set! sv-32 (-> obj params start-pos))
test/decompiler/reference/jak2/engine/common_objs/water_REF.gc
Generated Vendored
+10 -12
View File
@@ -1544,18 +1544,16 @@
(set! (-> arg0 handle) (the-as handle #f))
(set! (-> arg0 depth) 0.0)
(let ((s2-0 (the-as object (-> arg1 region on-inside))))
(set! s2-0 (cond
((= (the-as symbol (-> (the-as pair s2-0) car)) 'water)
(empty)
s2-0
)
(else
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(the-as pair s2-0)
)
)
)
(set! s2-0
(cond
((= (the-as symbol (-> (the-as pair s2-0) car)) 'water)
(empty)
s2-0
)
(else
(eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (the-as pair s2-0))
)
)
)
(let ((a0-4 (-> arg2 root-prim)))
(when s2-0
test/decompiler/reference/jak2/engine/game/effect-control_REF.gc
Generated Vendored
+11 -15
View File
@@ -313,22 +313,18 @@
(return #f)
)
((= arg0 'script)
(let ((gp-1
(get-property-struct
(-> obj res)
'effect-script
'exact
arg1
(the-as structure #f)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
)
(let ((gp-1 (get-property-struct
(-> obj res)
'effect-script
'exact
arg1
(the-as structure #f)
(the-as (pointer res-tag) #f)
*res-static-buf*
)
)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(the-as pair gp-1)
)
(eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (the-as pair gp-1))
)
(return #f)
)
test/decompiler/reference/jak2/engine/game/task/task-control_REF.gc
Generated Vendored
+2 -2
View File
@@ -2243,7 +2243,7 @@
)
(let ((gp-3 (-> self info on-complete)))
(if gp-3
(eval! (new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f)) gp-3)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) gp-3)
)
)
(task-node-close! (-> self info final-node))
@@ -2277,7 +2277,7 @@
)
(let ((gp-1 (-> self info on-fail)))
(if gp-1
(eval! (new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f)) gp-1)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) gp-1)
)
)
(let ((a0-10 (-> self info retry-continue))
test/decompiler/reference/jak2/engine/level/region_REF.gc
Generated Vendored
+3 -3
View File
@@ -609,7 +609,7 @@ otherwise, add the [[drawable-region-sphere]] to `region-start-prim-list` and in
(new
'stack
'script-context
(the-as basic a2-5)
a2-5
pp
(-> (the-as region-prim-area (+ (* gp-2 4) #x70000000)) region-enter-prim-list 0 bsphere)
)
@@ -635,7 +635,7 @@ otherwise, add the [[drawable-region-sphere]] to `region-start-prim-list` and in
(new
'stack
'script-context
(the-as basic a2-6)
a2-6
pp
(-> (the-as region-prim-area (+ (* gp-3 4) #x70000000)) region-exit-prim-list 0 bsphere)
)
@@ -654,7 +654,7 @@ otherwise, add the [[drawable-region-sphere]] to `region-start-prim-list` and in
(new
'stack
'script-context
(the-as basic a2-7)
a2-7
pp
(-> (the-as region-prim-area (+ (* gp-4 4) #x70000000)) region-inside-prim-list 0 bsphere)
)
test/decompiler/reference/jak2/engine/load/load-state_REF.gc
Generated Vendored
+2 -13
View File
@@ -149,18 +149,7 @@
;; definition for method 21 of type load-state
;; WARN: Return type mismatch int vs none.
;; WARN: Failed store: (s.w! (+ v1-22 12) a0-5) at op 48
;; WARN: Failed store: (s.w! (+ a1-4 12) v1-25) at op 56
;; WARN: Failed store: (s.w! (+ a1-8 12) v1-28) at op 64
;; WARN: Failed store: (s.w! (+ a1-12 12) v1-31) at op 72
;; WARN: Failed store: (s.w! (+ a2-4 12) a1-21) at op 97
;; WARN: Failed store: (s.w! (+ a2-8 12) a1-25) at op 109
;; WARN: Failed store: (s.w! (+ a1-31 12) #f) at op 114
;; WARN: Failed store: (s.w! (+ a1-35 12) #f) at op 119
;; WARN: Failed load: (set! a0-11 (l.wu (+ a0-10 12))) at op 138
;; WARN: Failed load: (set! a0-16 (l.wu (+ a0-15 12))) at op 146
;; WARN: Failed load: (set! a0-21 (l.wu (+ a0-20 12))) at op 154
;; WARN: Failed load: (set! a0-26 (l.wu (+ a0-25 12))) at op 162
;; ERROR: Failed store: (s.w! (+ v1-22 12) a0-5) at op 48
(defmethod add-borrow-levels load-state ((obj load-state))
(dotimes (s5-0 6)
(let ((a0-1 (-> obj want s5-0 name)))
@@ -319,7 +308,7 @@
;; WARN: Function (method 17 load-state) has a return type of none, but the expression builder found a return statement.
(defmethod execute-commands-up-to load-state ((obj load-state) (arg0 float))
(with-pp
(let ((s4-0 (new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))))
(let ((s4-0 (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))))
(set! (-> s4-0 load-state) obj)
(while (not (null? (-> obj command-list)))
(let ((f0-0 (command-get-float (car (car (-> obj command-list))) 0.0))
test/decompiler/reference/jak2/engine/target/target-death_REF.gc
Generated Vendored
+2 -8
View File
@@ -214,14 +214,8 @@
(set-setting! 'allow-continue #t 0 0)
(set-setting! 'border-mode #t 0 0)
(apply-settings *setting-control*)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
'(teleport)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(-> arg0 on-goto)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) '(teleport))
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (-> arg0 on-goto))
(set-setting! 'allow-continue #f 0 0)
(set-setting! 'border-mode #f 0 0)
(apply-settings *setting-control*)
test/decompiler/reference/jak2/engine/target/target-turret_REF.gc
Generated Vendored
+2 -5
View File
@@ -1185,10 +1185,7 @@
(set! (-> self rider) (process->handle *target*))
(let ((gp-2 (res-lump-struct (-> self entity) 'on-exit structure)))
(if (and gp-2 (not *scene-player*))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-2)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-2))
)
)
(go-virtual setup)
@@ -2275,7 +2272,7 @@
(case (-> arg0 event-type)
(('script)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(the-as pair (-> arg0 param))
)
)
test/decompiler/reference/jak2/engine/util/script-h_REF.gc
Generated Vendored
+3 -3
View File
@@ -33,7 +33,7 @@
;; definition of type script-context
(deftype script-context (structure)
((load-state load-state :offset-assert 0)
(key basic :offset-assert 4)
(key object :offset-assert 4)
(process process :offset-assert 8)
(trans vector :offset-assert 12)
(side-effect? symbol :offset-assert 16)
@@ -47,7 +47,7 @@
:size-assert #xa0
:flag-assert #xc000000a0
(:methods
(new (symbol type basic process vector) _type_ 0)
(new (symbol type object process vector) _type_ 0)
(eval! (_type_ pair) object 9)
(script-context-method-10 (_type_ object pair) object 10)
(script-context-method-11 (_type_ pair pair symbol) symbol 11)
@@ -83,7 +83,7 @@
;; definition for method 0 of type script-context
;; WARN: Return type mismatch structure vs script-context.
(defmethod new script-context ((allocation symbol) (type-to-make type) (arg0 basic) (arg1 process) (arg2 vector))
(defmethod new script-context ((allocation symbol) (type-to-make type) (arg0 object) (arg1 process) (arg2 vector))
(let ((t9-0 (method-of-type structure new))
(v1-1 type-to-make)
)
test/decompiler/reference/jak2/levels/atoll/sniper_REF.gc
Generated Vendored
+1 -1
View File
@@ -351,7 +351,7 @@
(with-pp
(cond
((eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(cleanup-for-death obj)
test/decompiler/reference/jak2/levels/castle/pad/caspad-obs_REF.gc
Generated Vendored
-2
View File
@@ -163,14 +163,12 @@
)
;; definition for method 40 of type cpad-elevator
;; WARN: Return type mismatch object vs none.
(defmethod activate-elevator cpad-elevator ((obj cpad-elevator))
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(if (task-node-closed? (game-task-node dig-knock-down-introduction))
(go (method-of-object obj arrived))
(go (method-of-object obj dormant))
)
(none)
)
;; definition for method 10 of type cpad-elevator
test/decompiler/reference/jak2/levels/city/common/ctywide-tasks_REF.gc
Generated Vendored
+17 -19
View File
@@ -519,25 +519,23 @@
*game-info*
61
4
(the-as
(function object)
(lambda :behavior task-manager
()
(send-event *traffic-manager* 'decrease-alert-level 0)
(send-event *traffic-manager* 'set-alert-duration 9000)
(send-event *target* 'end-mode)
(set-setting! 'pilot #f 0 0)
(set! (-> self state-time) (-> self clock frame-counter))
(while (< (- (-> self clock frame-counter) (-> self state-time)) (seconds 2))
(suspend)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
'(send-event "keira-npc-1" 'say)
)
(none)
)
)
(the-as (function object) (lambda :behavior task-manager
()
(send-event *traffic-manager* 'decrease-alert-level 0)
(send-event *traffic-manager* 'set-alert-duration 9000)
(send-event *target* 'end-mode)
(set-setting! 'pilot #f 0 0)
(set! (-> self state-time) (-> self clock frame-counter))
(while (< (- (-> self clock frame-counter) (-> self state-time)) (seconds 2))
(suspend)
)
(eval!
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(send-event "keira-npc-1" 'say)
)
(none)
)
)
)
;; failed to figure out what this is:
test/decompiler/reference/jak2/levels/city/common/metalhead-flitter_REF.gc
Generated Vendored
+1 -1
View File
@@ -308,7 +308,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/city/common/metalhead-grunt_REF.gc
Generated Vendored
+1 -1
View File
@@ -369,7 +369,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/city/onin_tent/onin-game_REF.gc
Generated Vendored
+1 -1
View File
@@ -2869,7 +2869,7 @@
)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(birth-pickup ("pecker-npc-1" "head") skill FACT_SUPER_SKILL_INC flags (suck-in))
)
(task-node-close! (game-task-node city-play-onin-game-skill))
test/decompiler/reference/jak2/levels/city/port/mines/portrun_REF.gc
Generated Vendored
+1 -1
View File
@@ -1978,7 +1978,7 @@
(when (or (not v1-130) (!= (-> v1-130 display?) 'display))
(backup-load-state-and-set-cmds *load-state* '())
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(want-display 'ctyport 'display)
)
(restore-load-state-and-cleanup *load-state*)
test/decompiler/reference/jak2/levels/common/airlock_REF.gc
Generated Vendored
+8 -26
View File
@@ -197,10 +197,7 @@
(when (and (< f30-0 0.0) (< 0.0 (-> obj last-distance)))
(let ((s5-1 (res-lump-struct (-> obj entity) 'on-cross structure)))
(if s5-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair s5-1)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair s5-1))
)
)
)
@@ -253,7 +250,7 @@
(logtest? (-> a0-12 extra perm status) (entity-perm-status subtask-complete))
)
(and (eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
(the-as pair (-> obj open-test))
)
(-> *setting-control* user-current airlock)
@@ -282,7 +279,7 @@
(defmethod destination-loaded? com-airlock ((obj com-airlock) (arg0 symbol))
(with-pp
(let ((gp-1 (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(the-as pair (-> obj level-name))
)
)
@@ -522,10 +519,7 @@
(begin
(let ((gp-0 (res-lump-struct (-> self entity) 'on-activate structure)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-0))
)
)
(destination-loaded? self #f)
@@ -590,10 +584,7 @@
()
(let ((gp-0 (res-lump-struct (-> self entity) 'on-exit structure)))
(if (and gp-0 (not *scene-player*))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-0))
)
)
(the-as
@@ -602,10 +593,7 @@
(let ((gp-1 (res-lump-struct (-> self entity) 'on-inside structure)))
(set! (-> self were-behind?) #f)
(if (and gp-1 (not *scene-player*))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-1)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-1))
)
)
)
@@ -662,10 +650,7 @@
(when (< 0.0 (check-crossing-distance self (target-pos 0) #f))
(let ((gp-3 (res-lump-struct (-> self entity) 'on-deactivate structure)))
(if (and gp-3 (not *scene-player*))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-3)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-3))
)
)
)
@@ -800,10 +785,7 @@
(process-entity-status! self (entity-perm-status subtask-complete) #t)
(let ((s5-10 (res-lump-struct (-> self entity) 'on-enter structure)))
(if s5-10
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair s5-10)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair s5-10))
)
)
(if (and (-> self sound-open)
test/decompiler/reference/jak2/levels/common/battle_REF.gc
Generated Vendored
+3 -12
View File
@@ -1564,10 +1564,7 @@
(set! (-> self state-time) (-> self clock frame-counter))
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (-> self root trans)) (the-as pair gp-0))
)
)
(battle-method-47 self)
@@ -1704,10 +1701,7 @@
(battle-method-47 self)
(let ((gp-0 (-> self on-hostile)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (-> self root trans)) (the-as pair gp-0))
)
)
(none)
@@ -1732,10 +1726,7 @@
(process-entity-status! self (entity-perm-status subtask-complete) #t)
(let ((gp-0 (-> self on-beaten)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (-> self root trans)) (the-as pair gp-0))
)
)
(battle-method-48 self)
test/decompiler/reference/jak2/levels/common/elec-gate_REF.gc
Generated Vendored
+2 -2
View File
@@ -329,7 +329,7 @@
(process-entity-status! self (entity-perm-status subtask-complete) #f)
(if (-> self on-start)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root trans))
(the-as pair (-> self on-start))
)
)
@@ -712,7 +712,7 @@
(blocking-plane-destroy)
(if (-> self on-stop)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root trans))
(the-as pair (-> self on-stop))
)
)
test/decompiler/reference/jak2/levels/common/enemy/guards/crimson-guard-level_REF.gc
Generated Vendored
+1 -1
View File
@@ -1708,7 +1708,7 @@
(let ((gp-1 (-> self on-notice)))
(if gp-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-1)
)
)
test/decompiler/reference/jak2/levels/common/enemy/hopper_REF.gc
Generated Vendored
+1 -1
View File
@@ -813,7 +813,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/common/entities/com-elevator_REF.gc
Generated Vendored
+1 -10
View File
@@ -84,10 +84,7 @@
)
(let ((gp-1 (res-lump-struct (-> obj entity) 'on-notice structure)))
(not (if gp-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(the-as pair gp-1)
)
(eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (the-as pair gp-1))
)
)
)
@@ -190,7 +187,6 @@
)
;; definition for method 40 of type com-elevator
;; WARN: Return type mismatch object vs none.
(defmethod activate-elevator com-elevator ((obj com-elevator))
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(cond
@@ -204,7 +200,6 @@
(go (method-of-object obj waiting))
)
)
(none)
)
;; definition for method 10 of type com-elevator
@@ -377,7 +372,3 @@ For example for an elevator pre-compute the distance between the first and last
(set! (-> obj sound-id) (new-sound-id))
(none)
)
test/decompiler/reference/jak2/levels/common/flitter_REF.gc
Generated Vendored
+1 -1
View File
@@ -698,7 +698,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/common/grunt_REF.gc
Generated Vendored
+1 -1
View File
@@ -486,7 +486,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/common/warp-gate_REF.gc
Generated Vendored
+4 -18
View File
@@ -524,12 +524,7 @@
;; definition for method 25 of type warp-gate
(defmethod handle-notice warp-gate ((obj warp-gate))
(with-pp
(let ((s5-0 (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(-> obj on-notice)
)
)
)
(let ((s5-0 (eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (-> obj on-notice))))
(cond
((= s5-0 'hide)
(logior! (-> obj draw status) (draw-control-status no-draw))
@@ -617,10 +612,7 @@
(if (and (cpad-pressed? 0 triangle) (process-grab? *target* #f))
(go-virtual use (-> self continue))
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(-> self on-close)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (-> self on-close))
(let ((gp-0
(new 'stack 'font-context *font-default-matrix* 32 320 0.0 (font-color default) (font-flags shadow kerning))
)
@@ -717,10 +709,7 @@
(set! (-> s5-0 param 3) (the-as uint (process->handle self)))
(send-event-function *target* s5-0)
)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(-> self on-activate)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (-> self on-activate))
(while (begin
(set! v1-38 (when (-> self wait-for)
(let* ((s5-1 (-> self wait-for))
@@ -1355,10 +1344,7 @@ This commonly includes things such as:
(apply-settings *setting-control*)
(sound-stop (-> self hover-sound))
(set! (-> self hover-sound) (new 'static 'sound-id))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(-> self on-activate)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (-> self on-activate))
(sleep-code)
(none)
)
test/decompiler/reference/jak2/levels/demo/demo-obs_REF.gc
Generated Vendored
+1 -1
View File
@@ -824,7 +824,7 @@
(set! (-> *setting-control* user-default allow-timeout) #t)
(let ((gp-24 (demo-menu)))
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(fadeout (seconds (new 'static 'bfloat :data 0.3)))
)
(let ((s5-8 (-> self clock frame-counter)))
test/decompiler/reference/jak2/levels/dig/dig-digger_REF.gc
Generated Vendored
+1 -1
View File
@@ -1446,7 +1446,7 @@ This commonly includes things such as:
)
((>= 4 s5-0)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
'(want-anim "dig-digger-explode")
)
)
test/decompiler/reference/jak2/levels/dig/dig-obs_REF.gc
Generated Vendored
+1 -4
View File
@@ -883,10 +883,7 @@ This commonly includes things such as:
(process-entity-status! self (entity-perm-status subtask-complete) #t)
(let ((gp-1 (res-lump-struct (-> self entity) 'on-activate structure)))
(if gp-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-1)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-1))
)
)
(go-virtual idle-down)
test/decompiler/reference/jak2/levels/drill_platform/drill-obs_REF.gc
Generated Vendored
+2 -8
View File
@@ -576,7 +576,6 @@ This commonly includes things such as:
((method-of-type elevator activate-elevator) obj)
(go (method-of-object obj dormant))
)
(none)
)
;; definition for method 33 of type drill-elevator
@@ -717,7 +716,7 @@ do so.
)
)
(set! sv-16 (the-as float 0.0))
(when (and (find-closest-point-in-path! obj (get-trans a0-1 0) (the-as path-step (& sv-16)) #t #t)
(when (and (find-closest-point-in-path! obj (get-trans a0-1 0) (& sv-16) #t #t)
(!= (-> obj move-pos 1) sv-16)
(= sv-16 (-> obj bottom-top 0))
)
@@ -751,11 +750,9 @@ For example for an elevator pre-compute the distance between the first and last
)
;; definition for method 40 of type drill-mech-elevator
;; WARN: Return type mismatch object vs none.
(defmethod activate-elevator drill-mech-elevator ((obj drill-mech-elevator))
"Puts the elevator initially into the correct state. This is typically based upon game completion"
(go (method-of-object obj waiting))
(none)
)
;; definition of type fire-floor
@@ -1392,10 +1389,7 @@ This commonly includes things such as:
(send-event! self (-> self event-down))
(let ((gp-0 (res-lump-struct (-> self entity) 'on-activate structure)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-0))
)
)
(go-virtual down-idle)
test/decompiler/reference/jak2/levels/forest/lifeseed/protect_REF.gc
Generated Vendored
+1 -5
View File
@@ -658,7 +658,7 @@ This commonly includes things such as:
)
((< f0-0 163840.0)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(want-anim "city-protect-slums-intro")
)
)
@@ -669,7 +669,3 @@ This commonly includes things such as:
)
)
)
test/decompiler/reference/jak2/levels/landing_pad/roboguard-level_REF.gc
Generated Vendored
+1 -1
View File
@@ -602,7 +602,7 @@
(let ((gp-0 (-> self on-hostile)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/mars_tomb/monster-frog_REF.gc
Generated Vendored
+1 -1
View File
@@ -303,7 +303,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/mars_tomb/tomb-scenes_REF.gc
Generated Vendored
+1 -1
View File
@@ -32,7 +32,7 @@
()
(if (-> self aborted?)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(cond
((task-closed? "tomb-water-resolution")
(send-event "tomb-sphinx-2" 'trigger)
test/decompiler/reference/jak2/levels/mars_tomb/tomb-water_REF.gc
Generated Vendored
+3 -12
View File
@@ -1746,10 +1746,7 @@ This commonly includes things such as:
:trans (behavior ()
(let ((gp-0 (-> self on-notice)))
(when gp-0
(if (eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-0)
)
(if (eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-0))
(go-virtual open #f)
)
)
@@ -1868,10 +1865,7 @@ This commonly includes things such as:
)
(let ((gp-2 (-> self on-activate)))
(if gp-2
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair gp-2)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair gp-2))
)
)
)
@@ -1982,10 +1976,7 @@ This commonly includes things such as:
(transform-post)
(let ((s5-1 (-> obj on-notice)))
(when s5-1
(if (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(the-as pair s5-1)
)
(if (eval! (new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f)) (the-as pair s5-1))
(go (method-of-object obj open) #t)
)
)
test/decompiler/reference/jak2/levels/nest/boss/metalkor-states_REF.gc
Generated Vendored
+2 -6
View File
@@ -263,13 +263,13 @@
(case (-> self stage)
((2)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(want-anim "nest-kor-boss-fight-mid")
)
)
((3)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
'(want-anim "outro-nest")
)
)
@@ -2978,7 +2978,3 @@
(none)
)
)
test/decompiler/reference/jak2/levels/nest/flying-spider_REF.gc
Generated Vendored
+1 -1
View File
@@ -224,7 +224,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/nest/mantis_REF.gc
Generated Vendored
+1 -1
View File
@@ -519,7 +519,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/palace/boss/squid-setup_REF.gc
Generated Vendored
+1 -1
View File
@@ -2658,7 +2658,7 @@ This commonly includes things such as:
(with-pp
(if (= (-> obj stage) 2)
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
'(want-anim "palace-boss-res")
)
)
test/decompiler/reference/jak2/levels/ruins/rapid-gunner_REF.gc
Generated Vendored
+1 -1
View File
@@ -656,7 +656,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
test/decompiler/reference/jak2/levels/sewer/hosehead_REF.gc
Generated Vendored
+3 -8
View File
@@ -436,7 +436,6 @@
)
;; definition for method 3 of type ik-setup
;; INFO: this function exists in multiple non-identical object files
(defmethod inspect ik-setup ((obj ik-setup))
(when (not obj)
(set! obj obj)
@@ -1099,7 +1098,7 @@
(let ((gp-1 (-> self on-stop-sentry)))
(if gp-1
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-1)
)
)
@@ -1195,7 +1194,7 @@
(let ((gp-2 (-> self on-stop-sentry)))
(if gp-2
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-2)
)
)
@@ -1448,7 +1447,7 @@
(let ((gp-0 (-> self on-notice)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root-override2 trans))
(new 'stack 'script-context (process->ppointer self) self (-> self root-override2 trans))
(the-as pair gp-0)
)
)
@@ -2628,7 +2627,3 @@
)
(none)
)
test/decompiler/reference/jak2/levels/sewer/sewer-obs2_REF.gc
Generated Vendored
+2 -5
View File
@@ -325,10 +325,7 @@ For example for an elevator pre-compute the distance between the first and last
)
(let ((data (res-lump-struct (-> self entity) 'on-activate structure)))
(if data
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(the-as pair data)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (the-as vector #f)) (the-as pair data))
)
)
(none)
@@ -1576,7 +1573,7 @@ This commonly includes things such as:
(set! (-> obj attack-id) id)
)
(if (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(go (method-of-object obj hit) #t)
test/decompiler/reference/jak2/levels/temple/mountain-obs_REF.gc
Generated Vendored
+1 -4
View File
@@ -3185,10 +3185,7 @@ This commonly includes things such as:
(when (not arg0)
(let ((gp-0 (-> self on-activate)))
(if gp-0
(eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (-> self root trans))
(the-as pair gp-0)
)
(eval! (new 'stack 'script-context (process->ppointer self) self (-> self root trans)) (the-as pair gp-0))
)
)
(ja-no-eval :group! (-> self draw art-group data 3)
test/decompiler/reference/jak2/levels/underport/under-laser_REF.gc
Generated Vendored
+2 -6
View File
@@ -384,7 +384,7 @@
)
:trans (behavior ()
(if (not (eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
(the-as pair (-> self draw-test-script))
)
)
@@ -594,7 +594,7 @@ This commonly includes things such as:
(set! (-> obj draw-test-script) (res-lump-struct (-> obj entity) 'on-activate script-context))
(cond
((and (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(the-as pair (-> obj draw-test-script))
)
(= *bot-record-path* -1)
@@ -609,7 +609,3 @@ This commonly includes things such as:
(none)
)
)
test/decompiler/reference/jak2/levels/underport/under-sig-obs_REF.gc
Generated Vendored
+5 -9
View File
@@ -181,7 +181,7 @@ For example for an elevator pre-compute the distance between the first and last
)
:trans (behavior ()
(when (not (eval!
(new 'stack 'script-context (the-as basic (process->ppointer self)) self (the-as vector #f))
(new 'stack 'script-context (process->ppointer self) self (the-as vector #f))
(the-as pair (-> self draw-test-script))
)
)
@@ -474,7 +474,7 @@ otherwise, [[plat::34]]
(with-pp
(cond
((and (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(the-as pair (-> obj draw-test-script))
)
(= *bot-record-path* -1)
@@ -799,7 +799,7 @@ This commonly includes things such as:
)
(transform-post)
(if (eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(go (method-of-object obj die))
@@ -962,7 +962,7 @@ This commonly includes things such as:
(transform-post)
(cond
((eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(if (= (-> obj bridge-id) 1)
@@ -1113,7 +1113,7 @@ This commonly includes things such as:
(let ((s5-2 #t))
(cond
((eval!
(new 'stack 'script-context (the-as basic (process->ppointer pp)) pp (the-as vector #f))
(new 'stack 'script-context (process->ppointer pp) pp (the-as vector #f))
(res-lump-struct (-> obj entity) 'on-activate pair)
)
(set! s5-2 #f)
@@ -1703,7 +1703,3 @@ This commonly includes things such as:
)
(none)
)