mirror of
https://github.com/open-goal/jak-project
synced 2026-08-02 08:42:11 -04:00
Hat Kid
335 lines
11 KiB
Common Lisp
Vendored
Generated
335 lines
11 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type darkvine
|
|
(deftype darkvine (process-drawable)
|
|
((root collide-shape :override)
|
|
(speed float)
|
|
(tip-index int8)
|
|
(dangerous symbol)
|
|
(vulnerable symbol)
|
|
(hit-player symbol)
|
|
(touch-time time-frame)
|
|
(player-attack-id int32)
|
|
)
|
|
(:states
|
|
(darkvine-die symbol)
|
|
darkvine-idle
|
|
darkvine-retreat
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type darkvine
|
|
(defmethod inspect ((this darkvine))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tspeed: ~f~%" (-> this speed))
|
|
(format #t "~T~Ttip-index: ~D~%" (-> this tip-index))
|
|
(format #t "~T~Tdangerous: ~A~%" (-> this dangerous))
|
|
(format #t "~T~Tvulnerable: ~A~%" (-> this vulnerable))
|
|
(format #t "~T~Thit-player: ~A~%" (-> this hit-player))
|
|
(format #t "~T~Ttouch-time: ~D~%" (-> this touch-time))
|
|
(format #t "~T~Tplayer-attack-id: ~D~%" (-> this player-attack-id))
|
|
this
|
|
)
|
|
|
|
;; definition for method 12 of type darkvine
|
|
(defmethod run-logic? ((this darkvine))
|
|
(or (not (logtest? (-> this mask) (process-mask actor-pause)))
|
|
(or (and (nonzero? (-> this draw))
|
|
(logtest? (-> this draw status) (draw-status was-drawn))
|
|
(>= (+ (-> *ACTOR-bank* pause-dist) (-> this root pause-adjust-distance))
|
|
(vector-vector-distance (-> this root trans) (math-camera-pos))
|
|
)
|
|
)
|
|
(and (nonzero? (-> this skel)) (!= (-> this skel root-channel 0) (-> this skel channel)))
|
|
(and (nonzero? (-> this draw)) (logtest? (-> this draw status) (draw-status no-skeleton-update)))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *darkvine-sg* darkvine darkvine-lod0-jg darkvine-idle-ja
|
|
((darkvine-lod0-mg (meters 20)) (darkvine-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 2 0 3.5)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-darkvine-puffs
|
|
:id 175
|
|
:duration (seconds 0.5)
|
|
:flags (use-local-clock)
|
|
:bounds (static-bspherem 0 2 0 3)
|
|
:parts ((sp-item 800) (sp-item 801) (sp-item 802))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 800
|
|
:init-specs ((:texture (falls-particle-02 effects))
|
|
(:num 0.8)
|
|
(:x (meters 0) (meters 0.5))
|
|
(:scale-x (meters 1) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 30.0 20.0)
|
|
(:g 25.0 10.0)
|
|
(:b 10.0 5.0)
|
|
(:a 0.0 32.0)
|
|
(:vel-x (meters 0.0016666667) (meters 0.0033333334))
|
|
(:vel-y (meters 0.013333334))
|
|
(:rotvel-z (degrees -0.3) 1 (degrees 0.6))
|
|
(:fade-a 0.1882353)
|
|
(:accel-y (meters -0.0005))
|
|
(:timer (seconds 0.85))
|
|
(:flags (bit2 bit12))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 802
|
|
:init-specs ((:texture (rockbit effects))
|
|
(:num 0.25)
|
|
(:x (meters 0) (meters 0.6))
|
|
(:scale-x (meters 0.025) (meters 0.2))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 45.0 45.0)
|
|
(:g 45.0 10.0)
|
|
(:b 20.0 6.0)
|
|
(:a 96.0)
|
|
(:vel-x (meters 0.0016666667) (meters 0.0033333334))
|
|
(:vel-y (meters 0.013333334) (meters 0.013333334))
|
|
(:rotvel-z (degrees -0.3) 1 (degrees 0.6))
|
|
(:accel-y (meters -0.00066666666))
|
|
(:timer (seconds 1.25))
|
|
(:flags (bit2 bit12))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 801
|
|
:init-specs ((:texture (woodchip effects))
|
|
(:num 0.5)
|
|
(:x (meters 0) (meters 0.6))
|
|
(:scale-x (meters 0.3) (meters 0.4))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 0.1) (meters 0.1))
|
|
(:r 10.0 6.0)
|
|
(:g 40.0 90.0)
|
|
(:b 10.0 6.0)
|
|
(:a 96.0)
|
|
(:vel-x (meters 0.0016666667) (meters 0.0033333334))
|
|
(:vel-y (meters 0.01) (meters 0.013333334))
|
|
(:rotvel-z (degrees -1.2) 1 (degrees 2.4))
|
|
(:accel-y (meters -0.00033333333))
|
|
(:timer (seconds 2))
|
|
(:flags (bit2 bit12))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; definition for function darkvine-event-handler
|
|
(defbehavior darkvine-event-handler darkvine ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('touch)
|
|
(do-push-aways! (-> self root))
|
|
(when (-> self dangerous)
|
|
(if (send-event arg0 'attack (-> arg3 param 0) (new 'static 'attack-info))
|
|
(set-collide-offense (-> self root) 2 (collide-offense no-offense))
|
|
)
|
|
)
|
|
)
|
|
(('attack)
|
|
(let ((v1-10 (-> arg3 param 2)))
|
|
(cond
|
|
((!= v1-10 (-> self player-attack-id))
|
|
(set! (-> self player-attack-id) (the-as int v1-10))
|
|
(when (-> self vulnerable)
|
|
(do-push-aways! (-> self root))
|
|
(go darkvine-retreat)
|
|
)
|
|
)
|
|
(else
|
|
'push
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate darkvine-idle (darkvine)
|
|
:event darkvine-event-handler
|
|
:code (behavior ()
|
|
(set! (-> self dangerous) #t)
|
|
(set! (-> self vulnerable) #t)
|
|
(let ((f30-0 0.0))
|
|
(loop
|
|
(if (logtest? (get-reminder (get-task-control (game-task jungle-plant)) 0) 1)
|
|
(go darkvine-die #f)
|
|
)
|
|
(ja-no-eval :group! darkvine-idle-ja :num! (seek! max (-> self speed)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(if (and (>= (ja-aframe-num 0) 120.0) (>= 180.0 (ja-aframe-num 0)))
|
|
(seek-toward-yaw-angle! (-> self root) f30-0 32768.0 (seconds 0.5))
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek! max (-> self speed)))
|
|
)
|
|
(set! f30-0 (if (rand-vu-percent? 0.5)
|
|
(+ 16384.0 f30-0)
|
|
(+ -16384.0 f30-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:post (behavior ()
|
|
(when (and (-> self hit-player) (or (not *target*) (time-elapsed? (-> self touch-time) (seconds 0.05))))
|
|
(set-collide-offense (-> self root) 2 (collide-offense indestructible))
|
|
(set! (-> self hit-player) #f)
|
|
)
|
|
(transform-post)
|
|
(if *target*
|
|
(look-at-enemy!
|
|
(-> *target* neck)
|
|
(vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data (-> self tip-index)))
|
|
'nothing
|
|
self
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate darkvine-retreat (darkvine)
|
|
:event darkvine-event-handler
|
|
:code (behavior ()
|
|
(set-time! (-> self state-time))
|
|
(set! (-> self dangerous) #f)
|
|
(set! (-> self vulnerable) #f)
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(ja-channel-push! 1 (seconds 0.15))
|
|
(ja-no-eval :group! darkvine-retreat-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(launch-particles (-> *part-id-table* 800) (-> self root trans))
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(ja-channel-set! 0)
|
|
(suspend-for (seconds 2)
|
|
)
|
|
(process-spawn
|
|
part-tracker
|
|
:init part-tracker-init
|
|
(-> *part-group-id-table* 175)
|
|
-1
|
|
#f
|
|
#f
|
|
#f
|
|
(-> self root trans)
|
|
:to *entity-pool*
|
|
)
|
|
(suspend-for (seconds 0.5)
|
|
)
|
|
(set! (-> self dangerous) #t)
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
(ja-channel-set! 1)
|
|
(ja-no-eval :group! darkvine-pushup-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go darkvine-idle)
|
|
)
|
|
:post (-> darkvine-idle post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate darkvine-die (darkvine)
|
|
:code (behavior ((arg0 symbol))
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(if arg0
|
|
(ja-channel-set! 1)
|
|
(ja-channel-push! 1 (seconds 0.5))
|
|
)
|
|
(clear-collide-with-as (-> self root))
|
|
(ja :group! darkvine-dead-ja :num! min)
|
|
(while (!= (-> self skel root-channel 0) (-> self skel channel))
|
|
(suspend)
|
|
)
|
|
(logior! (-> self mask) (process-mask sleep))
|
|
(anim-loop)
|
|
)
|
|
:post (-> darkvine-idle post)
|
|
)
|
|
|
|
;; definition for method 11 of type darkvine
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this darkvine) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask enemy))
|
|
(let ((s4-0 (new 'process 'collide-shape this (collide-list-enum hit-by-player))))
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 4) 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 attackable attackable-unused))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 8192.0 0.0 16384.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 2))))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-0 collide-with) (collide-kind target))
|
|
(set! (-> s2-0 prim-core action) (collide-action solid attackable attackable-unused))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-0 transform-index) 5)
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 3276.8)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 2))))
|
|
(set! (-> s2-1 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-1 collide-with) (collide-kind target))
|
|
(set! (-> s2-1 prim-core action) (collide-action solid attackable attackable-unused))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-1 transform-index) 6)
|
|
(set-vector! (-> s2-1 local-sphere) 0.0 0.0 0.0 2867.2)
|
|
(append-prim s3-0 s2-1)
|
|
)
|
|
(let ((s2-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 2))))
|
|
(set! (-> s2-2 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-2 collide-with) (collide-kind target))
|
|
(set! (-> s2-2 prim-core action) (collide-action solid attackable attackable-unused))
|
|
(set! (-> s2-2 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-2 transform-index) 7)
|
|
(set-vector! (-> s2-2 local-sphere) 0.0 0.0 0.0 2457.6)
|
|
(append-prim s3-0 s2-2)
|
|
)
|
|
(let ((s2-3 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 2))))
|
|
(set! (-> s2-3 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-3 collide-with) (collide-kind target))
|
|
(set! (-> s2-3 prim-core action) (collide-action solid attackable attackable-unused))
|
|
(set! (-> s2-3 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-3 transform-index) 8)
|
|
(set-vector! (-> s2-3 local-sphere) 0.0 0.0 0.0 2048.0)
|
|
(append-prim s3-0 s2-3)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) 2048.0)
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(set! (-> this tip-index) 8)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *darkvine-sg* '())
|
|
(nav-mesh-connect this (-> this root) (the-as nav-control #f))
|
|
(set! (-> this hit-player) #f)
|
|
(set! (-> this speed) (rand-vu-float-range 0.95 1.05))
|
|
(if (logtest? (get-reminder (get-task-control (game-task jungle-plant)) 0) 1)
|
|
(go darkvine-die #t)
|
|
)
|
|
(go darkvine-idle)
|
|
(none)
|
|
)
|