mirror of
https://github.com/thornAvery/jep-hack.git
synced 2025-09-17 02:30:50 +12:00
2a14a32533
Making Stereo the default was weirdly taxing. I don't know how or where this is usually initialised, I searched for like 2 hours and came up empty-handed...so I made a virus in the intro sequence instead. Tested with an empty save file. Fast text was just a case of adding it to defaultoptions. I have no idea how or why this worked, as it only seems to be called when save files corrupt, and adding the stereo bit there didn't let it work in the same way. Oh well...
385 lines
6.4 KiB
NASM
385 lines
6.4 KiB
NASM
; MainMenuItems indexes
|
|
const_def
|
|
const MAINMENU_NEW_GAME ; 0
|
|
const MAINMENU_CONTINUE ; 1
|
|
const MAINMENU_MOBILE_MYSTERY ; 2
|
|
const MAINMENU_MOBILE ; 3
|
|
const MAINMENU_MOBILE_STUDIUM ; 4
|
|
const MAINMENU_MYSTERY_MOBILE_STUDIUM ; 5
|
|
const MAINMENU_MYSTERY ; 6
|
|
const MAINMENU_MYSTERY_STUDIUM ; 7
|
|
const MAINMENU_STUDIUM ; 8
|
|
|
|
; MainMenu.Strings and MainMenu.Jumptable indexes
|
|
const_def
|
|
const MAINMENUITEM_CONTINUE ; 0
|
|
const MAINMENUITEM_NEW_GAME ; 1
|
|
const MAINMENUITEM_OPTION ; 2
|
|
const MAINMENUITEM_MYSTERY_GIFT ; 3
|
|
const MAINMENUITEM_MOBILE ; 4
|
|
const MAINMENUITEM_MOBILE_STUDIUM ; 5
|
|
const MAINMENUITEM_DEBUG_ROOM ; 6
|
|
|
|
MobileMenuGFX:
|
|
INCBIN "gfx/mobile/mobile_menu.2bpp"
|
|
|
|
MainMenu:
|
|
.loop
|
|
xor a
|
|
ld [wDisableTextAcceleration], a
|
|
call ClearTilemapEtc
|
|
ld b, SCGB_DIPLOMA
|
|
call GetSGBLayout
|
|
call SetPalettes
|
|
ld hl, wGameTimerPaused
|
|
res GAME_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 .loop
|
|
|
|
.quit
|
|
ret
|
|
|
|
.MenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 0, 0, 16, 7
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR ; flags
|
|
db 0 ; items
|
|
dw MainMenuItems
|
|
dw PlaceMenuStrings
|
|
dw .Strings
|
|
|
|
.Strings:
|
|
; entries correspond to MAINMENUITEM_* constants
|
|
db "CONTINUE@"
|
|
db "NEW GAME@"
|
|
db "OPTION@"
|
|
db "MYSTERY GIFT@"
|
|
db "MOBILE@"
|
|
db "MOBILE STADIUM@" ; as far as I know this will never be used
|
|
if DEF(_DEBUG)
|
|
db "DEBUG ROOM@"
|
|
endc
|
|
|
|
.Jumptable:
|
|
; entries correspond to MAINMENUITEM_* constants
|
|
dw MainMenu_Continue
|
|
dw MainMenu_NewGame
|
|
dw MainMenu_Option
|
|
dw MainMenu_MysteryGift
|
|
dw MainMenu_Mobile
|
|
dw MainMenu_MobileStudium
|
|
if DEF(_DEBUG)
|
|
dw MainMenu_DebugRoom
|
|
endc
|
|
|
|
MainMenuItems:
|
|
; entries correspond to MAINMENU_* constants
|
|
|
|
; MAINMENU_NEW_GAME
|
|
db 2
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
db -1
|
|
|
|
; MAINMENU_CONTINUE
|
|
db 3 + DEF(_DEBUG)
|
|
db MAINMENUITEM_CONTINUE
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
if DEF(_DEBUG)
|
|
db MAINMENUITEM_DEBUG_ROOM
|
|
endc
|
|
db -1
|
|
|
|
; MAINMENU_MOBILE_MYSTERY
|
|
db 5 + DEF(_DEBUG)
|
|
db MAINMENUITEM_CONTINUE
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
db MAINMENUITEM_MYSTERY_GIFT
|
|
db MAINMENUITEM_MOBILE
|
|
if DEF(_DEBUG)
|
|
db MAINMENUITEM_DEBUG_ROOM
|
|
endc
|
|
db -1
|
|
|
|
; MAINMENU_MOBILE
|
|
db 4 + DEF(_DEBUG)
|
|
db MAINMENUITEM_CONTINUE
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
db MAINMENUITEM_MOBILE
|
|
if DEF(_DEBUG)
|
|
db MAINMENUITEM_DEBUG_ROOM
|
|
endc
|
|
db -1
|
|
|
|
; MAINMENU_MOBILE_STUDIUM
|
|
db 5 + DEF(_DEBUG)
|
|
db MAINMENUITEM_CONTINUE
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
db MAINMENUITEM_MOBILE
|
|
db MAINMENUITEM_MOBILE_STUDIUM
|
|
if DEF(_DEBUG)
|
|
db MAINMENUITEM_DEBUG_ROOM
|
|
endc
|
|
db -1
|
|
|
|
; MAINMENU_MYSTERY_MOBILE_STUDIUM
|
|
db 6 + DEF(_DEBUG)
|
|
db MAINMENUITEM_CONTINUE
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
db MAINMENUITEM_MYSTERY_GIFT
|
|
db MAINMENUITEM_MOBILE
|
|
db MAINMENUITEM_MOBILE_STUDIUM
|
|
if DEF(_DEBUG)
|
|
db MAINMENUITEM_DEBUG_ROOM
|
|
endc
|
|
db -1
|
|
|
|
; MAINMENU_MYSTERY
|
|
db 4 + DEF(_DEBUG)
|
|
db MAINMENUITEM_CONTINUE
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
db MAINMENUITEM_MYSTERY_GIFT
|
|
if DEF(_DEBUG)
|
|
db MAINMENUITEM_DEBUG_ROOM
|
|
endc
|
|
db -1
|
|
|
|
; MAINMENU_MYSTERY_STUDIUM
|
|
db 5 + DEF(_DEBUG)
|
|
db MAINMENUITEM_CONTINUE
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
db MAINMENUITEM_MYSTERY_GIFT
|
|
db MAINMENUITEM_MOBILE_STUDIUM
|
|
if DEF(_DEBUG)
|
|
db MAINMENUITEM_DEBUG_ROOM
|
|
endc
|
|
db -1
|
|
|
|
; MAINMENU_STUDIUM
|
|
db 4 + DEF(_DEBUG)
|
|
db MAINMENUITEM_CONTINUE
|
|
db MAINMENUITEM_NEW_GAME
|
|
db MAINMENUITEM_OPTION
|
|
db MAINMENUITEM_MOBILE_STUDIUM
|
|
if DEF(_DEBUG)
|
|
db MAINMENUITEM_DEBUG_ROOM
|
|
endc
|
|
db -1
|
|
|
|
MainMenu_GetWhichMenu:
|
|
nop
|
|
nop
|
|
nop
|
|
ld a, [wSaveFileExists]
|
|
and a
|
|
jr nz, .next
|
|
ld a, MAINMENU_NEW_GAME
|
|
ret
|
|
|
|
.next
|
|
ldh a, [hCGB]
|
|
cp TRUE
|
|
ld a, MAINMENU_CONTINUE
|
|
ret nz
|
|
ld a, BANK(sNumDailyMysteryGiftPartnerIDs)
|
|
call OpenSRAM
|
|
ld a, [sNumDailyMysteryGiftPartnerIDs]
|
|
cp -1 ; locked?
|
|
call CloseSRAM
|
|
jr nz, .mystery_gift
|
|
; This check makes no difference.
|
|
ld a, [wStatusFlags]
|
|
bit STATUSFLAGS_MAIN_MENU_MOBILE_CHOICES_F, a
|
|
ld a, MAINMENU_CONTINUE
|
|
jr z, .ok
|
|
jr .ok
|
|
|
|
.ok
|
|
jr .ok2
|
|
|
|
.ok2
|
|
ld a, MAINMENU_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, MAINMENU_MYSTERY
|
|
ret
|
|
|
|
MainMenuJoypadLoop:
|
|
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
|
|
|
|
MainMenu_PrintCurrentTimeAndDay:
|
|
ld a, [wSaveFileExists]
|
|
and a
|
|
ret z
|
|
xor a
|
|
ldh [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
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
.PlaceBox:
|
|
call CheckRTCStatus
|
|
and %10000000 ; Day count exceeded 16383
|
|
jr nz, .TimeFail
|
|
hlcoord 0, 14
|
|
ld b, 2
|
|
ld c, 18
|
|
call Textbox
|
|
ret
|
|
|
|
.TimeFail:
|
|
call SpeechTextbox
|
|
ret
|
|
|
|
.PlaceTime:
|
|
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 .PrintDayOfWeek
|
|
decoord 4, 16
|
|
ldh a, [hHours]
|
|
ld c, a
|
|
farcall PrintHour
|
|
ld [hl], ":"
|
|
inc hl
|
|
ld de, hMinutes
|
|
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
|
|
call PrintNum
|
|
ret
|
|
|
|
.minString: ; unreferenced
|
|
db "min.@"
|
|
|
|
.PrintTimeNotSet:
|
|
hlcoord 1, 14
|
|
ld de, .TimeNotSetString
|
|
call PlaceString
|
|
ret
|
|
|
|
.TimeNotSetString:
|
|
db "TIME NOT SET@"
|
|
|
|
.MainMenuTimeUnknownText: ; unreferenced
|
|
text_far _MainMenuTimeUnknownText
|
|
text_end
|
|
|
|
.PrintDayOfWeek:
|
|
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
|
|
|
|
.Days:
|
|
db "SUN@"
|
|
db "MON@"
|
|
db "TUES@"
|
|
db "WEDNES@"
|
|
db "THURS@"
|
|
db "FRI@"
|
|
db "SATUR@"
|
|
.Day:
|
|
db "DAY@"
|
|
|
|
ClearTilemapEtc:
|
|
xor a
|
|
ldh [hMapAnims], a
|
|
call ClearTilemap
|
|
call LoadFontsExtra
|
|
call LoadStandardFont
|
|
call ClearWindowData
|
|
ret
|
|
|
|
MainMenu_NewGame:
|
|
farcall NewGame
|
|
ret
|
|
|
|
MainMenu_Option:
|
|
farcall Option
|
|
ret
|
|
|
|
MainMenu_Continue:
|
|
farcall Continue
|
|
ret
|
|
|
|
MainMenu_MysteryGift:
|
|
farcall MysteryGift
|
|
ret
|