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

;; name: consiteb-part.gc
;; name in dgo: consiteb-part
;; dgos: COB

;; DECOMP BEGINS

(deftype consiteb-part (part-spawner)
  ()
  )


(defpartgroup group-consiteb-hanging-light
  :id 1184
  :bounds (static-bspherem 0 0 0 5)
  :parts ((sp-item 5112 :fade-after (meters 120) :flags (bit6)) (sp-item 5113 :fade-after (meters 120) :flags (bit6)))
  )

(defpart 5112
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:y (meters 0.25))
    (:scale-x (meters 2) (meters 0.1))
    (:rot-x (degrees 2.25))
    (:rot-z (degrees -17))
    (:scale-y :copy scale-x)
    (:r 117.0)
    (:g 80.0)
    (:b 54.0)
    (:a 48.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (glow))
    (:userdata 3072.0)
    )
  )

(defpart 5113
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:y (meters 0.25))
    (:scale-x (meters 4) (meters 0.1))
    (:rot-x (degrees 4.5))
    (:rot-z (degrees -17))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 96.0)
    (:b 62.0)
    (:a 8.0 8.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (glow))
    (:userdata 3072.0)
    )
  )

(defpartgroup group-consiteb-panel-red-light
  :id 1185
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5114 :fade-after (meters 120) :flags (bit6 bit7) :period (seconds 1) :length (seconds 0.017)))
  )

(defpart 5114
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:scale-x (meters 0.25))
    (:rot-x (degrees 2.25))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 32.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.417))
    (:flags (sp-cpuinfo-flag-2 glow))
    (:userdata 1024.0)
    (:rotate-y (degrees 0))
    )
  )

(defpartgroup group-consiteb-panel-blue-light
  :id 1186
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5115 :fade-after (meters 120) :flags (bit6 bit7) :period (seconds 0.5) :length (seconds 0.017)))
  )

(defpart 5115
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:scale-x (meters 0.25))
    (:rot-x (degrees 2.25))
    (:scale-y :copy scale-x)
    (:r 0.0)
    (:g 0.0)
    (:b 255.0)
    (:a 32.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.25))
    (:flags (sp-cpuinfo-flag-2 glow))
    (:userdata 1024.0)
    (:rotate-y (degrees 0))
    )
  )
