mirror of
https://github.com/open-goal/jak-project
synced 2026-08-06 18:03:30 -04:00
Tyler Wilding
41 lines
772 B
Common Lisp
41 lines
772 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: text-h.gc
|
|
;; name in dgo: text-h
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype game-text (structure)
|
|
((id text-id)
|
|
(text string)
|
|
)
|
|
:pack-me
|
|
)
|
|
|
|
|
|
(deftype game-text-info (basic)
|
|
((length int32)
|
|
(language-id int32)
|
|
(group-name string)
|
|
(dic-index uint32)
|
|
(dic-data uint32)
|
|
(text uint32)
|
|
(text-data uint32)
|
|
)
|
|
(:methods
|
|
(game-text-info-method-9 () none)
|
|
(game-text-info-method-10 () none)
|
|
(game-text-info-method-11 () none)
|
|
(game-text-info-method-12 () none)
|
|
)
|
|
)
|
|
|
|
|
|
(define *text-group-names* (new 'static 'boxed-array :type string "common"))
|
|
|
|
(define *common-text-heap* (new 'global 'kheap))
|
|
|
|
(define *common-text* (the-as game-text-info #f))
|