Organize the engine/ directory, take 2
Renamed `game` to `games` and `menu` to `menus`. Moved some functions from `engine/routines/` to their fitting subdirectories. Made two new subdirectories: * engine/rtc: Contains all RTC-related things. Menus, hardware, misc functions. * engine/items: Contains all item-related things. Pack, item effects, other item handlers.
This commit is contained in:
mid-kid
361
engine/menus/main_menu.asm
Executable file
361
engine/menus/main_menu.asm
Executable file
@@ -0,0 +1,361 @@
|
||||
GFX_49c0c: ; 49c0c
|
||||
INCBIN "gfx/unknown/049c0c.2bpp"
|
||||
; 49cdc
|
||||
|
||||
MainMenu: ; 49cdc
|
||||
xor a
|
||||
ld [wDisableTextAcceleration], a
|
||||
call Function49ed0
|
||||
ld b, SCGB_DIPLOMA
|
||||
call GetSGBLayout
|
||||
call SetPalettes
|
||||
ld hl, wGameTimerPause
|
||||
res GAMETIMERPAUSE_TIMER_PAUSED_F, [hl]
|
||||
call MainMenu_GetWhichMenu
|
||||
ld [wWhichIndexSet], a
|
||||
call MainMenu_PrintCurrentTimeAndDay
|
||||
ld hl, .MenuHeader
|
||||
call LoadMenuHeader
|
||||
call MainMenuJoypadLoop
|
||||
call CloseWindow
|
||||
jr c, .quit
|
||||
call ClearTileMap
|
||||
ld a, [wMenuSelection]
|
||||
ld hl, .Jumptable
|
||||
rst JumpTable
|
||||
jr MainMenu
|
||||
|
||||
.quit
|
||||
ret
|
||||
; 49d14
|
||||
|
||||
.MenuHeader: ; 49d14
|
||||
db MENU_BACKUP_TILES ; flags
|
||||
menu_coords 0, 0, 16, 7
|
||||
dw .MenuData
|
||||
db 1 ; default option
|
||||
; 49d1c
|
||||
|
||||
.MenuData: ; 49d1c
|
||||
db STATICMENU_CURSOR ; flags
|
||||
db 0 ; items
|
||||
dw MainMenuItems
|
||||
dw PlaceMenuStrings
|
||||
dw .Strings
|
||||
; 49d20
|
||||
|
||||
.Strings: ; 49d24
|
||||
db "CONTINUE@"
|
||||
db "NEW GAME@"
|
||||
db "OPTION@"
|
||||
db "MYSTERY GIFT@"
|
||||
db "MOBILE@"
|
||||
db "MOBILE STUDIUM@"
|
||||
|
||||
.Jumptable: ; 0x49d60
|
||||
dw MainMenu_Continue
|
||||
dw MainMenu_NewGame
|
||||
dw MainMenu_Options
|
||||
dw MainMenu_MysteryGift
|
||||
dw MainMenu_Mobile
|
||||
dw MainMenu_MobileStudium
|
||||
; 0x49d6c
|
||||
|
||||
CONTINUE EQU 0
|
||||
NEW_GAME EQU 1
|
||||
OPTION EQU 2
|
||||
MYSTERY_GIFT EQU 3
|
||||
MOBILE EQU 4
|
||||
MOBILE_STUDIUM EQU 5
|
||||
|
||||
MainMenuItems:
|
||||
|
||||
NewGameMenu: ; 0x49d6c
|
||||
db 2
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db -1
|
||||
|
||||
ContinueMenu: ; 0x49d70
|
||||
db 3
|
||||
db CONTINUE
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db -1
|
||||
|
||||
MobileMysteryMenu: ; 0x49d75
|
||||
db 5
|
||||
db CONTINUE
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db MYSTERY_GIFT
|
||||
db MOBILE
|
||||
db -1
|
||||
|
||||
MobileMenu: ; 0x49d7c
|
||||
db 4
|
||||
db CONTINUE
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db MOBILE
|
||||
db -1
|
||||
|
||||
MobileStudiumMenu: ; 0x49d82
|
||||
db 5
|
||||
db CONTINUE
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db MOBILE
|
||||
db MOBILE_STUDIUM
|
||||
db -1
|
||||
|
||||
MysteryMobileStudiumMenu: ; 0x49d89
|
||||
db 6
|
||||
db CONTINUE
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db MYSTERY_GIFT
|
||||
db MOBILE
|
||||
db MOBILE_STUDIUM
|
||||
db -1
|
||||
|
||||
MysteryMenu: ; 0x49d91
|
||||
db 4
|
||||
db CONTINUE
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db MYSTERY_GIFT
|
||||
db -1
|
||||
|
||||
MysteryStudiumMenu: ; 0x49d97
|
||||
db 5
|
||||
db CONTINUE
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db MYSTERY_GIFT
|
||||
db MOBILE_STUDIUM
|
||||
db -1
|
||||
|
||||
StudiumMenu: ; 0x49d9e
|
||||
db 4
|
||||
db CONTINUE
|
||||
db NEW_GAME
|
||||
db OPTION
|
||||
db MOBILE_STUDIUM
|
||||
db -1
|
||||
|
||||
|
||||
MainMenu_GetWhichMenu: ; 49da4
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
ld a, [wSaveFileExists]
|
||||
and a
|
||||
jr nz, .next
|
||||
ld a, $0 ; New Game
|
||||
ret
|
||||
|
||||
.next
|
||||
ld a, [hCGB]
|
||||
cp $1
|
||||
ld a, $1
|
||||
ret nz
|
||||
ld a, BANK(sNumDailyMysteryGiftPartnerIDs)
|
||||
call GetSRAMBank
|
||||
ld a, [sNumDailyMysteryGiftPartnerIDs]
|
||||
cp -1
|
||||
call CloseSRAM
|
||||
jr nz, .mystery_gift
|
||||
; This check makes no difference.
|
||||
ld a, [wStatusFlags]
|
||||
bit STATUSFLAGS_MAIN_MENU_MOBILE_CHOICES_F, a
|
||||
ld a, $1 ; Continue
|
||||
jr z, .ok
|
||||
jr .ok
|
||||
|
||||
.ok
|
||||
jr .ok2
|
||||
|
||||
.ok2
|
||||
ld a, $1 ; Continue
|
||||
ret
|
||||
|
||||
.mystery_gift
|
||||
; This check makes no difference.
|
||||
ld a, [wStatusFlags]
|
||||
bit STATUSFLAGS_MAIN_MENU_MOBILE_CHOICES_F, a
|
||||
jr z, .ok3
|
||||
jr .ok3
|
||||
|
||||
.ok3
|
||||
jr .ok4
|
||||
|
||||
.ok4
|
||||
ld a, $6 ; Mystery Gift
|
||||
ret
|
||||
; 49de4
|
||||
|
||||
MainMenuJoypadLoop: ; 49de4
|
||||
call SetUpMenu
|
||||
.loop
|
||||
call MainMenu_PrintCurrentTimeAndDay
|
||||
ld a, [w2DMenuFlags1]
|
||||
set 5, a
|
||||
ld [w2DMenuFlags1], a
|
||||
call GetScrollingMenuJoypad
|
||||
ld a, [wMenuJoypad]
|
||||
cp B_BUTTON
|
||||
jr z, .b_button
|
||||
cp A_BUTTON
|
||||
jr z, .a_button
|
||||
jr .loop
|
||||
|
||||
.a_button
|
||||
call PlayClickSFX
|
||||
and a
|
||||
ret
|
||||
|
||||
.b_button
|
||||
scf
|
||||
ret
|
||||
; 49e09
|
||||
|
||||
MainMenu_PrintCurrentTimeAndDay: ; 49e09
|
||||
ld a, [wSaveFileExists]
|
||||
and a
|
||||
ret z
|
||||
xor a
|
||||
ld [hBGMapMode], a
|
||||
call .PlaceBox
|
||||
ld hl, wOptions
|
||||
ld a, [hl]
|
||||
push af
|
||||
set NO_TEXT_SCROLL, [hl]
|
||||
call .PlaceTime
|
||||
pop af
|
||||
ld [wOptions], a
|
||||
ld a, $1
|
||||
ld [hBGMapMode], a
|
||||
ret
|
||||
; 49e27
|
||||
|
||||
|
||||
.PlaceBox: ; 49e27
|
||||
call CheckRTCStatus
|
||||
and $80
|
||||
jr nz, .TimeFail
|
||||
hlcoord 0, 14
|
||||
ld b, 2
|
||||
ld c, 18
|
||||
call TextBox
|
||||
ret
|
||||
|
||||
.TimeFail:
|
||||
call SpeechTextBox
|
||||
ret
|
||||
; 49e3d
|
||||
|
||||
|
||||
.PlaceTime: ; 49e3d
|
||||
ld a, [wSaveFileExists]
|
||||
and a
|
||||
ret z
|
||||
call CheckRTCStatus
|
||||
and $80
|
||||
jp nz, .PrintTimeNotSet
|
||||
call UpdateTime
|
||||
call GetWeekday
|
||||
ld b, a
|
||||
decoord 1, 15
|
||||
call .PlaceCurrentDay
|
||||
decoord 4, 16
|
||||
ld a, [hHours]
|
||||
ld c, a
|
||||
farcall PrintHour
|
||||
ld [hl], ":"
|
||||
inc hl
|
||||
ld de, hMinutes
|
||||
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
|
||||
call PrintNum
|
||||
ret
|
||||
|
||||
.min
|
||||
; unused
|
||||
db "min.@"
|
||||
; 49e75
|
||||
|
||||
.PrintTimeNotSet: ; 49e75
|
||||
hlcoord 1, 14
|
||||
ld de, .TimeNotSet
|
||||
call PlaceString
|
||||
ret
|
||||
; 49e7f
|
||||
|
||||
.TimeNotSet: ; 49e7f
|
||||
db "TIME NOT SET@"
|
||||
; 49e8c
|
||||
|
||||
.UnusedText: ; 49e8c
|
||||
; Clock time unknown
|
||||
text_jump UnknownText_0x1c5182
|
||||
db "@"
|
||||
; 49e91
|
||||
|
||||
.PlaceCurrentDay: ; 49e91
|
||||
push de
|
||||
ld hl, .Days
|
||||
ld a, b
|
||||
call GetNthString
|
||||
ld d, h
|
||||
ld e, l
|
||||
pop hl
|
||||
call PlaceString
|
||||
ld h, b
|
||||
ld l, c
|
||||
ld de, .Day
|
||||
call PlaceString
|
||||
ret
|
||||
; 49ea8
|
||||
|
||||
.Days:
|
||||
db "SUN@"
|
||||
db "MON@"
|
||||
db "TUES@"
|
||||
db "WEDNES@"
|
||||
db "THURS@"
|
||||
db "FRI@"
|
||||
db "SATUR@"
|
||||
.Day:
|
||||
db "DAY@"
|
||||
; 49ed0
|
||||
|
||||
Function49ed0: ; 49ed0
|
||||
xor a
|
||||
ld [hMapAnims], a
|
||||
call ClearTileMap
|
||||
call LoadFontsExtra
|
||||
call LoadStandardFont
|
||||
call ClearWindowData
|
||||
ret
|
||||
; 49ee0
|
||||
|
||||
|
||||
MainMenu_NewGame: ; 49ee0
|
||||
farcall NewGame
|
||||
ret
|
||||
; 49ee7
|
||||
|
||||
MainMenu_Options: ; 49ee7
|
||||
farcall OptionsMenu
|
||||
ret
|
||||
; 49eee
|
||||
|
||||
MainMenu_Continue: ; 49eee
|
||||
farcall Continue
|
||||
ret
|
||||
; 49ef5
|
||||
|
||||
MainMenu_MysteryGift: ; 49ef5
|
||||
farcall MysteryGift
|
||||
ret
|
||||
; 49efc
|
||||
Reference in New Issue
Block a user