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

[jak2] fix task-arrow-spawn decomp (#2995)

Browse Source
This commit is contained in:
ManDude
2023-09-15 23:09:38 +01:00
committed by GitHub
parent 87be9ebd14
commit 6352ef2a4d
39 changed files with 57 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files
decompiler/config/jak2/all-types.gc
+1 -1
View File
@@ -29556,7 +29556,7 @@
)
(define-extern task-arrow-init-by-other (function task-arrow-params task-arrow :behavior task-arrow))
(define-extern task-arrow-spawn (function task-arrow-params task-arrow process))
(define-extern task-arrow-spawn (function task-arrow-params process-tree process))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; projectile ;;
goal_src/jak2/engine/game/task/task-arrow.gc
+1 -6
View File
@@ -16,11 +16,6 @@
)
;; ---task-arrow-flags
(declare-type task-arrow-params structure)
(declare-type task-arrow process-drawable)
(define-extern task-arrow-init-by-other (function task-arrow-params task-arrow :behavior task-arrow))
(define-extern task-arrow-spawn (function task-arrow-params task-arrow process))
;; DECOMP BEGINS
(defskelgroup skel-task-arrow ctywide-arrow ctywide-arrow-lod0-jg ctywide-arrow-idle-ja
@@ -311,7 +306,7 @@ or collectable items on the ground (jetboard / weapon upgrades / etc)"
(the-as task-arrow (go-virtual idle))
)
(defun task-arrow-spawn ((arg0 task-arrow-params) (arg1 task-arrow))
(defun task-arrow-spawn ((arg0 task-arrow-params) (arg1 process-tree))
(let ((gp-0 (the-as process #f)))
(let ((v1-1 (process-spawn task-arrow arg0 :to arg1)))
(if v1-1
goal_src/jak2/levels/atoll/atoll-obs.gc
+1 -1
View File
@@ -1334,7 +1334,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-5 quat))
(set! (-> gp-5 flags) (task-arrow-flags))
(set! (-> gp-5 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-5 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-5 self)))
)
)
(label cfg-36)
goal_src/jak2/levels/castle/pad/castle-tasks.gc
+1 -1
View File
@@ -18,7 +18,7 @@
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
(until #f
(when (< (vector-vector-distance (target-pos 0) (-> self info end-sphere)) (-> self info end-sphere r))
goal_src/jak2/levels/city/ctywide-tasks.gc
+3 -3
View File
@@ -65,7 +65,7 @@
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
(none)
)
@@ -406,7 +406,7 @@
(set! (-> gp-1 flags) (task-arrow-flags task-arrow-flag-00))
(set! (-> gp-1 map-icon) (the-as uint 12))
(label cfg-10)
(let ((a0-20 (task-arrow-spawn gp-1 (the-as task-arrow self))))
(let ((a0-20 (task-arrow-spawn gp-1 self)))
(when (not a0-20)
(suspend)
(goto cfg-10)
@@ -756,7 +756,7 @@
)
)
(label cfg-12)
(let ((a0-20 (task-arrow-spawn s5-1 (the-as task-arrow self))))
(let ((a0-20 (task-arrow-spawn s5-1 self)))
(when (not a0-20)
(suspend)
(goto cfg-12)
goal_src/jak2/levels/city/kiddogescort/hal4-course.gc
+1 -1
View File
@@ -760,7 +760,7 @@
(quaternion-identity! (-> s5-0 quat))
(set! (-> s5-0 flags) (task-arrow-flags))
(set! (-> s5-0 map-icon) (the-as uint 15))
(set! (-> arg0 arrow-handle) (process->handle (task-arrow-spawn s5-0 (the-as task-arrow arg0))))
(set! (-> arg0 arrow-handle) (process->handle (task-arrow-spawn s5-0 arg0)))
)
(let ((v1-24 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
(set! (-> v1-24 bytes 5) 1)
goal_src/jak2/levels/city/meet-brutter/meet-brutter.gc
+1 -1
View File
@@ -2986,7 +2986,7 @@
(quaternion-identity! (-> s5-1 quat))
(set! (-> s5-1 flags) (task-arrow-flags))
(set! (-> s5-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 self)))
)
)
)
goal_src/jak2/levels/city/package/delivery-task.gc
+1 -1
View File
@@ -163,7 +163,7 @@ This commonly includes things such as:
(set! (-> s4-0 flags) (task-arrow-flags task-arrow-flag-03))
(set! (-> s4-0 map-icon) (the-as uint 15))
(label cfg-21)
(let ((a0-30 (task-arrow-spawn s4-0 (the-as task-arrow self))))
(let ((a0-30 (task-arrow-spawn s4-0 self)))
(when (not a0-30)
(format #t "waiting for task-arrow~%")
(suspend)
goal_src/jak2/levels/city/protect/protect.gc
+1 -1
View File
@@ -380,7 +380,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-2 quat))
(set! (-> gp-2 flags) (task-arrow-flags))
(set! (-> gp-2 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-2 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-2 self)))
)
(set! (-> self data-int32 0) 0)
0
goal_src/jak2/levels/city/sack/collection-task.gc
+1 -1
View File
@@ -137,7 +137,7 @@
(quaternion-identity! (-> beam-params quat))
(set! (-> beam-params flags) (task-arrow-flags))
(set! (-> beam-params map-icon) (the-as uint 15))
(task-arrow-spawn beam-params (the-as task-arrow self))
(task-arrow-spawn beam-params self)
)
(until #f
(ja-no-eval :group! (ja-group)
goal_src/jak2/levels/city/shuttle/shuttle.gc
+1 -1
View File
@@ -1039,7 +1039,7 @@
(quaternion-identity! (-> s4-1 quat))
(set! (-> s4-1 flags) (task-arrow-flags))
(set! (-> s4-1 map-icon) (the-as uint 15))
(set! (-> arg0 arrow) (process->handle (task-arrow-spawn s4-1 (the-as task-arrow arg0))))
(set! (-> arg0 arrow) (process->handle (task-arrow-spawn s4-1 arg0)))
)
(set-parking-spot-prob *traffic-engine* 11 0.08)
(set-parking-spot-prob *traffic-engine* 12 0.08)
goal_src/jak2/levels/common/race/race-manager.gc
+1 -1
View File
@@ -1058,7 +1058,7 @@
(let ((t9-11 task-arrow-spawn)
(a1-17 obj)
)
(set! (-> gp-0 arrow) (process->handle (t9-11 sv-352 (the-as task-arrow a1-17))))
(set! (-> gp-0 arrow) (process->handle (t9-11 sv-352 a1-17)))
)
(set! (-> s4-0 params position quad) (-> gp-0 info player-intro-pos quad))
(+! (-> s4-0 params position y) 12288.0)
goal_src/jak2/levels/common/scene-actor.gc
+1 -1
View File
@@ -687,7 +687,7 @@ This commonly includes things such as:
)
(set! (-> s5-0 flags) (task-arrow-flags))
(set! (-> s5-0 map-icon) (the-as uint 15))
(task-arrow-spawn s5-0 (the-as task-arrow obj))
(task-arrow-spawn s5-0 obj)
)
)
)
goal_src/jak2/levels/gungame/gungame-obs.gc
+2 -2
View File
@@ -2544,7 +2544,7 @@ This commonly includes things such as:
(quaternion-identity! (-> s5-1 quat))
(set! (-> s5-1 flags) (task-arrow-flags))
(set! (-> s5-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 (the-as task-arrow gp-0))))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 gp-0)))
)
)
)
@@ -2592,7 +2592,7 @@ This commonly includes things such as:
(quaternion-identity! (-> s5-1 quat))
(set! (-> s5-1 flags) (task-arrow-flags))
(set! (-> s5-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 (the-as task-arrow gp-0))))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 gp-0)))
)
)
)
goal_src/jak2/levels/mountain/mountain-obs.gc
+1 -1
View File
@@ -3245,7 +3245,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(task-arrow-spawn gp-0 (the-as task-arrow self))
(task-arrow-spawn gp-0 self)
)
)
(let ((t9-5 (-> (the-as state (find-parent-method trans-plat 34)) enter)))
goal_src/jak2/levels/mountain/mountain-obs2.gc
+1 -1
View File
@@ -351,7 +351,7 @@ For example for an elevator pre-compute the distance between the first and last
(quaternion-identity! (-> arrow-params quat))
(set! (-> arrow-params flags) (task-arrow-flags))
(set! (-> arrow-params map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn arrow-params (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn arrow-params self)))
)
(until #f
(let ((dist-from-target (vector-vector-distance (target-pos 0) (-> self info end-sphere))))
goal_src/jak2/levels/ruins/ruins-obs.gc
+2 -2
View File
@@ -771,7 +771,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-5 quat))
(set! (-> gp-5 flags) (task-arrow-flags))
(set! (-> gp-5 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-5 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-5 self)))
)
)
(label cfg-39)
@@ -802,7 +802,7 @@ This commonly includes things such as:
(quaternion-identity! (-> s5-0 quat))
(set! (-> s5-0 flags) (task-arrow-flags))
(set! (-> s5-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-0 self)))
)
)
(b! #t cfg-17 :delay (nop!))
goal_src/jak2/levels/stadium/skate/skatea-obs.gc
+6 -6
View File
@@ -199,7 +199,7 @@
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
)
)
@@ -409,7 +409,7 @@
(quaternion-identity! (-> gp-1 quat))
(set! (-> gp-1 flags) (task-arrow-flags))
(set! (-> gp-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-1 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-1 self)))
)
(send-event *target* 'get-notify self)
(set! (-> self trick-type) (board-tricks none))
@@ -483,7 +483,7 @@
(quaternion-identity! (-> gp-1 quat))
(set! (-> gp-1 flags) (task-arrow-flags))
(set! (-> gp-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-1 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-1 self)))
)
(send-event *target* 'get-notify self)
(set! (-> self trick-type) (board-tricks none))
@@ -998,7 +998,7 @@
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
(set! (-> self score) -1.0)
)
@@ -1128,7 +1128,7 @@
(quaternion-identity! (-> gp-4 quat))
(set! (-> gp-4 flags) (task-arrow-flags))
(set! (-> gp-4 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-4 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-4 self)))
)
(else
(set! (-> *game-info* sub-task-list (game-task-node stadium-board1-training-judge) death-count)
@@ -1151,7 +1151,7 @@
(quaternion-identity! (-> gp-4 quat))
(set! (-> gp-4 flags) (task-arrow-flags))
(set! (-> gp-4 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-4 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-4 self)))
)
)
)
goal_src/jak2/levels/strip/strip-drop.gc
+1 -1
View File
@@ -544,7 +544,7 @@ This commonly includes things such as:
)
(set! (-> s5-2 flags) (task-arrow-flags task-arrow-flag-02))
(set! (-> s5-2 map-icon) (the-as uint 15))
(task-arrow-spawn s5-2 (the-as task-arrow obj))
(task-arrow-spawn s5-2 obj)
)
)
(if (task-node-closed? (game-task-node strip-drop-resolution))
goal_src/jak2/levels/strip/strip-obs.gc
+1 -1
View File
@@ -1745,7 +1745,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
(while (>= (vector-vector-distance (target-pos 0) (-> self info end-sphere)) (-> self info end-sphere r))
(suspend)
test/decompiler/reference/jak2/engine/game/task/task-arrow_REF.gc
Generated Vendored
+1 -1
View File
@@ -345,7 +345,7 @@ or collectable items on the ground (jetboard / weapon upgrades / etc)"
)
;; definition for function task-arrow-spawn
(defun task-arrow-spawn ((arg0 task-arrow-params) (arg1 task-arrow))
(defun task-arrow-spawn ((arg0 task-arrow-params) (arg1 process-tree))
(let ((gp-0 (the-as process #f)))
(let ((v1-1 (process-spawn task-arrow arg0 :to arg1)))
(if v1-1
test/decompiler/reference/jak2/levels/atoll/atoll-obs_REF.gc
Generated Vendored
+1 -1
View File
@@ -1534,7 +1534,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-5 quat))
(set! (-> gp-5 flags) (task-arrow-flags))
(set! (-> gp-5 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-5 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-5 self)))
)
)
(label cfg-36)
test/decompiler/reference/jak2/levels/castle/pad/castle-tasks_REF.gc
Generated Vendored
+1 -1
View File
@@ -13,7 +13,7 @@
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
(until #f
(when (< (vector-vector-distance (target-pos 0) (-> self info end-sphere)) (-> self info end-sphere r))
test/decompiler/reference/jak2/levels/city/ctywide-tasks_REF.gc
Generated Vendored
+3 -3
View File
@@ -62,7 +62,7 @@
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
(none)
)
@@ -417,7 +417,7 @@
(set! (-> gp-1 flags) (task-arrow-flags task-arrow-flag-00))
(set! (-> gp-1 map-icon) (the-as uint 12))
(label cfg-10)
(let ((a0-20 (task-arrow-spawn gp-1 (the-as task-arrow self))))
(let ((a0-20 (task-arrow-spawn gp-1 self)))
(when (not a0-20)
(suspend)
(goto cfg-10)
@@ -802,7 +802,7 @@
)
)
(label cfg-12)
(let ((a0-20 (task-arrow-spawn s5-1 (the-as task-arrow self))))
(let ((a0-20 (task-arrow-spawn s5-1 self)))
(when (not a0-20)
(suspend)
(goto cfg-12)
test/decompiler/reference/jak2/levels/city/kiddogescort/hal4-course_REF.gc
Generated Vendored
+1 -1
View File
@@ -826,7 +826,7 @@
(quaternion-identity! (-> s5-0 quat))
(set! (-> s5-0 flags) (task-arrow-flags))
(set! (-> s5-0 map-icon) (the-as uint 15))
(set! (-> arg0 arrow-handle) (process->handle (task-arrow-spawn s5-0 (the-as task-arrow arg0))))
(set! (-> arg0 arrow-handle) (process->handle (task-arrow-spawn s5-0 arg0)))
)
(let ((v1-24 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
(set! (-> v1-24 bytes 5) 1)
test/decompiler/reference/jak2/levels/city/meet-brutter/meet-brutter_REF.gc
Generated Vendored
+1 -1
View File
@@ -3141,7 +3141,7 @@
(quaternion-identity! (-> s5-1 quat))
(set! (-> s5-1 flags) (task-arrow-flags))
(set! (-> s5-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 self)))
)
)
)
test/decompiler/reference/jak2/levels/city/package/delivery-task_REF.gc
Generated Vendored
+1 -1
View File
@@ -184,7 +184,7 @@ This commonly includes things such as:
(set! (-> s4-0 flags) (task-arrow-flags task-arrow-flag-03))
(set! (-> s4-0 map-icon) (the-as uint 15))
(label cfg-21)
(let ((a0-30 (task-arrow-spawn s4-0 (the-as task-arrow self))))
(let ((a0-30 (task-arrow-spawn s4-0 self)))
(when (not a0-30)
(format #t "waiting for task-arrow~%")
(suspend)
test/decompiler/reference/jak2/levels/city/protect/protect_REF.gc
Generated Vendored
+1 -1
View File
@@ -421,7 +421,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-2 quat))
(set! (-> gp-2 flags) (task-arrow-flags))
(set! (-> gp-2 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-2 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-2 self)))
)
(set! (-> self data-int32 0) 0)
0
test/decompiler/reference/jak2/levels/city/sack/collection-task_REF.gc
Generated Vendored
+1 -1
View File
@@ -154,7 +154,7 @@
(quaternion-identity! (-> beam-params quat))
(set! (-> beam-params flags) (task-arrow-flags))
(set! (-> beam-params map-icon) (the-as uint 15))
(task-arrow-spawn beam-params (the-as task-arrow self))
(task-arrow-spawn beam-params self)
)
(until #f
(ja-no-eval :group! (ja-group)
test/decompiler/reference/jak2/levels/city/shuttle/shuttle_REF.gc
Generated Vendored
+1 -1
View File
@@ -1096,7 +1096,7 @@
(quaternion-identity! (-> s4-1 quat))
(set! (-> s4-1 flags) (task-arrow-flags))
(set! (-> s4-1 map-icon) (the-as uint 15))
(set! (-> arg0 arrow) (process->handle (task-arrow-spawn s4-1 (the-as task-arrow arg0))))
(set! (-> arg0 arrow) (process->handle (task-arrow-spawn s4-1 arg0)))
)
(set-parking-spot-prob *traffic-engine* 11 0.08)
(set-parking-spot-prob *traffic-engine* 12 0.08)
test/decompiler/reference/jak2/levels/common/race/race-manager_REF.gc
Generated Vendored
+1 -1
View File
@@ -1089,7 +1089,7 @@
(let ((t9-11 task-arrow-spawn)
(a1-17 obj)
)
(set! (-> gp-0 arrow) (process->handle (t9-11 sv-352 (the-as task-arrow a1-17))))
(set! (-> gp-0 arrow) (process->handle (t9-11 sv-352 a1-17)))
)
(set! (-> s4-0 params position quad) (-> gp-0 info player-intro-pos quad))
(+! (-> s4-0 params position y) 12288.0)
test/decompiler/reference/jak2/levels/common/scene-actor_REF.gc
Generated Vendored
+1 -1
View File
@@ -863,7 +863,7 @@ This commonly includes things such as:
)
(set! (-> s5-0 flags) (task-arrow-flags))
(set! (-> s5-0 map-icon) (the-as uint 15))
(task-arrow-spawn s5-0 (the-as task-arrow obj))
(task-arrow-spawn s5-0 obj)
)
)
)
test/decompiler/reference/jak2/levels/gungame/gungame-obs_REF.gc
Generated Vendored
+2 -2
View File
@@ -2652,7 +2652,7 @@ This commonly includes things such as:
(quaternion-identity! (-> s5-1 quat))
(set! (-> s5-1 flags) (task-arrow-flags))
(set! (-> s5-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 (the-as task-arrow gp-0))))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 gp-0)))
)
)
)
@@ -2702,7 +2702,7 @@ This commonly includes things such as:
(quaternion-identity! (-> s5-1 quat))
(set! (-> s5-1 flags) (task-arrow-flags))
(set! (-> s5-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 (the-as task-arrow gp-0))))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-1 gp-0)))
)
)
)
test/decompiler/reference/jak2/levels/mountain/mountain-obs2_REF.gc
Generated Vendored
+1 -1
View File
@@ -396,7 +396,7 @@ For example for an elevator pre-compute the distance between the first and last
(quaternion-identity! (-> arrow-params quat))
(set! (-> arrow-params flags) (task-arrow-flags))
(set! (-> arrow-params map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn arrow-params (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn arrow-params self)))
)
(until #f
(let ((dist-from-target (vector-vector-distance (target-pos 0) (-> self info end-sphere))))
test/decompiler/reference/jak2/levels/mountain/mountain-obs_REF.gc
Generated Vendored
+1 -1
View File
@@ -3578,7 +3578,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(task-arrow-spawn gp-0 (the-as task-arrow self))
(task-arrow-spawn gp-0 self)
)
)
(let ((t9-5 (-> (the-as state (find-parent-method trans-plat 34)) enter)))
test/decompiler/reference/jak2/levels/ruins/ruins-obs_REF.gc
Generated Vendored
+2 -2
View File
@@ -768,7 +768,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-5 quat))
(set! (-> gp-5 flags) (task-arrow-flags))
(set! (-> gp-5 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-5 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-5 self)))
)
)
(label cfg-39)
@@ -801,7 +801,7 @@ This commonly includes things such as:
(quaternion-identity! (-> s5-0 quat))
(set! (-> s5-0 flags) (task-arrow-flags))
(set! (-> s5-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn s5-0 self)))
)
)
(b! #t cfg-17 :delay (nop!))
test/decompiler/reference/jak2/levels/stadium/skate/skatea-obs_REF.gc
Generated Vendored
+6 -6
View File
@@ -239,7 +239,7 @@
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
)
)
@@ -455,7 +455,7 @@
(quaternion-identity! (-> gp-1 quat))
(set! (-> gp-1 flags) (task-arrow-flags))
(set! (-> gp-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-1 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-1 self)))
)
(send-event *target* 'get-notify self)
(set! (-> self trick-type) (board-tricks none))
@@ -530,7 +530,7 @@
(quaternion-identity! (-> gp-1 quat))
(set! (-> gp-1 flags) (task-arrow-flags))
(set! (-> gp-1 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-1 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-1 self)))
)
(send-event *target* 'get-notify self)
(set! (-> self trick-type) (board-tricks none))
@@ -1051,7 +1051,7 @@
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
(set! (-> self score) -1.0)
)
@@ -1178,7 +1178,7 @@
(quaternion-identity! (-> gp-4 quat))
(set! (-> gp-4 flags) (task-arrow-flags))
(set! (-> gp-4 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-4 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-4 self)))
)
(else
(set! (-> *game-info* sub-task-list (game-task-node stadium-board1-training-judge) death-count)
@@ -1201,7 +1201,7 @@
(quaternion-identity! (-> gp-4 quat))
(set! (-> gp-4 flags) (task-arrow-flags))
(set! (-> gp-4 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-4 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-4 self)))
)
)
)
test/decompiler/reference/jak2/levels/strip/strip-drop_REF.gc
Generated Vendored
+1 -1
View File
@@ -616,7 +616,7 @@ This commonly includes things such as:
)
(set! (-> s5-2 flags) (task-arrow-flags task-arrow-flag-02))
(set! (-> s5-2 map-icon) (the-as uint 15))
(task-arrow-spawn s5-2 (the-as task-arrow obj))
(task-arrow-spawn s5-2 obj)
)
)
(if (task-node-closed? (game-task-node strip-drop-resolution))
test/decompiler/reference/jak2/levels/strip/strip-obs_REF.gc
Generated Vendored
+1 -1
View File
@@ -1930,7 +1930,7 @@ This commonly includes things such as:
(quaternion-identity! (-> gp-0 quat))
(set! (-> gp-0 flags) (task-arrow-flags))
(set! (-> gp-0 map-icon) (the-as uint 15))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 (the-as task-arrow self))))
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
)
(while (>= (vector-vector-distance (target-pos 0) (-> self info end-sphere)) (-> self info end-sphere r))
(suspend)