jak-project/goal_src/levels/snow/snow-ram.gc

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

;; name: snow-ram.gc
;; name in dgo: snow-ram
;; dgos: L1, SNO

;; DECOMP BEGINS

(defskelgroup *ram-sg* ram
  0
  4
  ((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
  :bounds (static-spherem 0 5 0 8.5)
  :longest-edge (meters 7.7)
  )

(defpartgroup group-ram-hit-wall
  :id 526
  :flags (use-local-clock)
  :bounds (static-bspherem 0 0 0 8)
  :parts
  ((sp-item 1921) (sp-item 1922 :fade-after (meters 60) :falloff-to (meters 60)))
  )

(defpart 1920
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 64.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 128.0 16.0 1.0)
    (sp-rnd-flt spt-g 128.0 48.0 1.0)
    (sp-rnd-flt spt-b 128.0 64.0 1.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
    (sp-flt spt-scalevel-x (meters -0.00066666666))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-accel-y -20.48 13.653334 1.0)
    (sp-rnd-flt spt-friction 0.92 0.05 1.0)
    (sp-int spt-timer 210)
    (sp-cpuinfo-flags bit0 bit3 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 170.0) 1.0)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
    )
  )

(defpart 1922
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 8.0)
    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 100.0)
    (sp-flt spt-g 100.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.013333334) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-flt spt-fade-a -0.60952383)
    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
    (sp-int spt-timer 210)
    (sp-cpuinfo-flags bit2 bit3 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
    )
  )

(defpart 1921
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 100.0)
    (sp-flt spt-g 100.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 96.0)
    (sp-flt spt-fade-a -2.1333334)
    (sp-int spt-timer 42)
    (sp-cpuinfo-flags bit2 bit3)
    )
  )

(defpartgroup group-ram-wheel-puffs
  :id 527
  :flags (use-local-clock)
  :bounds (static-bspherem 0 0 0 8)
  :parts
  ((sp-item 1923 :fade-after (meters 70) :falloff-to (meters 70)))
  )

(defpart 1923
  :init-specs
  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
    (sp-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 100.0)
    (sp-flt spt-g 100.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-flt spt-fade-a -0.26666668)
    (sp-flt spt-accel-y -1.3653333)
    (sp-int spt-timer 120)
    (sp-cpuinfo-flags bit2)
    )
  )

(defmethod dummy-20 ram ((obj ram))
  (let ((gp-0 (-> obj part)))
    (when (nonzero? gp-0)
      (let ((a2-0 (-> obj node-list data 8 bone transform))
            (s5-0 (new 'stack-no-clear 'vector))
            )
        (set-vector! s5-0 0.0 0.0 -49152.0 1.0)
        (vector-matrix*! s5-0 s5-0 a2-0)
        (set! (-> *part-id-table* 1920 init-specs 16 initial-valuef) (+ 16384.0 (-> obj orient-ry)))
        (spawn gp-0 s5-0)
        )
      )
    )
  )

(defmethod dummy-21 ram ((obj ram))
  (let ((gp-0 (-> obj part2)))
    (let ((s3-0 (new 'stack-no-clear 'vector))
          (s4-0 (new 'stack-no-clear 'vector))
          )
      (vector<-cspace! s3-0 (-> obj node-list data 5))
      (set-vector! s4-0 13312.0 -5324.8 0.0 1.0)
      (vector-rotate-around-y! s4-0 s4-0 (-> obj orient-ry))
      (vector+! s4-0 s4-0 s3-0)
      (spawn gp-0 s4-0)
      (set-vector! s4-0 -13312.0 -5324.8 0.0 1.0)
      (vector-rotate-around-y! s4-0 s4-0 (-> obj orient-ry))
      (vector+! s4-0 s4-0 s3-0)
      (spawn gp-0 s4-0)
      )
    (let ((s3-1 (new 'stack-no-clear 'vector))
          (s4-1 (new 'stack-no-clear 'vector))
          )
      (vector<-cspace! s3-1 (-> obj node-list data 6))
      (set-vector! s4-1 13312.0 -5324.8 0.0 1.0)
      (vector-rotate-around-y! s4-1 s4-1 (-> obj orient-ry))
      (vector+! s4-1 s4-1 s3-1)
      (spawn gp-0 s4-1)
      (set-vector! s4-1 -13312.0 -5324.8 0.0 1.0)
      (vector-rotate-around-y! s4-1 s4-1 (-> obj orient-ry))
      (vector+! s4-1 s4-1 s3-1)
      (spawn gp-0 s4-1)
      )
    )
  )

