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

Jak2 decomp/hover formation (#2028)

Browse source 
This is a WIP while I'm learning the ins and outs of decompilation, but
putting up what I have for 2 reasons:

- Hoping someone can double check I'm on the right path (all functions
have signatures, all reasonably safe guesses for types have been put in,
using "object" for type where they're not)
- Might be blocked by not being able to run the offline-tests as a PAL
scrub

I'm going to look at what might be involved in making tests work for
PAL, but wouldn't be surprised if I have to wait to get a black label
version and come back to this after :(

---------

Co-authored-by: Tyler Wilding <xtvaser@gmail.com>
This commit is contained in:
ChillyPepper 2023-02-05 12:03:46 +11:00 committed by GitHub
parent 89feb5d0f1
commit fd6d59cd88
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
8 changed files with 1800 additions and 52 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

99
decompiler/config/jak2/all-types.gc
View file

@ -35299,25 +35299,22 @@
;; hover-formation-h ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#|
(deftype form-search-info (structure)
((form basic :offset-assert 0)
(count int32 :offset-assert 4)
(pos-table uint32 :offset-assert 8)
(actor-position UNKNOWN 16 :offset-assert 16)
(actor-valid? UNKNOWN 16 :offset-assert 272)
(index-table UNKNOWN 16 :offset-assert 336)
(dest-pos-table UNKNOWN 16 :offset-assert 400)
(best-mapping UNKNOWN 16 :offset-assert 656)
(best-cost float :offset-assert 720)
((form uint32 :offset-assert 0)
(count int32 :offset-assert 4)
(pos-table (inline-array vector) :offset-assert 8)
(actor-position vector 16 :inline :offset-assert 16)
(actor-valid? symbol 16 :offset-assert 272)
(index-table uint32 16 :offset-assert 336) ;; Guessing this based on other fields with this name
(dest-pos-table vector 16 :inline :offset-assert 400)
(best-mapping uint32 16 :offset-assert 656) ;; Guessing it's uint32 as it's 16 x 4
(best-cost float :offset-assert 720)
)
:method-count-assert 9
:size-assert #x2d4
:flag-assert #x9000002d4
)
|#
#|
(deftype hover-actor (structure)
((handle uint64 :offset-assert 0)
(offset vector :inline :offset-assert 16)
@ -35326,64 +35323,68 @@
:size-assert #x20
:flag-assert #x900000020
)
|#
#|
;; +++hover-formation-h:formation-type
(defenum formation-type
:type int64
(unknown-0 0)
(unknown-1 1)
(unknown-2 2)
(unknown-3 3)
)
;; ---hover-formation-h:formation-type
(deftype hover-formation-control (basic)
((search-info form-search-info :inline :offset-assert 16)
(entity basic :offset-assert 740)
(anchor-proc uint64 :offset-assert 744)
(actor-table UNKNOWN 16 :offset-assert 752)
(entity entity :offset-assert 740)
(anchor-proc handle :offset-assert 744)
(actor-table handle 16 :offset-assert 752)
;; NOTE These appear to be 2 different sets of flags, some functions (eg method 12 and 19) load from 884 instead
(flags uint16 :offset-assert 880)
(formation-type uint64 :offset-assert 888)
(formation-type formation-type :offset-assert 888)
(center vector :inline :offset-assert 896)
(zone-to-world matrix :inline :offset-assert 912)
(world-to-zone matrix :inline :offset-assert 976)
(offset vector :inline :offset-assert 1040)
(focus-quat quaternion :inline :offset-assert 1056)
(notice-dist float :offset-assert 1072)
(notice-dist meters :offset-assert 1072)
(rotation-inc float :offset-assert 1076)
)
:method-count-assert 21
:size-assert #x438
:flag-assert #x1500000438
(:methods
(hover-formation-control-method-9 () none 9)
(hover-formation-control-method-10 () none 10)
(hover-formation-control-method-11 () none 11)
(hover-formation-control-method-12 () none 12)
(hover-formation-control-method-13 () none 13)
(hover-formation-control-method-14 () none 14)
(hover-formation-control-method-15 () none 15)
(hover-formation-control-method-16 () none 16)
(hover-formation-control-method-17 () none 17)
(hover-formation-control-method-18 () none 18)
(hover-formation-control-method-19 () none 19)
(hover-formation-control-method-20 () none 20)
(new (symbol type object entity float vector float handle) _type_ 0)
(set-anchor-proc (_type_ handle) int 9)
;; TODO This calls vector-rotate-y as its main function, check what it's rotating to rename
(hover-formation-control-method-10 (_type_ vector vector float) symbol 10)
(hover-formation-control-method-11 (_type_) int 11)
;; TODO Check what the formation types are to see what this is really looking for
(is-formation-type-in-range (_type_) symbol 12)
(hover-formation-control-method-13 (_type_ vector) vector 13)
(hover-formation-control-method-14 (_type_) none 14)
(hover-formation-control-method-15 (_type_ vector vector) vector 15)
(hover-formation-control-method-16 (_type_) object 16)
(hover-formation-control-method-17 (_type_ process) int 17)
(hover-formation-control-method-18 (_type_ process) int 18)
(try-update-formation-type (_type_ formation-type) int 19)
(hover-formation-control-method-20 (_type_ object object) none 20) ;; NOT DEFINED ANYWHERE!
)
)
|#
#|
(deftype hover-formation (process)
((formation basic :offset-assert 124)
(path basic :offset-assert 128)
(formation-timer uint64 :offset-assert 132)
((formation hover-formation-control :offset-assert 128) ;; NOTE The original offset here was 124, all bumped up by 4 to match process parent
(path path-control :offset-assert 132)
(formation-timer uint64 :offset-assert 136)
)
:method-count-assert 16
:size-assert #x90
:flag-assert #x1000100090
(:methods
(hover-formation-method-9 () none 9)
(hover-formation-method-10 () none 10)
(hover-formation-method-11 () none 11)
(hover-formation-method-12 () none 12)
(hover-formation-method-13 () none 13)
(hover-formation-method-14 () none 14)
(hover-formation-method-15 () none 15)
(idle () _type_ :state 14)
(hover-formation-method-15 (_type_) int 15)
)
)
|#
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -35825,7 +35826,6 @@
;; hover-formation ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#|
(deftype gen-perms-context (structure)
((num int32 :offset-assert 0)
(table uint32 :offset-assert 4)
@ -35835,12 +35835,11 @@
:size-assert #xc
:flag-assert #x90000000c
)
|#
;; (define-extern odd? function)
;; (define-extern even? function)
;; (define-extern gen-perms function)
;; (define-extern test-gen-perms function)
(define-extern odd? (function int symbol))
(define-extern even? (function int symbol))
(define-extern gen-perms (function int (function int int form-search-info uint) (function form-search-info float) form-search-info symbol))
(define-extern test-gen-perms (function int object))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; hover-nav-edit ;;

6
decompiler/config/jak2/anonymous_function_types.jsonc
View file

@ -1164,5 +1164,11 @@
[8, "(function none :behavior task-manager)"],
[9, "(function none :behavior task-manager)"],
[10, "(function none :behavior task-manager)"]
],
"hover-formation": [
[10, "(function form-search-info float)"],
[11, "(function int int form-search-info uint)"],
[14, "(function vector object)"],
[15, "(function int int (pointer object) int)"]
]
}

6
decompiler/config/jak2/stack_structures.jsonc
View file

@ -1913,5 +1913,9 @@
[32, "vector"],
[80, "vector"]
],
"(method 181 bombbot)": [[16, ["array", "collide-shape", 64]]]
"(method 181 bombbot)": [[16, ["array", "collide-shape", 64]]],
"test-gen-perms": [[16, "gen-perms-context"]],
"gen-perms": [[16, "gen-perms-context"]],
"(method 11 hover-formation-control)": [[16, ["inline-array", "vector", 16]]],
"(method 11 hover-formation)": [[16, "vector"]]
}

14
decompiler/config/jak2/type_casts.jsonc
View file

@ -8956,5 +8956,17 @@
],
"(method 11 cas-switch)": [["_stack_", 16, "res-tag"]],
"(method 11 cas-conveyor)": [["_stack_", 16, "res-tag"]],
"(method 11 cas-conveyor-switch)": [["_stack_", 16, "res-tag"]]
"(method 11 cas-conveyor-switch)": [["_stack_", 16, "res-tag"]],
"(method 7 hover-formation)": [[19, "t9", "(function basic int basic)"]],
"(method 11 hover-formation-control)": [[38, "s3", "process-focusable"]],
"(method 16 hover-formation-control)": [[25, "s3", "process-focusable"]],
"(method 13 hover-formation-control)": [
[35, "s2", "process-focusable"],
[16, "v0", "path-control"]
],
"(method 14 hover-formation-control)": [
[37, "s4", "process-focusable"],
[18, "v0", "path-control"]
],
"(method 10 hover-formation-control)": [[28, "s4", "process-focusable"]]
}

