mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
c235280b91
* [decomp] clean up files 50-100 * update file, fix crash on too many prims * spelling is hard
1951 lines
69 KiB
Common Lisp
1951 lines
69 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: plant-boss.gc
|
|
;; name in dgo: plant-boss
|
|
;; dgos: JUB, L1
|
|
|
|
(declare-type plant-boss-leaf process-drawable)
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(import "goal_src/import/plant-boss-ag.gc")
|
|
|
|
(deftype plant-boss (process-drawable)
|
|
((root-override collide-shape :offset 112)
|
|
(neck joint-mod :offset-assert 176)
|
|
(body joint-mod :offset-assert 180)
|
|
(leaf (pointer plant-boss-leaf) 2 :offset-assert 184)
|
|
(energy float :offset-assert 192)
|
|
(health float :offset-assert 196)
|
|
(ate symbol :offset-assert 200)
|
|
(cycle-count int32 :offset-assert 204)
|
|
(snap-count int32 :offset-assert 208)
|
|
(attack-prim collide-shape-prim-sphere 3 :offset-assert 212)
|
|
(death-prim collide-shape-prim-mesh 3 :offset-assert 224)
|
|
(cam-tracker handle :offset-assert 240)
|
|
(want-aphid-count int32 :offset-assert 248)
|
|
(aphid-count int32 :offset-assert 252)
|
|
(aphid-spawn-time time-frame :offset-assert 256)
|
|
(interp float :offset-assert 264)
|
|
(try int32 :offset-assert 268)
|
|
(camera handle :offset-assert 272)
|
|
(money handle :offset-assert 280)
|
|
(try-inc symbol :offset-assert 288)
|
|
)
|
|
:heap-base #xc0
|
|
:method-count-assert 20
|
|
:size-assert #x124
|
|
:flag-assert #x1400c00124
|
|
(:states
|
|
(plant-boss-attack int)
|
|
(plant-boss-dead symbol)
|
|
(plant-boss-dead-bounce float)
|
|
plant-boss-dead-idle
|
|
plant-boss-eat
|
|
plant-boss-far-idle
|
|
(plant-boss-hit symbol)
|
|
plant-boss-idle
|
|
plant-boss-intro
|
|
(plant-boss-reset int)
|
|
plant-boss-spawn
|
|
plant-boss-vulnerable
|
|
)
|
|
)
|
|
|
|
|
|
(defmethod relocate plant-boss ((obj plant-boss) (arg0 int))
|
|
(if (nonzero? (-> obj neck))
|
|
(&+! (-> obj neck) arg0)
|
|
)
|
|
(if (nonzero? (-> obj body))
|
|
(&+! (-> obj body) arg0)
|
|
)
|
|
(dotimes (v1-8 3)
|
|
(if (nonzero? (-> obj attack-prim v1-8))
|
|
(&+! (-> obj attack-prim v1-8) arg0)
|
|
)
|
|
(if (nonzero? (-> obj death-prim v1-8))
|
|
(&+! (-> obj death-prim v1-8) arg0)
|
|
)
|
|
)
|
|
(the-as
|
|
plant-boss
|
|
((the-as (function process-drawable int process-drawable) (find-parent-method plant-boss 7)) obj arg0)
|
|
)
|
|
)
|
|
|
|
(deftype plant-boss-arm (process-drawable)
|
|
((parent-override (pointer plant-boss) :offset 12)
|
|
(root-override collide-shape :offset 112)
|
|
(side int32 :offset-assert 176)
|
|
)
|
|
:heap-base #x50
|
|
:method-count-assert 20
|
|
:size-assert #xb4
|
|
:flag-assert #x14005000b4
|
|
(:states
|
|
(plant-boss-arm-die symbol)
|
|
(plant-boss-arm-hit basic)
|
|
plant-boss-arm-idle
|
|
(plant-boss-back-arms-die symbol)
|
|
(plant-boss-back-arms-hit symbol)
|
|
plant-boss-back-arms-idle
|
|
(plant-boss-root-die symbol)
|
|
plant-boss-root-idle
|
|
(plant-boss-vine-die symbol)
|
|
(plant-boss-vine-hit basic)
|
|
plant-boss-vine-idle
|
|
)
|
|
)
|
|
|
|
|
|
(deftype plant-boss-leaf (process-drawable)
|
|
((root-override collide-shape-moving :offset 112)
|
|
(side int32 :offset-assert 176)
|
|
(state-object symbol :offset-assert 180)
|
|
(state-time-frame time-frame :offset-assert 184)
|
|
)
|
|
:heap-base #x50
|
|
:method-count-assert 20
|
|
:size-assert #xc0
|
|
:flag-assert #x14005000c0
|
|
(:states
|
|
plant-boss-leaf-bounce
|
|
plant-boss-leaf-close
|
|
(plant-boss-leaf-die basic)
|
|
(plant-boss-leaf-idle symbol)
|
|
(plant-boss-leaf-open symbol)
|
|
(plant-boss-leaf-open-idle symbol)
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *plant-boss-sg* plant-boss plant-boss-main-lod0-jg plant-boss-main-idle-ja
|
|
((plant-boss-main-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 10 20)
|
|
:shadow plant-boss-main-shadow-mg
|
|
)
|
|
|
|
(defskelgroup *plant-boss-arm-sg* plant-boss plant-boss-arms-lod0-jg plant-boss-arms-idle-ja
|
|
((plant-boss-arms-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 20)
|
|
:shadow plant-boss-arms-shadow-mg
|
|
)
|
|
|
|
(defskelgroup *plant-boss-leaf-sg* plant-boss plant-boss-leaf-lod0-jg plant-boss-leaf-idle-left-ja
|
|
((plant-boss-leaf-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 6)
|
|
:shadow plant-boss-leaf-shadow-mg
|
|
)
|
|
|
|
(defskelgroup *plant-boss-back-arms-sg* plant-boss plant-boss-back-arms-lod0-jg plant-boss-back-arms-idle-ja
|
|
((plant-boss-back-arms-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 8)
|
|
:shadow plant-boss-back-arms-shadow-mg
|
|
)
|
|
|
|
(defskelgroup *plant-boss-vine-sg* plant-boss plant-boss-vine-lod0-jg plant-boss-vine-idle-ja
|
|
((plant-boss-vine-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 10)
|
|
)
|
|
|
|
(defskelgroup *plant-boss-root-sg* plant-boss plant-boss-root-lod0-jg plant-boss-root-idle-ja
|
|
((plant-boss-root-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 20 0 20)
|
|
)
|
|
|
|
(define *plant-boss-shadow-control*
|
|
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
|
|
:flags (shadow-flags disable-fade)
|
|
:shadow-dir (new 'static 'vector :y -1.0 :w 409600.0)
|
|
:bot-plane (new 'static 'plane :y 1.0 :w 37683.2)
|
|
:top-plane (new 'static 'plane :y 1.0 :w 4096.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior plant-boss-generic-event-handler plant-boss ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(local-vars (v0-0 object))
|
|
(case arg2
|
|
(('child-die)
|
|
(set! v0-0 (seekl (-> self aphid-count) 0 1))
|
|
(set! (-> self aphid-count) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
(('joint)
|
|
24
|
|
)
|
|
(('try)
|
|
(-> self try)
|
|
)
|
|
(('notify)
|
|
(case (-> arg3 param 0)
|
|
(('pickup)
|
|
(when (type-type? (-> arg0 type) money)
|
|
(let ((gp-0 (-> self entity extra perm)))
|
|
(logior! (-> gp-0 status) (entity-perm-status user-set-from-cstage))
|
|
(set! v0-0 (seekl (-> gp-0 user-int8 1) 5 1))
|
|
(set! (-> gp-0 user-int8 1) (the-as int v0-0))
|
|
)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('target)
|
|
(case (-> arg3 param 0)
|
|
(('die)
|
|
(if (= (-> arg3 param 1) 'plant-boss)
|
|
(go plant-boss-eat)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior plant-boss-default-event-handler plant-boss ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('touch 'attack)
|
|
(if (and ((method-of-type touching-shapes-entry prims-touching?)
|
|
(the-as touching-shapes-entry (-> arg3 param 0))
|
|
(the-as collide-shape-moving (-> self root-override))
|
|
(the-as uint 1)
|
|
)
|
|
(not (ja-group? plant-boss-main-vulnerable2idle-ja))
|
|
)
|
|
(send-event arg0 'attack-or-shove (-> arg3 param 0) (new 'static 'attack-info))
|
|
)
|
|
)
|
|
(else
|
|
(plant-boss-generic-event-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior plant-boss-post plant-boss ()
|
|
(when *target*
|
|
(let ((gp-0 (-> *target* control root-prim prim-core)))
|
|
(set-target! (-> self neck) (the-as vector gp-0))
|
|
(set-target! (-> self body) (the-as vector gp-0))
|
|
)
|
|
)
|
|
(transform-post)
|
|
(none)
|
|
)
|
|
|
|
(defstate plant-boss-arm-idle (plant-boss-arm)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('hide 'die)
|
|
(go plant-boss-arm-die (the-as symbol (-> arg3 param 0)))
|
|
)
|
|
(('hit)
|
|
(go plant-boss-arm-hit (the-as basic (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(ja-channel-set! 2)
|
|
(ja :group! plant-boss-arms-idle-ja :num! min)
|
|
(ja :chan 1 :group! plant-boss-arms-still-ja :num! min)
|
|
(loop
|
|
(ja :num! (loop!))
|
|
(ja :chan 1 :frame-interp (- 1.0 (-> self parent-override 0 energy)))
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-arm-hit (plant-boss-arm)
|
|
:event (-> plant-boss-arm-idle event)
|
|
:code (behavior ((arg0 basic))
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(ja-no-eval :group! plant-boss-arms-hit-ja :num! (seek! (ja-aframe (the-as float 90.0) 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 90.0) 0)))
|
|
)
|
|
(ja-no-eval :num! (seek!))
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-arms-idle-ja :num! (seek!) :frame-num (ja-aframe (the-as float 90.0) 0))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go plant-boss-arm-idle)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-arm-die (plant-boss-arm)
|
|
:code (behavior ((arg0 symbol))
|
|
(let ((a0-1 (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 0)))
|
|
(set! (-> self root-override root-prim local-sphere w) 81920.0)
|
|
(set! (-> (the-as collide-shape-prim-mesh a0-1) local-sphere w) 69632.0)
|
|
(set! (-> (the-as collide-shape-prim-mesh a0-1) collide-with) (collide-kind target))
|
|
(set! (-> (the-as collide-shape-prim-mesh a0-1) prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> (the-as collide-shape-prim-mesh a0-1) prim-core offense) (collide-offense indestructible))
|
|
(let ((t9-0 (method-of-object (the-as collide-shape-prim-mesh a0-1) change-mesh))
|
|
(v1-10 (-> self side))
|
|
)
|
|
(t9-0 (the-as collide-shape-prim-mesh a0-1) (if (= v1-10 1)
|
|
1
|
|
0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
(arg0
|
|
(ja-channel-set! 1)
|
|
)
|
|
(else
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(let ((f30-0 (rand-vu-float-range (the-as float 0.8) (the-as float 1.0))))
|
|
(case (-> self side)
|
|
((1)
|
|
(ja-no-eval :group! plant-boss-arms-die-right-ja :num! (seek! max f30-0) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! max f30-0))
|
|
)
|
|
)
|
|
(else
|
|
(ja-no-eval :group! plant-boss-arms-die-ja :num! (seek! max f30-0) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! max f30-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(case (-> self side)
|
|
((1)
|
|
(ja :group! plant-boss-arms-die-right-ja :num! max)
|
|
)
|
|
(else
|
|
(ja :group! plant-boss-arms-die-ja :num! max)
|
|
)
|
|
)
|
|
(set! (-> (find-prim-by-id (-> self root-override) (the-as uint 1)) prim-core action) (collide-action))
|
|
0
|
|
(set! (-> (find-prim-by-id (-> self root-override) (the-as uint 2)) prim-core action) (collide-action))
|
|
0
|
|
(update-transforms! (-> self root-override))
|
|
(loop
|
|
(logior! (-> self mask) (process-mask sleep))
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-back-arms-idle (plant-boss-arm)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(if (or (= arg2 'touch) (= arg2 'attack))
|
|
(send-event arg0 'attack (-> arg3 param 0) (new 'static 'attack-info))
|
|
)
|
|
(cond
|
|
((= arg2 'hit)
|
|
(go plant-boss-back-arms-hit (the-as symbol (-> arg3 param 0)))
|
|
)
|
|
((= arg2 'die)
|
|
(go plant-boss-back-arms-die (the-as symbol (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(ja-no-eval :group! plant-boss-back-arms-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-back-arms-hit (plant-boss-arm)
|
|
:event (-> plant-boss-back-arms-idle event)
|
|
:code (behavior ((arg0 symbol))
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(cond
|
|
((or (= arg0 'spin) (= arg0 'spin-air))
|
|
(ja-no-eval :group! plant-boss-back-arms-hit-kick-ja
|
|
:num! (seek! (ja-aframe (the-as float 45.0) 0))
|
|
:frame-num 0.0
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 45.0) 0)))
|
|
)
|
|
)
|
|
(else
|
|
(ja-no-eval :group! plant-boss-back-arms-hit-ja
|
|
:num! (seek! (ja-aframe (the-as float 45.0) 0))
|
|
:frame-num 0.0
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 45.0) 0)))
|
|
)
|
|
)
|
|
)
|
|
(ja-no-eval :num! (seek!))
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-back-arms-idle-ja :num! (seek!) :frame-num (ja-aframe (the-as float 45.0) 0))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go plant-boss-back-arms-idle)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-back-arms-die (plant-boss-arm)
|
|
:code (behavior ((arg0 symbol))
|
|
(cond
|
|
(arg0
|
|
(ja-channel-set! 1)
|
|
)
|
|
(else
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-back-arms-die-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(clear-collide-with-as (-> self root-override))
|
|
(ja :group! plant-boss-back-arms-die-ja :num! max)
|
|
(loop
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-vine-idle (plant-boss-arm)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('hide 'die)
|
|
(go plant-boss-vine-die (the-as symbol (-> arg3 param 0)))
|
|
)
|
|
(('hit)
|
|
(go plant-boss-vine-hit (the-as basic (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(let ((f30-0 (rand-vu-float-range (the-as float 0.9) (the-as float 1.1))))
|
|
(loop
|
|
(ja-no-eval :group! plant-boss-vine-idle-ja :num! (seek! max f30-0) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! max f30-0))
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-vine-hit (plant-boss-arm)
|
|
:event (-> plant-boss-vine-idle event)
|
|
:code (behavior ((arg0 basic))
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(ja-no-eval :group! plant-boss-vine-hit-ja :num! (seek! (ja-aframe (the-as float 45.0) 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 45.0) 0)))
|
|
)
|
|
(ja-no-eval :num! (seek!))
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-vine-idle-ja :num! (seek!) :frame-num (ja-aframe (the-as float 45.0) 0))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go plant-boss-vine-idle)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-vine-die (plant-boss-arm)
|
|
:code (behavior ((arg0 symbol))
|
|
(when (not arg0)
|
|
(let ((f30-0 (rand-vu-float-range (the-as float 0.0) (the-as float 1.0)))
|
|
(gp-0 (-> *display* base-frame-counter))
|
|
)
|
|
(until (>= (- (-> *display* base-frame-counter) gp-0) (the int (* 300.0 f30-0)))
|
|
(ja :num! (loop!))
|
|
(suspend)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-vine-die-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-root-idle (plant-boss-arm)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('hide 'die)
|
|
(go plant-boss-root-die (the-as symbol (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(let ((f30-0 (rand-vu-float-range (the-as float 0.9) (the-as float 1.1))))
|
|
(loop
|
|
(ja-no-eval :group! plant-boss-root-idle-ja :num! (seek! max f30-0) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! max f30-0))
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-root-die (plant-boss-arm)
|
|
:code (behavior ((arg0 symbol))
|
|
(when (not arg0)
|
|
(let ((gp-0 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-0) (seconds 4))
|
|
(+! (-> self root-override trans z) (* -4096.0 (-> *display* seconds-per-frame)))
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-arm) ja-post)
|
|
)
|
|
|
|
(defbehavior plant-boss-arm-init plant-boss-arm ((arg0 vector) (arg1 float) (arg2 int))
|
|
(stack-size-set! (-> self main-thread) 128)
|
|
(let ((s3-0 (new 'process 'collide-shape self (collide-list-enum hit-by-player))))
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-group s3-0 (the-as uint 3) 0)))
|
|
(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))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 16384.0 0.0 16384.0)
|
|
(set-root-prim! s3-0 s2-0)
|
|
(let ((s1-0 (new 'process 'collide-shape-prim-mesh s3-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s1-0 prim-core collide-as) (collide-kind))
|
|
(set! (-> s1-0 collide-with) (collide-kind))
|
|
(set! (-> s1-0 prim-core action) (collide-action solid))
|
|
(set! (-> s1-0 prim-core offense) (collide-offense no-offense))
|
|
(set! (-> s1-0 transform-index) 5)
|
|
(set-vector! (-> s1-0 local-sphere) 0.0 0.0 0.0 81920.0)
|
|
(append-prim s2-0 s1-0)
|
|
)
|
|
(let ((s1-1 (new 'process 'collide-shape-prim-sphere s3-0 (the-as uint 1))))
|
|
(set! (-> s1-1 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s1-1 collide-with) (collide-kind target))
|
|
(set! (-> s1-1 prim-core action) (collide-action solid))
|
|
(set! (-> s1-1 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s1-1 local-sphere) 0.0 12288.0 0.0 12288.0)
|
|
(append-prim s2-0 s1-1)
|
|
)
|
|
(let ((s1-2 (new 'process 'collide-shape-prim-sphere s3-0 (the-as uint 2))))
|
|
(set! (-> s1-2 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s1-2 collide-with) (collide-kind target))
|
|
(set! (-> s1-2 prim-core action) (collide-action solid))
|
|
(set! (-> s1-2 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s1-2 local-sphere) 0.0 20480.0 0.0 12288.0)
|
|
(append-prim s2-0 s1-2)
|
|
)
|
|
)
|
|
(set! (-> s3-0 nav-radius) (* 0.75 (-> s3-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s3-0)
|
|
(set! (-> self root-override) s3-0)
|
|
)
|
|
(set! (-> self root-override trans quad) (-> arg0 quad))
|
|
(set-yaw-angle-clear-roll-pitch! (-> self root-override) arg1)
|
|
(set! (-> self side) arg2)
|
|
(initialize-skeleton self *plant-boss-arm-sg* '())
|
|
(set! (-> self draw shadow-ctrl) *plant-boss-shadow-control*)
|
|
(go plant-boss-arm-idle)
|
|
(none)
|
|
)
|
|
|
|
(defbehavior plant-boss-back-arms-init plant-boss-arm ((arg0 vector) (arg1 float) (arg2 int))
|
|
(stack-size-set! (-> self main-thread) 128)
|
|
(let ((s3-0 (new 'process 'collide-shape self (collide-list-enum hit-by-player))))
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-group s3-0 (the-as uint 2) 0)))
|
|
(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))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s2-0 local-sphere) -30720.0 6144.0 26624.0 16384.0)
|
|
(set-root-prim! s3-0 s2-0)
|
|
(let ((s1-0 (new 'process 'collide-shape-prim-sphere s3-0 (the-as uint 0))))
|
|
(set! (-> s1-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s1-0 collide-with) (collide-kind target))
|
|
(set! (-> s1-0 prim-core action) (collide-action solid))
|
|
(set! (-> s1-0 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s1-0 local-sphere) -32768.0 6144.0 32768.0 4915.2)
|
|
(append-prim s2-0 s1-0)
|
|
)
|
|
(let ((s1-1 (new 'process 'collide-shape-prim-sphere s3-0 (the-as uint 0))))
|
|
(set! (-> s1-1 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s1-1 collide-with) (collide-kind target))
|
|
(set! (-> s1-1 prim-core action) (collide-action solid))
|
|
(set! (-> s1-1 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s1-1 local-sphere) -28672.0 6144.0 20480.0 4915.2)
|
|
(append-prim s2-0 s1-1)
|
|
)
|
|
)
|
|
(set! (-> s3-0 nav-radius) (* 0.75 (-> s3-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s3-0)
|
|
(set! (-> self root-override) s3-0)
|
|
)
|
|
(set! (-> self root-override trans quad) (-> arg0 quad))
|
|
(set-yaw-angle-clear-roll-pitch! (-> self root-override) arg1)
|
|
(set! (-> self side) arg2)
|
|
(initialize-skeleton self *plant-boss-back-arms-sg* '())
|
|
(set! (-> self draw shadow-ctrl) *plant-boss-shadow-control*)
|
|
(go plant-boss-back-arms-idle)
|
|
(none)
|
|
)
|
|
|
|
(defbehavior plant-boss-vine-init plant-boss-arm ((arg0 vector) (arg1 vector) (arg2 float) (arg3 int))
|
|
(stack-size-set! (-> self main-thread) 128)
|
|
(set! (-> self root-override) (the-as collide-shape (new 'process 'trsqv)))
|
|
(set-vector! (-> self root-override scale) arg2 arg2 arg2 1.0)
|
|
(set! (-> self root-override trans quad) (-> arg0 quad))
|
|
(quaternion-zxy! (-> self root-override quat) arg1)
|
|
(set! (-> self side) arg3)
|
|
(initialize-skeleton self *plant-boss-vine-sg* '())
|
|
(go plant-boss-vine-idle)
|
|
(none)
|
|
)
|
|
|
|
(defbehavior plant-boss-root-init plant-boss-arm ((arg0 vector) (arg1 vector) (arg2 vector) (arg3 int))
|
|
(stack-size-set! (-> self main-thread) 128)
|
|
(set! (-> self root-override) (the-as collide-shape (new 'process 'trsqv)))
|
|
(set! (-> self root-override scale quad) (-> arg2 quad))
|
|
(set! (-> self root-override trans quad) (-> arg0 quad))
|
|
(quaternion-zxy! (-> self root-override quat) arg1)
|
|
(set! (-> self side) arg3)
|
|
(initialize-skeleton self *plant-boss-root-sg* '())
|
|
(go plant-boss-root-idle)
|
|
(none)
|
|
)
|
|
|
|
(defstate plant-boss-leaf-idle (plant-boss-leaf)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('trigger)
|
|
(go plant-boss-leaf-open (the-as symbol (-> arg3 param 0)))
|
|
)
|
|
(('die)
|
|
(go plant-boss-leaf-die (the-as basic (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ((arg0 symbol))
|
|
(loop
|
|
(case (-> self side)
|
|
((1)
|
|
(dotimes (gp-0 4)
|
|
(ja-no-eval :group! plant-boss-leaf-stubby-right-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(dotimes (gp-1 5)
|
|
(ja-no-eval :group! plant-boss-leaf-stubby-left-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-leaf) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-leaf-open (plant-boss-leaf)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('kill)
|
|
(go plant-boss-leaf-close)
|
|
)
|
|
(('die)
|
|
(go plant-boss-leaf-die (the-as basic (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:trans (the-as (function none :behavior plant-boss-leaf) rider-trans)
|
|
:code (behavior ((arg0 symbol))
|
|
(ja-no-eval :num! (loop!))
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(case (-> self side)
|
|
((1)
|
|
(ja-no-eval :group! plant-boss-leaf-grow-right-ja
|
|
:num! (seek! (ja-aframe (the-as float 30.0) 0))
|
|
:frame-num 0.0
|
|
)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 30.0) 0)))
|
|
)
|
|
(sound-play-by-name (static-sound-name "plant-leaf") (new-sound-id) 1024 0 0 1 #t)
|
|
(ja-no-eval :group! plant-boss-leaf-grow-right-ja :num! (seek!) :frame-num (ja-aframe (the-as float 30.0) 0))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
(else
|
|
(ja-no-eval :group! plant-boss-leaf-grow-left-ja
|
|
:num! (seek! (ja-aframe (the-as float 30.0) 0))
|
|
:frame-num 0.0
|
|
)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 30.0) 0)))
|
|
)
|
|
(sound-play-by-name (static-sound-name "plant-leaf") (new-sound-id) 1024 0 0 1 #t)
|
|
(ja-no-eval :group! plant-boss-leaf-grow-left-ja :num! (seek!) :frame-num (ja-aframe (the-as float 30.0) 0))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(go plant-boss-leaf-open-idle #f)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-leaf) rider-post)
|
|
)
|
|
|
|
(defstate plant-boss-leaf-open-idle (plant-boss-leaf)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('kill)
|
|
(set! (-> self state-object) #t)
|
|
(let ((v0-0 (the-as object (+ (-> *display* base-frame-counter) (the-as time-frame (-> arg3 param 0))))))
|
|
(set! (-> self state-time-frame) (the-as time-frame v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
(('bonk)
|
|
(if (not (-> self state-object))
|
|
(go plant-boss-leaf-bounce)
|
|
)
|
|
)
|
|
(('die)
|
|
(go plant-boss-leaf-die (the-as basic (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:trans (the-as (function none :behavior plant-boss-leaf) rider-trans)
|
|
:code (behavior ((arg0 symbol))
|
|
(local-vars (v1-19 symbol))
|
|
(set! (-> self state-object) arg0)
|
|
(case (ja-group)
|
|
((plant-boss-leaf-right-bounce-ja plant-boss-leaf-left-bounce-ja)
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
)
|
|
)
|
|
(case (-> self side)
|
|
((1)
|
|
(ja :group! plant-boss-leaf-idle-right-ja)
|
|
)
|
|
(else
|
|
(ja :group! plant-boss-leaf-idle-left-ja)
|
|
)
|
|
)
|
|
(until v1-19
|
|
(suspend)
|
|
(ja :num! (loop!))
|
|
(set! v1-19 (and (-> self state-object) (< (-> self state-time-frame) (-> *display* base-frame-counter))))
|
|
)
|
|
(go plant-boss-leaf-close)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-leaf) rider-post)
|
|
)
|
|
|
|
(defstate plant-boss-leaf-bounce (plant-boss-leaf)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('kill)
|
|
(set! (-> self state-object) #t)
|
|
(let ((v0-0 (the-as object (+ (-> *display* base-frame-counter) (the-as time-frame (-> arg3 param 0))))))
|
|
(set! (-> self state-time-frame) (the-as time-frame v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
(('die)
|
|
(go plant-boss-leaf-die (the-as basic (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:trans (the-as (function none :behavior plant-boss-leaf) rider-trans)
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(case (-> self side)
|
|
((1)
|
|
(ja-no-eval :group! plant-boss-leaf-right-bounce-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
(else
|
|
(ja-no-eval :group! plant-boss-leaf-left-bounce-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(go plant-boss-leaf-open-idle (-> self state-object))
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-leaf) rider-post)
|
|
)
|
|
|
|
(defstate plant-boss-leaf-close (plant-boss-leaf)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('die)
|
|
(go plant-boss-leaf-die (the-as basic (-> arg3 param 0)))
|
|
)
|
|
)
|
|
)
|
|
:trans (the-as (function none :behavior plant-boss-leaf) rider-trans)
|
|
:code (behavior ()
|
|
(case (-> self side)
|
|
((1)
|
|
(sound-play-by-name (static-sound-name "plant-leaf") (new-sound-id) 1024 0 0 1 #t)
|
|
(ja-no-eval :group! plant-boss-leaf-grow-right-ja :num! (seek! 0.0) :frame-num max)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! 0.0))
|
|
)
|
|
)
|
|
(else
|
|
(sound-play-by-name (static-sound-name "plant-leaf") (new-sound-id) 1024 0 0 1 #t)
|
|
(ja-no-eval :group! plant-boss-leaf-grow-left-ja :num! (seek! 0.0) :frame-num max)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! 0.0))
|
|
)
|
|
)
|
|
)
|
|
(go plant-boss-leaf-idle #f)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-leaf) rider-post)
|
|
)
|
|
|
|
(defstate plant-boss-leaf-die (plant-boss-leaf)
|
|
:code (behavior ((arg0 basic))
|
|
(loop
|
|
(logior! (-> self mask) (process-mask sleep))
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss-leaf) ja-post)
|
|
)
|
|
|
|
(defbehavior plant-boss-leaf-init plant-boss-leaf ((arg0 vector) (arg1 float) (arg2 int))
|
|
(stack-size-set! (-> self main-thread) 128)
|
|
(let ((s3-0 (new 'process 'collide-shape-moving self (collide-list-enum hit-by-player))))
|
|
(set! (-> s3-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s3-0 reaction) default-collision-reaction)
|
|
(set! (-> s3-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
|
|
)
|
|
(alloc-riders s3-0 1)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-mesh s3-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-0 collide-with) (collide-kind target))
|
|
(set! (-> s2-0 prim-core action) (collide-action solid))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-0 transform-index) 8)
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 0.0 12288.0 13926.4)
|
|
(set-root-prim! s3-0 s2-0)
|
|
)
|
|
(set! (-> s3-0 nav-radius) (* 0.75 (-> s3-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s3-0)
|
|
(set! (-> self root-override) s3-0)
|
|
)
|
|
(set! (-> self root-override trans quad) (-> arg0 quad))
|
|
(set-yaw-angle-clear-roll-pitch! (-> self root-override) arg1)
|
|
(set! (-> self side) arg2)
|
|
(initialize-skeleton self *plant-boss-leaf-sg* '())
|
|
(set! (-> self draw shadow-ctrl) *plant-boss-shadow-control*)
|
|
(go plant-boss-leaf-idle #f)
|
|
(none)
|
|
)
|
|
|
|
(defstate plant-boss-far-idle (plant-boss)
|
|
:code (behavior ()
|
|
(remove-setting! 'music)
|
|
(let ((gp-0 (-> self child)))
|
|
(while gp-0
|
|
(let ((s5-0 (ppointer->process gp-0)))
|
|
(set! gp-0 (-> gp-0 0 brother))
|
|
(if (type-type? (-> s5-0 type) aphid)
|
|
(deactivate s5-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self aphid-count) 0)
|
|
(let ((v1-9 (-> self neck)))
|
|
(set! (-> v1-9 blend) 0.0)
|
|
)
|
|
(let ((v1-10 (-> self body)))
|
|
(set! (-> v1-10 blend) 0.0)
|
|
)
|
|
(set-mode! (-> self neck) (joint-mod-handler-mode flex-blend))
|
|
(set-mode! (-> self body) (joint-mod-handler-mode flex-blend))
|
|
(set! (-> self body flex-blend) 0.0)
|
|
(ja-channel-set! 1)
|
|
(loop
|
|
(ja-no-eval :group! plant-boss-main-initial-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(seek! (-> self energy) (the-as float 0.25) (-> *display* seconds-per-frame))
|
|
(if (and (and *target*
|
|
(>= 245760.0 (vector-vector-distance (-> self root-override trans) (-> *target* control trans)))
|
|
)
|
|
(< (fabs (- (-> (target-pos 0) y) (-> self root-override trans y))) 40960.0)
|
|
)
|
|
(go plant-boss-intro)
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-intro (plant-boss)
|
|
:code (behavior ()
|
|
(set-setting! 'music 'danger 0.0 0)
|
|
(send-event *target* 'reset-pickup 'eco)
|
|
(let ((v1-9 (-> self entity extra perm)))
|
|
(logior! (-> v1-9 status) (entity-perm-status user-set-from-cstage))
|
|
(b! (zero? (-> v1-9 user-int8 2)) cfg-5 :delay (empty-form))
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.5))
|
|
(ja :group! plant-boss-main-intro-ja :num! (identity (ja-aframe (the-as float 510.0) 0)))
|
|
(b! #t cfg-3 :delay (nop!))
|
|
(label cfg-2)
|
|
(seek! (-> self energy) (the-as float 1.0) (* 2.0 (-> *display* seconds-per-frame)))
|
|
(suspend)
|
|
(label cfg-3)
|
|
(let ((v1-22 (-> self skel channel)))
|
|
(b! (!= (-> self skel root-channel 0) v1-22) cfg-2 :delay (nop!))
|
|
)
|
|
(set-mode! (-> self neck) (joint-mod-handler-mode world-look-at))
|
|
(set-mode! (-> self body) (joint-mod-handler-mode world-look-at))
|
|
(b! #t cfg-17 :delay (nop!))
|
|
(label cfg-5)
|
|
(if (not (handle->process (-> self cam-tracker)))
|
|
(set! (-> self cam-tracker)
|
|
(ppointer->handle (process-spawn
|
|
camera-tracker
|
|
:init camera-tracker-init
|
|
(lambda :behavior camera-tracker
|
|
()
|
|
(while (not (process-grab? *target*))
|
|
(suspend)
|
|
)
|
|
(ambient-hint-spawn "gamcam28" (the-as vector #f) *entity-pool* 'ambient)
|
|
(send-event *camera* 'blend-from-as-fixed)
|
|
(camera-look-at (the-as pair (ppointer->process (-> self parent))) (the-as uint 13))
|
|
(camera-change-to "camera-220" 0 #f)
|
|
(while (not (send-event *camera* 'intro-done?))
|
|
(suspend)
|
|
)
|
|
(camera-change-to "camera-222" 600 #f)
|
|
(let ((gp-0 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-0) (seconds 2))
|
|
(suspend)
|
|
)
|
|
)
|
|
(while (not (process-release? (handle->process (-> self grab-target))))
|
|
(suspend)
|
|
)
|
|
(send-event *camera* 'blend-from-as-fixed)
|
|
(camera-look-at (the-as pair *target*) (the-as uint 0))
|
|
(camera-change-to (the-as string 'base) 150 #f)
|
|
(none)
|
|
)
|
|
:to self
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-37 (-> self neck)))
|
|
(set! (-> v1-37 blend) 0.0)
|
|
)
|
|
(let ((v1-38 (-> self body)))
|
|
(set! (-> v1-38 blend) 0.0)
|
|
)
|
|
(set-mode! (-> self neck) (joint-mod-handler-mode world-look-at))
|
|
(set-mode! (-> self body) (joint-mod-handler-mode world-look-at))
|
|
(set! (-> self body flex-blend) 0.0)
|
|
(ja-no-eval :num! (loop!))
|
|
(ja-channel-push! 1 (seconds 0.5))
|
|
(ja-no-eval :group! plant-boss-main-intro-ja :num! (seek! (ja-aframe (the-as float 510.0) 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(seek! (-> self energy) (the-as float 1.0) (* 0.2 (-> *display* seconds-per-frame)))
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 510.0) 0)))
|
|
)
|
|
(ja-no-eval :num! (seek!))
|
|
(let ((v1-77 (-> self entity extra perm)))
|
|
(logior! (-> v1-77 status) (entity-perm-status user-set-from-cstage))
|
|
(set! (-> v1-77 user-int8 2) 1)
|
|
)
|
|
(label cfg-17)
|
|
(set! (-> self cycle-count) 0)
|
|
(set! (-> self snap-count) 0)
|
|
(go plant-boss-reset 0)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss) ja-post)
|
|
)
|
|
|
|
(defstate plant-boss-idle (plant-boss)
|
|
:event plant-boss-default-event-handler
|
|
:enter (behavior ()
|
|
(set-setting! 'music 'danger 0.0 0)
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(set! (-> self body flex-blend) 0.0)
|
|
(set! (-> self neck flex-blend) 1.0)
|
|
(none)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((f30-0 (vector-vector-distance (target-pos 0) (-> self root-override trans))))
|
|
(if (< 409600.0 f30-0)
|
|
(go plant-boss-far-idle)
|
|
)
|
|
(if (and (< f30-0 143360.0)
|
|
(>= (- (-> *display* base-frame-counter) (-> self state-time)) (cond
|
|
((>= (-> self try) 15)
|
|
1500
|
|
)
|
|
((>= (-> self try) 10)
|
|
1200
|
|
)
|
|
((>= (-> self try) 5)
|
|
900
|
|
)
|
|
(else
|
|
600
|
|
)
|
|
)
|
|
)
|
|
*target*
|
|
(zero? (logand (-> *target* state-flags) (state-flags sf03 sf04 sf05 sf06 sf07 sf15)))
|
|
)
|
|
(go plant-boss-attack 1)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code (behavior ()
|
|
(cond
|
|
((ja-group? plant-boss-main-reset-ja)
|
|
(ja-channel-push! 1 (seconds 0.5))
|
|
(ja-no-eval :group! plant-boss-main-idle-ja :num! (seek!) :frame-num (ja-aframe (the-as float 60.0) 0))
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
((ja-group? plant-boss-main-vulnerable-ja)
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-main-vulnerable2idle-ja
|
|
:num! (seek! (ja-aframe (the-as float 75.0) 0))
|
|
:frame-num 0.0
|
|
)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 75.0) 0)))
|
|
)
|
|
(ja-no-eval :num! (seek!))
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-main-idle-ja :num! (seek!) :frame-num (ja-aframe (the-as float 75.0) 0))
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
((ja-group? plant-boss-main-intro-ja)
|
|
)
|
|
(else
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
)
|
|
)
|
|
(loop
|
|
(when (or (and *cheat-mode* (cpad-hold? 1 r3)) (zero? (-> self aphid-count)))
|
|
(ja-no-eval :group! plant-boss-main-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(go plant-boss-vulnerable)
|
|
)
|
|
(ja-no-eval :group! plant-boss-main-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(when (and *cheat-mode* (cpad-hold? 1 r3))
|
|
(ja-no-eval :group! plant-boss-main-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(go plant-boss-vulnerable)
|
|
)
|
|
(when (rand-vu-percent? (the-as float 0.2))
|
|
(ja-no-eval :group! plant-boss-main-idle-alt-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post plant-boss-post
|
|
)
|
|
|
|
(defstate plant-boss-spawn (plant-boss)
|
|
:event plant-boss-default-event-handler
|
|
:enter (behavior ()
|
|
(when (not (-> self try-inc))
|
|
(let ((gp-0 (-> self entity extra perm)))
|
|
(logior! (-> gp-0 status) (entity-perm-status user-set-from-cstage))
|
|
(seekl! (-> gp-0 user-int8 0) 255 1)
|
|
(set! (-> self try) (-> gp-0 user-int8 0))
|
|
)
|
|
(set! (-> self try-inc) #t)
|
|
)
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(+! (-> self cycle-count) 1)
|
|
(set! (-> self snap-count) 0)
|
|
(set! (-> self body flex-blend) 0.0)
|
|
(set! (-> self neck flex-blend) 1.0)
|
|
(set! (-> self want-aphid-count) (min (- 4 (the int (-> self health))) (cond
|
|
((>= (-> self try) 15)
|
|
1
|
|
)
|
|
((>= (-> self try) 10)
|
|
2
|
|
)
|
|
(else
|
|
3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((f0-0 (vector-vector-distance (target-pos 0) (-> self root-override trans))))
|
|
(if (< 409600.0 f0-0)
|
|
(go plant-boss-far-idle)
|
|
)
|
|
)
|
|
(cond
|
|
((zero? (-> self want-aphid-count))
|
|
enter-state
|
|
(let ((v1-7 (the int (-> self health))))
|
|
(go plant-boss-attack (cond
|
|
((= v1-7 2)
|
|
2
|
|
)
|
|
((= v1-7 1)
|
|
3
|
|
)
|
|
(else
|
|
1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((>= (- (-> *display* base-frame-counter) (-> self aphid-spawn-time)) (seconds 1.4))
|
|
(when (process-spawn aphid self (-> self root-override trans) (target-pos 0) :to self)
|
|
(+! (-> self aphid-count) 1)
|
|
(seekl! (-> self want-aphid-count) 0 1)
|
|
(set! (-> self aphid-spawn-time) (-> *display* base-frame-counter))
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code (-> plant-boss-idle code)
|
|
:post plant-boss-post
|
|
)
|
|
|
|
(defstate plant-boss-vulnerable (plant-boss)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('attack)
|
|
(when ((method-of-type touching-shapes-entry prims-touching?)
|
|
(the-as touching-shapes-entry (-> arg3 param 0))
|
|
(the-as collide-shape-moving (-> self root-override))
|
|
(the-as uint 1)
|
|
)
|
|
(send-event
|
|
arg0
|
|
'shove
|
|
(-> arg3 param 0)
|
|
(static-attack-info ((shove-up (meters 2)) (shove-back (meters 6))))
|
|
)
|
|
(go plant-boss-hit (the-as symbol (-> arg3 param 1)))
|
|
)
|
|
)
|
|
(else
|
|
(plant-boss-generic-event-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(set! (-> self body flex-blend) 0.0)
|
|
(set! (-> self neck flex-blend) 0.0)
|
|
(set! (-> self attack-prim 0 local-sphere w) 12288.0)
|
|
(set! (-> self attack-prim 0 prim-core offense) (collide-offense indestructible))
|
|
(logior! (-> self attack-prim 0 prim-core action) (collide-action solid))
|
|
(none)
|
|
)
|
|
:exit (behavior ()
|
|
(send-event (ppointer->process (-> self leaf 1)) 'kill 0)
|
|
(send-event (ppointer->process (-> self leaf 0)) 'kill 150)
|
|
(set! (-> self attack-prim 0 local-sphere w) 16384.0)
|
|
(set! (-> self attack-prim 0 prim-core offense) (collide-offense no-offense))
|
|
(logclear! (-> self attack-prim 0 prim-core action) (collide-action solid))
|
|
(none)
|
|
)
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-main-idle2vulnerable-ja
|
|
:num! (seek! (ja-aframe (the-as float 60.0) 0))
|
|
:frame-num 0.0
|
|
)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 60.0) 0)))
|
|
)
|
|
(send-event (ppointer->process (-> self leaf 1)) 'trigger)
|
|
(ja-no-eval :group! plant-boss-main-idle2vulnerable-ja
|
|
:num! (seek! (ja-aframe (the-as float 120.0) 0))
|
|
:frame-num (ja-aframe (the-as float 60.0) 0)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 120.0) 0)))
|
|
)
|
|
(send-event (ppointer->process (-> self leaf 0)) 'trigger)
|
|
(ja-no-eval :group! plant-boss-main-idle2vulnerable-ja
|
|
:num! (seek!)
|
|
:frame-num (ja-aframe (the-as float 120.0) 0)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(let ((gp-5 (cond
|
|
((>= (-> self try) 15)
|
|
6000
|
|
)
|
|
((>= (-> self try) 10)
|
|
3600
|
|
)
|
|
((>= (-> self try) 5)
|
|
3000
|
|
)
|
|
(else
|
|
2400
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(while (< (- (-> *display* base-frame-counter) (-> self state-time)) gp-5)
|
|
(ja-no-eval :group! plant-boss-main-vulnerable-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(go plant-boss-spawn)
|
|
(none)
|
|
)
|
|
:post plant-boss-post
|
|
)
|
|
|
|
(defstate plant-boss-attack (plant-boss)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('touch 'attack)
|
|
(when (and ((method-of-type touching-shapes-entry prims-touching?)
|
|
(the-as touching-shapes-entry (-> arg3 param 0))
|
|
(the-as collide-shape-moving (-> self root-override))
|
|
(the-as uint 1)
|
|
)
|
|
(not (ja-group? plant-boss-main-vulnerable2idle-ja))
|
|
)
|
|
(when (send-event arg0 'attack-or-shove (-> arg3 param 0) (static-attack-info ((mode 'plant-boss))))
|
|
(let ((v0-1 (the-as object #t)))
|
|
(set! (-> self ate) (the-as symbol v0-1))
|
|
v0-1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(plant-boss-default-event-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ((arg0 int))
|
|
(local-vars (v1-64 symbol))
|
|
(+! (-> self snap-count) 1)
|
|
(set! (-> self ate) #f)
|
|
(set! (-> self interp) 0.0)
|
|
(let ((s5-0 #f))
|
|
(if (ja-group? plant-boss-main-reset-ja)
|
|
(set! s5-0 #t)
|
|
)
|
|
(ja-channel-push! 2 (seconds 0.25))
|
|
(ja :group! plant-boss-main-attack-ja :num! min)
|
|
(ja :chan 1 :group! plant-boss-main-attack-close-ja :num! min)
|
|
(when s5-0
|
|
(ja :num-func num-func-identity :frame-num (ja-aframe (the-as float 100.0) 0))
|
|
(ja :chan 1 :num-func num-func-identity :frame-num (ja-aframe (the-as float 100.0) 0))
|
|
)
|
|
)
|
|
(let ((f30-0 (lerp-scale
|
|
(the-as float 0.0)
|
|
(the-as float 1.0)
|
|
(vector-vector-distance (target-pos 0) (-> self root-override trans))
|
|
(the-as float 26624.0)
|
|
(the-as float 86016.0)
|
|
)
|
|
)
|
|
)
|
|
(until (or v1-64 (ja-done? 0))
|
|
(seek! (-> self body flex-blend) (the-as float 1.0) (* 2.0 (-> *display* seconds-per-frame)))
|
|
(seek! (-> self neck flex-blend) (the-as float 0.0) (* 2.0 (-> *display* seconds-per-frame)))
|
|
(set! f30-0 (seek
|
|
f30-0
|
|
(lerp-scale
|
|
(the-as float 1.0)
|
|
(the-as float 0.0)
|
|
(vector-vector-distance (target-pos 0) (-> self root-override trans))
|
|
(the-as float 26624.0)
|
|
(the-as float 86016.0)
|
|
)
|
|
(* 2.0 (-> *display* seconds-per-frame))
|
|
)
|
|
)
|
|
(set! (-> self interp) f30-0)
|
|
(ja :num! (seek!))
|
|
(ja :chan 1 :num! (chan 0) :frame-interp f30-0)
|
|
(suspend)
|
|
(set! v1-64 (>= (ja-aframe-num 0) 149.0))
|
|
)
|
|
)
|
|
(go plant-boss-reset arg0)
|
|
(none)
|
|
)
|
|
:post plant-boss-post
|
|
)
|
|
|
|
(defstate plant-boss-eat (plant-boss)
|
|
:event plant-boss-generic-event-handler
|
|
:exit (behavior ()
|
|
(logclear! (-> self skel status) (janim-status spool))
|
|
(let ((a0-4 (handle->process (-> self camera))))
|
|
(if a0-4
|
|
(deactivate a0-4)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code (behavior ()
|
|
(let ((f30-1 (the-as float (if (ja-group? plant-boss-main-attack-ja)
|
|
(fmax 129.0 (ja-aframe-num 0))
|
|
129.0
|
|
)
|
|
)
|
|
)
|
|
(gp-0 0)
|
|
)
|
|
(send-event *camera* 'change-state cam-lookat 0)
|
|
(logior! (-> self skel status) (janim-status inited))
|
|
(ja-channel-push! 2 (seconds 0.1))
|
|
(ja :group! (-> self draw art-group data 18) :num! (identity (ja-aframe f30-1 0)))
|
|
(ja :chan 1
|
|
:group! (-> self draw art-group data 19)
|
|
:num! (identity (ja-aframe f30-1 0))
|
|
:frame-interp (-> self interp)
|
|
)
|
|
(until (>= (ja-aframe-num 0) 285.0)
|
|
(try-preload-stream *art-control* "$GAMCAM29" 0 self (the-as float -99.0))
|
|
(seek! (-> self energy) (the-as float 0.5) (* 0.2 (-> *display* seconds-per-frame)))
|
|
(when (and (>= (ja-aframe-num 0) 175.0) (zero? gp-0))
|
|
(set! gp-0 1)
|
|
(set! (-> self camera) (ppointer->handle (process-spawn othercam self 28 #f #t :to self)))
|
|
(logior! (-> self skel status) (janim-status spool))
|
|
(ambient-hint-spawn "gamcam29" (the-as vector #f) *entity-pool* 'ambient)
|
|
)
|
|
(when (and (>= (ja-aframe-num 0) 236.0) (= gp-0 1))
|
|
(set! gp-0 2)
|
|
(send-event (handle->process (-> self camera)) 'joint "camera2")
|
|
)
|
|
(seek! (-> self body flex-blend) (the-as float 0.0) (-> *display* seconds-per-frame))
|
|
(seek! (-> self interp) (the-as float 0.0) (-> *display* seconds-per-frame))
|
|
(ja :num! (seek! max 0.66))
|
|
(ja :chan 1 :num! (chan 0) :frame-interp (-> self interp))
|
|
(suspend)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.25))
|
|
(ja-no-eval :group! plant-boss-main-swallow-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(send-event *target* 'end-mode)
|
|
(logclear! (-> self skel status) (janim-status inited))
|
|
(go plant-boss-idle)
|
|
(none)
|
|
)
|
|
:post plant-boss-post
|
|
)
|
|
|
|
(defstate plant-boss-reset (plant-boss)
|
|
:event (-> plant-boss-eat event)
|
|
:code (behavior ((arg0 int))
|
|
(let ((gp-0 #f))
|
|
(cond
|
|
((ja-group? plant-boss-main-intro-ja)
|
|
(set! gp-0 #t)
|
|
(ja-channel-push! 1 (seconds 0.5))
|
|
)
|
|
(else
|
|
(ja-channel-push! 1 (seconds 1))
|
|
)
|
|
)
|
|
(ja-no-eval :group! plant-boss-main-reset-ja :num! (seek! (ja-aframe (the-as float 210.0) 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(seek! (-> self body flex-blend) (the-as float 0.0) (-> *display* seconds-per-frame))
|
|
(if (>= 1 arg0)
|
|
(seek! (-> self neck flex-blend) (the-as float 1.0) (-> *display* seconds-per-frame))
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 210.0) 0)))
|
|
)
|
|
(if (< 1 arg0)
|
|
(go plant-boss-attack (+ arg0 -1))
|
|
)
|
|
(ja-no-eval :group! plant-boss-main-reset-ja
|
|
:num! (seek! (ja-aframe (the-as float 240.0) 0))
|
|
:frame-num (ja-aframe (the-as float 210.0) 0)
|
|
)
|
|
(until (ja-done? 0)
|
|
(seek! (-> self body flex-blend) (the-as float 0.0) (-> *display* seconds-per-frame))
|
|
(seek! (-> self neck flex-blend) (the-as float 1.0) (* 2.0 (-> *display* seconds-per-frame)))
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 240.0) 0)))
|
|
)
|
|
(ja-no-eval :num! (seek!))
|
|
(if gp-0
|
|
(go plant-boss-spawn)
|
|
(go plant-boss-idle)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post plant-boss-post
|
|
)
|
|
|
|
(defstate plant-boss-hit (plant-boss)
|
|
:event (-> plant-boss-eat event)
|
|
:code (behavior ((arg0 symbol))
|
|
(let ((s5-0 (-> self child)))
|
|
(while s5-0
|
|
(send-event (ppointer->process s5-0) 'hit arg0)
|
|
(set! s5-0 (-> s5-0 0 brother))
|
|
)
|
|
)
|
|
(seek! (-> self health) (the-as float 0.0) (the-as float 1.0))
|
|
(send-event (ppointer->process (-> self leaf 1)) 'kill 0)
|
|
(send-event (ppointer->process (-> self leaf 0)) 'kill 0)
|
|
(ja-no-eval :num! (loop!))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(cond
|
|
((= arg0 'spin)
|
|
(ja-no-eval :group! plant-boss-main-hit-kick-ja
|
|
:num! (seek! (ja-aframe (the-as float 20.0) 0))
|
|
:frame-num 0.0
|
|
)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 20.0) 0)))
|
|
)
|
|
)
|
|
((= arg0 'spin-air)
|
|
(ja-no-eval :group! plant-boss-main-hit-jumpkick-ja
|
|
:num! (seek! (ja-aframe (the-as float 20.0) 0))
|
|
:frame-num 0.0
|
|
)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 20.0) 0)))
|
|
)
|
|
)
|
|
(else
|
|
(ja-no-eval :group! plant-boss-main-hit-ja :num! (seek! (ja-aframe (the-as float 20.0) 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe (the-as float 20.0) 0)))
|
|
)
|
|
)
|
|
)
|
|
(if (= (-> self health) 0.0)
|
|
(go plant-boss-dead #f)
|
|
)
|
|
(ja-no-eval :num! (seek!))
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(go plant-boss-spawn)
|
|
(none)
|
|
)
|
|
:post plant-boss-post
|
|
)
|
|
|
|
(defstate plant-boss-dead (plant-boss)
|
|
:event plant-boss-generic-event-handler
|
|
:code (behavior ((arg0 symbol))
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(set! (-> self neck flex-blend) 0.0)
|
|
(set! (-> self body flex-blend) 0.0)
|
|
(let* ((s5-0 (get-task-control (game-task jungle-plant)))
|
|
(v1-5 (get-reminder s5-0 0))
|
|
)
|
|
(save-reminder s5-0 (logior v1-5 1) 0)
|
|
)
|
|
(cond
|
|
(arg0
|
|
(ja-channel-set! 1)
|
|
(ja :group! plant-boss-main-die-ja :num! max)
|
|
(suspend)
|
|
(if (not (task-complete? *game-info* (-> self entity extra perm task)))
|
|
(birth-pickup-at-point
|
|
(-> self node-list data 42 bone transform vector 3)
|
|
(pickup-type fuel-cell)
|
|
(the float (-> self entity extra perm task))
|
|
#f
|
|
self
|
|
(the-as fact-info #f)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let ((s4-0 #f)
|
|
(s5-2 #f)
|
|
)
|
|
(ja-no-eval :num! (seek!))
|
|
(ja-channel-push! 1 (seconds 0.5))
|
|
(ja-no-eval :group! plant-boss-main-die-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(ja-blend-eval)
|
|
(when (< 100.0 (ja-aframe-num 0))
|
|
(set-mode! (-> self neck) (joint-mod-handler-mode flex-blend))
|
|
(set-mode! (-> self body) (joint-mod-handler-mode flex-blend))
|
|
)
|
|
(when (and (>= (ja-aframe-num 0) 180.0) (not s4-0))
|
|
(let ((s4-1 (-> self child)))
|
|
(while s4-1
|
|
(send-event (ppointer->process s4-1) 'hide #f)
|
|
(set! s4-1 (-> s4-1 0 brother))
|
|
)
|
|
)
|
|
(set! s4-0 #t)
|
|
)
|
|
(when (and (>= (ja-aframe-num 0) 189.0) (not s5-2))
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(when (not (task-complete? *game-info* (-> self entity extra perm task)))
|
|
(set! s5-2 #t)
|
|
(birth-pickup-at-point
|
|
(-> self node-list data 42 bone transform vector 3)
|
|
(pickup-type fuel-cell)
|
|
(the float (-> self entity extra perm task))
|
|
#f
|
|
self
|
|
(the-as fact-info #f)
|
|
)
|
|
)
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s5-3 (-> self child)))
|
|
(while s5-3
|
|
(send-event (ppointer->process s5-3) 'die arg0)
|
|
(set! s5-3 (-> s5-3 0 brother))
|
|
)
|
|
)
|
|
(set! (-> self death-prim 0 collide-with) (collide-kind target))
|
|
(set! (-> self death-prim 0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> self death-prim 0 prim-core offense) (collide-offense indestructible))
|
|
(logior! (-> self death-prim 0 prim-core action) (collide-action solid))
|
|
(set! (-> self death-prim 1 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> self death-prim 1 collide-with) (collide-kind target))
|
|
(set! (-> self death-prim 1 prim-core offense) (collide-offense indestructible))
|
|
(logior! (-> self death-prim 1 prim-core action) (collide-action solid))
|
|
(set! (-> (find-prim-by-id (-> self root-override) (the-as uint 8)) prim-core action) (collide-action))
|
|
0
|
|
(set! (-> (find-prim-by-id (-> self root-override) (the-as uint 16)) prim-core action) (collide-action))
|
|
0
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
(remove-setting! 'music)
|
|
(go plant-boss-dead-idle)
|
|
(none)
|
|
)
|
|
:post (behavior ()
|
|
(plant-boss-post)
|
|
(do-push-aways! (-> self root-override))
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defstate plant-boss-dead-idle (plant-boss)
|
|
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('bonk)
|
|
(go plant-boss-dead-bounce (lerp-scale
|
|
(the-as float 0.1)
|
|
(the-as float 1.0)
|
|
(the-as float (-> arg3 param 1))
|
|
(the-as float 40960.0)
|
|
(the-as float 81920.0)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(plant-boss-generic-event-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(ja-channel-set! 1)
|
|
(ja :group! plant-boss-main-die-ja :num! max)
|
|
(let ((gp-1 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-1) (seconds 5))
|
|
(transform-post)
|
|
(do-push-aways! (-> self root-override))
|
|
(suspend)
|
|
)
|
|
)
|
|
(loop
|
|
(logior! (-> self mask) (process-mask sleep))
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defstate plant-boss-dead-bounce (plant-boss)
|
|
:event plant-boss-generic-event-handler
|
|
:trans (the-as (function none :behavior plant-boss) rider-trans)
|
|
:code (behavior ((arg0 float))
|
|
(let ((v1-2 (-> self entity extra perm)))
|
|
(if (and (< 0.3 arg0) (and (not (handle->process (-> self money))) (< (-> v1-2 user-int8 1) 5)))
|
|
(set! (-> self money) (ppointer->handle (birth-pickup-at-point
|
|
(-> self node-list data 42 bone transform vector 3)
|
|
(pickup-type money)
|
|
(the-as float 1.0)
|
|
#t
|
|
self
|
|
(the-as fact-info #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(ja-channel-set! 2)
|
|
(ja :group! plant-boss-main-bounce-ja :num! min)
|
|
(ja :chan 1 :group! plant-boss-main-die-ja :num! max :frame-interp (- 1.0 arg0))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
(ja :chan 1 :frame-interp (- 1.0 arg0) :num-func num-func-identity :frame-num max)
|
|
)
|
|
(go plant-boss-dead-idle)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior plant-boss) rider-post)
|
|
)
|
|
|
|
(defmethod init-from-entity! plant-boss ((obj plant-boss) (arg0 entity-actor))
|
|
(stack-size-set! (-> obj main-thread) 512)
|
|
(let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player))))
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 5) 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 indestructible))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 24576.0 32768.0 81920.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 8))))
|
|
(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))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 12288.0 12288.0 12288.0)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 16))))
|
|
(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))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s2-1 local-sphere) 0.0 20480.0 12288.0 12288.0)
|
|
(append-prim s3-0 s2-1)
|
|
)
|
|
(let ((s2-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 5))))
|
|
(set! (-> s2-2 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-2 collide-with) (collide-kind target))
|
|
(set! (-> s2-2 prim-core offense) (collide-offense no-offense))
|
|
(set! (-> s2-2 transform-index) 13)
|
|
(set-vector! (-> s2-2 local-sphere) 0.0 8192.0 0.0 16384.0)
|
|
(append-prim s3-0 s2-2)
|
|
(set! (-> obj attack-prim 0) s2-2)
|
|
)
|
|
(let ((s2-3 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s2-3 prim-core collide-as) (collide-kind))
|
|
(set! (-> s2-3 collide-with) (collide-kind))
|
|
(set! (-> s2-3 prim-core offense) (collide-offense no-offense))
|
|
(set! (-> s2-3 transform-index) 13)
|
|
(set-vector! (-> s2-3 local-sphere) 0.0 8192.0 0.0 16384.0)
|
|
(append-prim s3-0 s2-3)
|
|
(set! (-> obj death-prim 0) s2-3)
|
|
)
|
|
(let ((s2-4 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 0))))
|
|
(set! (-> s2-4 prim-core collide-as) (collide-kind))
|
|
(set! (-> s2-4 collide-with) (collide-kind))
|
|
(set! (-> s2-4 prim-core offense) (collide-offense no-offense))
|
|
(set! (-> s2-4 transform-index) 12)
|
|
(set-vector! (-> s2-4 local-sphere) 0.0 -24576.0 0.0 40960.0)
|
|
(append-prim s3-0 s2-4)
|
|
(set! (-> obj death-prim 1) s2-4)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> obj root-override) s4-0)
|
|
)
|
|
(process-drawable-from-entity! obj arg0)
|
|
(initialize-skeleton obj *plant-boss-sg* '())
|
|
(set! (-> obj draw shadow-ctrl) *plant-boss-shadow-control*)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-arm-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :x -24576.0 :z 8192.0 :w 1.0))
|
|
-8192.0
|
|
1
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-arm-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :x 24576.0 :z 8192.0 :w 1.0))
|
|
8192.0
|
|
0
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-back-arms-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :w 1.0))
|
|
0.0
|
|
2
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-vine-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :x 38912.0 :z 8192.0 :w 1.0))
|
|
(new 'static 'vector :y 14563.556)
|
|
1.0
|
|
3
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-vine-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :x -40960.0 :z 8192.0 :w 1.0))
|
|
(new 'static 'vector :y -5461.3335)
|
|
1.0
|
|
3
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-vine-init
|
|
(vector+!
|
|
(new-stack-vector0)
|
|
(-> obj root-override trans)
|
|
(new 'static 'vector :x -29491.2 :z -7168.0 :w 1.0)
|
|
)
|
|
(new 'static 'vector :x -1820.4445 :y -11286.756)
|
|
0.8
|
|
3
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-vine-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :x 32768.0 :z -3072.0 :w 1.0))
|
|
(new 'static 'vector :x -910.2222 :y 22755.555)
|
|
0.8
|
|
3
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-root-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :x 18841.6 :z 4096.0 :w 1.0))
|
|
(new 'static 'vector :y -4096.0)
|
|
(new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
4
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-root-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :x -18841.6 :z 4096.0 :w 1.0))
|
|
(new 'static 'vector :x 364.0889 :y 4096.0)
|
|
(new 'static 'vector :x 1.0 :y 1.25 :z 1.0)
|
|
4
|
|
:to obj
|
|
)
|
|
(process-spawn
|
|
plant-boss-arm
|
|
:init plant-boss-root-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :z -2048.0 :w 1.0))
|
|
(new 'static 'vector :x 1820.4445)
|
|
(new 'static 'vector :x 0.9 :y 1.5 :z 1.0)
|
|
4
|
|
:to obj
|
|
)
|
|
(set! (-> obj leaf 0)
|
|
(process-spawn
|
|
plant-boss-leaf
|
|
:init plant-boss-leaf-init
|
|
(vector+! (new-stack-vector0) (-> obj root-override trans) (new 'static 'vector :w 1.0))
|
|
0.0
|
|
0
|
|
:to obj
|
|
)
|
|
)
|
|
(set! (-> obj leaf 1) (process-spawn
|
|
plant-boss-leaf
|
|
:init plant-boss-leaf-init
|
|
(vector+!
|
|
(new-stack-vector0)
|
|
(-> obj root-override trans)
|
|
(new 'static 'vector :x -13189.12 :y 2838.528 :z 12288.0 :w 1.0)
|
|
)
|
|
0.0
|
|
1
|
|
:to obj
|
|
)
|
|
)
|
|
(set! (-> obj energy) 0.25)
|
|
(set! (-> obj health) 3.0)
|
|
(set! (-> obj cam-tracker) (the-as handle #f))
|
|
(set! (-> obj camera) (the-as handle #f))
|
|
(set! (-> obj money) (the-as handle #f))
|
|
(set! (-> obj try-inc) #f)
|
|
(set! (-> obj neck) (new 'process 'joint-mod (joint-mod-handler-mode flex-blend) obj 13))
|
|
(set-vector! (-> obj neck twist-max) 3640.889 8192.0 0.0 1.0)
|
|
(set! (-> obj neck up) (the-as uint 0))
|
|
(set! (-> obj neck nose) (the-as uint 1))
|
|
(set! (-> obj neck ear) (the-as uint 2))
|
|
(set! (-> obj body) (new 'process 'joint-mod (joint-mod-handler-mode flex-blend) obj 4))
|
|
(set-vector! (-> obj body twist-max) 0.0 8192.0 0.0 1.0)
|
|
(set! (-> obj body up) (the-as uint 1))
|
|
(set! (-> obj body nose) (the-as uint 0))
|
|
(set! (-> obj body ear) (the-as uint 2))
|
|
(if (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status complete)))
|
|
(go plant-boss-dead #t)
|
|
)
|
|
(go plant-boss-far-idle)
|
|
(none)
|
|
)
|
|
|
|
|
|
|
|
|