(defmethod dummy-22 ram ((obj ram))
  (process-entity-status! obj (entity-perm-status complete) #t)
  (let ((v1-0 (alt-actor-list-subtask-incomplete-count obj)))
    (cond
      ((zero? v1-0)
       (let ((v1-3 (-> obj entity extra perm)))
         (logior! (-> v1-3 status) (entity-perm-status user-set-from-cstage))
         (set! (-> v1-3 user-int8 2) 1)
         )
       (if (not (task-complete? *game-info* (-> obj entity extra perm task)))
           (return #t)
           )
       )
      ((= v1-0 1)
       (close-specific-task! (game-task snow-ram) (task-status need-reminder))
       )
      (else
        (close-specific-task! (game-task snow-ram) (task-status need-reminder-a))
        )
      )
    )
  #f
  )

(defstate ram-idle (ram)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('touch 'attack)
       (when ((method-of-type touching-shapes-entry prims-touching?)
              (the-as touching-shapes-entry (-> arg3 param 0))
              (-> self root-override)
              (the-as uint 1)
              )
         (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
           (set! (-> a1-3 from) self)
           (set! (-> a1-3 num-params) 2)
           (set! (-> a1-3 message) 'attack)
           (set! (-> a1-3 param 0) (-> arg3 param 0))
           (let ((v1-7 (new 'static 'attack-info :mask #xc0)))
             (set! (-> v1-7 shove-up) 2048.0)
             (set! (-> v1-7 shove-back) 8192.0)
             (set! (-> a1-3 param 1) (the-as uint v1-7))
             )
           (send-event-function arg0 a1-3)
           )
         )
       )
      )
    )
  :exit
  (behavior ()
    (logior! (-> self mask) (process-mask actor-pause))
    (none)
    )
  :trans
  (behavior ()
    (rider-trans)
    (if (-> self give-fuel-cell-anim)
        (spool-push *art-control* (-> self give-fuel-cell-anim name) 0 self -99.0)
        )
    (none)
    )
  :code
  (behavior ()
    (local-vars (sv-16 symbol))
    (ja-channel-push! 1 22)
    (while #t
      (sound-play-by-name (static-sound-name "set-ram") (new-sound-id) 1024 0 0 1 #t)
      (let ((a0-2 (-> self skel root-channel 0)))
        (set! (-> a0-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
        (set! (-> a0-2 param 0)
              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
              )
        (set! (-> a0-2 param 1) 1.0)
        (set! (-> a0-2 frame-num) 0.0)
        (joint-control-channel-group! a0-2 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-3 (-> self skel root-channel 0)))
          (set! (-> a0-3 param 0) (the float (+ (-> a0-3 frame-group data 0 length) -1)))
          (set! (-> a0-3 param 1) 1.0)
          (joint-control-channel-group-eval! a0-3 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      (let ((gp-1 #f))
        (sound-play-by-name (static-sound-name "slam-crash") (new-sound-id) 1024 0 0 1 #t)
        (logclear! (-> self mask) (process-mask actor-pause))
        (let ((a0-8 (-> self skel root-channel 0)))
          (set! (-> a0-8 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
          (set! (-> a0-8 param 0)
                (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
                )
          (set! (-> a0-8 param 1) 1.0)
          (set! (-> a0-8 frame-num) 0.0)
          (joint-control-channel-group! a0-8 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
          )
        (until (ja-done? 0)
          (let ((f30-0 (ja-aframe-num 0)))
            (when (and (not gp-1) (>= f30-0 61.0))
              (set! gp-1 #t)
              (dummy-20 self)
              )
            (if (and (>= f30-0 62.0) (< f30-0 97.0))
                (dummy-21 self)
                )
            )
          (suspend)
          (let ((a0-12 (-> self skel root-channel 0)))
            (set! (-> a0-12 param 0) (the float (+ (-> a0-12 frame-group data 0 length) -1)))
            (set! (-> a0-12 param 1) 1.0)
            (joint-control-channel-group-eval! a0-12 (the-as art-joint-anim #f) num-func-seek!)
            )
          )
        )
      (logior! (-> self mask) (process-mask actor-pause))
      (set! sv-16 (the-as symbol #f))
      (apply-function-forward (-> self link) actor-link-dead-hook (& sv-16))
      (when (or sv-16 (nonzero? (-> self root-override riders num-riders)))
        (let ((v1-67 (-> self entity extra perm)))
          (logior! (-> v1-67 status) (entity-perm-status user-set-from-cstage))
          (set! (-> v1-67 user-int8 0) 1)
          )
        (send-event (ppointer->process (-> self child)) 'jump)
        (go ram-fun-idle)
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior ram) rider-post)
  )

(defstate ram-fun-idle (ram)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('notify)
       (when (= (-> arg0 type) ram-boss)
         (if (dummy-22 self)
             (go ram-give-fuel-cell)
             )
         )
       )
      )
    )
  :trans
  (behavior ()
    (if (-> self give-fuel-cell-anim)
        (spool-push *art-control* (-> self give-fuel-cell-anim name) 0 self -99.0)
        )
    (none)
    )
  :code
  (behavior ()
    (if (-> self give-fuel-cell?)
        (go ram-give-fuel-cell)
        )
    (ja-channel-push! 1 0)
    (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 6))
        num-func-identity
        )
      (set! (-> gp-0 frame-num) 0.0)
      )
    (transform-post)
    (logior! (-> self mask) (process-mask sleep-code))
    (suspend)
    0
    (none)
    )
  )

(defstate ram-give-fuel-cell (ram)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('notify)
       (if (and (= (-> arg0 type) snowcam) (= (-> arg3 param 0) 'die))
           (go ram-fun-idle)
           )
       )
      )
    )
  :exit
  (behavior ()
    (process-entity-status! self (entity-perm-status bit-3) #f)
    (logior! (-> self mask) (process-mask actor-pause))
    (none)
    )
  :code
  (behavior ()
    (set! (-> self give-fuel-cell?) #f)
    (ja-channel-push! 1 0)
    (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 6))
        num-func-identity
        )
      (set! (-> gp-0 frame-num) 0.0)
      )
    (transform-post)
    (when (and (not (task-complete? *game-info* (-> self entity extra perm task))) (-> self give-fuel-cell-anim))
      (logclear! (-> self mask) (process-mask actor-pause))
      (process-entity-status! self (entity-perm-status bit-3) #t)
      (let* ((gp-1 (the-as snowcam (get-process *default-dead-pool* snowcam #x4000)))
             (v1-14 (when gp-1
                      (let ((t9-6 (method-of-type snowcam activate)))
                        (t9-6 gp-1 self 'snowcam (the-as pointer #x70004000))
                        )
                      (run-now-in-process
                        gp-1
                        pov-camera-init-by-other
                        (-> self root-override trans)
                        *snowcam-sg*
                        (-> self give-fuel-cell-anim)
                        0
                        self
                        '()
                        )
                      (-> gp-1 ppointer)
                      )
                    )
             )
        (set! (-> (the-as (pointer snowcam) v1-14) 0 seq) (the-as uint 1))
        )
      (sound-play-by-name (static-sound-name "cell-prize") (new-sound-id) 1024 0 0 1 #t)
      (logior! (-> self mask) (process-mask sleep-code))
      (suspend)
      0
      )
    (go ram-fun-idle)
    (none)
    )
  )

(defmethod deactivate ram ((obj ram))
  (if (nonzero? (-> obj part2))
      (kill-and-free-particles (-> obj part2))
      )
  ((method-of-type process-drawable deactivate) obj)
  (none)
  )

(defmethod relocate ram ((obj ram) (arg0 int))
  (if (nonzero? (-> obj part2))
      (&+! (-> obj part2) arg0)
      )
  (the-as ram ((method-of-type process-drawable relocate) obj arg0))
  )

(defmethod init-from-entity! ram ((obj ram) (arg0 entity-actor))
  (set! (-> obj give-fuel-cell?) #f)
  (set! (-> obj link) (new 'process 'actor-link-info obj))
  (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-others))))
    (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s4-0 reaction) default-collision-reaction)
    (set! (-> s4-0 no-reaction)
          (the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
          )
    (alloc-riders s4-0 1)
    (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0)))
      (set! (-> s3-0 prim-core collide-as) (collide-kind ground-object))
      (set! (-> s3-0 collide-with) (collide-kind target))
      (set! (-> s3-0 prim-core action) (collide-action solid ca-1))
      (set-vector! (-> s3-0 local-sphere) 0.0 20480.0 0.0 34816.0)
      (set-root-prim! s4-0 s3-0)
      (let ((s2-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 1))))
        (set! (-> s2-0 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-0 collide-with) (collide-kind target))
        (set! (-> s2-0 prim-core action) (collide-action solid))
        (set! (-> s2-0 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-0 transform-index) 8)
        (set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 20480.0)
        (append-prim s3-0 s2-0)
        )
      (let ((s2-1 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 2))))
        (set! (-> s2-1 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-1 collide-with) (collide-kind target))
        (set! (-> s2-1 prim-core action) (collide-action solid ca-1))
        (set! (-> s2-1 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-1 transform-index) 3)
        (set-vector! (-> s2-1 local-sphere) 0.0 20480.0 0.0 34816.0)
        (append-prim s3-0 s2-1)
        )
      (let ((s2-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 4))))
        (set! (-> s2-2 prim-core collide-as) (collide-kind enemy))
        (set! (-> s2-2 collide-with) (collide-kind target))
        (set! (-> s2-2 prim-core offense) (collide-offense no-offense))
        (set! (-> s2-2 transform-index) 3)
        (set-vector! (-> s2-2 local-sphere) -4096.0 28672.0 12288.0 2252.8)
        (append-prim s3-0 s2-2)
        )
      )
    (set! (-> s4-0 nav-radius) 20480.0)
    (backup-collide-with-as s4-0)
    (set! (-> obj root-override) s4-0)
    )
  (process-drawable-from-entity! obj arg0)
  (initialize-skeleton obj *ram-sg* '())
  (logior! (-> obj skel status) (janim-status inited))
  (ja-post)
  (update-transforms! (-> obj root-override))
  (set! (-> obj orient-ry) (quaternion-y-angle (-> obj root-override quat)))
  (nav-mesh-connect obj (-> obj root-override) (the-as nav-control #f))
  (set! (-> obj part) (create-launch-control (-> *part-group-id-table* 526) obj))
  (set! (-> obj part2) (create-launch-control (-> *part-group-id-table* 527) obj))
  (set! (-> obj ram-id) (res-lump-value arg0 'extra-id int))
  (case (-> obj ram-id)
    ((1)
     (set! (-> obj give-fuel-cell-anim)
           (new 'static 'spool-anim :name "snowcam-ram-boss-in-cave-fuel-cell" :index 7 :parts 1 :command-list '())
           )
     (set-vector! (-> obj fuel-cell-dest-pos) 3137396.8 803676.2 -13560558.0 1.0)
     )
    ((2)
     (set! (-> obj give-fuel-cell-anim)
           (new 'static 'spool-anim :name "snowcam-ram-boss-ice-pond-fuel-cell" :index 8 :parts 1 :command-list '())
           )
     (set-vector! (-> obj fuel-cell-dest-pos) 2790289.5 1058152.5 -13639766.0 1.0)
     )
    ((3)
     (set! (-> obj give-fuel-cell-anim)
           (new 'static 'spool-anim :name "snowcam-ram-boss-snow-ball-fuel-cell" :index 9 :parts 1 :command-list '())
           )
     (set-vector! (-> obj fuel-cell-dest-pos) 4208423.0 1037348.9 -13591491.0 1.0)
     )
    (else
      (set! (-> obj give-fuel-cell-anim) #f)
      )
    )
  (let ((s4-1 #f))
    (if (nonzero? (-> obj entity extra perm user-int8 0))
        (set! s4-1 #t)
        )
    (let ((s3-1 (= (res-lump-value arg0 'mode uint128) 1)))
      (when (not s3-1)
        (when (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status complete)))
          (set! s3-1 #t)
          (if (and (nonzero? (-> obj entity extra perm user-int8 2))
                   (not (task-complete? *game-info* (-> obj entity extra perm task)))
                   )
              (birth-pickup-at-point
                (-> obj fuel-cell-dest-pos)
                (pickup-type fuel-cell)
                (the float (-> obj entity extra perm task))
                #f
                obj
                (the-as fact-info #f)
                )
              )
          (go ram-fun-idle)
          )
        )
      (cond
        ((and (not s3-1) (has-nav-mesh? arg0))
         (cond
           (s4-1
             (let ((s5-1 (get-process *default-dead-pool* ram-boss #x4000)))
               (when s5-1
                 (let ((t9-28 (method-of-type ram-boss activate)))
                   (t9-28 (the-as ram-boss s5-1) obj 'ram-boss (the-as pointer #x70004000))
                   )
                 (run-now-in-process s5-1 ram-boss-init-by-other (-> obj entity) obj #t)
                 (-> s5-1 ppointer)
                 )
               )
             (go ram-fun-idle)
             )
           (else
             (let ((s5-2 (get-process *default-dead-pool* ram-boss #x4000)))
               (when s5-2
                 (let ((t9-32 (method-of-type ram-boss activate)))
                   (t9-32 (the-as ram-boss s5-2) obj 'ram-boss (the-as pointer #x70004000))
                   )
                 (run-now-in-process s5-2 ram-boss-init-by-other (-> obj entity) obj #f)
                 (-> s5-2 ppointer)
                 )
               )
             (go ram-idle)
             )
           )
         )
        (else
          (go ram-fun-idle)
          )
        )
      )
    )
  (none)
  )