mirror of
https://github.com/open-goal/jak-project
synced 2026-07-09 23:01:56 -04:00
Hat Kid
122de4ecf5
After spending the last month staring at and comparing Jak 3 and Jak 1 versions of a bunch of `target` code for my jetboard mod, I figured this would be a good opportunity to revive this ancient PR #1714 along with some other small misc fixes/improvements. Instead of directly replacing the old fields, I decided to opt for using overlay fields to maintain backwards compatibility with existing manual patches, files without ref tests and mods that might use these fields.
1018 lines
37 KiB
Common Lisp
Vendored
Generated
1018 lines
37 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type training-water
|
|
(deftype training-water (water-anim)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type training-water
|
|
(defmethod inspect ((this training-water))
|
|
(let ((t9-0 (method-of-type water-anim inspect)))
|
|
(t9-0 this)
|
|
)
|
|
this
|
|
)
|
|
|
|
;; 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 water-vol-method-22 ((this training-water))
|
|
(let ((t9-0 (method-of-type water-anim water-vol-method-22)))
|
|
(t9-0 this)
|
|
)
|
|
(let ((v1-2 (new 'process 'ripple-control)))
|
|
(set! (-> this draw ripple) v1-2)
|
|
(set-vector! (-> this 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 trainingcam-lod0-jg -1
|
|
((trainingcam-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 80)
|
|
)
|
|
|
|
;; definition of type training-cam
|
|
(deftype training-cam (process)
|
|
((root trsq)
|
|
(range meters)
|
|
(index int32)
|
|
(state-time time-frame)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type training-cam
|
|
(defmethod inspect ((this training-cam))
|
|
(let ((t9-0 (method-of-type process inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Troot: ~A~%" (-> this root))
|
|
(format #t "~T~Trange: (meters ~m)~%" (-> this range))
|
|
(format #t "~T~Tindex: ~D~%" (-> this index))
|
|
(format #t "~T~Tstate-time: ~D~%" (-> this state-time))
|
|
this
|
|
)
|
|
|
|
;; definition for method 7 of type training-cam
|
|
;; INFO: Return type mismatch process vs training-cam.
|
|
(defmethod relocate ((this training-cam) (offset int))
|
|
(if (nonzero? (-> this root))
|
|
(&+! (-> this root) offset)
|
|
)
|
|
(the-as training-cam ((method-of-type process relocate) this offset))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (training-cam)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(loop
|
|
(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) (not (logtest? (-> a0-3 extra perm status) (entity-perm-status dead))))
|
|
)
|
|
)
|
|
)
|
|
(when (!= (-> self index) 6)
|
|
(while (and *target*
|
|
(logtest? (-> *target* control mod-surface flags) (surface-flags jump))
|
|
(not (logtest? (-> *target* control status) (cshape-moving-flags onsurf)))
|
|
)
|
|
(suspend)
|
|
)
|
|
(set-time! (-> self state-time))
|
|
(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! '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 a3-1 0.0 0)
|
|
)
|
|
(apply-settings *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 (not (time-elapsed? (-> self state-time) (seconds 1)))
|
|
(suspend)
|
|
)
|
|
(remove-setting! 'movie)
|
|
(apply-settings *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 (text-id training-money) "asstvb41" (the-as entity #f) *entity-pool* (game-task none))
|
|
(process-spawn pov-camera (-> self entity extra trans) *training-cam-sg* "orbcam" 0 #f '() :to self)
|
|
)
|
|
((= v1-61 1)
|
|
(level-hint-spawn (text-id training-fuel-cell) "asstvb42" (the-as entity #f) *entity-pool* (game-task none))
|
|
(process-spawn pov-camera (-> self entity extra trans) *training-cam-sg* "fuelcellcam" 0 #f '() :to self)
|
|
)
|
|
((= v1-61 2)
|
|
(level-hint-spawn (text-id training-eco-blue) "sagevb22" (the-as entity #f) *entity-pool* (game-task none))
|
|
(process-spawn pov-camera (-> self entity extra trans) *training-cam-sg* "ecocam" 0 #f '() :to self)
|
|
)
|
|
((= v1-61 3)
|
|
(level-hint-spawn
|
|
(text-id training-precursor-door)
|
|
"sagevb24"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(process-spawn pov-camera (-> self entity extra trans) *training-cam-sg* "precursordoorcam" 0 #f '() :to self)
|
|
)
|
|
((= v1-61 4)
|
|
(level-hint-spawn
|
|
(text-id training-blue-eco-vent)
|
|
"asstvb48"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(process-spawn pov-camera (-> self entity extra trans) *training-cam-sg* "ecoventcam" 0 #f '() :to self)
|
|
)
|
|
((= v1-61 5)
|
|
(level-hint-spawn (text-id training-eco-green) "sagevb21" (the-as entity #f) *entity-pool* (game-task none))
|
|
(process-spawn pov-camera (-> self entity extra trans) *training-cam-sg* "greenecocam" 0 #f '() :to self)
|
|
)
|
|
((= v1-61 6)
|
|
(when (not (task-complete? *game-info* (game-task training-climb)))
|
|
(clear-text-seen! *game-info* (text-id training-double-jump))
|
|
(level-hint-spawn (text-id training-double-jump) "sagevb27" (the-as entity #f) *entity-pool* (game-task none))
|
|
(suspend-for (seconds 30)
|
|
)
|
|
(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)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 11 of type training-cam
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this training-cam) (arg0 entity-actor))
|
|
"Copy defaults from the entity."
|
|
(logior! (-> this mask) (process-mask actor-pause))
|
|
(set! (-> this root) (new 'process 'trsq))
|
|
(set! (-> this root trans quad) (-> arg0 extra trans quad))
|
|
(quaternion-copy! (-> this root quat) (-> arg0 quat))
|
|
(vector-identity! (-> this root scale))
|
|
(set! (-> this range) (res-lump-float arg0 'cam-notice-dist :default 81920.0))
|
|
(set! (-> this index) (res-lump-value arg0 'index int))
|
|
(go (method-of-object this idle))
|
|
(none)
|
|
)
|
|
|
|
;; definition of type tra-pontoon
|
|
(deftype tra-pontoon (rigid-body-platform)
|
|
((anchor-point vector :inline)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type tra-pontoon
|
|
(defmethod inspect ((this tra-pontoon))
|
|
(let ((t9-0 (method-of-type rigid-body-platform inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tanchor-point: #<vector @ #x~X>~%" (-> this anchor-point))
|
|
this
|
|
)
|
|
|
|
;; definition for method 11 of type tra-pontoon
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod init-from-entity! ((this tra-pontoon) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask platform))
|
|
(rigid-body-platform-method-30 this)
|
|
(process-drawable-from-entity! this arg0)
|
|
(rigid-body-platform-method-31 this)
|
|
(go (method-of-object this rigid-body-platform-idle))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 23 of type tra-pontoon
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod rigid-body-platform-method-23 ((this tra-pontoon) (arg0 float))
|
|
(call-parent-method this arg0)
|
|
(rigid-body-platform-method-27 this (-> this 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 pontoonfive-lod0-jg pontoonfive-idle-ja
|
|
((pontoonfive-lod0-mg (meters 20)) (pontoonfive-lod1-mg (meters 40)) (pontoonfive-lod2-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 5)
|
|
)
|
|
|
|
;; definition for method 30 of type tra-pontoon
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod rigid-body-platform-method-30 ((this tra-pontoon))
|
|
(let ((s5-0 (new 'process 'collide-shape-moving this (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 rider-plat-sticky))
|
|
(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! (-> this root-overlay) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 31 of type tra-pontoon
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod rigid-body-platform-method-31 ((this tra-pontoon))
|
|
(initialize-skeleton this *tra-pontoon-sg* '())
|
|
(rigid-body-platform-method-29 this *tra-pontoon-constants*)
|
|
(set! (-> this float-height-offset) 6144.0)
|
|
(set! (-> this root-overlay nav-radius) 20480.0)
|
|
(let ((v1-6 (-> this 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 (-> this 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 (-> this 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 (-> this 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! (-> this anchor-point quad) (-> this root-overlay trans quad))
|
|
(nav-mesh-connect this (-> this root-overlay) (the-as nav-control #f))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition of type tra-iris-door
|
|
(deftype tra-iris-door (eco-door)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type tra-iris-door
|
|
(defmethod inspect ((this tra-iris-door))
|
|
(let ((t9-0 (method-of-type eco-door inspect)))
|
|
(t9-0 this)
|
|
)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *tra-iris-door-sg* jng-iris-door jng-iris-door-lod0-jg jng-iris-door-idle-ja
|
|
((jng-iris-door-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 8)
|
|
)
|
|
|
|
;; definition for method 24 of type tra-iris-door
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod eco-door-method-24 ((this tra-iris-door))
|
|
(let ((s5-0 (new 'process 'collide-shape this (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! (-> this root) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 25 of type tra-iris-door
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod eco-door-method-25 ((this tra-iris-door))
|
|
(initialize-skeleton this *tra-iris-door-sg* '())
|
|
(set! (-> this open-distance) 32768.0)
|
|
(set! (-> this close-distance) 49152.0)
|
|
(update-transforms! (-> this root))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-scarecrow-explode
|
|
:id 143
|
|
:duration (seconds 0.05)
|
|
: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 ((:texture (bigpuff effects))
|
|
(:num 16.0)
|
|
(:y (meters 2.5) (meters 1))
|
|
(:scale-x (meters 2.5) (meters 1.5))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 192.0 32.0)
|
|
(:g 160.0 32.0)
|
|
(:b 128.0 32.0)
|
|
(:a 8.0 16.0)
|
|
(:vel-y (meters 0.026666667) (meters 0.10666667))
|
|
(:scalevel-x (meters 0.011904762))
|
|
(:rotvel-z (degrees -1.2) (degrees 1.2))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:accel-y (meters 0.00066666666))
|
|
(:friction 0.9)
|
|
(:timer (seconds 1.4))
|
|
(:flags (bit2 bit12 bit14))
|
|
(:next-time (seconds 0.1) (seconds 0.197))
|
|
(:next-launcher 2917)
|
|
(:conerot-x (degrees 0) (degrees 360))
|
|
(:conerot-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2917
|
|
:init-specs ((:fade-a -0.4) (:next-time (seconds 0.1) (seconds 0.097)) (:next-launcher 2918))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2918
|
|
:init-specs ((:fade-a -0.04))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2913
|
|
:init-specs ((:texture (flare effects))
|
|
(:num 4.0)
|
|
(:y (meters 2.5))
|
|
(:scale-x (meters 6) (meters 3))
|
|
(:rot-x 4)
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 0.3) (meters 1))
|
|
(:r 192.0)
|
|
(:g 192.0)
|
|
(:b 64.0 128.0)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.009765625))
|
|
(:rotvel-z (degrees -0.15) (degrees 0.3))
|
|
(:scalevel-y (meters 0.009765625))
|
|
(:fade-a 2.1333334)
|
|
(:timer (seconds 0.1))
|
|
(:flags (bit2 bit3 bit14))
|
|
(:next-time (seconds 0.05))
|
|
(:next-launcher 2919)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2919
|
|
:init-specs ((:fade-a -2.1333334))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2914
|
|
:init-specs ((:texture (starflash effects))
|
|
(:num 2.5)
|
|
(:y (meters 1.5))
|
|
(:scale-x (meters 12))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 196.0)
|
|
(:g 196.0)
|
|
(:b 196.0)
|
|
(:a 48.0)
|
|
(:timer (seconds 0.035))
|
|
(:flags (bit2 bit3 bit14))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2915
|
|
:init-specs ((:texture (crate-wood-01-splinter effects))
|
|
(:num 8.0 8.0)
|
|
(:x (meters -0.5) (meters 1))
|
|
(:y (meters 2.5) (meters 1.5))
|
|
(:z (meters -0.5) (meters 1))
|
|
(:scale-x (meters 0.6) 2.0 (meters 0.6))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 0.3))
|
|
(:r 160.0)
|
|
(:g 160.0)
|
|
(:b 160.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters 0.06666667) (meters 0.06666667))
|
|
(:rotvel-x (degrees 1.2))
|
|
(:rotvel-y (degrees 2.4))
|
|
(:rotvel-z (degrees 0) 2 (degrees 2.4))
|
|
(:accel-y (meters -0.0033333334))
|
|
(:friction 0.97)
|
|
(:timer (seconds 0.5))
|
|
(:flags (bit2 bit12 bit14))
|
|
(:next-time (seconds 0.25))
|
|
(:next-launcher 2920)
|
|
(:conerot-x (degrees 40) (degrees 30))
|
|
(:conerot-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2920
|
|
:init-specs ((:scalevel-x (meters -0.0033333334)) (:scalevel-y :copy scalevel-x) (:fade-a -3.4))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2916
|
|
:init-specs ((:texture (crate-metalbolt-splinter effects))
|
|
(:num 8.0 8.0)
|
|
(:x (meters -0.5) (meters 1))
|
|
(:y (meters 2.5) (meters 1.5))
|
|
(:z (meters -0.5) (meters 1))
|
|
(:scale-x (meters 0.3) 1 (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 0.3))
|
|
(:r 100.0)
|
|
(:g 100.0)
|
|
(:b 100.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters 0.06666667) (meters 0.06666667))
|
|
(:rotvel-x (degrees 1.2))
|
|
(:rotvel-y (degrees 2.4))
|
|
(:rotvel-z (degrees 0) 3 (degrees 2.4))
|
|
(:accel-y (meters -0.0033333334))
|
|
(:friction 0.97)
|
|
(:timer (seconds 0.5))
|
|
(:flags (bit2 bit12 bit14))
|
|
(:next-time (seconds 0.25))
|
|
(:next-launcher 2920)
|
|
(:conerot-x (degrees 40) (degrees 30))
|
|
(:conerot-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-scarecrow-joint-explode
|
|
:id 144
|
|
:duration (seconds 0.05)
|
|
: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 (seconds 0.05)
|
|
:bounds (static-bspherem 0 0 0 1)
|
|
:parts ((sp-item 2913))
|
|
)
|
|
|
|
;; definition of type scarecrow-a
|
|
(deftype scarecrow-a (process-drawable)
|
|
((root collide-shape :override)
|
|
(incomming-attack-id uint64)
|
|
(intersection vector :inline)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
(hit float vector symbol)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type scarecrow-a
|
|
(defmethod inspect ((this scarecrow-a))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tincomming-attack-id: ~D~%" (-> this incomming-attack-id))
|
|
(format #t "~T~Tintersection: ~`vector`P~%" (-> this intersection))
|
|
this
|
|
)
|
|
|
|
;; definition of type scarecrow-b
|
|
(deftype scarecrow-b (process-drawable)
|
|
((root collide-shape :override)
|
|
(incomming-attack-id uint64)
|
|
(intersection vector :inline)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
(hit float vector symbol)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type scarecrow-b
|
|
(defmethod inspect ((this scarecrow-b))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tincomming-attack-id: ~D~%" (-> this incomming-attack-id))
|
|
(format #t "~T~Tintersection: ~`vector`P~%" (-> this intersection))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *scarecrow-a-sg* scarecrow-a scarecrow-a-lod0-jg scarecrow-a-idle-ja
|
|
((scarecrow-a-lod0-mg (meters 20)) (scarecrow-a-lod1-mg (meters 40)) (scarecrow-a-lod2-mg (meters 999999)))
|
|
:bounds (static-spherem 0 2.5 0 3)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *scarecrow-a-break-sg* scarecrow-a scarecrow-a-lod0-jg scarecrow-a-idle-ja
|
|
((scarecrow-a-break-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -15 0 50)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (scarecrow-a)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('attack)
|
|
(let* ((s3-0 (-> block 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 (= (-> block param 1) 'spin) (zero? v1-2))
|
|
(save-reminder s4-0 1 0)
|
|
1
|
|
)
|
|
((and (= (-> block param 1) 'punch) (= v1-2 1))
|
|
(save-reminder s4-0 2 0)
|
|
2
|
|
)
|
|
((zero? v1-2)
|
|
)
|
|
((= v1-2 1)
|
|
)
|
|
)
|
|
(let* ((s4-1 proc)
|
|
(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))
|
|
(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 (-> block param 0))
|
|
(the-as collide-shape-moving (-> self root))
|
|
(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 (-> block param 0))
|
|
(the-as collide-shape-moving (-> self root))
|
|
(the-as uint 2)
|
|
)
|
|
(or (= (-> self type) scarecrow-a)
|
|
(and (= (-> proc type) target)
|
|
(logtest? (-> (the-as target proc) control mod-surface flags) (surface-flags jump))
|
|
(not (logtest? (-> (the-as target proc) control status) (cshape-moving-flags onsurf)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('touch)
|
|
(send-shove-back (-> self root) proc (the-as touching-shapes-entry (-> block param 0)) 0.7 6144.0 16384.0)
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(if (and *target* (>= 40960.0 (vector-vector-distance (-> self root trans) (-> *target* control trans))))
|
|
(get-reminder (get-task-control (game-task training-gimmie)) 0)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 (seconds 0.12))
|
|
(loop
|
|
(ja-no-eval :group! scarecrow-a-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
:post 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)
|
|
(effect-control-method-10 (-> self skel effect) 'group-scarecrow-hit 4.0 -1)
|
|
(ja-channel-push! 1 (seconds 0.07))
|
|
(cond
|
|
((< (fabs arg0) 8192.0)
|
|
(ja-no-eval :group! scarecrow-a-hit-front-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
((and (< 8192.0 arg0) (< arg0 24576.0))
|
|
(ja-no-eval :group! scarecrow-a-hit-left-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
(else
|
|
(ja-no-eval :group! scarecrow-a-hit-right-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(go-virtual idle)
|
|
)
|
|
(clear-collide-with-as (-> self root))
|
|
(effect-control-method-10 (-> self skel effect) 'group-scarecrow-joint-explode 12.0 -1)
|
|
(effect-control-method-10 (-> self skel effect) 'group-scarecrow-joint-explode 20.0 -1)
|
|
(effect-control-method-10 (-> self skel effect) 'group-scarecrow-explode 4.0 -1)
|
|
(sound-play "break-dummy")
|
|
(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))
|
|
(process-spawn
|
|
joint-exploder
|
|
*scarecrow-a-break-sg*
|
|
5
|
|
s5-2
|
|
(new 'static 'joint-exploder-static-params
|
|
:joints (new 'static 'boxed-array :type joint-exploder-static-joint-params
|
|
(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)
|
|
)
|
|
)
|
|
:to self
|
|
)
|
|
)
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
(cleanup-for-death self)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
;; definition for method 11 of type scarecrow-a
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this scarecrow-a) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape this (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! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *scarecrow-a-sg* '())
|
|
(go (method-of-object this idle))
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *scarecrow-b-sg* scarecrow-b scarecrow-b-lod0-jg scarecrow-b-idle-ja
|
|
((scarecrow-b-lod0-mg (meters 20)) (scarecrow-b-lod1-mg (meters 40)) (scarecrow-b-lod2-mg (meters 999999)))
|
|
:bounds (static-spherem 0 3.5 0 3.8)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *scarecrow-b-break-sg* scarecrow-b scarecrow-b-lod0-jg scarecrow-b-idle-ja
|
|
((scarecrow-b-break-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -15 0 50)
|
|
)
|
|
|
|
;; 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 (seconds 0.12))
|
|
(loop
|
|
(ja-no-eval :group! scarecrow-b-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
:post 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)
|
|
(effect-control-method-10 (-> self skel effect) 'group-scarecrow-hit 4.0 -1)
|
|
(ja-channel-push! 1 (seconds 0.07))
|
|
(cond
|
|
((< (fabs arg0) 8192.0)
|
|
(ja-no-eval :group! scarecrow-b-hit-front-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
((and (< 8192.0 arg0) (< arg0 24576.0))
|
|
(ja-no-eval :group! scarecrow-b-hit-left-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
(else
|
|
(ja-no-eval :group! scarecrow-b-hit-right-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
(go-virtual idle)
|
|
)
|
|
(clear-collide-with-as (-> self root))
|
|
(effect-control-method-10 (-> self skel effect) 'group-scarecrow-joint-explode 12.0 -1)
|
|
(effect-control-method-10 (-> self skel effect) 'group-scarecrow-joint-explode 21.0 -1)
|
|
(effect-control-method-10 (-> self skel effect) 'group-scarecrow-explode 4.0 -1)
|
|
(sound-play "break-dummy")
|
|
(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))
|
|
(process-spawn
|
|
joint-exploder
|
|
*scarecrow-b-break-sg*
|
|
5
|
|
s5-2
|
|
(new 'static 'joint-exploder-static-params
|
|
:joints (new 'static 'boxed-array :type joint-exploder-static-joint-params
|
|
(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)
|
|
)
|
|
)
|
|
:to self
|
|
)
|
|
)
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
(cleanup-for-death self)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
;; definition for method 11 of type scarecrow-b
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this scarecrow-b) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape this (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! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *scarecrow-b-sg* '())
|
|
(go (method-of-object this idle))
|
|
(none)
|
|
)
|