Files
jak-project/test/decompiler/reference/engine/ui/progress/progress-static_REF.gc
T
ManDude a7eee4fdc9 [game] pc port progress menu (#1281)
* fix typo

* more typo

* shorten discord rpc text

* allow expanding enums after the fact (untested)

* make `game_text` work similar to subtitles

* update progress decomp

* update some types + `do-not-decompile` in bitfield

* fixes and fall back to original progress code

* update `progress` decomp with new enums

* update config files

* fix enums and debug menu

* always allocate (but not use) a lot of particles

* small rework to display mode options

* revert resolution/aspect-ratio symbol mess

* begin the override stuff

* make `progress-draw` more readable

* more fixes

* codacy good boy points

* first step overriding code

* finish progress overrides, game options menu fully functional!

* minor fixes

* Update game.gp

* Update sparticle-launcher.gc

* clang

* change camera controls text

* oops

* some cleanup

* derp

* nice job

* implement menu scrolling lol

* make scrollable menus less cramped, fix arrows

* make some carousell things i guess

* add msaa carousell to test

* oops

* Update progress-pc.gc

* make `pc-get-screen-size` (untested)

* resolution menu

* input fixes

* return when selecting resolution

* scroll fixes

* Update progress-pc.gc

* add "fit to screen" button

* bug

* complete resolutions menu

* aspect ratio menu

* subtitles language

* subtitle speaker

* final adjustments

* ref test

* fix tests

* fix ref!

* reduce redundancy a bit

* fix mem leaks?

* save settings on progress exit

* fix init reorder

* remove unused code

* rename goal project-like files to the project extension

* sha display toggle

* aspect ratio settings fixes

* dont store text db's in compiler

* properly save+load native aspect stuff
2022-04-11 18:38:54 -04:00

1559 lines
78 KiB
Common Lisp
Vendored
Generated

;;-*-Lisp-*-
(in-package goal)
;; definition for symbol *main-options*, type (array game-option)
(define
*main-options*
(new
'static
'boxed-array
:type game-option :length 7 :allocated-length 7
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id game-options)
:scale #t
:param3 (game-option-menu game-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id graphic-options)
:scale #t
:param3 (game-option-menu graphic-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id sound-options)
:scale #t
:param3 (game-option-menu sound-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id load-game)
:scale #t
:param3 (game-option-menu load-game)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id save-game)
:scale #t
:param3 (game-option-menu save-game)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id quit-game)
:scale #t
:param3 (game-option-menu quit)
)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *title*, type (array game-option)
(define
*title*
(new
'static
'boxed-array
:type game-option :length 4 :allocated-length 4
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id new-game)
:scale #t
:param3 (game-option-menu save-game-title)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id load-game)
:scale #t
:param3 (game-option-menu load-game)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id options)
:scale #t
:param3 (game-option-menu settings-title)
)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *options*, type (array game-option)
(define
*options*
(new
'static
'boxed-array
:type game-option :length 4 :allocated-length 4
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id game-options)
:scale #t
:param3 (game-option-menu game-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id graphic-options)
:scale #t
:param3 (game-option-menu graphic-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id sound-options)
:scale #t
:param3 (game-option-menu sound-settings)
)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *main-options-demo*, type (array game-option)
(define
*main-options-demo*
(new
'static
'boxed-array
:type game-option :length 4 :allocated-length 4
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id game-options)
:scale #t
:param3 (game-option-menu game-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id graphic-options)
:scale #t
:param3 (game-option-menu graphic-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id sound-options)
:scale #t
:param3 (game-option-menu sound-settings)
)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *main-options-demo-shared*, type (array game-option)
(define
*main-options-demo-shared*
(new
'static
'boxed-array
:type game-option :length 5 :allocated-length 5
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id game-options)
:scale #t
:param3 (game-option-menu game-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id graphic-options)
:scale #t
:param3 (game-option-menu graphic-settings)
)
(new 'static 'game-option
:option-type (game-option-type menu)
:name (game-text-id sound-options)
:scale #t
:param3 (game-option-menu sound-settings)
)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id exit-demo) :scale #t)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *game-options*, type (array game-option)
(define
*game-options*
(new
'static
'boxed-array
:type game-option :length 4 :allocated-length 4
(new 'static 'game-option :option-type (game-option-type on-off) :name (game-text-id vibrations) :scale #t)
(new 'static 'game-option :option-type (game-option-type on-off) :name (game-text-id play-hints) :scale #t)
(new 'static 'game-option :option-type (game-option-type language) :name (game-text-id language) :scale #t)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *game-options-japan*, type (array game-option)
(define
*game-options-japan*
(new
'static
'boxed-array
:type game-option :length 3 :allocated-length 3
(new 'static 'game-option :option-type (game-option-type on-off) :name (game-text-id vibrations) :scale #t)
(new 'static 'game-option :option-type (game-option-type on-off) :name (game-text-id play-hints) :scale #t)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *game-options-demo*, type (array game-option)
(define
*game-options-demo*
(new
'static
'boxed-array
:type game-option :length 3 :allocated-length 3
(new 'static 'game-option :option-type (game-option-type on-off) :name (game-text-id vibrations) :scale #t)
(new 'static 'game-option :option-type (game-option-type on-off) :name (game-text-id play-hints) :scale #t)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *graphic-options*, type (array game-option)
(define
*graphic-options*
(new
'static
'boxed-array
:type game-option :length 3 :allocated-length 3
(new 'static 'game-option
:option-type (game-option-type center-screen)
:name (game-text-id center-screen)
:scale #t
)
(new 'static 'game-option
:option-type (game-option-type aspect-ratio)
:name (game-text-id aspect-ratio)
:scale #t
)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *graphic-title-options-pal*, type (array game-option)
(define
*graphic-title-options-pal*
(new
'static
'boxed-array
:type game-option :length 4 :allocated-length 4
(new 'static 'game-option
:option-type (game-option-type center-screen)
:name (game-text-id center-screen)
:scale #t
)
(new 'static 'game-option
:option-type (game-option-type video-mode)
:name (game-text-id video-mode)
:scale #t
)
(new 'static 'game-option
:option-type (game-option-type aspect-ratio)
:name (game-text-id aspect-ratio)
:scale #t
)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *sound-options*, type (array game-option)
(define
*sound-options*
(new
'static
'boxed-array
:type game-option :length 4 :allocated-length 4
(new 'static 'game-option :name (game-text-id sfx-volume) :scale #t :param2 100.0)
(new 'static 'game-option :name (game-text-id music-volume) :scale #t :param2 100.0)
(new 'static 'game-option :name (game-text-id speech-volume) :scale #t :param2 100.0)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #t)
)
)
;; definition for symbol *yes-no-options*, type (array game-option)
(define *yes-no-options* (new
'static
'boxed-array
:type game-option :length 1 :allocated-length 1
(new 'static 'game-option :option-type (game-option-type yes-no) :scale #f)
)
)
;; definition for symbol *ok-options*, type (array game-option)
(define
*ok-options*
(new
'static
'boxed-array
:type game-option :length 1 :allocated-length 1
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id ok) :scale #f)
)
)
;; definition for symbol *load-options*, type (array game-option)
(define
*load-options*
(new
'static
'boxed-array
:type game-option :length 5 :allocated-length 5
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #f)
)
)
;; definition for symbol *save-options*, type (array game-option)
(define
*save-options*
(new
'static
'boxed-array
:type game-option :length 5 :allocated-length 5
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #f)
)
)
;; definition for symbol *save-options-title*, type (array game-option)
(define
*save-options-title*
(new
'static
'boxed-array
:type game-option :length 6 :allocated-length 6
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option :option-type (game-option-type button) :scale #f)
(new 'static 'game-option
:option-type (game-option-type button)
:name (game-text-id continue-without-saving)
:scale #f
)
(new 'static 'game-option :option-type (game-option-type button) :name (game-text-id back) :scale #f)
)
)
;; definition for symbol *options-remap*, type (array (array game-option))
(define *options-remap* (new 'static 'boxed-array :type (array game-option) :length 0 :allocated-length 35))
;; definition for symbol *level-task-data-remap*, type (array int32)
(define *level-task-data-remap* (new
'static
'boxed-array
:type int32 :length 23 :allocated-length 23
0
1
2
3
3
4
5
6
7
7
8
9
10
11
12
13
13
13
14
15
15
4
4
)
)
;; definition for symbol *language-name-remap*, type (array game-text-id)
(define *language-name-remap* (new
'static
'boxed-array
:type game-text-id :length 6 :allocated-length 6
(game-text-id english)
(game-text-id french)
(game-text-id german)
(game-text-id spanish)
(game-text-id italian)
(game-text-id japanese)
)
)
;; definition for symbol *level-task-data*, type (array level-tasks-info)
(define *level-task-data* (new
'static
'boxed-array
:type level-tasks-info :length 16 :allocated-length 16
(new 'static 'level-tasks-info
:level-name-id (game-text-id training-level-name)
:text-group-index 1
:nb-of-tasks 4
:buzzer-task-index 3
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task training-gimmie)
:task-name
(new 'static 'array game-text-id 4
(game-text-id training-gimmie-task-name)
(game-text-id training-gimmie-task-name)
(game-text-id training-gimmie-task-name)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task training-door)
:task-name
(new 'static 'array game-text-id 4
(game-text-id training-door-task-name)
(game-text-id training-door-task-name)
(game-text-id training-door-task-name)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task training-climb)
:task-name
(new 'static 'array game-text-id 4
(game-text-id training-climb-task-name)
(game-text-id training-climb-task-name)
(game-text-id training-climb-task-name)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task training-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id training-buzzer-task-name)
(game-text-id training-buzzer-task-name)
(game-text-id training-buzzer-task-name)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id village1-level-name)
:text-group-index 1
:nb-of-tasks 6
:buzzer-task-index 5
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task village1-mayor-money)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village1-mayor-money)
(game-text-id village1-mayor-money)
(game-text-id village1-mayor-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village1-uncle-money)
:task-name
(new 'static 'array game-text-id 4
(game-text-id vollage1-uncle-money)
(game-text-id vollage1-uncle-money)
(game-text-id vollage1-uncle-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village1-yakow)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village1-yakow-herd)
(game-text-id village1-yakow-herd)
(game-text-id village1-yakow-return)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village1-oracle-money1)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village1-oracle)
(game-text-id village1-oracle)
(game-text-id village1-oracle)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village1-oracle-money2)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village1-oracle)
(game-text-id village1-oracle)
(game-text-id village1-oracle)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village1-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-buzzer)
(game-text-id beach-buzzer)
(game-text-id beach-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id beach-level-name)
:text-group-index 1
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task beach-ecorocks)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-ecorocks)
(game-text-id beach-ecorocks)
(game-text-id beach-ecorocks)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task beach-flutflut)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-flutflut-push)
(game-text-id beach-flutflut-push)
(game-text-id beach-flutflut-meet)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task beach-pelican)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-pelican)
(game-text-id beach-pelican)
(game-text-id beach-pelican)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task beach-seagull)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-seagull)
(game-text-id beach-seagull)
(game-text-id beach-seagull-get)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task beach-cannon)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-cannon)
(game-text-id beach-cannon)
(game-text-id beach-cannon)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task beach-gimmie)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-gimmie)
(game-text-id beach-gimmie)
(game-text-id beach-gimmie)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task beach-sentinel)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-sentinel)
(game-text-id beach-sentinel)
(game-text-id beach-sentinel)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task beach-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-buzzer)
(game-text-id beach-buzzer)
(game-text-id beach-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id jungle-level-name)
:text-group-index 1
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task jungle-lurkerm)
:task-name
(new 'static 'array game-text-id 4
(game-text-id jungle-lurkerm-unblock)
(game-text-id jungle-lurkerm-connect)
(game-text-id jungle-lurkerm-return)
(game-text-id zero)
)
:text-index-when-resolved 1
)
(new 'static 'task-info-data
:task-id (game-task jungle-tower)
:task-name
(new 'static 'array game-text-id 4
(game-text-id jungle-tower)
(game-text-id jungle-tower)
(game-text-id jungle-tower)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task jungle-eggtop)
:task-name
(new 'static 'array game-text-id 4
(game-text-id jungle-eggtop)
(game-text-id jungle-eggtop)
(game-text-id jungle-eggtop)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task jungle-plant)
:task-name
(new 'static 'array game-text-id 4
(game-text-id jungle-plant)
(game-text-id jungle-plant)
(game-text-id jungle-plant)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task jungle-fishgame)
:task-name
(new 'static 'array game-text-id 4
(game-text-id jungle-fishgame)
(game-text-id jungle-fishgame)
(game-text-id jungle-fishgame)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task jungle-canyon-end)
:task-name
(new 'static 'array game-text-id 4
(game-text-id jungle-canyon-end)
(game-text-id jungle-canyon-end)
(game-text-id jungle-canyon-end)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task jungle-temple-door)
:task-name
(new 'static 'array game-text-id 4
(game-text-id jungle-temple-door)
(game-text-id jungle-temple-door)
(game-text-id jungle-temple-door)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task jungle-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-buzzer)
(game-text-id beach-buzzer)
(game-text-id beach-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id misty-level-name)
:text-group-index 1
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task misty-muse)
:task-name
(new 'static 'array game-text-id 4
(game-text-id misty-muse-catch)
(game-text-id misty-muse-catch)
(game-text-id misty-muse-return)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task misty-boat)
:task-name
(new 'static 'array game-text-id 4
(game-text-id misty-boat)
(game-text-id misty-boat)
(game-text-id misty-boat)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task misty-cannon)
:task-name
(new 'static 'array game-text-id 4
(game-text-id misty-cannon)
(game-text-id misty-cannon)
(game-text-id misty-cannon)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task misty-warehouse)
:task-name
(new 'static 'array game-text-id 4
(game-text-id misty-return-to-pool)
(game-text-id misty-return-to-pool)
(game-text-id misty-return-to-pool)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task misty-bike)
:task-name
(new 'static 'array game-text-id 4
(game-text-id misty-find-transpad)
(game-text-id misty-balloon-lurkers)
(game-text-id misty-find-transpad)
(game-text-id zero)
)
:text-index-when-resolved 1
)
(new 'static 'task-info-data
:task-id (game-task misty-bike-jump)
:task-name
(new 'static 'array game-text-id 4
(game-text-id misty-bike-jump)
(game-text-id misty-bike-jump)
(game-text-id misty-bike-jump)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task misty-eco-challenge)
:task-name
(new 'static 'array game-text-id 4
(game-text-id misty-eco-challenge)
(game-text-id misty-eco-challenge)
(game-text-id misty-eco-challenge)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task misty-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id beach-buzzer)
(game-text-id beach-buzzer)
(game-text-id beach-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id fire-canyon-level-name)
:text-group-index 5
:nb-of-tasks 2
:buzzer-task-index 1
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task firecanyon-end)
:task-name
(new 'static 'array game-text-id 4
(game-text-id fire-canyon-end)
(game-text-id fire-canyon-end)
(game-text-id fire-canyon-end)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task firecanyon-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id fire-canyon-buzzer)
(game-text-id fire-canyon-buzzer)
(game-text-id fire-canyon-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id village2-level-name)
:text-group-index 2
:nb-of-tasks 6
:buzzer-task-index 5
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task village2-gambler-money)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village2-gambler-money)
(game-text-id village2-gambler-money)
(game-text-id village2-gambler-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village2-geologist-money)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village2-geologist-money)
(game-text-id village2-geologist-money)
(game-text-id village2-geologist-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village2-warrior-money)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village2-warrior-money)
(game-text-id village2-warrior-money)
(game-text-id village2-warrior-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village2-oracle-money1)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village2-oracle-money)
(game-text-id village2-oracle-money)
(game-text-id village2-oracle-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village2-oracle-money2)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village2-oracle-money)
(game-text-id village2-oracle-money)
(game-text-id village2-oracle-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village2-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id unknown-buzzers)
(game-text-id unknown-buzzers)
(game-text-id unknown-buzzers)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id sunken-level-name)
:text-group-index 2
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task sunken-room)
:task-name
(new 'static 'array game-text-id 4
(game-text-id sunken-elevator-raise)
(game-text-id sunken-elevator-raise)
(game-text-id sunken-elevator-get-to-roof)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task sunken-pipe)
:task-name
(new 'static 'array game-text-id 4
(game-text-id sunken-pipe)
(game-text-id sunken-pipe)
(game-text-id sunken-pipe)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task sunken-slide)
:task-name
(new 'static 'array game-text-id 4
(game-text-id sunken-bottom)
(game-text-id sunken-bottom)
(game-text-id sunken-bottom)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task sunken-sharks)
:task-name
(new 'static 'array game-text-id 4
(game-text-id sunken-pool)
(game-text-id sunken-pool)
(game-text-id sunken-pool)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task sunken-platforms)
:task-name
(new 'static 'array game-text-id 4
(game-text-id sunken-platforms)
(game-text-id sunken-platforms)
(game-text-id sunken-platforms)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task sunken-top-of-helix)
:task-name
(new 'static 'array game-text-id 4
(game-text-id sunken-climb-tube)
(game-text-id sunken-climb-tube)
(game-text-id sunken-climb-tube)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task sunken-spinning-room)
:task-name
(new 'static 'array game-text-id 4
(game-text-id reach-center)
(game-text-id reach-center)
(game-text-id reach-center)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task sunken-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id unknown-buzzers)
(game-text-id unknown-buzzers)
(game-text-id unknown-buzzers)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id swamp-level-name)
:text-group-index 2
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task swamp-flutflut)
:task-name
(new 'static 'array game-text-id 4
(game-text-id swamp-flutflut)
(game-text-id swamp-flutflut)
(game-text-id swamp-flutflut)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task swamp-billy)
:task-name
(new 'static 'array game-text-id 4
(game-text-id swamp-billy)
(game-text-id swamp-billy)
(game-text-id swamp-billy)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task swamp-battle)
:task-name
(new 'static 'array game-text-id 4
(game-text-id swamp-battle)
(game-text-id swamp-battle)
(game-text-id swamp-battle)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task swamp-tether-4)
:task-name
(new 'static 'array game-text-id 4
(game-text-id swamp-tether)
(game-text-id swamp-tether)
(game-text-id swamp-tether)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task swamp-tether-1)
:task-name
(new 'static 'array game-text-id 4
(game-text-id swamp-tether)
(game-text-id swamp-tether)
(game-text-id swamp-tether)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task swamp-tether-2)
:task-name
(new 'static 'array game-text-id 4
(game-text-id swamp-tether)
(game-text-id swamp-tether)
(game-text-id swamp-tether)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task swamp-tether-3)
:task-name
(new 'static 'array game-text-id 4
(game-text-id swamp-tether)
(game-text-id swamp-tether)
(game-text-id swamp-tether)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task swamp-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id unknown-buzzers)
(game-text-id unknown-buzzers)
(game-text-id unknown-buzzers)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id rolling-level-name)
:text-group-index 2
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task rolling-moles)
:task-name
(new 'static 'array game-text-id 4
(game-text-id rolling-moles)
(game-text-id rolling-moles)
(game-text-id rolling-moles-return)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task rolling-robbers)
:task-name
(new 'static 'array game-text-id 4
(game-text-id rolling-robbers)
(game-text-id rolling-robbers)
(game-text-id rolling-robbers)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task rolling-race)
:task-name
(new 'static 'array game-text-id 4
(game-text-id rolling-race)
(game-text-id rolling-race)
(game-text-id rolling-race-return)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task rolling-lake)
:task-name
(new 'static 'array game-text-id 4
(game-text-id rolling-lake)
(game-text-id rolling-lake)
(game-text-id rolling-lake)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task rolling-plants)
:task-name
(new 'static 'array game-text-id 4
(game-text-id rolling-plants)
(game-text-id rolling-plants)
(game-text-id rolling-plants)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task rolling-ring-chase-1)
:task-name
(new 'static 'array game-text-id 4
(game-text-id rolling-ring-chase-1)
(game-text-id rolling-ring-chase-1)
(game-text-id rolling-ring-chase-1)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task rolling-ring-chase-2)
:task-name
(new 'static 'array game-text-id 4
(game-text-id rolling-ring-chase-2)
(game-text-id rolling-ring-chase-2)
(game-text-id rolling-ring-chase-2)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task rolling-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id unknown-buzzers)
(game-text-id unknown-buzzers)
(game-text-id unknown-buzzers)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id ogre-level-name)
:text-group-index 6
:nb-of-tasks 4
:buzzer-task-index 3
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task ogre-boss)
:task-name
(new 'static 'array game-text-id 4
(game-text-id ogre-boss)
(game-text-id ogre-boss)
(game-text-id ogre-boss)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task ogre-end)
:task-name
(new 'static 'array game-text-id 4
(game-text-id ogre-end)
(game-text-id ogre-end)
(game-text-id ogre-end)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task ogre-secret)
:task-name
(new 'static 'array game-text-id 4
(game-text-id hidden-power-cell)
(game-text-id hidden-power-cell)
(game-text-id hidden-power-cell)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task ogre-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id ogre-buzzer)
(game-text-id ogre-buzzer)
(game-text-id ogre-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id village3-level-name)
:text-group-index 3
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task village3-miner-money1)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-miner-money)
(game-text-id village3-miner-money)
(game-text-id village3-miner-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village3-miner-money2)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-miner-money)
(game-text-id village3-miner-money)
(game-text-id village3-miner-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village3-miner-money3)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-miner-money)
(game-text-id village3-miner-money)
(game-text-id village3-miner-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village3-miner-money4)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-miner-money)
(game-text-id village3-miner-money)
(game-text-id village3-miner-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village3-oracle-money1)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-oracle-money)
(game-text-id village3-oracle-money)
(game-text-id village3-oracle-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village3-oracle-money2)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-oracle-money)
(game-text-id village3-oracle-money)
(game-text-id village3-oracle-money)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village3-extra1)
:task-name
(new 'static 'array game-text-id 4
(game-text-id hidden-power-cell)
(game-text-id hidden-power-cell)
(game-text-id hidden-power-cell)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task village3-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-buzzer)
(game-text-id village3-buzzer)
(game-text-id village3-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id snowy-level-name)
:text-group-index 3
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task snow-eggtop)
:task-name
(new 'static 'array game-text-id 4
(game-text-id snow-eggtop)
(game-text-id snow-eggtop)
(game-text-id snow-eggtop)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task snow-ram)
:task-name
(new 'static 'array game-text-id 4
(game-text-id snow-ram-3-left)
(game-text-id snow-ram-2-left)
(game-text-id snow-ram-1-left)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task snow-bumpers)
:task-name
(new 'static 'array game-text-id 4
(game-text-id snow-bumpers)
(game-text-id snow-bumpers)
(game-text-id snow-bumpers)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task snow-cage)
:task-name
(new 'static 'array game-text-id 4
(game-text-id snow-frozen-crate)
(game-text-id snow-frozen-crate)
(game-text-id snow-frozen-crate)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task snow-fort)
:task-name
(new 'static 'array game-text-id 4
(game-text-id snow-fort)
(game-text-id snow-fort)
(game-text-id snow-fort)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task snow-ball)
:task-name
(new 'static 'array game-text-id 4
(game-text-id snow-open-door)
(game-text-id snow-open-door)
(game-text-id snow-open-door)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task snow-bunnies)
:task-name
(new 'static 'array game-text-id 4
(game-text-id snow-bunnies)
(game-text-id snow-bunnies)
(game-text-id snow-bunnies)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task snow-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-buzzer)
(game-text-id village3-buzzer)
(game-text-id village3-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id cave-level-name)
:text-group-index 3
:nb-of-tasks 8
:buzzer-task-index 7
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task cave-gnawers)
:task-name
(new 'static 'array game-text-id 4
(game-text-id cave-gnawers)
(game-text-id cave-gnawers)
(game-text-id cave-gnawers)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task cave-dark-crystals)
:task-name
(new 'static 'array game-text-id 4
(game-text-id cave-dark-crystals)
(game-text-id cave-dark-crystals)
(game-text-id cave-dark-crystals)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task cave-dark-climb)
:task-name
(new 'static 'array game-text-id 4
(game-text-id cave-dark-climb)
(game-text-id cave-dark-climb)
(game-text-id cave-dark-climb)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task cave-robot-climb)
:task-name
(new 'static 'array game-text-id 4
(game-text-id cave-robot-climb)
(game-text-id cave-robot-climb)
(game-text-id cave-robot-climb)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task cave-swing-poles)
:task-name
(new 'static 'array game-text-id 4
(game-text-id cave-swing-poles)
(game-text-id cave-swing-poles)
(game-text-id cave-swing-poles)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task cave-spider-tunnel)
:task-name
(new 'static 'array game-text-id 4
(game-text-id cave-spider-tunnel)
(game-text-id cave-spider-tunnel)
(game-text-id cave-spider-tunnel)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task cave-platforms)
:task-name
(new 'static 'array game-text-id 4
(game-text-id cave-platforms)
(game-text-id cave-platforms)
(game-text-id cave-platforms)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task cave-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id village3-buzzer)
(game-text-id village3-buzzer)
(game-text-id village3-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id lavatube-level-name)
:text-group-index 3
:nb-of-tasks 2
:buzzer-task-index 1
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task lavatube-end)
:task-name
(new 'static 'array game-text-id 4
(game-text-id lavatube-end)
(game-text-id lavatube-end)
(game-text-id lavatube-end)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task lavatube-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id lavatube-buzzer)
(game-text-id lavatube-buzzer)
(game-text-id lavatube-buzzer)
(game-text-id zero)
)
)
)
)
(new 'static 'level-tasks-info
:level-name-id (game-text-id citadel-level-name)
:text-group-index 4
:nb-of-tasks 5
:buzzer-task-index 4
:task-info
(new 'static 'array task-info-data 8
(new 'static 'task-info-data
:task-id (game-task citadel-sage-blue)
:task-name
(new 'static 'array game-text-id 4
(game-text-id citadel-sage-blue)
(game-text-id citadel-sage-blue)
(game-text-id citadel-sage-blue)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task citadel-sage-red)
:task-name
(new 'static 'array game-text-id 4
(game-text-id citadel-sage-red)
(game-text-id citadel-sage-red)
(game-text-id citadel-sage-red)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task citadel-sage-yellow)
:task-name
(new 'static 'array game-text-id 4
(game-text-id citadel-sage-yellow)
(game-text-id citadel-sage-yellow)
(game-text-id citadel-sage-yellow)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task citadel-sage-green)
:task-name
(new 'static 'array game-text-id 4
(game-text-id citadel-sage-green)
(game-text-id citadel-sage-green)
(game-text-id citadel-sage-green)
(game-text-id zero)
)
)
(new 'static 'task-info-data
:task-id (game-task citadel-buzzer)
:task-name
(new 'static 'array game-text-id 4
(game-text-id citadel-buzzer)
(game-text-id citadel-buzzer)
(game-text-id citadel-buzzer)
(game-text-id zero)
)
)
)
)
)
)
;; definition for symbol *task-egg-starting-x*, type (array int32)
(define
*task-egg-starting-x*
(new 'static 'boxed-array :type int32 :length 9 :allocated-length 9 #xda #xc2 #xab #x93 #x7c 100 77 53 30)
)
;; definition for symbol *game-counts*, type game-count-info
(define *game-counts* (the-as game-count-info #f))