87
goal_src/jak2/levels/common/enemy/hover/hover-formation-h.gc
View file

@ -5,5 +5,92 @@
;; name in dgo: hover-formation-h
;; dgos: FOR, DMI, FRA, STR, NEB, D3A, UNB
;; +++formation-type
(defenum formation-type
:type int64
(unknown-0 0)
(unknown-1 1)
(unknown-2 2)
(unknown-3 3)
)
;; ---formation-type
;; DECOMP BEGINS
(deftype form-search-info (structure)
((form uint32 :offset-assert 0)
(count int32 :offset-assert 4)
(pos-table (inline-array vector) :offset-assert 8)
(actor-position vector 16 :inline :offset-assert 16)
(actor-valid? symbol 16 :offset-assert 272)
(index-table uint32 16 :offset-assert 336)
(dest-pos-table vector 16 :inline :offset-assert 400)
(best-mapping uint32 16 :offset-assert 656)
(best-cost float :offset-assert 720)
)
:method-count-assert 9
:size-assert #x2d4
:flag-assert #x9000002d4
)
(deftype hover-actor (structure)
((handle uint64 :offset-assert 0)
(offset vector :inline :offset-assert 16)
)
:method-count-assert 9
:size-assert #x20
:flag-assert #x900000020
)
(deftype hover-formation-control (basic)
((search-info form-search-info :inline :offset-assert 16)
(entity entity :offset-assert 740)
(anchor-proc handle :offset-assert 744)
(actor-table handle 16 :offset-assert 752)
(flags uint16 :offset-assert 880)
(formation-type formation-type :offset-assert 888)
(center vector :inline :offset-assert 896)
(zone-to-world matrix :inline :offset-assert 912)
(world-to-zone matrix :inline :offset-assert 976)
(offset vector :inline :offset-assert 1040)
(focus-quat quaternion :inline :offset-assert 1056)
(notice-dist meters :offset-assert 1072)
(rotation-inc float :offset-assert 1076)
)
:method-count-assert 21
:size-assert #x438
:flag-assert #x1500000438
(:methods
(new (symbol type object entity float vector float handle) _type_ 0)
(set-anchor-proc (_type_ handle) int 9)
(hover-formation-control-method-10 (_type_ vector vector float) symbol 10)
(hover-formation-control-method-11 (_type_) int 11)
(is-formation-type-in-range (_type_) symbol 12)
(hover-formation-control-method-13 (_type_ vector) vector 13)
(hover-formation-control-method-14 (_type_) none 14)
(hover-formation-control-method-15 (_type_ vector vector) vector 15)
(hover-formation-control-method-16 (_type_) object 16)
(hover-formation-control-method-17 (_type_ process) int 17)
(hover-formation-control-method-18 (_type_ process) int 18)
(try-update-formation-type (_type_ formation-type) int 19)
(hover-formation-control-method-20 (_type_ object object) none 20)
)
)
(deftype hover-formation (process)
((formation hover-formation-control :offset-assert 128)
(path path-control :offset-assert 132)
(formation-timer uint64 :offset-assert 136)
)
:heap-base #x10
:method-count-assert 16
:size-assert #x90
:flag-assert #x1000100090
(:methods
(idle () _type_ :state 14)
(hover-formation-method-15 (_type_) int 15)
)
)

719
goal_src/jak2/levels/common/enemy/hover/hover-formation.gc
View file

