jak-project/test/decompiler/reference/jak1/levels/sunken/bully_REF.gc

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

;; definition of type bully-broken-cage
(deftype bully-broken-cage (process-drawable)
  ((parent-override  (pointer bully)  :overlay-at parent)
   )
  (:states
    bully-broken-cage-explode
    )
  )

;; definition for method 3 of type bully-broken-cage
(defmethod inspect ((this bully-broken-cage))
  (let ((t9-0 (method-of-type process-drawable inspect)))
    (t9-0 this)
    )
  this
  )

;; definition of type bully
(deftype bully (process-drawable)
  ((root             collide-shape-moving :override)
   (fact             fact-info-enemy      :override)
   (hit-player?      symbol)
   (bounced?         symbol)
   (bounce-volume    int32)
   (facing-ry        float)
   (travel-ry        float)
   (speed-u          float)
   (spin-vel         float)
   (travel-speed     float)
   (reaction-delay   time-frame)
   (start-spin-time  time-frame)
   (slow-down        time-frame)
   (hit-player-time  time-frame)
   (neck             joint-mod)
   )
  (:methods
    (bully-method-20 (_type_) float)
    )
  (:states
    bully-die
    (bully-idle symbol)
    bully-notice
    bully-start-spinning
    bully-stop-spinning
    )
  )

