jak-project/goal_src/levels/sunken/wedge-plats.gc

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

;; name: wedge-plats.gc
;; name in dgo: wedge-plats
;; dgos: L1, SUN, SUNKEN

(define-extern *wedge-plat-sg* skeleton-group)

(declare-type wedge-plat-outer process)
(declare-type wedge-plat-master process)
(declare-type wedge-plat process)
(define-extern wedge-plat-outer-idle (state wedge-plat-outer)) ;; unknown type
(define-extern wedge-plat-outer-tip (state wedge-plat-outer)) ;; unknown type
(define-extern wedge-plat-idle (state wedge-plat)) ;; unknown type
(define-extern wedge-plat-tip (state wedge-plat)) ;; unknown type
(define-extern wedge-plat-master-idle (state wedge-plat-master)) ;; unknown type
(define-extern *wedge-plat-outer-sg* skeleton-group)

;; definition of type wedge-plat-master
(deftype wedge-plat-master (process)
  ((center       vector :inline :offset-assert 112)
   (rotspeed     float          :offset-assert 128)
   (rotate-inner float          :offset-assert 132)
   (rotate-outer float          :offset-assert 136)
   )
  :heap-base #x20
  :method-count-assert 14
  :size-assert         #x8c
  :flag-assert         #xe0020008c
  )

;; failed to figure out what this is:
(defstate wedge-plat-master-idle (wedge-plat-master)
  :code
  (behavior ()
   (while #t
    (set!
     (-> self rotate-inner)
     (the
      float
      (sar
       (shl
        (the
         int
         (+
          (-> self rotate-inner)
          (* (-> self rotspeed) (-> *display* seconds-per-frame))
          )
         )
        48
        )
       48
       )
      )
     )
    (set!
     (-> self rotate-outer)
     (the
      float
      (sar
       (shl
        (the
         int
         (-
          (-> self rotate-outer)
          (* (-> self rotspeed) (-> *display* seconds-per-frame))
          )
         )
        48
        )
       48
       )
      )
     )
    (suspend)
    )
   (none)
   )
  )

