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

;; name: caspad-part.gc
;; name in dgo: caspad-part
;; dgos: CAP

;; DECOMP BEGINS

(deftype caspad-part (part-spawner)
  ()
  )


(defpartgroup group-caspad-hanging-light
  :id 1164
  :bounds (static-bspherem 0 0 0 5)
  :parts ((sp-item 5061 :fade-after (meters 120) :flags (bit6)) (sp-item 5062 :fade-after (meters 120) :flags (bit6)))
  )

(defpart 5061
  :init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
    (:num 1.0)
    (:scale-x (meters 2) (meters 0.1))
    (:rot-x (degrees 2.25))
    (:rot-z (degrees -17))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 32.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 2048.0)
    )
  )

(defpart 5062
  :init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
    (:num 1.0)
    (:scale-x (meters 10) (meters 0.1))
    (:rot-x (degrees 4.5))
    (:rot-z (degrees -17))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 255.0 255.0)
    (:b 255.0)
    (:a 16.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 2048.0)
    )
  )

(defpartgroup group-caspad-red-flashing-light
  :id 1165
  :flags (use-local-clock)
  :bounds (static-bspherem 0 0 0 5)
  :parts ((sp-item 5065 :fade-after (meters 220) :flags (bit6))
    (sp-item 5066 :fade-after (meters 220) :period (seconds 0.5) :length (seconds 0.017) :binding 5063)
    (sp-item 5063 :flags (bit1 start-dead launch-asap) :binding 5064)
    (sp-item 5063 :flags (bit1 start-dead launch-asap) :binding 5064)
    (sp-item 5063 :flags (bit1 start-dead launch-asap) :binding 5064)
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    (sp-item 5064 :flags (bit1 start-dead))
    )
  )

(defpart 5065
  :init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
    (:num 1.0)
    (:scale-x (meters 2.5) (meters 0.1))
    (:rot-x (degrees 11.25))
    (:rot-z (degrees -19) (degrees 4))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 16.0 4.0)
    (:omega (degrees 4511.25))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 2048.0)
    )
  )

(defpart 5066
  :init-specs ((:texture (new 'static 'texture-id :index #xc9 :page #xc))
    (:num 1.0)
    (:y (meters -0.1))
    (:scale-x (meters 0.1))
    (:scale-y :copy scale-x)
    (:r 0.0)
    (:g 0.0)
    (:b 0.0)
    (:a 128.0)
    (:timer (seconds 0.5))
    (:flags (sp-cpuinfo-flag-3))
    )
  )

(defpart 5063
  :init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
    (:num 1.0)
    (:x (meters 0))
    (:y (meters 0))
    (:z (meters 0.35))
    (:scale-x (meters 3) (meters 0.1))
    (:rot-x (degrees 1.125))
    (:rot-z (degrees -17))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 96.0)
    (:b 96.0)
    (:a 64.0)
    (:omega (degrees 4511.25))
    (:vel-x (meters 0.10666667))
    (:vel-y (meters 0))
    (:vel-z (meters 0))
    (:timer (seconds 0.5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 ready-to-launch glow))
    (:userdata 0.0)
    )
  )

(defpart 5064
  :init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
    (:num 1.0)
    (:scale-x (meters 12) (meters 0.1))
    (:rot-x (degrees 4.5))
    (:rot-z (degrees -19) (degrees 4))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 16.0 4.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 2048.0)
    )
  )

(defpartgroup group-caspad-electrical-thing
  :id 1166
  :bounds (static-bspherem 0 -12 0 32)
  :parts ((sp-item 5067 :fade-after (meters 800) :flags (bit6) :period (seconds 0.2) :length (seconds 0.1))
    (sp-item 5068 :fade-after (meters 800) :flags (bit6))
    (sp-item 5069 :fade-after (meters 800) :flags (bit6))
    (sp-item 5070 :fade-after (meters 800) :flags (bit6))
    )
  )

(defpart 5068
  :init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
    (:num 8.0)
    (:x (meters 12))
    (:y (meters -11))
    (:scale-x (meters 20) (meters 1))
    (:scale-y (meters 12) (meters 1))
    (:r 0.0)
    (:g 0.0 192.0)
    (:b 255.0)
    (:a 4.0 16.0)
    (:timer (seconds 0.067))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
    (:rotate-y (degrees -110) (degrees 220))
    )
  )

(defpart 5069
  :init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
    (:num 8.0)
    (:x (meters 12))
    (:y (meters -20))
    (:scale-x (meters 20) (meters 1))
    (:scale-y (meters 12) (meters 1))
    (:r 0.0)
    (:g 0.0 192.0)
    (:b 255.0)
    (:a 4.0 16.0)
    (:timer (seconds 0.067))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
    (:rotate-y (degrees -110) (degrees 220))
    )
  )

(defpart 5070
  :init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
    (:num 8.0)
    (:x (meters 12))
    (:y (meters -27))
    (:scale-x (meters 20) (meters 1))
    (:scale-y (meters 12) (meters 1))
    (:r 0.0)
    (:g 0.0 192.0)
    (:b 255.0)
    (:a 4.0 16.0)
    (:timer (seconds 0.067))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
    (:rotate-y (degrees -110) (degrees 220))
    )
  )

(defpart 5067
  :init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
    (:num 1.0)
    (:scale-x (meters 8) (meters 0.1))
    (:rot-x (degrees 45))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0 64.0)
    (:b 0.0)
    (:a 64.0 4.0)
    (:omega (degrees 18015.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 1024.0)
    )
  )