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

;; name: sparticle.gc
;; name in dgo: sparticle
;; dgos: GAME, ENGINE

(defun set-particle-frame-time ((arg0 int))
  (cond
   ((= arg0 5)
    (set-vector!
     *sp-frame-time*
     0.00000000000000000000000000000000000001175495
     5.0
     1.0
     1.0
     )
    )
   ((= arg0 6)
    (set-vector!
     *sp-frame-time*
     0.000000000000000000000000000000000000011754952
     6.0
     1.2
     1.2
     )
    )
   ((= arg0 10)
    (set-vector!
     *sp-frame-time*
     0.000000000000000000000000000000000000011754958
     10.0
     2.0
     2.0
     )
    )
   ((= arg0 12)
    (set-vector!
     *sp-frame-time*
     0.00000000000000000000000000000000000001175496
     12.0
     2.4
     2.4
     )
    )
   )
  0
  (none)
  )