@ -7,3 +7,722 @@
;; DECOMP BEGINS
(defmethod is-formation-type-in-range hover-formation-control ((obj hover-formation-control))
(case (-> obj formation-type)
(((formation-type unknown-2) (formation-type unknown-3) (formation-type unknown-0))
#f
)
(else
#t
)
)
)
(defmethod hover-formation-control-method-16 hover-formation-control ((obj hover-formation-control))
(let ((gp-0 (hover-formation-control-method-13 obj (new 'stack-no-clear 'vector)))
(s4-0 (cond
((-> obj anchor-proc)
(let ((s3-0 (handle->process (-> obj anchor-proc))))
(if (type? s3-0 process-focusable)
(the-as process-focusable s3-0)
)
)
)
(else
*target*
)
)
)
)
(and s4-0
(< (vector-vector-distance gp-0 (get-trans s4-0 0)) (-> obj notice-dist))
(or (not (logtest? (-> obj flags) 1)) (< (- (-> gp-0 y) (-> (get-trans s4-0 0) y)) 16384.0))
)
)
)
(defmethod set-anchor-proc hover-formation-control ((obj hover-formation-control) (arg0 handle))
(set! (-> obj anchor-proc) arg0)
0
)
(defmethod hover-formation-control-method-13 hover-formation-control ((obj hover-formation-control) (arg0 vector))
(with-pp
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-1 from) (process->ppointer pp))
(set! (-> a1-1 num-params) 0)
(set! (-> a1-1 message) 'path)
(let* ((t9-0 send-event-function)
(v1-2 (-> obj entity))
(s5-0 (the-as path-control (t9-0
(if v1-2
(-> v1-2 extra process)
)
a1-1
)
)
)
(s3-0 (cond
((-> obj anchor-proc)
(let ((s2-0 (handle->process (-> obj anchor-proc))))
(if (type? s2-0 process-focusable)
(the-as process-focusable s2-0)
)
)
)
(else
*target*
)
)
)
)
(cond
((not s3-0)
(set! (-> arg0 quad) (-> obj center quad))
)
(s5-0
(let ((f0-0 (get-path-percentage-at-furthest-point s5-0 (get-trans s3-0 3))))
(get-point-at-percent-along-path! s5-0 arg0 f0-0 'interp)
)
(set! (-> arg0 y) (-> (get-trans s3-0 3) y))
)
(else
(set! (-> arg0 quad) (-> (get-trans s3-0 3) quad))
(set! (-> arg0 w) 1.0)
)
)
)
)
arg0
)
)
(defmethod hover-formation-control-method-14 hover-formation-control ((obj hover-formation-control))
(with-pp
(when (not (logtest? (-> obj flags) 4))
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-0 from) (process->ppointer pp))
(set! (-> a1-0 num-params) 0)
(set! (-> a1-0 message) 'path)
(let* ((t9-0 send-event-function)
(v1-5 (-> obj entity))
(s5-0 (the-as path-control (t9-0
(if v1-5
(-> v1-5 extra process)
)
a1-0
)
)
)
(a0-7 (cond
((-> obj anchor-proc)
(let ((s4-0 (handle->process (-> obj anchor-proc))))
(if (type? s4-0 process-focusable)
(the-as process-focusable s4-0)
)
)
)
(else
*target*
)
)
)
)
(cond
((and s5-0 a0-7)
(let ((f30-1
(fmin
1.0
(+ 0.1
(get-path-percentage-at-furthest-point
s5-0
(hover-formation-control-method-13 obj (new 'stack-no-clear 'vector))
)
)
)
)
)
(let ((s4-2 (new 'stack-no-clear 'vector)))
(displacement-between-points-at-percent-normalized! s5-0 s4-2 f30-1)
(forward-up-nopitch->inv-matrix (-> obj zone-to-world) s4-2 *up-vector*)
)
(set! (-> obj zone-to-world trans quad)
(-> (get-point-at-percent-along-path! s5-0 (new 'stack-no-clear 'vector) f30-1 'interp) quad)
)
)
(matrix-inverse-of-rot-trans! (-> obj world-to-zone) (-> obj zone-to-world))
)
(a0-7
(let* ((a1-11
(quaternion-slerp!
(-> obj focus-quat)
(-> obj focus-quat)
(get-quat a0-7 2)
(* 0.8 (-> pp clock seconds-per-frame))
)
)
(a1-12 (vector-z-quaternion! (new 'stack-no-clear 'vector) a1-11))
)
(forward-up-nopitch->inv-matrix (-> obj zone-to-world) a1-12 *up-vector*)
)
(set! (-> obj zone-to-world trans quad)
(-> (hover-formation-control-method-13 obj (new 'stack-no-clear 'vector)) quad)
)
(matrix-inverse-of-rot-trans! (-> obj world-to-zone) (-> obj zone-to-world))
)
)
)
)
)
0
(none)
)
)
(defmethod hover-formation-control-method-15 hover-formation-control ((obj hover-formation-control) (arg0 vector) (arg1 vector))
(vector-matrix*!
arg0
(hover-formation-control-method-13 obj (new 'stack-no-clear 'vector))
(-> obj world-to-zone)
)
(vector+! arg0 arg0 arg1)
(vector-matrix*! arg0 arg0 (-> obj zone-to-world))
)
(defun odd? ((arg0 int))
(= (logand arg0 1) 1)
)
(defun even? ((arg0 int))
(not (odd? arg0))
)
(deftype gen-perms-context (structure)
((num int32 :offset-assert 0)
(table uint32 :offset-assert 4)
(iterate-count int32 :offset-assert 8)
)
:method-count-assert 9
:size-assert #xc
:flag-assert #x90000000c
)
(defun gen-perms ((arg0 int)
(arg1 (function int int form-search-info uint))
(arg2 (function form-search-info float))
(arg3 form-search-info)
)
(local-vars (sv-80 int))
(let ((s2-0 (new 'stack-no-clear 'gen-perms-context)))
(dotimes (v1-0 arg0)
(set! (-> (the-as (pointer int32) (+ (the-as uint s2-0) (* v1-0 4)))) 0)
)
(arg2 arg3)
(let ((s1-0 1))
(while (< s1-0 arg0)
(cond
((>= (-> (the-as (pointer int32) (+ (the-as uint s2-0) (* s1-0 4)))) s1-0)
(set! (-> (the-as (pointer int32) (+ (the-as uint s2-0) (* s1-0 4)))) 0)
0
)
(else
(let ((s0-0 arg1))
(set! sv-80 s1-0)
(let ((a1-1 (if (odd? s1-0)
(-> (the-as (pointer int32) (+ (the-as uint s2-0) (* s1-0 4))))
0
)
)
(a2-1 arg3)
)
(s0-0 sv-80 a1-1 a2-1)
)
)
(+! (-> (the-as (pointer int32) (+ (the-as uint s2-0) (* s1-0 4)))) 1)
(arg2 arg3)
(set! s1-0 0)
)
)
(+! s1-0 1)
)
)
)
#f
)
(defun test-gen-perms ((arg0 int))
(let ((gp-0 (new 'stack-no-clear 'gen-perms-context))
(s4-0 (new 'stack 'gen-perms-context))
)
(dotimes (v1-1 arg0)
(set! (-> (the-as (pointer int32) (+ (the-as uint gp-0) (* v1-1 4)))) v1-1)
)
(set! (-> s4-0 num) arg0)
(set! (-> s4-0 table) (the-as uint gp-0))
(set! (-> s4-0 iterate-count) 0)
(gen-perms
arg0
(the-as
(function int int form-search-info uint)
(lambda ((arg0 int) (arg1 int) (arg2 (pointer object)))
(let ((v0-0 (-> (the-as (pointer int32) (+ (the-as uint (-> arg2 1)) (* arg0 4))))))
(set! (-> (the-as (pointer int32) (+ (the-as uint (-> arg2 1)) (* arg0 4))))
(-> (the-as (pointer int32) (+ (the-as uint (-> arg2 1)) (* arg1 4))))
)
(set! (-> (the-as (pointer int32) (+ (the-as uint (-> arg2 1)) (* arg1 4)))) v0-0)
v0-0
)
)
)
(the-as
(function form-search-info float)
(lambda ((arg0 vector))
(format #t "(")
(dotimes (s5-0 (the-as int (-> arg0 x)))
(format #t "~d " (-> (the-as (pointer int32) (+ (the-as uint (-> arg0 y)) (* s5-0 4)))))
)
(format #t ")~%")
)
)
(the-as form-search-info s4-0)
)
(format #t "iterate-count: ~d~%" (-> s4-0 iterate-count))
)
)
;; WARN: disable def twice: 148. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
(defmethod hover-formation-control-method-10 hover-formation-control ((obj hover-formation-control) (arg0 vector) (arg1 vector) (arg2 float))
(vector-rotate-y! arg0 arg1 arg2)
(cond
((logtest? (-> obj flags) 2)
(let ((s2-0 (cond
((-> obj anchor-proc)
(let ((s4-0 (handle->process (-> obj anchor-proc))))
(if (type? s4-0 process-focusable)
(the-as process-focusable s4-0)
)
)
)
(else
*target*
)
)
)
(s4-1 (hover-formation-control-method-15 obj (new 'stack-no-clear 'vector) arg0))
(s3-0 (new 'stack-no-clear 'vector))
)
(set! (-> s3-0 quad) (-> (if s2-0
(get-trans s2-0 3)
(-> obj center)
)
quad
)
)
(let ((s5-1 (new 'stack-no-clear 'collide-query))
(gp-1 (new 'stack-no-clear 'collide-query))
)
(let ((s2-1 (new 'stack-no-clear 'vector))
(f30-0 819.2)
)
(vector-normalize! (vector-! s2-1 s4-1 s3-0) 6144.0)
(vector+! s4-1 s4-1 s2-1)
(vector-normalize! (vector-! s2-1 s3-0 s4-1) (+ 204.8 f30-0))
(vector+! s3-0 s3-0 s2-1)
(set! (-> s5-1 start-pos quad) (-> s4-1 quad))
(vector-! (-> s5-1 move-dist) s3-0 (-> s5-1 start-pos))
(let ((f0-2 (vector-length (-> s5-1 move-dist))))
(if (< 81920.0 f0-2)
(vector-float*! (-> s5-1 move-dist) (-> s5-1 move-dist) (/ 81920.0 f0-2))
)
)
(set! (-> gp-1 start-pos quad) (-> s3-0 quad))
(vector-! (-> gp-1 move-dist) s4-1 (-> gp-1 start-pos))
(let ((f0-4 (vector-length (-> gp-1 move-dist))))
(if (< 81920.0 f0-4)
(vector-float*! (-> gp-1 move-dist) (-> gp-1 move-dist) (/ 81920.0 f0-4))
)
)
(let ((v1-32 s5-1))
(set! (-> v1-32 radius) f30-0)
(set! (-> v1-32 collide-with) (collide-spec backgnd))
(set! (-> v1-32 ignore-process0) #f)
(set! (-> v1-32 ignore-process1) #f)
(set! (-> v1-32 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
(set! (-> v1-32 action-mask) (collide-action solid))
)
(let ((v1-33 gp-1))
(set! (-> v1-33 radius) f30-0)
(set! (-> v1-33 collide-with) (collide-spec backgnd))
(set! (-> v1-33 ignore-process0) #f)
(set! (-> v1-33 ignore-process1) #f)
(set! (-> v1-33 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
(set! (-> v1-33 action-mask) (collide-action solid))
)
)
(and (< (fill-and-probe-using-line-sphere *collide-cache* s5-1) 0.0)
(< (fill-and-probe-using-line-sphere *collide-cache* gp-1) 0.0)
)
)
)
)
(else
#t
)
)
)
(defmethod hover-formation-control-method-11 hover-formation-control ((obj hover-formation-control))
(let ((s5-0 (-> obj search-info)))
(set! (-> s5-0 form) (the-as uint obj))
(let ((v1-0 (new 'stack-no-clear 'inline-array 'vector 16)))
(dotimes (a0-1 16)
(set! (-> v1-0 a0-1 quad) (the-as uint128 0))
)
(set! (-> s5-0 pos-table) v1-0)
)
(set! (-> s5-0 best-cost) -1.0)
(set! (-> s5-0 count) 0)
(dotimes (s4-0 16)
(let* ((s3-0 (handle->process (-> obj actor-table s4-0)))
(a0-8 (if (type? s3-0 process-focusable)
(the-as process-focusable s3-0)
)
)
)
(cond
(a0-8
(set! (-> s5-0 actor-position s4-0 quad) (-> (get-trans a0-8 3) quad))
(set! (-> s5-0 actor-valid? s4-0) #t)
(+! (-> s5-0 count) 1)
)
(else
(set! (-> s5-0 actor-valid? s4-0) #f)
)
)
)
(set! (-> s5-0 index-table s4-0) (the-as uint s4-0))
(set! (-> s5-0 best-mapping s4-0) (the-as uint s4-0))
)
(let* ((f30-0 (-> obj rotation-inc))
(f28-0 f30-0)
(s3-2 (+ (the int (/ 65536.0 f30-0)) 1))
(s4-1 0)
)
(let ((s2-0 (new 'stack-no-clear 'vector)))
(when (hover-formation-control-method-10 obj s2-0 (-> obj offset) 0.0)
(set! (-> s5-0 pos-table s4-1 quad) (-> s2-0 quad))
(+! s4-1 1)
)
(let ((s1-0 0))
(while (not (or (>= s1-0 s3-2) (>= s4-1 (-> s5-0 count))))
(when (hover-formation-control-method-10 obj s2-0 (-> obj offset) f28-0)
(set! (-> s5-0 pos-table s4-1 quad) (-> s2-0 quad))
(+! s4-1 1)
)
(when (hover-formation-control-method-10 obj s2-0 (-> obj offset) (- f28-0))
(set! (-> s5-0 pos-table s4-1 quad) (-> s2-0 quad))
(+! s4-1 1)
)
(+! f28-0 f30-0)
(+! s1-0 1)
)
)
)
(when (> (- (-> s5-0 count) s4-1) 0)
(let ((f28-1 0.0))
(dotimes (s3-3 (- (-> s5-0 count) s4-1))
(vector-rotate-y! (-> s5-0 pos-table s3-3) (-> obj offset) f28-1)
(+! f28-1 (* (the float (+ s3-3 1)) f30-0))
(set! f30-0 (* -1.0 f30-0))
)
)
)
)
(dotimes (s4-2 (-> s5-0 count))
(hover-formation-control-method-15 obj (-> s5-0 dest-pos-table s4-2) (-> s5-0 pos-table s4-2))
)
(if (< 1 (-> s5-0 count))
(gen-perms
(-> s5-0 count)
(lambda ((arg0 int) (arg1 int) (arg2 form-search-info))
(let ((v0-0 (-> arg2 index-table arg0)))
(set! (-> arg2 index-table arg0) (-> arg2 index-table arg1))
(set! (-> arg2 index-table arg1) v0-0)
v0-0
)
)
(lambda ((arg0 form-search-info))
(let ((s5-0 0)
(f30-0 0.0)
)
(dotimes (s4-0 (-> arg0 count))
(when (-> arg0 actor-valid? s4-0)
(+! f30-0
(vector-vector-distance (-> arg0 actor-position s4-0) (-> arg0 dest-pos-table (-> arg0 index-table s5-0)))
)
(+! s5-0 1)
)
)
(when (or (= (-> arg0 best-cost) -1.0) (< f30-0 (-> arg0 best-cost)))
(dotimes (v1-18 16)
(set! (-> arg0 best-mapping v1-18) (-> arg0 index-table v1-18))
)
(set! (-> arg0 best-cost) f30-0)
f30-0
)
)
)
s5-0
)
)
(let ((s4-3 0))
(dotimes (s3-4 16)
(let ((v1-71 (-> obj actor-table s3-4)))
(when v1-71
(send-event (handle->process v1-71) 'update-formation (-> s5-0 pos-table (-> s5-0 best-mapping s4-3)))
(+! s4-3 1)
)
)
)
)
)
0
)
(defmethod hover-formation-control-method-17 hover-formation-control ((obj hover-formation-control) (arg0 process))
(let ((v1-2 (process->handle arg0))
(a2-0 -1)
(a1-4 -1)
)
(dotimes (a3-0 16)
(when (= v1-2 (-> obj actor-table a3-0))
(set! a2-0 a3-0)
(goto cfg-17)
)
(if (and (not (-> obj actor-table a3-0)) (= a1-4 -1))
(set! a1-4 a3-0)
)
)
(label cfg-17)
(when (= a2-0 -1)
(cond
((= a1-4 -1)
(format #t "ERROR!!! Too many actors in formation. Currently there is a maximum of ~M. ~%" 16)
)
(else
(when (!= a1-4 -1)
(set! (-> obj actor-table a1-4) (the-as handle v1-2))
(hover-formation-control-method-11 obj)
)
)
)
)
)
0
)
(defmethod hover-formation-control-method-18 hover-formation-control ((obj hover-formation-control) (arg0 process))
(let ((v1-2 (process->handle arg0)))
(dotimes (a1-4 16)
(when (= v1-2 (-> obj actor-table a1-4))
(set! (-> obj actor-table a1-4) (the-as handle #f))
(hover-formation-control-method-11 obj)
#t
(goto cfg-12)
)
)
)
(label cfg-12)
0
)
(defmethod try-update-formation-type hover-formation-control ((obj hover-formation-control) (arg0 formation-type))
(when (!= (-> obj formation-type) arg0)
(set! (-> obj formation-type) arg0)
(hover-formation-control-method-11 obj)
)
0
)
(defmethod new hover-formation-control ((allocation symbol)
(type-to-make type)
(arg0 object)
(arg1 entity)
(arg2 float)
(arg3 vector)
(arg4 float)
(arg5 handle)
)
(let ((gp-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
(set! (-> gp-0 entity) arg1)
(set! (-> gp-0 anchor-proc) arg5)
(set! (-> gp-0 flags) (the-as uint 0))
(set! (-> gp-0 notice-dist) arg2)
(set! (-> gp-0 rotation-inc) arg4)
(set! (-> gp-0 offset quad) (-> arg3 quad))
(set! (-> gp-0 center quad) (-> gp-0 entity extra trans quad))
(quaternion-copy! (-> gp-0 focus-quat) *unity-quaternion*)
(let ((v1-5 (res-lump-value (-> gp-0 entity) 'options uint128 :time -1000000000.0)))
(if (logtest? (the-as int v1-5) 256)
(logior! (-> gp-0 flags) 1)
)
(if (logtest? #x20000 v1-5)
(logior! (-> gp-0 flags) 2)
)
)
(dotimes (v1-10 16)
(set! (-> gp-0 actor-table v1-10) (the-as handle #f))
)
(let ((f0-2 (res-lump-float (-> gp-0 entity) 'rotoffset)))
(matrix-rotate-y! (-> gp-0 zone-to-world) f0-2)
)
(set! (-> gp-0 zone-to-world trans quad) (-> gp-0 center quad))
(matrix-inverse-of-rot-trans! (-> gp-0 world-to-zone) (-> gp-0 zone-to-world))
(set! (-> gp-0 formation-type) (formation-type unknown-3))
gp-0
)
)
(defstate idle (hover-formation)
:virtual #t
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
(local-vars (v0-0 object))
(the-as
object
(case event-type
(('join)
(hover-formation-control-method-17 (-> self formation) proc)
)
(('leave)
(hover-formation-control-method-18 (-> self formation) proc)
)
(('set-type)
(let ((a1-11 1))
(case (-> event param 0)
(('line)
(set! a1-11 0)
)
(('circle)
(set! a1-11 2)
)
(('semicircle)
(set! a1-11 3)
)
)
(try-update-formation-type (-> self formation) (the-as formation-type a1-11))
)
)
(('update-sphere)
(the-as
object
(hover-formation-control-method-20 (-> self formation) (process->handle proc) (-> event param 0))
)
)
(('get-formation)
(-> self formation)
)
(('set-los)
(cond
((-> event param 0)
(set! v0-0 (logior (-> self formation flags) 2))
(set! (-> self formation flags) (the-as uint v0-0))
)
(else
(set! v0-0 (logand -3 (-> self formation flags)))
(set! (-> self formation flags) (the-as uint v0-0))
)
)
v0-0
)
(('path)
(if (not (logtest? (-> self path flags) (path-control-flag not-found)))
(-> self path)
)
)
)
)
)
:code (the-as (function none :behavior hover-formation) sleep-code)
:post (behavior ()
(set-anchor-proc (-> self formation) (process->handle *target*))
(hover-formation-control-method-14 (-> self formation))
(when (and (logtest? (-> self formation flags) 2)
(>= (- (-> self clock frame-counter) (the-as int (-> self formation-timer))) (seconds 0.2))
)
(hover-formation-control-method-11 (-> self formation))
(set! (-> self formation-timer) (the-as uint (-> self clock frame-counter)))
)
(if (not (logtest? (-> self path flags) (path-control-flag not-found)))
(debug-draw (-> self path))
)
(none)
)
)
;; WARN: Return type mismatch basic vs hover-formation.
(defmethod relocate hover-formation ((obj hover-formation) (arg0 int))
(if (nonzero? (-> obj formation))
(&+! (-> obj formation) arg0)
)
(if (nonzero? (-> obj path))
(&+! (-> obj path) arg0)
)
(the-as hover-formation ((the-as (function basic int basic) (find-parent-method hover-formation 7)) obj arg0))
)
(defmethod hover-formation-method-15 hover-formation ((obj hover-formation))
0
)
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! hover-formation ((obj hover-formation) (arg0 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:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(local-vars (sv-32 structure))
(with-pp
(set! (-> obj path) (new 'process 'path-control obj 'path 0.0 (-> obj entity) #f))
(logior! (-> obj path flags) (path-control-flag display draw-line draw-point draw-text))
(let* ((s5-0 (method-of-type hover-formation-control new))
(s4-0 'process)
(s3-0 hover-formation-control)
(s2-0 obj)
(v0-1 (entity-actor-lookup (-> obj entity) 'alt-actor 0))
(s1-0 (if v0-1
v0-1
(-> obj entity)
)
)
(s0-0 (res-lump-float (-> obj entity) 'notice-dist :default 225280.0))
)
(let ((t9-3 (method-of-type res-lump get-property-struct))
(a0-5 (-> obj entity))
(a1-4 'trans-offset)
(a2-3 'interp)
(a3-2 -1000000000.0)
(t0-2 (new 'stack-no-clear 'vector))
)
(set! (-> t0-2 x) 0.0)
(set! (-> t0-2 y) 20480.0)
(set! (-> t0-2 z) 61440.0)
(set! (-> t0-2 w) 1.0)
(set! sv-32 (t9-3 a0-5 a1-4 a2-3 a3-2 t0-2 (the-as (pointer res-tag) #f) *res-static-buf*))
)
(let ((t2-4 (res-lump-float (-> obj entity) 'rotoffset :default 5461.3335))
(t3-0 #f)
)
(set! (-> obj formation) (s5-0 s4-0 s3-0 s2-0 s1-0 s0-0 (the-as vector sv-32) t2-4 (the-as handle t3-0)))
)
)
(set! (-> obj formation-timer) (the-as uint (-> pp clock frame-counter)))
(logclear! (-> obj mask) (process-mask actor-pause))
(process-entity-status! obj (entity-perm-status no-kill) #t)
(hover-formation-method-15 obj)
(go (method-of-object obj idle))
(none)
)
)

157
test/decompiler/reference/jak2/levels/common/enemy/hover/hover-formation-h_REF.gc generated vendored Normal file
View file

@ -0,0 +1,157 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type form-search-info
(deftype form-search-info (structure)
((form uint32 :offset-assert 0)
(count int32 :offset-assert 4)
(pos-table (inline-array vector) :offset-assert 8)
(actor-position vector 16 :inline :offset-assert 16)
(actor-valid? symbol 16 :offset-assert 272)
(index-table uint32 16 :offset-assert 336)
(dest-pos-table vector 16 :inline :offset-assert 400)
(best-mapping uint32 16 :offset-assert 656)
(best-cost float :offset-assert 720)
)
:method-count-assert 9
:size-assert #x2d4
:flag-assert #x9000002d4
)
;; definition for method 3 of type form-search-info
(defmethod inspect form-search-info ((obj form-search-info))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'form-search-info)
(format #t "~1Tform: ~A~%" (-> obj form))
(format #t "~1Tcount: ~D~%" (-> obj count))
(format #t "~1Tpos-table: #x~X~%" (-> obj pos-table))
(format #t "~1Tactor-position[16] @ #x~X~%" (-> obj actor-position))
(format #t "~1Tactor-valid?[16] @ #x~X~%" (-> obj actor-valid?))
(format #t "~1Tindex-table[16] @ #x~X~%" (-> obj index-table))
(format #t "~1Tdest-pos-table[16] @ #x~X~%" (-> obj dest-pos-table))
(format #t "~1Tbest-mapping[16] @ #x~X~%" (-> obj best-mapping))
(format #t "~1Tbest-cost: ~f~%" (-> obj best-cost))
(label cfg-4)
obj
)
;; definition of type hover-actor
(deftype hover-actor (structure)
((handle uint64 :offset-assert 0)
(offset vector :inline :offset-assert 16)
)
:method-count-assert 9
:size-assert #x20
:flag-assert #x900000020
)
;; definition for method 3 of type hover-actor
(defmethod inspect hover-actor ((obj hover-actor))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'hover-actor)
(format #t "~1Thandle: ~D~%" (-> obj handle))
(format #t "~1Toffset: #<vector @ #x~X>~%" (-> obj offset))
(label cfg-4)
obj
)
;; definition of type hover-formation-control
(deftype hover-formation-control (basic)
((search-info form-search-info :inline :offset-assert 16)
(entity entity :offset-assert 740)
(anchor-proc handle :offset-assert 744)
(actor-table handle 16 :offset-assert 752)
(flags uint16 :offset-assert 880)
(formation-type formation-type :offset-assert 888)
(center vector :inline :offset-assert 896)
(zone-to-world matrix :inline :offset-assert 912)
(world-to-zone matrix :inline :offset-assert 976)
(offset vector :inline :offset-assert 1040)
(focus-quat quaternion :inline :offset-assert 1056)
(notice-dist meters :offset-assert 1072)
(rotation-inc float :offset-assert 1076)
)
:method-count-assert 21
:size-assert #x438
:flag-assert #x1500000438
(:methods
(new (symbol type object entity float vector float handle) _type_ 0)
(set-anchor-proc (_type_ handle) int 9)
(hover-formation-control-method-10 (_type_ vector vector float) symbol 10)
(hover-formation-control-method-11 (_type_) int 11)
(is-formation-type-in-range (_type_) symbol 12)
(hover-formation-control-method-13 (_type_ vector) vector 13)
(hover-formation-control-method-14 (_type_) none 14)
(hover-formation-control-method-15 (_type_ vector vector) vector 15)
(hover-formation-control-method-16 (_type_) object 16)
(hover-formation-control-method-17 (_type_ process) int 17)
(hover-formation-control-method-18 (_type_ process) int 18)
(try-update-formation-type (_type_ formation-type) int 19)
(hover-formation-control-method-20 (_type_ object object) none 20)
)
)
;; definition for method 3 of type hover-formation-control
(defmethod inspect hover-formation-control ((obj hover-formation-control))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tsearch-info: #<form-search-info @ #x~X>~%" (-> obj search-info))
(format #t "~1Tentity: ~A~%" (-> obj entity))
(format #t "~1Tanchor-proc: ~D~%" (-> obj anchor-proc))
(format #t "~1Tactor-table[16] @ #x~X~%" (-> obj actor-table))
(format #t "~1Tflags: ~D~%" (-> obj flags))
(format #t "~1Tformation-type: ~D~%" (-> obj formation-type))
(format #t "~1Tcenter: #<vector @ #x~X>~%" (-> obj center))
(format #t "~1Tzone-to-world: #<matrix @ #x~X>~%" (-> obj zone-to-world))
(format #t "~1Tworld-to-zone: #<matrix @ #x~X>~%" (-> obj world-to-zone))
(format #t "~1Toffset: #<vector @ #x~X>~%" (-> obj offset))
(format #t "~1Tfocus-quat: #<quaternion @ #x~X>~%" (-> obj focus-quat))
(format #t "~1Tnotice-dist: ~f~%" (-> obj notice-dist))
(format #t "~1Trotation-inc: ~f~%" (-> obj rotation-inc))
(label cfg-4)
obj
)
;; definition of type hover-formation
(deftype hover-formation (process)
((formation hover-formation-control :offset-assert 128)
(path path-control :offset-assert 132)
(formation-timer uint64 :offset-assert 136)
)
:heap-base #x10
:method-count-assert 16
:size-assert #x90
:flag-assert #x1000100090
(:methods
(idle () _type_ :state 14)
(hover-formation-method-15 (_type_) int 15)
)
)
;; definition for method 3 of type hover-formation
(defmethod inspect hover-formation ((obj hover-formation))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process inspect)))
(t9-0 obj)
)
(format #t "~2Tformation: ~A~%" (-> obj formation))
(format #t "~2Tpath: ~A~%" (-> obj path))
(format #t "~2Tformation-timer: ~D~%" (-> obj formation-timer))
(label cfg-4)
obj
)
;; failed to figure out what this is:
0

764
test/decompiler/reference/jak2/levels/common/enemy/hover/hover-formation_REF.gc generated vendored Normal file
View file

@ -0,0 +1,764 @@
;;-*-Lisp-*-
(in-package goal)
;; definition for method 12 of type hover-formation-control
(defmethod is-formation-type-in-range hover-formation-control ((obj hover-formation-control))
(case (-> obj formation-type)
(((formation-type unknown-2) (formation-type unknown-3) (formation-type unknown-0))
#f
)
(else
#t
)
)
)
;; definition for method 16 of type hover-formation-control
(defmethod hover-formation-control-method-16 hover-formation-control ((obj hover-formation-control))
(let ((gp-0 (hover-formation-control-method-13 obj (new 'stack-no-clear 'vector)))
(s4-0 (cond
((-> obj anchor-proc)
(let ((s3-0 (handle->process (-> obj anchor-proc))))
(if (type? s3-0 process-focusable)
(the-as process-focusable s3-0)
)
)
)
(else
*target*
)
)
)
)
(and s4-0
(< (vector-vector-distance gp-0 (get-trans s4-0 0)) (-> obj notice-dist))
(or (not (logtest? (-> obj flags) 1)) (< (- (-> gp-0 y) (-> (get-trans s4-0 0) y)) 16384.0))
)
)
)
;; definition for method 9 of type hover-formation-control
(defmethod set-anchor-proc hover-formation-control ((obj hover-formation-control) (arg0 handle))
(set! (-> obj anchor-proc) arg0)
0
)
;; definition for method 13 of type hover-formation-control
;; INFO: Used lq/sq
(defmethod hover-formation-control-method-13 hover-formation-control ((obj hover-formation-control) (arg0 vector))
(with-pp
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-1 from) (process->ppointer pp))
(set! (-> a1-1 num-params) 0)
(set! (-> a1-1 message) 'path)
(let* ((t9-0 send-event-function)
(v1-2 (-> obj entity))
(s5-0 (the-as path-control (t9-0
(if v1-2
(-> v1-2 extra process)
)
a1-1
)
)
)
(s3-0 (cond
((-> obj anchor-proc)
(let ((s2-0 (handle->process (-> obj anchor-proc))))
(if (type? s2-0 process-focusable)
(the-as process-focusable s2-0)
)
)
)
(else
*target*
)
)
)
)
(cond
((not s3-0)
(set! (-> arg0 quad) (-> obj center quad))
)
(s5-0
(let ((f0-0 (get-path-percentage-at-furthest-point s5-0 (get-trans s3-0 3))))
(get-point-at-percent-along-path! s5-0 arg0 f0-0 'interp)
)
(set! (-> arg0 y) (-> (get-trans s3-0 3) y))
)
(else
(set! (-> arg0 quad) (-> (get-trans s3-0 3) quad))
(set! (-> arg0 w) 1.0)
)
)
)
)
arg0
)
)
;; definition for method 14 of type hover-formation-control
;; INFO: Used lq/sq
;; WARN: Return type mismatch int vs none.
(defmethod hover-formation-control-method-14 hover-formation-control ((obj hover-formation-control))
(with-pp
(when (not (logtest? (-> obj flags) 4))
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-0 from) (process->ppointer pp))
(set! (-> a1-0 num-params) 0)
(set! (-> a1-0 message) 'path)
(let* ((t9-0 send-event-function)
(v1-5 (-> obj entity))
(s5-0 (the-as path-control (t9-0
(if v1-5
(-> v1-5 extra process)
)
a1-0
)
)
)
(a0-7 (cond
((-> obj anchor-proc)
(let ((s4-0 (handle->process (-> obj anchor-proc))))
(if (type? s4-0 process-focusable)
(the-as process-focusable s4-0)
)
)
)
(else
*target*
)
)
)
)
(cond
((and s5-0 a0-7)
(let ((f30-1
(fmin
1.0
(+ 0.1
(get-path-percentage-at-furthest-point
s5-0
(hover-formation-control-method-13 obj (new 'stack-no-clear 'vector))
)
)
)
)
)
(let ((s4-2 (new 'stack-no-clear 'vector)))
(displacement-between-points-at-percent-normalized! s5-0 s4-2 f30-1)
(forward-up-nopitch->inv-matrix (-> obj zone-to-world) s4-2 *up-vector*)
)
(set! (-> obj zone-to-world trans quad)
(-> (get-point-at-percent-along-path! s5-0 (new 'stack-no-clear 'vector) f30-1 'interp) quad)
)
)
(matrix-inverse-of-rot-trans! (-> obj world-to-zone) (-> obj zone-to-world))
)
(a0-7
(let* ((a1-11
(quaternion-slerp!
(-> obj focus-quat)
(-> obj focus-quat)
(get-quat a0-7 2)
(* 0.8 (-> pp clock seconds-per-frame))
)
)
(a1-12 (vector-z-quaternion! (new 'stack-no-clear 'vector) a1-11))
)
(forward-up-nopitch->inv-matrix (-> obj zone-to-world) a1-12 *up-vector*)
)
(set! (-> obj zone-to-world trans quad)
(-> (hover-formation-control-method-13 obj (new 'stack-no-clear 'vector)) quad)
)
(matrix-inverse-of-rot-trans! (-> obj world-to-zone) (-> obj zone-to-world))
)
)
)
)
)
0
(none)
)
)
;; definition for method 15 of type hover-formation-control
(defmethod hover-formation-control-method-15 hover-formation-control ((obj hover-formation-control) (arg0 vector) (arg1 vector))
(vector-matrix*!
arg0
(hover-formation-control-method-13 obj (new 'stack-no-clear 'vector))
(-> obj world-to-zone)
)
(vector+! arg0 arg0 arg1)
(vector-matrix*! arg0 arg0 (-> obj zone-to-world))
)
;; definition for function odd?
(defun odd? ((arg0 int))
(= (logand arg0 1) 1)
)
;; definition for function even?
(defun even? ((arg0 int))
(not (odd? arg0))
)
;; definition of type gen-perms-context
(deftype gen-perms-context (structure)
((num int32 :offset-assert 0)
(table uint32 :offset-assert 4)
(iterate-count int32 :offset-assert 8)
)
:method-count-assert 9
:size-assert #xc
:flag-assert #x90000000c
)
;; definition for method 3 of type gen-perms-context
(defmethod inspect gen-perms-context ((obj gen-perms-context))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'gen-perms-context)
(format #t "~1Tnum: ~D~%" (-> obj num))
(format #t "~1Ttable: #x~X~%" (-> obj table))
(format #t "~1Titerate-count: ~D~%" (-> obj iterate-count))
(label cfg-4)
obj
)
;; definition for function gen-perms
;; INFO: Used lq/sq
(defun gen-perms ((arg0 int)
(arg1 (function int int form-search-info uint))
(arg2 (function form-search-info float))
(arg3 form-search-info)
)
(local-vars (sv-80 int))
(let ((s2-0 (new 'stack-no-clear 'gen-perms-context)))
(dotimes (v1-0 arg0)
(set! (-> (the-as (pointer int32) (+ (the-as uint s2-0) (* v1-0 4)))) 0)
)
(arg2 arg3)
(let ((s1-0 1))
(while (< s1-0 arg0)
(cond
((>= (-> (the-as (pointer int32) (+ (the-as uint s2-0) (* s1-0 4)))) s1-0)
(set! (-> (the-as (pointer int32) (+ (the-as uint s2-0) (* s1-0 4)))) 0)
0
)
(else
(let ((s0-0 arg1))
(set! sv-80 s1-0)
(let ((a1-1 (if (odd? s1-0)
(-> (the-as (pointer int32) (+ (the-as uint s2-0) (* s1-0 4))))
0
)
)
(a2-1 arg3)
)
(s0-0 sv-80 a1-1 a2-1)
)
)
(+! (-> (the-as (pointer int32) (+ (the-as uint s2-0) (* s1-0 4)))) 1)
(arg2 arg3)
(set! s1-0 0)
)
)
(+! s1-0 1)
)
)
)
#f
)
;; definition for function test-gen-perms
(defun test-gen-perms ((arg0 int))
(let ((gp-0 (new 'stack-no-clear 'gen-perms-context))
(s4-0 (new 'stack 'gen-perms-context))
)
(dotimes (v1-1 arg0)
(set! (-> (the-as (pointer int32) (+ (the-as uint gp-0) (* v1-1 4)))) v1-1)
)
(set! (-> s4-0 num) arg0)
(set! (-> s4-0 table) (the-as uint gp-0))
(set! (-> s4-0 iterate-count) 0)
(gen-perms
arg0
(the-as
(function int int form-search-info uint)
(lambda ((arg0 int) (arg1 int) (arg2 (pointer object)))
(let ((v0-0 (-> (the-as (pointer int32) (+ (the-as uint (-> arg2 1)) (* arg0 4))))))
(set! (-> (the-as (pointer int32) (+ (the-as uint (-> arg2 1)) (* arg0 4))))
(-> (the-as (pointer int32) (+ (the-as uint (-> arg2 1)) (* arg1 4))))
)
(set! (-> (the-as (pointer int32) (+ (the-as uint (-> arg2 1)) (* arg1 4)))) v0-0)
v0-0
)
)
)
(the-as
(function form-search-info float)
(lambda ((arg0 vector))
(format #t "(")
(dotimes (s5-0 (the-as int (-> arg0 x)))
(format #t "~d " (-> (the-as (pointer int32) (+ (the-as uint (-> arg0 y)) (* s5-0 4)))))
)
(format #t ")~%")
)
)
(the-as form-search-info s4-0)
)
(format #t "iterate-count: ~d~%" (-> s4-0 iterate-count))
)
)
;; definition for method 10 of type hover-formation-control
;; INFO: Used lq/sq
;; WARN: disable def twice: 148. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
(defmethod hover-formation-control-method-10 hover-formation-control ((obj hover-formation-control) (arg0 vector) (arg1 vector) (arg2 float))
(vector-rotate-y! arg0 arg1 arg2)
(cond
((logtest? (-> obj flags) 2)
(let ((s2-0 (cond
((-> obj anchor-proc)
(let ((s4-0 (handle->process (-> obj anchor-proc))))
(if (type? s4-0 process-focusable)
(the-as process-focusable s4-0)
)
)
)
(else
*target*
)
)
)
(s4-1 (hover-formation-control-method-15 obj (new 'stack-no-clear 'vector) arg0))
(s3-0 (new 'stack-no-clear 'vector))
)
(set! (-> s3-0 quad) (-> (if s2-0
(get-trans s2-0 3)
(-> obj center)
)
quad
)
)
(let ((s5-1 (new 'stack-no-clear 'collide-query))
(gp-1 (new 'stack-no-clear 'collide-query))
)
(let ((s2-1 (new 'stack-no-clear 'vector))
(f30-0 819.2)
)
(vector-normalize! (vector-! s2-1 s4-1 s3-0) 6144.0)
(vector+! s4-1 s4-1 s2-1)
(vector-normalize! (vector-! s2-1 s3-0 s4-1) (+ 204.8 f30-0))
(vector+! s3-0 s3-0 s2-1)
(set! (-> s5-1 start-pos quad) (-> s4-1 quad))
(vector-! (-> s5-1 move-dist) s3-0 (-> s5-1 start-pos))
(let ((f0-2 (vector-length (-> s5-1 move-dist))))
(if (< 81920.0 f0-2)
(vector-float*! (-> s5-1 move-dist) (-> s5-1 move-dist) (/ 81920.0 f0-2))
)
)
(set! (-> gp-1 start-pos quad) (-> s3-0 quad))
(vector-! (-> gp-1 move-dist) s4-1 (-> gp-1 start-pos))
(let ((f0-4 (vector-length (-> gp-1 move-dist))))
(if (< 81920.0 f0-4)
(vector-float*! (-> gp-1 move-dist) (-> gp-1 move-dist) (/ 81920.0 f0-4))
)
)
(let ((v1-32 s5-1))
(set! (-> v1-32 radius) f30-0)
(set! (-> v1-32 collide-with) (collide-spec backgnd))
(set! (-> v1-32 ignore-process0) #f)
(set! (-> v1-32 ignore-process1) #f)
(set! (-> v1-32 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
(set! (-> v1-32 action-mask) (collide-action solid))
)
(let ((v1-33 gp-1))
(set! (-> v1-33 radius) f30-0)
(set! (-> v1-33 collide-with) (collide-spec backgnd))
(set! (-> v1-33 ignore-process0) #f)
(set! (-> v1-33 ignore-process1) #f)
(set! (-> v1-33 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
(set! (-> v1-33 action-mask) (collide-action solid))
)
)
(and (< (fill-and-probe-using-line-sphere *collide-cache* s5-1) 0.0)
(< (fill-and-probe-using-line-sphere *collide-cache* gp-1) 0.0)
)
)
)
)
(else
#t
)
)
)
;; definition for method 11 of type hover-formation-control
;; INFO: Used lq/sq
(defmethod hover-formation-control-method-11 hover-formation-control ((obj hover-formation-control))
(let ((s5-0 (-> obj search-info)))
(set! (-> s5-0 form) (the-as uint obj))
(let ((v1-0 (new 'stack-no-clear 'inline-array 'vector 16)))
(dotimes (a0-1 16)
(set! (-> v1-0 a0-1 quad) (the-as uint128 0))
)
(set! (-> s5-0 pos-table) v1-0)
)
(set! (-> s5-0 best-cost) -1.0)
(set! (-> s5-0 count) 0)
(dotimes (s4-0 16)
(let* ((s3-0 (handle->process (-> obj actor-table s4-0)))
(a0-8 (if (type? s3-0 process-focusable)
(the-as process-focusable s3-0)
)
)
)
(cond
(a0-8
(set! (-> s5-0 actor-position s4-0 quad) (-> (get-trans a0-8 3) quad))
(set! (-> s5-0 actor-valid? s4-0) #t)
(+! (-> s5-0 count) 1)
)
(else
(set! (-> s5-0 actor-valid? s4-0) #f)
)
)
)
(set! (-> s5-0 index-table s4-0) (the-as uint s4-0))
(set! (-> s5-0 best-mapping s4-0) (the-as uint s4-0))
)
(let* ((f30-0 (-> obj rotation-inc))
(f28-0 f30-0)
(s3-2 (+ (the int (/ 65536.0 f30-0)) 1))
(s4-1 0)
)
(let ((s2-0 (new 'stack-no-clear 'vector)))
(when (hover-formation-control-method-10 obj s2-0 (-> obj offset) 0.0)
(set! (-> s5-0 pos-table s4-1 quad) (-> s2-0 quad))
(+! s4-1 1)
)
(let ((s1-0 0))
(while (not (or (>= s1-0 s3-2) (>= s4-1 (-> s5-0 count))))
(when (hover-formation-control-method-10 obj s2-0 (-> obj offset) f28-0)
(set! (-> s5-0 pos-table s4-1 quad) (-> s2-0 quad))
(+! s4-1 1)
)
(when (hover-formation-control-method-10 obj s2-0 (-> obj offset) (- f28-0))
(set! (-> s5-0 pos-table s4-1 quad) (-> s2-0 quad))
(+! s4-1 1)
)
(+! f28-0 f30-0)
(+! s1-0 1)
)
)
)
(when (> (- (-> s5-0 count) s4-1) 0)
(let ((f28-1 0.0))
(dotimes (s3-3 (- (-> s5-0 count) s4-1))
(vector-rotate-y! (-> s5-0 pos-table s3-3) (-> obj offset) f28-1)
(+! f28-1 (* (the float (+ s3-3 1)) f30-0))
(set! f30-0 (* -1.0 f30-0))
)
)
)
)
(dotimes (s4-2 (-> s5-0 count))
(hover-formation-control-method-15 obj (-> s5-0 dest-pos-table s4-2) (-> s5-0 pos-table s4-2))
)
(if (< 1 (-> s5-0 count))
(gen-perms
(-> s5-0 count)
(lambda ((arg0 int) (arg1 int) (arg2 form-search-info))
(let ((v0-0 (-> arg2 index-table arg0)))
(set! (-> arg2 index-table arg0) (-> arg2 index-table arg1))
(set! (-> arg2 index-table arg1) v0-0)
v0-0
)
)
(lambda ((arg0 form-search-info))
(let ((s5-0 0)
(f30-0 0.0)
)
(dotimes (s4-0 (-> arg0 count))
(when (-> arg0 actor-valid? s4-0)
(+! f30-0
(vector-vector-distance (-> arg0 actor-position s4-0) (-> arg0 dest-pos-table (-> arg0 index-table s5-0)))
)
(+! s5-0 1)
)
)
(when (or (= (-> arg0 best-cost) -1.0) (< f30-0 (-> arg0 best-cost)))
(dotimes (v1-18 16)
(set! (-> arg0 best-mapping v1-18) (-> arg0 index-table v1-18))
)
(set! (-> arg0 best-cost) f30-0)
f30-0
)
)
)
s5-0
)
)
(let ((s4-3 0))
(dotimes (s3-4 16)
(let ((v1-71 (-> obj actor-table s3-4)))
(when v1-71
(send-event (handle->process v1-71) 'update-formation (-> s5-0 pos-table (-> s5-0 best-mapping s4-3)))
(+! s4-3 1)
)
)
)
)
)
0
)
;; definition for method 17 of type hover-formation-control
(defmethod hover-formation-control-method-17 hover-formation-control ((obj hover-formation-control) (arg0 process))
(let ((v1-2 (process->handle arg0))
(a2-0 -1)
(a1-4 -1)
)
(dotimes (a3-0 16)
(when (= v1-2 (-> obj actor-table a3-0))
(set! a2-0 a3-0)
(goto cfg-17)
)
(if (and (not (-> obj actor-table a3-0)) (= a1-4 -1))
(set! a1-4 a3-0)
)
)
(label cfg-17)
(when (= a2-0 -1)
(cond
((= a1-4 -1)
(format #t "ERROR!!! Too many actors in formation. Currently there is a maximum of ~M. ~%" 16)
)
(else
(when (!= a1-4 -1)
(set! (-> obj actor-table a1-4) (the-as handle v1-2))
(hover-formation-control-method-11 obj)
)
)
)
)
)
0
)
;; definition for method 18 of type hover-formation-control
(defmethod hover-formation-control-method-18 hover-formation-control ((obj hover-formation-control) (arg0 process))
(let ((v1-2 (process->handle arg0)))
(dotimes (a1-4 16)
(when (= v1-2 (-> obj actor-table a1-4))
(set! (-> obj actor-table a1-4) (the-as handle #f))
(hover-formation-control-method-11 obj)
#t
(goto cfg-12)
)
)
)
(label cfg-12)
0
)
;; definition for method 19 of type hover-formation-control
(defmethod try-update-formation-type hover-formation-control ((obj hover-formation-control) (arg0 formation-type))
(when (!= (-> obj formation-type) arg0)
(set! (-> obj formation-type) arg0)
(hover-formation-control-method-11 obj)
)
0
)
;; definition for method 0 of type hover-formation-control
;; INFO: Used lq/sq
(defmethod new hover-formation-control ((allocation symbol)
(type-to-make type)
(arg0 object)
(arg1 entity)
(arg2 float)
(arg3 vector)
(arg4 float)
(arg5 handle)
)
(let ((gp-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
(set! (-> gp-0 entity) arg1)
(set! (-> gp-0 anchor-proc) arg5)
(set! (-> gp-0 flags) (the-as uint 0))
(set! (-> gp-0 notice-dist) arg2)
(set! (-> gp-0 rotation-inc) arg4)
(set! (-> gp-0 offset quad) (-> arg3 quad))
(set! (-> gp-0 center quad) (-> gp-0 entity extra trans quad))
(quaternion-copy! (-> gp-0 focus-quat) *unity-quaternion*)
(let ((v1-5 (res-lump-value (-> gp-0 entity) 'options uint128 :time -1000000000.0)))
(if (logtest? (the-as int v1-5) 256)
(logior! (-> gp-0 flags) 1)
)
(if (logtest? #x20000 v1-5)
(logior! (-> gp-0 flags) 2)
)
)
(dotimes (v1-10 16)
(set! (-> gp-0 actor-table v1-10) (the-as handle #f))
)
(let ((f0-2 (res-lump-float (-> gp-0 entity) 'rotoffset)))
(matrix-rotate-y! (-> gp-0 zone-to-world) f0-2)
)
(set! (-> gp-0 zone-to-world trans quad) (-> gp-0 center quad))
(matrix-inverse-of-rot-trans! (-> gp-0 world-to-zone) (-> gp-0 zone-to-world))
(set! (-> gp-0 formation-type) (formation-type unknown-3))
gp-0
)
)
;; failed to figure out what this is:
(defstate idle (hover-formation)
:virtual #t
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
(local-vars (v0-0 object))
(the-as
object
(case event-type
(('join)
(hover-formation-control-method-17 (-> self formation) proc)
)
(('leave)
(hover-formation-control-method-18 (-> self formation) proc)
)
(('set-type)
(let ((a1-11 1))
(case (-> event param 0)
(('line)
(set! a1-11 0)
)
(('circle)
(set! a1-11 2)
)
(('semicircle)
(set! a1-11 3)
)
)
(try-update-formation-type (-> self formation) (the-as formation-type a1-11))
)
)
(('update-sphere)
(the-as
object
(hover-formation-control-method-20 (-> self formation) (process->handle proc) (-> event param 0))
)
)
(('get-formation)
(-> self formation)
)
(('set-los)
(cond
((-> event param 0)
(set! v0-0 (logior (-> self formation flags) 2))
(set! (-> self formation flags) (the-as uint v0-0))
)
(else
(set! v0-0 (logand -3 (-> self formation flags)))
(set! (-> self formation flags) (the-as uint v0-0))
)
)
v0-0
)
(('path)
(if (not (logtest? (-> self path flags) (path-control-flag not-found)))
(-> self path)
)
)
)
)
)
:code (the-as (function none :behavior hover-formation) sleep-code)
:post (behavior ()
(set-anchor-proc (-> self formation) (process->handle *target*))
(hover-formation-control-method-14 (-> self formation))
(when (and (logtest? (-> self formation flags) 2)
(>= (- (-> self clock frame-counter) (the-as int (-> self formation-timer))) (seconds 0.2))
)
(hover-formation-control-method-11 (-> self formation))
(set! (-> self formation-timer) (the-as uint (-> self clock frame-counter)))
)
(if (not (logtest? (-> self path flags) (path-control-flag not-found)))
(debug-draw (-> self path))
)
(none)
)
)
;; definition for method 7 of type hover-formation
;; WARN: Return type mismatch basic vs hover-formation.
(defmethod relocate hover-formation ((obj hover-formation) (arg0 int))
(if (nonzero? (-> obj formation))
(&+! (-> obj formation) arg0)
)
(if (nonzero? (-> obj path))
(&+! (-> obj path) arg0)
)
(the-as hover-formation ((the-as (function basic int basic) (find-parent-method hover-formation 7)) obj arg0))
)
;; definition for method 15 of type hover-formation
(defmethod hover-formation-method-15 hover-formation ((obj hover-formation))
0
)
;; definition for method 11 of type hover-formation
;; INFO: Used lq/sq
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! hover-formation ((obj hover-formation) (arg0 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:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(local-vars (sv-32 structure))
(with-pp
(set! (-> obj path) (new 'process 'path-control obj 'path 0.0 (-> obj entity) #f))
(logior! (-> obj path flags) (path-control-flag display draw-line draw-point draw-text))
(let* ((s5-0 (method-of-type hover-formation-control new))
(s4-0 'process)
(s3-0 hover-formation-control)
(s2-0 obj)
(v0-1 (entity-actor-lookup (-> obj entity) 'alt-actor 0))
(s1-0 (if v0-1
v0-1
(-> obj entity)
)
)
(s0-0 (res-lump-float (-> obj entity) 'notice-dist :default 225280.0))
)
(let ((t9-3 (method-of-type res-lump get-property-struct))
(a0-5 (-> obj entity))
(a1-4 'trans-offset)
(a2-3 'interp)
(a3-2 -1000000000.0)
(t0-2 (new 'stack-no-clear 'vector))
)
(set! (-> t0-2 x) 0.0)
(set! (-> t0-2 y) 20480.0)
(set! (-> t0-2 z) 61440.0)
(set! (-> t0-2 w) 1.0)
(set! sv-32 (t9-3 a0-5 a1-4 a2-3 a3-2 t0-2 (the-as (pointer res-tag) #f) *res-static-buf*))
)
(let ((t2-4 (res-lump-float (-> obj entity) 'rotoffset :default 5461.3335))
(t3-0 #f)
)
(set! (-> obj formation) (s5-0 s4-0 s3-0 s2-0 s1-0 s0-0 (the-as vector sv-32) t2-4 (the-as handle t3-0)))
)
)
(set! (-> obj formation-timer) (the-as uint (-> pp clock frame-counter)))
(logclear! (-> obj mask) (process-mask actor-pause))
(process-entity-status! obj (entity-perm-status no-kill) #t)
(hover-formation-method-15 obj)
(go (method-of-object obj idle))
(none)
)
)