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

;; definition of type dig-conveyor
(deftype dig-conveyor (conveyor)
  ()
  :heap-base #x80
  :method-count-assert 28
  :size-assert         #x100
  :flag-assert         #x1c00800100
  )

;; definition for method 3 of type dig-conveyor
(defmethod inspect dig-conveyor ((obj dig-conveyor))
  (when (not obj)
    (set! obj obj)
    (goto cfg-4)
    )
  (let ((t9-0 (method-of-type conveyor inspect)))
    (t9-0 obj)
    )
  (label cfg-4)
  obj
  )

;; failed to figure out what this is:
(defskelgroup skel-dig-conveyor dig-conveyor dig-conveyor-lod0-jg dig-conveyor-idle-ja
              ((dig-conveyor-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 2 -8 10)
              :longest-edge (meters 8.7193)
              :origin-joint-index 3
              )

;; definition for method 24 of type dig-conveyor
;; WARN: Return type mismatch int vs none.
(defmethod init! dig-conveyor ((obj dig-conveyor))
  "Initializes defaults for things like the `speed` and `belt-radius`"
  (set! (-> obj speed) 30720.0)
  (set! (-> obj belt-radius) 15974.4)
  (set! (-> obj pull-y-threshold) 10240.0)
  (set! (-> obj draw light-index) (the-as uint 2))
  (none)
  )

;; definition for method 22 of type dig-conveyor
(defmethod get-art-group dig-conveyor ((obj dig-conveyor))
  "@returns The respective [[art-group]] for the [[conveyor]]"
  (art-group-get-by-name *level* "skel-dig-conveyor" (the-as (pointer uint32) #f))
  )

;; failed to figure out what this is:
(defpartgroup group-dig-cylinder-hit
  :id 1146
  :duration (seconds 2)
  :flags (use-local-clock)
  :bounds (static-bspherem 0 0 0 6)
  :parts ((sp-item 4960 :flags (bit6) :period 900 :length 5)
    (sp-item 4961 :flags (bit6) :period 900 :length 5)
    (sp-item 4962 :period 900 :length 15)
    (sp-item 4963 :fade-after (meters 60) :period 900 :length 10 :offset 10)
    (sp-item 4964 :fade-after (meters 60) :falloff-to (meters 60) :period 900 :length 50 :offset 20)
    (sp-item 4965 :fade-after (meters 200) :falloff-to (meters 200) :period 900 :length 25 :offset 20)
    (sp-item 4966 :fade-after (meters 150) :falloff-to (meters 150) :period 900 :length 20 :offset 30)
    )
  )

;; failed to figure out what this is:
(defpart 4966
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x34 :page #xc))
    (sp-flt spt-num 0.8)
    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
    (new 'static 'sp-field-init-spec
      :field (sp-field-id spt-rot-z)
      :flags (sp-flag spflag7)
      :random-rangef 65536.0
      :random-multf 1.0
      )
    (sp-rnd-flt spt-scale-y (meters 0.8) (meters 0.2) 1.0)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.1) (meters 0.26666668) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -6.2)
    (sp-flt spt-fade-b -6.2)
    (sp-flt spt-fade-a -0.1254902)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 1000)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (sp-int spt-next-time 25)
    (sp-launcher-by-id spt-next-launcher 4967)
    (new 'static 'sp-field-init-spec
      :field (sp-field-id spt-conerot-x)
      :flags (sp-flag from-pointer)
      :func '*sp-temp*
      )
    )
  )

;; failed to figure out what this is:
(defpart 4965
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x33 :page #xc))
    (sp-flt spt-num 0.8)
    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
    (sp-flt spt-rot-z (degrees 0.0))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.26666668) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.12) (degrees 0.24) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -6.2)
    (sp-flt spt-fade-b -6.2)
    (sp-flt spt-fade-a -0.1254902)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 1000)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (sp-int spt-next-time 25)
    (sp-launcher-by-id spt-next-launcher 4967)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 4967
  :init-specs ((sp-flt spt-fade-r -2.1666667)
    (sp-flt spt-fade-g -5.0)
    (sp-flt spt-fade-b -5.0)
    (sp-rnd-flt spt-fade-a -0.062068965 -0.72 1.0)
    (sp-int-plain-rnd spt-next-time 15 14 1)
    (sp-launcher-by-id spt-next-launcher 4968)
    )
  )

;; failed to figure out what this is:
(defpart 4968
  :init-specs ((sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.016666668) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -1.7)
    (sp-flt spt-fade-g -1.7)
    (sp-flt spt-fade-b -0.8)
    (sp-int-plain-rnd spt-next-time 35 14 1)
    (sp-launcher-by-id spt-next-launcher 4969)
    )
  )

;; failed to figure out what this is:
(defpart 4969
  :init-specs ((sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.5833333)
    (sp-flt spt-fade-g -0.75)
    (sp-flt spt-fade-b -0.9444444)
    (sp-int-plain-rnd spt-next-time 150 29 1)
    (sp-launcher-by-id spt-next-launcher 4970)
    )
  )

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

;; failed to figure out what this is:
(defpart 4961
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xca :page #xc))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 5))
    (sp-flt spt-rot-x 2048.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-flt spt-a 24.0)
    (sp-flt spt-scalevel-x (meters 0.13333334))
    (sp-flt spt-rotvel-z (degrees 0.3))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -2.1333334)
    (sp-flt spt-fade-b -4.266667)
    (sp-flt spt-fade-a 0.0)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow)
    (sp-int spt-next-time 75)
    (sp-launcher-by-id spt-next-launcher 4971)
    )
  )

