mirror of
https://github.com/open-goal/jak-project
synced 2026-05-30 08:56:59 -04:00
water111
1362 lines
51 KiB
Common Lisp
Vendored
Generated
1362 lines
51 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type training-water
|
|
(deftype training-water (water-anim)
|
|
()
|
|
:heap-base #x70
|
|
:method-count-assert 30
|
|
:size-assert #xdc
|
|
:flag-assert #x1e007000dc
|
|
)
|
|
|
|
;; definition for method 3 of type training-water
|
|
(defmethod inspect training-water ((obj training-water))
|
|
(let ((t9-0 (method-of-type water-anim inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; definition for symbol ripple-for-training-water, type ripple-wave-set
|
|
(define ripple-for-training-water (new 'static 'ripple-wave-set
|
|
:count 3
|
|
:converted #f
|
|
:normal-scale 1.0
|
|
:wave
|
|
(new 'static 'inline-array ripple-wave 4
|
|
(new 'static 'ripple-wave :scale 40.0 :xdiv 1 :speed 1.5)
|
|
(new 'static 'ripple-wave :scale 40.0 :xdiv -1 :zdiv 1 :speed 1.5)
|
|
(new 'static 'ripple-wave :scale 20.0 :xdiv 5 :zdiv 3 :speed 0.75)
|
|
(new 'static 'ripple-wave)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 22 of type training-water
|
|
;; INFO: Return type mismatch ripple-wave-set vs none.
|
|
(defmethod TODO-RENAME-22 training-water ((obj training-water))
|
|
(let ((t9-0 (method-of-type water-anim TODO-RENAME-22)))
|
|
(t9-0 obj)
|
|
)
|
|
(let ((v1-2 (new 'process 'ripple-control)))
|
|
(set! (-> obj draw ripple) v1-2)
|
|
(set-vector! (-> obj draw color-mult) 0.01 0.45 0.5 0.75)
|
|
(set! (-> v1-2 global-scale) 3072.0)
|
|
(set! (-> v1-2 close-fade-dist) 163840.0)
|
|
(set! (-> v1-2 far-fade-dist) 245760.0)
|
|
(set! (-> v1-2 waveform) ripple-for-training-water)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *training-cam-sg* trainingcam
|
|
0
|
|
-1
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 80)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; definition of type training-cam
|
|
(deftype training-cam (process)
|
|
((root trsq :offset-assert 112)
|
|
(range meters :offset-assert 116)
|
|
(index int32 :offset-assert 120)
|
|
(state-time time-frame :offset-assert 128)
|
|
)
|
|
:heap-base #x20
|
|
:method-count-assert 15
|
|
:size-assert #x88
|
|
:flag-assert #xf00200088
|
|
(:methods
|
|
(idle () _type_ :state 14)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type training-cam
|
|
(defmethod inspect training-cam ((obj training-cam))
|
|
(let ((t9-0 (method-of-type process inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Troot: ~A~%" (-> obj root))
|
|
(format #t "~T~Trange: (meters ~m)~%" (-> obj range))
|
|
(format #t "~T~Tindex: ~D~%" (-> obj index))
|
|
(format #t "~T~Tstate-time: ~D~%" (-> obj state-time))
|
|
obj
|
|
)
|
|
|
|
;; definition for method 7 of type training-cam
|
|
;; INFO: Return type mismatch process vs training-cam.
|
|
(defmethod relocate training-cam ((obj training-cam) (arg0 int))
|
|
(if (nonzero? (-> obj root))
|
|
(&+! (-> obj root) arg0)
|
|
)
|
|
(the-as training-cam ((method-of-type process relocate) obj arg0))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (training-cam)
|
|
:virtual #t
|
|
:code
|
|
(behavior ()
|
|
(while #t
|
|
(when (and *target*
|
|
(< (vector-vector-distance (target-pos 0) (-> self root trans)) (-> self range))
|
|
(-> *setting-control* current play-hints)
|
|
(and (< 0.0 (-> *setting-control* current dialog-volume))
|
|
(let ((a0-3 (entity-actor-lookup (-> self entity) 'alt-actor 0)))
|
|
(or (not a0-3) (zero? (logand (-> a0-3 extra perm status) (entity-perm-status dead))))
|
|
)
|
|
)
|
|
)
|
|
(when (!= (-> self index) 6)
|
|
(while (and *target*
|
|
(logtest? (-> *target* control unknown-surface00 flags) 2048)
|
|
(zero? (logand (-> *target* control status) 1))
|
|
)
|
|
(suspend)
|
|
)
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(process-grab? *target*)
|
|
(process-entity-status! self (entity-perm-status bit-3) #t)
|
|
(until (not (or (-> *setting-control* current talking) (or (-> *setting-control* current spooling)
|
|
(-> *setting-control* current hint)
|
|
(-> *setting-control* current ambient)
|
|
)
|
|
)
|
|
)
|
|
(set-setting! *setting-control* self 'allow-progress #f 0.0 0)
|
|
(let* ((a0-15 *setting-control*)
|
|
(t9-6 (method-of-object a0-15 set-setting!))
|
|
(a2-3 'movie)
|
|
(a3-1 (process->ppointer self))
|
|
)
|
|
(t9-6 a0-15 self a2-3 (the-as symbol a3-1) 0.0 0)
|
|
)
|
|
(copy-settings-from-target! *setting-control*)
|
|
(dotimes (gp-1 2)
|
|
(while (or (-> *setting-control* current talking)
|
|
(-> *setting-control* current spooling)
|
|
(-> *setting-control* current hint)
|
|
(-> *setting-control* current ambient)
|
|
*progress-process*
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(while (< (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 1))
|
|
(suspend)
|
|
)
|
|
(clear-pending-settings-from-process *setting-control* self 'movie)
|
|
(copy-settings-from-target! *setting-control*)
|
|
(suspend)
|
|
(suspend)
|
|
)
|
|
(process-release? *target*)
|
|
)
|
|
(when (-> *setting-control* current play-hints)
|
|
(let ((v1-61 (-> self index)))
|
|
(cond
|
|
((zero? v1-61)
|
|
(level-hint-spawn
|
|
(game-text-id training-precursor-orbs)
|
|
"asstvb41"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(let ((gp-2 (get-process *default-dead-pool* pov-camera #x4000)))
|
|
(when gp-2
|
|
(let ((t9-13 (method-of-type pov-camera activate)))
|
|
(t9-13 (the-as pov-camera gp-2) self 'pov-camera (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-2
|
|
pov-camera-init-by-other
|
|
(-> self entity extra trans)
|
|
*training-cam-sg*
|
|
"orbcam"
|
|
0
|
|
#f
|
|
'()
|
|
)
|
|
(-> gp-2 ppointer)
|
|
)
|
|
)
|
|
)
|
|
((= v1-61 1)
|
|
(level-hint-spawn
|
|
(game-text-id training-power-cells)
|
|
"asstvb42"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(let ((gp-3 (get-process *default-dead-pool* pov-camera #x4000)))
|
|
(when gp-3
|
|
(let ((t9-17 (method-of-type pov-camera activate)))
|
|
(t9-17 (the-as pov-camera gp-3) self 'pov-camera (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-3
|
|
pov-camera-init-by-other
|
|
(-> self entity extra trans)
|
|
*training-cam-sg*
|
|
"fuelcellcam"
|
|
0
|
|
#f
|
|
'()
|
|
)
|
|
(-> gp-3 ppointer)
|
|
)
|
|
)
|
|
)
|
|
((= v1-61 2)
|
|
(level-hint-spawn
|
|
(game-text-id training-eco-blue)
|
|
"sagevb22"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(let ((gp-4 (get-process *default-dead-pool* pov-camera #x4000)))
|
|
(when gp-4
|
|
(let ((t9-21 (method-of-type pov-camera activate)))
|
|
(t9-21 (the-as pov-camera gp-4) self 'pov-camera (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-4
|
|
pov-camera-init-by-other
|
|
(-> self entity extra trans)
|
|
*training-cam-sg*
|
|
"ecocam"
|
|
0
|
|
#f
|
|
'()
|
|
)
|
|
(-> gp-4 ppointer)
|
|
)
|
|
)
|
|
)
|
|
((= v1-61 3)
|
|
(level-hint-spawn
|
|
(game-text-id training-precursor-door)
|
|
"sagevb24"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(let ((gp-5 (get-process *default-dead-pool* pov-camera #x4000)))
|
|
(when gp-5
|
|
(let ((t9-25 (method-of-type pov-camera activate)))
|
|
(t9-25 (the-as pov-camera gp-5) self 'pov-camera (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-5
|
|
pov-camera-init-by-other
|
|
(-> self entity extra trans)
|
|
*training-cam-sg*
|
|
"precursordoorcam"
|
|
0
|
|
#f
|
|
'()
|
|
)
|
|
(-> gp-5 ppointer)
|
|
)
|
|
)
|
|
)
|
|
((= v1-61 4)
|
|
(level-hint-spawn
|
|
(game-text-id training-blue-eco-vent)
|
|
"asstvb48"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(let ((gp-6 (get-process *default-dead-pool* pov-camera #x4000)))
|
|
(when gp-6
|
|
(let ((t9-29 (method-of-type pov-camera activate)))
|
|
(t9-29 (the-as pov-camera gp-6) self 'pov-camera (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-6
|
|
pov-camera-init-by-other
|
|
(-> self entity extra trans)
|
|
*training-cam-sg*
|
|
"ecoventcam"
|
|
0
|
|
#f
|
|
'()
|
|
)
|
|
(-> gp-6 ppointer)
|
|
)
|
|
)
|
|
)
|
|
((= v1-61 5)
|
|
(level-hint-spawn
|
|
(game-text-id training-eco-green)
|
|
"sagevb21"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(let ((gp-7 (get-process *default-dead-pool* pov-camera #x4000)))
|
|
(when gp-7
|
|
(let ((t9-33 (method-of-type pov-camera activate)))
|
|
(t9-33 (the-as pov-camera gp-7) self 'pov-camera (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-7
|
|
pov-camera-init-by-other
|
|
(-> self entity extra trans)
|
|
*training-cam-sg*
|
|
"greenecocam"
|
|
0
|
|
#f
|
|
'()
|
|
)
|
|
(-> gp-7 ppointer)
|
|
)
|
|
)
|
|
)
|
|
((= v1-61 6)
|
|
(when (not (task-complete? *game-info* (game-task training-climb)))
|
|
(clear-text-seen! *game-info* (game-text-id training-double-jump))
|
|
(level-hint-spawn
|
|
(game-text-id training-double-jump)
|
|
"sagevb27"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(let ((gp-8 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-8) (seconds 30))
|
|
(suspend)
|
|
)
|
|
)
|
|
(process-entity-status! self (entity-perm-status bit-3) #f)
|
|
(go-virtual idle)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
)
|
|
(let ((a0-61 (-> self entity)))
|
|
(if (when a0-61
|
|
(let ((a0-62 (-> a0-61 extra perm task)))
|
|
(if a0-62
|
|
(= a0-62 (game-task none))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self entity extra perm task) (game-task complete))
|
|
)
|
|
)
|
|
(process-entity-status! self (entity-perm-status dead) #t)
|
|
(process-entity-status! self (entity-perm-status bit-3) #f)
|
|
(deactivate self)
|
|
)
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 11 of type training-cam
|
|
;; INFO: Return type mismatch object vs none.
|
|
;; Used lq/sq
|
|
(defmethod init-from-entity! training-cam ((obj training-cam) (arg0 entity-actor))
|
|
"Copy defaults from the entity."
|
|
(logior! (-> obj mask) (process-mask actor-pause))
|
|
(set! (-> obj root) (new 'process 'trsq))
|
|
(set! (-> obj root trans quad) (-> arg0 extra trans quad))
|
|
(quaternion-copy! (-> obj root quat) (-> arg0 quat))
|
|
(vector-identity! (-> obj root scale))
|
|
(set! (-> obj range) (res-lump-float arg0 'cam-notice-dist :default 81920.0))
|
|
(set! (-> obj index) (res-lump-value arg0 'index int))
|
|
(go (method-of-object obj idle))
|
|
(none)
|
|
)
|
|
|
|
;; definition of type tra-pontoon
|
|
(deftype tra-pontoon (rigid-body-platform)
|
|
((anchor-point vector :inline :offset-assert 736)
|
|
)
|
|
:heap-base #x280
|
|
:method-count-assert 35
|
|
:size-assert #x2f0
|
|
:flag-assert #x23028002f0
|
|
)
|
|
|
|
;; definition for method 3 of type tra-pontoon
|
|
(defmethod inspect tra-pontoon ((obj tra-pontoon))
|
|
(let ((t9-0 (method-of-type rigid-body-platform inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Tanchor-point: #<vector @ #x~X>~%" (-> obj anchor-point))
|
|
obj
|
|
)
|
|
|
|
;; definition for method 11 of type tra-pontoon
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod init-from-entity! tra-pontoon ((obj tra-pontoon) (arg0 entity-actor))
|
|
(set! (-> obj mask) (logior (process-mask platform) (-> obj mask)))
|
|
(TODO-RENAME-30 obj)
|
|
(process-drawable-from-entity! obj arg0)
|
|
(TODO-RENAME-31 obj)
|
|
(go (method-of-object obj rigid-body-platform-idle))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 23 of type tra-pontoon
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod TODO-RENAME-23 tra-pontoon ((obj tra-pontoon) (arg0 float))
|
|
((the-as (function rigid-body-platform float none) (find-parent-method tra-pontoon 23)) obj arg0)
|
|
(TODO-RENAME-27 obj (-> obj anchor-point))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for symbol *tra-pontoon-constants*, type rigid-body-platform-constants
|
|
(define *tra-pontoon-constants* (new 'static 'rigid-body-platform-constants
|
|
:drag-factor 4.0
|
|
:buoyancy-factor 3.0
|
|
:max-buoyancy-depth (meters 3)
|
|
:gravity-factor 1.0
|
|
:gravity (meters 80)
|
|
:player-weight (meters 35)
|
|
:player-bonk-factor 1.0
|
|
:player-dive-factor 1.0
|
|
:player-force-distance (meters 1000)
|
|
:player-force-clamp (meters 1000000)
|
|
:player-force-timeout (seconds 0.1)
|
|
:explosion-force (meters 1000)
|
|
:linear-damping 0.98
|
|
:angular-damping 0.98
|
|
:control-point-count 4
|
|
:mass 2.0
|
|
:inertial-tensor-x (meters 2.5)
|
|
:inertial-tensor-y (meters 2)
|
|
:inertial-tensor-z (meters 3.2)
|
|
:idle-distance (meters 50)
|
|
:platform #t
|
|
:sound-name "pontoonten"
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *tra-pontoon-sg* pontoonfive
|
|
0
|
|
4
|
|
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 5)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; definition for method 30 of type tra-pontoon
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod TODO-RENAME-30 tra-pontoon ((obj tra-pontoon))
|
|
(let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player))))
|
|
(set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s5-0 reaction) default-collision-reaction)
|
|
(set! (-> s5-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
|
|
)
|
|
(alloc-riders s5-0 1)
|
|
(let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s4-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s4-0 collide-with) (collide-kind target))
|
|
(set! (-> s4-0 prim-core action) (collide-action solid ca-1))
|
|
(set! (-> s4-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s4-0 transform-index) 0)
|
|
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 18432.0)
|
|
(set-root-prim! s5-0 s4-0)
|
|
)
|
|
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s5-0)
|
|
(set! (-> obj root-overlay) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 31 of type tra-pontoon
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defmethod TODO-RENAME-31 tra-pontoon ((obj tra-pontoon))
|
|
(initialize-skeleton obj *tra-pontoon-sg* '())
|
|
(TODO-RENAME-29 obj *tra-pontoon-constants*)
|
|
(set! (-> obj float-height-offset) 6144.0)
|
|
(set! (-> obj root-overlay nav-radius) 20480.0)
|
|
(let ((v1-6 (-> obj control-point-array data)))
|
|
(set! (-> v1-6 0 local-pos x) 9216.0)
|
|
(set! (-> v1-6 0 local-pos y) 0.0)
|
|
(set! (-> v1-6 0 local-pos z) 12083.2)
|
|
(set! (-> v1-6 0 local-pos w) 1.0)
|
|
)
|
|
(let ((v1-8 (-> obj control-point-array data 1)))
|
|
(set! (-> v1-8 local-pos x) 9216.0)
|
|
(set! (-> v1-8 local-pos y) 0.0)
|
|
(set! (-> v1-8 local-pos z) -12083.2)
|
|
(set! (-> v1-8 local-pos w) 1.0)
|
|
)
|
|
(let ((v1-10 (-> obj control-point-array data 2)))
|
|
(set! (-> v1-10 local-pos x) -9216.0)
|
|
(set! (-> v1-10 local-pos y) 0.0)
|
|
(set! (-> v1-10 local-pos z) -12083.2)
|
|
(set! (-> v1-10 local-pos w) 1.0)
|
|
)
|
|
(let ((v1-12 (-> obj control-point-array data 3)))
|
|
(set! (-> v1-12 local-pos x) -9216.0)
|
|
(set! (-> v1-12 local-pos y) 0.0)
|
|
(set! (-> v1-12 local-pos z) 12083.2)
|
|
(set! (-> v1-12 local-pos w) 1.0)
|
|
)
|
|
(set! (-> obj anchor-point quad) (-> obj root-overlay trans quad))
|
|
(nav-mesh-connect obj (-> obj root-overlay) (the-as nav-control #f))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition of type tra-iris-door
|
|
(deftype tra-iris-door (eco-door)
|
|
()
|
|
:heap-base #xa0
|
|
:method-count-assert 27
|
|
:size-assert #x104
|
|
:flag-assert #x1b00a00104
|
|
)
|
|
|
|
;; definition for method 3 of type tra-iris-door
|
|
(defmethod inspect tra-iris-door ((obj tra-iris-door))
|
|
(let ((t9-0 (method-of-type eco-door inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *tra-iris-door-sg* jng-iris-door
|
|
0
|
|
3
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 8)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; definition for method 24 of type tra-iris-door
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod TODO-RENAME-24 tra-iris-door ((obj tra-iris-door))
|
|
(let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-others))))
|
|
(let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s4-0 prim-core collide-as) (collide-kind wall-object))
|
|
(set! (-> s4-0 collide-with) (collide-kind target))
|
|
(set! (-> s4-0 prim-core action) (collide-action solid))
|
|
(set! (-> s4-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s4-0 transform-index) 0)
|
|
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 16384.0)
|
|
(set-root-prim! s5-0 s4-0)
|
|
)
|
|
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s5-0)
|
|
(set! (-> obj root-override) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 25 of type tra-iris-door
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod TODO-RENAME-25 tra-iris-door ((obj tra-iris-door))
|
|
(initialize-skeleton obj *tra-iris-door-sg* '())
|
|
(set! (-> obj open-distance) 32768.0)
|
|
(set! (-> obj close-distance) 49152.0)
|
|
(update-transforms! (-> obj root-override))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-scarecrow-explode
|
|
:id 143
|
|
:duration 15
|
|
:bounds (static-bspherem 0 0 0 1)
|
|
:parts
|
|
((sp-item 2912) (sp-item 2913) (sp-item 2914) (sp-item 2915) (sp-item 2916))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2912
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
(sp-flt spt-num 16.0)
|
|
(sp-rnd-flt spt-y (meters 2.5) (meters 1) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 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 192.0 32.0 1.0)
|
|
(sp-rnd-flt spt-g 160.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 128.0 32.0 1.0)
|
|
(sp-rnd-flt spt-a 8.0 16.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
|
|
(sp-flt spt-scalevel-x (meters 0.011904762))
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-accel-y 2.7306666)
|
|
(sp-flt spt-friction 0.9)
|
|
(sp-int spt-timer 420)
|
|
(sp-cpuinfo-flags bit2 bit12 bit14)
|
|
(sp-int-plain-rnd spt-next-time 30 59 1)
|
|
(sp-launcher-by-id spt-next-launcher 2917)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2917
|
|
:init-specs
|
|
((sp-flt spt-fade-a -0.4) (sp-int-plain-rnd spt-next-time 30 29 1) (sp-launcher-by-id spt-next-launcher 2918))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2918
|
|
:init-specs
|
|
((sp-flt spt-fade-a -0.04))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2913
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
|
|
(sp-flt spt-num 4.0)
|
|
(sp-flt spt-y (meters 2.5))
|
|
(sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
|
|
(sp-int spt-rot-x 4)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
|
|
(sp-flt spt-r 192.0)
|
|
(sp-flt spt-g 192.0)
|
|
(sp-rnd-flt spt-b 64.0 128.0 1.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-flt spt-scalevel-x (meters 0.009765625))
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
|
|
(sp-flt spt-scalevel-y (meters 0.009765625))
|
|
(sp-flt spt-fade-a 2.1333334)
|
|
(sp-int spt-timer 30)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-int spt-next-time 15)
|
|
(sp-launcher-by-id spt-next-launcher 2919)
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2919
|
|
:init-specs
|
|
((sp-flt spt-fade-a -2.1333334))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2914
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
|
|
(sp-flt spt-num 2.5)
|
|
(sp-flt spt-y (meters 1.5))
|
|
(sp-flt spt-scale-x (meters 12))
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 196.0)
|
|
(sp-flt spt-g 196.0)
|
|
(sp-flt spt-b 196.0)
|
|
(sp-flt spt-a 48.0)
|
|
(sp-int spt-timer 10)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2915
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
|
|
(sp-rnd-flt spt-num 8.0 8.0 1.0)
|
|
(sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
|
|
(sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
|
|
(sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-scale-y (meters 0.3))
|
|
(sp-flt spt-r 160.0)
|
|
(sp-flt spt-g 160.0)
|
|
(sp-flt spt-b 160.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
|
|
(sp-flt spt-rotvel-x (degrees 1.2))
|
|
(sp-flt spt-rotvel-y (degrees 2.4))
|
|
(sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
|
|
(sp-flt spt-accel-y -13.653334)
|
|
(sp-flt spt-friction 0.97)
|
|
(sp-int spt-timer 150)
|
|
(sp-cpuinfo-flags bit2 bit12 bit14)
|
|
(sp-int spt-next-time 75)
|
|
(sp-launcher-by-id spt-next-launcher 2920)
|
|
(sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2920
|
|
:init-specs
|
|
((sp-flt spt-scalevel-x (meters -0.0033333334))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -3.4)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2916
|
|
:init-specs
|
|
((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
|
|
(sp-rnd-flt spt-num 8.0 8.0 1.0)
|
|
(sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
|
|
(sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
|
|
(sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
|
|
(sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-scale-y (meters 0.3))
|
|
(sp-flt spt-r 100.0)
|
|
(sp-flt spt-g 100.0)
|
|
(sp-flt spt-b 100.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
|
|
(sp-flt spt-rotvel-x (degrees 1.2))
|
|
(sp-flt spt-rotvel-y (degrees 2.4))
|
|
(sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
|
|
(sp-flt spt-accel-y -13.653334)
|
|
(sp-flt spt-friction 0.97)
|
|
(sp-int spt-timer 150)
|
|
(sp-cpuinfo-flags bit2 bit12 bit14)
|
|
(sp-int spt-next-time 75)
|
|
(sp-launcher-by-id spt-next-launcher 2920)
|
|
(sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-scarecrow-joint-explode
|
|
:id 144
|
|
:duration 15
|
|
:bounds (static-bspherem 0 0 0 1)
|
|
:parts
|
|
((sp-item 2912))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-scarecrow-hit
|
|
:id 145
|
|
:duration 15
|
|
:bounds (static-bspherem 0 0 0 1)
|
|
:parts
|
|
((sp-item 2913))
|
|
)
|
|
|
|
;; definition of type scarecrow-a
|
|
(deftype scarecrow-a (process-drawable)
|
|
((root-override collide-shape :offset 112)
|
|
(incomming-attack-id uint64 :offset-assert 176)
|
|
(intersection vector :inline :offset-assert 192)
|
|
)
|
|
:heap-base #x60
|
|
:method-count-assert 22
|
|
:size-assert #xd0
|
|
:flag-assert #x16006000d0
|
|
(:methods
|
|
(idle () _type_ :state 20)
|
|
(hit (float vector symbol) _type_ :state 21)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type scarecrow-a
|
|
(defmethod inspect scarecrow-a ((obj scarecrow-a))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Tincomming-attack-id: ~D~%" (-> obj incomming-attack-id))
|
|
(format #t "~T~Tintersection: ~`vector`P~%" (-> obj intersection))
|
|
obj
|
|
)
|
|
|
|
;; definition of type scarecrow-b
|
|
(deftype scarecrow-b (process-drawable)
|
|
((root-override collide-shape :offset 112)
|
|
(incomming-attack-id uint64 :offset-assert 176)
|
|
(intersection vector :inline :offset-assert 192)
|
|
)
|
|
:heap-base #x60
|
|
:method-count-assert 22
|
|
:size-assert #xd0
|
|
:flag-assert #x16006000d0
|
|
(:methods
|
|
(idle () _type_ :state 20)
|
|
(hit (float vector symbol) _type_ :state 21)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type scarecrow-b
|
|
(defmethod inspect scarecrow-b ((obj scarecrow-b))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Tincomming-attack-id: ~D~%" (-> obj incomming-attack-id))
|
|
(format #t "~T~Tintersection: ~`vector`P~%" (-> obj intersection))
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *scarecrow-a-sg* scarecrow-a
|
|
0
|
|
5
|
|
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
|
|
:bounds (static-spherem 0 2.5 0 3)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *scarecrow-a-break-sg* scarecrow-a
|
|
0
|
|
5
|
|
((4 (meters 999999)))
|
|
:bounds (static-spherem 0 -15 0 50)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (scarecrow-a)
|
|
:virtual #t
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(let ((v1-0 arg2))
|
|
(the-as
|
|
object
|
|
(cond
|
|
((= v1-0 'attack)
|
|
(let* ((s3-0 (-> arg3 param 2))
|
|
(s4-0 (get-task-control (game-task training-gimmie)))
|
|
(v1-2 (get-reminder s4-0 0))
|
|
)
|
|
(when (!= s3-0 (-> self incomming-attack-id))
|
|
(set! (-> self incomming-attack-id) s3-0)
|
|
(cond
|
|
((= (-> self type) scarecrow-b)
|
|
)
|
|
((and (= (-> arg3 param 1) 'spin) (zero? v1-2))
|
|
(save-reminder s4-0 1 0)
|
|
1
|
|
)
|
|
((and (= (-> arg3 param 1) 'punch) (= v1-2 1))
|
|
(save-reminder s4-0 2 0)
|
|
2
|
|
)
|
|
((zero? v1-2)
|
|
)
|
|
((= v1-2 1)
|
|
)
|
|
)
|
|
(let* ((s4-1 arg0)
|
|
(v1-14 (if (and (nonzero? s4-1) (type-type? (-> s4-1 type) process-drawable))
|
|
s4-1
|
|
)
|
|
)
|
|
(f30-0
|
|
(cond
|
|
(v1-14
|
|
(let ((s4-2 (-> self root-override))
|
|
(s2-0 (-> (the-as process-drawable v1-14) root trans))
|
|
)
|
|
(deg-diff (y-angle s4-2) (vector-y-angle (vector-! (new 'stack-no-clear 'vector) s2-0 (-> s4-2 trans))))
|
|
)
|
|
)
|
|
(else
|
|
0.0
|
|
)
|
|
)
|
|
)
|
|
(a0-24 ((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)
|
|
)
|
|
)
|
|
)
|
|
(go-virtual
|
|
hit
|
|
f30-0
|
|
(if a0-24
|
|
(get-middle-of-bsphere-overlap a0-24 (-> self intersection))
|
|
(target-pos 0)
|
|
)
|
|
(the-as symbol (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 2)
|
|
)
|
|
(or (= (-> self type) scarecrow-a)
|
|
(and (= (-> arg0 type) target)
|
|
(logtest? (-> (the-as target arg0) control unknown-surface00 flags) 2048)
|
|
(zero? (logand (-> (the-as target arg0) control status) 1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((= v1-0 'touch)
|
|
(send-shove-back
|
|
(-> self root-override)
|
|
arg0
|
|
(the-as touching-shapes-entry (-> arg3 param 0))
|
|
0.7
|
|
6144.0
|
|
16384.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(if (and *target* (>= 40960.0 (vector-vector-distance (-> self root-override trans) (-> *target* control trans))))
|
|
(get-reminder (get-task-control (game-task training-gimmie)) 0)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 36)
|
|
(while #t
|
|
(let ((a0-1 (-> self skel root-channel 0)))
|
|
(set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
|
|
(set! (-> a0-1 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-1 param 1) 1.0)
|
|
(set! (-> a0-1 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-2 (-> self skel root-channel 0)))
|
|
(set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
|
|
(set! (-> a0-2 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior scarecrow-a) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate hit (scarecrow-a)
|
|
:virtual #t
|
|
:code
|
|
(behavior ((arg0 float) (arg1 vector) (arg2 symbol))
|
|
(when (not arg2)
|
|
(dummy-10 (-> self skel effect) 'group-scarecrow-hit 4.0 -1)
|
|
(ja-channel-push! 1 21)
|
|
(cond
|
|
((< (fabs arg0) 8192.0)
|
|
(let ((a0-3 (-> self skel root-channel 0)))
|
|
(set! (-> a0-3 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
|
|
(set! (-> a0-3 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 8)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-3 param 1) 1.0)
|
|
(set! (-> a0-3 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-3 (the-as art-joint-anim (-> self draw art-group data 8)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-4 (-> self skel root-channel 0)))
|
|
(set! (-> a0-4 param 0) (the float (+ (-> a0-4 frame-group data 0 length) -1)))
|
|
(set! (-> a0-4 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-4 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
((and (< 8192.0 arg0) (< arg0 24576.0))
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
(set! (-> a0-6 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-6 (the-as art-joint-anim (-> self draw art-group data 6)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-7 (-> self skel root-channel 0)))
|
|
(set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
|
|
(set! (-> a0-7 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let ((a0-9 (-> self skel root-channel 0)))
|
|
(set! (-> a0-9 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
|
|
(set! (-> a0-9 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 7)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-9 param 1) 1.0)
|
|
(set! (-> a0-9 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-9 (the-as art-joint-anim (-> self draw art-group data 7)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-10 (-> self skel root-channel 0)))
|
|
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
|
|
(set! (-> a0-10 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(go-virtual idle)
|
|
)
|
|
(clear-collide-with-as (-> self root-override))
|
|
(dummy-10 (-> self skel effect) 'group-scarecrow-joint-explode 12.0 -1)
|
|
(dummy-10 (-> self skel effect) 'group-scarecrow-joint-explode 20.0 -1)
|
|
(dummy-10 (-> self skel effect) 'group-scarecrow-explode 4.0 -1)
|
|
(sound-play-by-name (static-sound-name "break-dummy") (new-sound-id) 1024 0 0 1 #t)
|
|
(ja-channel-set! 0)
|
|
(let ((s5-2 (new 'stack 'joint-exploder-tuning 1)))
|
|
(set! (-> s5-2 duration) (seconds 1.5))
|
|
(set! (-> s5-2 gravity) -327680.0)
|
|
(set! (-> s5-2 fountain-rand-transv-hi x) 32768.0)
|
|
(set! (-> s5-2 fountain-rand-transv-hi y) 81920.0)
|
|
(set! (-> s5-2 fountain-rand-transv-hi z) 20480.0)
|
|
(set! (-> s5-2 fountain-rand-transv-hi w) 49152.0)
|
|
(set! (-> s5-2 fountain-rand-transv-lo quad) (-> arg1 quad))
|
|
(let ((gp-1 (get-process *default-dead-pool* joint-exploder #x4000)))
|
|
(when gp-1
|
|
(let ((t9-21 (method-of-type joint-exploder activate)))
|
|
(t9-21 (the-as joint-exploder gp-1) self 'joint-exploder (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-1
|
|
joint-exploder-init-by-other
|
|
*scarecrow-a-break-sg*
|
|
5
|
|
s5-2
|
|
(new 'static 'joint-exploder-static-params
|
|
:joints
|
|
(new
|
|
'static
|
|
'boxed-array
|
|
:type joint-exploder-static-joint-params :length 10 :allocated-length 10
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 12)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 10)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 20)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 4)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 5)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 11)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 9)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 7)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 14)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 13)
|
|
)
|
|
)
|
|
)
|
|
(-> gp-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
(cleanup-for-death self)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior scarecrow-a) ja-post)
|
|
)
|
|
|
|
;; definition for method 11 of type scarecrow-a
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! scarecrow-a ((obj scarecrow-a) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player))))
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 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-vector! (-> s3-0 local-sphere) 0.0 10240.0 0.0 12288.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))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense touch))
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 7372.8 0.0 7372.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))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense touch))
|
|
(set-vector! (-> s2-1 local-sphere) 0.0 12288.0 0.0 7372.8)
|
|
(append-prim s3-0 s2-1)
|
|
)
|
|
)
|
|
(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 *scarecrow-a-sg* '())
|
|
(go (method-of-object obj idle))
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *scarecrow-b-sg* scarecrow-b
|
|
0
|
|
5
|
|
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
|
|
:bounds (static-spherem 0 3.5 0 3.8)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *scarecrow-b-break-sg* scarecrow-b
|
|
0
|
|
5
|
|
((4 (meters 999999)))
|
|
:bounds (static-spherem 0 -15 0 50)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (scarecrow-b)
|
|
:virtual #t
|
|
:event
|
|
(-> (method-of-type scarecrow-a idle) event)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 36)
|
|
(while #t
|
|
(let ((a0-1 (-> self skel root-channel 0)))
|
|
(set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
|
|
(set! (-> a0-1 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-1 param 1) 1.0)
|
|
(set! (-> a0-1 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-2 (-> self skel root-channel 0)))
|
|
(set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
|
|
(set! (-> a0-2 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior scarecrow-b) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate hit (scarecrow-b)
|
|
:virtual #t
|
|
:code
|
|
(behavior ((arg0 float) (arg1 vector) (arg2 symbol))
|
|
(when (not arg2)
|
|
(dummy-10 (-> self skel effect) 'group-scarecrow-hit 4.0 -1)
|
|
(ja-channel-push! 1 21)
|
|
(cond
|
|
((< (fabs arg0) 8192.0)
|
|
(let ((a0-3 (-> self skel root-channel 0)))
|
|
(set! (-> a0-3 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
|
|
(set! (-> a0-3 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 8)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-3 param 1) 1.0)
|
|
(set! (-> a0-3 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-3 (the-as art-joint-anim (-> self draw art-group data 8)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-4 (-> self skel root-channel 0)))
|
|
(set! (-> a0-4 param 0) (the float (+ (-> a0-4 frame-group data 0 length) -1)))
|
|
(set! (-> a0-4 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-4 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
((and (< 8192.0 arg0) (< arg0 24576.0))
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
(set! (-> a0-6 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-6 (the-as art-joint-anim (-> self draw art-group data 6)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-7 (-> self skel root-channel 0)))
|
|
(set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
|
|
(set! (-> a0-7 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let ((a0-9 (-> self skel root-channel 0)))
|
|
(set! (-> a0-9 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
|
|
(set! (-> a0-9 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 7)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-9 param 1) 1.0)
|
|
(set! (-> a0-9 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-9 (the-as art-joint-anim (-> self draw art-group data 7)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-10 (-> self skel root-channel 0)))
|
|
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
|
|
(set! (-> a0-10 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(go-virtual idle)
|
|
)
|
|
(clear-collide-with-as (-> self root-override))
|
|
(dummy-10 (-> self skel effect) 'group-scarecrow-joint-explode 12.0 -1)
|
|
(dummy-10 (-> self skel effect) 'group-scarecrow-joint-explode 21.0 -1)
|
|
(dummy-10 (-> self skel effect) 'group-scarecrow-explode 4.0 -1)
|
|
(sound-play-by-name (static-sound-name "break-dummy") (new-sound-id) 1024 0 0 1 #t)
|
|
(ja-channel-set! 0)
|
|
(let ((s5-2 (new 'stack 'joint-exploder-tuning 1)))
|
|
(set! (-> s5-2 duration) (seconds 1.5))
|
|
(set! (-> s5-2 fountain-rand-transv-hi x) 32768.0)
|
|
(set! (-> s5-2 fountain-rand-transv-hi y) 81920.0)
|
|
(set! (-> s5-2 fountain-rand-transv-hi z) 40960.0)
|
|
(set! (-> s5-2 fountain-rand-transv-hi w) 102400.0)
|
|
(set! (-> s5-2 fountain-rand-transv-lo quad) (-> arg1 quad))
|
|
(let ((gp-1 (get-process *default-dead-pool* joint-exploder #x4000)))
|
|
(when gp-1
|
|
(let ((t9-21 (method-of-type joint-exploder activate)))
|
|
(t9-21 (the-as joint-exploder gp-1) self 'joint-exploder (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-1
|
|
joint-exploder-init-by-other
|
|
*scarecrow-b-break-sg*
|
|
5
|
|
s5-2
|
|
(new 'static 'joint-exploder-static-params
|
|
:joints
|
|
(new
|
|
'static
|
|
'boxed-array
|
|
:type joint-exploder-static-joint-params :length 14 :allocated-length 14
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 12)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 10)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 21)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 4)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 5)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 11)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 9)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 7)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 14)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 13)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 14)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 13)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 16)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 15)
|
|
)
|
|
)
|
|
)
|
|
(-> gp-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
(cleanup-for-death self)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior scarecrow-b) ja-post)
|
|
)
|
|
|
|
;; definition for method 11 of type scarecrow-b
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! scarecrow-b ((obj scarecrow-b) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player))))
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 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-vector! (-> s3-0 local-sphere) 0.0 14336.0 0.0 15564.8)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 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 4096.0 0.0 4096.0)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
|
|
(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 14745.6 0.0 6553.6)
|
|
(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))
|
|
(set! (-> s2-2 prim-core offense) (collide-offense touch))
|
|
(set-vector! (-> s2-2 local-sphere) 0.0 20480.0 0.0 6553.6)
|
|
(append-prim s3-0 s2-2)
|
|
)
|
|
)
|
|
(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 *scarecrow-b-sg* '())
|
|
(go (method-of-object obj idle))
|
|
(none)
|
|
)
|