;;-*-Lisp-*-
(in-package goal)

;; name: mh-wasp.gc
;; name in dgo: mh-wasp
;; dgos: SEA

;; DECOMP BEGINS

(defpartgroup group-mh-wasp-explosion
  :id 1530
  :duration (seconds 2)
  :linger-duration (seconds 1)
  :flags (sp0 sp5 sp6 sp7)
  :bounds (static-bspherem 0 0 0 15)
  :rotate ((degrees 0) (degrees 90) (degrees 0))
  :scale (0.25 0.25 0.25)
  :parts ((sp-item 5037 :flags (sp6) :period (seconds 3) :length (seconds 0.017))
    (sp-item 5038 :flags (sp6) :period (seconds 3) :length (seconds 0.017))
    (sp-item 5039 :period (seconds 3) :length (seconds 0.05))
    (sp-item 5040 :fade-after (meters 60) :period (seconds 3) :length (seconds 0.035) :offset 10)
    (sp-item 5041 :fade-after (meters 60) :falloff-to (meters 60) :period (seconds 3) :length (seconds 0.167) :offset 20)
    (sp-item 5042 :fade-after (meters 200) :falloff-to (meters 200) :period (seconds 3) :length (seconds 0.085) :offset 20)
    (sp-item 5043 :fade-after (meters 150) :falloff-to (meters 150) :period (seconds 3) :length (seconds 0.067) :offset 30)
    )
  )

(defpart 5038
  :init-specs ((:texture (glow level-default-sprite))
    (:num 1.0)
    (:scale-x (meters 2))
    (:rot-x (degrees 11.25))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 24.0)
    (:scalevel-x (meters 0.10666667))
    (:rotvel-z (degrees 0.3))
    (:scalevel-y :copy scalevel-x)
    (:fade-r 0.0)
    (:fade-g -4.266667)
    (:fade-b -4.266667)
    (:fade-a 0.0)
    (:timer (seconds 0.5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
    (:next-time (seconds 0.25))
    (:next-launcher 5044)
    )
  )

(defpart 5044
  :init-specs ((:scalevel-x (meters 0))
    (:scalevel-y :copy scalevel-x)
    (:fade-r -0.85333335)
    (:fade-g -1.7066667)
    (:fade-b -1.7066667)
    (:fade-a -0.64)
    )
  )

(defpart 5043
  :init-specs ((:texture (explosion-wave sewa-sprite))
    (:num 2.0 0.2)
    (:scale-x (meters 1) (meters 1))
    (:rot-z (degrees 0) (degrees 3600) :store)
    (:scale-y (meters 0.8) (meters 0.2))
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 32.0 32.0)
    (:scalevel-x (meters 0.01) (meters 0.13333334))
    (:scalevel-y :copy scalevel-x)
    (:fade-r 0.0)
    (:fade-g -0.36)
    (:fade-b -4.24)
    (:fade-a -0.22068965)
    (:friction 0.95)
    (:timer (seconds 3.335))
    (:flags (sp-cpuinfo-flag-2))
    (:next-time (seconds 0.085))
    (:next-launcher 5045)
    (:conerot-x '*sp-temp*)
    (:conerot-y (degrees 0) (degrees 3600))
    )
  )

(defpart 5042
  :init-specs ((:texture (explosion-nebula level-default-sprite))
    (:birth-func 'birth-func-texture-group)
    (:num 3.0)
    (:scale-x (meters 1) (meters 1))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 32.0 32.0)
    (:vel-y (meters 0.02) (meters 0.01))
    (:scalevel-x (meters 0.01) (meters 0.13333334))
    (:rotvel-z (degrees -0.12) (degrees 0.24))
    (:scalevel-y :copy scalevel-x)
    (:fade-r 0.0)
    (:fade-g -0.36)
    (:fade-b -4.24)
    (:fade-a -0.22068965)
    (:friction 0.95)
    (:timer (seconds 3.335))
    (:flags (sp-cpuinfo-flag-2))
    (:userdata :data (new 'static 'boxed-array :type int32 40 1 0 #x400000 #x400700))
    (:next-time (seconds 0.085))
    (:next-launcher 5045)
    (:conerot-x (degrees 0) (degrees 3600))
    (:conerot-y (degrees 0) (degrees 3600))
    )
  )

(defpart 5045
  :init-specs ((:fade-r 0.0) (:fade-g 0.0) (:fade-b 0.0) (:next-time (seconds 0.017) (seconds 0.065)) (:next-launcher 5046))
  )

(defpart 5046
  :init-specs ((:scalevel-x (meters 0.016666668) (meters 0.016666668))
    (:scalevel-y :copy scalevel-x)
    (:fade-r -0.44)
    (:fade-g -2.36)
    (:fade-b -2.64)
    (:next-time (seconds 0.117) (seconds 0.047))
    (:next-launcher 5047)
    )
  )

(defpart 5047
  :init-specs ((:scalevel-x (meters 0.008333334) (meters 0.008333334))
    (:scalevel-y :copy scalevel-x)
    (:fade-r -1.2944444)
    (:fade-g -0.7111111)
    (:fade-b -0.094444446)
    (:fade-a -0.06545454 -0.06545454)
    (:next-time (seconds 0.5) (seconds 0.097))
    (:next-launcher 5048)
    )
  )

(defpart 5048
  :init-specs ((:fade-r 0.0) (:fade-g 0.0) (:fade-b 0.0) (:fade-a -0.1125))
  )

(defpart 5037
  :init-specs ((:texture (glow level-default-sprite))
    (:num 1.0)
    (:scale-x (meters 5))
    (:rot-x (degrees 11.25))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 96.0)
    (:scalevel-x (meters 0.5))
    (:rotvel-z (degrees 0.3))
    (:scalevel-y :copy scalevel-x)
    (:fade-r 0.0)
    (:fade-g -1.28)
    (:fade-b -5.1)
    (:fade-a 0.0)
    (:timer (seconds 0.217))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:next-time (seconds 0.1))
    (:next-launcher 5049)
    )
  )

(defpart 5049
  :init-specs ((:scalevel-x (meters -0.2857143))
    (:scalevel-y :copy scalevel-x)
    (:fade-r 0.0)
    (:fade-g -3.6571429)
    (:fade-b 0.0)
    (:fade-a -2.7428572)
    )
  )

(defpart 5041
  :init-specs ((:texture (specs level-default-sprite))
    (:num 8.0 2.0)
    (:x (meters 0.25))
    (:scale-x (meters 1) (meters 0.25))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 16.0 48.0)
    (:vel-y (meters 0.083333336) (meters 0.083333336))
    (:scalevel-x (meters 0.006666667) (meters 0.0016666667))
    (:rotvel-z (degrees -0.12) (degrees 0.24))
    (:scalevel-y :copy scalevel-x)
    (:fade-r 0.0)
    (:fade-g -0.18)
    (:fade-b -2.12)
    (:accel-y (meters -0.00016666666) (meters -0.00033333333))
    (:friction 0.87)
    (:timer (seconds 3.335))
    (:flags (sp-cpuinfo-flag-2))
    (:next-time (seconds 0.117) (seconds 0.047))
    (:next-launcher 5050)
    (:conerot-x (degrees 0) (degrees 3600))
    (:conerot-y (degrees 0) (degrees 3600))
    )
  )