;; failed to figure out what this is:
(defpart 4971
  :init-specs ((sp-flt spt-scalevel-x (meters 0))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.85333335)
    (sp-flt spt-fade-g -1.7066667)
    (sp-flt spt-fade-b -1.7066667)
    (sp-flt spt-fade-a -0.64)
    )
  )

;; failed to figure out what this is:
(defpart 4960
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 5))
    (sp-flt spt-rot-x 2048.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-flt spt-a 24.0)
    (sp-flt spt-scalevel-x (meters 0.5))
    (sp-flt spt-rotvel-z (degrees 0.3))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -4.266667)
    (sp-flt spt-fade-b -4.266667)
    (sp-flt spt-fade-a 0.0)
    (sp-int spt-timer 65)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-int spt-next-time 30)
    (sp-launcher-by-id spt-next-launcher 4972)
    )
  )

;; failed to figure out what this is:
(defpart 4972
  :init-specs ((sp-flt spt-scalevel-x (meters -0.2857143))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -1.8285714)
    (sp-flt spt-fade-g -3.6571429)
    (sp-flt spt-fade-b -3.6571429)
    (sp-flt spt-fade-a -1.3714286)
    )
  )

;; failed to figure out what this is:
(defpart 4964
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #xc))
    (sp-rnd-flt spt-num 6.0 2.0 1.0)
    (sp-flt spt-x (meters 0.25))
    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 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 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 16.0 48.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.083333336) (meters 0.083333336) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0016666667) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.12) (degrees 0.24) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -3.1)
    (sp-flt spt-fade-b -0.1)
    (sp-rnd-flt spt-accel-y -0.68266666 -1.3653333 1.0)
    (sp-flt spt-friction 0.87)
    (sp-int spt-timer 1000)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (sp-int-plain-rnd spt-next-time 35 14 1)
    (sp-launcher-by-id spt-next-launcher 4973)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 4973
  :init-specs ((sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.14444445)
    (sp-flt spt-fade-g -0.33333334)
    (sp-flt spt-fade-b -0.33333334)
    (sp-int-plain-rnd spt-next-time 45 14 1)
    (sp-launcher-by-id spt-next-launcher 4974)
    )
  )

;; failed to figure out what this is:
(defpart 4974
  :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g -0.08695652) (sp-flt spt-fade-a -0.18478261))
  )

;; failed to figure out what this is:
(defpart 4962
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-rnd-flt spt-num 2.0 1.0 1.0)
    (sp-rnd-flt spt-x (meters 0) (meters 0.6) 1.0)
    (sp-rnd-flt spt-scale-x (meters 2.5) (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 70.0 20.0 1.0)
    (sp-rnd-flt spt-g 70.0 20.0 1.0)
    (sp-rnd-flt spt-b 70.0 20.0 1.0)
    (sp-rnd-flt spt-a 0.0 40.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.1) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.033333335) (meters 0.02) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.12) (degrees 0.24) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 3.3)
    (sp-flt spt-fade-g 1.2)
    (sp-flt spt-fade-b 1.2)
    (sp-flt spt-fade-a 1.76)
    (sp-flt spt-friction 0.88)
    (sp-int spt-timer 710)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3)
    (sp-int-plain-rnd spt-next-time 35 14 1)
    (sp-launcher-by-id spt-next-launcher 4975)
    (sp-rnd-flt spt-conerot-x (degrees -1440.0) (degrees 2880.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 4975
  :init-specs ((sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -1.0833334)
    (sp-flt spt-fade-g -2.1666667)
    (sp-flt spt-fade-b -2.1666667)
    (sp-flt spt-fade-a -0.46666667)
    (sp-int-plain-rnd spt-next-time 45 14 1)
    (sp-launcher-by-id spt-next-launcher 4976)
    )
  )

;; failed to figure out what this is:
(defpart 4976
  :init-specs ((sp-flt spt-fade-r -1.7)
    (sp-flt spt-fade-g -0.8)
    (sp-flt spt-fade-b -0.8)
    (sp-flt spt-fade-a -1.0)
    (sp-int spt-next-time 50)
    (sp-launcher-by-id spt-next-launcher 4977)
    )
  )

;; failed to figure out what this is:
(defpart 4977
  :init-specs ((sp-flt spt-scalevel-x (meters 0))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.17)
    (sp-flt spt-fade-g -0.3)
    (sp-flt spt-fade-b -0.3)
    (sp-flt spt-fade-a -0.1)
    )
  )

;; failed to figure out what this is:
(defpart 4963
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #xc))
    (sp-rnd-flt spt-num 4.0 2.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.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-rnd-flt spt-r 192.0 64.0 1.0)
    (sp-flt spt-g 65.0)
    (sp-rnd-flt spt-b 128.0 64.0 1.0)
    (sp-rnd-flt spt-a 32.0 96.0 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.13333334) (meters 0.02) 1.0)
    (sp-flt spt-fade-r -1.4222223)
    (sp-flt spt-fade-g -1.4222223)
    (sp-flt spt-fade-b -1.4222223)
    (sp-flt spt-fade-a -1.4222223)
    (sp-int spt-timer 90)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    )
  )

;; definition of type dig-bomb-crate-cylinder
(deftype dig-bomb-crate-cylinder (rigid-body-object)
  ((flash-counter int8        :offset-assert 272)
   (attack-id     uint32      :offset-assert 276)
   (wait-time     time-frame  :offset-assert 280)
   )
  :heap-base #xa0
  :method-count-assert 54
  :size-assert         #x120
  :flag-assert         #x3600a00120
  (:methods
    (die () _type_ :state 53)
    )
  )

