mirror of
https://github.com/thornAvery/jep-hack.git
synced 2026-02-08 00:55:28 +13:00
First Commit
Upload literally everything from the pokecrystal16 expand-move-ID branch
This commit is contained in:
Zeta_Null
commit
2f8a41f833
4618 changed files with 480386 additions and 0 deletions
541
engine/menus/start_menu.asm
Normal file
541
engine/menus/start_menu.asm
Normal file
|
|
@ -0,0 +1,541 @@
|
|||
; StartMenu.Items indexes
|
||||
const_def
|
||||
const STARTMENUITEM_POKEDEX ; 0
|
||||
const STARTMENUITEM_POKEMON ; 1
|
||||
const STARTMENUITEM_PACK ; 2
|
||||
const STARTMENUITEM_STATUS ; 3
|
||||
const STARTMENUITEM_SAVE ; 4
|
||||
const STARTMENUITEM_OPTION ; 5
|
||||
const STARTMENUITEM_EXIT ; 6
|
||||
const STARTMENUITEM_POKEGEAR ; 7
|
||||
const STARTMENUITEM_QUIT ; 8
|
||||
|
||||
StartMenu::
|
||||
call ClearWindowData
|
||||
|
||||
ld de, SFX_MENU
|
||||
call PlaySFX
|
||||
|
||||
farcall ReanchorBGMap_NoOAMUpdate
|
||||
|
||||
ld hl, wStatusFlags2
|
||||
bit STATUSFLAGS2_BUG_CONTEST_TIMER_F, [hl]
|
||||
ld hl, .MenuHeader
|
||||
jr z, .GotMenuData
|
||||
ld hl, .ContestMenuHeader
|
||||
|
||||
.GotMenuData:
|
||||
call LoadMenuHeader
|
||||
call .SetUpMenuItems
|
||||
ld a, [wBattleMenuCursorPosition]
|
||||
ld [wMenuCursorPosition], a
|
||||
call .DrawMenuAccount
|
||||
call DrawVariableLengthMenuBox
|
||||
call .DrawBugContestStatusBox
|
||||
call SafeUpdateSprites
|
||||
call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap
|
||||
farcall LoadFonts_NoOAMUpdate
|
||||
call .DrawBugContestStatus
|
||||
call UpdateTimePals
|
||||
jr .Select
|
||||
|
||||
.Reopen:
|
||||
call UpdateSprites
|
||||
call UpdateTimePals
|
||||
call .SetUpMenuItems
|
||||
ld a, [wBattleMenuCursorPosition]
|
||||
ld [wMenuCursorPosition], a
|
||||
|
||||
.Select:
|
||||
call .GetInput
|
||||
jr c, .Exit
|
||||
call ._DrawMenuAccount
|
||||
ld a, [wMenuCursorPosition]
|
||||
ld [wBattleMenuCursorPosition], a
|
||||
call PlayClickSFX
|
||||
call PlaceHollowCursor
|
||||
call .OpenMenu
|
||||
|
||||
; Menu items have different return functions.
|
||||
; For example, saving exits the menu.
|
||||
ld hl, .MenuReturns
|
||||
ld e, a
|
||||
ld d, 0
|
||||
add hl, de
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
jp hl
|
||||
|
||||
.MenuReturns:
|
||||
dw .Reopen
|
||||
dw .Exit
|
||||
dw .ExitMenuCallFuncCloseText
|
||||
dw .ExitMenuRunScriptCloseText
|
||||
dw .ExitMenuRunScript
|
||||
dw .ReturnEnd
|
||||
dw .ReturnRedraw
|
||||
|
||||
.Exit:
|
||||
ldh a, [hOAMUpdate]
|
||||
push af
|
||||
ld a, 1
|
||||
ldh [hOAMUpdate], a
|
||||
call LoadFontsExtra
|
||||
pop af
|
||||
ldh [hOAMUpdate], a
|
||||
.ReturnEnd:
|
||||
call ExitMenu
|
||||
.ReturnEnd2:
|
||||
call CloseText
|
||||
call UpdateTimePals
|
||||
ret
|
||||
|
||||
.GetInput:
|
||||
; Return carry on exit, and no-carry on selection.
|
||||
xor a
|
||||
ldh [hBGMapMode], a
|
||||
call ._DrawMenuAccount
|
||||
call SetUpMenu
|
||||
ld a, $ff
|
||||
ld [wMenuSelection], a
|
||||
.loop
|
||||
call .PrintMenuAccount
|
||||
call GetScrollingMenuJoypad
|
||||
ld a, [wMenuJoypad]
|
||||
cp B_BUTTON
|
||||
jr z, .b
|
||||
cp A_BUTTON
|
||||
jr z, .a
|
||||
jr .loop
|
||||
.a
|
||||
call PlayClickSFX
|
||||
and a
|
||||
ret
|
||||
.b
|
||||
scf
|
||||
ret
|
||||
|
||||
.ExitMenuRunScript:
|
||||
call ExitMenu
|
||||
ld a, HMENURETURN_SCRIPT
|
||||
ldh [hMenuReturn], a
|
||||
ret
|
||||
|
||||
.ExitMenuRunScriptCloseText:
|
||||
call ExitMenu
|
||||
ld a, HMENURETURN_SCRIPT
|
||||
ldh [hMenuReturn], a
|
||||
jr .ReturnEnd2
|
||||
|
||||
.ExitMenuCallFuncCloseText:
|
||||
call ExitMenu
|
||||
ld hl, wQueuedScriptAddr
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld a, [wQueuedScriptBank]
|
||||
rst FarCall
|
||||
jr .ReturnEnd2
|
||||
|
||||
.ReturnRedraw:
|
||||
call .Clear
|
||||
jp .Reopen
|
||||
|
||||
.Clear:
|
||||
call ClearBGPalettes
|
||||
call ExitMenu
|
||||
call ReloadTilesetAndPalettes
|
||||
call .DrawMenuAccount
|
||||
call DrawVariableLengthMenuBox
|
||||
call .DrawBugContestStatus
|
||||
call UpdateSprites
|
||||
call FinishExitMenu
|
||||
ret
|
||||
|
||||
.MenuHeader:
|
||||
db MENU_BACKUP_TILES ; flags
|
||||
menu_coords 10, 0, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
|
||||
dw .MenuData
|
||||
db 1 ; default selection
|
||||
|
||||
.ContestMenuHeader:
|
||||
db MENU_BACKUP_TILES ; flags
|
||||
menu_coords 10, 2, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
|
||||
dw .MenuData
|
||||
db 1 ; default selection
|
||||
|
||||
.MenuData:
|
||||
db STATICMENU_CURSOR | STATICMENU_WRAP | STATICMENU_ENABLE_START ; flags
|
||||
dn 0, 0 ; rows, columns
|
||||
dw wMenuItemsList
|
||||
dw .MenuString
|
||||
dw .Items
|
||||
|
||||
.Items:
|
||||
; entries correspond to STARTMENUITEM_* constants
|
||||
dw StartMenu_Pokedex, .PokedexString, .PokedexDesc
|
||||
dw StartMenu_Pokemon, .PartyString, .PartyDesc
|
||||
dw StartMenu_Pack, .PackString, .PackDesc
|
||||
dw StartMenu_Status, .StatusString, .StatusDesc
|
||||
dw StartMenu_Save, .SaveString, .SaveDesc
|
||||
dw StartMenu_Option, .OptionString, .OptionDesc
|
||||
dw StartMenu_Exit, .ExitString, .ExitDesc
|
||||
dw StartMenu_Pokegear, .PokegearString, .PokegearDesc
|
||||
dw StartMenu_Quit, .QuitString, .QuitDesc
|
||||
|
||||
.PokedexString: db "#DEX@"
|
||||
.PartyString: db "#MON@"
|
||||
.PackString: db "PACK@"
|
||||
.StatusString: db "<PLAYER>@"
|
||||
.SaveString: db "SAVE@"
|
||||
.OptionString: db "OPTION@"
|
||||
.ExitString: db "EXIT@"
|
||||
.PokegearString: db "<POKE>GEAR@"
|
||||
.QuitString: db "QUIT@"
|
||||
|
||||
.PokedexDesc:
|
||||
db "#MON"
|
||||
next "database@"
|
||||
|
||||
.PartyDesc:
|
||||
db "Party <PKMN>"
|
||||
next "status@"
|
||||
|
||||
.PackDesc:
|
||||
db "Contains"
|
||||
next "items@"
|
||||
|
||||
.PokegearDesc:
|
||||
db "Trainer's"
|
||||
next "key device@"
|
||||
|
||||
.StatusDesc:
|
||||
db "Your own"
|
||||
next "status@"
|
||||
|
||||
.SaveDesc:
|
||||
db "Save your"
|
||||
next "progress@"
|
||||
|
||||
.OptionDesc:
|
||||
db "Change"
|
||||
next "settings@"
|
||||
|
||||
.ExitDesc:
|
||||
db "Close this"
|
||||
next "menu@"
|
||||
|
||||
.QuitDesc:
|
||||
db "Quit and"
|
||||
next "be judged.@"
|
||||
|
||||
.OpenMenu:
|
||||
ld a, [wMenuSelection]
|
||||
call .GetMenuAccountTextPointer
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
jp hl
|
||||
|
||||
.MenuString:
|
||||
push de
|
||||
ld a, [wMenuSelection]
|
||||
call .GetMenuAccountTextPointer
|
||||
inc hl
|
||||
inc hl
|
||||
ld a, [hli]
|
||||
ld d, [hl]
|
||||
ld e, a
|
||||
pop hl
|
||||
call PlaceString
|
||||
ret
|
||||
|
||||
.MenuDesc:
|
||||
push de
|
||||
ld a, [wMenuSelection]
|
||||
cp $ff
|
||||
jr z, .none
|
||||
call .GetMenuAccountTextPointer
|
||||
rept 4
|
||||
inc hl
|
||||
endr
|
||||
ld a, [hli]
|
||||
ld d, [hl]
|
||||
ld e, a
|
||||
pop hl
|
||||
call PlaceString
|
||||
ret
|
||||
.none
|
||||
pop de
|
||||
ret
|
||||
|
||||
.GetMenuAccountTextPointer:
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, wMenuDataPointerTableAddr
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
rept 6
|
||||
add hl, de
|
||||
endr
|
||||
ret
|
||||
|
||||
.SetUpMenuItems:
|
||||
xor a
|
||||
ld [wWhichIndexSet], a
|
||||
call .FillMenuList
|
||||
|
||||
ld hl, wStatusFlags
|
||||
bit STATUSFLAGS_POKEDEX_F, [hl]
|
||||
jr z, .no_pokedex
|
||||
ld a, STARTMENUITEM_POKEDEX
|
||||
call .AppendMenuList
|
||||
.no_pokedex
|
||||
|
||||
ld a, [wPartyCount]
|
||||
and a
|
||||
jr z, .no_pokemon
|
||||
ld a, STARTMENUITEM_POKEMON
|
||||
call .AppendMenuList
|
||||
.no_pokemon
|
||||
|
||||
ld a, [wLinkMode]
|
||||
and a
|
||||
jr nz, .no_pack
|
||||
ld hl, wStatusFlags2
|
||||
bit STATUSFLAGS2_BUG_CONTEST_TIMER_F, [hl]
|
||||
jr nz, .no_pack
|
||||
ld a, STARTMENUITEM_PACK
|
||||
call .AppendMenuList
|
||||
.no_pack
|
||||
|
||||
ld hl, wPokegearFlags
|
||||
bit POKEGEAR_OBTAINED_F, [hl]
|
||||
jr z, .no_pokegear
|
||||
ld a, STARTMENUITEM_POKEGEAR
|
||||
call .AppendMenuList
|
||||
.no_pokegear
|
||||
|
||||
ld a, STARTMENUITEM_STATUS
|
||||
call .AppendMenuList
|
||||
|
||||
ld a, [wLinkMode]
|
||||
and a
|
||||
jr nz, .no_save
|
||||
ld hl, wStatusFlags2
|
||||
bit STATUSFLAGS2_BUG_CONTEST_TIMER_F, [hl]
|
||||
ld a, STARTMENUITEM_QUIT
|
||||
jr nz, .write
|
||||
ld a, STARTMENUITEM_SAVE
|
||||
.write
|
||||
call .AppendMenuList
|
||||
.no_save
|
||||
|
||||
ld a, STARTMENUITEM_OPTION
|
||||
call .AppendMenuList
|
||||
ld a, STARTMENUITEM_EXIT
|
||||
call .AppendMenuList
|
||||
ld a, c
|
||||
ld [wMenuItemsList], a
|
||||
ret
|
||||
|
||||
.FillMenuList:
|
||||
xor a
|
||||
ld hl, wMenuItemsList
|
||||
ld [hli], a
|
||||
ld a, -1
|
||||
ld bc, wMenuItemsListEnd - (wMenuItemsList + 1)
|
||||
call ByteFill
|
||||
ld de, wMenuItemsList + 1
|
||||
ld c, 0
|
||||
ret
|
||||
|
||||
.AppendMenuList:
|
||||
ld [de], a
|
||||
inc de
|
||||
inc c
|
||||
ret
|
||||
|
||||
.DrawMenuAccount:
|
||||
jp ._DrawMenuAccount
|
||||
|
||||
.PrintMenuAccount:
|
||||
call .IsMenuAccountOn
|
||||
ret z
|
||||
call ._DrawMenuAccount
|
||||
decoord 0, 14
|
||||
jp .MenuDesc
|
||||
|
||||
._DrawMenuAccount:
|
||||
call .IsMenuAccountOn
|
||||
ret z
|
||||
hlcoord 0, 13
|
||||
lb bc, 5, 10
|
||||
call ClearBox
|
||||
hlcoord 0, 13
|
||||
ld b, 3
|
||||
ld c, 8
|
||||
jp TextboxPalette
|
||||
|
||||
.IsMenuAccountOn:
|
||||
ld a, [wOptions2]
|
||||
and 1 << MENU_ACCOUNT
|
||||
ret
|
||||
|
||||
.DrawBugContestStatusBox:
|
||||
ld hl, wStatusFlags2
|
||||
bit STATUSFLAGS2_BUG_CONTEST_TIMER_F, [hl]
|
||||
ret z
|
||||
farcall StartMenu_DrawBugContestStatusBox
|
||||
ret
|
||||
|
||||
.DrawBugContestStatus:
|
||||
ld hl, wStatusFlags2
|
||||
bit STATUSFLAGS2_BUG_CONTEST_TIMER_F, [hl]
|
||||
jr nz, .contest
|
||||
ret
|
||||
.contest
|
||||
farcall StartMenu_PrintBugContestStatus
|
||||
ret
|
||||
|
||||
StartMenu_Exit:
|
||||
; Exit the menu.
|
||||
|
||||
ld a, 1
|
||||
ret
|
||||
|
||||
StartMenu_Quit:
|
||||
; Retire from the bug catching contest.
|
||||
|
||||
ld hl, .StartMenuContestEndText
|
||||
call StartMenuYesNo
|
||||
jr c, .DontEndContest
|
||||
ld a, BANK(BugCatchingContestReturnToGateScript)
|
||||
ld hl, BugCatchingContestReturnToGateScript
|
||||
call FarQueueScript
|
||||
ld a, 4
|
||||
ret
|
||||
|
||||
.DontEndContest:
|
||||
ld a, 0
|
||||
ret
|
||||
|
||||
.StartMenuContestEndText:
|
||||
text_far _StartMenuContestEndText
|
||||
text_end
|
||||
|
||||
StartMenu_Save:
|
||||
; Save the game.
|
||||
|
||||
call BufferScreen
|
||||
farcall SaveMenu
|
||||
jr nc, .saved
|
||||
ld a, 0
|
||||
ret
|
||||
|
||||
.saved
|
||||
ld a, 1
|
||||
ret
|
||||
|
||||
StartMenu_Option:
|
||||
; Game options.
|
||||
|
||||
call FadeToMenu
|
||||
farcall Option
|
||||
ld a, 6
|
||||
ret
|
||||
|
||||
StartMenu_Status:
|
||||
; Player status.
|
||||
|
||||
call FadeToMenu
|
||||
farcall TrainerCard
|
||||
call CloseSubmenu
|
||||
ld a, 0
|
||||
ret
|
||||
|
||||
StartMenu_Pokedex:
|
||||
ld a, [wPartyCount]
|
||||
and a
|
||||
jr z, .empty
|
||||
|
||||
call FadeToMenu
|
||||
farcall Pokedex
|
||||
call CloseSubmenu
|
||||
|
||||
.empty
|
||||
ld a, 0
|
||||
ret
|
||||
|
||||
StartMenu_Pokegear:
|
||||
call FadeToMenu
|
||||
farcall PokeGear
|
||||
call CloseSubmenu
|
||||
ld a, 0
|
||||
ret
|
||||
|
||||
StartMenu_Pack:
|
||||
call FadeToMenu
|
||||
farcall Pack
|
||||
ld a, [wPackUsedItem]
|
||||
and a
|
||||
jr nz, .used_item
|
||||
call CloseSubmenu
|
||||
ld a, 0
|
||||
ret
|
||||
|
||||
.used_item
|
||||
call ExitAllMenus
|
||||
ld a, 4
|
||||
ret
|
||||
|
||||
StartMenu_Pokemon:
|
||||
ld a, [wPartyCount]
|
||||
and a
|
||||
jr z, .return
|
||||
|
||||
call FadeToMenu
|
||||
|
||||
.choosemenu
|
||||
xor a
|
||||
ld [wPartyMenuActionText], a ; Choose a POKéMON.
|
||||
call ClearBGPalettes
|
||||
|
||||
.menu
|
||||
farcall LoadPartyMenuGFX
|
||||
farcall InitPartyMenuWithCancel
|
||||
farcall InitPartyMenuGFX
|
||||
|
||||
.menunoreload
|
||||
farcall WritePartyMenuTilemap
|
||||
farcall PrintPartyMenuText
|
||||
call WaitBGMap
|
||||
call SetPalettes ; load regular palettes?
|
||||
call DelayFrame
|
||||
farcall PartyMenuSelect
|
||||
jr c, .return ; if cancelled or pressed B
|
||||
|
||||
call PokemonActionSubmenu
|
||||
cp 3
|
||||
jr z, .menu
|
||||
cp 0
|
||||
jr z, .choosemenu
|
||||
cp 1
|
||||
jr z, .menunoreload
|
||||
cp 2
|
||||
jr z, .quit
|
||||
|
||||
.return
|
||||
call CloseSubmenu
|
||||
ld a, 0
|
||||
ret
|
||||
|
||||
.quit
|
||||
ld a, b
|
||||
push af
|
||||
call ExitAllMenus
|
||||
pop af
|
||||
ret
|
||||
Loading…
Add table
Add a link
Reference in a new issue