mirror of https://github.com/pret/pokecrystal.git
2576 lines
45 KiB
NASM
2576 lines
45 KiB
NASM
; Pokedex_RunJumptable.Jumptable indexes
|
|
const_def
|
|
const DEXSTATE_MAIN_SCR
|
|
const DEXSTATE_UPDATE_MAIN_SCR
|
|
const DEXSTATE_DEX_ENTRY_SCR
|
|
const DEXSTATE_UPDATE_DEX_ENTRY_SCR
|
|
const DEXSTATE_REINIT_DEX_ENTRY_SCR
|
|
const DEXSTATE_SEARCH_SCR
|
|
const DEXSTATE_UPDATE_SEARCH_SCR
|
|
const DEXSTATE_OPTION_SCR
|
|
const DEXSTATE_UPDATE_OPTION_SCR
|
|
const DEXSTATE_SEARCH_RESULTS_SCR
|
|
const DEXSTATE_UPDATE_SEARCH_RESULTS_SCR
|
|
const DEXSTATE_UNOWN_MODE
|
|
const DEXSTATE_UPDATE_UNOWN_MODE
|
|
const DEXSTATE_EXIT
|
|
|
|
POKEDEX_SCX EQU 5
|
|
EXPORT POKEDEX_SCX
|
|
|
|
Pokedex:
|
|
ldh a, [hWX]
|
|
ld l, a
|
|
ldh a, [hWY]
|
|
ld h, a
|
|
push hl
|
|
ldh a, [hSCX]
|
|
push af
|
|
ld hl, wOptions
|
|
ld a, [hl]
|
|
push af
|
|
set NO_TEXT_SCROLL, [hl]
|
|
ld a, [wVramState]
|
|
push af
|
|
xor a
|
|
ld [wVramState], a
|
|
ldh a, [hInMenu]
|
|
push af
|
|
ld a, $1
|
|
ldh [hInMenu], a
|
|
|
|
xor a
|
|
ldh [hMapAnims], a
|
|
call InitPokedex
|
|
call DelayFrame
|
|
|
|
.main
|
|
call JoyTextDelay
|
|
ld a, [wJumptableIndex]
|
|
bit 7, a
|
|
jr nz, .exit
|
|
call Pokedex_RunJumptable
|
|
call DelayFrame
|
|
jr .main
|
|
|
|
.exit
|
|
ld de, SFX_READ_TEXT_2
|
|
call PlaySFX
|
|
call WaitSFX
|
|
call ClearSprites
|
|
ld a, [wCurDexMode]
|
|
ld [wLastDexMode], a
|
|
|
|
pop af
|
|
ldh [hInMenu], a
|
|
pop af
|
|
ld [wVramState], a
|
|
pop af
|
|
ld [wOptions], a
|
|
pop af
|
|
ldh [hSCX], a
|
|
pop hl
|
|
ld a, l
|
|
ldh [hWX], a
|
|
ld a, h
|
|
ldh [hWY], a
|
|
ret
|
|
|
|
InitPokedex:
|
|
call ClearBGPalettes
|
|
call ClearSprites
|
|
call ClearTilemap
|
|
call Pokedex_LoadGFX
|
|
|
|
ld hl, wPokedexDataStart
|
|
ld bc, wPokedexDataEnd - wPokedexDataStart
|
|
xor a
|
|
call ByteFill
|
|
|
|
xor a
|
|
ld [wJumptableIndex], a
|
|
ld [wPrevDexEntryJumptableIndex], a
|
|
ld [wPrevDexEntryBackup], a
|
|
ld [wcf66], a
|
|
|
|
call Pokedex_CheckUnlockedUnownMode
|
|
|
|
ld a, [wLastDexMode]
|
|
ld [wCurDexMode], a
|
|
|
|
call Pokedex_OrderMonsByMode
|
|
call Pokedex_InitCursorPosition
|
|
call Pokedex_GetLandmark
|
|
farcall DrawDexEntryScreenRightEdge
|
|
call Pokedex_ResetBGMapMode
|
|
ret
|
|
|
|
Pokedex_CheckUnlockedUnownMode:
|
|
ld a, [wStatusFlags]
|
|
bit STATUSFLAGS_UNOWN_DEX_F, a
|
|
jr nz, .unlocked
|
|
|
|
xor a
|
|
ld [wUnlockedUnownMode], a
|
|
ret
|
|
|
|
.unlocked
|
|
ld a, TRUE
|
|
ld [wUnlockedUnownMode], a
|
|
ret
|
|
|
|
Pokedex_InitCursorPosition:
|
|
ld hl, wPokedexOrder
|
|
ld a, [wPrevDexEntry]
|
|
and a
|
|
jr z, .done
|
|
cp NUM_POKEMON + 1
|
|
jr nc, .done
|
|
|
|
ld b, a
|
|
ld a, [wDexListingEnd]
|
|
cp $8
|
|
jr c, .only_one_page
|
|
|
|
sub $7
|
|
ld c, a
|
|
.loop1
|
|
ld a, b
|
|
cp [hl]
|
|
jr z, .done
|
|
inc hl
|
|
ld a, [wDexListingScrollOffset]
|
|
inc a
|
|
ld [wDexListingScrollOffset], a
|
|
dec c
|
|
jr nz, .loop1
|
|
|
|
.only_one_page
|
|
ld c, $7
|
|
.loop2
|
|
ld a, b
|
|
cp [hl]
|
|
jr z, .done
|
|
inc hl
|
|
ld a, [wDexListingCursor]
|
|
inc a
|
|
ld [wDexListingCursor], a
|
|
dec c
|
|
jr nz, .loop2
|
|
|
|
.done
|
|
ret
|
|
|
|
Pokedex_GetLandmark:
|
|
ld a, [wMapGroup]
|
|
ld b, a
|
|
ld a, [wMapNumber]
|
|
ld c, a
|
|
call GetWorldMapLocation
|
|
|
|
cp LANDMARK_SPECIAL
|
|
jr nz, .load
|
|
|
|
ld a, [wBackupMapGroup]
|
|
ld b, a
|
|
ld a, [wBackupMapNumber]
|
|
ld c, a
|
|
call GetWorldMapLocation
|
|
|
|
.load
|
|
ld [wDexCurLocation], a
|
|
ret
|
|
|
|
Pokedex_RunJumptable:
|
|
ld a, [wJumptableIndex]
|
|
ld hl, .Jumptable
|
|
call Pokedex_LoadPointer
|
|
jp hl
|
|
|
|
.Jumptable:
|
|
; entries correspond to DEXSTATE_* constants
|
|
dw Pokedex_InitMainScreen
|
|
dw Pokedex_UpdateMainScreen
|
|
dw Pokedex_InitDexEntryScreen
|
|
dw Pokedex_UpdateDexEntryScreen
|
|
dw Pokedex_ReinitDexEntryScreen
|
|
dw Pokedex_InitSearchScreen
|
|
dw Pokedex_UpdateSearchScreen
|
|
dw Pokedex_InitOptionScreen
|
|
dw Pokedex_UpdateOptionScreen
|
|
dw Pokedex_InitSearchResultsScreen
|
|
dw Pokedex_UpdateSearchResultsScreen
|
|
dw Pokedex_InitUnownMode
|
|
dw Pokedex_UpdateUnownMode
|
|
dw Pokedex_Exit
|
|
|
|
Pokedex_IncrementDexPointer:
|
|
ld hl, wJumptableIndex
|
|
inc [hl]
|
|
ret
|
|
|
|
Pokedex_Exit:
|
|
ld hl, wJumptableIndex
|
|
set 7, [hl]
|
|
ret
|
|
|
|
Pokedex_InitMainScreen:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call ClearSprites
|
|
xor a
|
|
hlcoord 0, 0, wAttrmap
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
call ByteFill
|
|
farcall DrawPokedexListWindow
|
|
hlcoord 0, 17
|
|
ld de, String_START_SEARCH
|
|
call Pokedex_PlaceString
|
|
ld a, 7
|
|
ld [wDexListingHeight], a
|
|
call Pokedex_PrintListing
|
|
call Pokedex_SetBGMapMode_3ifDMG_4ifCGB
|
|
call Pokedex_ResetBGMapMode
|
|
call Pokedex_DrawMainScreenBG
|
|
ld a, POKEDEX_SCX
|
|
ldh [hSCX], a
|
|
|
|
ld a, [wCurDexMode]
|
|
cp DEXMODE_OLD
|
|
ld a, $4a
|
|
jr z, .okay
|
|
ld a, $47
|
|
.okay
|
|
ldh [hWX], a
|
|
xor a
|
|
ldh [hWY], a
|
|
call WaitBGMap
|
|
|
|
call Pokedex_ResetBGMapMode
|
|
ld a, -1
|
|
ld [wCurPartySpecies], a
|
|
ld a, SCGB_POKEDEX
|
|
call Pokedex_GetSGBLayout
|
|
call Pokedex_UpdateCursorOAM
|
|
farcall DrawPokedexListWindow
|
|
hlcoord 0, 17
|
|
ld de, String_START_SEARCH
|
|
call Pokedex_PlaceString
|
|
ld a, 7
|
|
ld [wDexListingHeight], a
|
|
call Pokedex_PrintListing
|
|
call Pokedex_IncrementDexPointer
|
|
ret
|
|
|
|
Pokedex_UpdateMainScreen:
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and B_BUTTON
|
|
jr nz, .b
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .a
|
|
ld a, [hl]
|
|
and SELECT
|
|
jr nz, .select
|
|
ld a, [hl]
|
|
and START
|
|
jr nz, .start
|
|
call Pokedex_ListingHandleDPadInput
|
|
ret nc
|
|
call Pokedex_UpdateCursorOAM
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pokedex_PrintListing
|
|
call Pokedex_SetBGMapMode3
|
|
call Pokedex_ResetBGMapMode
|
|
ret
|
|
|
|
.a
|
|
call Pokedex_GetSelectedMon
|
|
call Pokedex_CheckSeen
|
|
ret z
|
|
ld a, DEXSTATE_DEX_ENTRY_SCR
|
|
ld [wJumptableIndex], a
|
|
ld a, DEXSTATE_MAIN_SCR
|
|
ld [wPrevDexEntryJumptableIndex], a
|
|
ret
|
|
|
|
.select
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_OPTION_SCR
|
|
ld [wJumptableIndex], a
|
|
xor a
|
|
ldh [hSCX], a
|
|
ld a, $a7
|
|
ldh [hWX], a
|
|
call DelayFrame
|
|
ret
|
|
|
|
.start
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_SEARCH_SCR
|
|
ld [wJumptableIndex], a
|
|
xor a
|
|
ldh [hSCX], a
|
|
ld a, $a7
|
|
ldh [hWX], a
|
|
call DelayFrame
|
|
ret
|
|
|
|
.b
|
|
ld a, DEXSTATE_EXIT
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
Pokedex_InitDexEntryScreen:
|
|
call LowVolume
|
|
xor a ; page 1
|
|
ld [wPokedexStatus], a
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call ClearSprites
|
|
call Pokedex_LoadCurrentFootprint
|
|
call Pokedex_DrawDexEntryScreenBG
|
|
call Pokedex_InitArrowCursor
|
|
call Pokedex_GetSelectedMon
|
|
ld [wPrevDexEntry], a
|
|
farcall DisplayDexEntry
|
|
call Pokedex_DrawFootprint
|
|
call WaitBGMap
|
|
ld a, $a7
|
|
ldh [hWX], a
|
|
call Pokedex_GetSelectedMon
|
|
ld [wCurPartySpecies], a
|
|
ld a, SCGB_POKEDEX
|
|
call Pokedex_GetSGBLayout
|
|
ld a, [wCurPartySpecies]
|
|
call PlayMonCry
|
|
call Pokedex_IncrementDexPointer
|
|
ret
|
|
|
|
Pokedex_UpdateDexEntryScreen:
|
|
ld de, DexEntryScreen_ArrowCursorData
|
|
call Pokedex_MoveArrowCursor
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and B_BUTTON
|
|
jr nz, .return_to_prev_screen
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .do_menu_action
|
|
call Pokedex_NextOrPreviousDexEntry
|
|
ret nc
|
|
call Pokedex_IncrementDexPointer
|
|
ret
|
|
|
|
.do_menu_action
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
ld hl, DexEntryScreen_MenuActionJumptable
|
|
call Pokedex_LoadPointer
|
|
jp hl
|
|
|
|
.return_to_prev_screen
|
|
ld a, [wLastVolume]
|
|
and a
|
|
jr z, .max_volume
|
|
ld a, $77
|
|
ld [wLastVolume], a
|
|
|
|
.max_volume
|
|
call MaxVolume
|
|
ld a, [wPrevDexEntryJumptableIndex]
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
Pokedex_Page:
|
|
ld a, [wPokedexStatus]
|
|
xor 1 ; toggle page
|
|
ld [wPokedexStatus], a
|
|
call Pokedex_GetSelectedMon
|
|
ld [wPrevDexEntry], a
|
|
farcall DisplayDexEntry
|
|
call WaitBGMap
|
|
ret
|
|
|
|
Pokedex_ReinitDexEntryScreen:
|
|
; Reinitialize the Pokédex entry screen after changing the selected mon.
|
|
call Pokedex_BlackOutBG
|
|
xor a ; page 1
|
|
ld [wPokedexStatus], a
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pokedex_DrawDexEntryScreenBG
|
|
call Pokedex_InitArrowCursor
|
|
call Pokedex_LoadCurrentFootprint
|
|
call Pokedex_GetSelectedMon
|
|
ld [wPrevDexEntry], a
|
|
farcall DisplayDexEntry
|
|
call Pokedex_DrawFootprint
|
|
call Pokedex_LoadSelectedMonTiles
|
|
call WaitBGMap
|
|
call Pokedex_GetSelectedMon
|
|
ld [wCurPartySpecies], a
|
|
ld a, SCGB_POKEDEX
|
|
call Pokedex_GetSGBLayout
|
|
ld a, [wCurPartySpecies]
|
|
call PlayMonCry
|
|
ld hl, wJumptableIndex
|
|
dec [hl]
|
|
ret
|
|
|
|
DexEntryScreen_ArrowCursorData:
|
|
db D_RIGHT | D_LEFT, 4
|
|
dwcoord 1, 17 ; PAGE
|
|
dwcoord 6, 17 ; AREA
|
|
dwcoord 11, 17 ; CRY
|
|
dwcoord 15, 17 ; PRNT
|
|
|
|
DexEntryScreen_MenuActionJumptable:
|
|
dw Pokedex_Page
|
|
dw .Area
|
|
dw .Cry
|
|
dw .Print
|
|
|
|
.Area:
|
|
call Pokedex_BlackOutBG
|
|
xor a
|
|
ldh [hSCX], a
|
|
call DelayFrame
|
|
ld a, $7
|
|
ldh [hWX], a
|
|
ld a, $90
|
|
ldh [hWY], a
|
|
call Pokedex_GetSelectedMon
|
|
ld a, [wDexCurLocation]
|
|
ld e, a
|
|
predef Pokedex_GetArea
|
|
call Pokedex_BlackOutBG
|
|
call DelayFrame
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
ld a, $90
|
|
ldh [hWY], a
|
|
ld a, POKEDEX_SCX
|
|
ldh [hSCX], a
|
|
call DelayFrame
|
|
call Pokedex_RedisplayDexEntry
|
|
call Pokedex_LoadSelectedMonTiles
|
|
call WaitBGMap
|
|
call Pokedex_GetSelectedMon
|
|
ld [wCurPartySpecies], a
|
|
ld a, SCGB_POKEDEX
|
|
call Pokedex_GetSGBLayout
|
|
ret
|
|
|
|
.Cry:
|
|
call Pokedex_GetSelectedMon
|
|
ld a, [wTempSpecies]
|
|
call GetCryIndex
|
|
ld e, c
|
|
ld d, b
|
|
call PlayCry
|
|
ret
|
|
|
|
.Print:
|
|
call Pokedex_ApplyPrintPals
|
|
xor a
|
|
ldh [hSCX], a
|
|
ld a, [wPrevDexEntryBackup]
|
|
push af
|
|
ld a, [wPrevDexEntryJumptableIndex]
|
|
push af
|
|
ld a, [wJumptableIndex]
|
|
push af
|
|
farcall PrintDexEntry
|
|
pop af
|
|
ld [wJumptableIndex], a
|
|
pop af
|
|
ld [wPrevDexEntryJumptableIndex], a
|
|
pop af
|
|
ld [wPrevDexEntryBackup], a
|
|
call ClearBGPalettes
|
|
call DisableLCD
|
|
call Pokedex_LoadInvertedFont
|
|
call Pokedex_RedisplayDexEntry
|
|
call EnableLCD
|
|
call WaitBGMap
|
|
ld a, POKEDEX_SCX
|
|
ldh [hSCX], a
|
|
call Pokedex_ApplyUsualPals
|
|
ret
|
|
|
|
Pokedex_RedisplayDexEntry:
|
|
call Pokedex_DrawDexEntryScreenBG
|
|
call Pokedex_GetSelectedMon
|
|
farcall DisplayDexEntry
|
|
call Pokedex_DrawFootprint
|
|
ret
|
|
|
|
Pokedex_InitOptionScreen:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call ClearSprites
|
|
call Pokedex_DrawOptionScreenBG
|
|
call Pokedex_InitArrowCursor
|
|
ld a, [wCurDexMode] ; Index of the topmost visible item in a scrolling menu ???
|
|
ld [wDexArrowCursorPosIndex], a
|
|
call Pokedex_DisplayModeDescription
|
|
call WaitBGMap
|
|
ld a, SCGB_POKEDEX_SEARCH_OPTION
|
|
call Pokedex_GetSGBLayout
|
|
call Pokedex_IncrementDexPointer
|
|
ret
|
|
|
|
Pokedex_UpdateOptionScreen:
|
|
ld a, [wUnlockedUnownMode]
|
|
and a
|
|
jr nz, .okay
|
|
ld de, .NoUnownModeArrowCursorData
|
|
jr .okay2
|
|
.okay
|
|
ld de, .ArrowCursorData
|
|
.okay2
|
|
call Pokedex_MoveArrowCursor
|
|
call c, Pokedex_DisplayModeDescription
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and SELECT | B_BUTTON
|
|
jr nz, .return_to_main_screen
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .do_menu_action
|
|
ret
|
|
|
|
.do_menu_action
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
ld hl, .MenuActionJumptable
|
|
call Pokedex_LoadPointer
|
|
jp hl
|
|
|
|
.return_to_main_screen
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_MAIN_SCR
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.NoUnownModeArrowCursorData:
|
|
db D_UP | D_DOWN, 3
|
|
dwcoord 2, 4 ; NEW
|
|
dwcoord 2, 6 ; OLD
|
|
dwcoord 2, 8 ; ABC
|
|
|
|
.ArrowCursorData:
|
|
db D_UP | D_DOWN, 4
|
|
dwcoord 2, 4 ; NEW
|
|
dwcoord 2, 6 ; OLD
|
|
dwcoord 2, 8 ; ABC
|
|
dwcoord 2, 10 ; UNOWN
|
|
|
|
.MenuActionJumptable:
|
|
dw .MenuAction_NewMode
|
|
dw .MenuAction_OldMode
|
|
dw .MenuAction_ABCMode
|
|
dw .MenuAction_UnownMode
|
|
|
|
.MenuAction_NewMode:
|
|
ld b, DEXMODE_NEW
|
|
jr .ChangeMode
|
|
|
|
.MenuAction_OldMode:
|
|
ld b, DEXMODE_OLD
|
|
jr .ChangeMode
|
|
|
|
.MenuAction_ABCMode:
|
|
ld b, DEXMODE_ABC
|
|
|
|
.ChangeMode:
|
|
ld a, [wCurDexMode]
|
|
cp b
|
|
jr z, .skip_changing_mode ; Skip if new mode is same as current.
|
|
|
|
ld a, b
|
|
ld [wCurDexMode], a
|
|
call Pokedex_OrderMonsByMode
|
|
call Pokedex_DisplayChangingModesMessage
|
|
xor a
|
|
ld [wDexListingScrollOffset], a
|
|
ld [wDexListingCursor], a
|
|
call Pokedex_InitCursorPosition
|
|
|
|
.skip_changing_mode
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_MAIN_SCR
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.MenuAction_UnownMode:
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_UNOWN_MODE
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
Pokedex_InitSearchScreen:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call ClearSprites
|
|
call Pokedex_DrawSearchScreenBG
|
|
call Pokedex_InitArrowCursor
|
|
ld a, NORMAL + 1
|
|
ld [wDexSearchMonType1], a
|
|
xor a
|
|
ld [wDexSearchMonType2], a
|
|
call Pokedex_PlaceSearchScreenTypeStrings
|
|
xor a
|
|
ld [wDexSearchSlowpokeFrame], a
|
|
farcall DoDexSearchSlowpokeFrame
|
|
call WaitBGMap
|
|
ld a, SCGB_POKEDEX_SEARCH_OPTION
|
|
call Pokedex_GetSGBLayout
|
|
call Pokedex_IncrementDexPointer
|
|
ret
|
|
|
|
Pokedex_UpdateSearchScreen:
|
|
ld de, .ArrowCursorData
|
|
call Pokedex_MoveArrowCursor
|
|
call Pokedex_UpdateSearchMonType
|
|
call c, Pokedex_PlaceSearchScreenTypeStrings
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and START | B_BUTTON
|
|
jr nz, .cancel
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .do_menu_action
|
|
ret
|
|
|
|
.do_menu_action
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
ld hl, .MenuActionJumptable
|
|
call Pokedex_LoadPointer
|
|
jp hl
|
|
|
|
.cancel
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_MAIN_SCR
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.ArrowCursorData:
|
|
db D_UP | D_DOWN, 4
|
|
dwcoord 2, 4 ; TYPE 1
|
|
dwcoord 2, 6 ; TYPE 2
|
|
dwcoord 2, 13 ; BEGIN SEARCH
|
|
dwcoord 2, 15 ; CANCEL
|
|
|
|
.MenuActionJumptable:
|
|
dw .MenuAction_MonSearchType
|
|
dw .MenuAction_MonSearchType
|
|
dw .MenuAction_BeginSearch
|
|
dw .MenuAction_Cancel
|
|
|
|
.MenuAction_MonSearchType:
|
|
call Pokedex_NextSearchMonType
|
|
call Pokedex_PlaceSearchScreenTypeStrings
|
|
ret
|
|
|
|
.MenuAction_BeginSearch:
|
|
call Pokedex_SearchForMons
|
|
farcall AnimateDexSearchSlowpoke
|
|
ld a, [wDexSearchResultCount]
|
|
and a
|
|
jr nz, .show_search_results
|
|
|
|
; No mon with matching types was found.
|
|
call Pokedex_OrderMonsByMode
|
|
call Pokedex_DisplayTypeNotFoundMessage
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pokedex_DrawSearchScreenBG
|
|
call Pokedex_InitArrowCursor
|
|
call Pokedex_PlaceSearchScreenTypeStrings
|
|
call WaitBGMap
|
|
ret
|
|
|
|
.show_search_results
|
|
ld [wDexListingEnd], a
|
|
ld a, [wDexListingScrollOffset]
|
|
ld [wDexListingScrollOffsetBackup], a
|
|
ld a, [wDexListingCursor]
|
|
ld [wDexListingCursorBackup], a
|
|
ld a, [wPrevDexEntry]
|
|
ld [wPrevDexEntryBackup], a
|
|
xor a
|
|
ld [wDexListingScrollOffset], a
|
|
ld [wDexListingCursor], a
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_SEARCH_RESULTS_SCR
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.MenuAction_Cancel:
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_MAIN_SCR
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
Pokedex_InitSearchResultsScreen:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
xor a
|
|
hlcoord 0, 0, wAttrmap
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
call ByteFill
|
|
call Pokedex_SetBGMapMode4
|
|
call Pokedex_ResetBGMapMode
|
|
farcall DrawPokedexSearchResultsWindow
|
|
call Pokedex_PlaceSearchResultsTypeStrings
|
|
ld a, 4
|
|
ld [wDexListingHeight], a
|
|
call Pokedex_PrintListing
|
|
call Pokedex_SetBGMapMode3
|
|
call Pokedex_ResetBGMapMode
|
|
call Pokedex_DrawSearchResultsScreenBG
|
|
ld a, POKEDEX_SCX
|
|
ldh [hSCX], a
|
|
ld a, $4a
|
|
ldh [hWX], a
|
|
xor a
|
|
ldh [hWY], a
|
|
call WaitBGMap
|
|
call Pokedex_ResetBGMapMode
|
|
farcall DrawPokedexSearchResultsWindow
|
|
call Pokedex_PlaceSearchResultsTypeStrings
|
|
call Pokedex_UpdateSearchResultsCursorOAM
|
|
ld a, -1
|
|
ld [wCurPartySpecies], a
|
|
ld a, SCGB_POKEDEX
|
|
call Pokedex_GetSGBLayout
|
|
call Pokedex_IncrementDexPointer
|
|
ret
|
|
|
|
Pokedex_UpdateSearchResultsScreen:
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and B_BUTTON
|
|
jr nz, .return_to_search_screen
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .go_to_dex_entry
|
|
call Pokedex_ListingHandleDPadInput
|
|
ret nc
|
|
call Pokedex_UpdateSearchResultsCursorOAM
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pokedex_PrintListing
|
|
call Pokedex_SetBGMapMode3
|
|
call Pokedex_ResetBGMapMode
|
|
ret
|
|
|
|
.go_to_dex_entry
|
|
call Pokedex_GetSelectedMon
|
|
call Pokedex_CheckSeen
|
|
ret z
|
|
ld a, DEXSTATE_DEX_ENTRY_SCR
|
|
ld [wJumptableIndex], a
|
|
ld a, DEXSTATE_SEARCH_RESULTS_SCR
|
|
ld [wPrevDexEntryJumptableIndex], a
|
|
ret
|
|
|
|
.return_to_search_screen
|
|
ld a, [wDexListingScrollOffsetBackup]
|
|
ld [wDexListingScrollOffset], a
|
|
ld a, [wDexListingCursorBackup]
|
|
ld [wDexListingCursor], a
|
|
ld a, [wPrevDexEntryBackup]
|
|
ld [wPrevDexEntry], a
|
|
call Pokedex_BlackOutBG
|
|
call ClearSprites
|
|
call Pokedex_OrderMonsByMode
|
|
ld a, DEXSTATE_SEARCH_SCR
|
|
ld [wJumptableIndex], a
|
|
xor a
|
|
ldh [hSCX], a
|
|
ld a, $a7
|
|
ldh [hWX], a
|
|
ret
|
|
|
|
Pokedex_InitUnownMode:
|
|
call Pokedex_LoadUnownFont
|
|
call Pokedex_DrawUnownModeBG
|
|
xor a
|
|
ld [wDexCurUnownIndex], a
|
|
call Pokedex_LoadUnownFrontpicTiles
|
|
call Pokedex_UnownModePlaceCursor
|
|
farcall PrintUnownWord
|
|
call WaitBGMap
|
|
ld a, SCGB_POKEDEX_UNOWN_MODE
|
|
call Pokedex_GetSGBLayout
|
|
call Pokedex_IncrementDexPointer
|
|
ret
|
|
|
|
Pokedex_UpdateUnownMode:
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and A_BUTTON | B_BUTTON
|
|
jr nz, .a_b
|
|
call Pokedex_UnownModeHandleDPadInput
|
|
ret
|
|
|
|
.a_b
|
|
call Pokedex_BlackOutBG
|
|
ld a, DEXSTATE_OPTION_SCR
|
|
ld [wJumptableIndex], a
|
|
call DelayFrame
|
|
call Pokedex_CheckSGB
|
|
jr nz, .decompress
|
|
farcall LoadSGBPokedexGFX2
|
|
jr .done
|
|
|
|
.decompress
|
|
ld hl, PokedexLZ
|
|
ld de, vTiles2 tile $31
|
|
lb bc, BANK(PokedexLZ), 58
|
|
call DecompressRequest2bpp
|
|
|
|
.done
|
|
ret
|
|
|
|
Pokedex_UnownModeHandleDPadInput:
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_RIGHT
|
|
jr nz, .right
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, .left
|
|
ret
|
|
|
|
.right
|
|
ld a, [wDexUnownCount]
|
|
ld e, a
|
|
ld hl, wDexCurUnownIndex
|
|
ld a, [hl]
|
|
inc a
|
|
cp e
|
|
ret nc
|
|
ld a, [hl]
|
|
inc [hl]
|
|
jr .update
|
|
|
|
.left
|
|
ld hl, wDexCurUnownIndex
|
|
ld a, [hl]
|
|
and a
|
|
ret z
|
|
ld a, [hl]
|
|
dec [hl]
|
|
|
|
.update
|
|
push af
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
pop af
|
|
call Pokedex_UnownModeEraseCursor
|
|
call Pokedex_LoadUnownFrontpicTiles
|
|
call Pokedex_UnownModePlaceCursor
|
|
farcall PrintUnownWord
|
|
ld a, $1
|
|
ldh [hBGMapMode], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
ret
|
|
|
|
Pokedex_UnownModeEraseCursor:
|
|
ld c, " "
|
|
jr Pokedex_UnownModeUpdateCursorGfx
|
|
|
|
Pokedex_UnownModePlaceCursor:
|
|
ld a, [wDexCurUnownIndex]
|
|
ld c, FIRST_UNOWN_CHAR + NUM_UNOWN ; diamond cursor
|
|
|
|
Pokedex_UnownModeUpdateCursorGfx:
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, UnownModeLetterAndCursorCoords + 2
|
|
rept 4
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld [hl], c
|
|
ret
|
|
|
|
Pokedex_NextOrPreviousDexEntry:
|
|
ld a, [wDexListingCursor]
|
|
ld [wBackupDexListingCursor], a
|
|
ld a, [wDexListingScrollOffset]
|
|
ld [wBackupDexListingPage], a
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, .up
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, .down
|
|
and a
|
|
ret
|
|
|
|
.up
|
|
ld a, [wDexListingHeight]
|
|
ld d, a
|
|
ld a, [wDexListingEnd]
|
|
ld e, a
|
|
call Pokedex_ListingMoveCursorUp
|
|
jr nc, .nope
|
|
call Pokedex_GetSelectedMon
|
|
call Pokedex_CheckSeen
|
|
jr nz, .yep
|
|
jr .up
|
|
|
|
.down
|
|
ld a, [wDexListingHeight]
|
|
ld d, a
|
|
ld a, [wDexListingEnd]
|
|
ld e, a
|
|
call Pokedex_ListingMoveCursorDown
|
|
jr nc, .nope
|
|
call Pokedex_GetSelectedMon
|
|
call Pokedex_CheckSeen
|
|
jr nz, .yep
|
|
jr .down
|
|
|
|
.yep
|
|
scf
|
|
ret
|
|
|
|
.nope
|
|
ld a, [wBackupDexListingCursor]
|
|
ld [wDexListingCursor], a
|
|
ld a, [wBackupDexListingPage]
|
|
ld [wDexListingScrollOffset], a
|
|
and a
|
|
ret
|
|
|
|
Pokedex_ListingHandleDPadInput:
|
|
; Handles D-pad input for a list of Pokémon.
|
|
ld a, [wDexListingHeight]
|
|
ld d, a
|
|
ld a, [wDexListingEnd]
|
|
ld e, a
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, Pokedex_ListingMoveCursorUp
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, Pokedex_ListingMoveCursorDown
|
|
ld a, d
|
|
cp e
|
|
jr nc, Pokedex_ListingPosStayedSame
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, Pokedex_ListingMoveUpOnePage
|
|
ld a, [hl]
|
|
and D_RIGHT
|
|
jr nz, Pokedex_ListingMoveDownOnePage
|
|
jr Pokedex_ListingPosStayedSame
|
|
|
|
Pokedex_ListingMoveCursorUp:
|
|
ld hl, wDexListingCursor
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .try_scrolling
|
|
dec [hl]
|
|
jr Pokedex_ListingPosChanged
|
|
.try_scrolling
|
|
ld hl, wDexListingScrollOffset
|
|
ld a, [hl]
|
|
and a
|
|
jr z, Pokedex_ListingPosStayedSame
|
|
dec [hl]
|
|
jr Pokedex_ListingPosChanged
|
|
|
|
Pokedex_ListingMoveCursorDown:
|
|
ld hl, wDexListingCursor
|
|
ld a, [hl]
|
|
inc a
|
|
cp e
|
|
jr nc, Pokedex_ListingPosStayedSame
|
|
cp d
|
|
jr nc, .try_scrolling
|
|
inc [hl]
|
|
jr Pokedex_ListingPosChanged
|
|
.try_scrolling
|
|
ld hl, wDexListingScrollOffset
|
|
add [hl]
|
|
cp e
|
|
jr nc, Pokedex_ListingPosStayedSame
|
|
inc [hl]
|
|
jr Pokedex_ListingPosChanged
|
|
|
|
Pokedex_ListingMoveUpOnePage:
|
|
ld hl, wDexListingScrollOffset
|
|
ld a, [hl]
|
|
and a
|
|
jr z, Pokedex_ListingPosStayedSame
|
|
cp d
|
|
jr nc, .not_near_top
|
|
; If we're already less than page away from the top, go to the top.
|
|
xor a
|
|
ld [hl], a
|
|
jr Pokedex_ListingPosChanged
|
|
.not_near_top
|
|
sub d
|
|
ld [hl], a
|
|
jr Pokedex_ListingPosChanged
|
|
|
|
Pokedex_ListingMoveDownOnePage:
|
|
; When moving down a page, the return value always report a change in position.
|
|
ld hl, wDexListingScrollOffset
|
|
ld a, d
|
|
add a
|
|
add [hl]
|
|
jr c, .near_bottom
|
|
cp e
|
|
jr c, .not_near_bottom
|
|
.near_bottom
|
|
ld a, e
|
|
sub d
|
|
ld [hl], a
|
|
jr Pokedex_ListingPosChanged
|
|
.not_near_bottom
|
|
ld a, [hl]
|
|
add d
|
|
ld [hl], a
|
|
jr Pokedex_ListingPosChanged
|
|
|
|
Pokedex_ListingPosStayedSame:
|
|
and a
|
|
ret
|
|
|
|
Pokedex_ListingPosChanged:
|
|
scf
|
|
ret
|
|
|
|
Pokedex_FillColumn:
|
|
; Fills a column starting at HL, going downwards.
|
|
; B is the height of the column and A is the tile it's filled with.
|
|
push de
|
|
ld de, SCREEN_WIDTH
|
|
.loop
|
|
ld [hl], a
|
|
add hl, de
|
|
dec b
|
|
jr nz, .loop
|
|
pop de
|
|
ret
|
|
|
|
Pokedex_DrawMainScreenBG:
|
|
; Draws the left sidebar and the bottom bar on the main screen.
|
|
hlcoord 0, 17
|
|
ld de, String_START_SEARCH
|
|
call Pokedex_PlaceString
|
|
ld a, $32
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
call ByteFill
|
|
hlcoord 0, 0
|
|
lb bc, 7, 7
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 0, 9
|
|
lb bc, 6, 7
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 1, 11
|
|
ld de, String_SEEN
|
|
call Pokedex_PlaceString
|
|
ld hl, wPokedexSeen
|
|
ld b, wEndPokedexSeen - wPokedexSeen
|
|
call CountSetBits
|
|
ld de, wNumSetBits
|
|
hlcoord 5, 12
|
|
lb bc, 1, 3
|
|
call PrintNum
|
|
hlcoord 1, 14
|
|
ld de, String_OWN
|
|
call Pokedex_PlaceString
|
|
ld hl, wPokedexCaught
|
|
ld b, wEndPokedexCaught - wPokedexCaught
|
|
call CountSetBits
|
|
ld de, wNumSetBits
|
|
hlcoord 5, 15
|
|
lb bc, 1, 3
|
|
call PrintNum
|
|
hlcoord 1, 17
|
|
ld de, String_SELECT_OPTION
|
|
call Pokedex_PlaceString
|
|
hlcoord 8, 1
|
|
ld b, 7
|
|
ld a, $5a
|
|
call Pokedex_FillColumn
|
|
hlcoord 8, 10
|
|
ld b, 6
|
|
ld a, $5a
|
|
call Pokedex_FillColumn
|
|
hlcoord 8, 0
|
|
ld [hl], $59
|
|
hlcoord 8, 8
|
|
ld [hl], $53
|
|
hlcoord 8, 9
|
|
ld [hl], $54
|
|
hlcoord 8, 16
|
|
ld [hl], $5b
|
|
call Pokedex_PlaceFrontpicTopLeftCorner
|
|
ret
|
|
|
|
String_SEEN:
|
|
db "SEEN", -1
|
|
String_OWN:
|
|
db "OWN", -1
|
|
String_SELECT_OPTION:
|
|
db $3b, $48, $49, $4a, $44, $45, $46, $47 ; SELECT > OPTION
|
|
; fallthrough
|
|
String_START_SEARCH:
|
|
db $3c, $3b, $41, $42, $43, $4b, $4c, $4d, $4e, $3c, -1 ; START > SEARCH
|
|
|
|
Pokedex_DrawDexEntryScreenBG:
|
|
call Pokedex_FillBackgroundColor2
|
|
hlcoord 0, 0
|
|
lb bc, 15, 18
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 19, 0
|
|
ld [hl], $34
|
|
hlcoord 19, 1
|
|
ld a, " "
|
|
ld b, 15
|
|
call Pokedex_FillColumn
|
|
ld [hl], $39
|
|
hlcoord 1, 10
|
|
ld bc, 19
|
|
ld a, $61
|
|
call ByteFill
|
|
hlcoord 1, 17
|
|
ld bc, 18
|
|
ld a, " "
|
|
call ByteFill
|
|
hlcoord 9, 7
|
|
ld de, .Height
|
|
call Pokedex_PlaceString
|
|
hlcoord 9, 9
|
|
ld de, .Weight
|
|
call Pokedex_PlaceString
|
|
hlcoord 0, 17
|
|
ld de, .MenuItems
|
|
call Pokedex_PlaceString
|
|
call Pokedex_PlaceFrontpicTopLeftCorner
|
|
ret
|
|
|
|
.Unused:
|
|
db $5c, $5d, -1 ; No.
|
|
.Height:
|
|
db "HT ?", $5e, "??", $5f, -1 ; HT ?'??"
|
|
.Weight:
|
|
db "WT ???lb", -1 ; WT ???lb
|
|
.MenuItems:
|
|
db $3b, " PAGE AREA CRY PRNT", -1
|
|
|
|
Pokedex_DrawOptionScreenBG:
|
|
call Pokedex_FillBackgroundColor2
|
|
hlcoord 0, 2
|
|
lb bc, 8, 18
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 0, 12
|
|
lb bc, 4, 18
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 0, 1
|
|
ld de, .Title
|
|
call Pokedex_PlaceString
|
|
hlcoord 3, 4
|
|
ld de, .Modes
|
|
call PlaceString
|
|
ld a, [wUnlockedUnownMode]
|
|
and a
|
|
ret z
|
|
hlcoord 3, 10
|
|
ld de, .UnownMode
|
|
call PlaceString
|
|
ret
|
|
|
|
.Title:
|
|
db $3b, " OPTION ", $3c, -1
|
|
|
|
.Modes:
|
|
db "NEW #DEX MODE"
|
|
next "OLD #DEX MODE"
|
|
next "A to Z MODE"
|
|
db "@"
|
|
|
|
.UnownMode:
|
|
db "UNOWN MODE@"
|
|
|
|
Pokedex_DrawSearchScreenBG:
|
|
call Pokedex_FillBackgroundColor2
|
|
hlcoord 0, 2
|
|
lb bc, 14, 18
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 0, 1
|
|
ld de, .Title
|
|
call Pokedex_PlaceString
|
|
hlcoord 8, 4
|
|
ld de, .TypeLeftRightArrows
|
|
call Pokedex_PlaceString
|
|
hlcoord 8, 6
|
|
ld de, .TypeLeftRightArrows
|
|
call Pokedex_PlaceString
|
|
hlcoord 3, 4
|
|
ld de, .Types
|
|
call PlaceString
|
|
hlcoord 3, 13
|
|
ld de, .Menu
|
|
call PlaceString
|
|
ret
|
|
|
|
.Title:
|
|
db $3b, " SEARCH ", $3c, -1
|
|
|
|
.TypeLeftRightArrows:
|
|
db $3d, " ", $3e, -1
|
|
|
|
.Types:
|
|
db "TYPE1"
|
|
next "TYPE2"
|
|
db "@"
|
|
|
|
.Menu:
|
|
db "BEGIN SEARCH!!"
|
|
next "CANCEL"
|
|
db "@"
|
|
|
|
Pokedex_DrawSearchResultsScreenBG:
|
|
call Pokedex_FillBackgroundColor2
|
|
hlcoord 0, 0
|
|
lb bc, 7, 7
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 0, 11
|
|
lb bc, 5, 18
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 1, 12
|
|
ld de, .BottomWindowText
|
|
call PlaceString
|
|
ld de, wDexSearchResultCount
|
|
hlcoord 1, 16
|
|
lb bc, 1, 3
|
|
call PrintNum
|
|
hlcoord 8, 0
|
|
ld [hl], $59
|
|
hlcoord 8, 1
|
|
ld b, 7
|
|
ld a, $5a
|
|
call Pokedex_FillColumn
|
|
hlcoord 8, 8
|
|
ld [hl], $53
|
|
hlcoord 8, 9
|
|
ld [hl], $69
|
|
hlcoord 8, 10
|
|
ld [hl], $6a
|
|
call Pokedex_PlaceFrontpicTopLeftCorner
|
|
ret
|
|
|
|
.BottomWindowText:
|
|
db "SEARCH RESULTS"
|
|
next " TYPE"
|
|
next " FOUND!"
|
|
db "@"
|
|
|
|
Pokedex_PlaceSearchResultsTypeStrings:
|
|
ld a, [wDexSearchMonType1]
|
|
hlcoord 0, 14
|
|
call Pokedex_PlaceTypeString
|
|
ld a, [wDexSearchMonType1]
|
|
ld b, a
|
|
ld a, [wDexSearchMonType2]
|
|
and a
|
|
jr z, .done
|
|
cp b
|
|
jr z, .done
|
|
hlcoord 2, 15
|
|
call Pokedex_PlaceTypeString
|
|
hlcoord 1, 15
|
|
ld [hl], "/"
|
|
.done
|
|
ret
|
|
|
|
Pokedex_DrawUnownModeBG:
|
|
call Pokedex_FillBackgroundColor2
|
|
hlcoord 2, 1
|
|
lb bc, 10, 13
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 2, 14
|
|
lb bc, 1, 13
|
|
call Pokedex_PlaceBorder
|
|
hlcoord 2, 15
|
|
ld [hl], $3d
|
|
hlcoord 16, 15
|
|
ld [hl], $3e
|
|
hlcoord 6, 5
|
|
call Pokedex_PlaceFrontpicAtHL
|
|
ld de, 0
|
|
ld b, 0
|
|
ld c, NUM_UNOWN
|
|
.loop
|
|
ld hl, wUnownDex
|
|
add hl, de
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .done
|
|
push af
|
|
ld hl, UnownModeLetterAndCursorCoords
|
|
rept 4
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
pop af
|
|
add FIRST_UNOWN_CHAR - 1 ; Unown A
|
|
ld [hl], a
|
|
inc de
|
|
inc b
|
|
dec c
|
|
jr nz, .loop
|
|
.done
|
|
ld a, b
|
|
ld [wDexUnownCount], a
|
|
ret
|
|
|
|
UnownModeLetterAndCursorCoords:
|
|
; entries correspond to Unown forms
|
|
; letter, cursor
|
|
dwcoord 4,11, 3,11 ; A
|
|
dwcoord 4,10, 3,10 ; B
|
|
dwcoord 4, 9, 3, 9 ; C
|
|
dwcoord 4, 8, 3, 8 ; D
|
|
dwcoord 4, 7, 3, 7 ; E
|
|
dwcoord 4, 6, 3, 6 ; F
|
|
dwcoord 4, 5, 3, 5 ; G
|
|
dwcoord 4, 4, 3, 4 ; H
|
|
dwcoord 4, 3, 3, 2 ; I
|
|
dwcoord 5, 3, 5, 2 ; J
|
|
dwcoord 6, 3, 6, 2 ; K
|
|
dwcoord 7, 3, 7, 2 ; L
|
|
dwcoord 8, 3, 8, 2 ; M
|
|
dwcoord 9, 3, 9, 2 ; N
|
|
dwcoord 10, 3, 10, 2 ; O
|
|
dwcoord 11, 3, 11, 2 ; P
|
|
dwcoord 12, 3, 12, 2 ; Q
|
|
dwcoord 13, 3, 13, 2 ; R
|
|
dwcoord 14, 3, 15, 2 ; S
|
|
dwcoord 14, 4, 15, 4 ; T
|
|
dwcoord 14, 5, 15, 5 ; U
|
|
dwcoord 14, 6, 15, 6 ; V
|
|
dwcoord 14, 7, 15, 7 ; W
|
|
dwcoord 14, 8, 15, 8 ; X
|
|
dwcoord 14, 9, 15, 9 ; Y
|
|
dwcoord 14,10, 15,10 ; Z
|
|
|
|
Pokedex_FillBackgroundColor2:
|
|
hlcoord 0, 0
|
|
ld a, $32
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
call ByteFill
|
|
ret
|
|
|
|
Pokedex_PlaceFrontpicTopLeftCorner:
|
|
hlcoord 1, 1
|
|
Pokedex_PlaceFrontpicAtHL:
|
|
xor a
|
|
ld b, $7
|
|
.row
|
|
ld c, $7
|
|
push af
|
|
push hl
|
|
.col
|
|
ld [hli], a
|
|
add $7
|
|
dec c
|
|
jr nz, .col
|
|
pop hl
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
pop af
|
|
inc a
|
|
dec b
|
|
jr nz, .row
|
|
ret
|
|
|
|
Pokedex_PlaceString:
|
|
.loop
|
|
ld a, [de]
|
|
cp -1
|
|
ret z
|
|
inc de
|
|
ld [hli], a
|
|
jr .loop
|
|
|
|
Pokedex_PlaceBorder:
|
|
push hl
|
|
ld a, $33
|
|
ld [hli], a
|
|
ld d, $34
|
|
call .FillRow
|
|
ld a, $35
|
|
ld [hl], a
|
|
pop hl
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
.loop
|
|
push hl
|
|
ld a, $36
|
|
ld [hli], a
|
|
ld d, $7f
|
|
call .FillRow
|
|
ld a, $37
|
|
ld [hl], a
|
|
pop hl
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
dec b
|
|
jr nz, .loop
|
|
ld a, $38
|
|
ld [hli], a
|
|
ld d, $39
|
|
call .FillRow
|
|
ld a, $3a
|
|
ld [hl], a
|
|
ret
|
|
|
|
.FillRow:
|
|
ld e, c
|
|
.row_loop
|
|
ld a, e
|
|
and a
|
|
ret z
|
|
ld a, d
|
|
ld [hli], a
|
|
dec e
|
|
jr .row_loop
|
|
|
|
Pokedex_PrintListing:
|
|
; Prints the list of Pokémon on the main Pokédex screen.
|
|
|
|
; This check is completely useless.
|
|
ld a, [wCurDexMode]
|
|
cp DEXMODE_OLD
|
|
jr z, .okay
|
|
ld c, 11
|
|
jr .resume
|
|
.okay
|
|
ld c, 11
|
|
; End useless check
|
|
|
|
.resume
|
|
; Clear (2 * [wDexListingHeight] + 1) by 11 box starting at 0,1
|
|
hlcoord 0, 1
|
|
ld a, [wDexListingHeight]
|
|
add a
|
|
inc a
|
|
ld b, a
|
|
ld a, " "
|
|
call Pokedex_FillBox
|
|
|
|
; Load de with wPokedexOrder + [wDexListingScrollOffset]
|
|
ld a, [wDexListingScrollOffset]
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, wPokedexOrder
|
|
add hl, de
|
|
ld e, l
|
|
ld d, h
|
|
hlcoord 0, 2
|
|
ld a, [wDexListingHeight]
|
|
.loop
|
|
push af
|
|
ld a, [de]
|
|
ld [wTempSpecies], a ; also sets wNamedObjectIndexBuffer
|
|
push de
|
|
push hl
|
|
call .PrintEntry
|
|
pop hl
|
|
ld de, 2 * SCREEN_WIDTH
|
|
add hl, de
|
|
pop de
|
|
inc de
|
|
pop af
|
|
dec a
|
|
jr nz, .loop
|
|
call Pokedex_LoadSelectedMonTiles
|
|
ret
|
|
|
|
.PrintEntry:
|
|
; Prints one entry in the list of Pokémon on the main Pokédex screen.
|
|
and a
|
|
ret z
|
|
call Pokedex_PrintNumberIfOldMode
|
|
call Pokedex_PlaceDefaultStringIfNotSeen
|
|
ret c
|
|
call Pokedex_PlaceCaughtSymbolIfCaught
|
|
push hl
|
|
call GetPokemonName
|
|
pop hl
|
|
call PlaceString
|
|
ret
|
|
|
|
Pokedex_PrintNumberIfOldMode:
|
|
ld a, [wCurDexMode]
|
|
cp DEXMODE_OLD
|
|
jr z, .printnum
|
|
ret
|
|
|
|
.printnum
|
|
push hl
|
|
ld de, -SCREEN_WIDTH
|
|
add hl, de
|
|
ld de, wTempSpecies
|
|
lb bc, PRINTNUM_LEADINGZEROS | 1, 3
|
|
call PrintNum
|
|
pop hl
|
|
ret
|
|
|
|
Pokedex_PlaceCaughtSymbolIfCaught:
|
|
call Pokedex_CheckCaught
|
|
jr nz, .place_caught_symbol
|
|
inc hl
|
|
ret
|
|
|
|
.place_caught_symbol
|
|
ld a, $4f
|
|
ld [hli], a
|
|
ret
|
|
|
|
Pokedex_PlaceDefaultStringIfNotSeen:
|
|
call Pokedex_CheckSeen
|
|
ret nz
|
|
inc hl
|
|
ld de, .NameNotSeen
|
|
call PlaceString
|
|
scf
|
|
ret
|
|
|
|
.NameNotSeen:
|
|
db "-----@"
|
|
|
|
Pokedex_DrawFootprint:
|
|
hlcoord 18, 1
|
|
ld a, $62
|
|
ld [hli], a
|
|
inc a
|
|
ld [hl], a
|
|
hlcoord 18, 2
|
|
ld a, $64
|
|
ld [hli], a
|
|
inc a
|
|
ld [hl], a
|
|
ret
|
|
|
|
Pokedex_GetSelectedMon:
|
|
; Gets the species of the currently selected Pokémon. This corresponds to the
|
|
; position of the cursor in the main listing, but this function can be used
|
|
; on all Pokédex screens.
|
|
ld a, [wDexListingCursor]
|
|
ld hl, wDexListingScrollOffset
|
|
add [hl]
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, wPokedexOrder
|
|
add hl, de
|
|
ld a, [hl]
|
|
ld [wTempSpecies], a
|
|
ret
|
|
|
|
Pokedex_CheckCaught:
|
|
push de
|
|
push hl
|
|
ld a, [wTempSpecies]
|
|
dec a
|
|
call CheckCaughtMon
|
|
pop hl
|
|
pop de
|
|
ret
|
|
|
|
Pokedex_CheckSeen:
|
|
push de
|
|
push hl
|
|
ld a, [wTempSpecies]
|
|
dec a
|
|
call CheckSeenMon
|
|
pop hl
|
|
pop de
|
|
ret
|
|
|
|
Pokedex_OrderMonsByMode:
|
|
ld hl, wPokedexOrder
|
|
ld bc, wPokedexOrderEnd - wPokedexOrder
|
|
xor a
|
|
call ByteFill
|
|
ld a, [wCurDexMode]
|
|
ld hl, .Jumptable
|
|
call Pokedex_LoadPointer
|
|
jp hl
|
|
|
|
.Jumptable:
|
|
dw .NewMode
|
|
dw .OldMode
|
|
dw Pokedex_ABCMode
|
|
|
|
.NewMode:
|
|
ld de, NewPokedexOrder
|
|
ld hl, wPokedexOrder
|
|
ld c, NUM_POKEMON
|
|
.loopnew
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .loopnew
|
|
call .FindLastSeen
|
|
ret
|
|
|
|
.OldMode:
|
|
ld hl, wPokedexOrder
|
|
ld a, $1
|
|
ld c, NUM_POKEMON
|
|
.loopold
|
|
ld [hli], a
|
|
inc a
|
|
dec c
|
|
jr nz, .loopold
|
|
call .FindLastSeen
|
|
ret
|
|
|
|
.FindLastSeen:
|
|
ld hl, wPokedexOrder + NUM_POKEMON - 1
|
|
ld d, NUM_POKEMON
|
|
ld e, d
|
|
.loopfindend
|
|
ld a, [hld]
|
|
ld [wTempSpecies], a
|
|
call Pokedex_CheckSeen
|
|
jr nz, .foundend
|
|
dec d
|
|
dec e
|
|
jr nz, .loopfindend
|
|
.foundend
|
|
ld a, d
|
|
ld [wDexListingEnd], a
|
|
ret
|
|
|
|
Pokedex_ABCMode:
|
|
xor a
|
|
ld [wDexListingEnd], a
|
|
ld hl, wPokedexOrder
|
|
ld de, AlphabeticalPokedexOrder
|
|
ld c, NUM_POKEMON
|
|
.loop1abc
|
|
push bc
|
|
ld a, [de]
|
|
ld [wTempSpecies], a
|
|
call Pokedex_CheckSeen
|
|
jr z, .skipabc
|
|
ld a, [wTempSpecies]
|
|
ld [hli], a
|
|
ld a, [wDexListingEnd]
|
|
inc a
|
|
ld [wDexListingEnd], a
|
|
|
|
.skipabc
|
|
inc de
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop1abc
|
|
ld a, [wDexListingEnd]
|
|
ld c, 0
|
|
.loop2abc
|
|
cp NUM_POKEMON
|
|
jr z, .doneabc
|
|
ld [hl], c
|
|
inc hl
|
|
inc a
|
|
jr .loop2abc
|
|
|
|
.doneabc
|
|
ret
|
|
|
|
INCLUDE "data/pokemon/dex_order_alpha.asm"
|
|
|
|
INCLUDE "data/pokemon/dex_order_new.asm"
|
|
|
|
Pokedex_DisplayModeDescription:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
hlcoord 0, 12
|
|
lb bc, 4, 18
|
|
call Pokedex_PlaceBorder
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
ld hl, .Modes
|
|
call Pokedex_LoadPointer
|
|
ld e, l
|
|
ld d, h
|
|
hlcoord 1, 14
|
|
call PlaceString
|
|
ld a, $1
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
.Modes:
|
|
dw .NewMode
|
|
dw .OldMode
|
|
dw .ABCMode
|
|
dw .UnownMode
|
|
|
|
.NewMode:
|
|
db "<PK><MN> are listed by"
|
|
next "evolution type.@"
|
|
|
|
.OldMode:
|
|
db "<PK><MN> are listed by"
|
|
next "official type.@"
|
|
|
|
.ABCMode:
|
|
db "<PK><MN> are listed"
|
|
next "alphabetically.@"
|
|
|
|
.UnownMode:
|
|
db "UNOWN are listed"
|
|
next "in catching order.@"
|
|
|
|
Pokedex_DisplayChangingModesMessage:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
hlcoord 0, 12
|
|
lb bc, 4, 18
|
|
call Pokedex_PlaceBorder
|
|
ld de, String_ChangingModesPleaseWait
|
|
hlcoord 1, 14
|
|
call PlaceString
|
|
ld a, $1
|
|
ldh [hBGMapMode], a
|
|
ld c, 64
|
|
call DelayFrames
|
|
ld de, SFX_CHANGE_DEX_MODE
|
|
call PlaySFX
|
|
ld c, 64
|
|
call DelayFrames
|
|
ret
|
|
|
|
String_ChangingModesPleaseWait:
|
|
db "Changing modes."
|
|
next "Please wait.@"
|
|
|
|
Pokedex_UpdateSearchMonType:
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
cp 2
|
|
jr nc, .no_change
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, Pokedex_PrevSearchMonType
|
|
ld a, [hl]
|
|
and D_RIGHT
|
|
jr nz, Pokedex_NextSearchMonType
|
|
.no_change
|
|
and a
|
|
ret
|
|
|
|
Pokedex_PrevSearchMonType:
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
and a
|
|
jr nz, .type2
|
|
|
|
ld hl, wDexSearchMonType1
|
|
ld a, [hl]
|
|
cp 1
|
|
jr z, .wrap_around
|
|
dec [hl]
|
|
jr .done
|
|
|
|
.type2
|
|
ld hl, wDexSearchMonType2
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .wrap_around
|
|
dec [hl]
|
|
jr .done
|
|
|
|
.wrap_around
|
|
ld [hl], NUM_TYPES - 1
|
|
|
|
.done
|
|
scf
|
|
ret
|
|
|
|
Pokedex_NextSearchMonType:
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
and a
|
|
jr nz, .type2
|
|
|
|
ld hl, wDexSearchMonType1
|
|
ld a, [hl]
|
|
cp NUM_TYPES - 1
|
|
jr nc, .type1_wrap_around
|
|
inc [hl]
|
|
jr .done
|
|
.type1_wrap_around
|
|
ld [hl], 1
|
|
jr .done
|
|
|
|
.type2
|
|
ld hl, wDexSearchMonType2
|
|
ld a, [hl]
|
|
cp NUM_TYPES - 1
|
|
jr nc, .type2_wrap_around
|
|
inc [hl]
|
|
jr .done
|
|
.type2_wrap_around
|
|
ld [hl], 0
|
|
|
|
.done
|
|
scf
|
|
ret
|
|
|
|
Pokedex_PlaceSearchScreenTypeStrings:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
hlcoord 9, 3
|
|
lb bc, 4, 8
|
|
ld a, " "
|
|
call Pokedex_FillBox
|
|
ld a, [wDexSearchMonType1]
|
|
hlcoord 9, 4
|
|
call Pokedex_PlaceTypeString
|
|
ld a, [wDexSearchMonType2]
|
|
hlcoord 9, 6
|
|
call Pokedex_PlaceTypeString
|
|
ld a, $1
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
Pokedex_PlaceTypeString:
|
|
push hl
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, PokedexTypeSearchStrings
|
|
rept 9
|
|
add hl, de
|
|
endr
|
|
ld e, l
|
|
ld d, h
|
|
pop hl
|
|
call PlaceString
|
|
ret
|
|
|
|
INCLUDE "data/types/search_strings.asm"
|
|
|
|
Pokedex_SearchForMons:
|
|
ld a, [wDexSearchMonType2]
|
|
and a
|
|
call nz, .Search
|
|
ld a, [wDexSearchMonType1]
|
|
and a
|
|
call nz, .Search
|
|
ret
|
|
|
|
.Search:
|
|
dec a
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, PokedexTypeSearchConversionTable
|
|
add hl, de
|
|
ld a, [hl]
|
|
ld [wDexConvertedMonType], a
|
|
ld hl, wPokedexOrder
|
|
ld de, wPokedexOrder
|
|
ld c, NUM_POKEMON
|
|
xor a
|
|
ld [wDexSearchResultCount], a
|
|
.loop
|
|
push bc
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .next_mon
|
|
ld [wTempSpecies], a
|
|
ld [wCurSpecies], a
|
|
call Pokedex_CheckCaught
|
|
jr z, .next_mon
|
|
push hl
|
|
push de
|
|
call GetBaseData
|
|
pop de
|
|
pop hl
|
|
ld a, [wDexConvertedMonType]
|
|
ld b, a
|
|
ld a, [wBaseType1]
|
|
cp b
|
|
jr z, .match_found
|
|
ld a, [wBaseType2]
|
|
cp b
|
|
jr nz, .next_mon
|
|
|
|
.match_found
|
|
ld a, [wTempSpecies]
|
|
ld [de], a
|
|
inc de
|
|
ld a, [wDexSearchResultCount]
|
|
inc a
|
|
ld [wDexSearchResultCount], a
|
|
|
|
.next_mon
|
|
inc hl
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop
|
|
|
|
ld l, e
|
|
ld h, d
|
|
ld a, [wDexSearchResultCount]
|
|
ld c, 0
|
|
|
|
.zero_remaining_mons
|
|
cp NUM_POKEMON
|
|
jr z, .done
|
|
ld [hl], c
|
|
inc hl
|
|
inc a
|
|
jr .zero_remaining_mons
|
|
|
|
.done
|
|
ret
|
|
|
|
INCLUDE "data/types/search_types.asm"
|
|
|
|
Pokedex_DisplayTypeNotFoundMessage:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
hlcoord 0, 12
|
|
lb bc, 4, 18
|
|
call Pokedex_PlaceBorder
|
|
ld de, .TypeNotFound
|
|
hlcoord 1, 14
|
|
call PlaceString
|
|
ld a, $1
|
|
ldh [hBGMapMode], a
|
|
ld c, $80
|
|
call DelayFrames
|
|
ret
|
|
|
|
.TypeNotFound:
|
|
db "The specified type"
|
|
next "was not found.@"
|
|
|
|
Pokedex_UpdateCursorOAM:
|
|
ld a, [wCurDexMode]
|
|
cp DEXMODE_OLD
|
|
jp z, Pokedex_PutOldModeCursorOAM
|
|
call Pokedex_PutNewModeABCModeCursorOAM
|
|
call Pokedex_PutScrollbarOAM
|
|
ret
|
|
|
|
Pokedex_PutOldModeCursorOAM:
|
|
ld hl, .CursorOAM
|
|
ld a, [wDexListingCursor]
|
|
or a
|
|
jr nz, .okay
|
|
ld hl, .CursorAtTopOAM
|
|
.okay
|
|
call Pokedex_LoadCursorOAM
|
|
ret
|
|
|
|
.CursorOAM:
|
|
dbsprite 9, 3, -1, 0, $30, 7
|
|
dbsprite 9, 2, -1, 0, $31, 7
|
|
dbsprite 10, 2, -1, 0, $32, 7
|
|
dbsprite 11, 2, -1, 0, $32, 7
|
|
dbsprite 12, 2, -1, 0, $32, 7
|
|
dbsprite 13, 2, -1, 0, $33, 7
|
|
dbsprite 16, 2, -2, 0, $33, 7 | X_FLIP
|
|
dbsprite 17, 2, -2, 0, $32, 7 | X_FLIP
|
|
dbsprite 18, 2, -2, 0, $32, 7 | X_FLIP
|
|
dbsprite 19, 2, -2, 0, $32, 7 | X_FLIP
|
|
dbsprite 20, 2, -2, 0, $31, 7 | X_FLIP
|
|
dbsprite 20, 3, -2, 0, $30, 7 | X_FLIP
|
|
dbsprite 9, 4, -1, 0, $30, 7 | Y_FLIP
|
|
dbsprite 9, 5, -1, 0, $31, 7 | Y_FLIP
|
|
dbsprite 10, 5, -1, 0, $32, 7 | Y_FLIP
|
|
dbsprite 11, 5, -1, 0, $32, 7 | Y_FLIP
|
|
dbsprite 12, 5, -1, 0, $32, 7 | Y_FLIP
|
|
dbsprite 13, 5, -1, 0, $33, 7 | Y_FLIP
|
|
dbsprite 16, 5, -2, 0, $33, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 17, 5, -2, 0, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 18, 5, -2, 0, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 19, 5, -2, 0, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 20, 5, -2, 0, $31, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 20, 4, -2, 0, $30, 7 | X_FLIP | Y_FLIP
|
|
db -1
|
|
|
|
.CursorAtTopOAM:
|
|
; OAM data for when the cursor is at the top of the list. The tiles at the top
|
|
; are cut off so they don't show up outside the list area.
|
|
dbsprite 9, 3, -1, 0, $30, 7
|
|
dbsprite 9, 2, -1, 0, $34, 7
|
|
dbsprite 10, 2, -1, 0, $35, 7
|
|
dbsprite 11, 2, -1, 0, $35, 7
|
|
dbsprite 12, 2, -1, 0, $35, 7
|
|
dbsprite 13, 2, -1, 0, $36, 7
|
|
dbsprite 16, 2, -2, 0, $36, 7 | X_FLIP
|
|
dbsprite 17, 2, -2, 0, $35, 7 | X_FLIP
|
|
dbsprite 18, 2, -2, 0, $35, 7 | X_FLIP
|
|
dbsprite 19, 2, -2, 0, $35, 7 | X_FLIP
|
|
dbsprite 20, 2, -2, 0, $34, 7 | X_FLIP
|
|
dbsprite 20, 3, -2, 0, $30, 7 | X_FLIP
|
|
dbsprite 9, 4, -1, 0, $30, 7 | Y_FLIP
|
|
dbsprite 9, 5, -1, 0, $31, 7 | Y_FLIP
|
|
dbsprite 10, 5, -1, 0, $32, 7 | Y_FLIP
|
|
dbsprite 11, 5, -1, 0, $32, 7 | Y_FLIP
|
|
dbsprite 12, 5, -1, 0, $32, 7 | Y_FLIP
|
|
dbsprite 13, 5, -1, 0, $33, 7 | Y_FLIP
|
|
dbsprite 16, 5, -2, 0, $33, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 17, 5, -2, 0, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 18, 5, -2, 0, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 19, 5, -2, 0, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 20, 5, -2, 0, $31, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 20, 4, -2, 0, $30, 7 | X_FLIP | Y_FLIP
|
|
db -1
|
|
|
|
Pokedex_PutNewModeABCModeCursorOAM:
|
|
ld hl, .CursorOAM
|
|
call Pokedex_LoadCursorOAM
|
|
ret
|
|
|
|
.CursorOAM:
|
|
dbsprite 9, 3, -1, 3, $30, 7
|
|
dbsprite 9, 2, -1, 3, $31, 7
|
|
dbsprite 10, 2, -1, 3, $32, 7
|
|
dbsprite 11, 2, -1, 3, $32, 7
|
|
dbsprite 12, 2, -1, 3, $33, 7
|
|
dbsprite 16, 2, 0, 3, $33, 7 | X_FLIP
|
|
dbsprite 17, 2, 0, 3, $32, 7 | X_FLIP
|
|
dbsprite 18, 2, 0, 3, $32, 7 | X_FLIP
|
|
dbsprite 19, 2, 0, 3, $31, 7 | X_FLIP
|
|
dbsprite 19, 3, 0, 3, $30, 7 | X_FLIP
|
|
dbsprite 9, 4, -1, 3, $30, 7 | Y_FLIP
|
|
dbsprite 9, 5, -1, 3, $31, 7 | Y_FLIP
|
|
dbsprite 10, 5, -1, 3, $32, 7 | Y_FLIP
|
|
dbsprite 11, 5, -1, 3, $32, 7 | Y_FLIP
|
|
dbsprite 12, 5, -1, 3, $33, 7 | Y_FLIP
|
|
dbsprite 16, 5, 0, 3, $33, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 17, 5, 0, 3, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 18, 5, 0, 3, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 19, 5, 0, 3, $31, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 19, 4, 0, 3, $30, 7 | X_FLIP | Y_FLIP
|
|
db -1
|
|
|
|
Pokedex_UpdateSearchResultsCursorOAM:
|
|
ld a, [wCurDexMode]
|
|
cp DEXMODE_OLD
|
|
jp z, Pokedex_PutOldModeCursorOAM
|
|
ld hl, .CursorOAM
|
|
call Pokedex_LoadCursorOAM
|
|
ret
|
|
|
|
.CursorOAM:
|
|
dbsprite 9, 3, -1, 3, $30, 7
|
|
dbsprite 9, 2, -1, 3, $31, 7
|
|
dbsprite 10, 2, -1, 3, $32, 7
|
|
dbsprite 11, 2, -1, 3, $32, 7
|
|
dbsprite 12, 2, -1, 3, $32, 7
|
|
dbsprite 13, 2, -1, 3, $33, 7
|
|
dbsprite 16, 2, -2, 3, $33, 7 | X_FLIP
|
|
dbsprite 17, 2, -2, 3, $32, 7 | X_FLIP
|
|
dbsprite 18, 2, -2, 3, $32, 7 | X_FLIP
|
|
dbsprite 19, 2, -2, 3, $32, 7 | X_FLIP
|
|
dbsprite 20, 2, -2, 3, $31, 7 | X_FLIP
|
|
dbsprite 20, 3, -2, 3, $30, 7 | X_FLIP
|
|
dbsprite 9, 4, -1, 3, $30, 7 | Y_FLIP
|
|
dbsprite 9, 5, -1, 3, $31, 7 | Y_FLIP
|
|
dbsprite 10, 5, -1, 3, $32, 7 | Y_FLIP
|
|
dbsprite 11, 5, -1, 3, $32, 7 | Y_FLIP
|
|
dbsprite 12, 5, -1, 3, $32, 7 | Y_FLIP
|
|
dbsprite 13, 5, -1, 3, $33, 7 | Y_FLIP
|
|
dbsprite 16, 5, -2, 3, $33, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 17, 5, -2, 3, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 18, 5, -2, 3, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 19, 5, -2, 3, $32, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 20, 5, -2, 3, $31, 7 | X_FLIP | Y_FLIP
|
|
dbsprite 20, 4, -2, 3, $30, 7 | X_FLIP | Y_FLIP
|
|
db -1
|
|
|
|
Pokedex_LoadCursorOAM:
|
|
ld de, wVirtualOAMSprite00
|
|
.loop
|
|
ld a, [hl]
|
|
cp -1
|
|
ret z
|
|
ld a, [wDexListingCursor]
|
|
and $7
|
|
swap a
|
|
add [hl] ; y
|
|
inc hl
|
|
ld [de], a
|
|
inc de
|
|
ld a, [hli] ; x
|
|
ld [de], a
|
|
inc de
|
|
ld a, [hli] ; tile id
|
|
ld [de], a
|
|
inc de
|
|
ld a, [hli] ; attributes
|
|
ld [de], a
|
|
inc de
|
|
jr .loop
|
|
|
|
Pokedex_PutScrollbarOAM:
|
|
; Writes the OAM data for the scrollbar in the new mode and ABC mode.
|
|
push de
|
|
ld a, [wDexListingEnd]
|
|
dec a
|
|
ld e, a
|
|
ld a, [wDexListingCursor]
|
|
ld hl, wDexListingScrollOffset
|
|
add [hl]
|
|
cp e
|
|
jr z, .max
|
|
ld hl, 0
|
|
ld bc, 121 ; max y - min y
|
|
call AddNTimes
|
|
ld e, l
|
|
ld d, h
|
|
ld b, 0
|
|
ld a, d
|
|
or e
|
|
jr z, .done
|
|
ld a, [wDexListingEnd]
|
|
ld c, a
|
|
.loop
|
|
ld a, e
|
|
sub c
|
|
ld e, a
|
|
ld a, d
|
|
sbc 0
|
|
ld d, a
|
|
jr c, .done
|
|
inc b
|
|
jr .loop
|
|
.max
|
|
ld b, 121 ; max y - min y
|
|
.done
|
|
ld a, 20 ; min y
|
|
add b
|
|
pop hl
|
|
ld [hli], a
|
|
ld a, 161 ; x
|
|
ld [hli], a
|
|
ld a, $0f ; tile id
|
|
ld [hli], a
|
|
ld [hl], 0 ; attributes
|
|
ret
|
|
|
|
Pokedex_InitArrowCursor:
|
|
xor a
|
|
ld [wDexArrowCursorPosIndex], a
|
|
ld [wDexArrowCursorDelayCounter], a
|
|
ld [wDexArrowCursorBlinkCounter], a
|
|
ret
|
|
|
|
Pokedex_MoveArrowCursor:
|
|
; bc = [de] - 1
|
|
ld a, [de]
|
|
ld b, a
|
|
inc de
|
|
ld a, [de]
|
|
dec a
|
|
ld c, a
|
|
inc de
|
|
call Pokedex_BlinkArrowCursor
|
|
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and D_LEFT | D_UP
|
|
and b
|
|
jr nz, .move_left_or_up
|
|
ld a, [hl]
|
|
and D_RIGHT | D_DOWN
|
|
and b
|
|
jr nz, .move_right_or_down
|
|
ld a, [hl]
|
|
and SELECT
|
|
and b
|
|
jr nz, .select
|
|
call Pokedex_ArrowCursorDelay
|
|
jr c, .no_action
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_LEFT | D_UP
|
|
and b
|
|
jr nz, .move_left_or_up
|
|
ld a, [hl]
|
|
and D_RIGHT | D_DOWN
|
|
and b
|
|
jr nz, .move_right_or_down
|
|
jr .no_action
|
|
|
|
.move_left_or_up
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
and a
|
|
jr z, .no_action
|
|
call Pokedex_GetArrowCursorPos
|
|
ld [hl], " "
|
|
ld hl, wDexArrowCursorPosIndex
|
|
dec [hl]
|
|
jr .update_cursor_pos
|
|
|
|
.move_right_or_down
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
cp c
|
|
jr nc, .no_action
|
|
call Pokedex_GetArrowCursorPos
|
|
ld [hl], " "
|
|
ld hl, wDexArrowCursorPosIndex
|
|
inc [hl]
|
|
|
|
.update_cursor_pos
|
|
call Pokedex_GetArrowCursorPos
|
|
ld [hl], "▶"
|
|
ld a, 12
|
|
ld [wDexArrowCursorDelayCounter], a
|
|
xor a
|
|
ld [wDexArrowCursorBlinkCounter], a
|
|
scf
|
|
ret
|
|
|
|
.no_action
|
|
and a
|
|
ret
|
|
|
|
.select
|
|
call Pokedex_GetArrowCursorPos
|
|
ld [hl], " "
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
cp c
|
|
jr c, .update
|
|
ld a, -1
|
|
.update
|
|
inc a
|
|
ld [wDexArrowCursorPosIndex], a
|
|
jr .update_cursor_pos
|
|
|
|
Pokedex_GetArrowCursorPos:
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
add a
|
|
ld l, a
|
|
ld h, 0
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ret
|
|
|
|
Pokedex_BlinkArrowCursor:
|
|
ld hl, wDexArrowCursorBlinkCounter
|
|
ld a, [hl]
|
|
inc [hl]
|
|
and $8
|
|
jr z, .blink_on
|
|
call Pokedex_GetArrowCursorPos
|
|
ld [hl], " "
|
|
ret
|
|
|
|
.blink_on
|
|
call Pokedex_GetArrowCursorPos
|
|
ld [hl], "▶"
|
|
ret
|
|
|
|
Pokedex_ArrowCursorDelay:
|
|
; Updates the delay counter set when moving the arrow cursor.
|
|
; Returns whether the delay is active in carry.
|
|
ld hl, wDexArrowCursorDelayCounter
|
|
ld a, [hl]
|
|
and a
|
|
ret z
|
|
|
|
dec [hl]
|
|
scf
|
|
ret
|
|
|
|
Pokedex_FillBox:
|
|
jp FillBoxWithByte
|
|
|
|
Pokedex_BlackOutBG:
|
|
; Make BG palettes black so that the BG becomes all black.
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wBGPals1)
|
|
ldh [rSVBK], a
|
|
ld hl, wBGPals1
|
|
ld bc, 8 palettes
|
|
xor a
|
|
call ByteFill
|
|
pop af
|
|
ldh [rSVBK], a
|
|
|
|
Pokedex_ApplyPrintPals:
|
|
ld a, $ff
|
|
call DmgToCgbBGPals
|
|
ld a, $ff
|
|
call DmgToCgbObjPal0
|
|
call DelayFrame
|
|
ret
|
|
|
|
Pokedex_GetSGBLayout:
|
|
ld b, a
|
|
call GetSGBLayout
|
|
|
|
Pokedex_ApplyUsualPals:
|
|
; This applies the palettes used for most Pokédex screens.
|
|
ld a, $e4
|
|
call DmgToCgbBGPals
|
|
ld a, $e0
|
|
call DmgToCgbObjPal0
|
|
ret
|
|
|
|
Pokedex_LoadPointer:
|
|
ld e, a
|
|
ld d, 0
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ret
|
|
|
|
Pokedex_LoadSelectedMonTiles:
|
|
; Loads the tiles of the currently selected Pokémon.
|
|
call Pokedex_GetSelectedMon
|
|
call Pokedex_CheckSeen
|
|
jr z, .QuestionMark
|
|
ld a, [wFirstUnownSeen]
|
|
ld [wUnownLetter], a
|
|
ld a, [wTempSpecies]
|
|
ld [wCurPartySpecies], a
|
|
call GetBaseData
|
|
ld de, vTiles2
|
|
predef GetMonFrontpic
|
|
ret
|
|
|
|
.QuestionMark:
|
|
ld a, BANK(sScratch)
|
|
call GetSRAMBank
|
|
farcall LoadQuestionMarkPic
|
|
ld hl, vTiles2
|
|
ld de, sScratch
|
|
ld c, 7 * 7
|
|
ldh a, [hROMBank]
|
|
ld b, a
|
|
call Get2bpp
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Pokedex_LoadCurrentFootprint:
|
|
call Pokedex_GetSelectedMon
|
|
|
|
Pokedex_LoadAnyFootprint:
|
|
ld a, [wTempSpecies]
|
|
dec a
|
|
and %11111000
|
|
srl a
|
|
srl a
|
|
srl a
|
|
ld e, 0
|
|
ld d, a
|
|
ld a, [wTempSpecies]
|
|
dec a
|
|
and %111
|
|
swap a ; * $10
|
|
ld l, a
|
|
ld h, 0
|
|
add hl, de
|
|
ld de, Footprints
|
|
add hl, de
|
|
|
|
push hl
|
|
ld e, l
|
|
ld d, h
|
|
ld hl, vTiles2 tile $62
|
|
lb bc, BANK(Footprints), 2
|
|
call Request1bpp
|
|
pop hl
|
|
|
|
; Whoever was editing footprints forgot to fix their
|
|
; tile editor. Now each bottom half is 8 tiles off.
|
|
ld de, 8 tiles
|
|
add hl, de
|
|
|
|
ld e, l
|
|
ld d, h
|
|
ld hl, vTiles2 tile $64
|
|
lb bc, BANK(Footprints), 2
|
|
call Request1bpp
|
|
|
|
ret
|
|
|
|
Pokedex_LoadGFX:
|
|
call DisableLCD
|
|
ld hl, vTiles2
|
|
ld bc, $31 tiles
|
|
xor a
|
|
call ByteFill
|
|
call Pokedex_LoadInvertedFont
|
|
call LoadFontsExtra
|
|
ld hl, vTiles2 tile $60
|
|
ld bc, $20 tiles
|
|
call Pokedex_InvertTiles
|
|
call Pokedex_CheckSGB
|
|
jr nz, .LoadPokedexLZ
|
|
farcall LoadSGBPokedexGFX
|
|
jr .LoadPokedexSlowpokeLZ
|
|
|
|
.LoadPokedexLZ:
|
|
ld hl, PokedexLZ
|
|
ld de, vTiles2 tile $31
|
|
call Decompress
|
|
|
|
.LoadPokedexSlowpokeLZ:
|
|
ld hl, PokedexSlowpokeLZ
|
|
ld de, vTiles0
|
|
call Decompress
|
|
ld a, 6
|
|
call SkipMusic
|
|
call EnableLCD
|
|
ret
|
|
|
|
Pokedex_LoadInvertedFont:
|
|
call LoadStandardFont
|
|
ld hl, vTiles1
|
|
ld bc, $80 tiles
|
|
|
|
Pokedex_InvertTiles:
|
|
.loop
|
|
ld a, [hl]
|
|
xor $ff
|
|
ld [hli], a
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .loop
|
|
ret
|
|
|
|
PokedexLZ:
|
|
INCBIN "gfx/pokedex/pokedex.2bpp.lz"
|
|
|
|
PokedexSlowpokeLZ:
|
|
INCBIN "gfx/pokedex/slowpoke.2bpp.lz"
|
|
|
|
Pokedex_CheckSGB:
|
|
ldh a, [hCGB]
|
|
or a
|
|
ret nz
|
|
ldh a, [hSGB]
|
|
dec a
|
|
ret
|
|
|
|
Pokedex_LoadUnownFont:
|
|
ld a, BANK(sScratch)
|
|
call GetSRAMBank
|
|
ld hl, UnownFont
|
|
ld de, sScratch + $188
|
|
ld bc, 39 tiles
|
|
ld a, BANK(UnownFont)
|
|
call FarCopyBytes
|
|
ld hl, sScratch + $188
|
|
ld bc, (NUM_UNOWN + 1) tiles
|
|
call Pokedex_InvertTiles
|
|
ld de, sScratch + $188
|
|
ld hl, vTiles2 tile FIRST_UNOWN_CHAR
|
|
lb bc, BANK(Pokedex_LoadUnownFont), NUM_UNOWN + 1
|
|
call Request2bpp
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Pokedex_LoadUnownFrontpicTiles:
|
|
ld a, [wUnownLetter]
|
|
push af
|
|
ld a, [wDexCurUnownIndex]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, wUnownDex
|
|
add hl, de
|
|
ld a, [hl]
|
|
ld [wUnownLetter], a
|
|
ld a, UNOWN
|
|
ld [wCurPartySpecies], a
|
|
call GetBaseData
|
|
ld de, vTiles2 tile $00
|
|
predef GetMonFrontpic
|
|
pop af
|
|
ld [wUnownLetter], a
|
|
ret
|
|
|
|
_NewPokedexEntry:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
farcall DrawDexEntryScreenRightEdge
|
|
call Pokedex_ResetBGMapMode
|
|
call DisableLCD
|
|
call LoadStandardFont
|
|
call LoadFontsExtra
|
|
call Pokedex_LoadGFX
|
|
call Pokedex_LoadAnyFootprint
|
|
ld a, [wTempSpecies]
|
|
ld [wCurPartySpecies], a
|
|
call Pokedex_DrawDexEntryScreenBG
|
|
call Pokedex_DrawFootprint
|
|
hlcoord 0, 17
|
|
ld [hl], $3b
|
|
inc hl
|
|
ld bc, 19
|
|
ld a, " "
|
|
call ByteFill
|
|
farcall DisplayDexEntry
|
|
call EnableLCD
|
|
call WaitBGMap
|
|
call GetBaseData
|
|
ld de, vTiles2
|
|
predef GetMonFrontpic
|
|
ld a, SCGB_POKEDEX
|
|
call Pokedex_GetSGBLayout
|
|
ld a, [wCurPartySpecies]
|
|
call PlayMonCry
|
|
ret
|
|
|
|
Pokedex_SetBGMapMode3:
|
|
ld a, $3
|
|
ldh [hBGMapMode], a
|
|
ld c, 4
|
|
call DelayFrames
|
|
ret
|
|
|
|
Pokedex_SetBGMapMode4:
|
|
ld a, $4
|
|
ldh [hBGMapMode], a
|
|
ld c, 4
|
|
call DelayFrames
|
|
ret
|
|
|
|
Pokedex_SetBGMapMode_3ifDMG_4ifCGB:
|
|
ldh a, [hCGB]
|
|
and a
|
|
jr z, .DMG
|
|
call Pokedex_SetBGMapMode4
|
|
.DMG:
|
|
call Pokedex_SetBGMapMode3
|
|
ret
|
|
|
|
Pokedex_ResetBGMapMode:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
ret
|