;; definition for method 3 of type bully
(defmethod inspect ((this bully))
  (let ((t9-0 (method-of-type process-drawable inspect)))
    (t9-0 this)
    )
  (format #t "~T~Thit-player?: ~A~%" (-> this hit-player?))
  (format #t "~T~Tbounced?: ~A~%" (-> this bounced?))
  (format #t "~T~Tbounce-volume: ~D~%" (-> this bounce-volume))
  (format #t "~T~Tfacing-ry: ~f~%" (-> this facing-ry))
  (format #t "~T~Ttravel-ry: ~f~%" (-> this travel-ry))
  (format #t "~T~Tspeed-u: ~f~%" (-> this speed-u))
  (format #t "~T~Tspin-vel: ~f~%" (-> this spin-vel))
  (format #t "~T~Ttravel-speed: ~f~%" (-> this travel-speed))
  (format #t "~T~Treaction-delay: ~D~%" (-> this reaction-delay))
  (format #t "~T~Tstart-spin-time: ~D~%" (-> this start-spin-time))
  (format #t "~T~Tslow-down: ~D~%" (-> this slow-down))
  (format #t "~T~Thit-player-time: ~D~%" (-> this hit-player-time))
  (format #t "~T~Tneck: ~A~%" (-> this neck))
  this
  )

;; failed to figure out what this is:
(defskelgroup *bully-sg* bully bully-lod0-jg bully-idle-ja
              ((bully-lod0-mg (meters 20)) (bully-lod1-mg (meters 40)) (bully-lod2-mg (meters 999999)))
              :bounds (static-spherem 0 1.5 0 3)
              :shadow bully-shadow-mg
              )

;; failed to figure out what this is:
(defskelgroup *bully-broken-cage-sg* bully bully-broken-cage-lod0-jg -1
              ((bully-broken-cage-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 2 0 6)
              )

;; definition for symbol *bully-shadow-control*, type shadow-control
(define *bully-shadow-control*
  (new 'static 'shadow-control :settings (new 'static 'shadow-settings
                                           :flags (shadow-flags shdf00 shdf03)
                                           :shadow-dir (new 'static 'vector :y -1.0 :w 614400.0)
                                           :bot-plane (new 'static 'plane :y 1.0 :w 10240.0)
                                           :top-plane (new 'static 'plane :y 1.0 :w -2048.0)
                                           :fade-dist 245760.0
                                           )
                               )
  )

;; failed to figure out what this is:
(defpartgroup group-bully-explode
  :id 454
  :flags (use-local-clock)
  :bounds (static-bspherem 0 0 0 8)
  :parts ((sp-item 2871) (sp-item 2872) (sp-item 2873) (sp-item 2874) (sp-item 2875))
  )

;; failed to figure out what this is:
(defpart 2871
  :init-specs ((:texture (bigpuff effects))
    (:num 16.0)
    (:y (meters 0.5) (meters 2))
    (:scale-x (meters 2.5) (meters 1.5))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 128.0 32.0)
    (:g 128.0 32.0)
    (:b 128.0 32.0)
    (:a 32.0 16.0)
    (:vel-y (meters 0.016666668) (meters 0.033333335))
    (:rotvel-z (degrees -1.2) (degrees 1.2))
    (:accel-y (meters 0.00066666666))
    (:timer (seconds 0.4))
    (:flags (bit2 bit12))
    (:next-time (seconds 0.1) (seconds 0.197))
    (:next-launcher 2876)
    (:conerot-x (degrees 70) (degrees 20))
    (:conerot-y (degrees 0) (degrees 360))
    )
  )

;; failed to figure out what this is:
(defpart 2876
  :init-specs ((:fade-a -1.0666667))
  )

;; failed to figure out what this is:
(defpart 2872
  :init-specs ((:texture (flare effects))
    (:num 4.0)
    (:y (meters 1.5))
    (:scale-x (meters 6) (meters 3))
    (:rot-x 4)
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y (meters 0.3) (meters 1))
    (:r 192.0)
    (:g 192.0)
    (:b 64.0 128.0)
    (:a 0.0)
    (:scalevel-x (meters 0.009765625))
    (:rotvel-z (degrees -0.15) (degrees 0.3))
    (:scalevel-y (meters 0.009765625))
    (:fade-a 2.1333334)
    (:timer (seconds 0.1))
    (:flags (bit2 bit3))
    (:next-time (seconds 0.05))
    (:next-launcher 2877)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 2877
  :init-specs ((:fade-a -2.1333334))
  )

;; failed to figure out what this is:
(defpart 2873
  :init-specs ((:texture (starflash effects))
    (:num 1.0)
    (:y (meters 1.5))
    (:scale-x (meters 12))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 196.0)
    (:g 196.0)
    (:b 196.0)
    (:a 48.0)
    (:timer (seconds 0.035))
    (:flags (bit2 bit3))
    )
  )

;; failed to figure out what this is:
(defpart 2874
  :init-specs ((:texture (crate-wood-01-splinter effects))
    (:num 16.0)
    (:x (meters -0.5) (meters 1))
    (:y (meters 0.25) (meters 1.5))
    (:z (meters -0.5) (meters 1))
    (:scale-x (meters 0.6) 2.0 (meters 0.6))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y (meters 0.3))
    (:r 160.0)
    (:g 160.0)
    (:b 160.0)
    (:a 128.0)
    (:vel-y (meters 0.06666667) (meters 0.06666667))
    (:rotvel-x (degrees 1.2))
    (:rotvel-y (degrees 2.4))
    (:rotvel-z (degrees 0) 2 (degrees 2.4))
    (:accel-y (meters -0.0033333334))
    (:friction 0.97)
    (:timer (seconds 0.5))
    (:flags (bit2 bit12))
    (:next-time (seconds 0.25))
    (:next-launcher 2878)
    (:conerot-x (degrees 40) (degrees 30))
    (:conerot-y (degrees 0) (degrees 360))
    )
  )

;; failed to figure out what this is:
(defpart 2878
  :init-specs ((:scalevel-x (meters -0.0033333334)) (:scalevel-y :copy scalevel-x) (:fade-a -3.4))
  )

;; failed to figure out what this is:
(defpart 2875
  :init-specs ((:texture (crate-metalbolt-splinter effects))
    (:num 16.5)
    (:x (meters -0.5) (meters 1))
    (:y (meters 0.25) (meters 1.5))
    (:z (meters -0.5) (meters 1))
    (:scale-x (meters 0.3) 1 (meters 1))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y (meters 0.3))
    (:r 100.0)
    (:g 100.0)
    (:b 100.0)
    (:a 128.0)
    (:vel-y (meters 0.06666667) (meters 0.06666667))
    (:rotvel-x (degrees 1.2))
    (:rotvel-y (degrees 2.4))
    (:rotvel-z (degrees 0) 3 (degrees 2.4))
    (:accel-y (meters -0.0033333334))
    (:friction 0.97)
    (:timer (seconds 0.5))
    (:flags (bit2 bit12))
    (:next-time (seconds 0.25))
    (:next-launcher 2878)
    (:conerot-x (degrees 40) (degrees 30))
    (:conerot-y (degrees 0) (degrees 360))
    )
  )

;; failed to figure out what this is:
(defstate bully-broken-cage-explode (bully-broken-cage)
  :code (behavior ()
    (ja-channel-push! 1 0)
    (ja-no-eval :group! bully-broken-cage-explode-ja :num! (seek!) :frame-num 0.0)
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek!))
      )
    )
  :post ja-post
  )

;; definition for function bully-broken-cage-init-by-other
;; INFO: Used lq/sq
;; INFO: Return type mismatch object vs none.
(defbehavior bully-broken-cage-init-by-other bully-broken-cage ((arg0 entity-actor))
  (set! (-> self entity) arg0)
  (set! (-> self root) (new 'process 'trsqv))
  (set! (-> self root trans quad) (-> self parent-override 0 root trans quad))
  (quaternion-copy! (-> self root quat) (-> self parent-override 0 root quat))
  (set! (-> self root scale quad) (-> self parent-override 0 root scale quad))
  (initialize-skeleton self *bully-broken-cage-sg* '())
  (go bully-broken-cage-explode)
  (none)
  )

;; definition for function bully-default-event-handler
;; INFO: Used lq/sq
;; WARN: disable def twice: 148. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
(defbehavior bully-default-event-handler bully ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
  (local-vars (v0-0 object))
  (case arg2
    (('touch 'touched 'attack)
     (cond
       ((= (-> arg0 type) bully)
        (let ((v1-3 (new 'stack-no-clear 'vector)))
          (vector-! v1-3 (-> self root trans) (-> (the-as process-drawable arg0) root trans))
          (set! (-> self travel-ry) (atan (-> v1-3 x) (-> v1-3 z)))
          )
        (set! (-> self bounced?) #t)
        (set! v0-0 100)
        (set! (-> self bounce-volume) (the-as int v0-0))
        v0-0
        )
       ((= (-> arg0 type) target)
        (cond
          ((= (-> arg3 param 1) 'flop)
           (go bully-die)
           (return #t)
           v0-0
           )
          ((or (= arg2 'touch) (= arg2 'attack))
           (cond
             ((>= (- (-> (target-pos 0) y) (-> self root trans y)) 6144.0)
              (let* ((f0-6 (fmax 0.6 (* 0.000023935356 (-> self travel-speed))))
                     (f28-0 (* 8192.0 f0-6))
                     (f30-0 (* 8192.0 f0-6))
                     (s4-0 (new 'stack-no-clear 'vector))
                     )
                (vector-! s4-0 (target-pos 0) (-> self root trans))
                (let ((f26-0 (atan (-> s4-0 x) (-> s4-0 z))))
                  (when (< 0.0 (-> self travel-speed))
                    (let ((f0-11 (deg- f26-0 (-> self travel-ry))))
                      (if (< (fabs f0-11) 8192.0)
                          (set! f26-0 (if (>= f0-11 0.0)
                                          (+ 8192.0 f26-0)
                                          (+ -8192.0 f26-0)
                                          )
                                )
                          )
                      )
                    )
                  (set-vector! s4-0 (* (sin f26-0) f28-0) 0.0 (* (cos f26-0) f28-0) 1.0)
                  )
                (when (send-event arg0 'shove (-> arg3 param 0) (static-attack-info ((shove-up f30-0) (vector s4-0))))
                  (level-hint-spawn
                    (text-id sunken-bully-dive-hint)
                    "sksp0131"
                    (the-as entity #f)
                    *entity-pool*
                    (game-task none)
                    )
                  (set! (-> self bounced?) #t)
                  (set! v0-0 100)
                  (set! (-> self bounce-volume) (the-as int v0-0))
                  v0-0
                  )
                )
              )
             (else
               (let ((f0-21 (fmax 0.6 (* 0.000023935356 (-> self travel-speed)))))
                 (when (send-event
                         arg0
                         'attack
                         (-> arg3 param 0)
                         (static-attack-info ((shove-up (* 12288.0 f0-21)) (shove-back (* 16384.0 f0-21))))
                         )
                   (level-hint-spawn
                     (text-id sunken-bully-dive-hint)
                     "sksp0131"
                     (the-as entity #f)
                     *entity-pool*
                     (game-task none)
                     )
                   (set! (-> self hit-player?) #t)
                   (set! (-> self bounced?) #t)
                   (set! (-> self bounce-volume) 100)
                   (set-time! (-> self hit-player-time))
                   (set-collide-offense (-> self root) 2 (collide-offense no-offense))
                   )
                 )
               )
             )
           )
          )
        )
       (else
         (when (= arg2 'touched)
           (cond
             ((= (-> arg0 type) target)
              (send-event arg0 'attack (-> arg3 param 0) (static-attack-info ((mode 'explode))))
              )
             (else
               (let ((a1-14 (new 'stack-no-clear 'event-message-block)))
                 (set! (-> a1-14 from) self)
                 (set! (-> a1-14 num-params) 4)
                 (set! (-> a1-14 message) 'attack)
                 (set! (-> a1-14 param 0) (-> arg3 param 0))
                 (set! (-> a1-14 param 1) (the-as uint 'explode))
                 (let ((v1-48 (+ *global-attack-id* 1)))
                   (set! *global-attack-id* v1-48)
                   (set! (-> a1-14 param 2) (the-as uint v1-48))
                   )
                 (set! (-> a1-14 param 3) (the-as uint 0))
                 (send-event-function arg0 a1-14)
                 )
               )
             )
           )
         )
       )
     )
    )
  )

;; definition for function bully-post
;; INFO: Return type mismatch int vs none.
(defbehavior bully-post bully ()
  (when (and (-> self hit-player?)
             (or (not *target*)
                 (and (not (logtest? (-> *target* state-flags)
                                     (state-flags being-attacked invulnerable timed-invulnerable invuln-powerup do-not-notice dying)
                                     )
                           )
                      (time-elapsed? (-> self hit-player-time) (seconds 0.05))
                      )
                 )
             )
    (set-collide-offense (-> self root) 2 (collide-offense normal-attack))
    (set! (-> self hit-player?) #f)
    )
  (transform-post)
  (none)
  )

;; definition for method 20 of type bully
;; INFO: Used lq/sq
(defmethod bully-method-20 ((this bully))
  (local-vars (at-0 int))
  (rlet ((vf0 :class vf)
         (vf1 :class vf)
         (vf2 :class vf)
         )
    (init-vf0-vector)
    (set-vector!
      (-> this root transv)
      (* (sin (-> this travel-ry)) (-> this travel-speed))
      0.0
      (* (cos (-> this travel-ry)) (-> this travel-speed))
      1.0
      )
    (let ((s5-1 #f))
      (nav-control-method-28 (-> this nav) (collide-kind wall-object ground-object))
      (let ((v1-4 (-> this nav travel)))
        (.lvf vf1 (&-> (-> this root transv) quad))
        (let ((f0-8 (seconds-per-frame)))
          (.mov at-0 f0-8)
          )
        (.mov vf2 at-0)
        (.mov.vf.w vf1 vf0)
        (.mul.x.vf.xyz vf1 vf1 vf2)
        (.svf (&-> v1-4 quad) vf1)
        )
      (let ((s4-0 (new 'stack-no-clear 'check-vector-collision-with-nav-spheres-info)))
        (when (>= (nav-control-method-23 (-> this nav) (-> this nav travel) s4-0) 0.0)
          (let ((s5-2 (new 'stack-no-clear 'vector)))
            (set! (-> s5-2 quad) (-> s4-0 normal quad))
            (set! (-> s5-2 y) 0.0)
            (vector-normalize! s5-2 1.0)
            (vector-reflect! (-> this root transv) (-> this root transv) s5-2)
            )
          (set! (-> this travel-ry) (atan (-> this root transv x) (-> this root transv z)))
          (+! (-> this travel-ry) (rand-vu-float-range -910.2222 910.2222))
          (vector-reset! (-> this root transv))
          (set! s5-1 #t)
          (set! (-> this bounced?) #t)
          (set! (-> this bounce-volume) 100)
          )
        )
      (when (not s5-1)
        (vector-normalize-copy! (-> this nav travel) (-> this root transv) 2048.0)
        (let ((s5-3 (new 'stack 'clip-travel-vector-to-mesh-return-info)))
          (nav-control-method-24 (-> this nav) 2048.0 s5-3)
          (when (and (-> s5-3 found-boundary) (>= (* (-> this travel-speed) (seconds-per-frame))
                                                  (vector-vector-xz-distance (-> s5-3 intersection) (-> this root trans))
                                                  )
                     )
            (let ((s4-1 (new 'stack-no-clear 'vector)))
              (vector-negate! s4-1 (-> s5-3 boundary-normal))
              (set! (-> s4-1 y) 0.0)
              (vector-normalize! s4-1 1.0)
              (vector-reflect! (-> this root transv) (-> this root transv) s4-1)
              )
            (set! (-> this travel-ry) (atan (-> this root transv x) (-> this root transv z)))
            (+! (-> this travel-ry) (rand-vu-float-range -910.2222 910.2222))
            (vector-reset! (-> this root transv))
            #t
            (set! (-> this bounced?) #t)
            (set! (-> this bounce-volume) 60)
            )
          )
        )
      )
    (set! (-> this root transv y) (+ -36864.0 (-> this root transv y)))
    )
  )

;; failed to figure out what this is:
(defstate bully-idle (bully)
  :event bully-default-event-handler
  :enter (behavior ((arg0 symbol))
    (set-time! (-> self state-time))
    (set! (-> self reaction-delay) (rand-vu-int-range 0 (seconds 0.35)))
    (set! (-> self travel-speed) 0.0)
    (shut-down! (-> self neck))
    (let ((v1-5 (-> self draw shadow-ctrl)))
      (logior! (-> v1-5 settings flags) (shadow-flags disable-draw))
      )
    0
    )
  :exit (behavior ()
    (let ((v1-1 (-> self draw shadow-ctrl)))
      (logclear! (-> v1-1 settings flags) (shadow-flags disable-draw))
      )
    0
    )
  :trans (behavior ()
    (when (and (and *target*
                    (>= (-> self fact idle-distance) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
                    )
               (time-elapsed? (-> self state-time) (-> self reaction-delay))
               )
      (start-hint-timer (text-id sunken-bully-dive-hint))
      (go bully-notice)
      )
    )
  :code (behavior ((arg0 symbol))
    (ja-channel-push! 1 (seconds 0.075))
    (if arg0
        (ja :group! bully-idle-ja
            :num! (identity (rand-vu-float-range 0.0 (the float (+ (-> (ja-group) data 0 length) -1))))
            )
        (ja :group! bully-idle-ja :num! min)
        )
    (loop
      (suspend)
      (ja :num! (loop!))
      )
    )
  :post bully-post
  )

;; failed to figure out what this is:
(defstate bully-notice (bully)
  :event bully-default-event-handler
  :trans (behavior ()
    (when *target*
      (if *target*
          (look-at-enemy!
            (-> *target* neck)
            (-> (the-as collide-shape-prim-group (-> self root root-prim)) prims 0 prim-core world-sphere)
            'attacking
            self
            )
          )
      (set-target! (-> self neck) (target-pos 5))
      )
    )
  :code (behavior ()
    (set! (-> self travel-speed) 0.0)
    (ja-channel-push! 1 (seconds 0.075))
    (set-vector! (-> self root transv) 0.0 (rand-vu-float-range 61440.0 90112.0) 0.0 1.0)
    (ja-no-eval :group! bully-notice-jump-up-ja :num! (seek! (ja-aframe 13.0 0)) :frame-num 0.0)
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek! (ja-aframe 13.0 0)))
      )
    (until (logtest? (-> self root status) (cshape-moving-flags onsurf))
      (ja :num! (seek!))
      (+! (-> self root transv y) (* -545996.8 (seconds-per-frame)))
      (integrate-for-enemy-with-move-to-ground!
        (-> self root)
        (-> self root transv)
        (collide-kind background)
        12288.0
        #f
        #f
        #f
        )
      (when *target*
        (let ((gp-3 (new 'stack-no-clear 'vector)))
          (vector-! gp-3 (target-pos 0) (-> self root trans))
          (seek-toward-heading-vec! (-> self root) gp-3 524288.0 (seconds 0.1))
          )
        (set! (-> self facing-ry) (quaternion-y-angle (-> self root quat)))
        )
      (suspend)
      )
    (ja-no-eval :group! bully-notice-land-ja :num! (seek!) :frame-num 0.0)
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek!))
      )
    (go bully-start-spinning)
    )
  :post bully-post
  )

;; failed to figure out what this is:
(defstate bully-start-spinning (bully)
  :event bully-default-event-handler
  :enter (behavior ()
    (set-time! (-> self state-time))
    (set-time! (-> self start-spin-time))
    (set! (-> self slow-down) (rand-vu-int-range (seconds 4) (seconds 8)))
    (set! (-> self speed-u) 0.2)
    (set! (-> self bounced?) #f)
    (let ((gp-0 (new 'stack-no-clear 'vector)))
      (if *target*
          (vector-! gp-0 (target-pos 0) (-> self root trans))
          (vector-z-quaternion! gp-0 (-> self root quat))
          )
      (set! (-> self travel-ry) (atan (-> gp-0 x) (-> gp-0 z)))
      )
    (+! (-> self travel-ry) (rand-vu-float-range -910.2222 910.2222))
    )
  :trans (behavior ()
    (when *target*
      (if *target*
          (look-at-enemy!
            (-> *target* neck)
            (-> (the-as collide-shape-prim-group (-> self root root-prim)) prims 0 prim-core world-sphere)
            'attacking
            self
            )
          )
      (set-target! (-> self neck) (target-pos 5))
      )
    (cond
      ((time-elapsed? (-> self start-spin-time) (-> self slow-down))
       (seek! (-> self speed-u) 0.0 (* 0.5555556 (seconds-per-frame)))
       (if (= (-> self speed-u) 0.0)
           (go bully-stop-spinning)
           )
       )
      (else
        (seek! (-> self speed-u) 1.0 (* 0.5555556 (seconds-per-frame)))
        )
      )
    (set! (-> self spin-vel) (* 196608.0 (-> self speed-u)))
    (set! (-> self travel-speed) (* 41779.2 (-> self speed-u)))
    (+! (-> self facing-ry) (* (-> self spin-vel) (seconds-per-frame)))
    (quaternion-axis-angle! (-> self root quat) 0.0 1.0 0.0 (-> self facing-ry))
    (bully-method-20 self)
    (integrate-for-enemy-with-move-to-ground!
      (-> self root)
      (-> self root transv)
      (collide-kind background)
      8192.0
      #f
      #f
      #f
      )
    (nav-control-method-27 (-> self nav))
    )
  :code (behavior ()
    (local-vars (v1-34 symbol) (v1-52 symbol))
    (ja-channel-push! 1 (seconds 0.2))
    (ja-no-eval :group! bully-start-spin-ja :num! (seek!) :frame-num 0.0)
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek!))
      )
    (set! (-> self bounced?) #f)
    (ja-channel-push! 1 (seconds 0.2))
    (ja :group! bully-spin-ja :num! min)
    (loop
      (until v1-34
        (suspend)
        (ja :num! (seek!))
        (set! v1-34 (or (ja-done? 0) (-> self bounced?)))
        )
      (when (-> self bounced?)
        (sound-play "bully-bounce" :vol (the float (-> self bounce-volume)))
        (until (not (-> self bounced?))
          (set! (-> self bounced?) #f)
          (ja-channel-push! 1 (seconds 0.2))
          (ja :group! bully-idle-bounced-ja :num! min)
          (until v1-52
            (suspend)
            (ja :num! (seek!))
            (set! v1-52 (or (ja-done? 0) (-> self bounced?)))
            )
          )
        (ja-channel-push! 1 (seconds 0.2))
        )
      (ja :group! bully-spin-ja :num! min)
      )
    )
  :post bully-post
  )

;; failed to figure out what this is:
(defstate bully-stop-spinning (bully)
  :event bully-default-event-handler
  :enter (behavior ()
    (set-time! (-> self state-time))
    (set! (-> self reaction-delay) (rand-vu-int-range (seconds 2) (seconds 3)))
    (set! (-> self travel-speed) 0.0)
    (set! (-> self bounced?) #f)
    )
  :trans (behavior ()
    (when *target*
      (if *target*
          (look-at-enemy!
            (-> *target* neck)
            (-> (the-as collide-shape-prim-group (-> self root root-prim)) prims 0 prim-core world-sphere)
            'attacking
            self
            )
          )
      (set-target! (-> self neck) (target-pos 5))
      )
    )
  :code (behavior ()
    (local-vars (v1-17 symbol) (v1-35 symbol))
    (let ((gp-0 2))
      (ja-channel-push! 1 (seconds 0.2))
      (until (time-elapsed? (-> self state-time) (-> self reaction-delay))
        (cond
          ((>= gp-0 0)
           (+! gp-0 -1)
           (ja :group! bully-dizzy-ja :num! min)
           )
          (else
            (ja :group! bully-idle-ja :num! min)
            )
          )
        (until v1-17
          (suspend)
          (ja :num! (seek!))
          (set! v1-17 (or (ja-done? 0) (-> self bounced?)))
          )
        (when (-> self bounced?)
          (sound-play "bully-bounce" :vol (the float (-> self bounce-volume)))
          (set! gp-0 0)
          (until (not (-> self bounced?))
            (set! (-> self bounced?) #f)
            (ja-channel-push! 1 (seconds 0.2))
            (ja :group! bully-idle-bounced-ja :num! min)
            (until v1-35
              (suspend)
              (ja :num! (seek!))
              (set! v1-35 (or (ja-done? 0) (-> self bounced?)))
              )
            )
          (ja-channel-push! 1 (seconds 0.2))
          )
        )
      )
    (if (or (not *target*)
            (< (-> self fact idle-distance) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
            )
        (go bully-idle #f)
        )
    (go bully-start-spinning)
    )
  :post bully-post
  )

;; failed to figure out what this is:
(defstate bully-die (bully)
  :code (behavior ()
    (cleanup-for-death self)
    (shut-down! (-> self neck))
    (logclear! (-> self mask) (process-mask actor-pause))
    (process-spawn bully-broken-cage (-> self entity) :to self)
    (spawn (-> self part) (-> self root trans))
    (clear-collide-with-as (-> self root))
    (drop-pickup (-> self fact) #t *entity-pool* (-> self fact) 0)
    (ja-channel-push! 1 (seconds 0.075))
    (ja-no-eval :group! bully-die-ja :num! (seek!) :frame-num 0.0)
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek!))
      )
    (increment-success-for-hint (text-id sunken-bully-dive-hint))
    (logior! (-> self draw status) (draw-status hidden))
    (while (-> self child)
      (suspend)
      )
    )
  :post transform-post
  )

;; definition for method 7 of type bully
(defmethod relocate ((this bully) (offset int))
  (if (nonzero? (-> this neck))
      (&+! (-> this neck) offset)
      )
  (call-parent-method this offset)
  )

;; definition for method 11 of type bully
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! ((this bully) (arg0 entity-actor))
  (set! (-> this hit-player?) #f)
  (set! (-> this bounced?) #f)
  (set! (-> this bounce-volume) 100)
  (set! (-> this spin-vel) 0.0)
  (set! (-> this travel-speed) 0.0)
  (logior! (-> this mask) (process-mask enemy))
  (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) default-collision-reaction)
    (set! (-> s4-0 no-reaction)
          (the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
          )
    (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0)))
      (set! (-> s3-0 prim-core collide-as) (collide-kind enemy))
      (set! (-> s3-0 collide-with) (collide-kind cak-2 target crate enemy))
      (set! (-> s3-0 prim-core action) (collide-action solid attackable attackable-unused))
      (set! (-> s3-0 prim-core offense) (collide-offense normal-attack))
      (set-vector! (-> s3-0 local-sphere) 0.0 6144.0 0.0 10240.0)
      (set-root-prim! s4-0 s3-0)
      (let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 3))))
        (set! (-> s2-0 prim-core collide-as) (collide-kind enemy))
        (set! (-> s2-0 collide-with) (collide-kind cak-2 target crate enemy))
        (set! (-> s2-0 prim-core action) (collide-action solid attackable attackable-unused))
        (set! (-> s2-0 prim-core offense) (collide-offense normal-attack))
        (set-vector! (-> s2-0 local-sphere) 0.0 4096.0 0.0 6963.2)
        (append-prim s3-0 s2-0)
        )
      (let ((s2-1 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 3))))
        (set! (-> s2-1 prim-core collide-as) (collide-kind enemy))
        (set! (-> s2-1 collide-with) (collide-kind cak-2 target crate enemy))
        (set! (-> s2-1 prim-core action) (collide-action solid attackable attackable-unused))
        (set! (-> s2-1 prim-core offense) (collide-offense normal-attack))
        (set-vector! (-> s2-1 local-sphere) 0.0 9420.8 0.0 4096.0)
        (append-prim s3-0 s2-1)
        )
      )
    (set! (-> s4-0 nav-radius) 7680.0)
    (backup-collide-with-as s4-0)
    (set! (-> this root) s4-0)
    )
  (set! (-> this root event-self) 'touched)
  (set! (-> this root event-other) 'touch)
  (process-drawable-from-entity! this arg0)
  (initialize-skeleton this *bully-sg* '())
  (set! (-> this draw shadow-ctrl) *bully-shadow-control*)
  (set! (-> this nav) (new 'process 'nav-control (-> this root) 16 40960.0))
  (logior! (-> this nav flags) (nav-control-flags display-marks navcf3 navcf5 navcf6 navcf7))
  (set! (-> this part) (create-launch-control (-> *part-group-id-table* 454) this))
  (set! (-> this fact)
        (new 'process 'fact-info-enemy this (pickup-type eco-pill-random) (-> *FACT-bank* default-pill-inc))
        )
  (let ((v1-49 (new 'process 'joint-mod (joint-mod-handler-mode reset) this 5)))
    (set! (-> this neck) v1-49)
    (set-vector! (-> this neck twist-max) 8192.0 8192.0 0.0 1.0)
    (set! (-> v1-49 up) (the-as uint 1))
    (set! (-> v1-49 nose) (the-as uint 2))
    (set! (-> v1-49 ear) (the-as uint 0))
    (set! (-> v1-49 max-dist) 102400.0)
    (set! (-> v1-49 ignore-angle) 16384.0)
    )
  (transform-post)
  (if (not (move-to-ground (-> this root) 12288.0 40960.0 #t (collide-kind background)))
      (go process-drawable-art-error "no ground")
      )
  (set! (-> this facing-ry) (quaternion-y-angle (-> this root quat)))
  (go bully-idle #t)
  (none)
  )