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

;; failed to figure out what this is:
(defpartgroup group-kermit-charging-up
  :id 298
  :bounds (static-bspherem 0 5 0 5)
  :parts
  ((sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1356)
    (sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1357)
    (sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1358)
    (sp-item 1360)
    (sp-item 1361 :fade-after (meters 120) :falloff-to (meters 120))
    (sp-item 1362 :fade-after (meters 120) :falloff-to (meters 120))
    (sp-item 1363 :fade-after (meters 120) :falloff-to (meters 120))
    (sp-item 1358 :fade-after (meters 30) :falloff-to (meters 30) :flags (start-dead))
    (sp-item 1357 :fade-after (meters 60) :falloff-to (meters 60) :flags (start-dead))
    (sp-item 1356 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
    (sp-item 1358 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
    (sp-item 1357 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
    (sp-item 1356 :fade-after (meters 110) :falloff-to (meters 110) :flags (start-dead))
    (sp-item 1358 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
    (sp-item 1357 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
    )
  )

;; failed to figure out what this is:
(defpart 1360
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.1 1.0 1.0)
    (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
    (sp-flt spt-y (meters 0.5))
    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.4) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 32.0)
    (sp-flt spt-g 32.0)
    (sp-flt spt-b 192.0)
    (sp-flt spt-a 64.0)
    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
    (sp-flt spt-fade-a -0.2)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit3)
    )
  )

;; failed to figure out what this is:
(defpart 1359
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
    (sp-rnd-flt spt-num 0.05 0.1 1.0)
    (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
    (sp-flt spt-y (meters 0.5))
    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 64.0)
    (sp-flt spt-g 64.0)
    (sp-flt spt-b 192.0)
    (sp-flt spt-a 96.0)
    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
    (sp-flt spt-fade-a 0.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit3)
    )
  )

;; failed to figure out what this is:
(defpart 1356
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
    (sp-flt spt-num 1.0)
    (sp-sound (new 'static 'sound-spec
                :mask #x1
                :num 0.05
                :group #x1
                :sound-name (static-sound-name "eco-blue-spark1")
                :volume #x2cc
                )
              )
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
    (sp-flt spt-r 64.0)
    (sp-flt spt-g 64.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-fade-a -1.6)
    (sp-int spt-timer 90)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 10)
    (sp-launcher-by-id spt-next-launcher 1364)
    )
  )

;; failed to figure out what this is:
(defpart 1357
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-sound (new 'static 'sound-spec
                :mask #x1
                :num 0.075
                :group #x1
                :sound-name (static-sound-name "eco-blue-spark2")
                :volume #x400
                )
              )
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
    (sp-flt spt-r 64.0)
    (sp-flt spt-g 64.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-fade-a -1.6)
    (sp-int spt-timer 90)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 10)
    (sp-launcher-by-id spt-next-launcher 1364)
    )
  )

;; failed to figure out what this is:
(defpart 1358
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-sound (new 'static 'sound-spec
                :mask #x1
                :num 0.05
                :group #x1
                :sound-name (static-sound-name "eco-blue-spark3")
                :volume #x2cc
                )
              )
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
    (sp-flt spt-r 64.0)
    (sp-flt spt-g 64.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-fade-a -1.6)
    (sp-int spt-timer 90)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 10)
    (sp-launcher-by-id spt-next-launcher 1364)
    )
  )

;; failed to figure out what this is:
(defpart 1361
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
    (sp-rnd-flt spt-num 0.1 0.5 1.0)
    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
    (sp-flt spt-y (meters 0.5))
    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 255.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-fade-a -1.6)
    (sp-int spt-timer 91)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 10)
    (sp-launcher-by-id spt-next-launcher 1364)
    )
  )

;; failed to figure out what this is:
(defpart 1362
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
    (sp-rnd-flt spt-num 0.2 0.4 1.0)
    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
    (sp-flt spt-y (meters 0.5))
    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 255.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-fade-a -1.6)
    (sp-int spt-timer 91)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 10)
    (sp-launcher-by-id spt-next-launcher 1364)
    )
  )

;; failed to figure out what this is:
(defpart 1363
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
    (sp-rnd-flt spt-num 0.3 0.1 1.0)
    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
    (sp-flt spt-y (meters 0.5))
    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 255.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-fade-a -1.6)
    (sp-int spt-timer 91)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 10)
    (sp-launcher-by-id spt-next-launcher 1364)
    )
  )

;; failed to figure out what this is:
(defpart 1364
  :init-specs
  ((sp-flt spt-r 64.0)
    (sp-flt spt-g 64.0)
    (sp-flt spt-fade-r -1.0)
    (sp-flt spt-fade-g -1.0)
    (sp-flt spt-fade-a -2.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-kermit-charged-up
  :id 299
  :flags (use-local-clock)
  :bounds (static-bspherem 0 0 0 8)
  :parts
  ((sp-item 1365 :period 15 :length 5))
  )

;; failed to figure out what this is:
(defpart 1365
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
    (sp-rnd-flt spt-num 1.0 1.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 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 70.0 16.0 1.0)
    (sp-rnd-flt spt-g 70.0 16.0 1.0)
    (sp-flt spt-b 70.0)
    (sp-flt spt-a 128.0)
    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-flt spt-accel-y -10.922667)
    (sp-flt spt-friction 0.99)
    (sp-int spt-timer 75)
    (sp-cpuinfo-flags bit2)
    (sp-flt spt-userdata 0.0)
    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-kermit-pulse
  :id 300
  :bounds (static-bspherem 0 0 0 8)
  :parts
  ((sp-item 1368 :flags (launch-asap) :binding 1366)
    (sp-item 1366 :flags (start-dead launch-asap) :binding 1367)
    (sp-item 1367 :flags (start-dead))
    (sp-item 1367 :flags (start-dead))
    )
  )

;; failed to figure out what this is:
(defpart 1368
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 3))
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 32.0 32.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 128.0 64.0 1.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer 3000)
    (sp-cpuinfo-flags bit3)
    (sp-func spt-func 'sparticle-track-root)
    (sp-int spt-next-time 5)
    (sp-launcher-by-id spt-next-launcher 1369)
    )
  )

;; failed to figure out what this is:
(defpart 1369
  :init-specs
  ((sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-a 100.0 28.0 1.0)
    (sp-int spt-next-time 5)
    (sp-launcher-by-id spt-next-launcher 1369)
    )
  )

