mirror of
https://github.com/open-goal/jak-project
synced 2026-08-08 02:31:30 -04:00
Hat Kid
263 lines
8.0 KiB
Common Lisp
Vendored
Generated
263 lines
8.0 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type spider-egg
|
|
(deftype spider-egg (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(notify-actor entity-actor)
|
|
(broken-look lod-set :inline)
|
|
)
|
|
(:states
|
|
spider-egg-die
|
|
spider-egg-hatch
|
|
(spider-egg-idle symbol)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type spider-egg
|
|
(defmethod inspect ((this spider-egg))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tnotify-actor: ~A~%" (-> this notify-actor))
|
|
(format #t "~T~Tbroken-look: #<lod-set @ #x~X>~%" (-> this broken-look))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *spider-egg-unbroken-sg* spider-egg spider-egg-unbroken-lod0-jg -1
|
|
((spider-egg-unbroken-lod0-mg (meters 20))
|
|
(spider-egg-unbroken-lod1-mg (meters 40))
|
|
(spider-egg-unbroken-lod2-mg (meters 999999))
|
|
)
|
|
:bounds (static-spherem 0 1 0 2)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *spider-egg-broken-sg* spider-egg spider-egg-broken-lod0-jg -1
|
|
((spider-egg-broken-lod0-mg (meters 20))
|
|
(spider-egg-broken-lod1-mg (meters 40))
|
|
(spider-egg-broken-lod2-mg (meters 999999))
|
|
)
|
|
:bounds (static-spherem 0 1 0 2)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate spider-egg-idle (spider-egg)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(local-vars (v0-0 object))
|
|
(case message
|
|
(('touch)
|
|
(send-shove-back (-> self root) proc (the-as touching-shapes-entry (-> block param 0)) 0.7 6144.0 16384.0)
|
|
)
|
|
(('can-spawn?)
|
|
(return #t)
|
|
v0-0
|
|
)
|
|
(('notify-spawned)
|
|
(go spider-egg-hatch)
|
|
)
|
|
(('attack)
|
|
(go spider-egg-die)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ((arg0 symbol))
|
|
(set-time! (-> self state-time))
|
|
)
|
|
:code (behavior ((arg0 symbol))
|
|
(let ((f30-0 (rand-vu-float-range 0.8 1.2)))
|
|
(cond
|
|
(arg0
|
|
(ja-channel-set! 1)
|
|
(ja-no-eval :group! spider-egg-idle-ja
|
|
:num! (seek! max f30-0)
|
|
:frame-num (rand-vu-float-range 0.0 (the float (+ (-> (ja-group) data 0 length) -1)))
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! max f30-0))
|
|
)
|
|
)
|
|
(else
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
)
|
|
)
|
|
(loop
|
|
(let ((gp-2 (rand-vu-int-range 2 6)))
|
|
(dotimes (s5-0 gp-2)
|
|
(ja-no-eval :group! spider-egg-idle-ja :num! (seek! max f30-0) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! max f30-0))
|
|
)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(ja-no-eval :group! spider-egg-twitch-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate spider-egg-hatch (spider-egg)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(local-vars (v0-0 symbol))
|
|
(case message
|
|
(('can-spawn?)
|
|
(return (the-as object #f))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(cleanup-for-death self)
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(clear-collide-with-as (-> self root))
|
|
(process-spawn
|
|
part-tracker
|
|
:init part-tracker-init
|
|
group-spider-egg-hatches
|
|
-1
|
|
#f
|
|
#f
|
|
#f
|
|
(-> self root trans)
|
|
:to *entity-pool*
|
|
)
|
|
(lods-assign! (-> self draw) (-> self broken-look))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja-no-eval :group! spider-egg-crack-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(until (not (-> self child))
|
|
(suspend)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate spider-egg-die (spider-egg)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(local-vars (v0-0 symbol))
|
|
(case message
|
|
(('can-spawn?)
|
|
(return (the-as object #f))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(cleanup-for-death self)
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(when (-> self notify-actor)
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) self)
|
|
(set! (-> a1-0 num-params) 1)
|
|
(set! (-> a1-0 message) 'notify)
|
|
(set! (-> a1-0 param 0) (the-as uint 'die))
|
|
(let ((t9-1 send-event-function)
|
|
(v1-9 (-> self notify-actor))
|
|
)
|
|
(t9-1
|
|
(if v1-9
|
|
(-> v1-9 extra process)
|
|
)
|
|
a1-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(process-spawn
|
|
part-tracker
|
|
:init part-tracker-init
|
|
group-spider-egg-explodes
|
|
-1
|
|
#f
|
|
#f
|
|
#f
|
|
(-> self root trans)
|
|
:to *entity-pool*
|
|
)
|
|
(lods-assign! (-> self draw) (-> self broken-look))
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(clear-collide-with-as (-> self root))
|
|
(ja-no-eval :group! spider-egg-die-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(until (not (-> self child))
|
|
(suspend)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
;; definition for method 11 of type spider-egg
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this spider-egg) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask enemy))
|
|
(logior! (-> this mask) (process-mask attackable))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (collide-list-enum usually-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))
|
|
(set! (-> s3-0 prim-core offense) (collide-offense touch))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 2048.0 0.0 3686.4)
|
|
(set-root-prim! s4-0 s3-0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) 4096.0)
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *spider-egg-unbroken-sg* '())
|
|
(setup-lods! (-> this broken-look) *spider-egg-broken-sg* (-> this draw art-group) (-> this entity))
|
|
(set-vector! (-> this root scale) 0.4 0.4 0.4 1.0)
|
|
(if (not (move-to-ground (-> this root) 12288.0 40960.0 #t (collide-kind background)))
|
|
(go process-drawable-art-error "no ground")
|
|
)
|
|
(+! (-> this root trans y) -409.6)
|
|
(let ((s4-1 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s4-1 quad) (-> this root surface-normal quad))
|
|
(+! (-> s4-1 x) (rand-vu-float-range -0.2 0.2))
|
|
(+! (-> s4-1 z) (rand-vu-float-range -0.2 0.2))
|
|
(vector-normalize! s4-1 1.0)
|
|
(quaternion-axis-angle!
|
|
(-> this root quat)
|
|
(-> s4-1 x)
|
|
(-> s4-1 y)
|
|
(-> s4-1 z)
|
|
(rand-vu-float-range 0.0 65536.0)
|
|
)
|
|
)
|
|
(update-transforms! (-> this root))
|
|
(nav-mesh-connect this (-> this root) (the-as nav-control #f))
|
|
(if (> (entity-actor-count arg0 'alt-actor) 0)
|
|
(set! (-> this notify-actor) (entity-actor-lookup arg0 'alt-actor 0))
|
|
(set! (-> this notify-actor) #f)
|
|
)
|
|
(go spider-egg-idle #t)
|
|
(none)
|
|
)
|