jak-project/test/decompiler/reference/levels/beach/seagull_REF.gc

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

;; failed to figure out what this is:
(defpartgroup group-seagull-takeoff
  :id 160
  :bounds (static-bspherem 0 -12 0 14)
  :parts
  ((sp-item 663 :fade-after (meters 20)))
  )

;; failed to figure out what this is:
(defpart 665
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-flt spt-vel-y (meters 0.4))
    (sp-flt spt-accel-y -819.2)
    (sp-int spt-timer 1500)
    (sp-cpuinfo-flags bit2 bit3)
    )
  )

;; definition for symbol sound-seagull-squall, type sound-spec
(define sound-seagull-squall
  (new 'static 'sound-spec :num 1.0 :group #x1 :sound-name (static-sound-name "seagulls-2") :volume #x400)
  )

;; definition of type seagull
(deftype seagull (process-drawable)
  ((root-override     collide-shape-moving    :offset        112)
   (index             int32                   :offset-assert 176)
   (flock             (pointer seagullflock)  :offset-assert 180)
   (heading           float                   :offset-assert 184)
   (tilt              float                   :offset-assert 188)
   (max-tilt          float                   :offset-assert 192)
   (angletan          float                   :offset-assert 196)
   (target-dist       float                   :offset-assert 200)
   (scared            int32                   :offset-assert 204)
   (temp-heading      float                   :offset-assert 208)
   (temp-heading-time int32                   :offset-assert 212)
   (part-time         time-frame              :offset-assert 216)
   (thrust            float                   :offset-assert 224)
   (teleport          symbol                  :offset-assert 228)
   )
  :heap-base #x80
  :method-count-assert 28
  :size-assert         #xe8
  :flag-assert         #x1c008000e8
  (:methods
    (move-vertically! (_type_ symbol) none 20)
    (adjust-heading-around-point-slow! (_type_ float) none 21)
    (dummy-22 (_type_) none 22)
    (adjust-heading-around-point! (_type_ float) none 23)
    (dummy-24 (_type_) none 24)
    (dummy-25 (_type_ float) none 25)
    (dummy-26 (_type_) symbol 26)
    (dummy-27 (_type_) none 27)
    )
  (:states
    seagull-flying
    seagull-idle
    (seagull-landing float)
    seagull-soaring
    seagull-takeoff
    )
  )

;; definition for method 3 of type seagull
(defmethod inspect seagull ((obj seagull))
  (let ((t9-0 (method-of-type process-drawable inspect)))
    (t9-0 obj)
    )
  (format #t "~T~Tindex: ~D~%" (-> obj index))
  (format #t "~T~Tflock: #x~X~%" (-> obj flock))
  (format #t "~T~Theading: ~f~%" (-> obj heading))
  (format #t "~T~Ttilt: ~f~%" (-> obj tilt))
  (format #t "~T~Tmax-tilt: ~f~%" (-> obj max-tilt))
  (format #t "~T~Tangletan: ~f~%" (-> obj angletan))
  (format #t "~T~Ttarget-dist: ~f~%" (-> obj target-dist))
  (format #t "~T~Tscared: ~D~%" (-> obj scared))
  (format #t "~T~Ttemp-heading: ~f~%" (-> obj temp-heading))
  (format #t "~T~Ttemp-heading-time: ~D~%" (-> obj temp-heading-time))
  (format #t "~T~Tpart-time: ~D~%" (-> obj part-time))
  (format #t "~T~Tthrust: ~f~%" (-> obj thrust))
  (format #t "~T~Tteleport: ~A~%" (-> obj teleport))
  obj
  )

;; definition of type seagullflock
(deftype seagullflock (process)
  ((self-override      seagullflock              :offset         28)
   (path               path-control              :offset-assert 112)
   (trans              vector            :inline :offset-assert 128)
   (bird               (pointer seagull) 64      :offset-assert 144)
   (birds              int32                     :offset-assert 400)
   (link               actor-link-info           :offset-assert 404)
   (bird-at-waterfall  uint64                    :offset-assert 408)
   (birds-at-waterfall int32                     :offset-assert 416)
   (target             vector            :inline :offset-assert 432)
   (targetnum          int32                     :offset-assert 448)
   (alert-time         time-frame                :offset-assert 456)
   (teleport-frames    int32                     :offset-assert 464)
   (cam-tracker        uint64                    :offset-assert 472)
   (state-time         time-frame                :offset-assert 480)
   (squall             ambient-sound             :offset-assert 488)
   (max-lift           float                     :offset-assert 492)
   )
  :heap-base #x180
  :method-count-assert 17
  :size-assert         #x1f0
  :flag-assert         #x11018001f0
  (:methods
    (create-the-flock! (_type_ vector) (pointer process) 14)
    (play-hint (_type_ int) none 15)
    (dummy-16 (_type_ seagull) float 16)
    )
  (:states
    seagullflock-at-waterfall
    seagullflock-idle
    )
  )

;; definition for method 3 of type seagullflock
(defmethod inspect seagullflock ((obj seagullflock))
  (let ((t9-0 (method-of-type process inspect)))
    (t9-0 obj)
    )
  (format #t "~T~Tpath: ~A~%" (-> obj path))
  (format #t "~T~Ttrans: #<vector @ #x~X>~%" (-> obj trans))
  (format #t "~T~Tbird[64] @ #x~X~%" (-> obj bird))
  (format #t "~T~Tbirds: ~D~%" (-> obj birds))
  (format #t "~T~Tlink: ~A~%" (-> obj link))
  (format #t "~T~Tbird-at-waterfall: ~D~%" (-> obj bird-at-waterfall))
  (format #t "~T~Tbirds-at-waterfall: ~D~%" (-> obj birds-at-waterfall))
  (format #t "~T~Ttarget: #<vector @ #x~X>~%" (-> obj target))
  (format #t "~T~Ttargetnum: ~D~%" (-> obj targetnum))
  (format #t "~T~Talert-time: ~D~%" (-> obj alert-time))
  (format #t "~T~Tteleport-frames: ~D~%" (-> obj teleport-frames))
  (format #t "~T~Tcam-tracker: ~D~%" (-> obj cam-tracker))
  (format #t "~T~Tstate-time: ~D~%" (-> obj state-time))
  (format #t "~T~Tsquall: ~A~%" (-> obj squall))
  (format #t "~T~Tmax-lift: ~f~%" (-> obj max-lift))
  obj
  )

;; definition for method 7 of type seagullflock
;; INFO: Return type mismatch process vs seagullflock.
(defmethod relocate seagullflock ((obj seagullflock) (arg0 int))
  (if (nonzero? (-> obj path))
      (&+! (-> obj path) arg0)
      )
  (if (nonzero? (-> obj link))
      (&+! (-> obj link) arg0)
      )
  (if (nonzero? (-> obj squall))
      (&+! (-> obj squall) arg0)
      )
  (the-as seagullflock ((method-of-type process relocate) obj arg0))
  )

;; definition for method 10 of type seagullflock
(defmethod deactivate seagullflock ((obj seagullflock))
  (if (nonzero? (-> obj squall))
      (stop! (-> obj squall))
      )
  ((method-of-type process deactivate) obj)
  (none)
  )

;; definition for symbol *seagull-boxes*, type (inline-array air-box)
(define *seagull-boxes*
  (new 'static 'inline-array air-box 10
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1146880.0 :y 143360.0 :z -1638400.0 :w -0.6427)
                                  (new 'static 'vector :x 286720.0 :z 716800.0 :w -0.766)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1277952.0 :y 14336.0 :z -1306624.0 :w -0.6427)
                                  (new 'static 'vector :x 675840.0 :z 114688.0 :w -0.766)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1474560.0 :y 10240.0 :z -1024000.0 :w -0.6427)
                                  (new 'static 'vector :x 1228800.0 :z 339968.0 :w -0.766)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1822720.0 :y 27033.6 :z -1961984.0 :w -0.6427)
                                  (new 'static 'vector :x 143360.0 :z 245760.0 :w -0.766)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1589248.0 :y 43417.6 :z -1933312.0 :w -0.6427)
                                  (new 'static 'vector :x 204800.0 :z 184320.0 :w -0.766)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1597440.0 :y 24985.6 :z -1757184.0 :w -0.6427)
                                  (new 'static 'vector :x 133120.0 :z 491520.0 :w -0.766)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1323008.0 :y 44236.8 :z -1771520.0 :w -0.6427)
                                  (new 'static 'vector :x 360448.0 :z 221184.0 :w -0.766)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1441792.0 :y 24985.6 :z -1564672.0 :w -0.6427)
                                  (new 'static 'vector :x 81920.0 :z 421888.0 :w -0.766)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -1124352.0 :y 27975.68 :z -1581465.6 :w -0.8533)
                                  (new 'static 'vector :x 204800.0 :z 221184.0 :w -0.5214)
                                  )
                          )
    (new 'static 'air-box :vecs (new 'static 'inline-array vector 2
                                  (new 'static 'vector :x -737280.0 :y 122880.0 :z -1396736.0 :w -0.8533)
                                  (new 'static 'vector :x 475136.0 :z 819200.0 :w -0.5214)
                                  )
                          )
    )
  )

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

;; definition for method 25 of type seagull
;; INFO: Return type mismatch int vs none.
(defmethod dummy-25 seagull ((obj seagull) (arg0 float))
  (let ((f1-1 (the float (sar (shl (the int (- arg0 (-> obj heading))) 48) 48)))
        (f0-5 (- (-> obj tilt)))
        )
    (let ((f2-0 (-> obj max-tilt)))
      (set! f0-5 (cond
                   ((< f1-1 -364.0889)
                    (if (< (- f2-0) f0-5)
                        (set! f0-5 (+ -91.022224 f0-5))
                        )
                    f0-5
                    )
                   ((< 364.0889 f1-1)
                    (if (< f0-5 f2-0)
                        (set! f0-5 (+ 91.022224 f0-5))
                        )
                    f0-5
                    )
                   ((< f0-5 0.0)
                    (+ 91.022224 f0-5)
                    )
                   (else
                     (+ -91.022224 f0-5)
                     )
                   )
            )
      )
    (set! (-> obj tilt) (- f0-5))
    (set! (-> obj heading) (the float (sar (shl (the int (+ (-> obj heading) (* 0.05 f0-5))) 48) 48)))
    )
  0
  (none)
  )

;; definition for method 24 of type seagull
;; INFO: Return type mismatch int vs none.
(defmethod dummy-24 seagull ((obj seagull))
  (let ((s5-0 (new 'stack-no-clear 'vector)))
    (vector-! s5-0 (-> obj flock 0 target) (-> obj root-override trans))
    (when (< (vector-dot s5-0 s5-0) 6710886400.0)
      (let ((v1-5 (ash 1 (-> obj index))))
        (when (zero? (logand v1-5 (-> obj flock 0 bird-at-waterfall)))
          (logior! (-> obj flock 0 bird-at-waterfall) v1-5)
          (+! (-> obj flock 0 birds-at-waterfall) 1)
          )
        )
      )
    (cond
      ((> (-> obj temp-heading-time) 0)
       (+! (-> obj temp-heading-time) -1)
       (let* ((v1-15 obj)
              (f1-2 (the float (sar (shl (the int (- (-> obj temp-heading) (-> v1-15 heading))) 48) 48)))
              (f0-7 (- (-> v1-15 tilt)))
              )
         (let ((f2-0 (-> v1-15 max-tilt)))
           (set! f0-7 (cond
                        ((< f1-2 -364.0889)
                         (if (< (- f2-0) f0-7)
                             (set! f0-7 (+ -91.022224 f0-7))
                             )
                         f0-7
                         )
                        ((< 364.0889 f1-2)
                         (if (< f0-7 f2-0)
                             (set! f0-7 (+ 91.022224 f0-7))
                             )
                         f0-7
                         )
                        ((< f0-7 0.0)
                         (+ 91.022224 f0-7)
                         )
                        (else
                          (+ -91.022224 f0-7)
                          )
                        )
                 )
           )
         (set! (-> v1-15 tilt) (- f0-7))
         (set! (-> v1-15 heading) (the float (sar (shl (the int (+ (-> v1-15 heading) (* 0.05 f0-7))) 48) 48)))
         )
       0
       )
      (else
        (let* ((f0-15 (atan (-> s5-0 x) (-> s5-0 z)))
               (v1-18 obj)
               (f1-12 (the float (sar (shl (the int (- f0-15 (-> v1-18 heading))) 48) 48)))
               (f0-20 (- (-> v1-18 tilt)))
               )
          (let ((f2-2 (-> v1-18 max-tilt)))
            (set! f0-20 (cond
                          ((< f1-12 -364.0889)
                           (if (< (- f2-2) f0-20)
                               (set! f0-20 (+ -91.022224 f0-20))
                               )
                           f0-20
                           )
                          ((< 364.0889 f1-12)
                           (if (< f0-20 f2-2)
                               (set! f0-20 (+ 91.022224 f0-20))
                               )
                           f0-20
                           )
                          ((< f0-20 0.0)
                           (+ 91.022224 f0-20)
                           )
                          (else
                            (+ -91.022224 f0-20)
                            )
                          )
                  )
            )
          (set! (-> v1-18 tilt) (- f0-20))
          (set! (-> v1-18 heading) (the float (sar (shl (the int (+ (-> v1-18 heading) (* 0.05 f0-20))) 48) 48)))
          )
        0
        )
      )
    (let ((f0-28 (+ (* (-> s5-0 x) (-> s5-0 x)) (* (-> s5-0 z) (-> s5-0 z)))))
      (set! (-> obj angletan) (/ (- (-> s5-0 y)) (sqrtf f0-28)))
      (set! (-> obj target-dist) (sqrtf (+ f0-28 (* (-> s5-0 y) (-> s5-0 y)))))
      )
    )
  0
  (none)
  )

;; definition for function seagull-post
;; INFO: Return type mismatch int vs none.
(defbehavior seagull-post seagull ()
  (let ((s5-0 (new 'stack-no-clear 'quaternion))
        (gp-0 (new 'stack-no-clear 'quaternion))
        )
    (quaternion-axis-angle! s5-0 0.0 0.0 1.0 (-> self tilt))
    (quaternion-axis-angle! gp-0 0.0 1.0 0.0 (-> self heading))
    (quaternion*! (-> self root-override quat) gp-0 s5-0)
    )
  (transform-post)
  0
  (none)
  )

;; failed to figure out what this is:
(defstate seagull-idle (seagull)
  :enter
  (behavior ()
    (let* ((v1-0 (-> self flock))
           (f30-0 (dummy-16
                    (if v1-0
                        (-> v1-0 0 self-override)
                        )
                    self
                    )
                  )
           (f28-0 21845.334)
           (f26-0 -0.5)
           (v1-5 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
           (v1-6 (the-as number (logior #x3f800000 v1-5)))
           )
      (set! (-> self heading)
            (the float (sar (shl (the int (+ f30-0 (* f28-0 (+ f26-0 (+ -1.0 (the-as float v1-6)))))) 48) 48))
            )
      )
    (none)
    )
  :trans
  (behavior ()
    (when (nonzero? (-> self scared))
      (+! (-> self scared) -1)
      (when (zero? (-> self scared))
        (restore-collide-with-as (-> self root-override))
        (go seagull-takeoff)
        )
      )
    (when *target*
      (let ((v1-12 (vector-! (new 'stack-no-clear 'vector) (-> *target* control trans) (-> self root-override trans))))
        (when (< (vector-dot v1-12 v1-12) 1677721600.0)
          (let ((v1-14 (-> self flock)))
            (play-hint
              (if v1-14
                  (-> v1-14 0 self-override)
                  )
              (-> self index)
              )
            )
          )
        )
      )
    (none)
    )
  :code
  (behavior ()
    (set! (-> self root-override trans y) (+ 20480.0 (-> self root-override trans y)))
    (move-to-ground (-> self root-override) 40960.0 40960.0 #t (collide-kind background))
    (update-transforms! (-> self root-override))
    (clear-collide-with-as (-> self root-override))
    (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 2))
        num-func-identity
        )
      (set! (-> gp-0 frame-num) (ja-aframe 0.0 0))
      )
    (while #t
      (let* ((f30-0 4.0)
             (v1-14 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-15 (the-as number (logior #x3f800000 v1-14)))
             (gp-1 (the int (* f30-0 (+ -1.0 (the-as float v1-15)))))
             )
        (let* ((f30-1 60.0)
               (v1-18 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
               (v1-19 (the-as number (logior #x3f800000 v1-18)))
               (s5-0 (the int (* f30-1 (+ -1.0 (the-as float v1-19)))))
               )
          (dotimes (s4-0 s5-0)
            (suspend)
            )
          )
        (cond
          ((zero? gp-1)
           (let ((gp-2 (-> self skel root-channel 0)))
             (set! (-> gp-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
             (set! (-> gp-2 param 0) (ja-aframe 4.0 0))
             (set! (-> gp-2 param 1) 1.0)
             (set! (-> gp-2 frame-num) (ja-aframe 0.0 0))
             (joint-control-channel-group! gp-2 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
             )
           (until (ja-done? 0)
             (suspend)
             (let ((gp-3 (-> self skel root-channel 0)))
               (set! (-> gp-3 param 0) (ja-aframe 4.0 0))
               (set! (-> gp-3 param 1) 1.0)
               (joint-control-channel-group-eval! gp-3 (the-as art-joint-anim #f) num-func-seek!)
               )
             )
           (let* ((f30-2 60.0)
                  (v1-37 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
                  (v1-38 (the-as number (logior #x3f800000 v1-37)))
                  (gp-4 (the int (* f30-2 (+ -1.0 (the-as float v1-38)))))
                  )
             (dotimes (s5-1 gp-4)
               (suspend)
               )
             )
           (let ((gp-5 (-> self skel root-channel 0)))
             (set! (-> gp-5 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
             (set! (-> gp-5 param 0) (ja-aframe 10.0 0))
             (set! (-> gp-5 param 1) 1.0)
             (set! (-> gp-5 frame-num) (ja-aframe 4.0 0))
             (joint-control-channel-group! gp-5 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
             )
           (until (ja-done? 0)
             (suspend)
             (let ((gp-6 (-> self skel root-channel 0)))
               (set! (-> gp-6 param 0) (ja-aframe 10.0 0))
               (set! (-> gp-6 param 1) 1.0)
               (joint-control-channel-group-eval! gp-6 (the-as art-joint-anim #f) num-func-seek!)
               )
             )
           (let* ((f30-3 60.0)
                  (v1-55 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
                  (v1-56 (the-as number (logior #x3f800000 v1-55)))
                  (gp-7 (the int (* f30-3 (+ -1.0 (the-as float v1-56)))))
                  )
             (dotimes (s5-2 gp-7)
               (suspend)
               )
             )
           (let ((gp-8 (-> self skel root-channel 0)))
             (set! (-> gp-8 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
             (set! (-> gp-8 param 0) (ja-aframe 14.0 0))
             (set! (-> gp-8 param 1) 1.0)
             (set! (-> gp-8 frame-num) (ja-aframe 10.0 0))
             (joint-control-channel-group! gp-8 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
             )
           (until (ja-done? 0)
             (suspend)
             (let ((gp-9 (-> self skel root-channel 0)))
               (set! (-> gp-9 param 0) (ja-aframe 14.0 0))
               (set! (-> gp-9 param 1) 1.0)
               (joint-control-channel-group-eval! gp-9 (the-as art-joint-anim #f) num-func-seek!)
               )
             )
           )
          ((= gp-1 2)
           (let ((gp-10 (-> self skel root-channel 0)))
             (set! (-> gp-10 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
             (set! (-> gp-10 param 0) (ja-aframe 4.0 0))
             (set! (-> gp-10 param 1) 1.0)
             (set! (-> gp-10 frame-num) (ja-aframe 0.0 0))
             (joint-control-channel-group! gp-10 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
             )
           (until (ja-done? 0)
             (suspend)
             (let ((gp-11 (-> self skel root-channel 0)))
               (set! (-> gp-11 param 0) (ja-aframe 4.0 0))
               (set! (-> gp-11 param 1) 1.0)
               (joint-control-channel-group-eval! gp-11 (the-as art-joint-anim #f) num-func-seek!)
               )
             )
           )
          ((= gp-1 3)
           (let ((gp-12 (-> self skel root-channel 0)))
             (set! (-> gp-12 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
             (set! (-> gp-12 param 0) (ja-aframe 8.0 0))
             (set! (-> gp-12 param 1) 1.0)
             (set! (-> gp-12 frame-num) (ja-aframe 4.0 0))
             (joint-control-channel-group! gp-12 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
             )
           (until (ja-done? 0)
             (suspend)
             (let ((gp-13 (-> self skel root-channel 0)))
               (set! (-> gp-13 param 0) (ja-aframe 8.0 0))
               (set! (-> gp-13 param 1) 1.0)
               (joint-control-channel-group-eval! gp-13 (the-as art-joint-anim #f) num-func-seek!)
               )
             )
           )
          ((= gp-1 4)
           (let ((gp-14 (-> self skel root-channel 0)))
             (set! (-> gp-14 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
             (set! (-> gp-14 param 0) (ja-aframe 12.0 0))
             (set! (-> gp-14 param 1) 1.0)
             (set! (-> gp-14 frame-num) (ja-aframe 8.0 0))
             (joint-control-channel-group! gp-14 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
             )
           (until (ja-done? 0)
             (suspend)
             (let ((gp-15 (-> self skel root-channel 0)))
               (set! (-> gp-15 param 0) (ja-aframe 12.0 0))
               (set! (-> gp-15 param 1) 1.0)
               (joint-control-channel-group-eval! gp-15 (the-as art-joint-anim #f) num-func-seek!)
               )
             )
           )
          )
        )
      )
    (none)
    )
  :post
  seagull-post
  )

;; definition for method 20 of type seagull
;; INFO: Return type mismatch int vs none.
(defmethod move-vertically! seagull ((obj seagull) (arg0 symbol))
  (let ((f0-0 (-> obj root-override transv y)))
    (set! f0-0 (cond
                 (arg0
                   (if (< f0-0 (-> obj flock 0 max-lift))
                       (set! f0-0 (+ 12288.0 f0-0))
                       )
                   f0-0
                   )
                 (else
                   (+ -4096.0 f0-0)
                   )
                 )
          )
    (set! (-> obj root-override transv y) f0-0)
    )
  0
  (none)
  )

;; definition for method 26 of type seagull
(defmethod dummy-26 seagull ((obj seagull))
  (let ((s5-0 (new 'stack-no-clear 'vector)))
    (let* ((f30-0 -4096.0)
           (f28-0 8192.0)
           (v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
           (v1-2 (the-as number (logior #x3f800000 v1-1)))
           )
      (set! (-> s5-0 x) (+ f30-0 (* f28-0 (+ -1.0 (the-as float v1-2))) (-> obj flock 0 target x)))
      )
    (let* ((f30-1 -4096.0)
           (f28-1 8192.0)
           (v1-7 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
           (v1-8 (the-as number (logior #x3f800000 v1-7)))
           )
      (set! (-> s5-0 y) (+ f30-1 (* f28-1 (+ -1.0 (the-as float v1-8))) (-> obj flock 0 target y)))
      )
    (let* ((f30-2 -4096.0)
           (f28-2 8192.0)
           (v1-13 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
           (v1-14 (the-as number (logior #x3f800000 v1-13)))
           )
      (set! (-> s5-0 z) (+ f30-2 (* f28-2 (+ -1.0 (the-as float v1-14))) (-> obj flock 0 target z)))
      )
    (vector-! s5-0 s5-0 (-> obj root-override trans))
    (vector-float*! s5-0 s5-0 0.9)
    (move-by-vector! (-> obj root-override) s5-0)
    )
  (set! (-> obj teleport) #f)
  #f
  )

;; definition for method 21 of type seagull
;; INFO: Return type mismatch int vs none.
(defmethod adjust-heading-around-point-slow! seagull ((obj seagull) (arg0 float))
  (let ((f30-1 (* arg0 (sin (-> obj heading))))
        (f0-4 (* arg0 (cos (-> obj heading))))
        )
    (set! (-> obj root-override transv x) (+ (* 0.8 (-> obj root-override transv x)) (* 0.2 f30-1)))
    (set! (-> obj root-override transv z) (+ (* 0.8 (-> obj root-override transv z)) (* 0.2 f0-4)))
    )
  0
  (none)
  )

;; definition for method 23 of type seagull
;; INFO: Return type mismatch int vs none.
(defmethod adjust-heading-around-point! seagull ((obj seagull) (arg0 float))
  (let ((f30-1 (* arg0 (sin (-> obj heading))))
        (f0-4 (* arg0 (cos (-> obj heading))))
        )
    (set! (-> obj root-override transv x) f30-1)
    (set! (-> obj root-override transv z) f0-4)
    )
  0
  (none)
  )

;; definition for method 22 of type seagull
;; INFO: Return type mismatch int vs none.
(defmethod dummy-22 seagull ((obj seagull))
  (set! (-> obj root-override transv y) -8192.0)
  0
  (none)
  )

;; definition for method 27 of type seagull
(defmethod dummy-27 seagull ((obj seagull))
  (local-vars (at-0 int))
  (rlet ((vf0 :class vf)
         (vf1 :class vf)
         (vf2 :class vf)
         )
    (init-vf0-vector)
    (let ((v1-0 (new 'stack-no-clear 'vector))
          (a0-2 (-> obj root-override trans))
          (s5-0 (-> obj root-override transv))
          (a1-1 (new 'stack-no-clear 'vector))
          )
      (let ((a2-0 v1-0))
        (.lvf vf1 (&-> s5-0 quad))
        (let ((f0-0 (-> *display* seconds-per-frame)))
          (.mov at-0 f0-0)
          )
        (.mov vf2 at-0)
        (.mov.vf vf1 vf0 :mask #b1000)
        (.mul.x.vf vf1 vf1 vf2 :mask #b111)
        (.svf (&-> a2-0 quad) vf1)
        )
      (vector+! a1-1 a0-2 v1-0)
      (if (points-in-air? a0-2 a1-1 *seagull-boxes* 10)
          (integrate-no-collide! (-> obj root-override) (-> obj root-override transv))
          (fill-cache-integrate-and-collide! (-> obj root-override) s5-0 (collide-kind background))
          )
      )
    (none)
    )
  )

;; failed to figure out what this is:
(defstate seagull-takeoff (seagull)
  :trans
  (behavior ()
    (when (< (+ (-> *display* base-frame-counter) (seconds -2)) (-> self part-time))
      (-> self part)
      (-> self root-override root-prim prim-core)
      )
    (none)
    )
  :code
  (behavior ()
    (set! (-> self part-time) (-> *display* base-frame-counter))
    (let ((gp-0 (-> self skel root-channel 0)))
      (set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
      (set! (-> gp-0 param 0) (ja-aframe 4.0 0))
      (set! (-> gp-0 param 1) 1.0)
      (set! (-> gp-0 frame-num) (ja-aframe 1.0 0))
      (joint-control-channel-group! gp-0 (the-as art-joint-anim (-> self draw art-group data 9)) num-func-seek!)
      )
    (until (ja-done? 0)
      (when (and (>= (ja-frame-num 0) (ja-aframe 2.0 0)) (>= (ja-aframe 3.0 0) (ja-frame-num 0)))
        (let* ((v1-13 self)
               (a0-7 #t)
               (f0-5 (-> v1-13 root-override transv y))
               )
          (set! f0-5 (cond
                       (a0-7
                         (if (< f0-5 (-> v1-13 flock 0 max-lift))
                             (set! f0-5 (+ 12288.0 f0-5))
                             )
                         f0-5
                         )
                       (else
                         (+ -4096.0 f0-5)
                         )
                       )
                )
          (set! (-> v1-13 root-override transv y) f0-5)
          )
        0
        (let* ((gp-1 self)
               (f28-0 (-> self thrust))
               (f30-2 (* f28-0 (sin (-> gp-1 heading))))
               (f0-10 (* f28-0 (cos (-> gp-1 heading))))
               )
          (set! (-> gp-1 root-override transv x) (+ (* 0.8 (-> gp-1 root-override transv x)) (* 0.2 f30-2)))
          (set! (-> gp-1 root-override transv z) (+ (* 0.8 (-> gp-1 root-override transv z)) (* 0.2 f0-10)))
          )
        0
        )
      (dummy-27 self)
      (suspend)
      (let ((gp-2 (-> self skel root-channel 0)))
        (set! (-> gp-2 param 0) (ja-aframe 4.0 0))
        (set! (-> gp-2 param 1) 1.0)
        (joint-control-channel-group-eval! gp-2 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (let ((a0-19 (-> self skel root-channel 0)))
      (set! (-> a0-19 param 0) (the float (+ (-> a0-19 frame-group data 0 length) -1)))
      (set! (-> a0-19 param 1) 1.0)
      (joint-control-channel-group! a0-19 (the-as art-joint-anim #f) num-func-seek!)
      )
    (ja-channel-push! 1 20)
    (go seagull-flying)
    (none)
    )
  :post
  seagull-post
  )

;; failed to figure out what this is:
(defstate seagull-flying (seagull)
  :trans
  (behavior ()
    (when (< (+ (-> *display* base-frame-counter) (seconds -2)) (-> self part-time))
      (-> self part)
      (-> self root-override root-prim prim-core)
      )
    (none)
    )
  :code
  (behavior ()
    (set! (-> self max-tilt) 1820.4445)
    (let ((gp-0 0))
      (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) 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 4)) num-func-seek!)
          )
        (until (ja-done? 0)
          (ja-blend-eval)
          (when (-> self teleport)
            (dummy-26 self)
            (suspend)
            0
            )
          (let ((s5-0 self)
                (s4-0 (new 'stack-no-clear 'vector))
                )
            (vector-! s4-0 (-> s5-0 flock 0 target) (-> s5-0 root-override trans))
            (when (< (vector-dot s4-0 s4-0) 6710886400.0)
              (let ((v1-24 (ash 1 (-> s5-0 index))))
                (when (zero? (logand v1-24 (-> s5-0 flock 0 bird-at-waterfall)))
                  (logior! (-> s5-0 flock 0 bird-at-waterfall) v1-24)
                  (+! (-> s5-0 flock 0 birds-at-waterfall) 1)
                  )
                )
              )
            (cond
              ((> (-> s5-0 temp-heading-time) 0)
               (+! (-> s5-0 temp-heading-time) -1)
               (let* ((v1-34 s5-0)
                      (f1-2 (the float (sar (shl (the int (- (-> s5-0 temp-heading) (-> v1-34 heading))) 48) 48)))
                      (f0-12 (- (-> v1-34 tilt)))
                      )
                 (let ((f2-0 (-> v1-34 max-tilt)))
                   (set! f0-12 (cond
                                 ((< f1-2 -364.0889)
                                  (if (< (- f2-0) f0-12)
                                      (set! f0-12 (+ -91.022224 f0-12))
                                      )
                                  f0-12
                                  )
                                 ((< 364.0889 f1-2)
                                  (if (< f0-12 f2-0)
                                      (set! f0-12 (+ 91.022224 f0-12))
                                      )
                                  f0-12
                                  )
                                 ((< f0-12 0.0)
                                  (+ 91.022224 f0-12)
                                  )
                                 (else
                                   (+ -91.022224 f0-12)
                                   )
                                 )
                         )
                   )
                 (set! (-> v1-34 tilt) (- f0-12))
                 (set! (-> v1-34 heading) (the float (sar (shl (the int (+ (-> v1-34 heading) (* 0.05 f0-12))) 48) 48)))
                 )
               0
               )
              (else
                (let* ((f0-20 (atan (-> s4-0 x) (-> s4-0 z)))
                       (v1-37 s5-0)
                       (f1-12 (the float (sar (shl (the int (- f0-20 (-> v1-37 heading))) 48) 48)))
                       (f0-25 (- (-> v1-37 tilt)))
                       )
                  (let ((f2-2 (-> v1-37 max-tilt)))
                    (set! f0-25 (cond
                                  ((< f1-12 -364.0889)
                                   (if (< (- f2-2) f0-25)
                                       (set! f0-25 (+ -91.022224 f0-25))
                                       )
                                   f0-25
                                   )
                                  ((< 364.0889 f1-12)
                                   (if (< f0-25 f2-2)
                                       (set! f0-25 (+ 91.022224 f0-25))
                                       )
                                   f0-25
                                   )
                                  ((< f0-25 0.0)
                                   (+ 91.022224 f0-25)
                                   )
                                  (else
                                    (+ -91.022224 f0-25)
                                    )
                                  )
                          )
                    )
                  (set! (-> v1-37 tilt) (- f0-25))
                  (set! (-> v1-37 heading) (the float (sar (shl (the int (+ (-> v1-37 heading) (* 0.05 f0-25))) 48) 48)))
                  )
                0
                )
              )
            (let ((f0-33 (+ (* (-> s4-0 x) (-> s4-0 x)) (* (-> s4-0 z) (-> s4-0 z)))))
              (set! (-> s5-0 angletan) (/ (- (-> s4-0 y)) (sqrtf f0-33)))
              (set! (-> s5-0 target-dist) (sqrtf (+ f0-33 (* (-> s4-0 y) (-> s4-0 y)))))
              )
            )
          0
          (let ((v1-42 (>= (ja-frame-num 0) (ja-aframe 3.0 0))))
            (cond
              ((and v1-42 (>= (ja-aframe 9.0 0) (ja-frame-num 0)))
               (let* ((v1-44 self)
                      (a0-49 #t)
                      (f0-38 (-> v1-44 root-override transv y))
                      )
                 (set! f0-38 (cond
                               (a0-49
                                 (if (< f0-38 (-> v1-44 flock 0 max-lift))
                                     (set! f0-38 (+ 12288.0 f0-38))
                                     )
                                 f0-38
                                 )
                               (else
                                 (+ -4096.0 f0-38)
                                 )
                               )
                       )
                 (set! (-> v1-44 root-override transv y) f0-38)
                 )
               0
               )
              (else
                (let* ((v1-48 self)
                       (a0-55 #f)
                       (f0-39 (-> v1-48 root-override transv y))
                       )
                  (set! f0-39 (cond
                                (a0-55
                                  (if (< f0-39 (-> v1-48 flock 0 max-lift))
                                      (set! f0-39 (+ 12288.0 f0-39))
                                      )
                                  f0-39
                                  )
                                (else
                                  (+ -4096.0 f0-39)
                                  )
                                )
                        )
                  (set! (-> v1-48 root-override transv y) f0-39)
                  )
                0
                )
              )
            )
          (let* ((s5-1 self)
                 (f28-0 (-> self thrust))
                 (f30-2 (* f28-0 (sin (-> s5-1 heading))))
                 (f0-44 (* f28-0 (cos (-> s5-1 heading))))
                 )
            (set! (-> s5-1 root-override transv x) (+ (* 0.8 (-> s5-1 root-override transv x)) (* 0.2 f30-2)))
            (set! (-> s5-1 root-override transv z) (+ (* 0.8 (-> s5-1 root-override transv z)) (* 0.2 f0-44)))
            )
          0
          (dummy-27 self)
          (suspend)
          (let ((a0-64 (-> self skel root-channel 0)))
            (set! (-> a0-64 param 0) (the float (+ (-> a0-64 frame-group data 0 length) -1)))
            (set! (-> a0-64 param 1) 1.0)
            (joint-control-channel-group-eval! a0-64 (the-as art-joint-anim #f) num-func-seek!)
            )
          )
        (+! gp-0 1)
        (when (>= gp-0 0)
          (when (>= (-> self angletan) 0.1)
            (if (< 204800.0 (-> self root-override trans y))
                (go seagull-soaring)
                )
            (when (< 57344.0 (-> self root-override trans y))
              (let* ((f30-3 0.8)
                     (v1-77 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
                     (v1-78 (the-as number (logior #x3f800000 v1-77)))
                     )
                (if (< f30-3 (+ -1.0 (the-as float v1-78)))
                    (go seagull-soaring)
                    )
                )
              )
            )
          )
        )
      )
    (none)
    )
  :post
  seagull-post
  )

;; failed to figure out what this is:
(defstate seagull-soaring (seagull)
  :trans
  (behavior ()
    (when (< (+ (-> *display* base-frame-counter) (seconds -2)) (-> self part-time))
      (-> self part)
      (-> self root-override root-prim prim-core)
      )
    (none)
    )
  :code
  (behavior ()
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (set! (-> self max-tilt) 4551.1113)
    (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 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)
        (ja-blend-eval)
        (when (-> self teleport)
          (dummy-26 self)
          (suspend)
          0
          )
        (let ((gp-0 self)
              (s5-0 (new 'stack-no-clear 'vector))
              )
          (vector-! s5-0 (-> gp-0 flock 0 target) (-> gp-0 root-override trans))
          (when (< (vector-dot s5-0 s5-0) 6710886400.0)
            (let ((v1-26 (ash 1 (-> gp-0 index))))
              (when (zero? (logand v1-26 (-> gp-0 flock 0 bird-at-waterfall)))
                (logior! (-> gp-0 flock 0 bird-at-waterfall) v1-26)
                (+! (-> gp-0 flock 0 birds-at-waterfall) 1)
                )
              )
            )
          (cond
            ((> (-> gp-0 temp-heading-time) 0)
             (+! (-> gp-0 temp-heading-time) -1)
             (let* ((v1-36 gp-0)
                    (f1-2 (the float (sar (shl (the int (- (-> gp-0 temp-heading) (-> v1-36 heading))) 48) 48)))
                    (f0-12 (- (-> v1-36 tilt)))
                    )
               (let ((f2-0 (-> v1-36 max-tilt)))
                 (set! f0-12 (cond
                               ((< f1-2 -364.0889)
                                (if (< (- f2-0) f0-12)
                                    (set! f0-12 (+ -91.022224 f0-12))
                                    )
                                f0-12
                                )
                               ((< 364.0889 f1-2)
                                (if (< f0-12 f2-0)
                                    (set! f0-12 (+ 91.022224 f0-12))
                                    )
                                f0-12
                                )
                               ((< f0-12 0.0)
                                (+ 91.022224 f0-12)
                                )
                               (else
                                 (+ -91.022224 f0-12)
                                 )
                               )
                       )
                 )
               (set! (-> v1-36 tilt) (- f0-12))
               (set! (-> v1-36 heading) (the float (sar (shl (the int (+ (-> v1-36 heading) (* 0.05 f0-12))) 48) 48)))
               )
             0
             )
            (else
              (let* ((f0-20 (atan (-> s5-0 x) (-> s5-0 z)))
                     (v1-39 gp-0)
                     (f1-12 (the float (sar (shl (the int (- f0-20 (-> v1-39 heading))) 48) 48)))
                     (f0-25 (- (-> v1-39 tilt)))
                     )
                (let ((f2-2 (-> v1-39 max-tilt)))
                  (set! f0-25 (cond
                                ((< f1-12 -364.0889)
                                 (if (< (- f2-2) f0-25)
                                     (set! f0-25 (+ -91.022224 f0-25))
                                     )
                                 f0-25
                                 )
                                ((< 364.0889 f1-12)
                                 (if (< f0-25 f2-2)
                                     (set! f0-25 (+ 91.022224 f0-25))
                                     )
                                 f0-25
                                 )
                                ((< f0-25 0.0)
                                 (+ 91.022224 f0-25)
                                 )
                                (else
                                  (+ -91.022224 f0-25)
                                  )
                                )
                        )
                  )
                (set! (-> v1-39 tilt) (- f0-25))
                (set! (-> v1-39 heading) (the float (sar (shl (the int (+ (-> v1-39 heading) (* 0.05 f0-25))) 48) 48)))
                )
              0
              )
            )
          (let ((f0-33 (+ (* (-> s5-0 x) (-> s5-0 x)) (* (-> s5-0 z) (-> s5-0 z)))))
            (set! (-> gp-0 angletan) (/ (- (-> s5-0 y)) (sqrtf f0-33)))
            (set! (-> gp-0 target-dist) (sqrtf (+ f0-33 (* (-> s5-0 y) (-> s5-0 y)))))
            )
          )
        0
        (let ((v1-44 self))
          (set! (-> v1-44 root-override transv y) -8192.0)
          )
        0
        (let* ((gp-1 self)
               (f28-0 (-> self thrust))
               (f30-0 (* f28-0 (sin (-> gp-1 heading))))
               (f0-41 (* f28-0 (cos (-> gp-1 heading))))
               )
          (set! (-> gp-1 root-override transv x) (+ (* 0.8 (-> gp-1 root-override transv x)) (* 0.2 f30-0)))
          (set! (-> gp-1 root-override transv z) (+ (* 0.8 (-> gp-1 root-override transv z)) (* 0.2 f0-41)))
          )
        0
        (dummy-27 self)
        (when (< (-> self angletan) 0.2)
          (if (< (-> self root-override trans y) 40960.0)
              (go seagull-flying)
              )
          (when (< (-> self root-override trans y) 204800.0)
            (if (and (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 0.5))
                     (let* ((f30-1 0.99)
                            (v1-67 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
                            (v1-68 (the-as number (logior #x3f800000 v1-67)))
                            )
                       (< f30-1 (+ -1.0 (the-as float v1-68)))
                       )
                     )
                (go seagull-flying)
                )
            )
          )
        (when (< (-> self target-dist) 81920.0)
          (when (< 1.0 (-> self angletan))
            (if (< (-> self target-dist) 20480.0)
                (go seagull-flying)
                )
            )
          (if (and (< 0.4 (-> self angletan)) (>= 1.0 (-> self angletan)))
              (go seagull-landing 10.0)
              )
          (if (and (>= (-> self angletan) 0.2) (>= 0.4 (-> self angletan)))
              (go seagull-landing 5.0)
              )
          )
        (suspend)
        (let ((a0-54 (-> self skel root-channel 0)))
          (set! (-> a0-54 param 0) (the float (+ (-> a0-54 frame-group data 0 length) -1)))
          (set! (-> a0-54 param 1) 1.0)
          (joint-control-channel-group-eval! a0-54 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  seagull-post
  )

;; failed to figure out what this is:
(defstate seagull-landing (seagull)
  :code
  (behavior ((arg0 float))
    (let ((s5-0 (new 'stack 'collide-tri-result)))
      0.0
      (let ((gp-0 (new 'stack-no-clear 'vector)))
        (set! (-> self root-override transv y) (* 4096.0 (- arg0)))
        (set! (-> gp-0 quad) (-> self root-override transv quad))
        (let ((f30-0 (fill-and-probe-using-line-sphere
                       *collide-cache*
                       (-> self root-override trans)
                       gp-0
                       409.6
                       (collide-kind background)
                       self
                       s5-0
                       1
                       )
                     )
              )
          (when (or (< f30-0 0.0) (or (< 1.0 f30-0) (nonzero? (-> s5-0 pat mode))))
            (suspend)
            (go seagull-soaring)
            )
          (vector-float*! gp-0 gp-0 f30-0)
          (vector+! gp-0 gp-0 (-> self root-override trans))
          (while (< 0.5 f30-0)
            (suspend)
            (set! f30-0 (- f30-0 (-> *display* seconds-per-frame)))
            (fill-cache-integrate-and-collide!
              (-> self root-override)
              (-> self root-override transv)
              (collide-kind background)
              )
            (let* ((v1-21 self)
                   (f1-3 (the float (sar (shl (the int (- (-> self heading) (-> v1-21 heading))) 48) 48)))
                   (f0-12 (- (-> v1-21 tilt)))
                   )
              (let ((f2-0 (-> v1-21 max-tilt)))
                (set! f0-12 (cond
                              ((< f1-3 -364.0889)
                               (if (< (- f2-0) f0-12)
                                   (set! f0-12 (+ -91.022224 f0-12))
                                   )
                               f0-12
                               )
                              ((< 364.0889 f1-3)
                               (if (< f0-12 f2-0)
                                   (set! f0-12 (+ 91.022224 f0-12))
                                   )
                               f0-12
                               )
                              ((< f0-12 0.0)
                               (+ 91.022224 f0-12)
                               )
                              (else
                                (+ -91.022224 f0-12)
                                )
                              )
                      )
                )
              (set! (-> v1-21 tilt) (- f0-12))
              (set! (-> v1-21 heading) (the float (sar (shl (the int (+ (-> v1-21 heading) (* 0.05 f0-12))) 48) 48)))
              )
            0
            )
          (let ((a0-25 (-> self skel root-channel 0)))
            (set! (-> a0-25 param 0) (the float (+ (-> a0-25 frame-group data 0 length) -1)))
            (set! (-> a0-25 param 1) 1.0)
            (joint-control-channel-group! a0-25 (the-as art-joint-anim #f) num-func-seek!)
            )
          (ja-channel-push! 1 40)
          (let ((gp-1 (-> self skel root-channel 0)))
            (joint-control-channel-group-eval!
              gp-1
              (the-as art-joint-anim (-> self draw art-group data 6))
              num-func-identity
              )
            (set! (-> gp-1 frame-num) (ja-aframe 0.0 0))
            )
          (while (< 0.0 f30-0)
            (suspend)
            (let ((a0-29 (-> self skel root-channel 0)))
              (set! (-> a0-29 param 0) (the float (+ (-> a0-29 frame-group data 0 length) -1)))
              (set! (-> a0-29 param 1) 1.0)
              (joint-control-channel-group-eval! a0-29 (the-as art-joint-anim #f) num-func-seek!)
              )
            (set! f30-0 (- f30-0 (-> *display* seconds-per-frame)))
            (fill-cache-integrate-and-collide!
              (-> self root-override)
              (-> self root-override transv)
              (collide-kind background)
              )
            (let* ((v1-48 self)
                   (f1-13 (the float (sar (shl (the int (- (-> self heading) (-> v1-48 heading))) 48) 48)))
                   (f0-32 (- (-> v1-48 tilt)))
                   )
              (let ((f2-2 (-> v1-48 max-tilt)))
                (set! f0-32 (cond
                              ((< f1-13 -364.0889)
                               (if (< (- f2-2) f0-32)
                                   (set! f0-32 (+ -91.022224 f0-32))
                                   )
                               f0-32
                               )
                              ((< 364.0889 f1-13)
                               (if (< f0-32 f2-2)
                                   (set! f0-32 (+ 91.022224 f0-32))
                                   )
                               f0-32
                               )
                              ((< f0-32 0.0)
                               (+ 91.022224 f0-32)
                               )
                              (else
                                (+ -91.022224 f0-32)
                                )
                              )
                      )
                )
              (set! (-> v1-48 tilt) (- f0-32))
              (set! (-> v1-48 heading) (the float (sar (shl (the int (+ (-> v1-48 heading) (* 0.05 f0-32))) 48) 48)))
              )
            0
            )
          )
        )
      )
    (while (not (ja-done? 0))
      (suspend)
      (let ((a0-43 (-> self skel root-channel 0)))
        (set! (-> a0-43 param 0) (the float (+ (-> a0-43 frame-group data 0 length) -1)))
        (set! (-> a0-43 param 1) 1.0)
        (joint-control-channel-group-eval! a0-43 (the-as art-joint-anim #f) num-func-seek!)
        )
      (let* ((v1-59 self)
             (f1-23 (the float (sar (shl (the int (- (-> self heading) (-> v1-59 heading))) 48) 48)))
             (f0-47 (- (-> v1-59 tilt)))
             )
        (let ((f2-4 (-> v1-59 max-tilt)))
          (set! f0-47 (cond
                        ((< f1-23 -364.0889)
                         (if (< (- f2-4) f0-47)
                             (set! f0-47 (+ -91.022224 f0-47))
                             )
                         f0-47
                         )
                        ((< 364.0889 f1-23)
                         (if (< f0-47 f2-4)
                             (set! f0-47 (+ 91.022224 f0-47))
                             )
                         f0-47
                         )
                        ((< f0-47 0.0)
                         (+ 91.022224 f0-47)
                         )
                        (else
                          (+ -91.022224 f0-47)
                          )
                        )
                )
          )
        (set! (-> v1-59 tilt) (- f0-47))
        (set! (-> v1-59 heading) (the float (sar (shl (the int (+ (-> v1-59 heading) (* 0.05 f0-47))) 48) 48)))
        )
      0
      )
    (go seagull-idle)
    (none)
    )
  :post
  seagull-post
  )

;; definition for function seagull-reaction
;; INFO: Return type mismatch int vs uint.
(defun seagull-reaction ((arg0 collide-shape-moving) (arg1 collide-shape-intersect) (arg2 vector) (arg3 vector))
  (let ((s5-0 0))
    (let ((a1-1 (new 'stack-no-clear 'vector)))
      (vector-float*! a1-1 (-> arg1 move-vec) (-> arg1 best-u))
      (set! (-> a1-1 y) (-> arg1 move-vec y))
      (move-by-vector! arg0 a1-1)
      )
    (let ((f0-3 (vector-dot (-> arg0 transv) (-> arg1 best-tri normal)))
          (v1-6 (new 'stack-no-clear 'vector))
          )
      (vector-float*! v1-6 (-> arg1 best-tri normal) f0-3)
      (vector-! (-> arg0 transv) (-> arg0 transv) v1-6)
      )
    (let ((v1-7 (-> arg1 best-tri normal))
          (s4-1 (-> arg0 process))
          )
      (set! (-> (the-as seagull s4-1) temp-heading) (atan (-> v1-7 x) (-> v1-7 z)))
      (set! (-> (the-as seagull s4-1) temp-heading-time) 300)
      )
    (let ((v0-2 (logior s5-0 3)))
      (set! (-> arg0 status) (the-as uint v0-2))
      (the-as uint v0-2)
      )
    )
  )

;; definition for function seagull-init-by-other
;; INFO: Return type mismatch object vs none.
;; Used lq/sq
(defbehavior seagull-init-by-other seagull ((arg0 vector) (arg1 int) (arg2 seagullflock))
  (let ((s3-0 (new 'process 'collide-shape-moving self (collide-list-enum hit-by-player))))
    (set! (-> s3-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s3-0 reaction) seagull-reaction)
    (set! (-> s3-0 no-reaction)
          (the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
          )
    (let ((s2-0 (new 'process 'collide-shape-prim-sphere s3-0 (the-as uint 0))))
      (set! (-> s2-0 prim-core collide-as) (collide-kind))
      (set! (-> s2-0 collide-with) (collide-kind background))
      (set! (-> s2-0 prim-core action) (collide-action solid))
      (set! (-> s2-0 prim-core offense) (collide-offense indestructible))
      (set-vector! (-> s2-0 local-sphere) 0.0 2048.0 0.0 2048.0)
      (set-root-prim! s3-0 s2-0)
      )
    (set! (-> s3-0 nav-radius) (* 0.75 (-> s3-0 root-prim local-sphere w)))
    (backup-collide-with-as s3-0)
    (set! (-> self root-override) s3-0)
    )
  (set! (-> self root-override trans quad) (-> arg0 quad))
  (initialize-skeleton self *seagull-sg* '())
  (logclear! (-> self mask) (process-mask actor-pause))
  (set! (-> self index) arg1)
  (set! (-> self flock) (the-as (pointer seagullflock) (process->ppointer arg2)))
  (set! (-> self heading) 0.0)
  (set! (-> self tilt) 0.0)
  (let* ((f30-0 51200.0)
         (f28-0 20480.0)
         (v1-23 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
         (v1-24 (the-as number (logior #x3f800000 v1-23)))
         )
    (set! (-> self thrust) (+ f30-0 (* f28-0 (+ -1.0 (the-as float v1-24)))))
    )
  (set! (-> self teleport) #f)
  (go seagull-idle)
  (none)
  )

;; definition for method 15 of type seagullflock
;; INFO: Return type mismatch time-frame vs none.
(defmethod play-hint seagullflock ((obj seagullflock) (arg0 int))
  (when (>= (- (-> *display* base-frame-counter) (-> obj alert-time)) (seconds 5))
    (eval-path-curve-div! (-> obj path) (-> obj target) (the float (-> obj targetnum)) 'interp)
    (let ((f0-2 4096.0)
          (v1-6 (-> obj targetnum))
          )
      (set! (-> obj max-lift) (* f0-2 (cond
                                        ((= v1-6 1)
                                         4.0
                                         )
                                        ((= v1-6 2)
                                         4.0
                                         )
                                        ((= v1-6 3)
                                         4.0
                                         )
                                        (else
                                          10.0
                                          )
                                        )
                                 )
            )
      )
    (case (-> obj targetnum)
      ((1)
       (level-hint-spawn
         (game-text-id beach-seagull-chased-one)
         "sksp0020"
         (the-as entity #f)
         *entity-pool*
         (game-task none)
         )
       )
      ((2)
       (level-hint-spawn
         (game-text-id beach-seagull-chased-two)
         "sksp0022"
         (the-as entity #f)
         *entity-pool*
         (game-task none)
         )
       )
      ((3)
       (level-hint-spawn
         (game-text-id beach-seagull-chased-three)
         "sksp0023"
         (the-as entity #f)
         *entity-pool*
         (game-task none)
         )
       )
      ((4)
       (level-hint-spawn
         (game-text-id beach-seagull-chased-four)
         "sksp0024"
         (the-as entity #f)
         *entity-pool*
         (game-task none)
         )
       )
      )
    (let ((v1-16 (-> obj entity extra perm)))
      (logior! (-> v1-16 status) (entity-perm-status user-set-from-cstage))
      (set! (-> v1-16 user-int8 0) (min 2 (-> obj targetnum)))
      )
    (+! (-> obj targetnum) 1)
    (dotimes (v1-19 (-> obj birds))
      (set! (-> obj bird v1-19 0 scared) (+ (* v1-19 2) 5))
      )
    (set! (-> obj bird arg0 0 scared) 1)
    (set! (-> obj bird-at-waterfall) (the-as uint 0))
    (set! (-> obj birds-at-waterfall) 0)
    (if (>= (-> obj targetnum) 4)
        (set! (-> obj teleport-frames) 1500)
        )
    (sound-play-by-name (static-sound-name "seagull-takeoff") (new-sound-id) 1024 0 0 1 #t)
    (set! (-> obj alert-time) (-> *display* base-frame-counter))
    )
  (none)
  )

;; definition for method 16 of type seagullflock
(defmethod dummy-16 seagullflock ((obj seagullflock) (arg0 seagull))
  (let ((gp-0 (new 'stack-no-clear 'vector)))
    (eval-path-curve-div! (-> obj path) gp-0 (the float (-> obj targetnum)) 'interp)
    (vector-! gp-0 gp-0 (-> arg0 root-override trans))
    (atan (-> gp-0 x) (-> gp-0 z))
    )
  )

;; failed to figure out what this is:
(defstate seagullflock-at-waterfall (seagullflock)
  :code
  (behavior ()
    (local-vars
      (a0-2 process)
      (a1-0 event-message-block)
      (t9-1 (function process-tree event-message-block object))
      )
    (aybabtu 2)
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (-> self link next)
    (until (t9-1 a0-2 a1-0)
      (suspend)
      (let ((v1-5 (-> self link next)))
        (set! a1-0 (new 'stack-no-clear 'event-message-block))
        (set! (-> a1-0 from) self)
        (set! (-> a1-0 num-params) 0)
        (set! (-> a1-0 message) 'loading)
        (set! t9-1 send-event-function)
        (set! a0-2 (if v1-5
                       (-> v1-5 extra process)
                       )
              )
        )
      )
    (until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (-> self teleport-frames))
      (suspend)
      )
    (close-specific-task! (game-task beach-seagull) (task-status need-reminder))
    (dotimes (v1-13 (-> self birds))
      (set! (-> self bird v1-13 0 teleport) #t)
      )
    (let ((gp-0 (-> self link next)))
      (set-blackout-frames (seconds 2))
      (suspend)
      (let ((a1-6 (new 'stack-no-clear 'event-message-block)))
        (set! (-> a1-6 from) self)
        (set! (-> a1-6 num-params) 0)
        (set! (-> a1-6 message) 'trigger)
        (let ((t9-4 send-event-function)
              (v1-18 gp-0)
              )
          (t9-4
            (if v1-18
                (-> v1-18 extra process)
                )
            a1-6
            )
          )
        )
      (while (zero? (logand (-> gp-0 extra perm status) (entity-perm-status complete)))
        (suspend)
        )
      )
    (process-entity-status! self (entity-perm-status dead) #t)
    (none)
    )
  )

;; failed to figure out what this is:
(defstate seagullflock-idle (seagullflock)
  :code
  (behavior ()
    (while #t
      (if (> (-> self teleport-frames) 0)
          (go seagullflock-at-waterfall)
          )
      (if (and *target* (>= 102400.0 (vector-vector-distance (-> self trans) (-> *target* control trans))))
          (level-hint-spawn (game-text-id zero) (the-as string #f) (-> self entity) *entity-pool* (game-task none))
          )
      (suspend)
      )
    (none)
    )
  )

;; definition for method 11 of type seagullflock
;; INFO: Return type mismatch object vs none.
;; Used lq/sq
(defmethod init-from-entity! seagullflock ((obj seagullflock) (arg0 entity-actor))
  (logclear! (-> obj mask) (process-mask actor-pause))
  (set! (-> obj path) (new 'process 'path-control obj 'path 0.0))
  (logior! (-> obj path flags) (path-control-flag display draw-line draw-point draw-text))
  (set! (-> obj link) (new 'process 'actor-link-info obj))
  (set! (-> obj targetnum) (+ (-> arg0 extra perm user-int8 0) 1))
  (eval-path-curve-div! (-> obj path) (-> obj trans) (the float (+ (-> obj targetnum) -1)) 'interp)
  (set! (-> obj target quad) (-> obj trans quad))
  (set! (-> obj max-lift) 20480.0)
  (set! (-> obj birds) 0)
  (dotimes (v1-16 64)
    (set! (-> obj bird v1-16) (the-as (pointer seagull) #f))
    )
  (create-the-flock! obj (-> obj trans))
  (dotimes (s5-1 20)
    (let ((s4-0 (new 'stack-no-clear 'vector)))
      (let* ((f30-0 (-> obj trans x))
             (f28-0 4096.0)
             (f26-0 10.0)
             (v1-22 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-23 (the-as number (logior #x3f800000 v1-22)))
             )
        (set! (-> s4-0 x) (+ f30-0 (* f28-0 (* f26-0 (+ -1.0 (the-as float v1-23))))))
        )
      (let* ((f30-1 (-> obj trans z))
             (f28-1 4096.0)
             (f26-1 10.0)
             (v1-26 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-27 (the-as number (logior #x3f800000 v1-26)))
             )
        (set! (-> s4-0 z) (+ f30-1 (* f28-1 (* f26-1 (+ -1.0 (the-as float v1-27))))))
        )
      (set! (-> s4-0 y) (-> obj trans y))
      (set! (-> s4-0 w) 1.0)
      (create-the-flock! obj s4-0)
      )
    )
  (set! (-> obj squall) (new 'process 'ambient-sound sound-seagull-squall (-> obj trans)))
  (set! (-> obj teleport-frames) 0)
  (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask)))
  (go seagullflock-idle)
  (none)
  )

;; definition for method 14 of type seagullflock
(defmethod create-the-flock! seagullflock ((obj seagullflock) (arg0 vector))
  (if (= (-> obj birds) 64)
      (return (the-as (pointer process) #f))
      )
  (let* ((s4-0 (get-process *default-dead-pool* seagull #x4000))
         (v0-0 (when s4-0
                 (let ((t9-1 (method-of-type seagull activate)))
                   (t9-1 (the-as seagull s4-0) obj 'seagull (the-as pointer #x70004000))
                   )
                 (run-now-in-process s4-0 seagull-init-by-other arg0 (-> obj birds) obj)
                 (-> s4-0 ppointer)
                 )
               )
         )
    (set! (-> obj bird (-> obj birds)) (the-as (pointer seagull) v0-0))
    (+! (-> obj birds) 1)
    v0-0
    )
  )

;; definition (debug) for function beach-rock-trigger
(defun-debug beach-rock-trigger ()
  (let ((gp-0 600))
    (set! (-> (the-as
                seagullflock
                (search-process-tree *active-pool* (lambda ((arg0 process)) (= (-> arg0 type) seagullflock)))
                )
              teleport-frames
              )
          gp-0
          )
    gp-0
    )
  )