mirror of
https://github.com/open-goal/jak-project
synced 2026-06-14 22:29:25 -04:00
water111
3856ae505a
They still don't work yet, this is just naming/comments to help with debug. The vehicle tracks are now at least trying to draw, but like the others, don't actually show up.
1346 lines
57 KiB
Common Lisp
Vendored
Generated
1346 lines
57 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-prebot-camera prebot-camera prebot-camera-lod0-jg -1
|
|
((prebot-camera-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 4)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-exit-door cav-exit-door cav-exit-door-lod0-jg cav-exit-door-idle-ja
|
|
((cav-exit-door-lod0-mg (meters 20)) (cav-exit-door-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 10 0 20)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-break-bridge cav-break-bridge cav-break-bridge-lod0-jg cav-break-bridge-idle-ja
|
|
((cav-break-bridge-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -20 0 50)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-molten-pil cav-pillar cav-pillar-lod0-jg cav-pillar-idle-ja
|
|
((cav-pillar-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -10 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-molten-pil-b cav-pillar cav-pillar-b-lod0-jg cav-pillar-b-idle-ja
|
|
((cav-pillar-b-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -10 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-molten-pil-c cav-pillar cav-pillar-c-lod0-jg cav-pillar-c-idle-ja
|
|
((cav-pillar-c-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -10 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-molten-pil-d cav-pillar cav-pillar-d-lod0-jg cav-pillar-d-idle-ja
|
|
((cav-pillar-d-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -10 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-molten-pil-debris-a cav-pillar cav-pillar-debris-a-lod0-jg cav-pillar-debris-a-idle-ja
|
|
((cav-pillar-debris-a-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 2)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-molten-pil-debris-b cav-pillar cav-pillar-debris-b-lod0-jg cav-pillar-debris-b-idle-ja
|
|
((cav-pillar-debris-b-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 2)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-molten-pil-debris-c cav-pillar cav-pillar-debris-c-lod0-jg cav-pillar-debris-c-idle-ja
|
|
((cav-pillar-debris-c-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 2)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-molten-pil-debris-d cav-pillar cav-pillar-debris-d-lod0-jg cav-pillar-debris-d-idle-ja
|
|
((cav-pillar-debris-d-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 2)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-railblocker cav-railblocker cav-railblocker-lod0-jg cav-railblocker-idle-ja
|
|
((cav-railblocker-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-railblocker-explode cav-railblocker cav-railblocker-explode-lod0-jg cav-railblocker-explode-idle-ja
|
|
((cav-railblocker-explode-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; definition for symbol *cav-railblocker-exploder-params*, type joint-exploder-static-params
|
|
(define *cav-railblocker-exploder-params*
|
|
(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 3 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 4 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 7 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 8 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 9 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 10 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 11 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 12 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 13 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 14 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 15 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 16 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 17 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 18 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 19 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 20 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 21 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 22 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 23 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 24 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 25 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 26 :parent-joint-index -1)
|
|
(new 'static 'joint-exploder-static-joint-params :joint-index 27 :parent-joint-index -1)
|
|
)
|
|
:collide-spec (collide-spec backgnd)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-cav-minecar min-bomb-train min-bomb-train-lod0-jg min-bomb-train-idle-ja
|
|
((min-bomb-train-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-prebot-tentacle prebot-tentacle prebot-tentacle-lod0-jg prebot-tentacle-idle-ja
|
|
((prebot-tentacle-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-prebot-shockwave prebot-shockwave prebot-shockwave-lod0-jg prebot-shockwave-shockwave-ja
|
|
((prebot-shockwave-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 62)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-prebot-sword prebot 80 prebot-sword-shadow-mg
|
|
((prebot-sword-lod0-jg (meters 999999)))
|
|
:bounds (static-spherem 0 20 0 20)
|
|
:origin-joint-index 4
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-prebot-gun prebot prebot-sword-r-swords-horizontal-L2R-complete-ja prebot-gun-shadow-mg
|
|
((prebot-gun-lod0-jg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 10)
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-prebot prebot prebot-lod0-jg prebot-idle-ja
|
|
((prebot-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -2 0 13.5)
|
|
:shadow prebot-shadow-mg
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
;; definition of type prebot-eco-pillar-launch-spec
|
|
(deftype prebot-eco-pillar-launch-spec (structure)
|
|
((offset vector)
|
|
(height float)
|
|
(style int8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prebot-eco-pillar-launch-spec
|
|
(defmethod inspect ((this prebot-eco-pillar-launch-spec))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'prebot-eco-pillar-launch-spec)
|
|
(format #t "~1Toffset: #<vector @ #x~X>~%" (-> this offset))
|
|
(format #t "~1Theight: ~f~%" (-> this height))
|
|
(format #t "~1Tstyle: ~D~%" (-> this style))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prebot-eco-pillar
|
|
(deftype prebot-eco-pillar (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(vulnerable symbol)
|
|
(hot symbol)
|
|
(start-y float)
|
|
(end-y float)
|
|
(heat-part sparticle-launch-control)
|
|
(cool-part sparticle-launch-control)
|
|
)
|
|
(:state-methods
|
|
wait-to-die
|
|
heat-up
|
|
grow
|
|
cool-down
|
|
wait-to-cool
|
|
idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prebot-eco-pillar
|
|
(defmethod inspect ((this prebot-eco-pillar))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tvulnerable: ~A~%" (-> this vulnerable))
|
|
(format #t "~2Thot: ~A~%" (-> this hot))
|
|
(format #t "~2Tstart-y: ~f~%" (-> this start-y))
|
|
(format #t "~2Tend-y: ~f~%" (-> this end-y))
|
|
(format #t "~2Theat-part: ~A~%" (-> this heat-part))
|
|
(format #t "~2Tcool-part: ~A~%" (-> this cool-part))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type cav-railblocker
|
|
(deftype cav-railblocker (process-focusable)
|
|
((incoming-attack-id uint32)
|
|
(hit-points float)
|
|
(notify-on-die entity)
|
|
(notify-on-die-2 entity)
|
|
(trackable symbol)
|
|
(red-tip-change-time time-frame)
|
|
(alt-red-tip-on symbol)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
fall
|
|
)
|
|
(:methods
|
|
(cav-railblocker-method-30 (_type_ symbol) none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type cav-railblocker
|
|
(defmethod inspect ((this cav-railblocker))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-focusable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tincoming-attack-id: ~D~%" (-> this incoming-attack-id))
|
|
(format #t "~2Thit-points: ~f~%" (-> this hit-points))
|
|
(format #t "~2Tnotify-on-die: ~A~%" (-> this notify-on-die))
|
|
(format #t "~2Tnotify-on-die-2: ~A~%" (-> this notify-on-die-2))
|
|
(format #t "~2Ttrackable: ~A~%" (-> this trackable))
|
|
(format #t "~2Tred-tip-change-time: ~D~%" (-> this red-tip-change-time))
|
|
(format #t "~2Talt-red-tip-on: ~A~%" (-> this alt-red-tip-on))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type cav-minecar
|
|
(deftype cav-minecar (process-drawable)
|
|
()
|
|
(:state-methods
|
|
idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type cav-minecar
|
|
(defmethod inspect ((this cav-minecar))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prebot-sword
|
|
(deftype prebot-sword (process-drawable)
|
|
((parent (pointer prebot) :override)
|
|
(root collide-shape-moving :override)
|
|
(prefix string)
|
|
(blade-scale cam-float-seeker :inline)
|
|
(blade-jm joint-mod)
|
|
(sword-sound sound-id)
|
|
(sword-sound-playing symbol)
|
|
(prev-position vector :inline)
|
|
(use-pos-pitch symbol)
|
|
(old-target-dist float)
|
|
(alternate-sound sound-spec)
|
|
(whoosh-lead float)
|
|
(allow-whoosh symbol)
|
|
(current-volume float)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prebot-sword
|
|
(defmethod inspect ((this prebot-sword))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tprefix: ~A~%" (-> this prefix))
|
|
(format #t "~2Tblade-scale: #<cam-float-seeker @ #x~X>~%" (-> this blade-scale))
|
|
(format #t "~2Tblade-jm: ~A~%" (-> this blade-jm))
|
|
(format #t "~2Tsword-sound: ~D~%" (-> this sword-sound))
|
|
(format #t "~2Tsword-sound-playing: ~A~%" (-> this sword-sound-playing))
|
|
(format #t "~2Tprev-position: #<vector @ #x~X>~%" (-> this prev-position))
|
|
(format #t "~2Tuse-pos-pitch: ~A~%" (-> this use-pos-pitch))
|
|
(format #t "~2Told-target-dist: ~f~%" (-> this old-target-dist))
|
|
(format #t "~2Talternate-sound: ~A~%" (-> this alternate-sound))
|
|
(format #t "~2Twhoosh-lead: ~f~%" (-> this whoosh-lead))
|
|
(format #t "~2Tallow-whoosh: ~A~%" (-> this allow-whoosh))
|
|
(format #t "~2Tcurrent-volume: ~f~%" (-> this current-volume))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prebot-shockwave
|
|
(deftype prebot-shockwave (process-drawable)
|
|
()
|
|
(:state-methods
|
|
idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prebot-shockwave
|
|
(defmethod inspect ((this prebot-shockwave))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prebot-gun
|
|
(deftype prebot-gun (process-drawable)
|
|
((parent (pointer prebot) :override)
|
|
(root collide-shape-moving :override)
|
|
(prefix string)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prebot-gun
|
|
(defmethod inspect ((this prebot-gun))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tprefix: ~A~%" (-> this prefix))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prebot-tentacle
|
|
(deftype prebot-tentacle (process-drawable)
|
|
((parent (pointer prebot) :override)
|
|
(root collide-shape-moving :override)
|
|
(prefix string)
|
|
(aim-jm joint-mod-polar-look-at)
|
|
(half-aim-jm joint-mod-polar-look-at)
|
|
(laser-sound sound-id)
|
|
(laser-sound-playing symbol)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prebot-tentacle
|
|
(defmethod inspect ((this prebot-tentacle))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tprefix: ~A~%" (-> this prefix))
|
|
(format #t "~2Taim-jm: ~A~%" (-> this aim-jm))
|
|
(format #t "~2Thalf-aim-jm: ~A~%" (-> this half-aim-jm))
|
|
(format #t "~2Tlaser-sound: ~D~%" (-> this laser-sound))
|
|
(format #t "~2Tlaser-sound-playing: ~A~%" (-> this laser-sound-playing))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prebot-ammo-tracker
|
|
(deftype prebot-ammo-tracker (structure)
|
|
((handle handle)
|
|
(where vector :inline)
|
|
(birth-next-time symbol)
|
|
(timer time-frame)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prebot-ammo-tracker
|
|
(defmethod inspect ((this prebot-ammo-tracker))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'prebot-ammo-tracker)
|
|
(format #t "~1Thandle: ~D~%" (-> this handle))
|
|
(format #t "~1Twhere: #<vector @ #x~X>~%" (-> this where))
|
|
(format #t "~1Tbirth-next-time: ~A~%" (-> this birth-next-time))
|
|
(format #t "~1Ttimer: ~D~%" (-> this timer))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prebot
|
|
(deftype prebot (process-focusable)
|
|
((critters handle 28)
|
|
(critters-to-launch int8)
|
|
(gun handle)
|
|
(swords handle 2)
|
|
(tentacles handle 5)
|
|
(beam-projectile handle)
|
|
(pillars handle 5)
|
|
(original-position vector :inline)
|
|
(position cam-vector-seeker :inline)
|
|
(stage int8)
|
|
(stage-hit-points float)
|
|
(last-attack-id uint32)
|
|
(neck-angle cam-float-seeker :inline)
|
|
(no-collision-timer time-frame)
|
|
(num-attacks uint8)
|
|
(shoulder-aim-jm joint-mod-polar-look-at)
|
|
(shot-extra-y float)
|
|
(shot-extra-xz float)
|
|
(which-movie int8)
|
|
(light-flash cam-vector-seeker :inline)
|
|
(light-pulse oscillating-vector :inline)
|
|
(light-pulse-flicker delayed-rand-vector :inline)
|
|
(laugh-played symbol)
|
|
(grunt-played symbol)
|
|
(trythis-played symbol)
|
|
(laugh-timer time-frame)
|
|
(blocker handle)
|
|
(flags prebot-flag)
|
|
(pillar-hint-timer time-frame)
|
|
(minecar-hint-timer time-frame)
|
|
(ammo prebot-ammo-tracker 20 :inline)
|
|
)
|
|
(:state-methods
|
|
beaten
|
|
play-fma
|
|
play-hit-movie
|
|
destroy-pillars
|
|
watch-pillars
|
|
create-pillars
|
|
activate-tentacles
|
|
watch-critters
|
|
launch-critters
|
|
sweep-done
|
|
sweep
|
|
slam-done
|
|
slam
|
|
pre-slam
|
|
jump-to-hover
|
|
hidden
|
|
test
|
|
)
|
|
(:methods
|
|
(prebot-method-45 (_type_) none)
|
|
(prebot-method-46 (_type_) none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prebot
|
|
(defmethod inspect ((this prebot))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-focusable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tcritters[28] @ #x~X~%" (-> this critters))
|
|
(format #t "~2Tcritters-to-launch: ~D~%" (-> this critters-to-launch))
|
|
(format #t "~2Tgun: ~D~%" (-> this gun))
|
|
(format #t "~2Tswords[2] @ #x~X~%" (-> this swords))
|
|
(format #t "~2Ttentacles[5] @ #x~X~%" (-> this tentacles))
|
|
(format #t "~2Tbeam-projectile: ~D~%" (-> this beam-projectile))
|
|
(format #t "~2Tpillars[5] @ #x~X~%" (-> this pillars))
|
|
(format #t "~2Toriginal-position: #<vector @ #x~X>~%" (-> this original-position))
|
|
(format #t "~2Tposition: #<cam-vector-seeker @ #x~X>~%" (-> this position))
|
|
(format #t "~2Tstage: ~D~%" (-> this stage))
|
|
(format #t "~2Tstage-hit-points: ~f~%" (-> this stage-hit-points))
|
|
(format #t "~2Tlast-attack-id: ~D~%" (-> this last-attack-id))
|
|
(format #t "~2Tneck-angle: #<cam-float-seeker @ #x~X>~%" (-> this neck-angle))
|
|
(format #t "~2Tno-collision-timer: ~D~%" (-> this no-collision-timer))
|
|
(format #t "~2Tnum-attacks: ~D~%" (-> this num-attacks))
|
|
(format #t "~2Tshoulder-aim-jm: ~A~%" (-> this shoulder-aim-jm))
|
|
(format #t "~2Tshot-extra-y: ~f~%" (-> this shot-extra-y))
|
|
(format #t "~2Tshot-extra-xz: ~f~%" (-> this shot-extra-xz))
|
|
(format #t "~2Twhich-movie: ~D~%" (-> this which-movie))
|
|
(format #t "~2Tlight-flash: #<cam-vector-seeker @ #x~X>~%" (-> this light-flash))
|
|
(format #t "~2Tlight-pulse: #<oscillating-vector @ #x~X>~%" (-> this light-pulse))
|
|
(format #t "~2Tlight-pulse-flicker: #<delayed-rand-vector @ #x~X>~%" (-> this light-pulse-flicker))
|
|
(format #t "~2Tlaugh-played: ~A~%" (-> this laugh-played))
|
|
(format #t "~2Tgrunt-played: ~A~%" (-> this grunt-played))
|
|
(format #t "~2Ttrythis-played: ~A~%" (-> this trythis-played))
|
|
(format #t "~2Tlaugh-timer: ~D~%" (-> this laugh-timer))
|
|
(format #t "~2Tblocker: ~D~%" (-> this blocker))
|
|
(format #t "~2Tflags: ~D~%" (-> this flags))
|
|
(format #t "~2Tpillar-hint-timer: ~D~%" (-> this pillar-hint-timer))
|
|
(format #t "~2Tminecar-hint-timer: ~D~%" (-> this minecar-hint-timer))
|
|
(format #t "~2Tammo[20] @ #x~X~%" (-> this ammo))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for function prebot-eco-pillar-init-by-other
|
|
;; INFO: Used lq/sq
|
|
(defbehavior prebot-eco-pillar-init-by-other prebot-eco-pillar ((arg0 vector) (arg1 prebot-eco-pillar-launch-spec))
|
|
(let ((v1-0 (-> arg1 style)))
|
|
(cond
|
|
((zero? v1-0)
|
|
(let ((s4-0 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-0 reaction) cshape-reaction-default)
|
|
(set! (-> s4-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((v1-7 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> v1-7 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> v1-7 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> v1-7 prim-core action) (collide-action solid))
|
|
(set! (-> v1-7 transform-index) 3)
|
|
(set-vector! (-> v1-7 local-sphere) 1337.7535 -32947.812 542.3104 36864.0)
|
|
(set! (-> s4-0 total-prims) (the-as uint 1))
|
|
(set! (-> s4-0 root-prim) v1-7)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(let ((v1-10 (-> s4-0 root-prim)))
|
|
(set! (-> s4-0 backup-collide-as) (-> v1-10 prim-core collide-as))
|
|
(set! (-> s4-0 backup-collide-with) (-> v1-10 prim-core collide-with))
|
|
)
|
|
(set! (-> self root) s4-0)
|
|
)
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-cav-molten-pil" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
)
|
|
((= v1-0 1)
|
|
(let ((s4-2 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-2 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-2 reaction) cshape-reaction-default)
|
|
(set! (-> s4-2 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((v1-21 (new 'process 'collide-shape-prim-mesh s4-2 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> v1-21 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> v1-21 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> v1-21 prim-core action) (collide-action solid))
|
|
(set! (-> v1-21 transform-index) 3)
|
|
(set-vector! (-> v1-21 local-sphere) 1337.7535 -32947.812 542.3104 36864.0)
|
|
(set! (-> s4-2 total-prims) (the-as uint 1))
|
|
(set! (-> s4-2 root-prim) v1-21)
|
|
)
|
|
(set! (-> s4-2 nav-radius) (* 0.75 (-> s4-2 root-prim local-sphere w)))
|
|
(let ((v1-24 (-> s4-2 root-prim)))
|
|
(set! (-> s4-2 backup-collide-as) (-> v1-24 prim-core collide-as))
|
|
(set! (-> s4-2 backup-collide-with) (-> v1-24 prim-core collide-with))
|
|
)
|
|
(set! (-> self root) s4-2)
|
|
)
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-cav-molten-pil-b" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
)
|
|
((= v1-0 2)
|
|
(let ((s4-4 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-4 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-4 reaction) cshape-reaction-default)
|
|
(set! (-> s4-4 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((v1-35 (new 'process 'collide-shape-prim-mesh s4-4 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> v1-35 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> v1-35 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> v1-35 prim-core action) (collide-action solid))
|
|
(set! (-> v1-35 transform-index) 3)
|
|
(set-vector! (-> v1-35 local-sphere) 1337.7535 -32947.812 542.3104 36864.0)
|
|
(set! (-> s4-4 total-prims) (the-as uint 1))
|
|
(set! (-> s4-4 root-prim) v1-35)
|
|
)
|
|
(set! (-> s4-4 nav-radius) (* 0.75 (-> s4-4 root-prim local-sphere w)))
|
|
(let ((v1-38 (-> s4-4 root-prim)))
|
|
(set! (-> s4-4 backup-collide-as) (-> v1-38 prim-core collide-as))
|
|
(set! (-> s4-4 backup-collide-with) (-> v1-38 prim-core collide-with))
|
|
)
|
|
(set! (-> self root) s4-4)
|
|
)
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-cav-molten-pil-c" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
)
|
|
(else
|
|
(let ((s4-6 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-6 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-6 reaction) cshape-reaction-default)
|
|
(set! (-> s4-6 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((v1-49 (new 'process 'collide-shape-prim-mesh s4-6 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> v1-49 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> v1-49 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> v1-49 prim-core action) (collide-action solid))
|
|
(set! (-> v1-49 transform-index) 3)
|
|
(set-vector! (-> v1-49 local-sphere) 1337.7535 -32947.812 542.3104 36864.0)
|
|
(set! (-> s4-6 total-prims) (the-as uint 1))
|
|
(set! (-> s4-6 root-prim) v1-49)
|
|
)
|
|
(set! (-> s4-6 nav-radius) (* 0.75 (-> s4-6 root-prim local-sphere w)))
|
|
(let ((v1-52 (-> s4-6 root-prim)))
|
|
(set! (-> s4-6 backup-collide-as) (-> v1-52 prim-core collide-as))
|
|
(set! (-> s4-6 backup-collide-with) (-> v1-52 prim-core collide-with))
|
|
)
|
|
(set! (-> self root) s4-6)
|
|
)
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-cav-molten-pil-d" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self root event-self) 'touched)
|
|
(let ((s4-8 (new 'stack-no-clear 'vector)))
|
|
(let* ((s3-4 sincos!)
|
|
(s2-0 s4-8)
|
|
(f30-0 -16384.0)
|
|
(f28-0 32768.0)
|
|
(v1-61 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-62 (the-as number (logior #x3f800000 v1-61)))
|
|
)
|
|
(s3-4 s2-0 (+ f30-0 (* f28-0 (+ -1.0 (the-as float v1-62)))))
|
|
)
|
|
(quaternion-set! (-> self root quat) 0.0 (-> s4-8 x) 0.0 (-> s4-8 y))
|
|
)
|
|
(set! (-> self root trans quad) (-> arg0 quad))
|
|
(set! (-> self start-y) (-> self root trans y))
|
|
(set! (-> self end-y) (+ (-> arg0 y) (-> arg1 height)))
|
|
(set! (-> self vulnerable) #f)
|
|
(set! (-> self hot) #f)
|
|
(set! (-> self heat-part) (create-launch-control (-> *part-group-id-table* 1336) self))
|
|
(set! (-> self part) (create-launch-control (-> *part-group-id-table* 1337) self))
|
|
(set! (-> self cool-part) (create-launch-control (-> *part-group-id-table* 1338) self))
|
|
(go-virtual heat-up)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(when (or (zero? *prebot-sword-color-curve*) (!= loading-level global))
|
|
(set! *prebot-sword-color-curve* (new 'loading-level 'curve-color-piecewise))
|
|
(allocate! *prebot-sword-color-curve* 2 'loading-level #t)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 0 first) 0.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 0 second x) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 0 second y) 0.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 0 second z) 0.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 0 second w) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 1 first) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 1 second x) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 1 second y) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 1 second z) 0.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-curve* pts data 1 second w) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(when (or (zero? *prebot-sword-white-red-curve*) (!= loading-level global))
|
|
(set! *prebot-sword-white-red-curve* (new 'loading-level 'curve-color-piecewise))
|
|
(allocate! *prebot-sword-white-red-curve* 3 'loading-level #t)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 0 first) 0.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 0 second x) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 0 second y) 0.3125)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 0 second z) 0.3125)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 0 second w) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 1 first) 0.5)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 1 second x) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 1 second y) 0.078125)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 1 second z) 0.078125)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 1 second w) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 2 first) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 2 second x) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 2 second y) 0.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 2 second z) 0.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-white-red-curve* pts data 2 second w) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *prebot-sword-width-curve* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 1.0 :y 1.0 :z 2.0 :w 3.0)
|
|
:one-over-x-deltas (new 'static 'vector :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if (or (zero? *prebot-sword-color-array*) (!= loading-level global))
|
|
(set! *prebot-sword-color-array* (new 'loading-level 'light-trail-composition))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* color-mode) (the-as uint 0))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* color-repeat-dist) 4096.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* alpha-1-mode) (the-as uint 0))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* alpha-2-mode) (the-as uint 6))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* base-alpha) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* alpha-repeat-dist) 4096.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* width-mode) (the-as uint 0))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* base-width) 1.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* width-repeat-dist) 4096.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* uv-mode) (the-as uint 3))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* uv-repeat-dist) 40960.0)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* lie-mode) (lie-mode appearance0))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* max-age) (seconds 0.3))
|
|
|
|
;; failed to figure out what this is:
|
|
(if #f
|
|
(set! (-> *prebot-sword-color-array* tex-id)
|
|
(lookup-texture-id-by-name (the-as string #f) (the-as string #f))
|
|
)
|
|
(set! (-> *prebot-sword-color-array* tex-id) (new 'static 'texture-id :index #x3 :page #x1))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* width-curve) (the-as curve2d-piecewise *prebot-sword-width-curve*))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* color-curve) *prebot-sword-white-red-curve*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* alpha-curve-1) (the-as curve2d-piecewise *curve-linear-down*))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* alpha-curve-2) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* zbuffer?) #t)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* lie-vector quad) (-> *up-vector* quad))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* use-tape-mode?) #t)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* blend-mode) (the-as uint 1))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *prebot-sword-color-array* frame-stagger) (the-as uint 1))
|
|
|
|
;; definition for function prebot-sword-init-by-other
|
|
;; INFO: Used lq/sq
|
|
(defbehavior prebot-sword-init-by-other prebot-sword ((arg0 string) (arg1 vector) (arg2 basic) (arg3 sound-spec))
|
|
(let ((s2-0 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s2-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s2-0 reaction) cshape-reaction-default)
|
|
(set! (-> s2-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((v1-6 (new 'process 'collide-shape-prim-mesh s2-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> v1-6 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-6 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> v1-6 prim-core action) (collide-action solid))
|
|
(set! (-> v1-6 transform-index) 4)
|
|
(set-vector! (-> v1-6 local-sphere) 0.0 45056.0 0.0 49152.0)
|
|
(set! (-> s2-0 total-prims) (the-as uint 1))
|
|
(set! (-> s2-0 root-prim) v1-6)
|
|
)
|
|
(set! (-> s2-0 nav-radius) (* 0.75 (-> s2-0 root-prim local-sphere w)))
|
|
(let ((v1-9 (-> s2-0 root-prim)))
|
|
(set! (-> s2-0 backup-collide-as) (-> v1-9 prim-core collide-as))
|
|
(set! (-> s2-0 backup-collide-with) (-> v1-9 prim-core collide-with))
|
|
)
|
|
(set! (-> s2-0 event-self) 'touched)
|
|
(set! (-> self root) s2-0)
|
|
)
|
|
(set! (-> self root pause-adjust-distance) 409600.0)
|
|
(set! (-> self root trans quad) (-> arg1 quad))
|
|
(set! (-> self prev-position quad) (-> arg1 quad))
|
|
(set! (-> self old-target-dist) 204800.0)
|
|
(set! (-> self prefix) arg0)
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-prebot-sword" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
(let ((v1-21 (-> self parent)))
|
|
(set! (-> self draw light-index) (-> (the-as prebot (if v1-21
|
|
(the-as prebot (-> v1-21 0 self))
|
|
)
|
|
)
|
|
draw
|
|
light-index
|
|
)
|
|
)
|
|
)
|
|
(logior! (-> self mask) (process-mask enemy))
|
|
(let ((v1-28 (-> self node-list data)))
|
|
(set! (-> v1-28 0 param0) (the-as (function cspace transformq none) cspace<-parent-joint!))
|
|
(set! (-> v1-28 0 param1) (the-as basic (-> self parent)))
|
|
(set! (-> v1-28 0 param2) arg2)
|
|
)
|
|
(set! (-> self event-hook) (-> (method-of-object self idle) event))
|
|
(let ((s5-1 (new 'stack-no-clear 'weapon-trail-tracker-spawn-params)))
|
|
(set! (-> s5-1 tracked-obj) (process->handle self))
|
|
(set! (-> s5-1 max-num-crumbs) 200)
|
|
(set! (-> s5-1 joint0) 3)
|
|
(set! (-> s5-1 joint1) 5)
|
|
(set! (-> s5-1 appearance) *prebot-sword-color-array*)
|
|
(set! (-> *prebot-sword-color-array* tex-id) (lookup-texture-id-by-name "sword-trail-low" (the-as string #f)))
|
|
(let* ((v1-43 (estimate-light-trail-mem-usage
|
|
(the-as uint (-> s5-1 max-num-crumbs))
|
|
(the-as uint (= (-> s5-1 appearance lie-mode) (lie-mode use-two-strips)))
|
|
)
|
|
)
|
|
(s4-2 (get-process *default-dead-pool* weapon-trail-tracker (+ v1-43 8192) 1))
|
|
(s5-2 (-> (when s4-2
|
|
(let ((t9-8 (method-of-type process activate)))
|
|
(t9-8 s4-2 (ppointer->process (-> self parent)) "light-trail" (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s4-2 weapon-trail-tracker-init-by-other s5-1)
|
|
(-> s4-2 ppointer)
|
|
)
|
|
0
|
|
)
|
|
)
|
|
(s3-2 (-> (level-get *level* 'mined) draw-index))
|
|
(s4-3 (vu1-bucket-map s3-2 4 (merc-mode mercneric2)))
|
|
(v1-50 (vu1-bucket-map s3-2 4 (merc-mode mm5)))
|
|
)
|
|
(set! (-> (the-as weapon-trail-tracker s5-2) trail strip bucket) s4-3)
|
|
(set! (-> (the-as weapon-trail-tracker s5-2) trail strip sink) (the-as uint v1-50))
|
|
)
|
|
)
|
|
(init (-> self blade-scale) 1.0 0.03 0.2 0.9)
|
|
(set! (-> self blade-jm) (new 'process 'joint-mod (joint-mod-mode joint-set*) self 4))
|
|
(set! (-> self blade-jm track-mode) (track-mode no-trans no-rotate))
|
|
(set-vector! (-> self blade-jm scale) 1.0 1.0 1.0 1.0)
|
|
(set! (-> self sword-sound) (new-sound-id))
|
|
(set! (-> self sword-sound-playing) #f)
|
|
(set! (-> self use-pos-pitch) #f)
|
|
(set! (-> self alternate-sound) arg3)
|
|
(set! (-> self allow-whoosh) #f)
|
|
(set! (-> self whoosh-lead) 20480.0)
|
|
(set! (-> self current-volume) 1.0)
|
|
(go-virtual idle)
|
|
)
|
|
|
|
;; definition for function prebot-shockwave-init-by-other
|
|
;; INFO: Used lq/sq
|
|
(defbehavior prebot-shockwave-init-by-other prebot-shockwave ((arg0 vector) (arg1 quaternion))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-0 reaction) cshape-reaction-default)
|
|
(set! (-> s4-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((v1-6 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
|
|
(set! (-> v1-6 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-6 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> v1-6 prim-core action) (collide-action solid))
|
|
(set! (-> v1-6 transform-index) 3)
|
|
(set-vector! (-> v1-6 local-sphere) 0.0 0.0 0.0 4096.0)
|
|
(set! (-> s4-0 total-prims) (the-as uint 1))
|
|
(set! (-> s4-0 root-prim) v1-6)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(let ((v1-9 (-> s4-0 root-prim)))
|
|
(set! (-> s4-0 backup-collide-as) (-> v1-9 prim-core collide-as))
|
|
(set! (-> s4-0 backup-collide-with) (-> v1-9 prim-core collide-with))
|
|
)
|
|
(set! (-> s4-0 event-self) 'touched)
|
|
(set! (-> self root) s4-0)
|
|
)
|
|
(set! (-> self root pause-adjust-distance) 409600.0)
|
|
(set! (-> self root trans quad) (-> arg0 quad))
|
|
(quaternion-copy! (-> self root quat) arg1)
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-prebot-shockwave" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
(set! (-> self event-hook) (-> (method-of-object self idle) event))
|
|
(go-virtual idle)
|
|
)
|
|
|
|
;; definition for function prebot-gun-init-by-other
|
|
;; INFO: Used lq/sq
|
|
(defbehavior prebot-gun-init-by-other prebot-gun ((arg0 string) (arg1 vector))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-0 reaction) cshape-reaction-default)
|
|
(set! (-> s4-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 1) 0)))
|
|
(set! (-> s4-0 total-prims) (the-as uint 2))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> s3-0 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> s3-0 prim-core action) (collide-action solid))
|
|
(set! (-> s3-0 transform-index) 3)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 -32768.0 0.0 49152.0)
|
|
(set! (-> s4-0 root-prim) s3-0)
|
|
)
|
|
(let ((v1-13 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
|
|
(set! (-> v1-13 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-13 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> v1-13 prim-core action) (collide-action solid))
|
|
(set! (-> v1-13 transform-index) 3)
|
|
(set-vector! (-> v1-13 local-sphere) 0.0 0.0 0.0 4096.0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(let ((v1-16 (-> s4-0 root-prim)))
|
|
(set! (-> s4-0 backup-collide-as) (-> v1-16 prim-core collide-as))
|
|
(set! (-> s4-0 backup-collide-with) (-> v1-16 prim-core collide-with))
|
|
)
|
|
(set! (-> s4-0 event-self) 'touched)
|
|
(set! (-> self root) s4-0)
|
|
)
|
|
(set! (-> self root pause-adjust-distance) 409600.0)
|
|
(set! (-> self root trans quad) (-> arg1 quad))
|
|
(set! (-> self prefix) arg0)
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-prebot-gun" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
(let ((v1-26 (-> self parent)))
|
|
(set! (-> self draw light-index) (-> (the-as prebot (if v1-26
|
|
(the-as prebot (-> v1-26 0 self))
|
|
)
|
|
)
|
|
draw
|
|
light-index
|
|
)
|
|
)
|
|
)
|
|
(logior! (-> self mask) (process-mask enemy))
|
|
(let ((v1-33 (-> self node-list data)))
|
|
(set! (-> v1-33 0 param0) (the-as (function cspace transformq none) cspace<-parent-joint!))
|
|
(set! (-> v1-33 0 param1) (the-as basic (-> self parent)))
|
|
(set! (-> v1-33 0 param2) (the-as basic 44))
|
|
)
|
|
(set! (-> self event-hook) (-> (method-of-object self idle) event))
|
|
(go-virtual idle)
|
|
)
|
|
|
|
;; definition for function prebot-tentacle-init-by-other
|
|
;; INFO: Used lq/sq
|
|
(defbehavior prebot-tentacle-init-by-other prebot-tentacle ((arg0 string) (arg1 vector) (arg2 int))
|
|
(let ((s3-0 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s3-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s3-0 reaction) cshape-reaction-default)
|
|
(set! (-> s3-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-group s3-0 (the-as uint 1) 0)))
|
|
(set! (-> s3-0 total-prims) (the-as uint 2))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> s2-0 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> s2-0 prim-core action) (collide-action solid))
|
|
(set! (-> s2-0 transform-index) 4)
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 -32768.0 0.0 49152.0)
|
|
(set! (-> s3-0 root-prim) s2-0)
|
|
)
|
|
(let ((v1-13 (new 'process 'collide-shape-prim-sphere s3-0 (the-as uint 0))))
|
|
(set! (-> v1-13 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-13 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
|
|
(set! (-> v1-13 prim-core action) (collide-action solid))
|
|
(set! (-> v1-13 transform-index) 4)
|
|
(set-vector! (-> v1-13 local-sphere) 0.0 0.0 0.0 4096.0)
|
|
)
|
|
(set! (-> s3-0 nav-radius) (* 0.75 (-> s3-0 root-prim local-sphere w)))
|
|
(let ((v1-16 (-> s3-0 root-prim)))
|
|
(set! (-> s3-0 backup-collide-as) (-> v1-16 prim-core collide-as))
|
|
(set! (-> s3-0 backup-collide-with) (-> v1-16 prim-core collide-with))
|
|
)
|
|
(set! (-> s3-0 event-self) 'touched)
|
|
(set! (-> self root) s3-0)
|
|
)
|
|
(set! (-> self root pause-adjust-distance) 409600.0)
|
|
(set! (-> self root trans quad) (-> arg1 quad))
|
|
(set! (-> self prefix) arg0)
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-prebot-tentacle" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
(let ((v1-26 (-> self parent)))
|
|
(set! (-> self draw light-index) (-> (the-as prebot (if v1-26
|
|
(the-as prebot (-> v1-26 0 self))
|
|
)
|
|
)
|
|
draw
|
|
light-index
|
|
)
|
|
)
|
|
)
|
|
(logior! (-> self mask) (process-mask enemy))
|
|
(let ((v1-33 (-> self node-list data)))
|
|
(set! (-> v1-33 0 param0) (the-as (function cspace transformq none) cspace<-parent-joint!))
|
|
(set! (-> v1-33 0 param1) (the-as basic (-> self parent)))
|
|
(set! (-> v1-33 0 param2) (the-as basic arg2))
|
|
)
|
|
(set! (-> self aim-jm) (new 'process 'joint-mod-polar-look-at))
|
|
(initialize (-> self aim-jm) self 13)
|
|
(set! (-> self aim-jm ear) 2)
|
|
(set! (-> self aim-jm up) 0)
|
|
(set! (-> self aim-jm nose) 1)
|
|
(set! (-> self half-aim-jm) (new 'process 'joint-mod-polar-look-at))
|
|
(initialize (-> self half-aim-jm) self 12)
|
|
(set! (-> self half-aim-jm ear) 2)
|
|
(set! (-> self half-aim-jm up) 0)
|
|
(set! (-> self half-aim-jm nose) 1)
|
|
(set! (-> self laser-sound) (new-sound-id))
|
|
(set! (-> self laser-sound-playing) #f)
|
|
(set! (-> self event-hook) (-> (method-of-object self idle) event))
|
|
(go-virtual idle)
|
|
)
|
|
|
|
;; definition for method 11 of type prebot
|
|
;; INFO: Used lq/sq
|
|
(defmethod init-from-entity! ((this prebot) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-0 reaction) cshape-reaction-default)
|
|
(set! (-> s4-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 18) 0)))
|
|
(set! (-> s4-0 total-prims) (the-as uint 19))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> s3-0 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> s3-0 prim-core action) (collide-action solid))
|
|
(set! (-> s3-0 transform-index) 8)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 -20480.0 0.0 61440.0)
|
|
(set! (-> s4-0 root-prim) s3-0)
|
|
)
|
|
(let ((v1-13 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> v1-13 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-13 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-13 prim-core action) (collide-action solid))
|
|
(set! (-> v1-13 transform-index) 10)
|
|
(set-vector! (-> v1-13 local-sphere) 0.0 2957.7217 3380.8384 20891.238)
|
|
)
|
|
(let ((v1-15 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 0))))
|
|
(set! (-> v1-15 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-15 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-15 prim-core action) (collide-action solid))
|
|
(set! (-> v1-15 transform-index) 15)
|
|
(set-vector! (-> v1-15 local-sphere) 0.0 7224.115 0.0 16506.88)
|
|
)
|
|
(let ((v1-17 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
|
|
(set! (-> v1-17 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-17 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-17 prim-core action) (collide-action solid))
|
|
(set! (-> v1-17 transform-index) 13)
|
|
(set-vector! (-> v1-17 local-sphere) 423.5264 3772.0063 0.0 10656.973)
|
|
)
|
|
(let ((v1-19 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 0))))
|
|
(set! (-> v1-19 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-19 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-19 prim-core action) (collide-action solid))
|
|
(set! (-> v1-19 transform-index) 12)
|
|
(set-vector! (-> v1-19 local-sphere) -0.4096 0.0 0.0 11988.992)
|
|
)
|
|
(let ((v1-21 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 4) (the-as uint 0))))
|
|
(set! (-> v1-21 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-21 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-21 prim-core action) (collide-action solid))
|
|
(set! (-> v1-21 transform-index) 31)
|
|
(set-vector! (-> v1-21 local-sphere) 0.0 7223.7056 0.0 16506.88)
|
|
)
|
|
(let ((v1-23 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 5) (the-as uint 0))))
|
|
(set! (-> v1-23 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-23 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-23 prim-core action) (collide-action solid))
|
|
(set! (-> v1-23 transform-index) 29)
|
|
(set-vector! (-> v1-23 local-sphere) -423.5264 3772.0063 0.0 10656.973)
|
|
)
|
|
(let ((v1-25 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 6) (the-as uint 0))))
|
|
(set! (-> v1-25 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-25 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-25 prim-core action) (collide-action solid))
|
|
(set! (-> v1-25 transform-index) 28)
|
|
(set-vector! (-> v1-25 local-sphere) 0.0 0.0 0.0 11988.992)
|
|
)
|
|
(let ((v1-27 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 7) (the-as uint 0))))
|
|
(set! (-> v1-27 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-27 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-27 prim-core action) (collide-action solid))
|
|
(set! (-> v1-27 transform-index) 8)
|
|
(set-vector! (-> v1-27 local-sphere) 0.0 1914.0608 1339.392 24913.51)
|
|
)
|
|
(let ((v1-29 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 8) (the-as uint 0))))
|
|
(set! (-> v1-29 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-29 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-29 prim-core action) (collide-action solid))
|
|
(set! (-> v1-29 transform-index) 5)
|
|
(set-vector! (-> v1-29 local-sphere) 0.0 0.0 0.0 13063.373)
|
|
)
|
|
(let ((v1-31 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 9) (the-as uint 0))))
|
|
(set! (-> v1-31 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-31 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-31 prim-core action) (collide-action solid))
|
|
(set! (-> v1-31 transform-index) 56)
|
|
(set-vector! (-> v1-31 local-sphere) 791.3472 14204.108 -1401.6512 12302.336)
|
|
)
|
|
(let ((v1-33 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 10) (the-as uint 0))))
|
|
(set! (-> v1-33 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-33 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-33 prim-core action) (collide-action solid))
|
|
(set! (-> v1-33 transform-index) 57)
|
|
(set-vector! (-> v1-33 local-sphere) 120.0128 13062.144 1252.1472 11315.609)
|
|
)
|
|
(let ((v1-35 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 11) (the-as uint 0))))
|
|
(set! (-> v1-35 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-35 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-35 prim-core action) (collide-action solid))
|
|
(set! (-> v1-35 transform-index) 54)
|
|
(set-vector! (-> v1-35 local-sphere) 557.056 12469.043 1004.3392 23741.234)
|
|
)
|
|
(let ((v1-37 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 12) (the-as uint 0))))
|
|
(set! (-> v1-37 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-37 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-37 prim-core action) (collide-action solid))
|
|
(set! (-> v1-37 transform-index) 52)
|
|
(set-vector! (-> v1-37 local-sphere) 1070.2848 7083.6226 264.6016 14952.857)
|
|
)
|
|
(let ((v1-39 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 13) (the-as uint 0))))
|
|
(set! (-> v1-39 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-39 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-39 prim-core action) (collide-action solid))
|
|
(set! (-> v1-39 transform-index) 63)
|
|
(set-vector! (-> v1-39 local-sphere) -790.528 14204.519 -1401.6512 12301.927)
|
|
)
|
|
(let ((v1-41 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 14) (the-as uint 0))))
|
|
(set! (-> v1-41 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-41 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-41 prim-core action) (collide-action solid))
|
|
(set! (-> v1-41 transform-index) 64)
|
|
(set-vector! (-> v1-41 local-sphere) -120.4224 13062.963 1252.5568 11315.2)
|
|
)
|
|
(let ((v1-43 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 15) (the-as uint 0))))
|
|
(set! (-> v1-43 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-43 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-43 prim-core action) (collide-action solid))
|
|
(set! (-> v1-43 transform-index) 61)
|
|
(set-vector! (-> v1-43 local-sphere) -556.6464 12469.453 1004.3392 23741.645)
|
|
)
|
|
(let ((v1-45 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 16) (the-as uint 0))))
|
|
(set! (-> v1-45 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-45 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-45 prim-core action) (collide-action solid))
|
|
(set! (-> v1-45 transform-index) 59)
|
|
(set-vector! (-> v1-45 local-sphere) -1069.8752 7083.6226 264.192 14952.448)
|
|
)
|
|
(let ((v1-47 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 17) (the-as uint 0))))
|
|
(set! (-> v1-47 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-47 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list projectile))
|
|
(set! (-> v1-47 prim-core action) (collide-action solid))
|
|
(set! (-> v1-47 transform-index) 50)
|
|
(set-vector! (-> v1-47 local-sphere) 0.0 -3032.2688 430.08 11688.755)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(let ((v1-50 (-> s4-0 root-prim)))
|
|
(set! (-> s4-0 backup-collide-as) (-> v1-50 prim-core collide-as))
|
|
(set! (-> s4-0 backup-collide-with) (-> v1-50 prim-core collide-with))
|
|
)
|
|
(set! (-> s4-0 event-self) 'touched)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(set! (-> this root pause-adjust-distance) 409600.0)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton
|
|
this
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-prebot" (the-as (pointer level) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
(logior! (-> this mask) (process-mask enemy))
|
|
(set! (-> this original-position quad) (-> this root trans quad))
|
|
(init (-> this position) (-> this original-position) 0.004096 2048.0 0.125)
|
|
(set! (-> this draw light-index) (the-as uint 10))
|
|
(dotimes (v1-64 28)
|
|
(set! (-> this critters v1-64) (the-as handle #f))
|
|
)
|
|
(set! (-> this gun) (the-as handle #f))
|
|
(dotimes (v1-67 2)
|
|
(set! (-> this swords v1-67) (the-as handle #f))
|
|
)
|
|
(dotimes (v1-70 5)
|
|
(set! (-> this tentacles v1-70) (the-as handle #f))
|
|
)
|
|
(set! (-> this beam-projectile) (the-as handle #f))
|
|
(dotimes (v1-73 5)
|
|
(set! (-> this pillars v1-73) (the-as handle #f))
|
|
)
|
|
(set! (-> this last-attack-id) (the-as uint 0))
|
|
(let ((a0-133 (nav-mesh-from-res-tag (-> this entity) 'nav-mesh-actor 0)))
|
|
(if a0-133
|
|
(change-to a0-133 this)
|
|
)
|
|
)
|
|
(init (-> this neck-angle) 0.0 0.01 0.1 0.9)
|
|
(let ((a0-135 (-> this node-list data 9)))
|
|
(set! (-> a0-135 param0) prebot-neck-callback)
|
|
)
|
|
(prebot-method-45 this)
|
|
(set! (-> this shoulder-aim-jm) (new 'process 'joint-mod-polar-look-at))
|
|
(initialize (-> this shoulder-aim-jm) this 28)
|
|
(set! (-> this shoulder-aim-jm ear) 2)
|
|
(set! (-> this shoulder-aim-jm up) 0)
|
|
(set! (-> this shoulder-aim-jm nose) 1)
|
|
(let ((v1-92 (-> this root root-prim)))
|
|
(set! (-> this root backup-collide-as) (-> v1-92 prim-core collide-as))
|
|
(set! (-> this root backup-collide-with) (-> v1-92 prim-core collide-with))
|
|
)
|
|
(set! (-> this no-collision-timer) 0)
|
|
(init (-> this light-flash) (the-as vector #f) 0.01 0.1 0.9)
|
|
(set-params! (-> this light-pulse) (the-as vector #f) 0.01 0.1 0.9)
|
|
(prebot-light-pulse-off)
|
|
(set-params! (-> this light-pulse-flicker) 15 120 0.1 0.1)
|
|
(set! (-> this laugh-timer) 0)
|
|
(set! (-> this blocker) (the-as handle #f))
|
|
(let ((v1-102 (-> this entity extra perm)))
|
|
(logior! (-> v1-102 status) (entity-perm-status bit-5))
|
|
(set! (-> this flags) (the-as prebot-flag (-> v1-102 user-object 0)))
|
|
)
|
|
(dotimes (v1-104 20)
|
|
(set! (-> this ammo v1-104 handle) (the-as handle #f))
|
|
(set! (-> this ammo v1-104 birth-next-time) #f)
|
|
)
|
|
(prebot-go-next-stage)
|
|
)
|