mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
36f1592b90
Also adds: - BLERC - Minimap (with missing texture for the map, sprites work) - Eco Mine files - Precursor robot boss files - Sewer files - Vehicle files
1098 lines
46 KiB
Common Lisp
1098 lines
46 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: kg-hopper.gc
|
|
;; name in dgo: kg-hopper
|
|
;; dgos: SEA
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype kg-hopper (nav-enemy)
|
|
((speed-y float)
|
|
(accel-y float)
|
|
(next-jump-time int32)
|
|
(path-intro path-control)
|
|
(can-go-knocked? symbol)
|
|
(land-anim-index int32)
|
|
(step-num int32)
|
|
(best-point vector :inline)
|
|
(best-score float)
|
|
(origin vector :inline)
|
|
(direction vector :inline)
|
|
(jump-dist float)
|
|
(side float)
|
|
(jump-start-anim uint32)
|
|
(jump-air-anim uint32)
|
|
(jump-land-anim uint32)
|
|
(jump-height-min float)
|
|
(jump-anim-start-frame float)
|
|
(minimap connection-minimap)
|
|
)
|
|
(:state-methods
|
|
explode
|
|
)
|
|
(:methods
|
|
(kg-hopper-method-191 (_type_) symbol)
|
|
(kg-hopper-method-192 () none)
|
|
(get-skel (_type_) art-group)
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup skel-kg-hopper kg-hopper kg-hopper-lod0-jg kg-hopper-idle-ja
|
|
((kg-hopper-lod0-mg (meters 20)) (kg-hopper-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 1 0 3.5)
|
|
:shadow kg-hopper-shadow-mg
|
|
)
|
|
|
|
(define *kg-hopper-debris-params*
|
|
(new 'static 'debris-static-params
|
|
:joints (new 'static 'boxed-array :type debris-static-joint-params
|
|
(new 'static 'debris-static-joint-params :parent-joint-index 4 :group "skel-kg-debris-a")
|
|
(new 'static 'debris-static-joint-params :parent-joint-index 5 :group "skel-kg-debris-b")
|
|
(new 'static 'debris-static-joint-params :parent-joint-index 6 :group "skel-kg-debris-c")
|
|
(new 'static 'debris-static-joint-params :parent-joint-index 7 :group "skel-kg-debris-d")
|
|
(new 'static 'debris-static-joint-params :parent-joint-index 8 :group "skel-kg-debris-a")
|
|
(new 'static 'debris-static-joint-params :parent-joint-index 9 :group "skel-kg-debris-b")
|
|
(new 'static 'debris-static-joint-params :parent-joint-index 10 :group "skel-kg-debris-c")
|
|
(new 'static 'debris-static-joint-params :parent-joint-index 11 :group "skel-kg-debris-d")
|
|
)
|
|
:collide-spec (collide-spec backgnd)
|
|
:sound-hit (static-sound-name "kg-debris")
|
|
)
|
|
)
|
|
|
|
(deftype kg-hopper-anim-info (structure)
|
|
((hit-anim-index int32)
|
|
(land-anim-index int32)
|
|
)
|
|
:pack-me
|
|
)
|
|
|
|
|
|
(deftype kg-hopper-global-info (basic)
|
|
((prev-yellow-hit int8)
|
|
(prev-blue-hit int8)
|
|
(yellow-hit-anim kg-hopper-anim-info 3 :inline)
|
|
(blue-hit-anim kg-hopper-anim-info 3 :inline)
|
|
)
|
|
)
|
|
|
|
|
|
(define *kg-hopper-global-info* (new 'static 'kg-hopper-global-info
|
|
:yellow-hit-anim (new 'static 'inline-array kg-hopper-anim-info 3
|
|
(new 'static 'kg-hopper-anim-info :hit-anim-index 25 :land-anim-index 26)
|
|
(new 'static 'kg-hopper-anim-info :hit-anim-index 27 :land-anim-index 28)
|
|
(new 'static 'kg-hopper-anim-info :hit-anim-index 29 :land-anim-index 30)
|
|
)
|
|
:blue-hit-anim (new 'static 'inline-array kg-hopper-anim-info 3
|
|
(new 'static 'kg-hopper-anim-info :hit-anim-index 21 :land-anim-index 24)
|
|
(new 'static 'kg-hopper-anim-info :hit-anim-index 22 :land-anim-index 24)
|
|
(new 'static 'kg-hopper-anim-info :hit-anim-index 23 :land-anim-index 24)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod knocked-anim ((this kg-hopper) (arg0 enemy-knocked-info))
|
|
(case (-> this incoming knocked-type)
|
|
(((knocked-type blue-shot))
|
|
(let* ((a2-0 (ash 1 (-> *kg-hopper-global-info* prev-blue-hit)))
|
|
(v1-3 (enemy-method-131 this 3 a2-0))
|
|
(a1-5 (-> this draw art-group data (-> *kg-hopper-global-info* blue-hit-anim v1-3 hit-anim-index)))
|
|
)
|
|
(set! (-> *kg-hopper-global-info* prev-blue-hit) v1-3)
|
|
(let ((a0-12 (-> this skel root-channel 0)))
|
|
(set! (-> a0-12 frame-group) (the-as art-joint-anim a1-5))
|
|
(set! (-> a0-12 param 0) (the float (+ (-> (the-as art-joint-anim a1-5) frames num-frames) -1)))
|
|
(set! (-> a0-12 param 1) 1.0)
|
|
(set! (-> a0-12 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-12 (the-as art-joint-anim a1-5) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(let* ((a2-2 (ash 1 (-> *kg-hopper-global-info* prev-yellow-hit)))
|
|
(v1-13 (enemy-method-131 this 3 a2-2))
|
|
(a1-11 (-> this draw art-group data (-> *kg-hopper-global-info* yellow-hit-anim v1-13 hit-anim-index)))
|
|
)
|
|
(set! (-> this land-anim-index) (-> *kg-hopper-global-info* yellow-hit-anim v1-13 land-anim-index))
|
|
(set! (-> *kg-hopper-global-info* prev-yellow-hit) v1-13)
|
|
(let ((a0-27 (-> this skel root-channel 0)))
|
|
(set! (-> a0-27 frame-group) (the-as art-joint-anim a1-11))
|
|
(set! (-> a0-27 param 0) (the float (+ (-> (the-as art-joint-anim a1-11) frames num-frames) -1)))
|
|
(set! (-> a0-27 param 1) (-> arg0 anim-speed))
|
|
(set! (-> a0-27 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-27 (the-as art-joint-anim a1-11) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
|
|
(defmethod knocked-land-anim ((this kg-hopper) (arg0 enemy-knocked-info))
|
|
(cond
|
|
((= (-> this incoming knocked-type) (knocked-type blue-shot))
|
|
#f
|
|
)
|
|
(else
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(let ((a0-3 (-> this skel root-channel 0)))
|
|
(set! (-> a0-3 frame-group) (the-as art-joint-anim (-> this draw art-group data (-> this land-anim-index))))
|
|
(set! (-> a0-3 param 0)
|
|
(the float
|
|
(+ (-> (the-as art-joint-anim (-> this draw art-group data (-> this land-anim-index))) frames num-frames) -1)
|
|
)
|
|
)
|
|
(set! (-> a0-3 param 1) (-> arg0 anim-speed))
|
|
(set! (-> a0-3 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-3
|
|
(the-as art-joint-anim (-> this draw art-group data (-> this land-anim-index)))
|
|
num-func-seek!
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
|
|
(define *kg-hopper-nav-enemy-info* (new 'static 'nav-enemy-info
|
|
:use-die-falling #t
|
|
:use-victory #f
|
|
:use-jump-blocked #f
|
|
:debug-draw-neck #f
|
|
:jump-debug-draw #f
|
|
:move-to-ground #t
|
|
:hover-if-no-ground #f
|
|
:idle-anim-script (new 'static 'inline-array idle-control-frame 5
|
|
(new 'static 'idle-control-frame
|
|
:command (idle-control-cmd play)
|
|
:anim #x4
|
|
:param0 1
|
|
:param1 5
|
|
:param2 '((new 'static 'bfloat :data 1.0) (new 'static 'bfloat :data 1.0))
|
|
)
|
|
(new 'static 'idle-control-frame
|
|
:command (idle-control-cmd play)
|
|
:anim #x5
|
|
:param0 1
|
|
:param1 1
|
|
:param2 '((new 'static 'bfloat :data 1.0) (new 'static 'bfloat :data 1.0))
|
|
)
|
|
(new 'static 'idle-control-frame
|
|
:command (idle-control-cmd play)
|
|
:anim #x4
|
|
:param0 1
|
|
:param1 5
|
|
:param2 '((new 'static 'bfloat :data 1.0) (new 'static 'bfloat :data 1.0))
|
|
)
|
|
(new 'static 'idle-control-frame
|
|
:command (idle-control-cmd play)
|
|
:anim #x6
|
|
:param0 1
|
|
:param1 1
|
|
:param2 '((new 'static 'bfloat :data 1.0) (new 'static 'bfloat :data 1.0))
|
|
)
|
|
(new 'static 'idle-control-frame)
|
|
)
|
|
:idle-anim 4
|
|
:notice-anim 7
|
|
:hostile-anim 4
|
|
:hit-anim 4
|
|
:knocked-anim 25
|
|
:knocked-land-anim 26
|
|
:die-anim 19
|
|
:die-falling-anim 20
|
|
:victory-anim -1
|
|
:jump-wind-up-anim -1
|
|
:jump-in-air-anim -1
|
|
:jump-land-anim -1
|
|
:neck-joint 5
|
|
:look-at-joint 5
|
|
:bullseye-joint 4
|
|
:sound-hit (static-sound-name "kg-impact")
|
|
:sound-die (static-sound-name "kg-explo")
|
|
:notice-distance (meters 40)
|
|
:notice-distance-delta (meters 40)
|
|
:proximity-notice-distance (meters 4)
|
|
:default-hit-points 1.0
|
|
:gnd-collide-with (collide-spec backgnd)
|
|
:overlaps-others-collide-with-filter (collide-spec jak bot player-list)
|
|
:penetrate-knocked (penetrate
|
|
touch
|
|
generic-attack
|
|
lunge
|
|
flop
|
|
punch
|
|
spin
|
|
roll
|
|
uppercut
|
|
bonk
|
|
tube
|
|
vehicle
|
|
flut-attack
|
|
board
|
|
mech
|
|
mech-punch
|
|
mech-bonk
|
|
dark-skin
|
|
dark-punch
|
|
dark-bomb
|
|
dark-smack
|
|
flut
|
|
shield
|
|
explode
|
|
jak-yellow-shot
|
|
jak-red-shot
|
|
jak-blue-shot
|
|
jak-dark-shot
|
|
enemy-yellow-shot
|
|
enemy-dark-shot
|
|
eco-yellow
|
|
eco-red
|
|
eco-blue
|
|
eco-green
|
|
knocked
|
|
jak-red-shockwave
|
|
jak-dark-nuke
|
|
jak-dark-blackhole
|
|
emp-blast
|
|
penetrate38
|
|
penetrate39
|
|
penetrate40
|
|
penetrate41
|
|
penetrate42
|
|
penetrate43
|
|
penetrate44
|
|
penetrate45
|
|
penetrate46
|
|
penetrate47
|
|
penetrate48
|
|
penetrate49
|
|
penetrate50
|
|
penetrate51
|
|
penetrate52
|
|
penetrate53
|
|
penetrate54
|
|
penetrate55
|
|
penetrate56
|
|
penetrate57
|
|
penetrate58
|
|
penetrate59
|
|
penetrate60
|
|
penetrate61
|
|
penetrate64
|
|
penetrate63
|
|
)
|
|
:movement-gravity (meters -100)
|
|
:friction 0.8
|
|
:attack-shove-back (meters 3)
|
|
:attack-shove-up (meters 2)
|
|
:attack-mode 'generic
|
|
:attack-damage 2
|
|
:recover-gnd-collide-with (collide-spec backgnd crate obstacle hit-by-others-list pusher)
|
|
:knocked-can-land-timeout (seconds 0.1)
|
|
:knocked-recover-timeout (seconds 2)
|
|
:ragdoll-blend-out-time (seconds 0.25)
|
|
:ragdoll-rotate-velocity-mult 1.0
|
|
:jump-height-min (meters 3)
|
|
:jump-height-factor 0.5
|
|
:knocked-seek-ry-clamp 4551.1113
|
|
:knocked-soft-vxz-lo 72089.6
|
|
:knocked-soft-vxz-hi 108134.4
|
|
:knocked-soft-vy-lo 81920.0
|
|
:knocked-soft-vy-hi 122880.0
|
|
:knocked-medium-vxz-lo 147456.0
|
|
:knocked-medium-vxz-hi 196608.0
|
|
:knocked-medium-vy-lo 135168.0
|
|
:knocked-medium-vy-hi 151552.0
|
|
:knocked-hard-vxz-lo 78643.2
|
|
:knocked-hard-vxz-hi 117964.8
|
|
:knocked-hard-vy-lo 183500.8
|
|
:knocked-hard-vy-hi 209715.2
|
|
:knocked-huge-vxz-lo 164659.2
|
|
:knocked-huge-vxz-hi 249036.8
|
|
:knocked-huge-vy-lo 183500.8
|
|
:knocked-huge-vy-hi 217907.2
|
|
:knocked-yellow-vxz-lo 40960.0
|
|
:knocked-yellow-vxz-hi 49152.0
|
|
:knocked-yellow-vy-lo 57344.0
|
|
:knocked-yellow-vy-hi 81920.0
|
|
:knocked-red-vxz-lo 24576.0
|
|
:knocked-red-vxz-hi 196608.0
|
|
:knocked-red-vy-lo 94208.0
|
|
:knocked-red-vy-hi 151552.0
|
|
:knocked-blue-vxz-lo 40960.0
|
|
:knocked-blue-vxz-hi 49152.0
|
|
:knocked-blue-vy-lo 24576.0
|
|
:knocked-blue-vy-hi 81920.0
|
|
:ragdoll-info #f
|
|
:shadow-size (meters 2)
|
|
:shadow-max-y (meters 1)
|
|
:shadow-min-y (meters -1)
|
|
:shadow-locus-dist (meters 150)
|
|
:gem-joint -1
|
|
:gem-offset (new 'static 'sphere :r 163840.0)
|
|
:knocked-off #t
|
|
:callback-info #f
|
|
:use-momentum #f
|
|
:use-frustration #t
|
|
:use-stop-chase #f
|
|
:use-circling #f
|
|
:use-pacing #f
|
|
:walk-anim 4
|
|
:turn-anim 9
|
|
:run-anim 13
|
|
:taunt-anim -1
|
|
:run-travel-speed (meters 1)
|
|
:run-acceleration (meters 1)
|
|
:run-turning-acceleration (meters 2)
|
|
:walk-travel-speed (meters 1)
|
|
:walk-acceleration (meters 1)
|
|
:walk-turning-acceleration (meters 3)
|
|
:maximum-rotation-rate (degrees 720)
|
|
:notice-nav-radius (meters 2)
|
|
:frustration-distance (meters 8)
|
|
:frustration-time (seconds 4)
|
|
:blocked-time (seconds 0.3)
|
|
:circle-dist-lo 20480.0
|
|
:circle-dist-hi 61440.0
|
|
:nav-mesh #f
|
|
)
|
|
)
|
|
|
|
(set! (-> *kg-hopper-nav-enemy-info* fact-defaults) *fact-info-enemy-defaults*)
|
|
|
|
(defmethod go-die ((this kg-hopper))
|
|
(go (method-of-object this explode))
|
|
)
|
|
|
|
(defstate explode (kg-hopper)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(let ((v1-1 (-> self root root-prim)))
|
|
(set! (-> v1-1 prim-core collide-as) (collide-spec))
|
|
(set! (-> v1-1 prim-core collide-with) (collide-spec))
|
|
)
|
|
0
|
|
(logior! (-> self draw status) (draw-control-status no-draw))
|
|
(sound-play "kg-explo")
|
|
)
|
|
:code (behavior ()
|
|
(let ((a1-1 (new 'stack 'debris-tuning (the-as uint 1))))
|
|
(set! (-> a1-1 hit-xz-reaction) 0.95)
|
|
(set! (-> a1-1 hit-y-reaction) 0.6)
|
|
(set! (-> a1-1 scale-rand-lo) 0.5)
|
|
(set! (-> a1-1 scale-rand-hi) 1.2)
|
|
(set! (-> a1-1 fountain-rand-transv-lo quad) (-> self incoming attack-position quad))
|
|
(debris-spawn self a1-1 *kg-hopper-debris-params* (the-as process-drawable #f))
|
|
)
|
|
(let ((v1-8 (vector<-cspace! (new 'stack-no-clear 'vector) (joint-node kg-hopper-lod0-jg chest))))
|
|
(cond
|
|
((logtest? (-> *part-group-id-table* 221 flags) (sp-group-flag sp13))
|
|
(set! (-> *launch-matrix* trans quad) (-> v1-8 quad))
|
|
(part-tracker-spawn part-tracker-subsampler :to self :group (-> *part-group-id-table* 221))
|
|
)
|
|
(else
|
|
(set! (-> *launch-matrix* trans quad) (-> v1-8 quad))
|
|
(part-tracker-spawn part-tracker :to self :group (-> *part-group-id-table* 221))
|
|
)
|
|
)
|
|
)
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
(cleanup-for-death self)
|
|
)
|
|
)
|
|
|
|
(defmethod event-handler ((this kg-hopper) (arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('hit 'hit-knocked)
|
|
(logclear! (-> this mask) (process-mask actor-pause))
|
|
(logclear! (-> this focus-status) (focus-status dangerous))
|
|
(logclear! (-> this enemy-flags) (enemy-flag use-notice-distance))
|
|
(logior! (-> this enemy-flags) (enemy-flag alert))
|
|
(logior! (-> this focus-status) (focus-status hit))
|
|
(if (= (-> this hit-points) 0.0)
|
|
(logior! (-> this focus-status) (focus-status dead))
|
|
)
|
|
(logclear! (-> this enemy-flags) (enemy-flag lock-focus))
|
|
(enemy-method-69 this)
|
|
(logior! (-> this enemy-flags) (enemy-flag lock-focus))
|
|
(process-contact-action arg0)
|
|
(send-event arg0 'get-attack-count 1)
|
|
(freeze-hit-begin)
|
|
(if (= (-> this hit-points) 0.0)
|
|
(go (method-of-object this explode))
|
|
(go (method-of-object this knocked))
|
|
)
|
|
#t
|
|
)
|
|
(('death-start)
|
|
(set! (-> this draw death-timer) (the-as uint 0))
|
|
((method-of-type nav-enemy event-handler) this arg0 arg1 arg2 arg3)
|
|
)
|
|
(else
|
|
((method-of-type nav-enemy event-handler) this arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod jump-anim-handler ((this kg-hopper) (arg0 int) (arg1 enemy-jump-info))
|
|
(when (= (-> this jump-why) 2)
|
|
(cond
|
|
((zero? arg0)
|
|
(logior! (-> this focus-status) (focus-status touch-water under-water))
|
|
)
|
|
(else
|
|
(when (focus-test? this touch-water)
|
|
(let ((s3-0 (new 'stack-no-clear 'water-info)))
|
|
(water-info-init! (-> this root) s3-0 (collide-action solid semi-solid))
|
|
(let ((v1-7 #f))
|
|
(cond
|
|
((not (logtest? (water-flag touch-water) (-> s3-0 flags)))
|
|
(if (focus-test? this under-water)
|
|
(set! v1-7 #t)
|
|
)
|
|
(logclear! (-> this focus-status) (focus-status touch-water under-water))
|
|
)
|
|
((focus-test? this under-water)
|
|
(let ((f0-1 (+ 11264.0 (-> this root trans y))))
|
|
(if (< (-> s3-0 trans y) f0-1)
|
|
(set! v1-7 #t)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when v1-7
|
|
(logclear! (-> this focus-status) (focus-status under-water))
|
|
(let ((v1-10 (new 'stack-no-clear 'vector)))
|
|
(set! (-> v1-10 quad) (-> this root trans quad))
|
|
(when (logtest? (water-flag touch-water) (-> s3-0 flags))
|
|
(set! (-> v1-10 y) (-> s3-0 trans y))
|
|
(cond
|
|
((logtest? (-> *part-group-id-table* 192 flags) (sp-group-flag sp13))
|
|
(set! (-> *launch-matrix* trans quad) (-> v1-10 quad))
|
|
(part-tracker-spawn part-tracker-subsampler :to *entity-pool* :group (-> *part-group-id-table* 192))
|
|
)
|
|
(else
|
|
(set! (-> *launch-matrix* trans quad) (-> v1-10 quad))
|
|
(part-tracker-spawn part-tracker :to *entity-pool* :group (-> *part-group-id-table* 192))
|
|
)
|
|
)
|
|
(sound-play "splash-out")
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((method-of-type nav-enemy jump-anim-handler) this arg0 arg1)
|
|
)
|
|
|
|
(defmethod jump-wind-up-anim ((this kg-hopper) (arg0 enemy-jump-info))
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(let ((a1-2 (-> this draw art-group data (-> this jump-start-anim)))
|
|
(a0-4 (-> this skel root-channel 0))
|
|
)
|
|
(set! (-> a0-4 frame-group) (the-as art-joint-anim a1-2))
|
|
(set! (-> a0-4 param 0) (the float (+ (-> (the-as art-joint-anim a1-2) frames num-frames) -1)))
|
|
(set! (-> a0-4 param 1) (-> arg0 anim-speed))
|
|
(set! (-> a0-4 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-4 (the-as art-joint-anim a1-2) num-func-seek!)
|
|
)
|
|
#t
|
|
)
|
|
|
|
(defmethod jump-in-air-anim ((this kg-hopper) (arg0 enemy-jump-info))
|
|
(ja-channel-push! 1 (seconds 0.1))
|
|
(let ((a1-2 (-> this draw art-group data (-> this jump-air-anim)))
|
|
(a0-4 (-> this skel root-channel 0))
|
|
)
|
|
(set! (-> a0-4 frame-group) (the-as art-joint-anim a1-2))
|
|
(set! (-> a0-4 param 0) (the float (+ (-> (the-as art-joint-anim a1-2) frames num-frames) -1)))
|
|
(set! (-> a0-4 param 1) (-> arg0 anim-speed))
|
|
(set! (-> a0-4 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-4 (the-as art-joint-anim a1-2) num-func-seek!)
|
|
)
|
|
#t
|
|
)
|
|
|
|
(defmethod jump-land-anim ((this kg-hopper) (arg0 enemy-jump-info))
|
|
(ja-channel-push! 1 (seconds 0.075))
|
|
(let ((a1-2 (-> this draw art-group data (-> this jump-land-anim)))
|
|
(a0-4 (-> this skel root-channel 0))
|
|
)
|
|
(set! (-> a0-4 frame-group) (the-as art-joint-anim a1-2))
|
|
(set! (-> a0-4 param 0) (the float (+ (-> (the-as art-joint-anim a1-2) frames num-frames) -1)))
|
|
(set! (-> a0-4 param 1) (-> arg0 anim-speed))
|
|
(set! (-> a0-4 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-4 (the-as art-joint-anim a1-2) num-func-seek!)
|
|
)
|
|
#t
|
|
)
|
|
|
|
(defstate jump (kg-hopper)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type nav-enemy jump) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
)
|
|
:exit (behavior ()
|
|
(let ((t9-0 (-> (method-of-type nav-enemy jump) exit)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(let ((v1-5 (-> self draw shadow-ctrl)))
|
|
(logclear! (-> v1-5 settings flags) (shadow-flags shdf03))
|
|
(let ((a0-2 v1-5))
|
|
(set! (-> a0-2 settings top-plane w) (- 4096.0))
|
|
)
|
|
0
|
|
(set! (-> v1-5 settings bot-plane w) (- -4096.0))
|
|
)
|
|
0
|
|
)
|
|
:trans (behavior ()
|
|
(let ((t9-0 (-> (method-of-type nav-enemy jump) trans)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(let ((v1-5 (-> self draw shadow-ctrl)))
|
|
(logior! (-> v1-5 settings flags) (shadow-flags shdf03))
|
|
(let ((a0-2 v1-5))
|
|
(set! (-> a0-2 settings bot-plane w) (- (+ (- -4096.0 (-> self root trans y)) (-> self root gspot-pos y))))
|
|
)
|
|
0
|
|
(set! (-> v1-5 settings top-plane w) (- (+ (- 8192.0 (-> self root trans y)) (-> self root gspot-pos y))))
|
|
)
|
|
0
|
|
)
|
|
)
|
|
|
|
(defmethod kg-hopper-method-191 ((this kg-hopper))
|
|
(local-vars (sv-752 collide-query))
|
|
(rlet ((acc :class vf)
|
|
(vf0 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
(vf6 :class vf)
|
|
(vf7 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(+! (-> this step-num) -1)
|
|
(cond
|
|
((>= (-> this step-num) 0)
|
|
(let ((s3-0 (new 'stack-no-clear 'vector))
|
|
(s5-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(vector-rotate-around-y!
|
|
s3-0
|
|
(-> this direction)
|
|
(* 182.04445 (the float (+ (* (-> this step-num) 16) -135)))
|
|
)
|
|
(let ((a1-1 s5-0))
|
|
(let ((v1-7 (-> this origin)))
|
|
(let ((a0-2 s3-0))
|
|
(let ((a2-1 (-> this jump-dist)))
|
|
(.mov vf7 a2-1)
|
|
)
|
|
(.lvf vf5 (&-> a0-2 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-7 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a1-1 quad) vf6)
|
|
)
|
|
(let ((v1-8 (-> this nav))
|
|
(a0-3 s5-0)
|
|
(a1-2 (new 'stack-no-clear 'nav-poly))
|
|
)
|
|
(vector-! (the-as vector (-> a1-2 vertex)) a0-3 (the-as vector (-> v1-8 state mesh bounds)))
|
|
(set! (-> a1-2 vertex1 x) (-> v1-8 nearest-y-threshold))
|
|
(set! (-> a1-2 data 20) (the-as uint 2))
|
|
(let ((s4-0 (nav-mesh-method-45 (-> v1-8 state mesh) a1-2)))
|
|
(when s4-0
|
|
(let ((f30-0 (vector-dot s3-0 (-> this direction))))
|
|
(new 'stack-no-clear 'vector)
|
|
(let ((a1-3 (new 'stack-no-clear 'vector)))
|
|
(set! (-> a1-3 quad) (-> s5-0 quad))
|
|
(set! (-> a1-3 w) 6144.0)
|
|
(when (not (add-root-sphere-to-hash! (-> this nav) a1-3 #x10006c))
|
|
(when (< (-> this best-score) f30-0)
|
|
(set! (-> this best-score) f30-0)
|
|
(let ((s2-0 (new 'stack-no-clear 'vector)))
|
|
(set! sv-752 (new 'stack-no-clear 'collide-query))
|
|
(let ((s3-1 (new 'stack 'collide-query)))
|
|
(let ((s0-0 (-> this nav))
|
|
(s1-0 s2-0)
|
|
)
|
|
(let* ((v1-21 s5-0)
|
|
(a0-10 (-> s0-0 state mesh))
|
|
(t9-4 (method-of-object a0-10 project-point-onto-plane-of-poly-local))
|
|
(a2-5 s1-0)
|
|
(t0-1 (vector-! (new 'stack-no-clear 'vector) v1-21 (the-as vector (-> s0-0 state mesh bounds))))
|
|
)
|
|
(t9-4 a0-10 s4-0 a2-5 (the-as vector sv-752) t0-1)
|
|
)
|
|
(vector+! s1-0 s1-0 (the-as vector (-> s0-0 state mesh bounds)))
|
|
)
|
|
0
|
|
(set! (-> s5-0 y) (-> s2-0 y))
|
|
(if (enemy-above-ground? this s3-1 s5-0 (collide-spec backgnd) 8192.0 81920.0 1024.0)
|
|
(set! (-> s5-0 y) (-> s3-1 best-other-tri intersect y))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> this best-point quad) (-> s5-0 quad))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
(else
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defstate stare (kg-hopper)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type nav-enemy stare) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(nav-enemy-method-184 self)
|
|
)
|
|
)
|
|
|
|
(define *kg-hopper-next-jump-time* (the-as time-frame 0))
|
|
|
|
(defstate hostile (kg-hopper)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type nav-enemy hostile) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(nav-enemy-method-182 self)
|
|
(nav-enemy-method-183 self)
|
|
(set! (-> self speed-y) 0.0)
|
|
(set! (-> self accel-y) 0.0)
|
|
(set! (-> self next-jump-time) (the-as int (+ (current-time) (set-reaction-time! self 0 (seconds 0.4)))))
|
|
(set! (-> self step-num) 0)
|
|
(set! (-> self best-score) -2.0)
|
|
)
|
|
:exit (behavior ()
|
|
(let ((t9-0 (-> (method-of-type nav-enemy hostile) exit)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((t9-0 (-> (method-of-type nav-enemy hostile) trans)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(when (< *kg-hopper-next-jump-time* (current-time))
|
|
(let ((gp-0 (handle->process (-> self focus handle))))
|
|
(when gp-0
|
|
(let ((s4-1
|
|
(vector-! (new 'stack-no-clear 'vector) (get-trans (the-as process-focusable gp-0) 0) (-> self root trans))
|
|
)
|
|
)
|
|
0.0
|
|
(let ((s5-0 (rnd-int self 2)))
|
|
(set! (-> self direction y) 0.0)
|
|
(let* ((v1-12 s4-1)
|
|
(f30-0 (sqrtf (+ (* (-> v1-12 x) (-> v1-12 x)) (* (-> v1-12 z) (-> v1-12 z)))))
|
|
)
|
|
(set! (-> self step-num) 16)
|
|
(set! (-> self direction quad) (-> s4-1 quad))
|
|
0.0
|
|
(let ((s4-2 (new 'stack-no-clear 'vector))
|
|
(f28-0 (if (zero? s5-0)
|
|
(rnd-float-range self 4096.0 8192.0)
|
|
(rnd-float-range self 8192.0 (fmin 40960.0 (fmax 16384.0 (* 0.5 f30-0))))
|
|
)
|
|
)
|
|
)
|
|
(vector-rotate90-around-y! s4-2 (-> self direction))
|
|
(vector-normalize! (-> self direction) 1.0)
|
|
(if (< (+ -2048.0 f30-0) f28-0)
|
|
(set! f28-0 (+ -2048.0 f30-0))
|
|
)
|
|
(if (< f28-0 6144.0)
|
|
(set! s5-0 0)
|
|
)
|
|
(set! (-> self jump-dist) f28-0)
|
|
)
|
|
)
|
|
(set! (-> self best-score) -2.0)
|
|
(set! (-> self origin quad) (-> self root trans quad))
|
|
;; og:preserve-this
|
|
;; (b! #t cfg-17)
|
|
(until (not (kg-hopper-method-191 self))
|
|
(empty)
|
|
)
|
|
(when (!= (-> self best-score) -2.0)
|
|
(let* ((s4-4 (vector-! (new 'stack-no-clear 'vector) (-> self best-point) (-> self root trans)))
|
|
(f30-1 (deg-diff (quaternion-y-angle (-> self root quat)) (vector-y-angle s4-4)))
|
|
)
|
|
(cond
|
|
((< (vector-vector-xz-distance (-> self best-point) (get-trans (the-as process-focusable gp-0) 0)) 8192.0)
|
|
(when (get-focus! self)
|
|
(cond
|
|
((zero? s5-0)
|
|
(set! (-> self jump-start-anim) (the-as uint 34))
|
|
(set! (-> self jump-air-anim) (the-as uint 35))
|
|
(set! (-> self jump-land-anim) (the-as uint 36))
|
|
(set! (-> self jump-height-min) 4096.0)
|
|
(set! (-> self jump-anim-start-frame) 2.0)
|
|
)
|
|
(else
|
|
(if (< 2730.6667 (fabs f30-1))
|
|
(set! (-> self jump-start-anim) (the-as uint (if (< 0.0 f30-1)
|
|
11
|
|
12
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self jump-start-anim) (the-as uint 10))
|
|
)
|
|
(cond
|
|
((zero? (rnd-int self 2))
|
|
(set! (-> self jump-air-anim) (the-as uint 15))
|
|
(set! (-> self jump-land-anim) (the-as uint 16))
|
|
(set! (-> self jump-height-min) 12288.0)
|
|
(set! (-> self jump-anim-start-frame) 8.0)
|
|
)
|
|
(else
|
|
(set! (-> self jump-air-anim) (the-as uint 17))
|
|
(set! (-> self jump-land-anim) (the-as uint 18))
|
|
(set! (-> self jump-height-min) 12288.0)
|
|
(set! (-> self jump-anim-start-frame) 8.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! *kg-hopper-next-jump-time* (+ (current-time) (set-reaction-time! self (seconds 0.015) (seconds 0.075))))
|
|
(set! (-> self enemy-flags)
|
|
(the-as enemy-flag (logclear (-> self enemy-flags) (enemy-flag jump-check-blocked)))
|
|
)
|
|
(send-event self 'jump 0 (-> self best-point))
|
|
)
|
|
)
|
|
(else
|
|
(cond
|
|
((zero? s5-0)
|
|
(set! (-> self jump-start-anim) (the-as uint 31))
|
|
(set! (-> self jump-air-anim) (the-as uint 32))
|
|
(set! (-> self jump-land-anim) (the-as uint 33))
|
|
(set! (-> self jump-height-min) 4096.0)
|
|
(set! (-> self jump-anim-start-frame) 2.0)
|
|
)
|
|
(else
|
|
(if (< 2730.6667 (fabs f30-1))
|
|
(set! (-> self jump-start-anim) (the-as uint (if (< 0.0 f30-1)
|
|
11
|
|
12
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self jump-start-anim) (the-as uint 10))
|
|
)
|
|
(set! (-> self jump-air-anim) (the-as uint 13))
|
|
(set! (-> self jump-land-anim) (the-as uint 14))
|
|
(set! (-> self jump-height-min) 12288.0)
|
|
(set! (-> self jump-anim-start-frame) 8.0)
|
|
)
|
|
)
|
|
(set! *kg-hopper-next-jump-time* (+ (current-time) (set-reaction-time! self (seconds 0.015) (seconds 0.075))))
|
|
(set! (-> self enemy-flags)
|
|
(the-as enemy-flag (logclear (-> self enemy-flags) (enemy-flag jump-check-blocked)))
|
|
)
|
|
(send-event self 'jump 0 (-> self best-point))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:post nav-enemy-simple-post
|
|
)
|
|
|
|
(defstate active (kg-hopper)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type nav-enemy active) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(nav-enemy-method-164 self)
|
|
(let ((v1-2 (new 'stack-no-clear 'vector)))
|
|
(let ((a2-0 (-> self nav state)))
|
|
(set! (-> v1-2 quad) (-> a2-0 target-pos quad))
|
|
)
|
|
(set! (-> self enemy-flags)
|
|
(the-as enemy-flag (logclear (-> self enemy-flags) (enemy-flag jump-check-blocked)))
|
|
)
|
|
(send-event self 'jump 2 v1-2)
|
|
)
|
|
)
|
|
:post nav-enemy-simple-post
|
|
)
|
|
|
|
(defstate notice (kg-hopper)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 (seconds 0.075))
|
|
(let ((f30-0 (rnd-float-range self 0.8 1.2))
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(if (zero? (rnd-int self 2))
|
|
(ja :group! kg-hopper-notice-ja)
|
|
(ja :group! kg-hopper-notice-alt-ja)
|
|
)
|
|
(ja-no-eval :group! (ja-group) :num! (seek! max f30-0) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(let ((a1-4 (-> self nav state)))
|
|
(set! (-> gp-0 quad) (-> a1-4 travel quad))
|
|
)
|
|
(seek-toward-heading-vec! (-> self root) gp-0 (-> self nav max-rotation-rate) (seconds 0.02))
|
|
(suspend)
|
|
(ja :num! (seek! max f30-0))
|
|
)
|
|
)
|
|
(go-best-state self)
|
|
)
|
|
)
|
|
|
|
(defstate ambush (kg-hopper)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(when (logtest? (-> self enemy-flags) (enemy-flag enable-on-notice))
|
|
(logclear! (-> self enemy-flags) (enemy-flag enable-on-notice))
|
|
(let ((gp-0 (-> self on-notice)))
|
|
(if gp-0
|
|
(script-eval gp-0 :vector (-> self root trans))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-12 (-> self root root-prim)))
|
|
(set! (-> self root backup-collide-as) (-> v1-12 prim-core collide-as))
|
|
(set! (-> self root backup-collide-with) (-> v1-12 prim-core collide-with))
|
|
)
|
|
(let ((v1-15 (-> self root root-prim)))
|
|
(set! (-> v1-15 prim-core collide-as) (collide-spec))
|
|
(set! (-> v1-15 prim-core collide-with) (collide-spec))
|
|
)
|
|
0
|
|
(when (handle->process (-> self focus handle))
|
|
(let ((gp-1 (-> self root))
|
|
(s5-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
|
0.0
|
|
(get-point-in-path! (-> self path-intro) s5-0 0.0 'exact)
|
|
(+! (-> s5-0 y) -16384.0)
|
|
(get-point-in-path! (-> self path-intro) s4-0 1.0 'exact)
|
|
(let ((f0-3 (deg-diff
|
|
(quaternion-y-angle (-> gp-1 quat))
|
|
(vector-y-angle (vector-normalize! (vector-! (new 'stack-no-clear 'vector) s4-0 s5-0) 1.0))
|
|
)
|
|
)
|
|
)
|
|
(quaternion-rotate-y! (-> gp-1 quat) (-> gp-1 quat) f0-3)
|
|
)
|
|
)
|
|
(set! (-> gp-1 trans quad) (-> s5-0 quad))
|
|
)
|
|
)
|
|
)
|
|
:exit (behavior ()
|
|
(let ((v1-1 (-> self root root-prim)))
|
|
(set! (-> v1-1 prim-core collide-as) (-> self root backup-collide-as))
|
|
(set! (-> v1-1 prim-core collide-with) (-> self root backup-collide-with))
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
'()
|
|
)
|
|
:code (behavior ()
|
|
(logclear! (-> self draw status) (draw-control-status no-draw))
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(let ((s5-0 (new 'stack 'collide-query)))
|
|
(get-point-in-path! (-> self path-intro) gp-0 1.0 'exact)
|
|
(if (enemy-above-ground? self s5-0 gp-0 (collide-spec backgnd) 8192.0 81920.0 1024.0)
|
|
(set! (-> gp-0 y) (-> s5-0 best-other-tri intersect y))
|
|
)
|
|
)
|
|
(set! (-> self enemy-flags)
|
|
(the-as enemy-flag (logclear (-> self enemy-flags) (enemy-flag jump-check-blocked)))
|
|
)
|
|
(send-event self 'jump 2 gp-0)
|
|
)
|
|
(go-virtual hostile)
|
|
)
|
|
)
|
|
|
|
(defmethod on-dying ((this kg-hopper))
|
|
(when (-> this minimap)
|
|
(logior! (-> this minimap flags) (minimap-flag fade-out))
|
|
(set! (-> this minimap) #f)
|
|
)
|
|
(call-parent-method this)
|
|
(none)
|
|
)
|
|
|
|
(defmethod relocate ((this kg-hopper) (offset int))
|
|
(if (nonzero? (-> this path-intro))
|
|
(&+! (-> this path-intro) offset)
|
|
)
|
|
(call-parent-method this offset)
|
|
)
|
|
|
|
(defmethod init-enemy-collision! ((this kg-hopper))
|
|
(let ((s5-0 (new 'process 'collide-shape-moving this (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s5-0 reaction) cshape-reaction-default)
|
|
(set! (-> s5-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(set! (-> s5-0 penetrated-by) (penetrate
|
|
generic-attack
|
|
lunge
|
|
flop
|
|
punch
|
|
spin
|
|
roll
|
|
uppercut
|
|
bonk
|
|
tube
|
|
flut-attack
|
|
board
|
|
mech-punch
|
|
dark-punch
|
|
dark-smack
|
|
flut
|
|
)
|
|
)
|
|
(let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0)))
|
|
(set! (-> s5-0 total-prims) (the-as uint 3))
|
|
(set! (-> s4-0 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> s4-0 prim-core collide-with)
|
|
(collide-spec backgnd jak bot crate obstacle hit-by-others-list player-list)
|
|
)
|
|
(set! (-> s4-0 prim-core action) (collide-action solid deadly no-standon))
|
|
(set! (-> s4-0 transform-index) 12)
|
|
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 9216.0)
|
|
(set! (-> s5-0 root-prim) s4-0)
|
|
)
|
|
(let ((v1-14 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
|
|
(set! (-> v1-14 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-14 prim-core collide-with)
|
|
(collide-spec backgnd jak bot crate obstacle hit-by-others-list player-list)
|
|
)
|
|
(set! (-> v1-14 prim-core action) (collide-action solid no-standon))
|
|
(set-vector! (-> v1-14 local-sphere) 0.0 3686.4 0.0 3686.4)
|
|
)
|
|
(let ((v1-16 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
|
|
(set! (-> v1-16 prim-core collide-as) (collide-spec enemy))
|
|
(set! (-> v1-16 prim-core collide-with) (collide-spec jak bot player-list))
|
|
(set! (-> v1-16 prim-core action) (collide-action deadly))
|
|
(set! (-> v1-16 transform-index) 5)
|
|
(set-vector! (-> v1-16 local-sphere) 0.0 0.0 819.2 3276.8)
|
|
)
|
|
(set! (-> s5-0 nav-radius) 4096.0)
|
|
(let ((v1-18 (-> s5-0 root-prim)))
|
|
(set! (-> s5-0 backup-collide-as) (-> v1-18 prim-core collide-as))
|
|
(set! (-> s5-0 backup-collide-with) (-> v1-18 prim-core collide-with))
|
|
)
|
|
(set! (-> s5-0 max-iteration-count) (the-as uint 3))
|
|
(set! (-> this root) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod get-skel ((this kg-hopper))
|
|
(art-group-get-by-name *level* "skel-kg-hopper" (the-as (pointer level) #f))
|
|
)
|
|
|
|
(defmethod init-enemy! ((this kg-hopper))
|
|
(stack-size-set! (-> this main-thread) 256)
|
|
(logior! (-> this mask) (process-mask kg-robot))
|
|
(initialize-skeleton this (the-as skeleton-group (get-skel this)) (the-as pair 0))
|
|
(set! (-> this skel generate-frame-function) create-interpolated2-joint-animation-frame)
|
|
(init-enemy-defaults! this *kg-hopper-nav-enemy-info*)
|
|
(set! (-> this can-go-knocked?) #t)
|
|
(let ((v1-11 (-> this neck)))
|
|
(set! (-> v1-11 up) (the-as uint 1))
|
|
(set! (-> v1-11 nose) (the-as uint 2))
|
|
(set! (-> v1-11 ear) (the-as uint 0))
|
|
(set-vector! (-> v1-11 twist-max) 10922.667 12743.111 0.0 1.0)
|
|
(set! (-> v1-11 ignore-angle) 18204.445)
|
|
)
|
|
(set! (-> this jump-start-anim) (the-as uint 10))
|
|
(set! (-> this jump-air-anim) (the-as uint 13))
|
|
(set! (-> this jump-land-anim) (the-as uint 14))
|
|
(set! (-> this jump-height-min) 12288.0)
|
|
(set! (-> this jump-anim-start-frame) 8.0)
|
|
(set! (-> this land-anim-index) 26)
|
|
(set! (-> this side) (rnd-float-range this -1.5 1.5))
|
|
(when (logtest? (enemy-option ambush) (-> this fact enemy-options))
|
|
(set! (-> this path-intro) (new 'process 'path-control this 'intro 0.0 (-> this entity) #f))
|
|
(if (-> this path-intro)
|
|
(logior! (-> this path-intro flags) (path-control-flag display draw-line draw-point draw-text))
|
|
)
|
|
)
|
|
(logior! (-> this nav flags) (nav-control-flag output-sphere-hash))
|
|
(let ((v1-32 (-> this nav)))
|
|
(set! (-> v1-32 speed-scale) 1.0)
|
|
)
|
|
0
|
|
(set-gravity-length (-> this root dynam) 327680.0)
|
|
(let ((v1-37 (-> this nav)))
|
|
(set! (-> v1-37 nav-cull-radius) 61440.0)
|
|
)
|
|
0
|
|
(set! (-> this fact pickup-type) (pickup-type ammo-light-random))
|
|
(set! (-> this fact pickup-amount) 5.0)
|
|
(set! (-> this fact pickup-spawn-amount) 1.0)
|
|
(set! (-> this minimap) (add-icon! *minimap* this (the-as uint 108) (the-as int #f) (the-as vector #t) 0))
|
|
0
|
|
(none)
|
|
)
|