(defpart 5050
  :init-specs ((:scalevel-x (meters 0.0016666667))
    (:scalevel-y :copy scalevel-x)
    (:fade-r 0.0)
    (:fade-g 0.02)
    (:fade-b 0.23555556)
    (:next-time (seconds 0.15) (seconds 0.047))
    (:next-launcher 5051)
    )
  )

(defpart 5051
  :init-specs ((:fade-r -0.5543478) (:fade-g -0.5543478) (:fade-a -0.13913043))
  )

(defpart 5039
  :init-specs ((:texture (bigpuff level-default-sprite))
    (:num 8.0 1.0)
    (:x (meters 0) (meters 0.6))
    (:scale-x (meters 2.5) (meters 2))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 70.0 20.0)
    (:g 70.0 20.0)
    (:b 70.0 20.0)
    (:a 0.0 40.0)
    (:vel-y (meters 0) (meters 0.1))
    (:scalevel-x (meters 0.033333335) (meters 0.02))
    (:rotvel-z (degrees -0.12) (degrees 0.24))
    (:scalevel-y :copy scalevel-x)
    (:fade-r 3.3)
    (:fade-g 3.12)
    (:fade-b 1.18)
    (:fade-a 1.76)
    (:friction 0.88)
    (:timer (seconds 2.367))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:next-time (seconds 0.117) (seconds 0.047))
    (:next-launcher 5052)
    (:conerot-x (degrees 0) (degrees 3600))
    (:conerot-y (degrees 0) (degrees 3600))
    )
  )

(defpart 5052
  :init-specs ((:scalevel-x (meters 0.0033333334))
    (:scalevel-y :copy scalevel-x)
    (:fade-r -0.53333336)
    (:fade-g -1.9666667)
    (:fade-b -2.2)
    (:fade-a -0.41666666)
    (:next-time (seconds 0.15) (seconds 0.047))
    (:next-launcher 5053)
    )
  )

(defpart 5053
  :init-specs ((:scalevel-x (meters 0))
    (:scalevel-y :copy scalevel-x)
    (:fade-r -0.38833332)
    (:fade-g -0.21333334)
    (:fade-b -0.028333334)
    (:fade-a -0.38833332)
    )
  )

(defpart 5040
  :init-specs ((:texture (flamingstick sewa-sprite))
    (:num 4.0 2.0)
    (:scale-x (meters 0.2) (meters 0.5))
    (:rot-x 4)
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y (meters 0.2) (meters 0.1))
    (:r 128.0 128.0)
    (:g 96.0)
    (:b 64.0)
    (:a 64.0 64.0)
    (:scalevel-x (meters 0.13333334) (meters 0.02))
    (:fade-g 1.6)
    (:fade-b 3.2)
    (:fade-a -1.6)
    (:timer (seconds 0.3))
    (:flags (sp-cpuinfo-flag-2))
    )
  )

(deftype mh-wasp-shot (metalhead-shot)
  ()
  )


(defmethod play-impact-sound ((this mh-wasp-shot) (arg0 projectile-options))
  (let ((v1-0 arg0))
    (cond
      ((zero? v1-0)
       (sound-play "wasp-shot-fire")
       )
      ((= v1-0 (projectile-options po0))
       (sound-play "wasp-shot-hit")
       )
      )
    )
  0
  (none)
  )

(defmethod init-proj-settings! ((this mh-wasp-shot))
  (set! (-> this tail-pos quad) (-> this root trans quad))
  (set! (-> this attack-mode) 'mh-wasp-shot)
  (set! (-> this max-speed) 491520.0)
  (set! (-> this move) metalhead-shot-move)
  (set! (-> this timeout) (seconds 1.375))
  0
  (none)
  )

(deftype mh-wasp (hover-enemy)
  ((gun-jmod               joint-mod-rotate-local  :inline)
   (entity-group           actor-group)
   (smoke-part             sparticle-launch-control)
   (engine-part            sparticle-launch-control)
   (old-gravity            float                   :offset 1024)
   (knocked-anim           int32)
   (knocked-recover-anim   int32)
   (last-fire-time         time-frame)
   (bridge-index           int32)
   (gun-x-angle            float)
   (gun-x-angle-final      float)
   (path-u                 float)
   (path-du                float)
   (path-du-final          float)
   (path-dest              float)
   (sound-id               sound-id)
   (attack-wait-min        float)
   (attack-wait-max        float)
   (attack-miss-dist-min   float)
   (attack-miss-dist-max   float)
   (attack-miss-dist-curr  float)
   )
  (:state-methods
    attack
    die-now
    die-explode
    )
  (:methods
    (fire-shot (_type_ projectile-init-by-other-params int int float) none)
    )
  )


(defskelgroup skel-mh-wasp neo-wasp neo-wasp-lod0-jg -1
              ((neo-wasp-lod0-mg (meters 20)) (neo-wasp-lod1-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 7.5)
              :shadow neo-wasp-shadow-mg
              :origin-joint-index 3
              )

(defskelgroup skel-mh-wasp-explode neo-wasp neo-wasp-explode-lod0-jg neo-wasp-explode-idle-ja
              ((neo-wasp-explode-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 7.5)
              :origin-joint-index 3
              )

(define *mh-wasp-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 5 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 6 :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)
      )
    :collide-spec (collide-spec backgnd)
    )
  )