;; definition for method 11 of type wedge-plat-master
;; Used lq/sq
(defmethod
  copy-defaults!
  wedge-plat-master
  ((obj wedge-plat-master) (arg0 res-lump))
  (set! (-> obj mask) (logior (process-mask platform) (-> obj mask)))
  (set! (-> obj center quad) (-> arg0 extra trans quad))
  (set! (-> obj center y) (+ 819.2 (-> obj center y)))
  (set! (-> obj rotspeed) (res-lump-float arg0 'rotspeed))
  (set! (-> obj rotate-inner) 0.0)
  (set! (-> obj rotate-outer) 0.0)
  (logclear! (-> obj mask) (process-mask actor-pause))
  (go wedge-plat-master-idle)
  (none)
  )

;; definition of type wedge-plat
(deftype wedge-plat (baseplat)
  ((master   wedge-plat-master  :offset-assert 228)
   (distance float              :offset-assert 232)
   (offset   float              :offset-assert 236)
   )
  :heap-base #x80
  :method-count-assert 28
  :size-assert         #xf0
  :flag-assert         #x1c008000f0
  (:methods
    (dummy-27 (_type_) symbol 27)
    )
  )

;; failed to figure out what this is:
(let
  ((v1-3
    (new 'static 'skeleton-group
     :art-group-name "wedge-plat"
     :bounds (new 'static 'vector :w 24576.0)
     :version #x6
     )
    )
   )
  (set! (-> v1-3 jgeo) 0)
  (set! (-> v1-3 janim) 2)
  (set! (-> v1-3 mgeo 0) (the-as uint 1))
  (set! (-> v1-3 lod-dist 0) 4095996000.0)
  (set! *wedge-plat-sg* v1-3)
  )

;; definition for method 27 of type wedge-plat
(defmethod dummy-27 wedge-plat ((obj wedge-plat))
  (let* ((a0-1 (-> obj master))
         (v1-0 (if a0-1
                (-> (the-as process-drawable (-> a0-1 ppointer)) brother)
                )
          )
         )
   (when v1-0
    (let ((s4-0 (&-> v1-0 27))
          (f30-0 (-> obj distance))
          (f28-0
           (the
            float
            (sar
             (shl (the int (+ (the-as float (-> v1-0 32)) (-> obj offset))) 48)
             48
             )
            )
           )
          (s5-0 #f)
          )
     (quaternion-axis-angle!
      (-> obj root-override quat)
      0.0
      1.0
      0.0
      (the float (sar (shl (the int (- 49152.0 f28-0)) 48) 48))
      )
     (set!
      (-> obj basetrans x)
      (+ (the-as float (-> s4-0 0)) (* f30-0 (cos f28-0)))
      )
     (set! (-> obj basetrans y) (the-as float (-> s4-0 1)))
     (set!
      (-> obj basetrans z)
      (+ (the-as float (-> s4-0 2)) (* f30-0 (sin f28-0)))
      )
     (let ((f0-16 (cos f28-0)))
      (if (or (< 0.95 f0-16) (< f0-16 -0.95))
       (set! s5-0 #t)
       )
      )
     s5-0
     )
    )
   )
  )

;; failed to figure out what this is:
(defstate wedge-plat-idle (wedge-plat)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (let ((v1-0 arg2))
    (the-as object (if (= v1-0 'bonk)
                    (dummy-22 self)
                    )
     )
    )
   )
  :trans
  (the-as (function none :behavior wedge-plat) plat-trans)
  :code
  (behavior ()
   (let ((gp-0 (-> self skel root-channel 0)))
    (set! (-> gp-0 num-func) num-func-identity)
    (set! (-> gp-0 frame-num) (ja-aframe 0.0 0))
    )
   (while #t
    (if (dummy-27 self)
     (go wedge-plat-tip)
     )
    (suspend)
    )
   (none)
   )
  :post
  (the-as (function none :behavior wedge-plat) plat-post)
  )

;; failed to figure out what this is:
(defstate wedge-plat-tip (wedge-plat)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (let ((v1-0 arg2))
    (the-as object (cond
                    ((= v1-0 'bonk)
                     (dummy-22 self)
                     )
                    ((= v1-0 'touch)
                     (let ((a1-4 (new 'stack-no-clear 'event-message-block)))
                      (set! (-> a1-4 from) self)
                      (set! (-> a1-4 num-params) 1)
                      (set! (-> a1-4 message) 'no-look-around)
                      (set! (-> a1-4 param 0) (the-as uint 450))
                      (send-event-function arg0 a1-4)
                      )
                     #f
                     )
                    )
     )
    )
   )
  :trans
  (the-as (function none :behavior wedge-plat) plat-trans)
  :code
  (behavior ()
   (let ((gp-0 (-> self skel root-channel 0)))
    (set!
     (-> gp-0 frame-group)
     (the-as art-joint-anim (-> self draw art-group data 3))
     )
    (set! (-> gp-0 param 0) (ja-aframe 60.0 0))
    (set! (-> gp-0 param 1) 1.0)
    (set! (-> gp-0 frame-num) (ja-aframe 0.0 0))
    (joint-control-channel-group!
     gp-0
     (the-as art-joint-anim (-> self draw art-group data 3))
     num-func-seek!
     )
    )
   (until (ja-done? 0)
    (dummy-27 self)
    (suspend)
    (let ((gp-1 (-> self skel root-channel 0)))
     (set! (-> gp-1 param 0) (ja-aframe 60.0 0))
     (set! (-> gp-1 param 1) 1.0)
     (joint-control-channel-group-eval!
      gp-1
      (the-as art-joint-anim #f)
      num-func-seek!
      )
     )
    )
   (let ((gp-2 (-> self skel root-channel 0)))
    (set!
     (-> gp-2 frame-group)
     (the-as art-joint-anim (-> self draw art-group data 3))
     )
    (set! (-> gp-2 param 0) (ja-aframe 100.0 0))
    (set! (-> gp-2 param 1) 1.0)
    (set! (-> gp-2 frame-num) (ja-aframe 60.0 0))
    (joint-control-channel-group!
     gp-2
     (the-as art-joint-anim (-> self draw art-group data 3))
     num-func-seek!
     )
    )
   (until (ja-done? 0)
    (dummy-27 self)
    (suspend)
    (let ((gp-3 (-> self skel root-channel 0)))
     (set! (-> gp-3 param 0) (ja-aframe 100.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!
      )
     )
    )
   (set!
    (-> self state-time)
    (the-as seconds (-> *display* base-frame-counter))
    )
   (until
    (>=
     (- (-> *display* base-frame-counter) (the-as int (-> self state-time)))
     300
     )
    (let ((gp-4 (-> self skel root-channel 0)))
     (set! (-> gp-4 num-func) num-func-identity)
     (set! (-> gp-4 frame-num) (ja-aframe 100.0 0))
     )
    (dummy-27 self)
    (suspend)
    )
   (let ((gp-5 (-> self skel root-channel 0)))
    (set!
     (-> gp-5 frame-group)
     (the-as art-joint-anim (-> self draw art-group data 3))
     )
    (set! (-> gp-5 param 0) (ja-aframe 153.0 0))
    (set! (-> gp-5 param 1) 1.0)
    (set! (-> gp-5 frame-num) (ja-aframe 100.0 0))
    (joint-control-channel-group!
     gp-5
     (the-as art-joint-anim (-> self draw art-group data 3))
     num-func-seek!
     )
    )
   (until (ja-done? 0)
    (dummy-27 self)
    (suspend)
    (let ((gp-6 (-> self skel root-channel 0)))
     (set! (-> gp-6 param 0) (ja-aframe 153.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!
      )
     )
    )
   (go wedge-plat-idle)
   (none)
   )
  :post
  (the-as (function none :behavior wedge-plat) plat-post)
  )

;; definition for method 11 of type wedge-plat
(defmethod copy-defaults! wedge-plat ((obj wedge-plat) (arg0 res-lump))
  (set! (-> obj mask) (logior (process-mask platform) (-> obj mask)))
  (let
   ((s4-0
     (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player))
     )
    )
   (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
   (set! (-> s4-0 reaction) default-collision-reaction)
   (set! (-> s4-0 no-reaction) nothing)
   (dummy-29 s4-0 1)
   (let
    ((s3-0
      (new
       'process
       'collide-shape-prim-mesh
       s4-0
       (the-as uint 0)
       (the-as uint 0)
       )
      )
     )
    (set! (-> s3-0 prim-core collide-as) (the-as uint 2048))
    (set! (-> s3-0 collide-with) (the-as uint 16))
    (set! (-> s3-0 prim-core action) (the-as uint 3))
    (set! (-> s3-0 prim-core offense) 4)
    (set! (-> s3-0 transform-index) 3)
    (set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 24576.0)
    )
   (dummy-46 s4-0)
   (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
   (dummy-50 s4-0)
   (set! (-> obj root-override) s4-0)
   )
  (process-drawable-from-entity! obj arg0)
  (dummy-14 obj *wedge-plat-sg* '())
  (logior! (-> obj skel status) 1)
  (dummy-47 (-> obj root-override))
  (dummy-21 obj)
  (set!
   (-> obj master)
   (the-as wedge-plat-master (entity-actor-lookup arg0 'alt-actor 0))
   )
  (set! (-> obj offset) (res-lump-float arg0 'rotoffset))
  (set! (-> obj distance) (res-lump-float arg0 'distance :default 36864.0))
  (logclear! (-> obj mask) (process-mask actor-pause))
  (go wedge-plat-idle)
  (none)
  )

;; definition of type wedge-plat-outer
(deftype wedge-plat-outer (wedge-plat)
  ()
  :heap-base #x80
  :method-count-assert 28
  :size-assert         #xf0
  :flag-assert         #x1c008000f0
  )

;; failed to figure out what this is:
(let
  ((v1-7
    (new 'static 'skeleton-group
     :art-group-name "wedge-plat-outer"
     :bounds (new 'static 'vector :w 32768.0)
     :version #x6
     )
    )
   )
  (set! (-> v1-7 jgeo) 0)
  (set! (-> v1-7 janim) 2)
  (set! (-> v1-7 mgeo 0) (the-as uint 1))
  (set! (-> v1-7 lod-dist 0) 4095996000.0)
  (set! *wedge-plat-outer-sg* v1-7)
  )

;; definition for method 27 of type wedge-plat-outer
(defmethod dummy-27 wedge-plat-outer ((obj wedge-plat-outer))
  (let* ((a0-1 (-> obj master))
         (v1-0 (if a0-1
                (-> (the-as process-drawable (-> a0-1 ppointer)) brother)
                )
          )
         )
   (when v1-0
    (let ((s4-0 (&-> v1-0 27))
          (f30-0 (-> obj distance))
          (f28-0
           (the
            float
            (sar
             (shl (the int (+ (the-as float (-> v1-0 33)) (-> obj offset))) 48)
             48
             )
            )
           )
          (s5-0 #f)
          )
     (quaternion-axis-angle!
      (-> obj root-override quat)
      0.0
      1.0
      0.0
      (the float (sar (shl (the int (- 49152.0 f28-0)) 48) 48))
      )
     (set!
      (-> obj basetrans x)
      (+ (the-as float (-> s4-0 0)) (* f30-0 (cos f28-0)))
      )
     (set! (-> obj basetrans y) (the-as float (-> s4-0 1)))
     (set!
      (-> obj basetrans z)
      (+ (the-as float (-> s4-0 2)) (* f30-0 (sin f28-0)))
      )
     (let ((f0-16 (sin f28-0)))
      (if (or (< 0.95 f0-16) (< f0-16 -0.95))
       (set! s5-0 #t)
       )
      )
     s5-0
     )
    )
   )
  )

;; failed to figure out what this is:
(defstate wedge-plat-outer-idle (wedge-plat-outer)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (let ((v1-0 arg2))
    (the-as object (if (= v1-0 'bonk)
                    (dummy-22 self)
                    )
     )
    )
   )
  :trans
  (the-as (function none :behavior wedge-plat-outer) plat-trans)
  :code
  (behavior ()
   (while #t
    (let ((gp-0 (-> self skel root-channel 0)))
     (set! (-> gp-0 num-func) num-func-identity)
     (set! (-> gp-0 frame-num) (ja-aframe 0.0 0))
     )
    (if (dummy-27 self)
     (go wedge-plat-outer-tip)
     )
    (suspend)
    )
   (none)
   )
  :post
  (the-as (function none :behavior wedge-plat-outer) plat-post)
  )

;; failed to figure out what this is:
(defstate wedge-plat-outer-tip (wedge-plat-outer)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (let ((v1-0 arg2))
    (the-as object (cond
                    ((= v1-0 'bonk)
                     (dummy-22 self)
                     )
                    ((= v1-0 'touch)
                     (let ((a1-4 (new 'stack-no-clear 'event-message-block)))
                      (set! (-> a1-4 from) self)
                      (set! (-> a1-4 num-params) 1)
                      (set! (-> a1-4 message) 'no-look-around)
                      (set! (-> a1-4 param 0) (the-as uint 450))
                      (send-event-function arg0 a1-4)
                      )
                     )
                    )
     )
    )
   )
  :trans
  (the-as (function none :behavior wedge-plat-outer) plat-trans)
  :code
  (behavior ()
   (let ((gp-0 (-> self skel root-channel 0)))
    (set!
     (-> gp-0 frame-group)
     (the-as art-joint-anim (-> self draw art-group data 3))
     )
    (set! (-> gp-0 param 0) (ja-aframe 60.0 0))
    (set! (-> gp-0 param 1) 1.0)
    (set! (-> gp-0 frame-num) (ja-aframe 0.0 0))
    (joint-control-channel-group!
     gp-0
     (the-as art-joint-anim (-> self draw art-group data 3))
     num-func-seek!
     )
    )
   (until (ja-done? 0)
    (dummy-27 self)
    (suspend)
    (let ((gp-1 (-> self skel root-channel 0)))
     (set! (-> gp-1 param 0) (ja-aframe 60.0 0))
     (set! (-> gp-1 param 1) 1.0)
     (joint-control-channel-group-eval!
      gp-1
      (the-as art-joint-anim #f)
      num-func-seek!
      )
     )
    )
   (let ((gp-2 (-> self skel root-channel 0)))
    (set!
     (-> gp-2 frame-group)
     (the-as art-joint-anim (-> self draw art-group data 3))
     )
    (set! (-> gp-2 param 0) (ja-aframe 100.0 0))
    (set! (-> gp-2 param 1) 1.0)
    (set! (-> gp-2 frame-num) (ja-aframe 60.0 0))
    (joint-control-channel-group!
     gp-2
     (the-as art-joint-anim (-> self draw art-group data 3))
     num-func-seek!
     )
    )
   (until (ja-done? 0)
    (dummy-27 self)
    (suspend)
    (let ((gp-3 (-> self skel root-channel 0)))
     (set! (-> gp-3 param 0) (ja-aframe 100.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!
      )
     )
    )
   (set!
    (-> self state-time)
    (the-as seconds (-> *display* base-frame-counter))
    )
   (until
    (>=
     (- (-> *display* base-frame-counter) (the-as int (-> self state-time)))
     300
     )
    (let ((gp-4 (-> self skel root-channel 0)))
     (set! (-> gp-4 num-func) num-func-identity)
     (set! (-> gp-4 frame-num) (ja-aframe 100.0 0))
     )
    (dummy-27 self)
    (suspend)
    )
   (let ((gp-5 (-> self skel root-channel 0)))
    (set!
     (-> gp-5 frame-group)
     (the-as art-joint-anim (-> self draw art-group data 3))
     )
    (set! (-> gp-5 param 0) (ja-aframe 153.0 0))
    (set! (-> gp-5 param 1) 1.0)
    (set! (-> gp-5 frame-num) (ja-aframe 100.0 0))
    (joint-control-channel-group!
     gp-5
     (the-as art-joint-anim (-> self draw art-group data 3))
     num-func-seek!
     )
    )
   (until (ja-done? 0)
    (dummy-27 self)
    (suspend)
    (let ((gp-6 (-> self skel root-channel 0)))
     (set! (-> gp-6 param 0) (ja-aframe 153.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!
      )
     )
    )
   (go wedge-plat-outer-idle)
   (none)
   )
  :post
  (the-as (function none :behavior wedge-plat-outer) plat-post)
  )

;; definition for method 11 of type wedge-plat-outer
(defmethod
  copy-defaults!
  wedge-plat-outer
  ((obj wedge-plat-outer) (arg0 res-lump))
  (set! (-> obj mask) (logior (process-mask platform) (-> obj mask)))
  (let
   ((s4-0
     (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player))
     )
    )
   (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
   (set! (-> s4-0 reaction) default-collision-reaction)
   (set! (-> s4-0 no-reaction) nothing)
   (dummy-29 s4-0 1)
   (let
    ((s3-0
      (new
       'process
       'collide-shape-prim-mesh
       s4-0
       (the-as uint 0)
       (the-as uint 0)
       )
      )
     )
    (set! (-> s3-0 prim-core collide-as) (the-as uint 2048))
    (set! (-> s3-0 collide-with) (the-as uint 16))
    (set! (-> s3-0 prim-core action) (the-as uint 19))
    (set! (-> s3-0 prim-core offense) 4)
    (set! (-> s3-0 transform-index) 3)
    (set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 32768.0)
    )
   (dummy-46 s4-0)
   (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
   (dummy-50 s4-0)
   (set! (-> obj root-override) s4-0)
   )
  (process-drawable-from-entity! obj arg0)
  (dummy-14 obj *wedge-plat-sg* '())
  (logior! (-> obj skel status) 1)
  (dummy-47 (-> obj root-override))
  (dummy-21 obj)
  (set!
   (-> obj master)
   (the-as wedge-plat-master (entity-actor-lookup arg0 'alt-actor 0))
   )
  (set! (-> obj offset) (res-lump-float arg0 'rotoffset))
  (set! (-> obj distance) (res-lump-float arg0 'distance :default 69632.0))
  (logclear! (-> obj mask) (process-mask actor-pause))
  (go wedge-plat-outer-idle)
  (none)
  )