mirror of
https://github.com/open-goal/jak-project
synced 2026-05-25 23:35:33 -04:00
49 lines
762 B
Common Lisp
49 lines
762 B
Common Lisp
;;-*-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)
|
|
) |