mirror of
https://github.com/open-goal/jak-project
synced 2026-05-30 08:56:59 -04:00
ManDude
a7eee4fdc9
* fix typo * more typo * shorten discord rpc text * allow expanding enums after the fact (untested) * make `game_text` work similar to subtitles * update progress decomp * update some types + `do-not-decompile` in bitfield * fixes and fall back to original progress code * update `progress` decomp with new enums * update config files * fix enums and debug menu * always allocate (but not use) a lot of particles * small rework to display mode options * revert resolution/aspect-ratio symbol mess * begin the override stuff * make `progress-draw` more readable * more fixes * codacy good boy points * first step overriding code * finish progress overrides, game options menu fully functional! * minor fixes * Update game.gp * Update sparticle-launcher.gc * clang * change camera controls text * oops * some cleanup * derp * nice job * implement menu scrolling lol * make scrollable menus less cramped, fix arrows * make some carousell things i guess * add msaa carousell to test * oops * Update progress-pc.gc * make `pc-get-screen-size` (untested) * resolution menu * input fixes * return when selecting resolution * scroll fixes * Update progress-pc.gc * add "fit to screen" button * bug * complete resolutions menu * aspect ratio menu * subtitles language * subtitle speaker * final adjustments * ref test * fix tests * fix ref! * reduce redundancy a bit * fix mem leaks? * save settings on progress exit * fix init reorder * remove unused code * rename goal project-like files to the project extension * sha display toggle * aspect ratio settings fixes * dont store text db's in compiler * properly save+load native aspect stuff
1606 lines
58 KiB
Common Lisp
Vendored
Generated
1606 lines
58 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function find-adjacent-bounds-one
|
|
;; Used lq/sq
|
|
(defun find-adjacent-bounds-one ((arg0 nav-mesh) (arg1 nav-poly) (arg2 int) (arg3 (array int8)) (arg4 (array int8)) (arg5 vector))
|
|
(local-vars (v0-2 object) (v1-2 int) (v1-30 int) (a0-2 int) (a0-12 int) (sv-16 nav-poly) (sv-32 int))
|
|
(let ((v1-1 (+ arg2 1)))
|
|
(let ((a0-1 2))
|
|
(set-on-less-than a0-2 a0-1 v1-1)
|
|
)
|
|
(move-if-not-zero v1-2 0 a0-2 v1-1)
|
|
)
|
|
(let ((v1-4 (-> arg1 adj-poly v1-2)))
|
|
(cond
|
|
((= v1-4 255)
|
|
)
|
|
((zero? (logand (-> arg0 poly v1-4 pat) 1))
|
|
(format 0 "ERROR<GMJ>: find-adjacent-bounds-one given a non-boundary edge to start~%")
|
|
(return #f)
|
|
)
|
|
)
|
|
)
|
|
(let ((s0-0 (-> arg1 vertex (-> arg3 arg2))))
|
|
(set! sv-16 arg1)
|
|
(while (begin (label cfg-28) #t)
|
|
(set! sv-32 0)
|
|
(while (< sv-32 3)
|
|
(cond
|
|
((and (= sv-32 arg2) (= sv-16 arg1))
|
|
)
|
|
((= s0-0 (-> sv-16 vertex (-> arg4 sv-32)))
|
|
(vector+! arg5 (-> arg0 origin) (the-as vector (-> arg0 vertex (-> sv-16 vertex (-> arg3 sv-32)))))
|
|
(let ((v1-29 (+ sv-32 1)))
|
|
(let ((a0-11 2))
|
|
(set-on-less-than a0-12 a0-11 v1-29)
|
|
)
|
|
(move-if-not-zero v1-30 0 a0-12 v1-29)
|
|
)
|
|
(let ((v1-32 (-> sv-16 adj-poly v1-30)))
|
|
(if (= v1-32 255)
|
|
(return #t)
|
|
)
|
|
(let ((v1-35 (-> arg0 poly v1-32)))
|
|
(set! v0-2 (cond
|
|
((= arg1 v1-35)
|
|
(format 0 "ERROR<GMJ>: find-adjacent-bounds-one given tried to go back~%")
|
|
)
|
|
(else
|
|
(cond
|
|
((logtest? (-> v1-35 pat) 1)
|
|
(return #t)
|
|
)
|
|
(else
|
|
(set! arg1 sv-16)
|
|
(set! sv-16 v1-35)
|
|
(goto cfg-28)
|
|
)
|
|
)
|
|
v0-2
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! sv-32 (+ sv-32 1))
|
|
)
|
|
(format 0 "ERROR<GMJ>: abnormal exit from find-adjacent-bounds-one~%")
|
|
(return #f)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function find-adjacent-bounds
|
|
;; WARN: Expression building failed: Function find-adjacent-bounds has a return type of none, but the expression builder found a return statement.
|
|
(defun find-adjacent-bounds ((arg0 nav-mesh) (arg1 clip-travel-vector-to-mesh-return-info))
|
|
(when (!= (-> arg1 found-boundary) #t)
|
|
(format 0 "ERROR<GMJ>: find-adjacent-bounds passed info which doesn't specify a boundary edge~%")
|
|
(return #f)
|
|
)
|
|
(find-adjacent-bounds-one
|
|
arg0
|
|
(-> arg1 poly)
|
|
(-> arg1 edge)
|
|
*edge-vert0-table*
|
|
*edge-vert1-table*
|
|
(-> arg1 vert-prev)
|
|
)
|
|
(find-adjacent-bounds-one
|
|
arg0
|
|
(-> arg1 poly)
|
|
(-> arg1 edge)
|
|
*edge-vert1-table*
|
|
*edge-vert0-table*
|
|
(-> arg1 vert-next)
|
|
)
|
|
(vector-reset! (-> arg1 prev-normal))
|
|
(vector-reset! (-> arg1 next-normal))
|
|
(set! (-> arg1 prev-normal x) (- (-> arg1 vert-prev z) (-> arg1 vert-0 z)))
|
|
(set! (-> arg1 prev-normal z) (- (-> arg1 vert-0 x) (-> arg1 vert-prev x)))
|
|
(set! (-> arg1 next-normal x) (- (-> arg1 vert-1 z) (-> arg1 vert-next z)))
|
|
(set! (-> arg1 next-normal z) (- (-> arg1 vert-next x) (-> arg1 vert-1 x)))
|
|
(vector-normalize! (-> arg1 prev-normal) 1.0)
|
|
(vector-normalize! (-> arg1 next-normal) 1.0)
|
|
(camera-line (-> arg1 vert-prev) (-> arg1 vert-0) (new 'static 'vector4w :x #xff :w #x80))
|
|
(camera-line (-> arg1 vert-0) (-> arg1 vert-1) (new 'static 'vector4w :y #xff :w #x80))
|
|
(camera-line (-> arg1 vert-1) (-> arg1 vert-next) (new 'static 'vector4w :z #xff :w #x80))
|
|
(let ((s5-1 (new 'stack-no-clear 'vector)))
|
|
(vector+! s5-1 (-> arg1 vert-prev) (-> arg1 vert-0))
|
|
(vector-float*! s5-1 s5-1 0.5)
|
|
(camera-line-rel-len s5-1 (-> arg1 prev-normal) 8192.0 (new 'static 'vector4w :x #xff :w #x80))
|
|
(vector+! s5-1 (-> arg1 vert-0) (-> arg1 vert-1))
|
|
(vector-float*! s5-1 s5-1 0.5)
|
|
(camera-line-rel-len s5-1 (-> arg1 boundary-normal) 8192.0 (new 'static 'vector4w :y #xff :w #x80))
|
|
(vector+! s5-1 (-> arg1 vert-1) (-> arg1 vert-next))
|
|
(vector-float*! s5-1 s5-1 0.5)
|
|
(camera-line-rel-len s5-1 (-> arg1 next-normal) 8192.0 (new 'static 'vector4w :z #xff :w #x80))
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type fleeing-nav-enemy-info
|
|
(deftype fleeing-nav-enemy-info (structure)
|
|
((min-reflect-angle float :offset-assert 0)
|
|
(max-reflect-angle float :offset-assert 4)
|
|
(max-boundary-deflection float :offset-assert 8)
|
|
(deflection-min-dist float :offset-assert 12)
|
|
(deflection-max-dist float :offset-assert 16)
|
|
(reflection-time int32 :offset-assert 20)
|
|
(travel-rotate-speed float :offset-assert 24)
|
|
(blend_interp_angle float :offset-assert 28)
|
|
(min-speed-adjust float :offset-assert 32)
|
|
(max-speed-adjust float :offset-assert 36)
|
|
(speed-adjust-center float :offset-assert 40)
|
|
(speed-adjust-range float :offset-assert 44)
|
|
(abort-notice-distance float :offset-assert 48)
|
|
(min-notice-dist float :offset-assert 52)
|
|
(max-notice-dist float :offset-assert 56)
|
|
(min-stop-chase-dist float :offset-assert 60)
|
|
(max-stop-chase-dist float :offset-assert 64)
|
|
(max-flee-rotation float :offset-assert 68)
|
|
)
|
|
:allow-misaligned
|
|
:method-count-assert 9
|
|
:size-assert #x48
|
|
:flag-assert #x900000048
|
|
)
|
|
|
|
;; definition for method 3 of type fleeing-nav-enemy-info
|
|
(defmethod inspect fleeing-nav-enemy-info ((obj fleeing-nav-enemy-info))
|
|
(format #t "[~8x] ~A~%" obj 'fleeing-nav-enemy-info)
|
|
(format #t "~Tmin-reflect-angle: ~f~%" (-> obj min-reflect-angle))
|
|
(format #t "~Tmax-reflect-angle: ~f~%" (-> obj max-reflect-angle))
|
|
(format #t "~Tmax-boundary-deflection: ~f~%" (-> obj max-boundary-deflection))
|
|
(format #t "~Tdeflection-min-dist: ~f~%" (-> obj deflection-min-dist))
|
|
(format #t "~Tdeflection-max-dist: ~f~%" (-> obj deflection-max-dist))
|
|
(format #t "~Treflection-time: ~D~%" (-> obj reflection-time))
|
|
(format #t "~Ttravel-rotate-speed: ~f~%" (-> obj travel-rotate-speed))
|
|
(format #t "~Tblend_interp_angle: ~f~%" (-> obj blend_interp_angle))
|
|
(format #t "~Tmin-speed-adjust: ~f~%" (-> obj min-speed-adjust))
|
|
(format #t "~Tmax-speed-adjust: ~f~%" (-> obj max-speed-adjust))
|
|
(format #t "~Tspeed-adjust-center: ~f~%" (-> obj speed-adjust-center))
|
|
(format #t "~Tspeed-adjust-range: ~f~%" (-> obj speed-adjust-range))
|
|
(format #t "~Tabort-notice-distance: ~f~%" (-> obj abort-notice-distance))
|
|
(format #t "~Tmin-notice-dist: ~f~%" (-> obj min-notice-dist))
|
|
(format #t "~Tmax-notice-dist: ~f~%" (-> obj max-notice-dist))
|
|
(format #t "~Tmin-stop-chase-dist: ~f~%" (-> obj min-stop-chase-dist))
|
|
(format #t "~Tmax-stop-chase-dist: ~f~%" (-> obj max-stop-chase-dist))
|
|
(format #t "~Tmax-flee-rotation: ~f~%" (-> obj max-flee-rotation))
|
|
obj
|
|
)
|
|
|
|
;; definition of type fleeing-nav-enemy
|
|
(deftype fleeing-nav-enemy (nav-enemy)
|
|
((last-reflection-time time-frame :offset-assert 400)
|
|
(run-blend-interp float :offset-assert 408)
|
|
(desired-travel vector :inline :offset-assert 416)
|
|
(saved-travel vector :inline :offset-assert 432)
|
|
(speed-adjust float :offset-assert 448)
|
|
(flee-info fleeing-nav-enemy-info :inline :offset-assert 452)
|
|
)
|
|
:heap-base #x1a0
|
|
:method-count-assert 76
|
|
:size-assert #x20c
|
|
:flag-assert #x4c01a0020c
|
|
(:states
|
|
fleeing-nav-enemy-debug
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type fleeing-nav-enemy
|
|
(defmethod inspect fleeing-nav-enemy ((obj fleeing-nav-enemy))
|
|
(let ((t9-0 (method-of-type nav-enemy inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Tlast-reflection-time: ~D~%" (-> obj last-reflection-time))
|
|
(format #t "~T~Trun-blend-interp: ~f~%" (-> obj run-blend-interp))
|
|
(format #t "~T~Tdesired-travel: #<vector @ #x~X>~%" (-> obj desired-travel))
|
|
(format #t "~T~Tsaved-travel: #<vector @ #x~X>~%" (-> obj saved-travel))
|
|
(format #t "~T~Tspeed-adjust: ~f~%" (-> obj speed-adjust))
|
|
(format #t "~T~Tflee-info: #<fleeing-nav-enemy-info @ #x~X>~%" (-> obj flee-info))
|
|
obj
|
|
)
|
|
|
|
;; definition for function fleeing-nav-enemy-adjust-nav-info
|
|
(defbehavior fleeing-nav-enemy-adjust-nav-info fleeing-nav-enemy ()
|
|
(let ((f30-0 (vector-vector-distance (-> *camera* tpos-curr-adj) (-> *camera* tpos-old-adj))))
|
|
(set! (-> self nav-info notice-distance) (lerp-clamp
|
|
(-> self flee-info min-notice-dist)
|
|
(-> self flee-info max-notice-dist)
|
|
(parameter-ease-sin-clamp (* 0.00081380206 (+ -409.6 f30-0)))
|
|
)
|
|
)
|
|
(let ((f0-9 (lerp-clamp
|
|
(-> self flee-info min-stop-chase-dist)
|
|
(-> self flee-info max-stop-chase-dist)
|
|
(parameter-ease-sin-clamp (* 0.00081380206 (+ -409.6 f30-0)))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self nav-info stop-chase-distance) f0-9)
|
|
f0-9
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function fleeing-nav-enemy-clip-travel
|
|
;; Used lq/sq
|
|
(defun fleeing-nav-enemy-clip-travel ((arg0 fleeing-nav-enemy) (arg1 vector))
|
|
(local-vars (sv-224 vector) (sv-240 vector) (sv-256 vector) (sv-272 vector) (sv-288 vector))
|
|
(let ((s2-0 (new 'stack 'clip-travel-vector-to-mesh-return-info))
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
(s1-0 #f)
|
|
)
|
|
(set! (-> gp-0 quad) (-> arg0 nav travel quad))
|
|
(set! (-> arg0 nav travel quad) (-> arg1 quad))
|
|
(dummy-24 (-> arg0 nav) (-> arg0 flee-info deflection-max-dist) s2-0)
|
|
(when (-> s2-0 found-boundary)
|
|
(let ((s0-0 (new 'stack-no-clear 'vector))
|
|
(s3-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
0.0
|
|
0.0
|
|
(vector-! s0-0 (-> s2-0 intersection) (-> arg0 collide-info trans))
|
|
(set! (-> arg0 nav travel quad) (-> s0-0 quad))
|
|
(let ((f28-0 (vector-dot s0-0 (-> s2-0 boundary-normal))))
|
|
(set! (-> s0-0 quad) (-> arg1 quad))
|
|
(set! (-> s0-0 y) 0.0)
|
|
(vector-normalize! s0-0 1.0)
|
|
(let ((f30-0 (vector-dot s0-0 (-> s2-0 boundary-normal))))
|
|
(cond
|
|
((< (-> arg0 flee-info deflection-min-dist) f28-0)
|
|
(let* ((f0-9 (/ (- f28-0 (-> arg0 flee-info deflection-min-dist))
|
|
(- (-> arg0 flee-info deflection-max-dist) (-> arg0 flee-info deflection-min-dist))
|
|
)
|
|
)
|
|
(f0-10 (fmin 1.0 f0-9))
|
|
(f28-1 (* (- 1.0 f0-10) (-> arg0 flee-info max-boundary-deflection)))
|
|
)
|
|
(cond
|
|
((< (cos f28-1) f30-0)
|
|
(vector--float*! s3-0 s0-0 (-> s2-0 boundary-normal) f30-0)
|
|
(let ((s0-1 vector-normalize!))
|
|
(set! sv-224 s3-0)
|
|
(let ((a1-7 (sin f28-1)))
|
|
(s0-1 sv-224 a1-7)
|
|
)
|
|
)
|
|
(let ((s0-2 vector+float*!))
|
|
(set! sv-240 s3-0)
|
|
(set! sv-256 s3-0)
|
|
(let ((s2-1 (-> s2-0 boundary-normal))
|
|
(a3-1 (cos f28-1))
|
|
)
|
|
(s0-2 sv-240 sv-256 s2-1 a3-1)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let ((v1-15 s3-0))
|
|
(set! (-> v1-15 quad) (-> s0-0 quad))
|
|
v1-15
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((< (cos (-> arg0 flee-info min-reflect-angle)) f30-0)
|
|
(vector--float*! s3-0 s0-0 (-> s2-0 boundary-normal) f30-0)
|
|
(vector-normalize! s3-0 (sin (-> arg0 flee-info min-reflect-angle)))
|
|
(let ((s1-2 vector--float*!)
|
|
(s0-4 s3-0)
|
|
)
|
|
(set! sv-272 s3-0)
|
|
(let ((s2-2 (-> s2-0 boundary-normal))
|
|
(a3-3 (cos (-> arg0 flee-info min-reflect-angle)))
|
|
)
|
|
(s1-2 s0-4 sv-272 s2-2 a3-3)
|
|
)
|
|
)
|
|
(set! s1-0 #t)
|
|
)
|
|
((< f30-0 (cos (-> arg0 flee-info max-reflect-angle)))
|
|
(vector--float*! s3-0 s0-0 (-> s2-0 boundary-normal) f30-0)
|
|
(vector-normalize! s3-0 (sin (-> arg0 flee-info max-reflect-angle)))
|
|
(let ((s1-4 vector--float*!)
|
|
(s0-6 s3-0)
|
|
)
|
|
(set! sv-288 s3-0)
|
|
(let ((s2-3 (-> s2-0 boundary-normal))
|
|
(a3-5 (cos (-> arg0 flee-info max-reflect-angle)))
|
|
)
|
|
(s1-4 s0-6 sv-288 s2-3 a3-5)
|
|
)
|
|
)
|
|
(set! s1-0 #t)
|
|
)
|
|
(else
|
|
(vector--float*! s3-0 s0-0 (-> s2-0 boundary-normal) (* 2.0 f30-0))
|
|
(set! s1-0 #t)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(vector-normalize-copy! arg1 s3-0 (-> arg0 flee-info deflection-max-dist))
|
|
)
|
|
)
|
|
(set! (-> arg0 nav travel quad) (-> gp-0 quad))
|
|
s1-0
|
|
)
|
|
)
|
|
|
|
;; definition for function fleeing-nav-enemy-adjust-travel
|
|
;; Used lq/sq
|
|
(defun fleeing-nav-enemy-adjust-travel ((arg0 fleeing-nav-enemy) (arg1 object))
|
|
(let ((s3-0 (new 'stack-no-clear 'matrix))
|
|
(s4-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s4-0 quad) (-> arg0 saved-travel quad))
|
|
(set! (-> s4-0 y) 0.0)
|
|
(set! (-> s5-0 quad) (-> arg0 desired-travel quad))
|
|
(set! (-> s5-0 y) 0.0)
|
|
(vector-normalize! s4-0 1.0)
|
|
(vector-normalize! s5-0 1.0)
|
|
(matrix-from-two-vectors-max-angle-partial! s3-0 s4-0 s5-0 (-> arg0 flee-info travel-rotate-speed) 0.2)
|
|
)
|
|
(vector-matrix*! (-> arg0 saved-travel) s4-0 s3-0)
|
|
)
|
|
(vector-float*! (-> arg0 saved-travel) (-> arg0 saved-travel) (-> arg0 flee-info deflection-max-dist))
|
|
(set! (-> arg0 nav travel quad) (-> arg0 saved-travel quad))
|
|
(vector+! (-> arg0 nav target-pos) (-> arg0 collide-info trans) (-> arg0 nav travel))
|
|
)
|
|
|
|
;; definition for function fleeing-nav-enemy-chase-post-func
|
|
(defbehavior fleeing-nav-enemy-chase-post-func fleeing-nav-enemy ()
|
|
(let ((gp-0 (new 'stack-no-clear 'matrix))
|
|
(s5-0 (new 'stack-no-clear 'matrix))
|
|
)
|
|
(quaternion->matrix gp-0 (-> self collide-info quat))
|
|
(set! (-> self collide-info old-y-angle-diff) 0.0)
|
|
(nav-enemy-travel-post)
|
|
(quaternion->matrix s5-0 (-> self collide-info quat))
|
|
(set! (-> self run-blend-interp) (acos (vector-dot (-> s5-0 vector 2) (-> gp-0 vector 2))))
|
|
(set! (-> self run-blend-interp) (/ (-> self run-blend-interp) (-> self flee-info blend_interp_angle)))
|
|
(when (< (vector-dot (-> s5-0 vector 2) (the-as vector (-> gp-0 vector))) 0.0)
|
|
(let ((f0-8 (- (-> self run-blend-interp))))
|
|
(set! (-> self run-blend-interp) f0-8)
|
|
f0-8
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function fleeing-nav-enemy-chase-post
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defbehavior fleeing-nav-enemy-chase-post fleeing-nav-enemy ()
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector-! gp-0 (-> self collide-info trans) (target-pos 0))
|
|
(let* ((f0-1 (vector-dot (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> self desired-travel) 1.0) gp-0))
|
|
(f0-3 (/ (- (-> self flee-info speed-adjust-center) f0-1) (-> self flee-info speed-adjust-range)))
|
|
(f1-3 (+ 1.0 f0-3))
|
|
)
|
|
(set! (-> self target-speed)
|
|
(* (fmax (-> self flee-info min-speed-adjust) (fmin (-> self flee-info max-speed-adjust) f1-3))
|
|
(-> self nav-info run-travel-speed)
|
|
)
|
|
)
|
|
)
|
|
(when (>= (- (-> *display* base-frame-counter) (-> self last-reflection-time)) (-> self flee-info reflection-time))
|
|
(let ((s3-0 (new 'stack-no-clear 'matrix))
|
|
(s5-2 (new 'stack-no-clear 'vector))
|
|
)
|
|
(let ((s4-1 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s5-2 quad) (-> self desired-travel quad))
|
|
(set! (-> s5-2 y) 0.0)
|
|
(set! (-> s4-1 quad) (-> gp-0 quad))
|
|
(set! (-> s4-1 y) 0.0)
|
|
(if (= (vector-normalize-ret-len! s5-2 1.0) 0.0)
|
|
(set! (-> s5-2 quad) (-> s4-1 quad))
|
|
)
|
|
(vector-normalize-ret-len! s4-1 1.0)
|
|
(matrix-from-two-vectors-max-angle-partial! s3-0 s5-2 s4-1 (-> self flee-info max-flee-rotation) 0.25)
|
|
)
|
|
(vector-matrix*! s5-2 s5-2 s3-0)
|
|
(vector-float*! (-> self desired-travel) s5-2 (-> self flee-info deflection-max-dist))
|
|
)
|
|
)
|
|
)
|
|
(if (fleeing-nav-enemy-clip-travel self (-> self desired-travel))
|
|
(set! (-> self last-reflection-time) (-> *display* base-frame-counter))
|
|
)
|
|
(fleeing-nav-enemy-adjust-travel self (-> self desired-travel))
|
|
(fleeing-nav-enemy-chase-post-func)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate nav-enemy-patrol (fleeing-nav-enemy)
|
|
:virtual #t
|
|
:enter
|
|
(-> (method-of-type nav-enemy nav-enemy-patrol) enter)
|
|
:exit
|
|
(-> (method-of-type nav-enemy nav-enemy-patrol) exit)
|
|
:trans
|
|
(behavior ()
|
|
((-> (method-of-type nav-enemy nav-enemy-patrol) trans))
|
|
(fleeing-nav-enemy-adjust-nav-info)
|
|
(none)
|
|
)
|
|
:code
|
|
(-> (method-of-type nav-enemy nav-enemy-patrol) code)
|
|
:post
|
|
(-> (method-of-type nav-enemy nav-enemy-patrol) post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate nav-enemy-notice (fleeing-nav-enemy)
|
|
:virtual #t
|
|
:enter
|
|
(-> (method-of-type nav-enemy nav-enemy-notice) enter)
|
|
:trans
|
|
(behavior ()
|
|
(fleeing-nav-enemy-adjust-nav-info)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 22)
|
|
(let ((f30-0 (nav-enemy-rnd-float-range 1.0 1.2)))
|
|
(let ((a0-2 (-> self skel root-channel 0)))
|
|
(set! (-> a0-2 frame-group)
|
|
(the-as art-joint-anim (-> self draw art-group data (-> self nav-info notice-anim)))
|
|
)
|
|
(set! (-> a0-2 param 0)
|
|
(the float
|
|
(+ (-> (the-as art-joint-anim (-> self draw art-group data (-> self nav-info notice-anim))) data 0 length) -1)
|
|
)
|
|
)
|
|
(set! (-> a0-2 param 1) f30-0)
|
|
(set! (-> a0-2 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-2
|
|
(the-as art-joint-anim (-> self draw art-group data (-> self nav-info notice-anim)))
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(seek-toward-heading-vec!
|
|
(-> self collide-info)
|
|
(-> self nav travel)
|
|
(-> self rotate-speed)
|
|
(-> self turn-time)
|
|
)
|
|
(if (and *target* (>= (-> self flee-info abort-notice-distance)
|
|
(vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
|
|
)
|
|
)
|
|
(go-virtual nav-enemy-chase)
|
|
)
|
|
(suspend)
|
|
(let ((a0-5 (-> self skel root-channel 0)))
|
|
(set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
|
|
(set! (-> a0-5 param 1) f30-0)
|
|
(joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(go-virtual nav-enemy-chase)
|
|
(none)
|
|
)
|
|
:post
|
|
(-> (method-of-type nav-enemy nav-enemy-notice) post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate nav-enemy-chase (fleeing-nav-enemy)
|
|
:virtual #t
|
|
:enter
|
|
(behavior ()
|
|
(logior! (-> self nav flags) (nav-control-flags navcf12))
|
|
((-> (method-of-type nav-enemy nav-enemy-chase) enter))
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(logclear! (-> self nav flags) (nav-control-flags navcf12))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
((-> (method-of-type nav-enemy nav-enemy-chase) trans))
|
|
(fleeing-nav-enemy-adjust-nav-info)
|
|
(none)
|
|
)
|
|
:code
|
|
(-> (method-of-type nav-enemy nav-enemy-chase) code)
|
|
:post
|
|
(-> (method-of-type nav-enemy nav-enemy-chase) post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate nav-enemy-stop-chase (fleeing-nav-enemy)
|
|
:virtual #t
|
|
:enter
|
|
(-> (method-of-type nav-enemy nav-enemy-stop-chase) enter)
|
|
:trans
|
|
(behavior ()
|
|
((-> (method-of-type nav-enemy nav-enemy-stop-chase) trans))
|
|
(fleeing-nav-enemy-adjust-nav-info)
|
|
(none)
|
|
)
|
|
:code
|
|
(-> (method-of-type nav-enemy nav-enemy-stop-chase) code)
|
|
:post
|
|
(-> (method-of-type nav-enemy nav-enemy-stop-chase) post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate fleeing-nav-enemy-debug (fleeing-nav-enemy)
|
|
:enter
|
|
(-> (method-of-type nav-enemy nav-enemy-chase) enter)
|
|
:code
|
|
(behavior ()
|
|
(let ((gp-0 (new-stack-vector0))
|
|
(s5-0 (new-stack-vector0))
|
|
)
|
|
(set! (-> gp-0 x) 1.0)
|
|
(set! (-> s5-0 x) 1.0)
|
|
(while #t
|
|
(when (cpad-pressed? 1 r3)
|
|
(suspend)
|
|
(go fleeing-nav-enemy-debug)
|
|
)
|
|
(let ((s2-0 (new-stack-vector0))
|
|
(s4-0 (new-stack-vector0))
|
|
)
|
|
(let ((s3-0 (new-stack-matrix0)))
|
|
(clmf-input s2-0 s4-0 1)
|
|
(vector-float*! s2-0 s2-0 409.6)
|
|
(vector-float*! s4-0 s4-0 1820.4445)
|
|
(matrix-axis-angle! s3-0 (-> *camera* local-down) (-> s2-0 y))
|
|
(vector-matrix*! gp-0 gp-0 s3-0)
|
|
)
|
|
(if *target*
|
|
(vector-! gp-0 (-> self collide-info trans) (target-pos 0))
|
|
)
|
|
(vector-normalize! gp-0 (-> self flee-info deflection-max-dist))
|
|
(let ((s3-3 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s3-3 quad) (-> self nav travel quad))
|
|
(set! (-> self nav travel quad) (-> s5-0 quad))
|
|
(set! (-> self desired-travel quad) (-> gp-0 quad))
|
|
(fleeing-nav-enemy-clip-travel self (-> self desired-travel))
|
|
(fleeing-nav-enemy-adjust-travel self (-> self desired-travel))
|
|
(set! (-> s5-0 quad) (-> self nav travel quad))
|
|
(set! (-> self nav travel quad) (-> s3-3 quad))
|
|
)
|
|
(vector+! (-> self nav target-pos) (-> self collide-info trans) s4-0)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior fleeing-nav-enemy) nav-enemy-travel-post)
|
|
)
|
|
|
|
;; definition for symbol *lightning-mole-hole*, type vector
|
|
(define *lightning-mole-hole* (new 'static 'vector :x -241664.0 :y 106496.0 :z -6393856.0))
|
|
|
|
;; definition of type lightning-mole
|
|
(deftype lightning-mole (fleeing-nav-enemy)
|
|
((debug-vector vector :inline :offset-assert 528)
|
|
(alt-actor entity-actor :offset-assert 544)
|
|
)
|
|
:heap-base #x1c0
|
|
:method-count-assert 76
|
|
:size-assert #x224
|
|
:flag-assert #x4c01c00224
|
|
(:states
|
|
lightning-mole-debug-blend
|
|
lightning-mole-debug-run
|
|
lightning-mole-dive
|
|
lightning-mole-gone
|
|
lightning-mole-head-for-hole
|
|
lightning-mole-hiding
|
|
lightning-mole-yelp
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type lightning-mole
|
|
(defmethod inspect lightning-mole ((obj lightning-mole))
|
|
(let ((t9-0 (method-of-type fleeing-nav-enemy inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Tdebug-vector: #<vector @ #x~X>~%" (-> obj debug-vector))
|
|
(format #t "~T~Talt-actor: ~A~%" (-> obj alt-actor))
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *lightning-mole-sg* lightning-mole
|
|
0
|
|
5
|
|
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 8)
|
|
:longest-edge (meters 0)
|
|
:shadow 4
|
|
)
|
|
|
|
;; definition for function lightning-mole-task-complete?
|
|
(defbehavior lightning-mole-task-complete? lightning-mole ()
|
|
(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))
|
|
(let ((gp-0 (get-process *default-dead-pool* process #x4000)))
|
|
(when gp-0
|
|
(let ((t9-4 (method-of-type process activate)))
|
|
(t9-4 gp-0 self 'process (the-as pointer #x70004000))
|
|
)
|
|
(run-next-time-in-process gp-0 (lambda :behavior lightning-mole
|
|
()
|
|
(while (or (-> *setting-control* current ambient)
|
|
(-> *setting-control* current movie)
|
|
(-> *setting-control* current hint)
|
|
)
|
|
(suspend)
|
|
)
|
|
(level-hint-spawn
|
|
(game-text-id rolling-lightning-moles-completion)
|
|
"sksp0112"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
(-> gp-0 ppointer)
|
|
)
|
|
)
|
|
(format #t "lightning-mole task is complete~%")
|
|
)
|
|
(else
|
|
)
|
|
)
|
|
sv-16
|
|
)
|
|
)
|
|
|
|
;; definition for function lightning-mole-hole-post
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defbehavior lightning-mole-hole-post lightning-mole ()
|
|
(set! (-> self nav target-pos quad) (-> *lightning-mole-hole* quad))
|
|
(nav-enemy-travel-post)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function lightning-mole-run-code
|
|
(defbehavior lightning-mole-run-code lightning-mole ()
|
|
(when (!= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 7)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-6 (-> self skel root-channel 0)))
|
|
(set! (-> v1-6 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
|
|
)
|
|
)
|
|
(while #t
|
|
(let ((a0-9 (-> self skel root-channel 0)))
|
|
(set! (-> a0-9 param 0) (-> self speed-adjust))
|
|
(joint-control-channel-group-eval! a0-9 (the-as art-joint-anim #f) num-func-loop!)
|
|
)
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate lightning-mole-debug-blend (lightning-mole)
|
|
:trans
|
|
(behavior ()
|
|
(let ((gp-0 (new-stack-vector0)))
|
|
(let ((a1-0 (new-stack-vector0)))
|
|
(clmf-input gp-0 a1-0 1)
|
|
)
|
|
(set! (-> self run-blend-interp) (-> gp-0 y))
|
|
)
|
|
(set! (-> self speed-adjust) 1.0)
|
|
(none)
|
|
)
|
|
:code
|
|
lightning-mole-run-code
|
|
:post
|
|
(the-as (function none :behavior lightning-mole) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate lightning-mole-debug-run (lightning-mole)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self speed-adjust) 1.0)
|
|
(set-vector! (-> self debug-vector) 0.0 0.0 1.0 1.0)
|
|
(set! (-> self saved-travel quad) (-> self debug-vector quad))
|
|
((-> (method-of-type nav-enemy nav-enemy-chase) enter))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(when (cpad-pressed? 1 r3)
|
|
(logclear! (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons r3))
|
|
(logclear! (-> *cpad-list* cpads 1 button0-rel 0) (pad-buttons r3))
|
|
(go lightning-mole-debug-run)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
lightning-mole-run-code
|
|
:post
|
|
(behavior ()
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(let ((s4-0 (new-stack-vector0))
|
|
(a1-0 (new-stack-vector0))
|
|
(s5-0 (new-stack-matrix0))
|
|
)
|
|
(clmf-input s4-0 a1-0 1)
|
|
(vector-float*! s4-0 s4-0 1820.4445)
|
|
(matrix-axis-angle! s5-0 (-> *camera* local-down) (-> s4-0 y))
|
|
(vector-matrix*! (-> self debug-vector) (-> self debug-vector) s5-0)
|
|
)
|
|
(vector-normalize! (-> self debug-vector) (-> self flee-info deflection-max-dist))
|
|
(camera-line-rel
|
|
(-> self collide-info trans)
|
|
(-> self debug-vector)
|
|
(new 'static 'vector4w :x #x80 :y #x80 :w #x80)
|
|
)
|
|
(set! (-> gp-0 quad) (-> self debug-vector quad))
|
|
(set! (-> self target-speed) (-> self nav-info run-travel-speed))
|
|
(format *stdcon* "tgt-speed ~M defmd ~M~%" (-> self target-speed) (-> self flee-info deflection-max-dist))
|
|
(if (>= (- (-> *display* base-frame-counter) (-> self last-reflection-time)) (-> self flee-info reflection-time))
|
|
(vector-normalize-copy! (-> self desired-travel) gp-0 (-> self flee-info deflection-max-dist))
|
|
)
|
|
)
|
|
(if (fleeing-nav-enemy-clip-travel self (-> self desired-travel))
|
|
(set! (-> self last-reflection-time) (-> *display* base-frame-counter))
|
|
)
|
|
(set! (-> self debug-vector quad) (-> self desired-travel quad))
|
|
(fleeing-nav-enemy-adjust-travel self (-> self desired-travel))
|
|
(fleeing-nav-enemy-chase-post-func)
|
|
(camera-line-rel
|
|
(-> self collide-info trans)
|
|
(-> self desired-travel)
|
|
(new 'static 'vector4w :x #x80 :w #x80)
|
|
)
|
|
(camera-line-rel (-> self collide-info trans) (-> self nav travel) (new 'static 'vector4w :z #x80 :w #x80))
|
|
(camera-line (-> self collide-info trans) (-> self nav target-pos) (new 'static 'vector4w :z #x80 :w #x80))
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate lightning-mole-gone (lightning-mole)
|
|
:code
|
|
(behavior ()
|
|
(cleanup-for-death self)
|
|
(ja-channel-set! 0)
|
|
(ja-post)
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
(deactivate self)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate lightning-mole-hiding (lightning-mole)
|
|
:enter
|
|
(behavior ()
|
|
(ja-channel-set! 0)
|
|
(clear-collide-with-as (-> self collide-info))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(when (task-closed? (-> self entity extra perm task) (task-status need-introduction))
|
|
(ja-channel-set! 1)
|
|
(let ((v1-4 (-> self skel root-channel 0)))
|
|
(set! (-> v1-4 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
|
|
)
|
|
(restore-collide-with-as (-> self collide-info))
|
|
(go-virtual nav-enemy-idle)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(while #t
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate lightning-mole-dive (lightning-mole)
|
|
:trans
|
|
(behavior ()
|
|
(when (< (vector-vector-xz-distance *lightning-mole-hole* (-> self collide-info trans)) 61440.0)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 0)
|
|
(set! (-> a1-1 message) 'hide)
|
|
(let ((t9-1 send-event-function)
|
|
(v1-2 (-> self alt-actor))
|
|
)
|
|
(t9-1
|
|
(if v1-2
|
|
(-> v1-2 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((f30-0 (nav-enemy-rnd-float-range 0.9 1.1))
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(vector+! gp-0 *lightning-mole-hole* (new 'static 'vector :x 81920.0 :y 40960.0))
|
|
(hide-hud-quick)
|
|
(if *target*
|
|
(logior! (-> *target* mask) (process-mask sleep))
|
|
)
|
|
(ambient-hint-spawn "gamcam20" (the-as vector #f) *entity-pool* 'camera)
|
|
(ja-channel-push! 1 60)
|
|
(let ((a0-5 (-> self skel root-channel 0)))
|
|
(set! (-> a0-5 frame-group) (the-as art-joint-anim (-> self draw art-group data 12)))
|
|
(set! (-> a0-5 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-5 param 1) f30-0)
|
|
(set! (-> a0-5 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-5 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> *camera-other-fov* data) 11650.845)
|
|
(vector-! s5-0 *lightning-mole-hole* gp-0)
|
|
(vector-normalize! s5-0 1.0)
|
|
(forward-down->inv-matrix *camera-other-matrix* s5-0 (-> *camera* local-down))
|
|
)
|
|
(set! (-> *camera-other-trans* quad) (-> gp-0 quad))
|
|
(set! (-> *camera-other-root* quad) (-> *lightning-mole-hole* quad))
|
|
(set! *camera-look-through-other* 2)
|
|
(suspend)
|
|
(let ((a0-13 (-> self skel root-channel 0)))
|
|
(set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
|
|
(set! (-> a0-13 param 1) f30-0)
|
|
(joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(lightning-mole-task-complete?)
|
|
(if *target*
|
|
(logclear! (-> *target* mask) (process-mask sleep))
|
|
)
|
|
(go lightning-mole-gone)
|
|
(none)
|
|
)
|
|
:post
|
|
lightning-mole-hole-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate lightning-mole-head-for-hole (lightning-mole)
|
|
:enter
|
|
(behavior ()
|
|
(clear-collide-with-as (-> self collide-info))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(when (< (vector-vector-xz-distance *lightning-mole-hole* (-> self collide-info trans)) 61440.0)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 0)
|
|
(set! (-> a1-1 message) 'hide)
|
|
(let ((t9-1 send-event-function)
|
|
(v1-3 (-> self alt-actor))
|
|
)
|
|
(t9-1
|
|
(if v1-3
|
|
(-> v1-3 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (< (vector-vector-distance (-> self collide-info trans) *lightning-mole-hole*) 40960.0)
|
|
(go lightning-mole-dive)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(-> (method-of-type fleeing-nav-enemy nav-enemy-chase) code)
|
|
:post
|
|
lightning-mole-hole-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate lightning-mole-yelp (lightning-mole)
|
|
:enter
|
|
(behavior ()
|
|
(clear-collide-with-as (-> self collide-info))
|
|
((-> (method-of-type fleeing-nav-enemy nav-enemy-chase) enter))
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(restore-collide-with-as (-> self collide-info))
|
|
(none)
|
|
)
|
|
:trans
|
|
(-> (method-of-type fleeing-nav-enemy nav-enemy-chase) trans)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 60)
|
|
(let ((f30-0 (nav-enemy-rnd-float-range 0.9 1.1)))
|
|
(let ((a0-2 (-> self skel root-channel 0)))
|
|
(set! (-> a0-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 10)))
|
|
(set! (-> a0-2 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 10)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-2 param 1) f30-0)
|
|
(set! (-> a0-2 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-2 (the-as art-joint-anim (-> self draw art-group data 10)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-3 (-> self skel root-channel 0)))
|
|
(set! (-> a0-3 param 0) (the float (+ (-> a0-3 frame-group data 0 length) -1)))
|
|
(set! (-> a0-3 param 1) f30-0)
|
|
(joint-control-channel-group-eval! a0-3 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(go-virtual nav-enemy-chase)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior lightning-mole) nav-enemy-simple-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate nav-enemy-stop-chase (lightning-mole)
|
|
:virtual #t
|
|
:code
|
|
lightning-mole-run-code
|
|
:post
|
|
(the-as (function none :behavior lightning-mole) fleeing-nav-enemy-chase-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate nav-enemy-chase (lightning-mole)
|
|
:virtual #t
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self speed-adjust) 1.0)
|
|
(set! (-> self run-blend-interp) 0.0)
|
|
(vector-! (-> self saved-travel) (-> self collide-info trans) (target-pos 0))
|
|
((-> (method-of-type fleeing-nav-enemy nav-enemy-chase) enter))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(let ((s3-0 (new 'stack-no-clear 'vector))
|
|
(s4-0 (new 'stack-no-clear 'vector))
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
0.0
|
|
0.0
|
|
(let ((f30-0 (vector-vector-distance (-> self collide-info trans) (target-pos 0))))
|
|
0.0
|
|
0.0
|
|
(let ((s5-1 (new 'stack-no-clear 'vector)))
|
|
(vector-! s3-0 *lightning-mole-hole* (-> self collide-info trans))
|
|
(vector-! s4-0 (-> self collide-info trans) (target-pos 0))
|
|
(vector-! gp-0 *lightning-mole-hole* (target-pos 0))
|
|
(let ((f26-0 (vector-normalize-ret-len! s3-0 1.0))
|
|
(f28-0 (vector-normalize-ret-len! s4-0 1.0))
|
|
)
|
|
(vector-normalize! gp-0 1.0)
|
|
(set! (-> s5-1 quad) (-> *camera* tgt-face-mat vector 2 quad))
|
|
(set! (-> s5-1 y) 0.0)
|
|
(vector-normalize! s5-1 1.0)
|
|
(let ((f24-0 (vector-dot s5-1 s4-0)))
|
|
(when (< f26-0 61440.0)
|
|
(let ((a1-7 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-7 from) self)
|
|
(set! (-> a1-7 num-params) 0)
|
|
(set! (-> a1-7 message) 'hide)
|
|
(let ((t9-8 send-event-function)
|
|
(v1-10 (-> self alt-actor))
|
|
)
|
|
(t9-8
|
|
(if v1-10
|
|
(-> v1-10 extra process)
|
|
)
|
|
a1-7
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (and (< 40960.0 f26-0)
|
|
(< f26-0 81920.0)
|
|
(< f30-0 204800.0)
|
|
(< (+ 20480.0 f26-0) f28-0)
|
|
(< (cos 7281.778) (vector-dot s5-1 gp-0))
|
|
(< (cos 7281.778) f24-0)
|
|
)
|
|
(go lightning-mole-head-for-hole)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((-> (method-of-type fleeing-nav-enemy nav-enemy-chase) trans))
|
|
(none)
|
|
)
|
|
:code
|
|
lightning-mole-run-code
|
|
:post
|
|
(the-as (function none :behavior lightning-mole) fleeing-nav-enemy-chase-post)
|
|
)
|
|
|
|
;; definition for method 43 of type lightning-mole
|
|
;; INFO: Return type mismatch symbol vs object.
|
|
(defmethod dummy-43 lightning-mole ((obj lightning-mole) (arg0 process) (arg1 event-message-block))
|
|
(send-event arg0 'get-attack-count 1)
|
|
(when (!= (-> obj state) lightning-mole-yelp)
|
|
(send-event arg0 'jump 32768.0 32768.0)
|
|
(go lightning-mole-yelp)
|
|
)
|
|
(the-as object #t)
|
|
)
|
|
|
|
;; definition for method 44 of type lightning-mole
|
|
;; INFO: Return type mismatch symbol vs object.
|
|
(defmethod dummy-44 lightning-mole ((obj lightning-mole) (arg0 process) (arg1 event-message-block))
|
|
(when (!= (-> obj state) lightning-mole-yelp)
|
|
(send-event arg0 'jump 32768.0 32768.0)
|
|
(go lightning-mole-yelp)
|
|
)
|
|
(the-as object #t)
|
|
)
|
|
|
|
;; definition for symbol *lightning-mole-nav-enemy-info*, type nav-enemy-info
|
|
(define *lightning-mole-nav-enemy-info* (new 'static 'nav-enemy-info
|
|
:idle-anim 5
|
|
:walk-anim 7
|
|
:turn-anim -1
|
|
:notice-anim 6
|
|
:run-anim 7
|
|
:jump-anim -1
|
|
:jump-land-anim -1
|
|
:victory-anim 12
|
|
:taunt-anim -1
|
|
:die-anim -1
|
|
:neck-joint 5
|
|
:player-look-at-joint 5
|
|
:run-travel-speed (meters 30)
|
|
:run-rotate-speed (degrees 3000.0)
|
|
:run-acceleration (meters 1)
|
|
:run-turn-time (seconds 0.1)
|
|
:walk-travel-speed (meters 30)
|
|
:walk-rotate-speed (degrees 3000.0)
|
|
:walk-acceleration (meters 1)
|
|
:walk-turn-time (seconds 0.1)
|
|
:attack-shove-back (meters 3)
|
|
:attack-shove-up (meters 2)
|
|
:shadow-size (meters 2)
|
|
:notice-nav-radius (meters 2)
|
|
:nav-nearest-y-threshold (meters 10)
|
|
:notice-distance (meters 35)
|
|
:stop-chase-distance (meters 45)
|
|
:frustration-distance (meters 8)
|
|
:frustration-time (seconds 4)
|
|
:die-anim-hold-frame 10000000000.0
|
|
:jump-land-anim-end-frame 10000000000.0
|
|
:jump-height-min (meters 1)
|
|
:jump-height-factor 0.5
|
|
:jump-start-anim-speed 1.0
|
|
:shadow-max-y (meters 1)
|
|
:shadow-min-y (meters -1)
|
|
:shadow-locus-dist (meters 150)
|
|
:use-align #f
|
|
:draw-shadow #f
|
|
:move-to-ground #t
|
|
:hover-if-no-ground #t
|
|
:use-momentum #f
|
|
:use-flee #f
|
|
:use-proximity-notice #f
|
|
:use-jump-blocked #f
|
|
:use-jump-patrol #f
|
|
:gnd-collide-with (collide-kind background)
|
|
:debug-draw-neck #f
|
|
:debug-draw-jump #f
|
|
)
|
|
)
|
|
|
|
;; definition for method 11 of type lightning-mole
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! lightning-mole ((obj lightning-mole) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving obj (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 ca-10 ca-11))
|
|
(set! (-> s3-0 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 10240.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! (-> obj collide-info) s4-0)
|
|
)
|
|
(process-drawable-from-entity! obj arg0)
|
|
(initialize-skeleton obj *lightning-mole-sg* '())
|
|
(TODO-RENAME-45 obj *lightning-mole-nav-enemy-info*)
|
|
(logclear! (-> obj nav flags) (nav-control-flags navcf5 navcf6 navcf7))
|
|
(set! (-> obj draw origin-joint-index) (the-as uint 3))
|
|
(set! (-> obj reaction-time) (seconds 0.05))
|
|
(set! (-> obj last-reflection-time) 0)
|
|
(set! (-> obj collide-info pause-adjust-distance) 122880.0)
|
|
(set! (-> obj link) (new 'process 'actor-link-info obj))
|
|
(set! (-> obj alt-actor) (entity-actor-lookup arg0 'alt-actor 0))
|
|
(set! (-> obj flee-info min-reflect-angle) 10922.667)
|
|
(set! (-> obj flee-info max-reflect-angle) 14563.556)
|
|
(set! (-> obj flee-info max-boundary-deflection) 18204.445)
|
|
(set! (-> obj flee-info deflection-min-dist) 20480.0)
|
|
(set! (-> obj flee-info deflection-max-dist) 49152.0)
|
|
(set! (-> obj flee-info reflection-time) 225)
|
|
(set! (-> obj flee-info travel-rotate-speed) 1820.4445)
|
|
(set! (-> obj flee-info blend_interp_angle) 2184.5334)
|
|
(set! (-> obj flee-info min-speed-adjust) 0.8)
|
|
(set! (-> obj flee-info max-speed-adjust) 1.2)
|
|
(set! (-> obj flee-info speed-adjust-center) 40960.0)
|
|
(set! (-> obj flee-info speed-adjust-range) 20480.0)
|
|
(set! (-> obj flee-info abort-notice-distance) 49152.0)
|
|
(set! (-> obj flee-info min-notice-dist) 61440.0)
|
|
(set! (-> obj flee-info max-notice-dist) 143360.0)
|
|
(set! (-> obj flee-info min-stop-chase-dist) 40960.0)
|
|
(set! (-> obj flee-info max-stop-chase-dist) 184320.0)
|
|
(set! (-> obj flee-info max-flee-rotation) 364.0889)
|
|
(cond
|
|
((and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status complete)))
|
|
(go lightning-mole-gone)
|
|
)
|
|
((task-closed? (-> obj entity extra perm task) (task-status need-introduction))
|
|
(go (method-of-object obj nav-enemy-idle))
|
|
)
|
|
(else
|
|
(go lightning-mole-hiding)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-peeper
|
|
:id 456
|
|
:duration 5
|
|
:bounds (static-bspherem 0 0 0 15)
|
|
:parts
|
|
((sp-item 1768) (sp-item 1769 :period 120 :length 30) (sp-item 1770 :period 120 :length 60))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1768
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
(sp-flt spt-num 0.25)
|
|
(sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
|
|
(sp-flt spt-y (meters -2))
|
|
(sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 128.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 96.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 64.0 16.0 1.0)
|
|
(sp-rnd-flt spt-a 32.0 32.0 1.0)
|
|
(sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
|
|
(sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
|
|
(sp-flt spt-fade-a -0.21333334)
|
|
(sp-flt spt-accel-y -2.7306666)
|
|
(sp-flt spt-friction 0.97)
|
|
(sp-int spt-timer 450)
|
|
(sp-cpuinfo-flags bit2 bit12)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1769
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
(sp-flt spt-num 0.5)
|
|
(sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
|
|
(sp-flt spt-y (meters -2))
|
|
(sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 128.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 96.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 64.0 16.0 1.0)
|
|
(sp-rnd-flt spt-a 32.0 32.0 1.0)
|
|
(sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
|
|
(sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
|
|
(sp-flt spt-fade-a -0.21333334)
|
|
(sp-flt spt-friction 0.98)
|
|
(sp-int spt-timer 450)
|
|
(sp-cpuinfo-flags bit2 bit12)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1770
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
|
|
(sp-flt spt-num 5.0)
|
|
(sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
|
|
(sp-flt spt-y (meters 0))
|
|
(sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.1) 1.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 128.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 96.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 64.0 16.0 1.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.053333335) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
|
|
(sp-flt spt-accel-y -10.922667)
|
|
(sp-int spt-timer 450)
|
|
(sp-cpuinfo-flags bit2 bit12)
|
|
(sp-flt spt-userdata 106496.0)
|
|
(sp-func spt-func 'check-drop-level-rolling-dirt)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 20.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 180.0) (degrees 180.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1771
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
|
|
(sp-rnd-flt spt-num 1.0 1.0 1.0)
|
|
(sp-flt spt-y (meters 0))
|
|
(sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 128.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 96.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 64.0 16.0 1.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.016666668) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
|
|
(sp-flt spt-accel-y -10.922667)
|
|
(sp-int spt-timer 300)
|
|
(sp-cpuinfo-flags bit2 bit12)
|
|
(sp-flt spt-userdata 106496.0)
|
|
(sp-func spt-func 'check-drop-level-rolling-dirt-finish)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-conerot-radius (meters 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1772
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 128.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 96.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 64.0 16.0 1.0)
|
|
(sp-rnd-flt spt-a 64.0 64.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0) (meters 0.013333334) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
|
|
(sp-flt spt-fade-a -0.14222223)
|
|
(sp-flt spt-friction 0.9)
|
|
(sp-int spt-timer 900)
|
|
(sp-cpuinfo-flags bit2 bit12)
|
|
(sp-flt spt-conerot-x (degrees 90.0))
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
)
|
|
)
|
|
|
|
;; definition for function check-drop-level-rolling-dirt
|
|
(defun check-drop-level-rolling-dirt ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
|
|
(when (< (-> arg2 y) (-> arg1 user-float))
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(sp-kill-particle arg0 arg1)
|
|
(set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
|
|
(sp-launch-particles-var
|
|
*sp-particle-system-2d*
|
|
(-> *part-id-table* 1771)
|
|
gp-0
|
|
(the-as sparticle-launch-state #f)
|
|
(the-as sparticle-launch-control #f)
|
|
1.0
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function check-drop-level-rolling-dirt-finish
|
|
(defun check-drop-level-rolling-dirt-finish ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
|
|
(when (< (-> arg2 y) (-> arg1 user-float))
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(sp-kill-particle arg0 arg1)
|
|
(let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-2 (the-as number (logior #x3f800000 v1-1)))
|
|
)
|
|
(if (< (+ -1.0 (the-as float v1-2)) 0.05)
|
|
(sound-play-by-name (static-sound-name "land-grass") (new-sound-id) 1024 0 0 1 #t)
|
|
)
|
|
)
|
|
(set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
|
|
(sp-launch-particles-var
|
|
*sp-particle-system-2d*
|
|
(-> *part-id-table* 1772)
|
|
gp-0
|
|
(the-as sparticle-launch-state #f)
|
|
(the-as sparticle-launch-control #f)
|
|
1.0
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type peeper
|
|
(deftype peeper (process-drawable)
|
|
()
|
|
:heap-base #x40
|
|
:method-count-assert 20
|
|
:size-assert #xb0
|
|
:flag-assert #x14004000b0
|
|
(:states
|
|
peeper-down
|
|
peeper-hide
|
|
peeper-up
|
|
peeper-wait
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type peeper
|
|
(defmethod inspect peeper ((obj peeper))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate peeper-wait (peeper)
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(let ((v1-0 arg2))
|
|
(the-as object (when (= v1-0 'hide)
|
|
(let ((v0-0 (-> *display* base-frame-counter)))
|
|
(set! (-> self state-time) v0-0)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(if (nonzero? (-> self sound))
|
|
(stop! (-> self sound))
|
|
)
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(if (and (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 1))
|
|
(not (and *target* (>= 81920.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans)))))
|
|
)
|
|
(go peeper-up)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(while #t
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior peeper) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate peeper-hide (peeper)
|
|
:code
|
|
(behavior ()
|
|
(if (nonzero? (-> self sound))
|
|
(stop! (-> self sound))
|
|
)
|
|
(let ((a0-1 (-> self skel root-channel 0)))
|
|
(set! (-> a0-1 param 0) (the float (+ (-> a0-1 frame-group data 0 length) -1)))
|
|
(set! (-> a0-1 param 1) 2.0)
|
|
(joint-control-channel-group! a0-1 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(go peeper-wait)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior peeper) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate peeper-down (peeper)
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('hide)
|
|
(go peeper-wait)
|
|
)
|
|
)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(if (and *target* (>= 61440.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
(go peeper-wait)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 1))
|
|
(suspend)
|
|
)
|
|
(let* ((f30-0 2.0)
|
|
(v1-10 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-11 (the-as number (logior #x3f800000 v1-10)))
|
|
)
|
|
(countdown (gp-0 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-11)))) 1))
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 5))
|
|
(if (nonzero? (-> self sound))
|
|
(update! (-> self sound))
|
|
)
|
|
(spawn (-> self part) (-> self root trans))
|
|
(suspend)
|
|
)
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(if (nonzero? (-> self sound))
|
|
(stop! (-> self sound))
|
|
)
|
|
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 3))
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
(go peeper-up)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior peeper) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate peeper-up (peeper)
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('hide)
|
|
(go peeper-hide)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(if (nonzero? (-> self sound))
|
|
(stop! (-> self sound))
|
|
)
|
|
(logclear! (-> self draw status) (draw-status hidden))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(if (and *target* (>= 61440.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
|
|
(go peeper-hide)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(while #t
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 13)))
|
|
(set! (-> a0-0 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 13)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(set! (-> a0-0 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim (-> self draw art-group data 13)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-1 (-> self skel root-channel 0)))
|
|
(set! (-> a0-1 param 0) (the float (+ (-> a0-1 frame-group data 0 length) -1)))
|
|
(set! (-> a0-1 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-1 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(go peeper-down)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior peeper) ja-post)
|
|
)
|
|
|
|
;; definition for method 11 of type peeper
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! peeper ((obj peeper) (arg0 entity-actor))
|
|
(set! (-> obj root) (new 'process 'trsqv))
|
|
(process-drawable-from-entity! obj arg0)
|
|
(initialize-skeleton obj *lightning-mole-sg* '())
|
|
(set! (-> obj part) (create-launch-control (-> *part-group-id-table* 456) obj))
|
|
(set! (-> obj sound) (new 'process 'ambient-sound arg0 (-> obj root trans)))
|
|
(go peeper-up)
|
|
(none)
|
|
)
|