mirror of
https://github.com/open-goal/jak-project
synced 2026-08-19 14:03:38 -04:00
Hat Kid
34 lines
615 B
Common Lisp
34 lines
615 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: texture-finish.gc
|
|
;; name in dgo: texture-finish
|
|
;; dgos: ART, GAME
|
|
|
|
;; TODO - needs `texture-anim`
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(setup-font-texture *texture-pool*)
|
|
|
|
(let ((v1-2 (get-texture skull-gem-dest programmer)))
|
|
(when v1-2
|
|
(set! (-> v1-2 w) 32)
|
|
(set! (-> v1-2 h) 32)
|
|
(set! (-> v1-2 dest 0) (-> *skull-gem-texture-base* vram-block))
|
|
)
|
|
)
|
|
|
|
(init! *sky-texture-anim-array*)
|
|
|
|
;; og:preserve-this
|
|
(init! *sky-hires-texture-anim-array*)
|
|
|
|
(init! *darkjak-texture-anim-array*)
|
|
|
|
(init! *skull-gem-texture-anim-array*)
|
|
|
|
(init! *bomb-texture-anim-array*)
|
|
|
|
(kmemclose)
|