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

;; definition for function find-adjacent-bounds-one
;; Used lq/sq
(defun find-adjacent-bounds-one ((arg0 nav-mesh) (arg1 nav-poly) (arg2 int) (arg3 (array int8)) (arg4 (array int8)) (arg5 vector))
  (local-vars (v0-2 object) (v1-2 int) (v1-30 int) (a0-2 int) (a0-12 int) (sv-16 nav-poly) (sv-32 int))
  (let ((v1-1 (+ arg2 1)))
    (let ((a0-1 2))
      (set-on-less-than a0-2 a0-1 v1-1)
      )
    (move-if-not-zero v1-2 0 a0-2 v1-1)
    )
  (let ((v1-4 (-> arg1 adj-poly v1-2)))
    (cond
      ((= v1-4 255)
       )
      ((zero? (logand (-> arg0 poly v1-4 pat) 1))
       (format 0 "ERROR<GMJ>: find-adjacent-bounds-one given a non-boundary edge to start~%")
       (return #f)
       )
      )
    )
  (let ((s0-0 (-> arg1 vertex (-> arg3 arg2))))
    (set! sv-16 arg1)
    (while (begin (label cfg-28) #t)
      (set! sv-32 0)
      (while (< sv-32 3)
        (cond
          ((and (= sv-32 arg2) (= sv-16 arg1))
           )
          ((= s0-0 (-> sv-16 vertex (-> arg4 sv-32)))
           (vector+! arg5 (-> arg0 origin) (the-as vector (-> arg0 vertex (-> sv-16 vertex (-> arg3 sv-32)))))
           (let ((v1-29 (+ sv-32 1)))
             (let ((a0-11 2))
               (set-on-less-than a0-12 a0-11 v1-29)
               )
             (move-if-not-zero v1-30 0 a0-12 v1-29)
             )
           (let ((v1-32 (-> sv-16 adj-poly v1-30)))
             (if (= v1-32 255)
                 (return #t)
                 )
             (let ((v1-35 (-> arg0 poly v1-32)))
               (set! v0-2 (cond
                            ((= arg1 v1-35)
                             (format 0 "ERROR<GMJ>: find-adjacent-bounds-one given tried to go back~%")
                             )
                            (else
                              (cond
                                ((logtest? (-> v1-35 pat) 1)
                                 (return #t)
                                 )
                                (else
                                  (set! arg1 sv-16)
                                  (set! sv-16 v1-35)
                                  (goto cfg-28)
                                  )
                                )
                              v0-2
                              )
                            )
                     )
               )
             )
           )
          )
        (set! sv-32 (+ sv-32 1))
        )
      (format 0 "ERROR<GMJ>: abnormal exit from find-adjacent-bounds-one~%")
      (return #f)
      )
    )
  #f
  )

;; definition for function find-adjacent-bounds
;; WARN: Expression building failed: Function find-adjacent-bounds has a return type of none, but the expression builder found a return statement.
(defun find-adjacent-bounds ((arg0 nav-mesh) (arg1 clip-travel-vector-to-mesh-return-info))
  (when (!= (-> arg1 found-boundary) #t)
    (format 0 "ERROR<GMJ>: find-adjacent-bounds passed info which doesn't specify a boundary edge~%")
    (return #f)
    )
  (find-adjacent-bounds-one
    arg0
    (-> arg1 poly)
    (-> arg1 edge)
    *edge-vert0-table*
    *edge-vert1-table*
    (-> arg1 vert-prev)
    )
  (find-adjacent-bounds-one
    arg0
    (-> arg1 poly)
    (-> arg1 edge)
    *edge-vert1-table*
    *edge-vert0-table*
    (-> arg1 vert-next)
    )
  (vector-reset! (-> arg1 prev-normal))
  (vector-reset! (-> arg1 next-normal))
  (set! (-> arg1 prev-normal x) (- (-> arg1 vert-prev z) (-> arg1 vert-0 z)))
  (set! (-> arg1 prev-normal z) (- (-> arg1 vert-0 x) (-> arg1 vert-prev x)))
  (set! (-> arg1 next-normal x) (- (-> arg1 vert-1 z) (-> arg1 vert-next z)))
  (set! (-> arg1 next-normal z) (- (-> arg1 vert-next x) (-> arg1 vert-1 x)))
  (vector-normalize! (-> arg1 prev-normal) 1.0)
  (vector-normalize! (-> arg1 next-normal) 1.0)
  (camera-line (-> arg1 vert-prev) (-> arg1 vert-0) (new 'static 'vector4w :x #xff :w #x80))
  (camera-line (-> arg1 vert-0) (-> arg1 vert-1) (new 'static 'vector4w :y #xff :w #x80))
  (camera-line (-> arg1 vert-1) (-> arg1 vert-next) (new 'static 'vector4w :z #xff :w #x80))
  (let ((s5-1 (new 'stack-no-clear 'vector)))
    (vector+! s5-1 (-> arg1 vert-prev) (-> arg1 vert-0))
    (vector-float*! s5-1 s5-1 0.5)
    (camera-line-rel-len s5-1 (-> arg1 prev-normal) 8192.0 (new 'static 'vector4w :x #xff :w #x80))
    (vector+! s5-1 (-> arg1 vert-0) (-> arg1 vert-1))
    (vector-float*! s5-1 s5-1 0.5)
    (camera-line-rel-len s5-1 (-> arg1 boundary-normal) 8192.0 (new 'static 'vector4w :y #xff :w #x80))
    (vector+! s5-1 (-> arg1 vert-1) (-> arg1 vert-next))
    (vector-float*! s5-1 s5-1 0.5)
    (camera-line-rel-len s5-1 (-> arg1 next-normal) 8192.0 (new 'static 'vector4w :z #xff :w #x80))
    )
  (none)
  )

;; definition of type fleeing-nav-enemy-info
(deftype fleeing-nav-enemy-info (structure)
  ((min-reflect-angle       float  :offset-assert   0)
   (max-reflect-angle       float  :offset-assert   4)
   (max-boundary-deflection float  :offset-assert   8)
   (deflection-min-dist     float  :offset-assert  12)
   (deflection-max-dist     float  :offset-assert  16)
   (reflection-time         int32  :offset-assert  20)
   (travel-rotate-speed     float  :offset-assert  24)
   (blend_interp_angle      float  :offset-assert  28)
   (min-speed-adjust        float  :offset-assert  32)
   (max-speed-adjust        float  :offset-assert  36)
   (speed-adjust-center     float  :offset-assert  40)
   (speed-adjust-range      float  :offset-assert  44)
   (abort-notice-distance   float  :offset-assert  48)
   (min-notice-dist         float  :offset-assert  52)
   (max-notice-dist         float  :offset-assert  56)
   (min-stop-chase-dist     float  :offset-assert  60)
   (max-stop-chase-dist     float  :offset-assert  64)
   (max-flee-rotation       float  :offset-assert  68)
   )
  :allow-misaligned
  :method-count-assert 9
  :size-assert         #x48
  :flag-assert         #x900000048
  )

;; definition for method 3 of type fleeing-nav-enemy-info
(defmethod inspect fleeing-nav-enemy-info ((obj fleeing-nav-enemy-info))
  (format #t "[~8x] ~A~%" obj 'fleeing-nav-enemy-info)
  (format #t "~Tmin-reflect-angle: ~f~%" (-> obj min-reflect-angle))
  (format #t "~Tmax-reflect-angle: ~f~%" (-> obj max-reflect-angle))
  (format #t "~Tmax-boundary-deflection: ~f~%" (-> obj max-boundary-deflection))
  (format #t "~Tdeflection-min-dist: ~f~%" (-> obj deflection-min-dist))
  (format #t "~Tdeflection-max-dist: ~f~%" (-> obj deflection-max-dist))
  (format #t "~Treflection-time: ~D~%" (-> obj reflection-time))
  (format #t "~Ttravel-rotate-speed: ~f~%" (-> obj travel-rotate-speed))
  (format #t "~Tblend_interp_angle: ~f~%" (-> obj blend_interp_angle))
  (format #t "~Tmin-speed-adjust: ~f~%" (-> obj min-speed-adjust))
  (format #t "~Tmax-speed-adjust: ~f~%" (-> obj max-speed-adjust))
  (format #t "~Tspeed-adjust-center: ~f~%" (-> obj speed-adjust-center))
  (format #t "~Tspeed-adjust-range: ~f~%" (-> obj speed-adjust-range))
  (format #t "~Tabort-notice-distance: ~f~%" (-> obj abort-notice-distance))
  (format #t "~Tmin-notice-dist: ~f~%" (-> obj min-notice-dist))
  (format #t "~Tmax-notice-dist: ~f~%" (-> obj max-notice-dist))
  (format #t "~Tmin-stop-chase-dist: ~f~%" (-> obj min-stop-chase-dist))
  (format #t "~Tmax-stop-chase-dist: ~f~%" (-> obj max-stop-chase-dist))
  (format #t "~Tmax-flee-rotation: ~f~%" (-> obj max-flee-rotation))
  obj
  )

;; definition of type fleeing-nav-enemy
(deftype fleeing-nav-enemy (nav-enemy)
  ((last-reflection-time time-frame                     :offset-assert 400)
   (run-blend-interp     float                          :offset-assert 408)
   (desired-travel       vector                 :inline :offset-assert 416)
   (saved-travel         vector                 :inline :offset-assert 432)
   (speed-adjust         float                          :offset-assert 448)
   (flee-info            fleeing-nav-enemy-info :inline :offset-assert 452)
   )
  :heap-base #x1a0
  :method-count-assert 76
  :size-assert         #x20c
  :flag-assert         #x4c01a0020c
  (:states
    fleeing-nav-enemy-debug
    )
  )

;; definition for method 3 of type fleeing-nav-enemy
(defmethod inspect fleeing-nav-enemy ((obj fleeing-nav-enemy))
  (let ((t9-0 (method-of-type nav-enemy inspect)))
    (t9-0 obj)
    )
  (format #t "~T~Tlast-reflection-time: ~D~%" (-> obj last-reflection-time))
  (format #t "~T~Trun-blend-interp: ~f~%" (-> obj run-blend-interp))
  (format #t "~T~Tdesired-travel: #<vector @ #x~X>~%" (-> obj desired-travel))
  (format #t "~T~Tsaved-travel: #<vector @ #x~X>~%" (-> obj saved-travel))
  (format #t "~T~Tspeed-adjust: ~f~%" (-> obj speed-adjust))
  (format #t "~T~Tflee-info: #<fleeing-nav-enemy-info @ #x~X>~%" (-> obj flee-info))
  obj
  )

;; definition for function fleeing-nav-enemy-adjust-nav-info
(defbehavior fleeing-nav-enemy-adjust-nav-info fleeing-nav-enemy ()
  (let ((f30-0 (vector-vector-distance (-> *camera* tpos-curr-adj) (-> *camera* tpos-old-adj))))
    (set! (-> self nav-info notice-distance) (lerp-clamp
                                               (-> self flee-info min-notice-dist)
                                               (-> self flee-info max-notice-dist)
                                               (parameter-ease-sin-clamp (* 0.00081380206 (+ -409.6 f30-0)))
                                               )
          )
    (let ((f0-9 (lerp-clamp
                  (-> self flee-info min-stop-chase-dist)
                  (-> self flee-info max-stop-chase-dist)
                  (parameter-ease-sin-clamp (* 0.00081380206 (+ -409.6 f30-0)))
                  )
                )
          )
      (set! (-> self nav-info stop-chase-distance) f0-9)
      f0-9
      )
    )
  )

;; definition for function fleeing-nav-enemy-clip-travel
;; Used lq/sq
(defun fleeing-nav-enemy-clip-travel ((arg0 fleeing-nav-enemy) (arg1 vector))
  (local-vars (sv-224 vector) (sv-240 vector) (sv-256 vector) (sv-272 vector) (sv-288 vector))
  (let ((s2-0 (new 'stack 'clip-travel-vector-to-mesh-return-info))
        (gp-0 (new 'stack-no-clear 'vector))
        (s1-0 #f)
        )
    (set! (-> gp-0 quad) (-> arg0 nav travel quad))
    (set! (-> arg0 nav travel quad) (-> arg1 quad))
    (dummy-24 (-> arg0 nav) (-> arg0 flee-info deflection-max-dist) s2-0)
    (when (-> s2-0 found-boundary)
      (let ((s0-0 (new 'stack-no-clear 'vector))
            (s3-0 (new 'stack-no-clear 'vector))
            )
        0.0
        0.0
        (vector-! s0-0 (-> s2-0 intersection) (-> arg0 collide-info trans))
        (set! (-> arg0 nav travel quad) (-> s0-0 quad))
        (let ((f28-0 (vector-dot s0-0 (-> s2-0 boundary-normal))))
          (set! (-> s0-0 quad) (-> arg1 quad))
          (set! (-> s0-0 y) 0.0)
          (vector-normalize! s0-0 1.0)
          (let ((f30-0 (vector-dot s0-0 (-> s2-0 boundary-normal))))
            (cond
              ((< (-> arg0 flee-info deflection-min-dist) f28-0)
               (let* ((f0-9 (/ (- f28-0 (-> arg0 flee-info deflection-min-dist))
                               (- (-> arg0 flee-info deflection-max-dist) (-> arg0 flee-info deflection-min-dist))
                               )
                            )
                      (f0-10 (fmin 1.0 f0-9))
                      (f28-1 (* (- 1.0 f0-10) (-> arg0 flee-info max-boundary-deflection)))
                      )
                 (cond
                   ((< (cos f28-1) f30-0)
                    (vector--float*! s3-0 s0-0 (-> s2-0 boundary-normal) f30-0)
                    (let ((s0-1 vector-normalize!))
                      (set! sv-224 s3-0)
                      (let ((a1-7 (sin f28-1)))
                        (s0-1 sv-224 a1-7)
                        )
                      )
                    (let ((s0-2 vector+float*!))
                      (set! sv-240 s3-0)
                      (set! sv-256 s3-0)
                      (let ((s2-1 (-> s2-0 boundary-normal))
                            (a3-1 (cos f28-1))
                            )
                        (s0-2 sv-240 sv-256 s2-1 a3-1)
                        )
                      )
                    )
                   (else
                     (let ((v1-15 s3-0))
                       (set! (-> v1-15 quad) (-> s0-0 quad))
                       v1-15
                       )
                     )
                   )
                 )
               )
              ((< (cos (-> arg0 flee-info min-reflect-angle)) f30-0)
               (vector--float*! s3-0 s0-0 (-> s2-0 boundary-normal) f30-0)
               (vector-normalize! s3-0 (sin (-> arg0 flee-info min-reflect-angle)))
               (let ((s1-2 vector--float*!)
                     (s0-4 s3-0)
                     )
                 (set! sv-272 s3-0)
                 (let ((s2-2 (-> s2-0 boundary-normal))
                       (a3-3 (cos (-> arg0 flee-info min-reflect-angle)))
                       )
                   (s1-2 s0-4 sv-272 s2-2 a3-3)
                   )
                 )
               (set! s1-0 #t)
               )
              ((< f30-0 (cos (-> arg0 flee-info max-reflect-angle)))
               (vector--float*! s3-0 s0-0 (-> s2-0 boundary-normal) f30-0)
               (vector-normalize! s3-0 (sin (-> arg0 flee-info max-reflect-angle)))
               (let ((s1-4 vector--float*!)
                     (s0-6 s3-0)
                     )
                 (set! sv-288 s3-0)
                 (let ((s2-3 (-> s2-0 boundary-normal))
                       (a3-5 (cos (-> arg0 flee-info max-reflect-angle)))
                       )
                   (s1-4 s0-6 sv-288 s2-3 a3-5)
                   )
                 )
               (set! s1-0 #t)
               )
              (else
                (vector--float*! s3-0 s0-0 (-> s2-0 boundary-normal) (* 2.0 f30-0))
                (set! s1-0 #t)
                )
              )
            )
          )
        (vector-normalize-copy! arg1 s3-0 (-> arg0 flee-info deflection-max-dist))
        )
      )
    (set! (-> arg0 nav travel quad) (-> gp-0 quad))
    s1-0
    )
  )

;; definition for function fleeing-nav-enemy-adjust-travel
;; Used lq/sq
(defun fleeing-nav-enemy-adjust-travel ((arg0 fleeing-nav-enemy) (arg1 object))
  (let ((s3-0 (new 'stack-no-clear 'matrix))
        (s4-0 (new 'stack-no-clear 'vector))
        )
    (let ((s5-0 (new 'stack-no-clear 'vector)))
      (set! (-> s4-0 quad) (-> arg0 saved-travel quad))
      (set! (-> s4-0 y) 0.0)
      (set! (-> s5-0 quad) (-> arg0 desired-travel quad))
      (set! (-> s5-0 y) 0.0)
      (vector-normalize! s4-0 1.0)
      (vector-normalize! s5-0 1.0)
      (matrix-from-two-vectors-max-angle-partial! s3-0 s4-0 s5-0 (-> arg0 flee-info travel-rotate-speed) 0.2)
      )
    (vector-matrix*! (-> arg0 saved-travel) s4-0 s3-0)
    )
  (vector-float*! (-> arg0 saved-travel) (-> arg0 saved-travel) (-> arg0 flee-info deflection-max-dist))
  (set! (-> arg0 nav travel quad) (-> arg0 saved-travel quad))
  (vector+! (-> arg0 nav target-pos) (-> arg0 collide-info trans) (-> arg0 nav travel))
  )

;; definition for function fleeing-nav-enemy-chase-post-func
(defbehavior fleeing-nav-enemy-chase-post-func fleeing-nav-enemy ()
  (let ((gp-0 (new 'stack-no-clear 'matrix))
        (s5-0 (new 'stack-no-clear 'matrix))
        )
    (quaternion->matrix gp-0 (-> self collide-info quat))
    (set! (-> self collide-info old-y-angle-diff) 0.0)
    (nav-enemy-travel-post)
    (quaternion->matrix s5-0 (-> self collide-info quat))
    (set! (-> self run-blend-interp) (acos (vector-dot (-> s5-0 vector 2) (-> gp-0 vector 2))))
    (set! (-> self run-blend-interp) (/ (-> self run-blend-interp) (-> self flee-info blend_interp_angle)))
    (when (< (vector-dot (-> s5-0 vector 2) (the-as vector (-> gp-0 vector))) 0.0)
      (let ((f0-8 (- (-> self run-blend-interp))))
        (set! (-> self run-blend-interp) f0-8)
        f0-8
        )
      )
    )
  )

;; definition for function fleeing-nav-enemy-chase-post
;; INFO: Return type mismatch int vs none.
;; Used lq/sq
(defbehavior fleeing-nav-enemy-chase-post fleeing-nav-enemy ()
  (let ((gp-0 (new 'stack-no-clear 'vector)))
    (vector-! gp-0 (-> self collide-info trans) (target-pos 0))
    (let* ((f0-1 (vector-dot (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> self desired-travel) 1.0) gp-0))
           (f0-3 (/ (- (-> self flee-info speed-adjust-center) f0-1) (-> self flee-info speed-adjust-range)))
           (f1-3 (+ 1.0 f0-3))
           )
      (set! (-> self target-speed)
            (* (fmax (-> self flee-info min-speed-adjust) (fmin (-> self flee-info max-speed-adjust) f1-3))
               (-> self nav-info run-travel-speed)
               )
            )
      )
    (when (>= (- (-> *display* base-frame-counter) (-> self last-reflection-time)) (-> self flee-info reflection-time))
      (let ((s3-0 (new 'stack-no-clear 'matrix))
            (s5-2 (new 'stack-no-clear 'vector))
            )
        (let ((s4-1 (new 'stack-no-clear 'vector)))
          (set! (-> s5-2 quad) (-> self desired-travel quad))
          (set! (-> s5-2 y) 0.0)
          (set! (-> s4-1 quad) (-> gp-0 quad))
          (set! (-> s4-1 y) 0.0)
          (if (= (vector-normalize-ret-len! s5-2 1.0) 0.0)
              (set! (-> s5-2 quad) (-> s4-1 quad))
              )
          (vector-normalize-ret-len! s4-1 1.0)
          (matrix-from-two-vectors-max-angle-partial! s3-0 s5-2 s4-1 (-> self flee-info max-flee-rotation) 0.25)
          )
        (vector-matrix*! s5-2 s5-2 s3-0)
        (vector-float*! (-> self desired-travel) s5-2 (-> self flee-info deflection-max-dist))
        )
      )
    )
  (if (fleeing-nav-enemy-clip-travel self (-> self desired-travel))
      (set! (-> self last-reflection-time) (-> *display* base-frame-counter))
      )
  (fleeing-nav-enemy-adjust-travel self (-> self desired-travel))
  (fleeing-nav-enemy-chase-post-func)
  0
  (none)
  )

;; failed to figure out what this is:
(defstate nav-enemy-patrol (fleeing-nav-enemy)
  :virtual #t
  :enter
  (-> (method-of-type nav-enemy nav-enemy-patrol) enter)
  :exit
  (-> (method-of-type nav-enemy nav-enemy-patrol) exit)
  :trans
  (behavior ()
    ((-> (method-of-type nav-enemy nav-enemy-patrol) trans))
    (fleeing-nav-enemy-adjust-nav-info)
    (none)
    )
  :code
  (-> (method-of-type nav-enemy nav-enemy-patrol) code)
  :post
  (-> (method-of-type nav-enemy nav-enemy-patrol) post)
  )

;; failed to figure out what this is:
(defstate nav-enemy-notice (fleeing-nav-enemy)
  :virtual #t
  :enter
  (-> (method-of-type nav-enemy nav-enemy-notice) enter)
  :trans
  (behavior ()
    (fleeing-nav-enemy-adjust-nav-info)
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 22)
    (let ((f30-0 (nav-enemy-rnd-float-range 1.0 1.2)))
      (let ((a0-2 (-> self skel root-channel 0)))
        (set! (-> a0-2 frame-group)
              (the-as art-joint-anim (-> self draw art-group data (-> self nav-info notice-anim)))
              )
        (set! (-> a0-2 param 0)
              (the float
                   (+ (-> (the-as art-joint-anim (-> self draw art-group data (-> self nav-info notice-anim))) data 0 length) -1)
                   )
              )
        (set! (-> a0-2 param 1) f30-0)
        (set! (-> a0-2 frame-num) 0.0)
        (joint-control-channel-group!
          a0-2
          (the-as art-joint-anim (-> self draw art-group data (-> self nav-info notice-anim)))
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (seek-toward-heading-vec!
          (-> self collide-info)
          (-> self nav travel)
          (-> self rotate-speed)
          (-> self turn-time)
          )
        (if (and *target* (>= (-> self flee-info abort-notice-distance)
                              (vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
                              )
                 )
            (go-virtual nav-enemy-chase)
            )
        (suspend)
        (let ((a0-5 (-> self skel root-channel 0)))
          (set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
          (set! (-> a0-5 param 1) f30-0)
          (joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (go-virtual nav-enemy-chase)
    (none)
    )
  :post
  (-> (method-of-type nav-enemy nav-enemy-notice) post)
  )

;; failed to figure out what this is:
(defstate nav-enemy-chase (fleeing-nav-enemy)
  :virtual #t
  :enter
  (behavior ()
    (logior! (-> self nav flags) (nav-control-flags navcf12))
    ((-> (method-of-type nav-enemy nav-enemy-chase) enter))
    (none)
    )
  :exit
  (behavior ()
    (logclear! (-> self nav flags) (nav-control-flags navcf12))
    (none)
    )
  :trans
  (behavior ()
    ((-> (method-of-type nav-enemy nav-enemy-chase) trans))
    (fleeing-nav-enemy-adjust-nav-info)
    (none)
    )
  :code
  (-> (method-of-type nav-enemy nav-enemy-chase) code)
  :post
  (-> (method-of-type nav-enemy nav-enemy-chase) post)
  )

;; failed to figure out what this is:
(defstate nav-enemy-stop-chase (fleeing-nav-enemy)
  :virtual #t
  :enter
  (-> (method-of-type nav-enemy nav-enemy-stop-chase) enter)
  :trans
  (behavior ()
    ((-> (method-of-type nav-enemy nav-enemy-stop-chase) trans))
    (fleeing-nav-enemy-adjust-nav-info)
    (none)
    )
  :code
  (-> (method-of-type nav-enemy nav-enemy-stop-chase) code)
  :post
  (-> (method-of-type nav-enemy nav-enemy-stop-chase) post)
  )

;; failed to figure out what this is:
(defstate fleeing-nav-enemy-debug (fleeing-nav-enemy)
  :enter
  (-> (method-of-type nav-enemy nav-enemy-chase) enter)
  :code
  (behavior ()
    (let ((gp-0 (new-stack-vector0))
          (s5-0 (new-stack-vector0))
          )
      (set! (-> gp-0 x) 1.0)
      (set! (-> s5-0 x) 1.0)
      (while #t
        (when (cpad-pressed? 1 r3)
          (suspend)
          (go fleeing-nav-enemy-debug)
          )
        (let ((s2-0 (new-stack-vector0))
              (s4-0 (new-stack-vector0))
              )
          (let ((s3-0 (new-stack-matrix0)))
            (clmf-input s2-0 s4-0 1)
            (vector-float*! s2-0 s2-0 409.6)
            (vector-float*! s4-0 s4-0 1820.4445)
            (matrix-axis-angle! s3-0 (-> *camera* local-down) (-> s2-0 y))
            (vector-matrix*! gp-0 gp-0 s3-0)
            )
          (if *target*
              (vector-! gp-0 (-> self collide-info trans) (target-pos 0))
              )
          (vector-normalize! gp-0 (-> self flee-info deflection-max-dist))
          (let ((s3-3 (new 'stack-no-clear 'vector)))
            (set! (-> s3-3 quad) (-> self nav travel quad))
            (set! (-> self nav travel quad) (-> s5-0 quad))
            (set! (-> self desired-travel quad) (-> gp-0 quad))
            (fleeing-nav-enemy-clip-travel self (-> self desired-travel))
            (fleeing-nav-enemy-adjust-travel self (-> self desired-travel))
            (set! (-> s5-0 quad) (-> self nav travel quad))
            (set! (-> self nav travel quad) (-> s3-3 quad))
            )
          (vector+! (-> self nav target-pos) (-> self collide-info trans) s4-0)
          )
        (suspend)
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior fleeing-nav-enemy) nav-enemy-travel-post)
  )

;; definition for symbol *lightning-mole-hole*, type vector
(define *lightning-mole-hole* (new 'static 'vector :x -241664.0 :y 106496.0 :z -6393856.0))

;; definition of type lightning-mole
(deftype lightning-mole (fleeing-nav-enemy)
  ((debug-vector vector       :inline :offset-assert 528)
   (alt-actor    entity-actor         :offset-assert 544)
   )
  :heap-base #x1c0
  :method-count-assert 76
  :size-assert         #x224
  :flag-assert         #x4c01c00224
  (:states
    lightning-mole-debug-blend
    lightning-mole-debug-run
    lightning-mole-dive
    lightning-mole-gone
    lightning-mole-head-for-hole
    lightning-mole-hiding
    lightning-mole-yelp
    )
  )

;; definition for method 3 of type lightning-mole
(defmethod inspect lightning-mole ((obj lightning-mole))
  (let ((t9-0 (method-of-type fleeing-nav-enemy inspect)))
    (t9-0 obj)
    )
  (format #t "~T~Tdebug-vector: #<vector @ #x~X>~%" (-> obj debug-vector))
  (format #t "~T~Talt-actor: ~A~%" (-> obj alt-actor))
  obj
  )

;; failed to figure out what this is:
(defskelgroup *lightning-mole-sg* lightning-mole
  0
  5
  ((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
  :bounds (static-spherem 0 0 0 8)
  :longest-edge (meters 0)
  :shadow 4
  )

;; definition for function lightning-mole-task-complete?
(defbehavior lightning-mole-task-complete? lightning-mole ()
  (local-vars (sv-16 symbol))
  (process-entity-status! self (entity-perm-status complete) #t)
  (when (or (-> self link prev) (-> self link next))
    (set! sv-16 (the-as symbol #f))
    (apply-all (-> self link) actor-link-subtask-complete-hook (& sv-16))
    (cond
      (sv-16
        (close-specific-task! (-> self entity extra perm task) (task-status need-reminder))
        (let ((gp-0 (get-process *default-dead-pool* process #x4000)))
          (when gp-0
            (let ((t9-4 (method-of-type process activate)))
              (t9-4 gp-0 self 'process (the-as pointer #x70004000))
              )
            (run-next-time-in-process gp-0 (lambda :behavior lightning-mole
                                             ()
                                             (while (or (-> *setting-control* current ambient)
                                                        (-> *setting-control* current movie)
                                                        (-> *setting-control* current hint)
                                                        )
                                               (suspend)
                                               )
                                             (level-hint-spawn
                                               (game-text-id rolling-lightning-moles-completion)
                                               "sksp0112"
                                               (the-as entity #f)
                                               *entity-pool*
                                               (game-task none)
                                               )
                                             (none)
                                             )
                                      )
            (-> gp-0 ppointer)
            )
          )
        (format #t "lightning-mole task is complete~%")
        )
      (else
        )
      )
    sv-16
    )
  )

;; definition for function lightning-mole-hole-post
;; INFO: Return type mismatch int vs none.
;; Used lq/sq
(defbehavior lightning-mole-hole-post lightning-mole ()
  (set! (-> self nav target-pos quad) (-> *lightning-mole-hole* quad))
  (nav-enemy-travel-post)
  0
  (none)
  )

;; definition for function lightning-mole-run-code
(defbehavior lightning-mole-run-code lightning-mole ()
  (when (!= (if (> (-> self skel active-channels) 0)
                (-> self skel root-channel 0 frame-group)
                )
            (-> self draw art-group data 7)
            )
    (ja-channel-push! 1 60)
    (let ((v1-6 (-> self skel root-channel 0)))
      (set! (-> v1-6 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
      )
    )
  (while #t
    (let ((a0-9 (-> self skel root-channel 0)))
      (set! (-> a0-9 param 0) (-> self speed-adjust))
      (joint-control-channel-group-eval! a0-9 (the-as art-joint-anim #f) num-func-loop!)
      )
    (suspend)
    )
  (none)
  )

;; failed to figure out what this is:
(defstate lightning-mole-debug-blend (lightning-mole)
  :trans
  (behavior ()
    (let ((gp-0 (new-stack-vector0)))
      (let ((a1-0 (new-stack-vector0)))
        (clmf-input gp-0 a1-0 1)
        )
      (set! (-> self run-blend-interp) (-> gp-0 y))
      )
    (set! (-> self speed-adjust) 1.0)
    (none)
    )
  :code
  lightning-mole-run-code
  :post
  (the-as (function none :behavior lightning-mole) ja-post)
  )

;; failed to figure out what this is:
(defstate lightning-mole-debug-run (lightning-mole)
  :enter
  (behavior ()
    (set! (-> self speed-adjust) 1.0)
    (set-vector! (-> self debug-vector) 0.0 0.0 1.0 1.0)
    (set! (-> self saved-travel quad) (-> self debug-vector quad))
    ((-> (method-of-type nav-enemy nav-enemy-chase) enter))
    (none)
    )
  :trans
  (behavior ()
    (when (cpad-pressed? 1 r3)
      (logclear! (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons r3))
      (logclear! (-> *cpad-list* cpads 1 button0-rel 0) (pad-buttons r3))
      (go lightning-mole-debug-run)
      )
    (none)
    )
  :code
  lightning-mole-run-code
  :post
  (behavior ()
    (let ((gp-0 (new 'stack-no-clear 'vector)))
      (let ((s4-0 (new-stack-vector0))
            (a1-0 (new-stack-vector0))
            (s5-0 (new-stack-matrix0))
            )
        (clmf-input s4-0 a1-0 1)
        (vector-float*! s4-0 s4-0 1820.4445)
        (matrix-axis-angle! s5-0 (-> *camera* local-down) (-> s4-0 y))
        (vector-matrix*! (-> self debug-vector) (-> self debug-vector) s5-0)
        )
      (vector-normalize! (-> self debug-vector) (-> self flee-info deflection-max-dist))
      (camera-line-rel
        (-> self collide-info trans)
        (-> self debug-vector)
        (new 'static 'vector4w :x #x80 :y #x80 :w #x80)
        )
      (set! (-> gp-0 quad) (-> self debug-vector quad))
      (set! (-> self target-speed) (-> self nav-info run-travel-speed))
      (format *stdcon* "tgt-speed ~M defmd ~M~%" (-> self target-speed) (-> self flee-info deflection-max-dist))
      (if (>= (- (-> *display* base-frame-counter) (-> self last-reflection-time)) (-> self flee-info reflection-time))
          (vector-normalize-copy! (-> self desired-travel) gp-0 (-> self flee-info deflection-max-dist))
          )
      )
    (if (fleeing-nav-enemy-clip-travel self (-> self desired-travel))
        (set! (-> self last-reflection-time) (-> *display* base-frame-counter))
        )
    (set! (-> self debug-vector quad) (-> self desired-travel quad))
    (fleeing-nav-enemy-adjust-travel self (-> self desired-travel))
    (fleeing-nav-enemy-chase-post-func)
    (camera-line-rel
      (-> self collide-info trans)
      (-> self desired-travel)
      (new 'static 'vector4w :x #x80 :w #x80)
      )
    (camera-line-rel (-> self collide-info trans) (-> self nav travel) (new 'static 'vector4w :z #x80 :w #x80))
    (camera-line (-> self collide-info trans) (-> self nav target-pos) (new 'static 'vector4w :z #x80 :w #x80))
    (none)
    )
  )

;; failed to figure out what this is:
(defstate lightning-mole-gone (lightning-mole)
  :code
  (behavior ()
    (cleanup-for-death self)
    (ja-channel-set! 0)
    (ja-post)
    (while (-> self child)
      (suspend)
      )
    (deactivate self)
    (none)
    )
  )

;; failed to figure out what this is:
(defstate lightning-mole-hiding (lightning-mole)
  :enter
  (behavior ()
    (ja-channel-set! 0)
    (clear-collide-with-as (-> self collide-info))
    (none)
    )
  :trans
  (behavior ()
    (when (task-closed? (-> self entity extra perm task) (task-status need-introduction))
      (ja-channel-set! 1)
      (let ((v1-4 (-> self skel root-channel 0)))
        (set! (-> v1-4 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
        )
      (restore-collide-with-as (-> self collide-info))
      (go-virtual nav-enemy-idle)
      )
    (none)
    )
  :code
  (behavior ()
    (while #t
      (suspend)
      )
    (none)
    )
  )

;; failed to figure out what this is:
(defstate lightning-mole-dive (lightning-mole)
  :trans
  (behavior ()
    (when (< (vector-vector-xz-distance *lightning-mole-hole* (-> self collide-info trans)) 61440.0)
      (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
        (set! (-> a1-1 from) self)
        (set! (-> a1-1 num-params) 0)
        (set! (-> a1-1 message) 'hide)
        (let ((t9-1 send-event-function)
              (v1-2 (-> self alt-actor))
              )
          (t9-1
            (if v1-2
                (-> v1-2 extra process)
                )
            a1-1
            )
          )
        )
      )
    (none)
    )
  :code
  (behavior ()
    (let ((f30-0 (nav-enemy-rnd-float-range 0.9 1.1))
          (gp-0 (new 'stack-no-clear 'vector))
          )
      (vector+! gp-0 *lightning-mole-hole* (new 'static 'vector :x 81920.0 :y 40960.0))
      (hide-hud-quick)
      (if *target*
          (logior! (-> *target* mask) (process-mask sleep))
          )
      (ambient-hint-spawn "gamcam20" (the-as vector #f) *entity-pool* 'camera)
      (ja-channel-push! 1 60)
      (let ((a0-5 (-> self skel root-channel 0)))
        (set! (-> a0-5 frame-group) (the-as art-joint-anim (-> self draw art-group data 12)))
        (set! (-> a0-5 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
              )
        (set! (-> a0-5 param 1) f30-0)
        (set! (-> a0-5 frame-num) 0.0)
        (joint-control-channel-group! a0-5 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
        )
      (until (ja-done? 0)
        (let ((s5-0 (new 'stack-no-clear 'vector)))
          (set! (-> *camera-other-fov* data) 11650.845)
          (vector-! s5-0 *lightning-mole-hole* gp-0)
          (vector-normalize! s5-0 1.0)
          (forward-down->inv-matrix *camera-other-matrix* s5-0 (-> *camera* local-down))
          )
        (set! (-> *camera-other-trans* quad) (-> gp-0 quad))
        (set! (-> *camera-other-root* quad) (-> *lightning-mole-hole* quad))
        (set! *camera-look-through-other* 2)
        (suspend)
        (let ((a0-13 (-> self skel root-channel 0)))
          (set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
          (set! (-> a0-13 param 1) f30-0)
          (joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (lightning-mole-task-complete?)
    (if *target*
        (logclear! (-> *target* mask) (process-mask sleep))
        )
    (go lightning-mole-gone)
    (none)
    )
  :post
  lightning-mole-hole-post
  )

;; failed to figure out what this is:
(defstate lightning-mole-head-for-hole (lightning-mole)
  :enter
  (behavior ()
    (clear-collide-with-as (-> self collide-info))
    (none)
    )
  :trans
  (behavior ()
    (when (< (vector-vector-xz-distance *lightning-mole-hole* (-> self collide-info trans)) 61440.0)
      (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
        (set! (-> a1-1 from) self)
        (set! (-> a1-1 num-params) 0)
        (set! (-> a1-1 message) 'hide)
        (let ((t9-1 send-event-function)
              (v1-3 (-> self alt-actor))
              )
          (t9-1
            (if v1-3
                (-> v1-3 extra process)
                )
            a1-1
            )
          )
        )
      )
    (if (< (vector-vector-distance (-> self collide-info trans) *lightning-mole-hole*) 40960.0)
        (go lightning-mole-dive)
        )
    (none)
    )
  :code
  (-> (method-of-type fleeing-nav-enemy nav-enemy-chase) code)
  :post
  lightning-mole-hole-post
  )

;; failed to figure out what this is:
(defstate lightning-mole-yelp (lightning-mole)
  :enter
  (behavior ()
    (clear-collide-with-as (-> self collide-info))
    ((-> (method-of-type fleeing-nav-enemy nav-enemy-chase) enter))
    (none)
    )
  :exit
  (behavior ()
    (restore-collide-with-as (-> self collide-info))
    (none)
    )
  :trans
  (-> (method-of-type fleeing-nav-enemy nav-enemy-chase) trans)
  :code
  (behavior ()
    (ja-channel-push! 1 60)
    (let ((f30-0 (nav-enemy-rnd-float-range 0.9 1.1)))
      (let ((a0-2 (-> self skel root-channel 0)))
        (set! (-> a0-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 10)))
        (set! (-> a0-2 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 10)) data 0 length) -1))
              )
        (set! (-> a0-2 param 1) f30-0)
        (set! (-> a0-2 frame-num) 0.0)
        (joint-control-channel-group! a0-2 (the-as art-joint-anim (-> self draw art-group data 10)) num-func-seek!)
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-3 (-> self skel root-channel 0)))
          (set! (-> a0-3 param 0) (the float (+ (-> a0-3 frame-group data 0 length) -1)))
          (set! (-> a0-3 param 1) f30-0)
          (joint-control-channel-group-eval! a0-3 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (go-virtual nav-enemy-chase)
    (none)
    )
  :post
  (the-as (function none :behavior lightning-mole) nav-enemy-simple-post)
  )

;; failed to figure out what this is:
(defstate nav-enemy-stop-chase (lightning-mole)
  :virtual #t
  :code
  lightning-mole-run-code
  :post
  (the-as (function none :behavior lightning-mole) fleeing-nav-enemy-chase-post)
  )

;; failed to figure out what this is:
(defstate nav-enemy-chase (lightning-mole)
  :virtual #t
  :enter
  (behavior ()
    (set! (-> self speed-adjust) 1.0)
    (set! (-> self run-blend-interp) 0.0)
    (vector-! (-> self saved-travel) (-> self collide-info trans) (target-pos 0))
    ((-> (method-of-type fleeing-nav-enemy nav-enemy-chase) enter))
    (none)
    )
  :trans
  (behavior ()
    (let ((s3-0 (new 'stack-no-clear 'vector))
          (s4-0 (new 'stack-no-clear 'vector))
          (gp-0 (new 'stack-no-clear 'vector))
          )
      0.0
      0.0
      (let ((f30-0 (vector-vector-distance (-> self collide-info trans) (target-pos 0))))
        0.0
        0.0
        (let ((s5-1 (new 'stack-no-clear 'vector)))
          (vector-! s3-0 *lightning-mole-hole* (-> self collide-info trans))
          (vector-! s4-0 (-> self collide-info trans) (target-pos 0))
          (vector-! gp-0 *lightning-mole-hole* (target-pos 0))
          (let ((f26-0 (vector-normalize-ret-len! s3-0 1.0))
                (f28-0 (vector-normalize-ret-len! s4-0 1.0))
                )
            (vector-normalize! gp-0 1.0)
            (set! (-> s5-1 quad) (-> *camera* tgt-face-mat vector 2 quad))
            (set! (-> s5-1 y) 0.0)
            (vector-normalize! s5-1 1.0)
            (let ((f24-0 (vector-dot s5-1 s4-0)))
              (when (< f26-0 61440.0)
                (let ((a1-7 (new 'stack-no-clear 'event-message-block)))
                  (set! (-> a1-7 from) self)
                  (set! (-> a1-7 num-params) 0)
                  (set! (-> a1-7 message) 'hide)
                  (let ((t9-8 send-event-function)
                        (v1-10 (-> self alt-actor))
                        )
                    (t9-8
                      (if v1-10
                          (-> v1-10 extra process)
                          )
                      a1-7
                      )
                    )
                  )
                )
              (if (and (< 40960.0 f26-0)
                       (< f26-0 81920.0)
                       (< f30-0 204800.0)
                       (< (+ 20480.0 f26-0) f28-0)
                       (< (cos 7281.778) (vector-dot s5-1 gp-0))
                       (< (cos 7281.778) f24-0)
                       )
                  (go lightning-mole-head-for-hole)
                  )
              )
            )
          )
        )
      )
    ((-> (method-of-type fleeing-nav-enemy nav-enemy-chase) trans))
    (none)
    )
  :code
  lightning-mole-run-code
  :post
  (the-as (function none :behavior lightning-mole) fleeing-nav-enemy-chase-post)
  )

;; definition for method 43 of type lightning-mole
;; INFO: Return type mismatch symbol vs object.
(defmethod dummy-43 lightning-mole ((obj lightning-mole) (arg0 process) (arg1 event-message-block))
  (send-event arg0 'get-attack-count 1)
  (when (!= (-> obj state) lightning-mole-yelp)
    (send-event arg0 'jump 32768.0 32768.0)
    (go lightning-mole-yelp)
    )
  (the-as object #t)
  )

;; definition for method 44 of type lightning-mole
;; INFO: Return type mismatch symbol vs object.
(defmethod dummy-44 lightning-mole ((obj lightning-mole) (arg0 process) (arg1 event-message-block))
  (when (!= (-> obj state) lightning-mole-yelp)
    (send-event arg0 'jump 32768.0 32768.0)
    (go lightning-mole-yelp)
    )
  (the-as object #t)
  )

;; definition for symbol *lightning-mole-nav-enemy-info*, type nav-enemy-info
(define *lightning-mole-nav-enemy-info* (new 'static 'nav-enemy-info
                                          :idle-anim 5
                                          :walk-anim 7
                                          :turn-anim -1
                                          :notice-anim 6
                                          :run-anim 7
                                          :jump-anim -1
                                          :jump-land-anim -1
                                          :victory-anim 12
                                          :taunt-anim -1
                                          :die-anim -1
                                          :neck-joint 5
                                          :player-look-at-joint 5
                                          :run-travel-speed (meters 30)
                                          :run-rotate-speed (degrees 3000.0)
                                          :run-acceleration (meters 1)
                                          :run-turn-time (seconds 0.1)
                                          :walk-travel-speed (meters 30)
                                          :walk-rotate-speed (degrees 3000.0)
                                          :walk-acceleration (meters 1)
                                          :walk-turn-time (seconds 0.1)
                                          :attack-shove-back (meters 3)
                                          :attack-shove-up (meters 2)
                                          :shadow-size (meters 2)
                                          :notice-nav-radius (meters 2)
                                          :nav-nearest-y-threshold (meters 10)
                                          :notice-distance (meters 35)
                                          :stop-chase-distance (meters 45)
                                          :frustration-distance (meters 8)
                                          :frustration-time (seconds 4)
                                          :die-anim-hold-frame 10000000000.0
                                          :jump-land-anim-end-frame 10000000000.0
                                          :jump-height-min (meters 1)
                                          :jump-height-factor 0.5
                                          :jump-start-anim-speed 1.0
                                          :shadow-max-y (meters 1)
                                          :shadow-min-y (meters -1)
                                          :shadow-locus-dist (meters 150)
                                          :use-align #f
                                          :draw-shadow #f
                                          :move-to-ground #t
                                          :hover-if-no-ground #t
                                          :use-momentum #f
                                          :use-flee #f
                                          :use-proximity-notice #f
                                          :use-jump-blocked #f
                                          :use-jump-patrol #f
                                          :gnd-collide-with (collide-kind background)
                                          :debug-draw-neck #f
                                          :debug-draw-jump #f
                                          )
        )

;; definition for method 11 of type lightning-mole
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! lightning-mole ((obj lightning-mole) (arg0 entity-actor))
  (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum 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-sphere s4-0 (the-as uint 0))))
      (set! (-> s3-0 prim-core collide-as) (collide-kind enemy))
      (set! (-> s3-0 collide-with) (collide-kind target))
      (set! (-> s3-0 prim-core action) (collide-action solid ca-10 ca-11))
      (set! (-> s3-0 prim-core offense) (collide-offense indestructible))
      (set-vector! (-> s3-0 local-sphere) 0.0 10240.0 0.0 10240.0)
      (set-root-prim! s4-0 s3-0)
      )
    (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
    (backup-collide-with-as s4-0)
    (set! (-> obj collide-info) s4-0)
    )
  (process-drawable-from-entity! obj arg0)
  (initialize-skeleton obj *lightning-mole-sg* '())
  (TODO-RENAME-45 obj *lightning-mole-nav-enemy-info*)
  (logclear! (-> obj nav flags) (nav-control-flags navcf5 navcf6 navcf7))
  (set! (-> obj draw origin-joint-index) (the-as uint 3))
  (set! (-> obj reaction-time) (seconds 0.05))
  (set! (-> obj last-reflection-time) 0)
  (set! (-> obj collide-info pause-adjust-distance) 122880.0)
  (set! (-> obj link) (new 'process 'actor-link-info obj))
  (set! (-> obj alt-actor) (entity-actor-lookup arg0 'alt-actor 0))
  (set! (-> obj flee-info min-reflect-angle) 10922.667)
  (set! (-> obj flee-info max-reflect-angle) 14563.556)
  (set! (-> obj flee-info max-boundary-deflection) 18204.445)
  (set! (-> obj flee-info deflection-min-dist) 20480.0)
  (set! (-> obj flee-info deflection-max-dist) 49152.0)
  (set! (-> obj flee-info reflection-time) 225)
  (set! (-> obj flee-info travel-rotate-speed) 1820.4445)
  (set! (-> obj flee-info blend_interp_angle) 2184.5334)
  (set! (-> obj flee-info min-speed-adjust) 0.8)
  (set! (-> obj flee-info max-speed-adjust) 1.2)
  (set! (-> obj flee-info speed-adjust-center) 40960.0)
  (set! (-> obj flee-info speed-adjust-range) 20480.0)
  (set! (-> obj flee-info abort-notice-distance) 49152.0)
  (set! (-> obj flee-info min-notice-dist) 61440.0)
  (set! (-> obj flee-info max-notice-dist) 143360.0)
  (set! (-> obj flee-info min-stop-chase-dist) 40960.0)
  (set! (-> obj flee-info max-stop-chase-dist) 184320.0)
  (set! (-> obj flee-info max-flee-rotation) 364.0889)
  (cond
    ((and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status complete)))
     (go lightning-mole-gone)
     )
    ((task-closed? (-> obj entity extra perm task) (task-status need-introduction))
     (go (method-of-object obj nav-enemy-idle))
     )
    (else
      (go lightning-mole-hiding)
      )
    )
  (none)
  )

;; failed to figure out what this is:
(defpartgroup group-peeper
  :id 456
  :duration 5
  :bounds (static-bspherem 0 0 0 15)
  :parts
  ((sp-item 1768) (sp-item 1769 :period 120 :length 30) (sp-item 1770 :period 120 :length 60))
  )

;; failed to figure out what this is:
(defpart 1768
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 0.25)
    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
    (sp-flt spt-y (meters -2))
    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 16.0 1.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-accel-y -2.7306666)
    (sp-flt spt-friction 0.97)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags bit2 bit12)
    )
  )

;; failed to figure out what this is:
(defpart 1769
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 0.5)
    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
    (sp-flt spt-y (meters -2))
    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 16.0 1.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-friction 0.98)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags bit2 bit12)
    )
  )

;; failed to figure out what this is:
(defpart 1770
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
    (sp-flt spt-num 5.0)
    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
    (sp-flt spt-y (meters 0))
    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.1) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 16.0 1.0)
    (sp-flt spt-a 128.0)
    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.053333335) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-flt spt-accel-y -10.922667)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-flt spt-userdata 106496.0)
    (sp-func spt-func 'check-drop-level-rolling-dirt)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 20.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 180.0) (degrees 180.0) 1.0)
    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 1771
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
    (sp-rnd-flt spt-num 1.0 1.0 1.0)
    (sp-flt spt-y (meters 0))
    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 16.0 1.0)
    (sp-flt spt-a 128.0)
    (sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.016666668) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-flt spt-accel-y -10.922667)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-flt spt-userdata 106496.0)
    (sp-func spt-func 'check-drop-level-rolling-dirt-finish)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 0))
    )
  )

;; failed to figure out what this is:
(defpart 1772
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 16.0 1.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.013333334) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-flt spt-fade-a -0.14222223)
    (sp-flt spt-friction 0.9)
    (sp-int spt-timer 900)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-flt spt-conerot-x (degrees 90.0))
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; definition for function check-drop-level-rolling-dirt
(defun check-drop-level-rolling-dirt ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
  (when (< (-> arg2 y) (-> arg1 user-float))
    (let ((gp-0 (new 'stack-no-clear 'vector)))
      (sp-kill-particle arg0 arg1)
      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
      (sp-launch-particles-var
        *sp-particle-system-2d*
        (-> *part-id-table* 1771)
        gp-0
        (the-as sparticle-launch-state #f)
        (the-as sparticle-launch-control #f)
        1.0
        )
      )
    )
  (none)
  )

;; definition for function check-drop-level-rolling-dirt-finish
(defun check-drop-level-rolling-dirt-finish ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
  (when (< (-> arg2 y) (-> arg1 user-float))
    (let ((gp-0 (new 'stack-no-clear 'vector)))
      (sp-kill-particle arg0 arg1)
      (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-2 (the-as number (logior #x3f800000 v1-1)))
             )
        (if (< (+ -1.0 (the-as float v1-2)) 0.05)
            (sound-play-by-name (static-sound-name "land-grass") (new-sound-id) 1024 0 0 1 #t)
            )
        )
      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
      (sp-launch-particles-var
        *sp-particle-system-2d*
        (-> *part-id-table* 1772)
        gp-0
        (the-as sparticle-launch-state #f)
        (the-as sparticle-launch-control #f)
        1.0
        )
      )
    )
  (none)
  )

;; definition of type peeper
(deftype peeper (process-drawable)
  ()
  :heap-base #x40
  :method-count-assert 20
  :size-assert         #xb0
  :flag-assert         #x14004000b0
  (:states
    peeper-down
    peeper-hide
    peeper-up
    peeper-wait
    )
  )

;; definition for method 3 of type peeper
(defmethod inspect peeper ((obj peeper))
  (let ((t9-0 (method-of-type process-drawable inspect)))
    (t9-0 obj)
    )
  obj
  )

;; failed to figure out what this is:
(defstate peeper-wait (peeper)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (let ((v1-0 arg2))
      (the-as object (when (= v1-0 'hide)
                       (let ((v0-0 (-> *display* base-frame-counter)))
                         (set! (-> self state-time) v0-0)
                         v0-0
                         )
                       )
              )
      )
    )
  :enter
  (behavior ()
    (if (nonzero? (-> self sound))
        (stop! (-> self sound))
        )
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (none)
    )
  :trans
  (behavior ()
    (if (and (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 1))
             (not (and *target* (>= 81920.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans)))))
             )
        (go peeper-up)
        )
    (none)
    )
  :code
  (behavior ()
    (logior! (-> self draw status) (draw-status hidden))
    (while #t
      (suspend)
      )
    (none)
    )
  :post
  (the-as (function none :behavior peeper) ja-post)
  )

;; failed to figure out what this is:
(defstate peeper-hide (peeper)
  :code
  (behavior ()
    (if (nonzero? (-> self sound))
        (stop! (-> self sound))
        )
    (let ((a0-1 (-> self skel root-channel 0)))
      (set! (-> a0-1 param 0) (the float (+ (-> a0-1 frame-group data 0 length) -1)))
      (set! (-> a0-1 param 1) 2.0)
      (joint-control-channel-group! a0-1 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (logior! (-> self draw status) (draw-status hidden))
    (go peeper-wait)
    (none)
    )
  :post
  (the-as (function none :behavior peeper) ja-post)
  )

;; failed to figure out what this is:
(defstate peeper-down (peeper)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('hide)
       (go peeper-wait)
       )
      )
    )
  :trans
  (behavior ()
    (if (and *target* (>= 61440.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
        (go peeper-wait)
        )
    (none)
    )
  :code
  (behavior ()
    (logior! (-> self draw status) (draw-status hidden))
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 1))
      (suspend)
      )
    (let* ((f30-0 2.0)
           (v1-10 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
           (v1-11 (the-as number (logior #x3f800000 v1-10)))
           )
      (countdown (gp-0 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-11)))) 1))
        (set! (-> self state-time) (-> *display* base-frame-counter))
        (until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 5))
          (if (nonzero? (-> self sound))
              (update! (-> self sound))
              )
          (spawn (-> self part) (-> self root trans))
          (suspend)
          )
        (set! (-> self state-time) (-> *display* base-frame-counter))
        (if (nonzero? (-> self sound))
            (stop! (-> self sound))
            )
        (until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 3))
          (suspend)
          )
        )
      )
    (go peeper-up)
    (none)
    )
  :post
  (the-as (function none :behavior peeper) ja-post)
  )

;; failed to figure out what this is:
(defstate peeper-up (peeper)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('hide)
       (go peeper-hide)
       )
      )
    )
  :enter
  (behavior ()
    (if (nonzero? (-> self sound))
        (stop! (-> self sound))
        )
    (logclear! (-> self draw status) (draw-status hidden))
    (none)
    )
  :trans
  (behavior ()
    (if (and *target* (>= 61440.0 (vector-vector-xz-distance (-> self root trans) (-> *target* control trans))))
        (go peeper-hide)
        )
    (none)
    )
  :code
  (behavior ()
    (while #t
      (let ((a0-0 (-> self skel root-channel 0)))
        (set! (-> a0-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 13)))
        (set! (-> a0-0 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 13)) data 0 length) -1))
              )
        (set! (-> a0-0 param 1) 1.0)
        (set! (-> a0-0 frame-num) 0.0)
        (joint-control-channel-group! a0-0 (the-as art-joint-anim (-> self draw art-group data 13)) num-func-seek!)
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-1 (-> self skel root-channel 0)))
          (set! (-> a0-1 param 0) (the float (+ (-> a0-1 frame-group data 0 length) -1)))
          (set! (-> a0-1 param 1) 1.0)
          (joint-control-channel-group-eval! a0-1 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      (go peeper-down)
      )
    (none)
    )
  :post
  (the-as (function none :behavior peeper) ja-post)
  )

;; definition for method 11 of type peeper
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! peeper ((obj peeper) (arg0 entity-actor))
  (set! (-> obj root) (new 'process 'trsqv))
  (process-drawable-from-entity! obj arg0)
  (initialize-skeleton obj *lightning-mole-sg* '())
  (set! (-> obj part) (create-launch-control (-> *part-group-id-table* 456) obj))
  (set! (-> obj sound) (new 'process 'ambient-sound arg0 (-> obj root trans)))
  (go peeper-up)
  (none)
  )