(define *fact-info-mh-wasp-defaults*
  (new 'static 'fact-info-enemy-defaults :idle-distance (meters 80) :pickup-type 9)
  )

(define *mh-wasp-enemy-info* (new 'static 'enemy-info
                               :use-die-falling #t
                               :use-victory #f
                               :use-jump-blocked #f
                               :debug-draw-neck #f
                               :jump-debug-draw #f
                               :move-to-ground #f
                               :hover-if-no-ground #f
                               :idle-anim-script #f
                               :idle-anim 4
                               :notice-anim 4
                               :hostile-anim 4
                               :hit-anim 12
                               :knocked-anim 10
                               :knocked-land-anim 11
                               :die-anim 14
                               :die-falling-anim 15
                               :victory-anim 4
                               :jump-wind-up-anim -1
                               :jump-in-air-anim -1
                               :jump-land-anim -1
                               :neck-joint 7
                               :look-at-joint 7
                               :bullseye-joint 4
                               :sound-hit (static-sound-name "wasp-hit")
                               :sound-die (static-sound-name "wasp-die")
                               :notice-distance (meters 70)
                               :notice-distance-delta (meters 10)
                               :proximity-notice-distance (meters 55)
                               :default-hit-points 6.0
                               :gnd-collide-with (collide-spec backgnd)
                               :overlaps-others-collide-with-filter (collide-spec jak bot player-list)
                               :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 2730.6667
                               :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 53248.0
                               :knocked-hard-vxz-hi 101580.8
                               :knocked-hard-vy-lo 60620.8
                               :knocked-hard-vy-hi 95027.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 10)
                               :shadow-min-y (meters -20)
                               :shadow-locus-dist (meters 150)
                               :gem-joint 7
                               :gem-offset (new 'static 'sphere :r 163840.0)
                               :knocked-off #t
                               )
        )

(set! (-> *mh-wasp-enemy-info* fact-defaults) *fact-info-mh-wasp-defaults*)

(defmethod event-handler ((this mh-wasp) (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 die-explode))
         (go (method-of-object this knocked))
         )
     )
    (else
      ((method-of-type hover-enemy event-handler) this arg0 arg1 arg2 arg3)
      )
    )
  )

(defmethod knocked-handler ((this mh-wasp) (arg0 vector))
  (let ((s4-0 (-> this root)))
    (case (-> this incoming knocked-type)
      (((knocked-type explode-or-darkjak))
       (let ((gp-1 (-> this root transv)))
         (let ((a1-1 (handle->process (-> this incoming attacker-handle))))
           (if a1-1
               (vector-! gp-1 (-> (the-as process-drawable a1-1) root trans) (-> this root trans))
               (vector-! gp-1 (-> this incoming attacker-pos) (-> this root trans))
               )
           )
         (set! (-> gp-1 y) 0.0)
         (vector-normalize! gp-1 1.0)
         (vector-rotate90-around-y! gp-1 gp-1)
         (if (< 0.0 (vector-dot
                      (vector-! (new 'stack-no-clear 'vector) (-> this incoming attacker-pos) (-> s4-0 trans))
                      (vector-x-quaternion! (new 'stack-no-clear 'vector) (-> s4-0 quat))
                      )
                )
             (vector-negate! gp-1 gp-1)
             )
         (let ((f30-1 (rnd-float-range this 0.0 1.0))
               (s5-1 (-> this enemy-info))
               )
           (vector-float*! gp-1 gp-1 (lerp (-> s5-1 knocked-hard-vxz-lo) (-> s5-1 knocked-hard-vxz-hi) f30-1))
           (set! (-> gp-1 y) (lerp (-> s5-1 knocked-hard-vy-lo) (-> s5-1 knocked-hard-vy-hi) f30-1))
           )
         )
       )
      (else
        (call-parent-method this arg0)
        )
      )
    )
  )

(defmethod go-idle2 ((this mh-wasp))
  (if (logtest? (enemy-option ambush) (-> this fact enemy-options))
      (go (method-of-object this ambush))
      (go (method-of-object this notice))
      )
  )

(defmethod go-hostile ((this mh-wasp))
  (go (method-of-object this hostile))
  )

(defmethod go-best-state ((this mh-wasp))
  (go-hostile this)
  )

(defmethod enemy-common-post ((this mh-wasp))
  (seek! (-> this gun-x-angle) (-> this gun-x-angle-final) (* 21845.334 (seconds-per-frame)))
  ((method-of-type hover-enemy enemy-common-post) this)
  (none)
  )

