mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-10-03 07:06:52 -04:00
IIMarckus
86 lines
1.2 KiB
NASM
86 lines
1.2 KiB
NASM
INCLUDE "constants.asm"
|
|
|
|
SECTION "Main Menu Definition", ROMX[$53cc], BANK[$01]
|
|
|
|
MainMenu:
|
|
ld hl, $d4a9
|
|
res 0, [hl]
|
|
call $0e2a
|
|
call $363c
|
|
call $0d1a
|
|
call $0d0a
|
|
call $1f9e
|
|
call $5388
|
|
ld hl, $ce60
|
|
bit 0, [hl]
|
|
jr nz, .skip1
|
|
xor a ; new game
|
|
jr .next1
|
|
.skip1
|
|
ld a, 1 ; continue
|
|
ld a, 0 ; the check above is wrong somehow:
|
|
; bit 0 of $ce60 is set even when there's no saved game.
|
|
.next1
|
|
ld [$cbf7],a
|
|
ld hl, MainMenuHeader
|
|
call $1d49
|
|
call $1e58
|
|
call $1c4c
|
|
jp c, $5dae
|
|
ld hl, MainMenuJumptable
|
|
ld a, [$cbf5]
|
|
jp $35cd
|
|
|
|
MainMenuHeader:
|
|
db $40
|
|
menu_coords 0, 0, 14, 7
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData: ; 01:5420
|
|
db $80
|
|
db 0 ; items
|
|
dw MainMenuItems
|
|
db $8a, $1f
|
|
dw .Strings
|
|
|
|
.Strings: ; 01:5428
|
|
db "CONTINUE@"
|
|
db "NEW GAME@"
|
|
db "OPTIONS@"
|
|
db "PLAY POKéMON@"
|
|
db "TIME@"
|
|
db "@@@"
|
|
|
|
MainMenuJumptable: ; 01:5457
|
|
dw $547c
|
|
dw $555c
|
|
dw $5cf3
|
|
dw $555c
|
|
dw $5473
|
|
|
|
CONTINUE EQU 0
|
|
NEW_GAME EQU 1
|
|
OPTION EQU 2
|
|
PLAY_POKEMON EQU 3
|
|
SET_TIME EQU 4
|
|
|
|
MainMenuItems:
|
|
|
|
NewGameMenu:
|
|
db 4
|
|
db NEW_GAME
|
|
db PLAY_POKEMON
|
|
db OPTION
|
|
db SET_TIME
|
|
db -1
|
|
|
|
ContinueMenu:
|
|
db 5
|
|
db CONTINUE
|
|
db NEW_GAME
|
|
db PLAY_POKEMON
|
|
db OPTION
|
|
db SET_TIME
|
|
db -1
|