;; definition for method 3 of type dig-bomb-crate-cylinder
(defmethod inspect dig-bomb-crate-cylinder ((obj dig-bomb-crate-cylinder))
  (when (not obj)
    (set! obj obj)
    (goto cfg-4)
    )
  (let ((t9-0 (method-of-type rigid-body-object inspect)))
    (t9-0 obj)
    )
  (format #t "~2Tflash-counter: ~D~%" (-> obj flash-counter))
  (format #t "~2Tattack-id: ~D~%" (-> obj attack-id))
  (format #t "~2Twait-time: ~D~%" (-> obj wait-time))
  (label cfg-4)
  obj
  )

;; definition of type dig-bomb-crate-cylinder-spawn-params
(deftype dig-bomb-crate-cylinder-spawn-params (structure)
  ((pos  vector     :inline :offset-assert   0)
   (vel  vector     :inline :offset-assert  16)
   (avel vector     :inline :offset-assert  32)
   (quat quaternion :inline :offset-assert  48)
   )
  :method-count-assert 9
  :size-assert         #x40
  :flag-assert         #x900000040
  )

;; definition for method 3 of type dig-bomb-crate-cylinder-spawn-params
(defmethod inspect dig-bomb-crate-cylinder-spawn-params ((obj dig-bomb-crate-cylinder-spawn-params))
  (when (not obj)
    (set! obj obj)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" obj 'dig-bomb-crate-cylinder-spawn-params)
  (format #t "~1Tpos: #<vector @ #x~X>~%" (-> obj pos))
  (format #t "~1Tvel: #<vector @ #x~X>~%" (-> obj vel))
  (format #t "~1Tavel: #<vector @ #x~X>~%" (-> obj avel))
  (format #t "~1Tquat: #<quaternion @ #x~X>~%" (-> obj quat))
  (label cfg-4)
  obj
  )

;; failed to figure out what this is:
(defskelgroup skel-dig-bomb-crate-cylinder dig-bomb-crate-cylinder dig-bomb-crate-cylinder-lod0-jg dig-bomb-crate-cylinder-idle-ja
              ((dig-bomb-crate-cylinder-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 1.5)
              )

;; definition for symbol *dig-bomb-crate-cylinder-constants*, type rigid-body-object-constants
(define *dig-bomb-crate-cylinder-constants*
  (new 'static 'rigid-body-object-constants
    :info (new 'static 'rigid-body-info
      :mass 1.0
      :inv-mass 1.0
      :linear-damping 0.99
      :angular-damping 0.9
      :bounce-factor 0.5
      :friction-factor 0.1
      :cm-offset-joint (new 'static 'vector :w 1.0)
      :inertial-tensor-box (new 'static 'array meters 3 (meters 1) (meters 3) (meters 1))
      )
    :extra (new 'static 'rigid-body-object-extra-info
      :max-time-step 0.02
      :gravity (meters 80)
      :idle-distance (meters 200)
      :attack-force-scale 2.0
      )
    :name '*dig-bomb-crate-cylinder-constants*
    )
  )

;; failed to figure out what this is:
(defstate idle (dig-bomb-crate-cylinder)
  :virtual #t
  :code (behavior ()
    (go-virtual die)
    (none)
    )
  )

;; failed to figure out what this is:
(defstate active (dig-bomb-crate-cylinder)
  :virtual #t
  :enter (behavior ()
    (let ((t9-0 (-> (method-of-type rigid-body-object active) enter)))
      (if t9-0
          (t9-0)
          )
      )
    (set! (-> self flash-counter) 0)
    0
    (none)
    )
  :trans (behavior ()
    (let ((v1-2 (ja-group)))
      (when (and v1-2 (= v1-2 (-> self draw art-group data 3)))
        (let* ((gp-0 (-> self flash-counter))
               (v1-5 gp-0)
               )
          (cond
            ((zero? v1-5)
             (when (>= (ja-aframe-num 0) 1.4)
               (sound-play "dig-bomb-beep" :position (-> self root-override-2 trans))
               (set-vector! (-> self draw color-mult) 1.1 0.25 0.25 1.0)
               (set! (-> self flash-counter) (+ gp-0 1))
               )
             )
            ((= v1-5 1)
             (set-vector! (-> self draw color-mult) 1.0 1.0 1.0 1.0)
             (set-vector! (-> self draw color-emissive) 1.0 1.0 1.0 1.0)
             (set! (-> self flash-counter) (+ gp-0 1))
             )
            ((= v1-5 2)
             (set-vector! (-> self draw color-mult) 1.0 1.0 1.0 1.0)
             (set-vector! (-> self draw color-emissive) 0.0 0.0 0.0 1.0)
             (set! (-> self flash-counter) (+ gp-0 1))
             )
            ((= v1-5 3)
             (when (< (ja-aframe-num 0) 1.4)
               (set! (-> self flash-counter) 0)
               0
               )
             )
            )
          )
        )
      )
    (none)
    )
  :code (behavior ()
    (let ((f30-0 (rand-vu-float-range 0.22 0.27)))
      (set! (-> self wait-time) (+ (-> self clock frame-counter) (the int (rand-vu-float-range 0.0 450.0))))
      (while (< (-> self clock frame-counter) (-> self wait-time))
        (suspend)
        )
      (ja-no-eval :group! (-> self draw art-group data 3)
                  :num! (seek!
                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) frames num-frames) -1))
                    f30-0
                    )
                  :frame-num 0.0
                  )
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek! max f30-0))
        )
      (ja-no-eval :group! (-> self draw art-group data 2)
                  :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) frames num-frames) -1)))
                  :frame-num 0.0
                  )
      (let ((gp-1 (-> self clock frame-counter)))
        (until (>= (- (-> self clock frame-counter) gp-1) (seconds 0.5))
          (suspend)
          )
        )
      (ja-no-eval :group! (-> self draw art-group data 3)
                  :num! (seek!
                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) frames num-frames) -1))
                    f30-0
                    )
                  :frame-num 0.0
                  )
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek! max f30-0))
        )
      (ja-no-eval :group! (-> self draw art-group data 2)
                  :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) frames num-frames) -1)))
                  :frame-num 0.0
                  )
      (let ((gp-2 (-> self clock frame-counter)))
        (until (>= (- (-> self clock frame-counter) gp-2) (seconds 0.5))
          (suspend)
          )
        )
      (ja-no-eval :group! (-> self draw art-group data 3)
                  :num! (seek!
                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) frames num-frames) -1))
                    f30-0
                    )
                  :frame-num 0.0
                  )
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek! max f30-0))
        )
      )
    (ja-no-eval :group! (-> self draw art-group data 2)
                :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) frames num-frames) -1)))
                :frame-num 0.0
                )
    (let ((gp-3 (-> self clock frame-counter)))
      (until (>= (- (-> self clock frame-counter) gp-3) (seconds 0.5))
        (suspend)
        )
      )
    (ja-no-eval :group! (-> self draw art-group data 3)
                :num! (seek!
                  (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) frames num-frames) -1))
                  0.375
                  )
                :frame-num 0.0
                )
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek! max 0.375))
      )
    (ja-no-eval :group! (-> self draw art-group data 2)
                :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) frames num-frames) -1)))
                :frame-num 0.0
                )
    (let ((gp-4 (-> self clock frame-counter)))
      (until (>= (- (-> self clock frame-counter) gp-4) (seconds 0.25))
        (suspend)
        )
      )
    (ja-no-eval :group! (-> self draw art-group data 3)
                :num! (seek!
                  (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) frames num-frames) -1))
                  0.4375
                  )
                :frame-num 0.0
                )
    (until (ja-done? 0)
      (suspend)
      (ja :num! (seek! max 0.4375))
      )
    (ja-no-eval :group! (-> self draw art-group data 2)
                :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) frames num-frames) -1)))
                :frame-num 0.0
                )
    (let ((gp-5 (-> self clock frame-counter)))
      (until (>= (- (-> self clock frame-counter) gp-5) (seconds 0.125))
        (suspend)
        )
      )
    (dotimes (gp-6 12)
      (ja-no-eval :group! (-> self draw art-group data 3)
                  :num! (seek!
                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) frames num-frames) -1))
                    0.437
                    )
                  :frame-num 0.0
                  )
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek! max 0.437))
        )
      (ja-no-eval :group! (-> self draw art-group data 2)
                  :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) frames num-frames) -1)))
                  :frame-num 0.0
                  )
      (let ((s5-0 (-> self clock frame-counter)))
        (until (>= (- (-> self clock frame-counter) s5-0) (seconds 0.05))
          (suspend)
          )
        )
      )
    (go-virtual die)
    (none)
    )
  )