(defstate ambush (mh-wasp)
  :virtual #t
  :enter (behavior ()
    (logior! (-> self enemy-flags) (enemy-flag alert))
    (logior! (-> self enemy-flags) (enemy-flag cam-attack-mode))
    (hover-enemy-method-159 self #f)
    (set-time! (-> self scale-timer))
    (cond
      ((not (logtest? (-> self fact enemy-options) (enemy-option user0)))
       (logclear! (-> self enemy-flags) (enemy-flag vulnerable))
       (hover-enemy-method-162 self 0.0)
       )
      (else
        (hover-enemy-method-162 self 1.0)
        )
      )
    (hover-enemy-method-165 self)
    (set-time! (-> self state-time))
    )
  :trans (behavior ()
    (when (and (not (logtest? (-> self fact enemy-options) (enemy-option user0)))
               (time-elapsed? (-> self state-time) (seconds 2))
               )
      (hover-enemy-method-161 self)
      (go-virtual hostile)
      )
    )
  :code hover-enemy-fly-code
  :post (behavior ()
    (local-vars (v1-19 enemy-flag))
    (when (not (logtest? (-> self fact enemy-options) (enemy-option user0)))
      (let ((f0-1 (the float (- (current-time) (-> self scale-timer))))
            (f1-0 600.0)
            )
        (when (< f0-1 f1-0)
          (let ((f30-0 (fmin 1.0 (/ (+ 30.0 f0-1) f1-0))))
            (hover-enemy-method-162 self f30-0)
            (when (and (not (logtest? (-> self enemy-flags) (enemy-flag vulnerable))) (>= f30-0 1.0))
              (let ((v1-18 (-> self enemy-flags)))
                (if (logtest? v1-18 (enemy-flag vulnerable-backup))
                    (set! v1-19 (logior v1-18 (enemy-flag vulnerable)))
                    (set! v1-19 (logclear v1-18 (enemy-flag vulnerable)))
                    )
                )
              (set! (-> self enemy-flags) v1-19)
              )
            )
          )
        )
      )
    (set! (-> self last-fire-time) (+ (current-time) (seconds -1.5)))
    (hover-enemy-hostile-post)
    )
  )

(defstate notice (mh-wasp)
  :virtual #t
  :post (behavior ()
    (let ((t9-0 (-> (method-of-type hover-enemy notice) post)))
      (if t9-0
          ((the-as (function none) t9-0))
          )
      )
    (set! (-> self last-fire-time) (+ (current-time) (seconds -1.5)))
    )
  )

(defstate hostile (mh-wasp)
  :virtual #t
  :trans (behavior ()
    (let ((gp-0 (ja-group))
          (f0-0 (ja-aframe-num 0))
          )
      (when (and (= gp-0 neo-wasp-idle-ja)
                 (or (and (>= f0-0 0.0) (>= 1.0 f0-0))
                     (and (>= f0-0 16.0)
                          (>= (the float (+ (-> (the-as art-joint-anim neo-wasp-idle-ja) frames num-frames) -1)) (ja-frame-num 0))
                          )
                     )
                 )
        (if (and (time-elapsed?
                   (-> self last-fire-time)
                   (the int (* 300.0 (rand-vu-float-range (-> self attack-wait-min) (-> self attack-wait-max))))
                   )
                 (get-focus! self)
                 )
            (go-virtual attack)
            )
        )
      )
    )
  )

(defstate attack (mh-wasp)
  :virtual #t
  :event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
    (case message
      (('event-attack)
       (let ((gp-0 (new 'stack-no-clear 'projectile-init-by-other-params)))
         (set! (-> gp-0 ent) (-> self entity))
         (set! (-> gp-0 charge) 1.0)
         (set! (-> gp-0 options) (projectile-options))
         (logclear! (-> gp-0 options) (projectile-options po14 po15 po16))
         (set! (-> gp-0 notify-handle) (the-as handle #f))
         (set! (-> gp-0 owner-handle) (the-as handle #f))
         (set! (-> gp-0 target-handle) (the-as handle #f))
         (set! (-> gp-0 target-pos quad) (the-as uint128 0))
         (set! (-> gp-0 ignore-handle) (process->handle self))
         (let* ((v1-9 *game-info*)
                (a0-7 (+ (-> v1-9 attack-id) 1))
                )
           (set! (-> v1-9 attack-id) a0-7)
           (set! (-> gp-0 attack-id) a0-7)
           )
         (set! (-> gp-0 timeout) (seconds 4))
         (fire-shot self gp-0 19 17 -1.0)
         (fire-shot self gp-0 23 21 1.0)
         )
       (sound-play "wasp-fire" :position (-> self root trans))
       )
      (else
        (enemy-event-handler proc argc message block)
        )
      )
    )
  :enter (behavior ()
    (set-time! (-> self state-time))
    (set! (-> self attack-miss-dist-curr) (-> self attack-miss-dist-min))
    )
  :code (behavior ()
    (ja-channel-push! 1 (seconds 0.2))
    (sound-play "wasp-warn" :position (-> self root trans))
    (ja-no-eval :group! (-> self draw art-group data (-> self hover-info shoot-anim))
                :num! (seek!)
                :frame-num 0.0
                )
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek!))
      )
    (set-time! (-> self last-fire-time))
    (set! (-> self restart-fly-anims) #t)
    (go-hostile self)
    )
  :post (behavior ()
    (let* ((a1-0 (-> self node-list data (-> self hover-info gun-base)))
           (a0-2 (vector<-cspace! (new 'stack-no-clear 'vector) a1-0))
           (gp-0 (new 'stack-no-clear 'vector))
           )
      (let ((v1-4 (new 'stack-no-clear 'vector)))
        (set! (-> v1-4 quad) (-> self focus-pos quad))
        (+! (-> v1-4 y) (-> self attack-miss-dist-curr))
        (vector-! gp-0 v1-4 a0-2)
        )
      (vector-normalize! gp-0 1.0)
      (set! (-> self gun-x-angle-final) (- (vector-x-angle gp-0)))
      )
    (quaternion-vector-angle! (-> self gun-jmod rotation) *x-vector* (-> self gun-x-angle))
    (seek!
      (-> self attack-miss-dist-curr)
      (-> self attack-miss-dist-max)
      (* 0.5 (seconds-per-frame) (- (-> self attack-miss-dist-max) (-> self attack-miss-dist-min)))
      )
    (hover-enemy-hostile-post)
    )
  )

(defstate knocked-recover (mh-wasp)
  :virtual #t
  :event enemy-event-handler
  :code (behavior ()
    (local-vars (v1-35 enemy-flag) (v1-37 enemy-flag) (v1-39 enemy-flag))
    (ja-channel-push! 1 (seconds 0.5))
    (ja-no-eval :group! (-> self draw art-group data (-> self knocked-recover-anim)) :num! (seek!) :frame-num 0.0)
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek!))
      )
    (set! (-> self restart-fly-anims) #t)
    (if (logtest? (-> self enemy-flags) (enemy-flag dangerous-backup))
        (logior! (-> self focus-status) (focus-status dangerous))
        (logclear! (-> self focus-status) (focus-status dangerous))
        )
    (let ((v1-34 (-> self enemy-flags)))
      (if (logtest? v1-34 (enemy-flag vulnerable-backup))
          (set! v1-35 (logior v1-34 (enemy-flag vulnerable)))
          (set! v1-35 (logclear v1-34 (enemy-flag vulnerable)))
          )
      )
    (set! (-> self enemy-flags) v1-35)
    (let ((v1-36 (-> self enemy-flags)))
      (if (logtest? v1-36 (enemy-flag attackable-backup))
          (set! v1-37 (logior v1-36 (enemy-flag attackable)))
          (set! v1-37 (logclear v1-36 (enemy-flag attackable)))
          )
      )
    (set! (-> self enemy-flags) v1-37)
    (let ((v1-38 (-> self enemy-flags)))
      (if (logtest? (enemy-flag trackable-backup) v1-38)
          (set! v1-39 (logior (enemy-flag trackable) v1-38))
          (set! v1-39 (logclear v1-38 (enemy-flag trackable)))
          )
      )
    (set! (-> self enemy-flags) v1-39)
    (logclear! (-> self enemy-flags) (enemy-flag lock-focus))
    (logclear! (-> self focus-status) (focus-status hit))
    (hover-nav-control-method-20 (-> self hover))
    (go-hostile self)
    )
  )

(defstate die-explode (mh-wasp)
  :virtual #t
  :event enemy-event-handler
  :code (behavior ()
    (on-dying self)
    (set! (-> self hit-points) 0.0)
    (let ((v1-3 (-> self root root-prim)))
      (set! (-> v1-3 prim-core collide-as) (collide-spec))
      (set! (-> v1-3 prim-core collide-with) (collide-spec))
      )
    0
    (logior! (-> self draw status) (draw-control-status no-draw))
    (sound-stop (-> self sound-id))
    (sound-play "wasp-explode")
    (let ((gp-1 (new 'stack 'joint-exploder-tuning (the-as uint 0))))
      (process-spawn
        joint-exploder
        (art-group-get-by-name *level* "skel-mh-wasp-explode" (the-as (pointer level) #f))
        22
        gp-1
        *mh-wasp-exploder-params*
        :name "joint-exploder"
        :to self
        )
      )
    (cond
      ((logtest? (-> *part-group-id-table* 1530 flags) (sp-group-flag sp13))
       (set! (-> *launch-matrix* trans quad) (-> self root trans quad))
       (part-tracker-spawn part-tracker-subsampler :to self :group (-> *part-group-id-table* 1530))
       )
      (else
        (set! (-> *launch-matrix* trans quad) (-> self root trans quad))
        (part-tracker-spawn part-tracker :to self :group (-> *part-group-id-table* 1530))
        )
      )
    (while (-> self child)
      (suspend)
      )
    (cleanup-for-death self)
    )
  )

(defstate die-now (mh-wasp)
  :virtual #t
  :event enemy-event-handler
  :code (behavior ()
    (on-dying self)
    (let ((v1-3 (-> self root root-prim)))
      (set! (-> v1-3 prim-core collide-as) (collide-spec))
      (set! (-> v1-3 prim-core collide-with) (collide-spec))
      )
    0
    (set! (-> self hit-points) 0.0)
    (do-effect (-> self skel effect) (the-as string 'death-default) 0.0 -1)
    (let ((gp-0 (current-time)))
      (until (time-elapsed? gp-0 (seconds 1))
        (suspend)
        )
      )
    (send-event self 'death-end)
    (cleanup-for-death self)
    )
  :post transform-post
  )

(defmethod get-focus! ((this mh-wasp))
  (let ((s5-0 (the-as process-focusable (handle->process (-> this focus handle)))))
    (when s5-0
      (let* ((a0-4 (-> this root))
             (s4-1 (vector+! (new 'stack-no-clear 'vector) (-> a0-4 trans) (-> a0-4 transv)))
             (s3-1 (vector-! (new 'stack-no-clear 'vector) s4-1 (-> this focus-pos)))
             (s2-1 (vector-z-quaternion! (new 'stack-no-clear 'vector) (get-quat s5-0 0)))
             (s3-2 (vector-normalize-copy! (new 'stack-no-clear 'vector) s3-1 1.0))
             )
        (if (and (and s5-0 (not (logtest? (-> s5-0 focus-status) (focus-status disable dead ignore grabbed))))
                 (< 0.0 (vector-dot s2-1 s3-2))
                 (< (vector-vector-distance s4-1 (-> this focus-pos)) 225280.0)
                 (and (< (fabs (vector-x-angle s3-2)) 3640.889) (enemy-method-104 this (-> this focus-pos) 5461.3335))
                 )
            s5-0
            )
        )
      )
    )
  )

(defmethod knocked-anim ((this mh-wasp) (arg0 enemy-knocked-info))
  (cond
    ((rnd-chance? this 0.5)
     (set! (-> this knocked-anim) 10)
     (set! (-> this knocked-recover-anim) 11)
     )
    (else
      (set! (-> this knocked-anim) 12)
      (set! (-> this knocked-recover-anim) 13)
      )
    )
  (ja-channel-push! 1 0)
  (let ((a1-3 (-> this draw art-group data (-> this knocked-anim)))
        (a0-5 (-> this skel root-channel 0))
        )
    (set! (-> a0-5 frame-group) (the-as art-joint-anim a1-3))
    (set! (-> a0-5 param 0) (the float (+ (-> (the-as art-joint-anim a1-3) frames num-frames) -1)))
    (set! (-> a0-5 param 1) (-> arg0 anim-speed))
    (set! (-> a0-5 frame-num) 0.0)
    (joint-control-channel-group! a0-5 (the-as art-joint-anim a1-3) num-func-seek!)
    )
  #t
  )

(defmethod knocked-land-anim ((this mh-wasp) (arg0 enemy-knocked-info))
  (let ((v1-4 (-> this draw art-group data (-> this enemy-info knocked-land-anim)))
        (a0-3 (-> this skel root-channel 0))
        )
    (set! (-> a0-3 frame-group) (the-as art-joint-anim v1-4))
    (set! (-> a0-3 param 0) (the float (+ (-> (the-as art-joint-anim v1-4) 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 v1-4) num-func-seek!)
    )
  #t
  )

(defmethod enemy-method-88 ((this mh-wasp) (arg0 enemy-knocked-info))
  (-> this root)
  (>= (-> arg0 on-surface-count) 1)
  )

(defmethod within-gspot-range? ((this mh-wasp))
  #f
  )

(defmethod go-die ((this mh-wasp))
  (cond
    ((and (-> this next-state) (= (-> this next-state name) 'knocked))
     (go (method-of-object this die-now))
     )
    ((-> this enemy-info use-die-falling)
     (go (method-of-object this die-falling))
     )
    (else
      (go (method-of-object this die))
      )
    )
  )

(defmethod fire-shot ((this mh-wasp) (arg0 projectile-init-by-other-params) (arg1 int) (arg2 int) (arg3 float))
  (vector<-cspace! (-> arg0 pos) (-> this node-list data arg1))
  (let ((s3-1
          (quaternion-vector-angle!
            (new 'stack-no-clear 'quaternion)
            (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> this node-list data arg1 bone transform uvec) 1.0)
            (* 273.06668 arg3)
            )
          )
        (a1-8
          (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> this node-list data arg1 bone transform fvec) 1.0)
          )
        )
    (vector-orient-by-quat! (-> arg0 vel) a1-8 s3-1)
    )
  (vector-normalize! (-> arg0 vel) 491520.0)
  (spawn-projectile mh-wasp-shot arg0 this *default-dead-pool*)
  0
  (none)
  )

(defmethod hover-enemy-method-163 ((this mh-wasp))
  (let ((s4-0 (-> this main-joint-movement 1))
        (s5-0 (-> this main-joint-movement 2))
        (gp-0
          (lambda ((arg0 mh-wasp) (arg1 cspace) (arg2 float) (arg3 float) (arg4 vector) (arg5 vector) (arg6 int))
            (local-vars (sv-192 float) (sv-208 vector) (sv-224 vector))
            (set! sv-192 arg2)
            (let ((s0-0 arg3))
              (set! sv-224 arg4)
              (let ((s1-0 arg5)
                    (s3-0 arg6)
                    (s4-0 (vector<-cspace! (new 'stack-no-clear 'vector) arg1))
                    (s5-0 (new 'stack-no-clear 'matrix))
                    (a1-3 (matrix-with-scale->quaternion (new 'stack-no-clear 'quaternion) (-> arg1 bone transform)))
                    )
                (set! sv-208 (new 'stack-no-clear 'vector))
                (let ((s2-1 (new 'stack-no-clear 'vector)))
                  (-> arg0 scale)
                  (quaternion-rotate-local-z! (the-as quaternion sv-208) a1-3 sv-192)
                  (quaternion->matrix s5-0 (the-as quaternion sv-208))
                  (set! (-> s2-1 quad) (-> arg0 root scale quad))
                  (scale-matrix! s5-0 s2-1 s5-0)
                  (let* ((s1-1 (vector-inv-orient-by-quat! (new 'stack-no-clear 'vector) s1-0 (-> arg0 root quat)))
                         (t9-6 vector-inv-orient-by-quat!)
                         (a0-10 (new 'stack-no-clear 'vector))
                         (a2-4 (-> arg0 root quat))
                         (v0-6 (t9-6 a0-10 sv-224 a2-4))
                         (f30-0 (* 1638400.0 (seconds-per-frame)))
                         (f28-0
                           (seek
                             (-> arg0 thrust s3-0)
                             (+ (* 0.4 (fmax 0.0 (* (-> v0-6 x) s0-0)))
                                (fmax 0.0 (-> v0-6 y))
                                (fabs (* 0.2 (-> v0-6 z)))
                                (fmax 0.0 (-> s1-1 y))
                                )
                             (* 0.2 f30-0)
                             )
                           )
                         )
                    (let ((f20-0 (lerp-scale 819.2 4096.0 f28-0 1638.4 f30-0))
                          (f26-0 (lerp-scale 4915.2 11468.8 f28-0 1638.4 f30-0))
                          )
                      (lerp-scale 0.0 -4915.2 f28-0 1638.4 f30-0)
                      (let ((f22-0 (lerp-scale 0.5 1.5 f28-0 1638.4 f30-0))
                            (f24-0 (lerp-scale 0.1 1.0 f28-0 1638.4 f30-0))
                            )
                        (lerp-scale 0.1 1.0 f28-0 1638.4 f30-0)
                        (let ((f1-10 (lerp-scale 0.02 0.6 f28-0 1638.4 f30-0))
                              (f2-6 (fmin 1.0 (-> s2-1 x)))
                              (f0-15 (fmin 1.0 (-> s2-1 y)))
                              )
                          (set! (-> *part-id-table* 5029 init-specs 4 initial-valuef) (* f20-0 f2-6))
                          (set! (-> *part-id-table* 5029 init-specs 5 initial-valuef) (* f26-0 f0-15))
                          (set! (-> *part-id-table* 5033 init-specs 3 initial-valuef) (* f22-0 f2-6))
                          (set! (-> *part-id-table* 5030 init-specs 1 initial-valuef) (* f24-0 f0-15))
                          (set! (-> *part-id-table* 5031 init-specs 1 initial-valuef) (* f1-10 f0-15))
                          (set! (-> *part-id-table* 5032 init-specs 0 initial-valuef) (* f24-0 f0-15))
                          (set! (-> arg0 thrust s3-0) f28-0)
                          (let ((f0-16 (* f26-0 f0-15)))
                            (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> s5-0 uvec) (* -0.5 f0-16))
                            )
                          )
                        )
                      )
                    (set! (-> s5-0 trans quad) (-> s4-0 quad))
                    (spawn-from-mat (-> arg0 engine-part) s5-0)
                    (let ((f0-18 (lerp-scale 0.75 1.0 f28-0 1638.4 f30-0)))
                      (sound-play-by-name
                        (static-sound-name "wasp-jets")
                        (-> arg0 sound-id)
                        (the int (* 1024.0 f0-18))
                        0
                        0
                        (sound-group)
                        (-> arg0 root trans)
                        )
                      )
                    )
                  )
                )
              )
            0
            (none)
            )
          )
        )
    (gp-0
      this
      (-> this node-list data (-> this hover-info engine-left))
      (-> this hover-info thrust-rotate-left)
      -1.0
      s5-0
      s4-0
      0
      )
    (gp-0
      this
      (-> this node-list data (-> this hover-info engine-right))
      (-> this hover-info thrust-rotate-right)
      1.0
      s5-0
      s4-0
      1
      )
    )
  0
  (none)
  )

(defmethod init-enemy-collision! ((this mh-wasp))
  (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 10) 0)))
      (set! (-> s5-0 total-prims) (the-as uint 11))
      (set! (-> s4-0 prim-core collide-as) (collide-spec enemy))
      (set! (-> s4-0 prim-core collide-with) (collide-spec backgnd enemy obstacle hit-by-others-list))
      (set! (-> s4-0 prim-core action) (collide-action solid))
      (set! (-> s4-0 transform-index) 3)
      (set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 15564.8)
      (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 enemy obstacle hit-by-others-list))
      (set! (-> v1-14 prim-core action) (collide-action solid))
      (set! (-> v1-14 transform-index) 0)
      (set-vector! (-> v1-14 local-sphere) 0.0 5324.8 -2048.0 6144.0)
      )
    (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 backgnd enemy obstacle hit-by-others-list))
      (set! (-> v1-16 prim-core action) (collide-action solid))
      (set! (-> v1-16 transform-index) 0)
      (set-vector! (-> v1-16 local-sphere) 0.0 3276.8 -2048.0 4915.2)
      )
    (let ((v1-18 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-18 prim-core collide-as) (collide-spec enemy))
      (set! (-> v1-18 prim-core collide-with) (collide-spec backgnd enemy obstacle hit-by-others-list))
      (set! (-> v1-18 prim-core action) (collide-action solid))
      (set! (-> v1-18 transform-index) 0)
      (set-vector! (-> v1-18 local-sphere) 0.0 7372.8 -2048.0 4915.2)
      )
    (let ((v1-20 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-20 prim-core collide-as) (collide-spec enemy))
      (set! (-> v1-20 prim-core action) (collide-action semi-solid))
      (set! (-> v1-20 transform-index) 3)
      (set-vector! (-> v1-20 local-sphere) 0.0 0.0 1228.8 3481.6)
      )
    (let ((v1-22 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-22 prim-core collide-as) (collide-spec enemy))
      (set! (-> v1-22 prim-core action) (collide-action semi-solid))
      (set! (-> v1-22 transform-index) 7)
      (set-vector! (-> v1-22 local-sphere) 0.0 0.0 0.0 3072.0)
      )
    (let ((v1-24 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-24 prim-core collide-as) (collide-spec enemy))
      (set! (-> v1-24 prim-core action) (collide-action semi-solid))
      (set! (-> v1-24 transform-index) 9)
      (set-vector! (-> v1-24 local-sphere) 0.0 1638.4 0.0 2048.0)
      )
    (let ((v1-26 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-26 prim-core collide-as) (collide-spec enemy))
      (set! (-> v1-26 prim-core action) (collide-action semi-solid))
      (set! (-> v1-26 transform-index) 10)
      (set-vector! (-> v1-26 local-sphere) -819.2 0.0 0.0 1638.4)
      )
    (let ((v1-28 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-28 prim-core collide-as) (collide-spec enemy))
      (set! (-> v1-28 prim-core action) (collide-action semi-solid))
      (set! (-> v1-28 transform-index) 12)
      (set-vector! (-> v1-28 local-sphere) 0.0 -1638.4 0.0 2048.0)
      )
    (let ((v1-30 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-30 prim-core collide-as) (collide-spec enemy))
      (set! (-> v1-30 prim-core action) (collide-action semi-solid))
      (set! (-> v1-30 transform-index) 13)
      (set-vector! (-> v1-30 local-sphere) 819.2 0.0 0.0 1638.4)
      )
    (let ((v1-32 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-32 prim-core collide-as) (collide-spec enemy))
      (set! (-> v1-32 prim-core action) (collide-action semi-solid))
      (set! (-> v1-32 transform-index) 15)
      (set-vector! (-> v1-32 local-sphere) 0.0 0.0 0.0 3072.0)
      )
    (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
    (let ((v1-35 (-> s5-0 root-prim)))
      (set! (-> s5-0 backup-collide-as) (-> v1-35 prim-core collide-as))
      (set! (-> s5-0 backup-collide-with) (-> v1-35 prim-core collide-with))
      )
    (set! (-> s5-0 max-iteration-count) (the-as uint 3))
    (set! (-> this root) s5-0)
    )
  0
  (none)
  )

(defmethod deactivate ((this mh-wasp))
  "Make a process dead, clean it up, remove it from the active pool, and return to dead pool."
  (if (nonzero? (-> this smoke-part))
      (kill-particles (-> this smoke-part))
      )
  (if (nonzero? (-> this engine-part))
      (kill-particles (-> this engine-part))
      )
  (sound-stop (-> this sound-id))
  ((method-of-type hover-enemy deactivate) this)
  (none)
  )

;; WARN: Return type mismatch hover-enemy vs mh-wasp.
(defmethod relocate ((this mh-wasp) (offset int))
  (if (nonzero? (-> this smoke-part))
      (&+! (-> this smoke-part) offset)
      )
  (if (nonzero? (-> this engine-part))
      (&+! (-> this engine-part) offset)
      )
  (the-as mh-wasp ((method-of-type hover-enemy relocate) this offset))
  )

(defmethod hover-enemy-method-170 ((this mh-wasp))
  (initialize-skeleton
    this
    (the-as skeleton-group (art-group-get-by-name *level* "skel-mh-wasp" (the-as (pointer level) #f)))
    (the-as pair 0)
    )
  0
  (none)
  )

(defmethod get-enemy-info ((this mh-wasp))
  *mh-wasp-enemy-info*
  )

(defmethod get-hover-info ((this mh-wasp))
  (new 'static 'hover-enemy-info
    :fly-forward-anim 7
    :fly-backward-anim 8
    :fly-left-anim 6
    :fly-right-anim 5
    :shoot-anim 9
    :main-joint 3
    :gun-base 15
    :engine-left 10
    :engine-right 13
    :thrust-rotate-left 16384.0
    :thrust-rotate-right -16384.0
    :hover-y-offset 26624.0
    :hover-xz-offset 61440.0
    :use-flying-death #f
    :fly-x-anim-seek 1.3
    :fly-z-anim-seek 1.3
    )
  )

(defmethod get-hover-params ((this mh-wasp))
  (new 'static 'hover-nav-params
    :max-speed 57344.0
    :max-acceleration 81920.0
    :max-rotation-rate 14563.556
    :friction 0.05
    )
  )

(defmethod init-enemy! ((this mh-wasp))
  (local-vars (sv-16 res-tag) (sv-32 res-tag) (sv-48 res-tag) (sv-64 res-tag))
  (hover-enemy-method-170 this)
  (init-enemy-defaults! this (get-enemy-info this))
  (hover-enemy-method-176 this)
  (set! (-> this neck up) (the-as uint 1))
  (set! (-> this neck nose) (the-as uint 2))
  (set! (-> this neck ear) (the-as uint 0))
  (set! (-> this scale) (rnd-float-range this 0.9 1.3))
  (set! (-> this sound-id) (new-sound-id))
  (set! (-> this root dynam gravity y) 327680.0)
  (set! (-> this root dynam gravity-length) 327680.0)
  (set! (-> this root dynam gravity-max) 327680.0)
  (init (-> this gun-jmod) this (the-as uint (-> this hover-info gun-base)) (joint-mod-base-flags attached))
  (set! (-> this gun-x-angle) 0.0)
  (set! (-> this gun-x-angle-final) 0.0)
  (logclear! (-> this mask) (process-mask actor-pause))
  (logclear! (-> this enemy-flags) (enemy-flag actor-pause-backup))
  (set! sv-16 (new 'static 'res-tag))
  (let ((v1-29 (res-lump-data (-> this entity) 'actor-groups pointer :tag-ptr (& sv-16))))
    (if (and v1-29 (= (-> sv-16 elt-count) 1))
        (set! (-> this entity-group) (the-as actor-group (-> (the-as (pointer uint32) v1-29))))
        (set! (-> this entity-group) #f)
        )
    )
  (set! sv-32 (new 'static 'res-tag))
  (let ((v1-33 (res-lump-data (-> this entity) 'timeout (pointer float) :tag-ptr (& sv-32))))
    (cond
      ((and v1-33 (= (-> sv-32 elt-count) 2))
       (set! (-> this attack-wait-min) (-> v1-33 0))
       (set! (-> this attack-wait-max) (-> v1-33 1))
       )
      (else
        (set! (-> this attack-wait-min) 1.0)
        (set! (-> this attack-wait-max) 3.0)
        )
      )
    )
  (let ((f30-0 4096.0))
    (set! sv-48 (new 'static 'res-tag))
    (let ((v1-40 (res-lump-data (-> this entity) 'min-max pointer :tag-ptr (& sv-48))))
      (set! (-> this attack-miss-dist-min) (* f30-0 (if (and v1-40 (> (the-as int (-> sv-48 elt-count)) 0))
                                                        (-> (the-as (pointer float) v1-40))
                                                        -1.0
                                                        )
                                              )
            )
      )
    )
  (let ((f30-1 4096.0))
    (set! sv-64 (new 'static 'res-tag))
    (let ((v1-44 (res-lump-data (-> this entity) 'min-max (pointer float) :tag-ptr (& sv-64))))
      (set! (-> this attack-miss-dist-max) (* f30-1 (if (and v1-44 (< 1 (the-as int (-> sv-64 elt-count))))
                                                        (-> v1-44 1)
                                                        1.0
                                                        )
                                              )
            )
      )
    )
  (set! (-> this path) (new 'process 'path-control this 'intro 0.0 (-> this entity) #f))
  (set! (-> this path-u) 0.0)
  (logior! (-> this path flags) (path-control-flag display draw-line draw-point draw-text))
  (set! (-> this smoke-part) (create-launch-control (-> *part-group-id-table* 1527) this))
  (set! (-> this engine-part) (create-launch-control (-> *part-group-id-table* 1529) this))
  (add-connection
    *part-engine*
    this
    7
    this
    468
    (new 'static 'vector :x 1187.84 :y -3112.96 :z 1392.64 :w 163840.0)
    )
  (add-connection
    *part-engine*
    this
    7
    this
    468
    (new 'static 'vector :x -1187.84 :y -3112.96 :z 1392.64 :w 163840.0)
    )
  (add-connection *part-engine* this 7 this 2204 (new 'static 'vector :y 1433.6 :z 1228.8 :w 163840.0))
  0
  (none)
  )