mirror of
https://github.com/open-goal/jak-project
synced 2026-06-22 09:05:44 -04:00
ManDude
cd68cb671e
Major change to how `deftype` shows up in our code: - the decompiler will no longer emit the `offset-assert`, `method-count-assert`, `size-assert` and `flag-assert` parameters. There are extremely few cases where having this in the decompiled code is helpful, as the types there come from `all-types` which already has those parameters. This also doesn't break type consistency because: - the asserts aren't compared. - the first step of the test uses `all-types`, which has the asserts, which will throw an error if they're bad. - the decompiler won't emit the `heap-base` parameter unless necessary now. - the decompiler will try its hardest to turn a fixed-offset field into an `overlay-at` field. It falls back to the old offset if all else fails. - `overlay-at` now supports field "dereferencing" to specify the offset that's within a field that's a structure, e.g.: ```lisp (deftype foobar (structure) ((vec vector :inline) (flags int32 :overlay-at (-> vec w)) ) ) ``` in this structure, the offset of `flags` will be 12 because that is the final offset of `vec`'s `w` field within this structure. - **removed ID from all method declarations.** IDs are only ever automatically assigned now. Fixes #3068. - added an `:overlay` parameter to method declarations, in order to declare a new method that goes on top of a previously-defined method. Syntax is `:overlay <method-name>`. Please do not ever use this. - added `state-methods` list parameter. This lets you quickly specify a list of states to be put in the method table. Same syntax as the `states` list parameter. The decompiler will try to put as many states in this as it can without messing with the method ID order. Also changes `defmethod` to make the first type definition (before the arguments) optional. The type can now be inferred from the first argument. Fixes #3093. --------- Co-authored-by: Hat Kid <6624576+Hat-Kid@users.noreply.github.com>
721 lines
24 KiB
Common Lisp
Vendored
Generated
721 lines
24 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate fuel-cell-spline-slider (fuel-cell)
|
|
:trans hide-hud-quick
|
|
:code (behavior ((arg0 handle) (arg1 float) (arg2 float))
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(ja :group! fuel-cell-idle-ja)
|
|
(if *target*
|
|
(process-grab? *target*)
|
|
)
|
|
(hide-hud-quick)
|
|
(set! *camera-look-through-other* 2)
|
|
(set! (-> *camera-other-fov* data) 11650.845)
|
|
(set! (-> *camera-other-trans* quad) (-> *math-camera* trans quad))
|
|
(set! (-> *camera-other-root* quad) (-> *math-camera* trans quad))
|
|
(set-time! (-> self state-time))
|
|
(loop
|
|
(dotimes (v1-14 (the int (-> *display* time-adjust-ratio)))
|
|
(set! arg2 (* 0.95 arg2))
|
|
)
|
|
(when (and (< (fabs arg2) 13.653334) (time-elapsed? (-> self state-time) (seconds 1.5)))
|
|
(if *target*
|
|
(process-release? *target*)
|
|
)
|
|
(go-virtual wait)
|
|
)
|
|
(set! arg1 (+ arg1 (/ (* arg2 (seconds-per-frame)) (path-distance (-> self path)))))
|
|
(cond
|
|
((< 1.0 arg1)
|
|
(set! arg1 (+ -1.0 arg1))
|
|
)
|
|
((< arg1 0.0)
|
|
(set! arg1 (+ 1.0 arg1))
|
|
)
|
|
)
|
|
(eval-path-curve! (-> self path) (-> self root trans) arg1 'interp)
|
|
(+! (-> self root trans y) 8192.0)
|
|
(set! (-> self root trans y) (fmax 106496.0 (-> self root trans y)))
|
|
(set! (-> self base quad) (-> self root trans quad))
|
|
(transform-post)
|
|
(animate self)
|
|
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
|
(vector-! s4-0 (-> self root trans) *camera-other-trans*)
|
|
(vector-normalize! s4-0 1.0)
|
|
(forward-down->inv-matrix *camera-other-matrix* s4-0 (new 'static 'vector :y -1.0 :w 1.0))
|
|
)
|
|
(set! *camera-look-through-other* 2)
|
|
(set-letterbox-frames (seconds 0.035))
|
|
(suspend)
|
|
(ja :num! (loop! 0.5))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function fuel-cell-init-as-spline-slider
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior fuel-cell-init-as-spline-slider fuel-cell ((arg0 handle) (arg1 float) (arg2 float) (arg3 int))
|
|
(initialize self)
|
|
(set! (-> self fact pickup-type) (pickup-type fuel-cell))
|
|
(set! (-> self fact pickup-amount) (the float arg3))
|
|
(initialize-params self 0 1024.0)
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(set! (-> self actor-pause) #f)
|
|
(set! (-> self entity) (-> arg0 process 0 entity))
|
|
(set! (-> self path) (new 'process 'curve-control self 'path -1000000000.0))
|
|
(set! (-> self movie-pos-index) -1)
|
|
(go fuel-cell-spline-slider arg0 arg1 arg2)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type robber
|
|
(deftype robber (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(curve-position float)
|
|
(speed float)
|
|
(facing vector :inline)
|
|
(tangent vector :inline)
|
|
(run-blend-interp float)
|
|
(near-timer int32)
|
|
(far-time time-frame)
|
|
(y-offset float)
|
|
(y-offset-desired float)
|
|
(y-vel float)
|
|
(water-height float)
|
|
(timeout time-frame)
|
|
(last-ambient-time time-frame)
|
|
(time-to-next-ambient time-frame)
|
|
)
|
|
(:states
|
|
robber-dead
|
|
robber-debug
|
|
robber-die
|
|
robber-flee
|
|
robber-got-away
|
|
robber-idle
|
|
robber-initial
|
|
robber-initial-notice
|
|
robber-tired
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type robber
|
|
(defmethod inspect ((this robber))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tcurve-position: ~f~%" (-> this curve-position))
|
|
(format #t "~T~Tspeed: ~f~%" (-> this speed))
|
|
(format #t "~T~Tfacing: #<vector @ #x~X>~%" (-> this facing))
|
|
(format #t "~T~Ttangent: #<vector @ #x~X>~%" (-> this tangent))
|
|
(format #t "~T~Trun-blend-interp: ~f~%" (-> this run-blend-interp))
|
|
(format #t "~T~Tnear-timer: ~D~%" (-> this near-timer))
|
|
(format #t "~T~Tfar-time: ~D~%" (-> this far-time))
|
|
(format #t "~T~Ty-offset: ~f~%" (-> this y-offset))
|
|
(format #t "~T~Ty-offset-desired: ~f~%" (-> this y-offset-desired))
|
|
(format #t "~T~Ty-vel: ~f~%" (-> this y-vel))
|
|
(format #t "~T~Twater-height: ~f~%" (-> this water-height))
|
|
(format #t "~T~Ttimeout: ~D~%" (-> this timeout))
|
|
(format #t "~T~Tlast-ambient-time: ~D~%" (-> this last-ambient-time))
|
|
(format #t "~T~Ttime-to-next-ambient: ~D~%" (-> this time-to-next-ambient))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *robber-sg* robber robber-lod0-jg robber-idle-hover-ja
|
|
((robber-lod0-mg (meters 20)) (robber-lod1-mg (meters 40)) (robber-lod2-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 4)
|
|
:shadow robber-shadow-mg
|
|
)
|
|
|
|
;; definition for function robber-event-handler
|
|
(defbehavior robber-event-handler robber ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('attack)
|
|
(go robber-die)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robber-task-complete?
|
|
(defbehavior robber-task-complete? robber ()
|
|
(local-vars (sv-16 symbol))
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(when (or (-> self link prev) (-> self link next))
|
|
(set! sv-16 (the-as symbol #f))
|
|
(apply-all (-> self link) actor-link-subtask-complete-hook (& sv-16))
|
|
(cond
|
|
(sv-16
|
|
(close-specific-task! (-> self entity extra perm task) (task-status need-reminder))
|
|
(format #t "robber task is complete~%")
|
|
)
|
|
(else
|
|
)
|
|
)
|
|
sv-16
|
|
)
|
|
)
|
|
|
|
;; definition for function robber-find-ground
|
|
;; INFO: Used lq/sq
|
|
(defbehavior robber-find-ground robber ()
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> gp-0 quad) (-> self root trans quad))
|
|
(let ((t2-0 (new 'stack-no-clear 'collide-tri-result)))
|
|
(+! (-> gp-0 y) 8192.0)
|
|
(let ((f0-2 (fill-and-probe-using-line-sphere
|
|
*collide-cache*
|
|
gp-0
|
|
(new 'static 'vector :y -81920.0 :w 1.0)
|
|
40.96
|
|
(collide-kind background)
|
|
self
|
|
t2-0
|
|
(new 'static 'pat-surface :noentity #x1)
|
|
)
|
|
)
|
|
(v1-5 (new 'stack-no-clear 'vector))
|
|
)
|
|
(set! (-> v1-5 quad) (-> self root trans quad))
|
|
(set! (-> v1-5 y) (+ (-> gp-0 y) (* -81920.0 f0-2)))
|
|
(cond
|
|
((and (>= f0-2 0.0) (< 204.8 (fabs (- (-> v1-5 y) (-> self water-height)))))
|
|
(set! (-> self y-offset-desired)
|
|
(- (+ (-> gp-0 y) (* -81920.0 f0-2)) (- (-> self root trans y) (-> self y-offset)))
|
|
)
|
|
#t
|
|
)
|
|
(else
|
|
(set! (-> self y-offset-desired) 0.0)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robber-rotate
|
|
;; INFO: Used lq/sq
|
|
(defbehavior robber-rotate robber ((arg0 target) (arg1 float))
|
|
(let ((s5-0 (new 'stack-no-clear 'matrix))
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(path-control-method-14 (-> self path) (-> self tangent) (-> self curve-position))
|
|
(cond
|
|
((and arg0 *target*)
|
|
(vector-! gp-0 (-> self root trans) (target-pos 0))
|
|
(vector-normalize! gp-0 1.0)
|
|
)
|
|
((< (-> self speed) 0.0)
|
|
(vector-negate! gp-0 (-> self tangent))
|
|
)
|
|
(else
|
|
(set! (-> gp-0 quad) (-> self tangent quad))
|
|
)
|
|
)
|
|
(matrix-from-two-vectors-max-angle-partial! s5-0 (-> self facing) gp-0 arg1 0.25)
|
|
(vector-matrix*! gp-0 (-> self facing) s5-0)
|
|
(vector-normalize! gp-0 1.0)
|
|
(forward-down->inv-matrix s5-0 gp-0 (new 'static 'vector :y -1.0))
|
|
(matrix->quaternion (-> self root quat) s5-0)
|
|
(set! (-> self run-blend-interp) (acos (vector-dot gp-0 (-> self facing))))
|
|
(set! (-> self run-blend-interp) (* 0.0002746582 (-> self run-blend-interp)))
|
|
(if (< (vector-dot (-> self facing) (the-as vector (-> s5-0 vector))) 0.0)
|
|
(set! (-> self run-blend-interp) (- (-> self run-blend-interp)))
|
|
)
|
|
(let ((v0-10 (-> self facing)))
|
|
(set! (-> v0-10 quad) (-> gp-0 quad))
|
|
v0-10
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robber-move
|
|
(defbehavior robber-move robber ()
|
|
(+! (-> self curve-position)
|
|
(/ (the float (* (- (current-time) (-> *display* old-base-frame-counter)) (the int (-> self speed))))
|
|
(path-distance (-> self path))
|
|
)
|
|
)
|
|
(cond
|
|
((< 1.0 (-> self curve-position))
|
|
(+! (-> self curve-position) -1.0)
|
|
)
|
|
((< (-> self curve-position) 0.0)
|
|
(+! (-> self curve-position) 1.0)
|
|
)
|
|
)
|
|
(eval-path-curve! (-> self path) (-> self root trans) (-> self curve-position) 'interp)
|
|
(cond
|
|
((< (-> self y-offset-desired) (-> self y-offset))
|
|
(set! (-> self y-vel) (* 0.25 (- (-> self y-offset-desired) (-> self y-offset))))
|
|
(set! (-> self y-vel) (fmax -3.4133334 (-> self y-vel)))
|
|
(+! (-> self y-offset) (-> self y-vel))
|
|
(when (>= (-> self y-offset-desired) (-> self y-offset))
|
|
(set! (-> self y-offset) (-> self y-offset-desired))
|
|
(set! (-> self y-vel) 0.0)
|
|
)
|
|
)
|
|
((< (-> self y-offset) (-> self y-offset-desired))
|
|
(set! (-> self y-vel) (* 0.5 (- (-> self y-offset-desired) (-> self y-offset))))
|
|
(set! (-> self y-vel) (fmin 13.653334 (-> self y-vel)))
|
|
(+! (-> self y-offset) (-> self y-vel))
|
|
(when (>= (-> self y-offset) (-> self y-offset-desired))
|
|
(set! (-> self y-offset) (-> self y-offset-desired))
|
|
(set! (-> self y-vel) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self root trans y) (+ (-> self root trans y) (-> self y-offset)))
|
|
)
|
|
|
|
;; definition for function robber-calc-speed
|
|
(defbehavior robber-calc-speed robber ((arg0 float) (arg1 float) (arg2 float) (arg3 float) (arg4 symbol))
|
|
(let ((gp-1 (vector-! (new 'stack-no-clear 'vector) (-> self root trans) (target-pos 0))))
|
|
(set! (-> gp-1 y) 0.0)
|
|
(let* ((f2-1 (/ (- (vector-length gp-1) arg0) (- arg1 arg0)))
|
|
(f0-4 (- 1.0 (fmax 0.0 (fmin 1.0 f2-1))))
|
|
(f0-5 (lerp arg3 arg2 f0-4))
|
|
(f30-0 (* 0.0033333334 f0-5))
|
|
)
|
|
(cond
|
|
((or (not arg4) (< arg0 (vector-length gp-1)))
|
|
(if (< (-> self speed) 0.0)
|
|
(set! f30-0 (- f30-0))
|
|
)
|
|
)
|
|
((< (vector-dot gp-1 (-> self tangent)) 0.0)
|
|
(set! f30-0 (- f30-0))
|
|
)
|
|
)
|
|
(set! (-> self speed) f30-0)
|
|
f30-0
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robber-calc-anim-speed
|
|
(defbehavior robber-calc-anim-speed robber ()
|
|
(let* ((f0-1 (fabs (-> self speed)))
|
|
(f0-2 (* 0.07324219 f0-1))
|
|
(f0-3 (+ -15.0 f0-2))
|
|
(f1-3 (* 0.13333334 f0-3))
|
|
)
|
|
(fmin 1.5 (fmax 0.9 f1-3))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-debug (robber)
|
|
:code (behavior ()
|
|
(loop
|
|
(ja-no-eval :group! (ja-group) :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(let ((a1-1 (new 'stack-no-clear 'vector)))
|
|
(clmf-input gp-0 a1-1 1)
|
|
)
|
|
(format *stdcon* "rv ~f ~f ~f~%" (-> gp-0 x) (-> gp-0 y) (-> gp-0 z))
|
|
(vector-float*! gp-0 gp-0 4096.0)
|
|
(+! (-> self curve-position) (/ (-> gp-0 y) (path-distance (-> self path))))
|
|
)
|
|
(cond
|
|
((< 1.0 (-> self curve-position))
|
|
(+! (-> self curve-position) -1.0)
|
|
)
|
|
((< (-> self curve-position) 0.0)
|
|
(+! (-> self curve-position) 1.0)
|
|
)
|
|
)
|
|
(eval-path-curve! (-> self path) (-> self root trans) (-> self curve-position) 'interp)
|
|
(robber-rotate (the-as target #f) 1820.4445)
|
|
(robber-find-ground)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-dead (robber)
|
|
:code (behavior ()
|
|
(cleanup-for-death self)
|
|
(deactivate self)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-die (robber)
|
|
:event process-drawable-death-event-handler
|
|
:code (behavior ()
|
|
(let ((gp-0 #t))
|
|
(when (robber-task-complete?)
|
|
(let ((v1-3 (-> self entity extra perm)))
|
|
(logior! (-> v1-3 status) (entity-perm-status user-set-from-cstage))
|
|
(cond
|
|
((zero? (-> v1-3 user-object 1))
|
|
(set! (-> v1-3 user-object 1) 1)
|
|
(set! (-> v1-3 user-object 0) (-> self curve-position))
|
|
(let ((f30-0 (if (>= (-> self speed) 0.0)
|
|
163840.0
|
|
-163840.0
|
|
)
|
|
)
|
|
)
|
|
(process-spawn
|
|
fuel-cell
|
|
:init fuel-cell-init-as-spline-slider
|
|
(process->handle self)
|
|
(-> self curve-position)
|
|
f30-0
|
|
(-> self entity extra perm task)
|
|
:to self
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! gp-0 #f)
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(let ((s5-1 (new 'stack-no-clear 'vector)))
|
|
(eval-path-curve! (-> self path) s5-1 (the-as float (-> v1-3 user-object 0)) 'interp)
|
|
(+! (-> s5-1 y) 8192.0)
|
|
(birth-pickup-at-point
|
|
s5-1
|
|
(pickup-type fuel-cell)
|
|
(the float (-> self entity extra perm task))
|
|
#f
|
|
self
|
|
(the-as fact-info #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when gp-0
|
|
(ja-no-eval :group! robber-death-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(robber-calc-speed 4096.0 8192.0 122880.0 122880.0 #f)
|
|
(robber-move)
|
|
(robber-rotate (the-as target #f) 1820.4445)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
(go robber-dead)
|
|
)
|
|
:post transform-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-got-away (robber)
|
|
:event robber-event-handler
|
|
:trans (behavior ()
|
|
(if (and (not (and *target* (>= 204800.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
)
|
|
(robber-find-ground)
|
|
)
|
|
(go robber-idle)
|
|
)
|
|
(if (and *target* (>= 122880.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
(go robber-flee)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(when (not (ja-group? robber-fly-ja))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja :group! robber-fly-ja)
|
|
)
|
|
(loop
|
|
(ja :num! (loop! (robber-calc-anim-speed)))
|
|
(if (< 27.306667 (fabs (-> self speed)))
|
|
(set! (-> self speed) (* 0.95 (-> self speed)))
|
|
)
|
|
(robber-move)
|
|
(robber-rotate (the-as target #f) 1820.4445)
|
|
(suspend)
|
|
)
|
|
)
|
|
:post transform-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-tired (robber)
|
|
:event robber-event-handler
|
|
:enter (behavior ()
|
|
(set! (-> self y-offset-desired) -12288.0)
|
|
)
|
|
:exit (behavior ()
|
|
(set! (-> self y-offset-desired) 0.0)
|
|
)
|
|
:trans (behavior ()
|
|
(if (not (and *target* (>= 163840.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
)
|
|
(go robber-got-away)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(when (not (ja-group? robber-fly-ja))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja :group! robber-fly-ja)
|
|
)
|
|
(ja :num! (loop! (robber-calc-anim-speed)))
|
|
(robber-calc-speed 32768.0 122880.0 122060.8 20480.0 #f)
|
|
(robber-move)
|
|
(robber-rotate (the-as target #f) 1820.4445)
|
|
(suspend)
|
|
(when (time-elapsed? (-> self last-ambient-time) (-> self time-to-next-ambient))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja-no-eval :group! robber-ambient-look-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(robber-calc-speed 32768.0 122880.0 122060.8 20480.0 #f)
|
|
(robber-move)
|
|
(robber-rotate (the-as target #f) 1820.4445)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(set-time! (-> self last-ambient-time))
|
|
(let* ((f30-0 300.0)
|
|
(f28-0 2.0)
|
|
(f26-0 2.0)
|
|
(v1-41 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-42 (the-as number (logior #x3f800000 v1-41)))
|
|
)
|
|
(set! (-> self time-to-next-ambient)
|
|
(the-as time-frame (the int (* f30-0 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-42)))))))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:post transform-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-flee (robber)
|
|
:event robber-event-handler
|
|
:enter (behavior ()
|
|
(set! (-> self near-timer) 3000)
|
|
(set-time! (-> self far-time))
|
|
(set! (-> self y-offset-desired) 0.0)
|
|
)
|
|
:trans (behavior ()
|
|
(if (not (and *target* (>= 163840.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
)
|
|
(go robber-got-away)
|
|
)
|
|
(when (and *target* (>= 102400.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
(set! (-> self near-timer)
|
|
(- (the-as time-frame (-> self near-timer)) (- (current-time) (-> *display* old-base-frame-counter)))
|
|
)
|
|
(if (<= (-> self near-timer) 0)
|
|
(go robber-tired)
|
|
)
|
|
(set-time! (-> self far-time))
|
|
)
|
|
(if (time-elapsed? (-> self far-time) (seconds 3))
|
|
(set! (-> self near-timer) (the-as int (-> self timeout)))
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(when (not (ja-group? robber-fly-ja))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja :group! robber-fly-ja)
|
|
)
|
|
(ja :num! (loop! (robber-calc-anim-speed)))
|
|
(robber-calc-speed 61440.0 122880.0 204800.0 16384.0 #t)
|
|
(robber-move)
|
|
(robber-rotate (the-as target #f) 1820.4445)
|
|
(suspend)
|
|
(when (time-elapsed? (-> self last-ambient-time) (-> self time-to-next-ambient))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja-no-eval :group! robber-ambient-look-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(robber-calc-speed 61440.0 122880.0 204800.0 16384.0 #t)
|
|
(robber-move)
|
|
(robber-rotate (the-as target #f) 1820.4445)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(set-time! (-> self last-ambient-time))
|
|
(let* ((f30-0 300.0)
|
|
(f28-0 3.0)
|
|
(f26-0 5.0)
|
|
(v1-41 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-42 (the-as number (logior #x3f800000 v1-41)))
|
|
)
|
|
(set! (-> self time-to-next-ambient)
|
|
(the-as time-frame (the int (* f30-0 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-42)))))))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:post transform-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-idle (robber)
|
|
:event robber-event-handler
|
|
:enter (behavior ()
|
|
(set! (-> self speed) 0.0)
|
|
)
|
|
:trans (behavior ()
|
|
(if (and *target* (>= 122880.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
(go robber-flee)
|
|
)
|
|
(robber-rotate (the-as target #t) 182.04445)
|
|
(robber-move)
|
|
)
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(loop
|
|
(ja-no-eval :group! robber-idle-hover-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
:post transform-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-initial-notice (robber)
|
|
:event robber-event-handler
|
|
:trans (behavior ()
|
|
(when (logtest? (-> self draw status) (draw-status was-drawn))
|
|
(if (and *target* (>= 163840.0 (vector-vector-distance (-> self root trans) (-> *target* control trans))))
|
|
(level-hint-spawn (text-id rolling-robbers-hint) "sksp0116" (the-as entity #f) *entity-pool* (game-task none))
|
|
)
|
|
)
|
|
(if (and *target* (>= 32768.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
(go robber-flee)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(path-control-method-14 (-> self path) (-> self tangent) (-> self curve-position))
|
|
(let ((gp-1 (vector-! (new 'stack-no-clear 'vector) (-> self root trans) (target-pos 0)))
|
|
(f0-1 6.826667)
|
|
)
|
|
(set! (-> gp-1 y) 0.0)
|
|
(if (< (vector-dot gp-1 (-> self tangent)) 0.0)
|
|
(set! f0-1 (- f0-1))
|
|
)
|
|
(set! (-> self speed) f0-1)
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(loop
|
|
(ja-no-eval :group! robber-spots-ja :num! (seek! max 2.0) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(robber-calc-speed 61440.0 122880.0 2048.0 2048.0 #t)
|
|
(robber-rotate (the-as target #f) 1820.4445)
|
|
(suspend)
|
|
(ja :num! (seek! max 2.0))
|
|
)
|
|
(go robber-flee)
|
|
)
|
|
)
|
|
:post transform-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robber-initial (robber)
|
|
:event robber-event-handler
|
|
:enter (behavior ()
|
|
(set! (-> self speed) 0.0)
|
|
)
|
|
:trans (behavior ()
|
|
(if (and *target* (>= 122880.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
(go robber-initial-notice)
|
|
)
|
|
(robber-move)
|
|
)
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(loop
|
|
(ja-no-eval :group! robber-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
:post transform-post
|
|
)
|
|
|
|
;; definition for method 11 of type robber
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this robber) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (collide-list-enum hit-by-player))))
|
|
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-0 reaction) default-collision-reaction)
|
|
(set! (-> s4-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
|
|
)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s3-0 collide-with) (collide-kind target))
|
|
(set! (-> s3-0 prim-core action) (collide-action solid attackable attackable-unused))
|
|
(set! (-> s3-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s3-0 transform-index) 3)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 10240.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *robber-sg* '())
|
|
(set! (-> this root pause-adjust-distance) 122880.0)
|
|
(set! (-> this link) (new 'process 'actor-link-info this))
|
|
(set! (-> this path) (new 'process 'curve-control this 'path -1000000000.0))
|
|
(logior! (-> this path flags) (path-control-flag display draw-line draw-point draw-text))
|
|
(set! (-> this fact)
|
|
(new 'process 'fact-info-enemy this (pickup-type eco-pill-random) (-> *FACT-bank* default-pill-inc))
|
|
)
|
|
(set! (-> this draw origin-joint-index) (the-as uint 3))
|
|
(set! (-> this curve-position) (res-lump-float (-> this entity) 'initial-spline-pos))
|
|
(eval-path-curve! (-> this path) (-> this root trans) (-> this curve-position) 'interp)
|
|
(path-control-method-14 (-> this path) (-> this tangent) (-> this curve-position))
|
|
(set! (-> this facing quad) (-> this tangent quad))
|
|
(let ((s4-1 (new 'stack-no-clear 'matrix)))
|
|
(forward-down->inv-matrix s4-1 (-> this facing) (new 'static 'vector :y -1.0))
|
|
(matrix->quaternion (-> this root quat) s4-1)
|
|
)
|
|
(set! (-> this y-vel) 0.0)
|
|
(set! (-> this water-height) (res-lump-float (-> this entity) 'water-height))
|
|
(robber-find-ground)
|
|
(set! (-> this y-offset) (-> this y-offset-desired))
|
|
(let ((f0-14 (res-lump-float arg0 'timeout :default 10.0)))
|
|
(set! (-> this timeout) (the-as time-frame (the int (* 300.0 f0-14))))
|
|
)
|
|
(set! (-> this last-ambient-time) 0)
|
|
(set! (-> this time-to-next-ambient) 0)
|
|
(set! (-> this speed) 0.0)
|
|
(let ((v1-42 (-> this entity extra perm)))
|
|
(logior! (-> v1-42 status) (entity-perm-status user-set-from-cstage))
|
|
(if (nonzero? (-> v1-42 user-object 1))
|
|
(go robber-die)
|
|
)
|
|
)
|
|
(if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status complete)))
|
|
(go robber-dead)
|
|
(go robber-initial)
|
|
)
|
|
(none)
|
|
)
|