;; failed to figure out what this is:
(defpart 1366
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-flt spt-num 2.0)
    (sp-rnd-flt spt-y (meters 4) (meters 16) 1.0)
    (sp-flt spt-z (meters 0))
    (sp-flt spt-scale-x (meters 1.5))
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 32.0 32.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 128.0 64.0 1.0)
    (sp-flt spt-a 64.0)
    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
    (sp-flt spt-vel-x (meters 0.053333335))
    (sp-flt spt-vel-y (meters 0.053333335))
    (sp-flt spt-vel-z (meters 0.002))
    (sp-int spt-timer 3000)
    (sp-cpuinfo-flags bit2 bit3 bit7)
    (sp-int spt-next-time 300)
    (sp-launcher-by-id spt-next-launcher 1370)
    )
  )

;; failed to figure out what this is:
(defpart 1370
  :init-specs
  ((sp-flt spt-vel-z (meters 0)))
  )

;; failed to figure out what this is:
(defpart 1367
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 0.85))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 32.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 96.0 64.0 1.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-scalevel-x (meters -0.00075757573))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-g -0.16)
    (sp-flt spt-fade-a -0.14222223)
    (sp-int spt-timer 1500)
    (sp-cpuinfo-flags bit2 bit3)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-kermit-pulse-impact
  :id 301
  :duration 5
  :bounds (static-bspherem 0 0 0 3)
  :parts
  ((sp-item 1371) (sp-item 1372))
  )

;; failed to figure out what this is:
(defpart 1371
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 8.0)
    (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
    (sp-rnd-flt spt-z (meters -0.1) (meters 0.2) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.9) 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-flt spt-r 64.0)
    (sp-rnd-flt spt-g 192.0 64.0 1.0)
    (sp-rnd-flt spt-b 192.0 64.0 1.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.00083333335) 1.0)
    (sp-flt spt-scalevel-x (meters 0.01))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-g -2.1333334)
    (sp-flt spt-fade-a -0.64)
    (sp-flt spt-friction 0.96)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 30)
    (sp-launcher-by-id spt-next-launcher 1373)
    (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 180.0) 1.0)
    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpart 1373
  :init-specs
  ((sp-flt spt-fade-r -3.2)
    (sp-flt spt-fade-g 1.0)
    (sp-flt spt-fade-b 1.0)
    (sp-int spt-next-time 30)
    (sp-launcher-by-id spt-next-launcher 1374)
    )
  )

;; failed to figure out what this is:
(defpart 1374
  :init-specs
  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
  )

