mirror of
https://github.com/open-goal/jak-project
synced 2026-06-12 05:27:57 -04:00
Hat Kid
62 lines
1.1 KiB
Common Lisp
62 lines
1.1 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
#|
|
|
|
|
Additional PC port specific file for overriding/expanding the progress menu
|
|
This gives us more freedom to write code how we want.
|
|
|
|
|#
|
|
|
|
|
|
(defmacro push-and-set-state (progress state)
|
|
`(begin
|
|
(push-state ,progress)
|
|
(set-next-state ,progress ,state 0)))
|
|
|
|
(deftype menu-aspect-ratio-custom-option (menu-option)
|
|
()
|
|
)
|
|
|
|
(deftype menu-frame-rate-disclaimer-option (menu-option)
|
|
()
|
|
)
|
|
|
|
(deftype menu-exit-game-option (menu-qr-option)
|
|
()
|
|
)
|
|
|
|
(deftype menu-resolution-option (menu-option)
|
|
((last-move time-frame)
|
|
(selected-index int16)
|
|
(scroll-index float)
|
|
(valid? symbol)
|
|
|
|
;; OS state kept for drawing later, avoids desync and duplicate fetching
|
|
(num-resolutions int)
|
|
(win-aspect float)
|
|
(win-w int64)
|
|
(win-h int64)
|
|
)
|
|
)
|
|
|
|
(deftype menu-music-player-option (menu-option)
|
|
((last-move time-frame)
|
|
|
|
;; player params
|
|
(music-index int16)
|
|
(flava-index int8)
|
|
(excitement int8)
|
|
|
|
;; scroll
|
|
(current-scroll float)
|
|
(max-scroll float)
|
|
|
|
;; sprites 0-3 used to show level icon
|
|
(sprites hud-sprite 4 :inline)
|
|
)
|
|
)
|
|
|
|
|
|
|