;; failed to figure out what this is:
(defstate die (dig-bomb-crate-cylinder)
  :virtual #t
  :enter (behavior ()
    (send-event (ppointer->process (-> self parent)) 'died)
    (let ((v1-6 (-> self root-override-2 root-prim)))
      (set! (-> v1-6 prim-core collide-as) (collide-spec))
      (set! (-> v1-6 prim-core collide-with) (collide-spec))
      )
    0
    (logior! (-> self draw status) (draw-control-status no-draw))
    (none)
    )
  :code (behavior ()
    (sound-play "dig-bomb-explo")
    (let ((gp-1 (new 'stack-no-clear 'explosion-init-params)))
      (set! (-> gp-1 spawn-point quad) (-> self root-override-2 trans quad))
      (quaternion-copy! (-> gp-1 spawn-quat) (-> self root-override-2 quat))
      (set! (-> gp-1 radius) 28672.0)
      (set! (-> gp-1 group) (-> *part-group-id-table* 1146))
      (set! (-> gp-1 collide-with)
            (collide-spec backgnd jak crate civilian enemy obstacle vehicle-sphere hit-by-others-list player-list pusher)
            )
      (set! (-> gp-1 penetrate-using) (penetrate explode))
      (explosion-spawn (the-as process-drawable *entity-pool*) explosion gp-1)
      )
    (while (-> self child)
      (suspend)
      )
    (cleanup-for-death self)
    (none)
    )
  )

;; definition for method 46 of type dig-bomb-crate-cylinder
(defmethod rigid-body-object-method-46 dig-bomb-crate-cylinder ((obj dig-bomb-crate-cylinder) (arg0 process-drawable) (arg1 int) (arg2 symbol) (arg3 event-message-block))
  (case arg2
    (('track)
     #t
     )
    (else
      ((method-of-type rigid-body-object rigid-body-object-method-46) obj arg0 arg1 arg2 arg3)
      )
    )
  )

;; definition for method 47 of type dig-bomb-crate-cylinder
;; WARN: Return type mismatch object vs symbol.
(defmethod rigid-body-object-method-47 dig-bomb-crate-cylinder ((obj dig-bomb-crate-cylinder)
                                                              (arg0 process-drawable)
                                                              (arg1 attack-info)
                                                              (arg2 touching-shapes-entry)
                                                              (arg3 penetrate)
                                                              )
  (the-as
    symbol
    (cond
      ((logtest? (penetrate jak-yellow-shot jak-red-shot jak-blue-shot jak-dark-shot enemy-yellow-shot enemy-dark-shot)
                 arg3
                 )
       (go (method-of-object obj die))
       )
      (else
        (if (logtest? (penetrate explode) arg3)
            (set! arg3 (penetrate spin))
            )
        ((method-of-type rigid-body-object rigid-body-object-method-47) obj arg0 arg1 arg2 (the-as penetrate arg3))
        )
      )
    )
  )

;; definition for method 45 of type dig-bomb-crate-cylinder
;; WARN: Return type mismatch sound-id vs none.
(defmethod rigid-body-object-method-45 dig-bomb-crate-cylinder ((obj dig-bomb-crate-cylinder) (arg0 rigid-body-impact))
  (let* ((f0-0 (-> arg0 impulse))
         (f1-0 28672.0)
         (f30-0 (* f0-0 (/ 1.0 f1-0) (-> obj info info inv-mass)))
         )
    (if (< (* 28672.0 (-> obj info info mass)) (-> arg0 impulse))
        (sound-play-by-name
          (static-sound-name "barrel-bomb-hit")
          (new-sound-id)
          (the int (* 1024.0 f30-0))
          0
          0
          (sound-group sfx)
          (-> obj root-override-2 trans)
          )
        )
    )
  (none)
  )

;; definition for method 37 of type dig-bomb-crate-cylinder
;; INFO: Used lq/sq
;; WARN: Return type mismatch int vs none.
(defmethod rigid-body-object-method-37 dig-bomb-crate-cylinder ((obj dig-bomb-crate-cylinder))
  (with-pp
    (let ((a1-0 (new 'stack-no-clear 'collide-query)))
      (set! (-> a1-0 start-pos quad) (-> obj rbody state position quad))
      (vector-float*! (-> a1-0 move-dist) (-> obj rbody state lin-velocity) (-> pp clock seconds-per-frame))
      (let ((v1-3 a1-0))
        (set! (-> v1-3 radius) (+ 4096.0 (-> obj root-override-2 root-prim local-sphere w)))
        (set! (-> v1-3 collide-with) (-> obj root-override-2 root-prim prim-core collide-with))
        (set! (-> v1-3 ignore-process0) obj)
        (set! (-> v1-3 ignore-process1) #f)
        (set! (-> v1-3 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
        (set! (-> v1-3 action-mask) (collide-action solid))
        )
      (fill-using-line-sphere *collide-cache* a1-0)
      )
    (if *display-collide-cache*
        (debug-draw *collide-cache*)
        )
    (rigid-body-object-method-30 obj)
    (set! (-> obj root-override-2 transv quad) (-> obj rbody state lin-velocity quad))
    (quaternion-copy! (-> obj root-override-2 quat) (-> obj rbody state rotation))
    (rigid-body-method-24 (-> obj rbody state))
    (let ((v1-19 (-> obj rbody))
          (a1-2 (-> obj root-override-2 trans))
          )
      (rigid-body-method-23 (-> v1-19 state) a1-2)
      )
    (set! (-> obj node-list data 0 bone transform trans quad) (-> obj root-override-2 trans quad))
    (transform-post)
    0
    (none)
    )
  )

;; definition for method 32 of type dig-bomb-crate-cylinder
;; WARN: Return type mismatch int vs none.
(defmethod allocate-and-init-cshape dig-bomb-crate-cylinder ((obj dig-bomb-crate-cylinder))
  (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player))))
    (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s5-0 reaction) cshape-reaction-default)
    (set! (-> s5-0 no-reaction)
          (the-as (function collide-shape-moving collide-query vector vector object) nothing)
          )
    (set! (-> s5-0 penetrated-by) (penetrate))
    (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0)))
      (set! (-> s5-0 total-prims) (the-as uint 3))
      (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle))
      (set! (-> s4-0 prim-core collide-with)
            (collide-spec backgnd jak crate enemy obstacle hit-by-others-list player-list pusher)
            )
      (set! (-> s4-0 prim-core action) (collide-action solid))
      (set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 7168.0)
      (set! (-> s5-0 root-prim) s4-0)
      )
    (let ((v1-12 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-12 prim-core collide-as) (collide-spec obstacle))
      (set! (-> v1-12 prim-core collide-with)
            (collide-spec backgnd jak crate enemy obstacle hit-by-others-list player-list pusher)
            )
      (set! (-> v1-12 prim-core action) (collide-action solid))
      (set! (-> v1-12 transform-index) 0)
      (set-vector! (-> v1-12 local-sphere) 0.0 2048.0 0.0 4505.6)
      )
    (let ((v1-14 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
      (set! (-> v1-14 prim-core collide-as) (collide-spec obstacle))
      (set! (-> v1-14 prim-core collide-with)
            (collide-spec backgnd jak crate enemy obstacle hit-by-others-list player-list pusher)
            )
      (set! (-> v1-14 prim-core action) (collide-action solid))
      (set! (-> v1-14 transform-index) 0)
      (set-vector! (-> v1-14 local-sphere) 0.0 -2048.0 0.0 4096.0)
      )
    (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
    (let ((v1-17 (-> s5-0 root-prim)))
      (set! (-> s5-0 backup-collide-as) (-> v1-17 prim-core collide-as))
      (set! (-> s5-0 backup-collide-with) (-> v1-17 prim-core collide-with))
      )
    (set! (-> s5-0 max-iteration-count) (the-as uint 2))
    (set! (-> s5-0 event-self) 'touched)
    (set! (-> obj root-override-2) s5-0)
    )
  0
  (none)
  )

;; definition for method 33 of type dig-bomb-crate-cylinder
;; WARN: Return type mismatch int vs none.
(defmethod init-skel-and-rigid-body dig-bomb-crate-cylinder ((obj dig-bomb-crate-cylinder))
  (initialize-skeleton
    obj
    (the-as
      skeleton-group
      (art-group-get-by-name *level* "skel-dig-bomb-crate-cylinder" (the-as (pointer uint32) #f))
      )
    (the-as pair 0)
    )
  (alloc-and-init-rigid-body-control obj *dig-bomb-crate-cylinder-constants*)
  (logclear! (-> obj mask) (process-mask actor-pause))
  (logior! (-> obj rbody state flags) (rigid-body-flag enable-collision))
  (set! (-> obj draw light-index) (the-as uint 10))
  0
  (none)
  )

;; definition for function dig-bomb-crate-cylinder-init-by-other
;; INFO: Used lq/sq
;; WARN: Return type mismatch object vs none.
(defbehavior dig-bomb-crate-cylinder-init-by-other dig-bomb-crate-cylinder ((arg0 dig-bomb-crate-cylinder-spawn-params) (arg1 entity-actor))
  (process-entity-set! self arg1)
  (allocate-and-init-cshape self)
  (set! (-> self root-override-2 trans quad) (-> arg0 pos quad))
  (quaternion-copy! (-> self root-override-2 quat) (-> arg0 quat))
  (init-skel-and-rigid-body self)
  (set! (-> self mask) (logior (process-mask platform) (-> self mask)))
  (vector-float*! (-> self rbody state lin-momentum) (-> arg0 vel) (-> self info info mass))
  (vector-float*! (-> self rbody state ang-momentum) (-> arg0 avel) (-> self info info mass))
  (go-virtual idle)
  (none)
  )

;; definition for function dig-bomb-crate-cylinder-spawn
;; WARN: Return type mismatch (pointer process) vs (pointer dig-bomb-crate-cylinder).
(defun dig-bomb-crate-cylinder-spawn ((arg0 process-tree) (arg1 dig-bomb-crate-cylinder-spawn-params) (arg2 entity-actor))
  (process-spawn dig-bomb-crate-cylinder arg1 arg2 :to arg0)
  )

;; definition of type dig-bomb-crate
(deftype dig-bomb-crate (process-focusable)
  ()
  :heap-base #x50
  :method-count-assert 30
  :size-assert         #xcc
  :flag-assert         #x1e005000cc
  (:methods
    (idle () _type_ :state 27)
    (die () _type_ :state 28)
    (dig-bomb-crate-method-29 (_type_ vector) none 29)
    )
  )

;; definition for method 3 of type dig-bomb-crate
(defmethod inspect dig-bomb-crate ((obj dig-bomb-crate))
  (when (not obj)
    (set! obj obj)
    (goto cfg-4)
    )
  (let ((t9-0 (method-of-type process-focusable inspect)))
    (t9-0 obj)
    )
  (label cfg-4)
  obj
  )

;; failed to figure out what this is:
(defskelgroup skel-dig-bomb-crate dig-bomb-crate dig-bomb-crate-lod0-jg dig-bomb-crate-idle-ja
              ((dig-bomb-crate-lod0-mg (meters 20)) (dig-bomb-crate-lod1-mg (meters 999999)))
              :bounds (static-spherem 0 2 0 4.5)
              )

;; failed to figure out what this is:
(defskelgroup skel-dig-bomb-crate-explode dig-bomb-crate dig-bomb-crate-explode-lod0-jg dig-bomb-crate-explode-idle-ja
              ((dig-bomb-crate-explode-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 2 0 4.5)
              )

;; definition for symbol *dig-bomb-crate-exploder-params*, type joint-exploder-static-params
(define *dig-bomb-crate-exploder-params*
  (new 'static 'joint-exploder-static-params
    :joints (new 'static 'boxed-array :type joint-exploder-static-joint-params
      (new 'static 'joint-exploder-static-joint-params :joint-index 3 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 4 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 5 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 6 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 7 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 8 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 9 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 10 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 11 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 12 :parent-joint-index -1)
      (new 'static 'joint-exploder-static-joint-params :joint-index 13 :parent-joint-index -1)
      )
    :collide-spec #x1
    :art-level #f
    )
  )

;; definition for symbol *dig-bomb-crate-array*, type (inline-array vector)
(define *dig-bomb-crate-array* (new 'static 'inline-array vector 8
                                 (new 'static 'vector :x -5038.08 :y 5120.0 :z -5038.08)
                                 (new 'static 'vector :x 5038.08 :y 5120.0 :z -5038.08)
                                 (new 'static 'vector :x -5038.08 :y 5120.0 :z 5038.08)
                                 (new 'static 'vector :x 5038.08 :y 5120.0 :z 5038.08)
                                 (new 'static 'vector :x -5038.08 :y 15155.2 :z -5038.08)
                                 (new 'static 'vector :x 5038.08 :y 15155.2 :z -5038.08)
                                 (new 'static 'vector :x -5038.08 :y 15155.2 :z 5038.08)
                                 (new 'static 'vector :x 5038.08 :y 15155.2 :z 5038.08)
                                 )
        )

;; definition for method 29 of type dig-bomb-crate
;; WARN: Return type mismatch int vs none.
(defmethod dig-bomb-crate-method-29 dig-bomb-crate ((obj dig-bomb-crate) (arg0 vector))
  (let ((s4-0 (-> obj root-override trans)))
    (dotimes (s3-0 8)
      (let ((a0-2 (-> *dig-bomb-crate-array* s3-0))
            (s2-0 (new 'stack-no-clear 'dig-bomb-crate-cylinder-spawn-params))
            )
        (vector+! (-> s2-0 pos) s4-0 a0-2)
        (vector-! (-> s2-0 vel) (-> s2-0 pos) arg0)
        (vector-normalize! (-> s2-0 vel) (rand-vu-float-range 81920.0 163840.0))
        (+! (-> s2-0 vel y) (rand-vu-float-range 12288.0 32768.0))
        (quaternion-identity! (-> s2-0 quat))
        (set! (-> s2-0 avel x) (rand-vu-float-range -3.0 3.0))
        (set! (-> s2-0 avel y) (rand-vu-float-range -3.0 3.0))
        (set! (-> s2-0 avel z) (rand-vu-float-range -3.0 3.0))
        (dig-bomb-crate-cylinder-spawn
          *entity-pool*
          (the-as dig-bomb-crate-cylinder-spawn-params (-> s2-0 pos))
          (-> obj entity)
          )
        )
      )
    )
  0
  (none)
  )

;; definition for method 20 of type dig-bomb-crate
(defmethod get-trans dig-bomb-crate ((obj dig-bomb-crate) (arg0 int))
  "@returns the `trans` [[vector]] from the process's `root` (typically either a [[trsqv]] or a [[collide-shape]])"
  (local-vars (v0-0 vector))
  (let ((v1-0 (-> obj root-override)))
    (case arg0
      ((2 3)
       (set! v0-0 (new 'static 'vector))
       (vector+! v0-0 (-> v1-0 trans) (new 'static 'vector :y 12288.0))
       )
      (else
        (set! v0-0 (-> v1-0 trans))
        )
      )
    )
  v0-0
  )

;; failed to figure out what this is:
(defstate idle (dig-bomb-crate)
  :virtual #t
  :event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
    (case event-type
      (('attack)
       (logclear! (-> self mask) (process-mask actor-pause))
       (go-virtual die)
       )
      (('track)
       #t
       )
      )
    )
  :code (the-as (function none :behavior dig-bomb-crate) sleep-code)
  )

;; failed to figure out what this is:
(defstate die (dig-bomb-crate)
  :virtual #t
  :enter (behavior ()
    (send-event (ppointer->process (-> self parent)) 'died)
    (let ((v1-6 (-> self root-override root-prim)))
      (set! (-> v1-6 prim-core collide-as) (collide-spec))
      (set! (-> v1-6 prim-core collide-with) (collide-spec))
      )
    0
    (logclear! (-> self mask) (process-mask actor-pause))
    (let* ((gp-0 *target*)
           (a0-4 (if (type? gp-0 process-focusable)
                     gp-0
                     )
                 )
           )
      (if a0-4
          (dig-bomb-crate-method-29 self (get-trans a0-4 0))
          )
      )
    (none)
    )
  :code (behavior ()
    (suspend)
    (logior! (-> self draw status) (draw-control-status no-draw))
    (sound-play "bomb-rack-break")
    (let ((gp-1 (new 'stack 'joint-exploder-tuning (the-as uint 1))))
      (let* ((s5-1 *target*)
             (a0-5 (if (type? s5-1 process-focusable)
                       s5-1
                       )
                   )
             )
        (when a0-5
          (set! (-> gp-1 fountain-rand-transv-lo quad) (-> (get-trans a0-5 0) quad))
          (set! (-> gp-1 fountain-rand-transv-lo y) (+ -16384.0 (-> gp-1 fountain-rand-transv-lo y)))
          )
        )
      (set! (-> gp-1 fountain-rand-transv-hi x) 24576.0)
      (set! (-> gp-1 fountain-rand-transv-hi y) 81920.0)
      (set! (-> gp-1 fountain-rand-transv-hi z) 12288.0)
      (set! (-> gp-1 fountain-rand-transv-hi w) 32768.0)
      (process-spawn
        joint-exploder
        (art-group-get-by-name *level* "skel-dig-bomb-crate-explode" (the-as (pointer uint32) #f))
        6
        gp-1
        *dig-bomb-crate-exploder-params*
        :to self
        )
      )
    (suspend)
    (let ((gp-2 (-> self clock frame-counter)))
      (until (>= (- (-> self clock frame-counter) gp-2) (seconds 4))
        (suspend)
        )
      )
    (cleanup-for-death self)
    (none)
    )
  )

;; definition for method 11 of type dig-bomb-crate
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! dig-bomb-crate ((obj dig-bomb-crate) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player))))
    (set! (-> s4-0 penetrated-by)
          (penetrate
            generic-attack
            lunge
            flop
            punch
            spin
            roll
            uppercut
            bonk
            tube
            vehicle
            flut-attack
            board
            mech-punch
            dark-punch
            dark-giant
            )
          )
    (let ((v1-3 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
      (set! (-> v1-3 prim-core collide-as) (collide-spec enemy camera-blocker))
      (set! (-> v1-3 prim-core collide-with) (collide-spec jak player-list))
      (set! (-> v1-3 prim-core action) (collide-action solid))
      (set! (-> v1-3 transform-index) 3)
      (set-vector! (-> v1-3 local-sphere) 0.0 8192.0 0.0 18432.0)
      (set! (-> s4-0 total-prims) (the-as uint 1))
      (set! (-> s4-0 root-prim) v1-3)
      )
    (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
    (let ((v1-6 (-> s4-0 root-prim)))
      (set! (-> s4-0 backup-collide-as) (-> v1-6 prim-core collide-as))
      (set! (-> s4-0 backup-collide-with) (-> v1-6 prim-core collide-with))
      )
    (set! (-> obj root-override) s4-0)
    )
  (process-drawable-from-entity! obj arg0)
  (initialize-skeleton
    obj
    (the-as skeleton-group (art-group-get-by-name *level* "skel-dig-bomb-crate" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask)))
  (transform-post)
  (go (method-of-object obj idle))
  (none)
  )

;; failed to figure out what this is:
(defskelgroup skel-dig-jump-pad dig-jump-pad dig-jump-pad-lod0-jg dig-jump-pad-idle-ja
              ((dig-jump-pad-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 15)
              )

;; definition of type dig-jump-pad
(deftype dig-jump-pad (bouncer)
  ()
  :heap-base #x60
  :method-count-assert 25
  :size-assert         #xd4
  :flag-assert         #x19006000d4
  )

;; definition for method 3 of type dig-jump-pad
(defmethod inspect dig-jump-pad ((obj dig-jump-pad))
  (when (not obj)
    (set! obj obj)
    (goto cfg-4)
    )
  (let ((t9-0 (method-of-type bouncer inspect)))
    (t9-0 obj)
    )
  (label cfg-4)
  obj
  )

;; definition for method 23 of type dig-jump-pad
;; WARN: Return type mismatch int vs none.
(defmethod init-skeleton! dig-jump-pad ((obj dig-jump-pad))
  (initialize-skeleton
    obj
    (the-as skeleton-group (art-group-get-by-name *level* "skel-dig-jump-pad" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  0
  (none)
  )

;; definition for method 24 of type dig-jump-pad
;; WARN: Return type mismatch int vs none.
(defmethod bouncer-method-24 dig-jump-pad ((obj dig-jump-pad))
  "TODO - collision stuff"
  (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player))))
    (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0)))
      (set! (-> s5-0 total-prims) (the-as uint 3))
      (set! (-> s4-0 prim-core collide-as) (collide-spec crate))
      (set! (-> s4-0 prim-core collide-with) (collide-spec jak player-list))
      (set! (-> s4-0 prim-core action) (collide-action solid))
      (set! (-> s4-0 transform-index) 0)
      (set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 61440.0)
      (set! (-> s5-0 root-prim) s4-0)
      )
    (let ((v1-8 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 2))))
      (set! (-> v1-8 prim-core collide-as) (collide-spec crate))
      (set! (-> v1-8 prim-core collide-with) (collide-spec jak player-list))
      (set! (-> v1-8 prim-core action) (collide-action solid))
      (set! (-> v1-8 transform-index) 0)
      (set-vector! (-> v1-8 local-sphere) 0.0 0.0 0.0 12288.0)
      )
    (let ((v1-10 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 8))))
      (set! (-> v1-10 prim-core collide-as) (collide-spec crate))
      (set! (-> v1-10 prim-core collide-with) (collide-spec jak player-list))
      (set! (-> v1-10 prim-core action) (collide-action))
      (set-vector! (-> v1-10 local-sphere) 0.0 4096.0 0.0 6144.0)
      )
    (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
    (let ((v1-13 (-> s5-0 root-prim)))
      (set! (-> s5-0 backup-collide-as) (-> v1-13 prim-core collide-as))
      (set! (-> s5-0 backup-collide-with) (-> v1-13 prim-core collide-with))
      )
    (set! (-> obj root) s5-0)
    )
  0
  (none)
  )

;; failed to figure out what this is:
(defstate fire (dig-jump-pad)
  :virtual #t
  :code (behavior ()
    (sound-play "dig-air-lifter")
    (let ((s5-1 (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 3)))
          (gp-1 (get-process *default-dead-pool* part-tracker #x4000))
          )
      (when gp-1
        (let ((t9-4 (method-of-type part-tracker activate)))
          (t9-4
            (the-as part-tracker gp-1)
            *entity-pool*
            (symbol->string (-> part-tracker symbol))
            (the-as pointer #x70004000)
            )
          )
        (let ((t9-5 run-function-in-process)
              (a0-5 gp-1)
              (a1-4 part-tracker-init)
              (a2-5 (-> *part-group-id-table* 1147))
              (a3-2 0)
              (t0-1 #f)
              (t1-1 #f)
              (t2-1 #f)
              (t3-0 *launch-matrix*)
              )
          (set! (-> t3-0 trans quad) (-> s5-1 quad))
          ((the-as (function object object object object object object object object none) t9-5)
           a0-5
           a1-4
           a2-5
           a3-2
           t0-1
           t1-1
           t2-1
           t3-0
           )
          )
        (-> gp-1 ppointer)
        )
      )
    (let ((t9-6 (-> (method-of-type bouncer fire) code)))
      (if t9-6
          ((the-as (function none) t9-6))
          )
      )
    (none)
    )
  )