;; failed to figure out what this is:
(defpart 1372
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-flt spt-num 32.0)
    (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
    (sp-rnd-flt spt-z (meters -0.1) (meters 0.2) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.1) (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-flt spt-r 64.0)
    (sp-rnd-flt spt-g 192.0 64.0 1.0)
    (sp-rnd-flt spt-b 192.0 64.0 1.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.06666667) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
    (sp-flt spt-fade-g -2.1333334)
    (sp-flt spt-fade-a -1.4222223)
    (sp-flt spt-accel-y -2.7306666)
    (sp-flt spt-friction 0.93)
    (sp-int spt-timer 90)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 30)
    (sp-launcher-by-id spt-next-launcher 1373)
    (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; definition of type joint-mod-tracker
(deftype joint-mod-tracker (basic)
  ((target-pos               vector                   :inline :offset-assert  16)
   (target-pos-func          (function vector vector)         :offset-assert  32)
   (inv-forward-scale-factor float                            :offset-assert  36)
   (forward-scale-control    float                            :offset-assert  40)
   (forward-scale-max        float                            :offset-assert  44)
   (process                  kermit                           :offset-assert  48)
   (enable                   symbol                           :offset-assert  52)
   (up-axis                  int8                             :offset-assert  56)
   (forward-axis             int8                             :offset-assert  57)
   )
  :method-count-assert 9
  :size-assert         #x3a
  :flag-assert         #x90000003a
  (:methods
    (new (symbol type kermit int function int int) _type_ 0)
    )
  )

;; definition for method 3 of type joint-mod-tracker
(defmethod inspect joint-mod-tracker ((obj joint-mod-tracker))
  (format #t "[~8x] ~A~%" obj (-> obj type))
  (format #t "~Ttarget-pos: #<vector @ #x~X>~%" (-> obj target-pos))
  (format #t "~Ttarget-pos-func: ~A~%" (-> obj target-pos-func))
  (format #t "~Tinv-forward-scale-factor: ~f~%" (-> obj inv-forward-scale-factor))
  (format #t "~Tforward-scale-control: ~f~%" (-> obj forward-scale-control))
  (format #t "~Tforward-scale-max: ~f~%" (-> obj forward-scale-max))
  (format #t "~Tprocess: ~A~%" (-> obj process))
  (format #t "~Tenable: ~A~%" (-> obj enable))
  (format #t "~Tup-axis: ~D~%" (-> obj up-axis))
  (format #t "~Tforward-axis: ~D~%" (-> obj forward-axis))
  obj
  )

;; definition for method 7 of type joint-mod-tracker
(defmethod relocate joint-mod-tracker ((obj joint-mod-tracker) (arg0 int))
  (&+! (-> obj process) arg0)
  obj
  )

;; definition for function build-matrix-from-up-and-forward-axes!
;; Used lq/sq
(defun build-matrix-from-up-and-forward-axes! ((arg0 matrix) (arg1 vector) (arg2 int) (arg3 vector) (arg4 int))
  (let ((s1-0 (new 'stack-no-clear 'vector))
        (s5-0 (new 'stack-no-clear 'vector))
        )
    (let ((s3-0 (vector-normalize-copy! (new 'stack-no-clear 'vector) arg3 1.0)))
      (vector-cross! s1-0 arg1 s3-0)
      (vector-normalize! s1-0 1.0)
      (vector-cross! s5-0 s3-0 s1-0)
      (if (!= (mod (+ arg2 1) 3) arg4)
          (vector-negate-in-place! s1-0)
          )
      (set! (-> arg0 vector 0 quad) (-> s1-0 quad))
      (set! (-> arg0 vector 1 quad) (-> s1-0 quad))
      (set! (-> arg0 vector 2 quad) (-> s1-0 quad))
      (set! (-> arg0 vector arg4 quad) (-> s3-0 quad))
      )
    (set! (-> arg0 vector arg2 quad) (-> s5-0 quad))
    )
  (set! (-> arg0 vector 0 w) 0.0)
  (set! (-> arg0 vector 1 w) 0.0)
  (set! (-> arg0 vector 2 w) 0.0)
  (set! (-> arg0 vector 3 quad) (-> *null-vector* quad))
  arg0
  )

;; definition for function joint-mod-tracker-callback
;; Used lq/sq
(defun joint-mod-tracker-callback ((arg0 cspace) (arg1 transformq))
  (let ((s4-0 (the-as joint-mod-tracker (-> arg0 param1))))
    (cond
      ((-> s4-0 enable)
       (let ((t9-0 (-> s4-0 target-pos-func)))
         (if t9-0
             (t9-0 (-> s4-0 target-pos))
             )
         )
       (let ((s3-0 (-> s4-0 target-pos))
             (s5-1 (vector-matrix*! (new 'stack-no-clear 'vector) (-> arg1 trans) (-> arg0 parent bone transform)))
             )
         (let* ((s2-1 (vector-! (new 'stack-no-clear 'vector) s3-0 s5-1))
                (f30-0 (vector-length s2-1))
                )
           (build-matrix-from-up-and-forward-axes!
             (-> arg0 bone transform)
             *y-vector*
             (-> s4-0 up-axis)
             s2-1
             (-> s4-0 forward-axis)
             )
           (let ((f0-3 (fmin
                         (* f30-0 (-> s4-0 inv-forward-scale-factor) (-> s4-0 forward-scale-control))
                         (-> s4-0 forward-scale-max)
                         )
                       )
                 (v1-10 (-> arg0 bone transform vector (-> s4-0 forward-axis)))
                 )
             (vector-float*! v1-10 v1-10 f0-3)
             (set! (-> v1-10 w) 0.0)
             )
           )
         (set! (-> arg0 bone transform vector 3 quad) (-> s5-1 quad))
         )
       (set-vector! (-> arg0 bone scale) 1.0 1.0 1.0 1.0)
       )
      (else
        (set! (-> arg1 scale data (-> s4-0 forward-axis)) (-> s4-0 forward-scale-control))
        (cspace<-parented-transformq-joint! arg0 arg1)
        )
      )
    )
  (none)
  )

;; definition for method 0 of type joint-mod-tracker
(defmethod new joint-mod-tracker ((allocation symbol) (type-to-make type) (arg0 kermit) (arg1 int) (arg2 function) (arg3 int) (arg4 int))
  (let ((v0-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
    (set! (-> v0-0 process) arg0)
    (set! (-> v0-0 target-pos-func) (the-as (function vector vector) arg2))
    (set! (-> v0-0 up-axis) arg3)
    (set! (-> v0-0 forward-axis) arg4)
    (set! (-> v0-0 inv-forward-scale-factor) 0.0)
    (set! (-> v0-0 forward-scale-control) 1.0)
    (set! (-> v0-0 forward-scale-max) 1.0)
    (set! (-> v0-0 enable) #t)
    (let ((v1-5 (-> arg0 node-list data arg1)))
      (set! (-> v1-5 param0) joint-mod-tracker-callback)
      (set! (-> v1-5 param1) v0-0)
      )
    v0-0
    )
  )

;; definition of type kermit-pulse
(deftype kermit-pulse (process-drawable)
  ((parent-override (pointer kermit)      :offset         12)
   (self-override   kermit-pulse          :offset         28)
   (root-override   collide-shape-moving  :offset        112)
   (sound-id        sound-id              :offset-assert 176)
   )
  :heap-base #x50
  :method-count-assert 20
  :size-assert         #xb4
  :flag-assert         #x14005000b4
  (:states
    kermit-pulse-idle
    kermit-pulse-impact
    )
  )

;; definition for method 3 of type kermit-pulse
(defmethod inspect kermit-pulse ((obj kermit-pulse))
  (let ((t9-0 (method-of-type process-drawable inspect)))
    (t9-0 obj)
    )
  (format #t "~T~Tsound-id: ~D~%" (-> obj sound-id))
  obj
  )

;; failed to figure out what this is:
(defstate kermit-pulse-idle (kermit-pulse)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('touch 'attack)
       (send-event arg0 'attack (-> arg3 param 0) (new 'static 'attack-info))
       (go kermit-pulse-impact)
       )
      )
    )
  :enter
  (behavior ()
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (none)
    )
  :exit
  (behavior ()
    (sound-stop (-> self sound-id))
    (none)
    )
  :code
  (behavior ()
    (while (< (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 4))
      (sound-play-by-name
        (static-sound-name "kermit-loop")
        (-> self sound-id)
        1024
        0
        0
        1
        (the-as symbol (-> self root-override trans))
        )
      (spawn (-> self part) (-> self root-override trans))
      (find-ground-and-draw-shadow
        (-> self root-override trans)
        (the-as vector #f)
        8192.0
        (collide-kind background)
        (the-as process-drawable #f)
        0.0
        81920.0
        )
      (suspend)
      )
    (cleanup-for-death self)
    (none)
    )
  :post
  (behavior ()
    (update-transforms! (-> self root-override))
    (none)
    )
  )

;; failed to figure out what this is:
(defstate kermit-pulse-impact (kermit-pulse)
  :code
  (behavior ()
    (sound-play-by-name (static-sound-name "get-shocked") (new-sound-id) 1024 0 0 1 #t)
    (let ((gp-1 (get-process *default-dead-pool* part-tracker #x4000)))
      (when gp-1
        (let ((t9-3 (method-of-type part-tracker activate)))
          (t9-3 (the-as part-tracker gp-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
          )
        (run-now-in-process
          gp-1
          part-tracker-init
          (-> *part-group-id-table* 301)
          -1
          #f
          #f
          #f
          (-> self root-override trans)
          )
        (-> gp-1 ppointer)
        )
      )
    (cleanup-for-death self)
    (none)
    )
  )

;; definition for function kermit-pulse-init-by-other
;; INFO: Return type mismatch object vs none.
;; Used lq/sq
(defbehavior kermit-pulse-init-by-other kermit-pulse ((arg0 vector) (arg1 entity))
  (logclear! (-> self mask) (process-mask enemy attackable))
  (set! (-> self mask) (logior (process-mask projectile) (-> self mask)))
  (set! (-> self entity) arg1)
  (let ((s5-0 (new 'process 'collide-shape-moving self (collide-list-enum hit-by-player))))
    (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s5-0 reaction) default-collision-reaction)
    (set! (-> s5-0 no-reaction)
          (the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
          )
    (let ((s4-0 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> s4-0 prim-core collide-as) (collide-kind enemy))
      (set! (-> s4-0 collide-with) (collide-kind target))
      (set! (-> s4-0 prim-core action) (collide-action solid))
      (set! (-> s4-0 prim-core offense) (collide-offense indestructible))
      (set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 2867.2)
      (set-root-prim! s5-0 s4-0)
      )
    (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
    (backup-collide-with-as s5-0)
    (set! (-> self root-override) s5-0)
    )
  (set! (-> self root-override trans quad) (-> arg0 quad))
  (set! (-> self root-override quat vec quad) (-> self parent-override 0 collide-info quat vec quad))
  (vector-identity! (-> self root-override scale))
  (vector-reset! (-> self root-override transv))
  (set! (-> self sound-id) (new-sound-id))
  (set! (-> self part) (create-launch-control (-> *part-group-id-table* 300) self))
  (go kermit-pulse-idle)
  (none)
  )

;; definition for function spawn-kermit-pulse
;; INFO: Return type mismatch int vs none.
(defun spawn-kermit-pulse ((arg0 kermit) (arg1 vector) (arg2 entity))
  (let ((s3-0 (get-process *default-dead-pool* kermit-pulse #x4000)))
    (when s3-0
      (let ((t9-1 (method-of-type kermit-pulse activate)))
        (t9-1 (the-as kermit-pulse s3-0) arg0 'kermit-pulse (the-as pointer #x70004000))
        )
      (run-now-in-process s3-0 kermit-pulse-init-by-other arg1 arg2)
      (-> s3-0 ppointer)
      )
    )
  0
  (none)
  )

;; definition of type kermit
(deftype kermit (nav-enemy)
  ((child-override   (pointer kermit-pulse)           :offset         20)
   (rotate-dir       vector                   :inline :offset-assert 400)
   (charging-part    sparticle-launch-control         :offset-assert 416)
   (airborne         symbol                           :offset-assert 420)
   (tongue-control   joint-mod-tracker                :offset-assert 424)
   (tongue-pulse-pos float                            :offset-assert 428)
   (miss-count       int8                             :offset-assert 432)
   (charged-up       symbol                           :offset-assert 436)
   (sound-id         sound-id                         :offset-assert 440)
   )
  :heap-base #x150
  :method-count-assert 76
  :size-assert         #x1bc
  :flag-assert         #x4c015001bc
  (:states
    kermit-attack
    kermit-chase
    kermit-chase-new-position
    kermit-give-up
    kermit-idle
    kermit-notice
    kermit-patrol
    kermit-retract-tongue
    kermit-tongue-stuck
    )
  )

;; definition for method 3 of type kermit
(defmethod inspect kermit ((obj kermit))
  (let ((t9-0 (method-of-type nav-enemy inspect)))
    (t9-0 obj)
    )
  (format #t "~T~Trotate-dir: #<vector @ #x~X>~%" (-> obj rotate-dir))
  (format #t "~T~Tcharging-part: ~A~%" (-> obj charging-part))
  (format #t "~T~Tairborne: ~A~%" (-> obj airborne))
  (format #t "~T~Ttongue-control: ~A~%" (-> obj tongue-control))
  (format #t "~T~Ttongue-pulse-pos: ~f~%" (-> obj tongue-pulse-pos))
  (format #t "~T~Tmiss-count: ~D~%" (-> obj miss-count))
  (format #t "~T~Tcharged-up: ~A~%" (-> obj charged-up))
  (format #t "~T~Tsound-id: ~D~%" (-> obj sound-id))
  obj
  )

;; definition for method 7 of type kermit
;; INFO: Return type mismatch nav-enemy vs kermit.
(defmethod relocate kermit ((obj kermit) (arg0 int))
  (if (nonzero? (-> obj tongue-control))
      (&+! (-> obj tongue-control) arg0)
      )
  (if (nonzero? (-> obj charging-part))
      (&+! (-> obj charging-part) arg0)
      )
  (the-as kermit ((method-of-type nav-enemy relocate) obj arg0))
  )

;; definition for method 10 of type kermit
(defmethod deactivate kermit ((obj kermit))
  (if (nonzero? (-> obj charging-part))
      (kill-and-free-particles (-> obj charging-part))
      )
  ((method-of-type nav-enemy deactivate) obj)
  (none)
  )

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

;; definition for function kermit-enable-tongue
;; INFO: Return type mismatch int vs none.
(defbehavior kermit-enable-tongue kermit ()
  (set! (-> self tongue-control enable) #t)
  (set! (-> self draw bounds w) 81920.0)
  0
  (none)
  )

;; definition for function kermit-disable-tongue
;; INFO: Return type mismatch int vs none.
(defbehavior kermit-disable-tongue kermit ()
  (set! (-> self tongue-control enable) #f)
  (set! (-> self draw bounds w) 12288.0)
  0
  (none)
  )

;; definition for function kermit-tongue-pos
(defun kermit-tongue-pos ((arg0 kermit))
  (-> arg0 node-list data 24 bone transform vector 3)
  )

;; definition for function kermit-get-head-dir-xz
;; Used lq/sq
(defun kermit-get-head-dir-xz ((arg0 kermit) (arg1 vector))
  (set! (-> arg1 quad) (-> arg0 node-list data 8 bone transform vector 2 quad))
  (set! (-> arg1 y) 0.0)
  (vector-xz-normalize! arg1 1.0)
  )

;; definition for function kermit-get-head-dir
;; Used lq/sq
(defun kermit-get-head-dir ((arg0 kermit) (arg1 vector))
  (set! (-> arg1 quad) (-> arg0 node-list data 8 bone transform vector 2 quad))
  (vector-normalize! arg1 1.0)
  )

;; definition for function kermit-player-target-pos
(defun kermit-player-target-pos ()
  (target-pos 26)
  )

;; definition for function kermit-get-tongue-target-callback
;; Used lq/sq
(defun kermit-get-tongue-target-callback ((arg0 vector))
  (set! (-> arg0 quad) (-> (kermit-player-target-pos) quad))
  arg0
  )

;; definition for function kermit-check-tongue-is-clear?
(defbehavior kermit-check-tongue-is-clear? kermit ()
  (let* ((gp-0 (kermit-tongue-pos self))
         (v1-1 (-> self tongue-control target-pos))
         (s5-1 (vector-! (new 'stack-no-clear 'vector) v1-1 gp-0))
         (t2-0 (new 'stack 'collide-tri-result))
         (f30-0
           (fill-and-probe-using-line-sphere
             *collide-cache*
             gp-0
             s5-1
             409.6
             (collide-kind background cak-2 crate enemy wall-object projectile ground-object)
             self
             t2-0
             1
             )
           )
         (gp-1 (< f30-0 0.0))
         )
    (set! (-> self tongue-control forward-scale-max)
          (if gp-1
              2.0
              (* (vector-length s5-1) f30-0 (-> self tongue-control inv-forward-scale-factor))
              )
          )
    gp-1
    )
  )

;; definition for function kermit-check-to-hit-player?
(defbehavior kermit-check-to-hit-player? kermit ((arg0 float))
  (let* ((s5-0 (kermit-tongue-pos self))
         (v1-0 (kermit-player-target-pos))
         (s4-1 (vector-! (new 'stack-no-clear 'vector) v1-0 s5-0))
         (f30-0 (vector-length s4-1))
         (s5-1 (new 'stack-no-clear 'vector))
         (f0-0 f30-0)
         (s5-2 (vector-float*! s5-1 s4-1 (/ 1.0 f0-0)))
         (v0-5 (>= (vector-dot (kermit-get-head-dir-xz self (new 'stack-no-clear 'vector)) s5-2) (cos arg0)))
         )
    (and (< f30-0 49152.0) v0-5)
    )
  )

;; definition for function kermit-set-nav-mesh-target
;; Used lq/sq
(defbehavior kermit-set-nav-mesh-target kermit ((arg0 vector))
  (let* ((gp-0 (target-pos 0))
         (s5-1 (vector-! (new 'stack-no-clear 'vector) arg0 gp-0))
         )
    (vector-length s5-1)
    (let* ((a0-4 (vector-normalize-copy! (new 'stack-no-clear 'vector) s5-1 40960.0))
           (v1-2 (vector+! (new 'stack-no-clear 'vector) gp-0 a0-4))
           (v0-3 (-> self nav target-pos))
           )
      (set! (-> v0-3 quad) (-> v1-2 quad))
      v0-3
      )
    )
  )

;; definition for function kermit-short-hop
(defbehavior kermit-short-hop kermit ()
  (let ((a0-0 (-> self skel root-channel 0)))
    (set! (-> a0-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
    (set! (-> a0-0 param 0)
          (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) 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 5)) num-func-seek!)
    )
  (until (ja-done? 0)
    (let ((f0-4 (ja-aframe-num 0)))
      (if (>= f0-4 4.0)
          (set! (-> self airborne) #t)
          )
      (if (>= f0-4 14.0)
          (set! (-> self airborne) #f)
          )
      )
    (suspend)
    (let ((a0-2 (-> self skel root-channel 0)))
      (set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
      (set! (-> a0-2 param 1) 1.0)
      (joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
      )
    )
  #f
  )

;; definition for function kermit-long-hop
(defbehavior kermit-long-hop kermit ()
  (let ((a0-0 (-> self skel root-channel 0)))
    (set! (-> a0-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
    (set! (-> a0-0 param 0)
          (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) 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 6)) num-func-seek!)
    )
  (until (ja-done? 0)
    (let ((f0-4 (ja-aframe-num 0)))
      (if (>= f0-4 7.0)
          (set! (-> self airborne) #t)
          )
      (if (>= f0-4 29.0)
          (set! (-> self airborne) #f)
          )
      )
    (suspend)
    (let ((a0-2 (-> self skel root-channel 0)))
      (set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
      (set! (-> a0-2 param 1) 1.0)
      (joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
      )
    )
  #f
  )

;; definition for function kermit-hop
(defbehavior kermit-hop kermit ((arg0 float))
  (ja-channel-push! 1 30)
  (set! (-> self rotate-speed) 1820444.5)
  (let ((f0-2 (fmin arg0 (vector-vector-distance (-> self collide-info trans) (-> self nav target-pos)))))
    (cond
      ((< 16384.0 f0-2)
       (set! (-> self target-speed) (* 0.045454547 (-> *display* frames-per-second) f0-2))
       (kermit-long-hop)
       )
      (else
        (set! (-> self target-speed) (* 0.1 (-> *display* frames-per-second) f0-2))
        (kermit-short-hop)
        )
      )
    )
  (set! (-> self airborne) #f)
  #f
  )

;; definition for function kermit-set-rotate-dir-to-nav-target
;; Used lq/sq
(defbehavior kermit-set-rotate-dir-to-nav-target kermit ()
  (cond
    ((logtest? (nav-control-flags navcf19) (-> self nav flags))
     (vector-! (-> self rotate-dir) (-> self nav target-pos) (-> self collide-info trans))
     )
    (else
      (let ((v0-1 (-> self rotate-dir)))
        (set! (-> v0-1 quad) (-> self nav travel quad))
        v0-1
        )
      )
    )
  )

;; definition for function kermit-set-rotate-dir-to-player
(defbehavior kermit-set-rotate-dir-to-player kermit ()
  (vector-! (-> self rotate-dir) (target-pos 0) (-> self nav target-pos))
  )

;; failed to figure out what this is:
nav-enemy-default-event-handler

;; definition for method 39 of type kermit
;; INFO: Return type mismatch int vs none.
(defmethod common-post kermit ((obj kermit))
  ((the-as (function nav-enemy none) (find-parent-method kermit 39)) obj)
  (when (-> obj charged-up)
    )
  0
  (none)
  )

;; definition for function kermit-simple-post
(defbehavior kermit-simple-post kermit ()
  (nav-enemy-simple-post)
  (none)
  )

;; definition for function kermit-post
;; Used lq/sq
(defbehavior kermit-post kermit ()
  (cond
    ((-> self airborne)
     (dummy-11 (-> self nav) (-> self nav target-pos))
     (set! (-> self collide-info transv x) (-> self nav travel x))
     (set! (-> self collide-info transv y) 0.0)
     (set! (-> self collide-info transv z) (-> self nav travel z))
     (let ((f0-5
             (fmin
               (-> self target-speed)
               (* (vector-xz-length (-> self collide-info transv)) (-> *display* frames-per-second))
               )
             )
           )
       (vector-xz-normalize! (-> self collide-info transv) f0-5)
       )
     (seek-toward-heading-vec! (-> self collide-info) (-> self rotate-dir) (-> self rotate-speed) (seconds 0.05))
     (vector-v++!
       (-> self collide-info transv)
       (compute-acc-due-to-gravity (-> self collide-info) (new-stack-vector0) 0.0)
       )
     (integrate-for-enemy-with-move-to-ground!
       (-> self collide-info)
       (-> self collide-info transv)
       (collide-kind background)
       8192.0
       #t
       #f
       #f
       )
     (nav-enemy-common-post)
     )
    (else
      (set! (-> self collide-info transv quad) (-> *null-vector* quad))
      (kermit-simple-post)
      )
    )
  (none)
  )

;; definition for function kermit-get-new-patrol-point
;; Used lq/sq
(defbehavior kermit-get-new-patrol-point kermit ()
  (nav-enemy-get-new-patrol-point)
  (let ((v0-1 (-> self nav target-pos)))
    (set! (-> v0-1 quad) (-> self nav destination-pos quad))
    v0-1
    )
  )

;; failed to figure out what this is:
(defstate kermit-idle (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :enter
  (behavior ()
    (set! (-> self notice-time) 0)
    0
    (none)
    )
  :trans
  (behavior ()
    (if (and *target* (>= (-> self enemy-info idle-distance)
                          (vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
                          )
             )
        (go kermit-patrol)
        )
    (none)
    )
  :code
  (behavior ()
    (kermit-disable-tongue)
    (let ((gp-0 (-> self skel root-channel 0)))
      (joint-control-channel-group-eval!
        gp-0
        (the-as art-joint-anim (-> self draw art-group data 4))
        num-func-identity
        )
      (set! (-> gp-0 frame-num) 0.0)
      )
    (while #t
      (let ((a0-1 (-> self skel root-channel 0)))
        (set! (-> a0-1 param 0) 1.0)
        (joint-control-channel-group-eval! a0-1 (the-as art-joint-anim #f) num-func-loop!)
        )
      (suspend)
      )
    (none)
    )
  :post
  (the-as (function none :behavior kermit) ja-post)
  )

;; failed to figure out what this is:
(defstate kermit-patrol (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :enter
  (behavior ()
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (set-mode! (-> self neck) (joint-mod-handler-mode flex-blend))
    (kermit-get-new-patrol-point)
    (dummy-11 (-> self nav) (-> self nav target-pos))
    (none)
    )
  :trans
  (behavior ()
    (if (and (or (not *target*) (< (-> self enemy-info idle-distance)
                                   (vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
                                   )
                 )
             (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 1))
             )
        (go kermit-idle)
        )
    (kermit-set-rotate-dir-to-nav-target)
    (if (and (not (-> self airborne)) (nav-enemy-test-point-in-nav-mesh? (target-pos 0)))
        (go kermit-notice)
        )
    (if (logtest? (nav-control-flags navcf19) (-> self nav flags))
        (kermit-get-new-patrol-point)
        )
    (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 4)))
        (set! (-> a0-0 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
              )
        (set! (-> a0-0 param 1) 3.0)
        (set! (-> a0-0 frame-num) 0.0)
        (joint-control-channel-group! a0-0 (the-as art-joint-anim (-> self draw art-group data 4)) 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) 3.0)
          (joint-control-channel-group-eval! a0-1 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      (kermit-hop 20480.0)
      )
    (none)
    )
  :post
  kermit-post
  )

;; failed to figure out what this is:
(defstate kermit-notice (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :enter
  (behavior ()
    (set-mode! (-> self neck) (joint-mod-handler-mode look-at))
    (none)
    )
  :trans
  (behavior ()
    (kermit-set-rotate-dir-to-player)
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 30)
    (set-mode! (-> self neck) (joint-mod-handler-mode look-at))
    (kermit-hop 0.0)
    (go kermit-chase)
    (none)
    )
  :post
  kermit-post
  )

;; failed to figure out what this is:
(defstate kermit-give-up (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :enter
  (behavior ()
    (set-mode! (-> self neck) (joint-mod-handler-mode flex-blend))
    (none)
    )
  :code
  (behavior ()
    (go kermit-patrol)
    (none)
    )
  :post
  kermit-simple-post
  )

;; failed to figure out what this is:
(defstate kermit-chase-new-position (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :enter
  (behavior ()
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (set! (-> self miss-count) 0)
    (let* ((a1-1 (kermit-get-head-dir-xz self (new 'stack-no-clear 'vector)))
           (gp-0 (vector-rotate-around-y! (new 'stack-no-clear 'vector) a1-1 16384.0))
           (s5-0 (new 'stack-no-clear 'vector))
           (v1-2 #f)
           )
      (let ((s4-0 0))
        (while (and (not v1-2) (< s4-0 4))
          (let ((f0-0 (rand-vu-float-range -40960.0 40960.0)))
            (vector+*! s5-0 (-> self collide-info trans) gp-0 f0-0)
            )
          (kermit-set-nav-mesh-target s5-0)
          (set! v1-2 (nav-enemy-test-point-in-nav-mesh? (-> self nav target-pos)))
          (+! s4-0 1)
          )
        )
      (if (not v1-2)
          (kermit-set-nav-mesh-target (-> self collide-info trans))
          )
      )
    (dummy-11 (-> self nav) (-> self nav target-pos))
    (none)
    )
  :trans
  (behavior ()
    (when (not (-> self airborne))
      (if (or (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 3))
              (and (logtest? (nav-control-flags navcf19) (-> self nav flags))
                   (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 0.5))
                   )
              )
          (go kermit-chase)
          )
      )
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 51)
    (dotimes (gp-0 3)
      (let ((a0-1 (-> self skel root-channel 0)))
        (set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
        (set! (-> a0-1 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
              )
        (set! (-> a0-1 param 1) 4.0)
        (set! (-> a0-1 frame-num) 0.0)
        (joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-2 (-> self skel root-channel 0)))
          (set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
          (set! (-> a0-2 param 1) 4.0)
          (joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (while #t
      (kermit-hop 81920.0)
      (nop!)
      )
    (none)
    )
  :post
  kermit-post
  )

;; failed to figure out what this is:
(defstate kermit-chase (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :enter
  (behavior ()
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (set-mode! (-> self neck) (joint-mod-handler-mode look-at))
    (kermit-set-nav-mesh-target (-> self collide-info trans))
    (dummy-11 (-> self nav) (-> self nav target-pos))
    (none)
    )
  :trans
  (behavior ()
    (kermit-set-nav-mesh-target (-> self collide-info trans))
    (kermit-set-rotate-dir-to-player)
    (if (nav-enemy-test-point-in-nav-mesh? (target-pos 0))
        (set! (-> self state-time) (-> *display* base-frame-counter))
        )
    (kermit-tongue-pos self)
    (let ((v1-5 (kermit-player-target-pos)))
      (set! (-> self tongue-control target-pos quad) (-> v1-5 quad))
      )
    (when (not (-> self airborne))
      (if (or (not *target*) (< (-> self enemy-info idle-distance)
                                (vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
                                )
              )
          (go kermit-patrol)
          )
      (let ((gp-1 (kermit-check-to-hit-player? 3640.889))
            (v1-17 (kermit-check-tongue-is-clear?))
            )
        (when gp-1
          (if v1-17
              (go kermit-attack)
              (go kermit-chase-new-position)
              )
          )
        )
      (if (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 3))
          (go kermit-give-up)
          )
      )
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 51)
    (while #t
      (let ((a0-1 (-> self skel root-channel 0)))
        (set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
        (set! (-> a0-1 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
              )
        (set! (-> a0-1 param 1) 3.0)
        (set! (-> a0-1 frame-num) 0.0)
        (joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-2 (-> self skel root-channel 0)))
          (set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
          (set! (-> a0-2 param 1) 3.0)
          (joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      (if (not (kermit-check-to-hit-player? 3640.889))
          (kermit-hop 81920.0)
          )
      )
    (none)
    )
  :post
  kermit-post
  )

;; failed to figure out what this is:
(defstate kermit-attack (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :code
  (behavior ()
    (ja-channel-push! 1 51)
    (set! (-> self tongue-control forward-scale-control) 0.0)
    (kermit-enable-tongue)
    (let ((s5-0 #f)
          (gp-0 #f)
          )
      (let ((f30-0 1.0))
        (let ((a0-1 (-> self skel root-channel 0)))
          (set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
          (set! (-> a0-1 param 0)
                (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 7)) data 0 length) -1))
                )
          (set! (-> a0-1 param 1) 1.0)
          (set! (-> a0-1 frame-num) 0.0)
          (joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 7)) num-func-seek!)
          )
        (until (ja-done? 0)
          (set! (-> self tongue-control target-pos quad) (-> (kermit-player-target-pos) quad))
          (when (and (not s5-0) (>= (ja-aframe-num 0) 14.0))
            (set! s5-0 #t)
            (set! gp-0 (kermit-check-to-hit-player? 3640.889))
            (if (not gp-0)
                (set! f30-0 0.8)
                )
            )
          (when s5-0
            (if (and (not gp-0) (= (-> self tongue-control forward-scale-control) f30-0))
                (go kermit-retract-tongue)
                )
            (seek! (-> self tongue-control forward-scale-control) f30-0 0.25)
            )
          (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) 1.0)
            (joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
            )
          )
        )
      (cond
        (gp-0
          (level-hint-spawn
            (game-text-id kermit-break-tongue)
            "sksp0143"
            (the-as entity #f)
            *entity-pool*
            (game-task none)
            )
          (level-hint-spawn
            (game-text-id kermit-run-away-jak)
            "sksp0151"
            (the-as entity #f)
            *entity-pool*
            (game-task none)
            )
          (go kermit-tongue-stuck)
          )
        (else
          (go kermit-retract-tongue)
          )
        )
      )
    (none)
    )
  :post
  kermit-simple-post
  )

;; failed to figure out what this is:
(defstate kermit-tongue-stuck (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :enter
  (behavior ()
    (set! (-> self miss-count) 0)
    (set! (-> self tongue-control forward-scale-control) 1.0)
    (kermit-enable-tongue)
    (set! (-> self tongue-pulse-pos) 0.0)
    (spawn-kermit-pulse self (kermit-tongue-pos self) (-> self entity))
    (none)
    )
  :exit
  (behavior ()
    (sound-stop (-> self sound-id))
    (let ((v1-0 (-> self child-override)))
      (if v1-0
          (deactivate (-> v1-0 0))
          )
      )
    (none)
    )
  :trans
  (behavior ()
    (let ((s5-0 (kermit-player-target-pos))
          (gp-0 (kermit-tongue-pos self))
          )
      (if (or (< 73728.0 (vector-vector-distance s5-0 gp-0))
              (or (not (kermit-check-tongue-is-clear?)) (not (-> self child-override)))
              )
          (go kermit-retract-tongue)
          )
      (seek! (-> self tongue-pulse-pos) 1.0 (* 0.3 (-> *display* seconds-per-frame)))
      (when (and (-> self child-override) (let ((v1-9 (-> self child-override)))
                                            (= (-> (if v1-9
                                                       (-> v1-9 0 self-override)
                                                       )
                                                   type
                                                   )
                                               kermit-pulse
                                               )
                                            )
                 )
        (let* ((v1-13 (-> self child-override))
               (s4-0 (if v1-13
                         (-> v1-13 0 self-override)
                         )
                     )
               (v1-15 (vector-lerp! (new 'stack-no-clear 'vector) gp-0 s5-0 (-> self tongue-pulse-pos)))
               )
          (set! (-> s4-0 root-override trans quad) (-> v1-15 quad))
          )
        )
      (send-event *target* 'tongue gp-0)
      )
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 30)
    (while #t
      (let ((a0-1 (-> self skel root-channel 0)))
        (set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 10)))
        (set! (-> a0-1 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 10)) data 0 length) -1))
              )
        (set! (-> a0-1 param 1) 1.0)
        (set! (-> a0-1 frame-num) 0.0)
        (joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 10)) num-func-seek!)
        )
      (until (ja-done? 0)
        (sound-play-by-name
          (static-sound-name "kermit-stretch")
          (-> self sound-id)
          1024
          0
          0
          1
          (the-as symbol (-> self collide-info trans))
          )
        (suspend)
        (let ((a0-4 (-> self skel root-channel 0)))
          (set! (-> a0-4 param 0) (the float (+ (-> a0-4 frame-group data 0 length) -1)))
          (set! (-> a0-4 param 1) 1.0)
          (joint-control-channel-group-eval! a0-4 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (behavior ()
    (seek-to-point-toward-point! (-> self collide-info) (target-pos 0) (-> self rotate-speed) (seconds 0.05))
    (kermit-simple-post)
    (none)
    )
  )

;; failed to figure out what this is:
(defstate kermit-retract-tongue (kermit)
  :event
  (the-as
    (function process int symbol event-message-block object :behavior kermit)
    nav-enemy-default-event-handler
    )
  :enter
  (behavior ()
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (set! (-> self charged-up) #f)
    (+! (-> self miss-count) 1)
    (none)
    )
  :exit
  (behavior ()
    (set! (-> self tongue-control forward-scale-control) 0.0)
    (kermit-disable-tongue)
    (none)
    )
  :trans
  (behavior ()
    (kermit-set-nav-mesh-target (-> self collide-info trans))
    (kermit-set-rotate-dir-to-player)
    (when (not (-> self airborne))
      (when (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 2.5))
        (kill-and-free-particles (-> self charging-part))
        (set! (-> self charged-up) #t)
        (go kermit-chase)
        )
      )
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 30)
    (let ((a0-1 (-> self skel root-channel 0)))
      (set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
      (set! (-> a0-1 param 0)
            (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 8)) data 0 length) -1))
            )
      (set! (-> a0-1 param 1) 1.0)
      (set! (-> a0-1 frame-num) 0.0)
      (joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 8)) num-func-seek!)
      )
    (until (ja-done? 0)
      (if (>= (ja-aframe-num 0) 3.0)
          (seek! (-> self tongue-control forward-scale-control) 0.0 0.125)
          )
      (suspend)
      (let ((a0-4 (-> self skel root-channel 0)))
        (set! (-> a0-4 param 0) (the float (+ (-> a0-4 frame-group data 0 length) -1)))
        (set! (-> a0-4 param 1) 1.0)
        (joint-control-channel-group-eval! a0-4 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (set! (-> self tongue-control forward-scale-control) 0.0)
    (kermit-disable-tongue)
    (while #t
      (ja-channel-push! 1 30)
      (let ((a0-7 (-> self skel root-channel 0)))
        (set! (-> a0-7 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
        (set! (-> a0-7 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
              )
        (set! (-> a0-7 param 1) 4.0)
        (set! (-> a0-7 frame-num) 0.0)
        (joint-control-channel-group! a0-7 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-8 (-> self skel root-channel 0)))
          (set! (-> a0-8 param 0) (the float (+ (-> a0-8 frame-group data 0 length) -1)))
          (set! (-> a0-8 param 1) 4.0)
          (joint-control-channel-group-eval! a0-8 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      (kermit-hop 0.0)
      )
    (none)
    )
  :post
  kermit-post
  )

;; definition for symbol *kermit-nav-enemy-info*, type nav-enemy-info
(define *kermit-nav-enemy-info* (new 'static 'nav-enemy-info
                                  :idle-anim 4
                                  :walk-anim -1
                                  :turn-anim -1
                                  :notice-anim -1
                                  :run-anim -1
                                  :jump-anim 6
                                  :jump-land-anim -1
                                  :victory-anim -1
                                  :taunt-anim -1
                                  :die-anim 11
                                  :neck-joint 8
                                  :player-look-at-joint 5
                                  :run-travel-speed (meters 6)
                                  :run-rotate-speed (degrees 10000.0)
                                  :run-acceleration (meters 1)
                                  :run-turn-time (seconds 0.05)
                                  :walk-travel-speed (meters 3)
                                  :walk-rotate-speed (degrees 10000.0)
                                  :walk-acceleration (meters 1)
                                  :walk-turn-time (seconds 0.05)
                                  :attack-shove-back (meters 3)
                                  :attack-shove-up (meters 2)
                                  :shadow-size (meters 2)
                                  :notice-nav-radius (meters 10)
                                  :nav-nearest-y-threshold (meters 10)
                                  :notice-distance (meters 30)
                                  :stop-chase-distance (meters 40)
                                  :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 #t
                                  :move-to-ground #f
                                  :hover-if-no-ground #f
                                  :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 kermit
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! kermit ((obj kermit) (arg0 entity-actor))
  (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask)))
  (let ((s4-0 (new 'process 'collide-shape-moving obj (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 1) 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))
      (set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 16384.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 target))
        (set! (-> s2-0 prim-core action) (collide-action solid))
        (set! (-> s2-0 prim-core offense) (collide-offense touch))
        (set! (-> s2-0 transform-index) 3)
        (set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 3072.0)
        (append-prim s3-0 s2-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 *kermit-sg* '())
  (set! (-> obj draw origin-joint-index) (the-as uint 3))
  (set! (-> obj airborne) #f)
  (TODO-RENAME-45 obj *kermit-nav-enemy-info*)
  (set-vector! (-> obj neck twist-max) 3640.889 3640.889 0.0 1.0)
  (set! (-> obj neck up) (the-as uint 1))
  (set! (-> obj neck nose) (the-as uint 2))
  (set! (-> obj neck ear) (the-as uint 0))
  (set! (-> obj neck max-dist) 102400.0)
  (set! (-> obj neck ignore-angle) 16384.0)
  (set! (-> obj miss-count) 0)
  (set! (-> obj tongue-control) (new 'process 'joint-mod-tracker obj 24 kermit-get-tongue-target-callback 1 2))
  (let ((f0-16 49152.0))
    (set! (-> obj tongue-control inv-forward-scale-factor) (/ 1.0 f0-16))
    )
  (set! (-> obj tongue-control forward-scale-control) 0.0)
  (set! (-> obj tongue-control forward-scale-max) 2.0)
  (set! (-> obj tongue-control enable) #f)
  (set! (-> obj charged-up) #t)
  (set! (-> obj part) (create-launch-control (-> *part-group-id-table* 299) obj))
  (set! (-> obj charging-part) (create-launch-control (-> *part-group-id-table* 298) obj))
  (set! (-> obj sound-id) (new-sound-id))
  (go kermit-idle)
  (none)
  )