mirror of
https://github.com/thornAvery/jep-hack.git
synced 2025-09-17 02:30:50 +12:00
7554222e3c
- Gave the Debug Room its own name and placement on the map, simply being '?????' and up in the top-left corner of Nihon. - Added a feature where the shiny palette of a Pokemon can be seen by pressing Select on the Pokedex screen. - Added preliminary sprites for Belledam, Bipulla, Burgela, Coinpur, Jungela, Pupperon, Stromen, and Tricules. - Added preliminary shiny palettes for Bipulla, Bellignan, Burgela, Coinpur, Jungela and Tricules - Changed Debug Room's layout again slightly - Added another NPC to the Debug Room that gives you a bunch of useful items when spoken to, mainly all of the HMs and Apriballs, plus some Master Balls, Rare Candies and more.
2921 lines
52 KiB
NASM
2921 lines
52 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
|
|
|
|
DEF 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
|
|
call Pokedex_ClearLockedIDs
|
|
|
|
xor a
|
|
ld [wPokedexShinyToggle], 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 [wPrevDexEntryBackup + 1], a
|
|
|
|
call Pokedex_CheckUnlockedUnownMode
|
|
|
|
ld a, [wLastDexMode]
|
|
ld [wCurDexMode], a
|
|
|
|
call Pokedex_OrderMonsByMode
|
|
call Pokedex_InitCursorPosition
|
|
call Pokedex_GetLandmark
|
|
farcall DrawDexEntryScreenRightEdge
|
|
call Pokedex_ResetBGMapMode
|
|
; fallthrough
|
|
|
|
Pokedex_ClearLockedIDs:
|
|
xor a
|
|
ld l, LOCKED_MON_ID_DEX_SELECTED
|
|
jp LockPokemonID
|
|
|
|
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:
|
|
xor a
|
|
ld [wDexListingScrollOffset], a
|
|
ld [wDexListingScrollOffset + 1], a
|
|
ld [wDexListingCursor], a
|
|
ld hl, wPrevDexEntry + 1
|
|
ld a, [hld]
|
|
ld c, [hl]
|
|
ld b, a
|
|
if NUM_POKEMON <= $FF
|
|
and a
|
|
ret nz
|
|
else
|
|
cp HIGH(NUM_POKEMON)
|
|
jr c, .check_zero
|
|
ret nz
|
|
if LOW(NUM_POKEMON) < $FF
|
|
ld a, c
|
|
cp LOW(NUM_POKEMON) + 1
|
|
ret nc
|
|
endc
|
|
jr .go
|
|
endc
|
|
.check_zero
|
|
or c
|
|
ret z
|
|
|
|
.go
|
|
; ensure we have a list terminator
|
|
ld hl, wDexListingEnd
|
|
ld a, [hli]
|
|
ld d, [hl]
|
|
ld e, a
|
|
push de
|
|
sla e
|
|
rl d
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wPokedexOrder)
|
|
ldh [rSVBK], a
|
|
ld hl, wPokedexOrder
|
|
push hl
|
|
add hl, de
|
|
ld a, -1
|
|
ld [hli], a
|
|
ld [hl], a
|
|
|
|
; and look for the entry in the list
|
|
ld de, 2
|
|
pop hl
|
|
call IsInWordArray ;returns carry and pointer in hl if found
|
|
pop de
|
|
ld a, d
|
|
ldh [rSVBK], a
|
|
pop de
|
|
ret nc
|
|
ld bc, $10000 - wPokedexOrder ;ld bc, -wPokedexOrder -- see https://github.com/rednex/rgbds/issues/279
|
|
add hl, bc
|
|
srl h
|
|
rr l
|
|
|
|
; hl contains the index of wPrevDexEntry into wPokedexOrder, and de contains wDexListingEnd (therefore hl < de)
|
|
; if de <= 7, then we only have one page; wDexListingScrollOffset must be zero and wDexListingCursor = hl (= l)
|
|
ld a, d
|
|
and a
|
|
jr nz, .can_scroll
|
|
ld a, e
|
|
cp 8
|
|
jr nc, .can_scroll
|
|
ld a, l
|
|
ld [wDexListingCursor], a
|
|
ret
|
|
|
|
.can_scroll
|
|
; otherwise, if hl <= (de - 7), then wDexListingScrollOffset = hl, wDexListingCursor = 0 (default)
|
|
; else, wDexListingScrollOffset = de - 7, wDexListingCursor = hl - wDexListingScrollOffset
|
|
ld a, e
|
|
sub 7
|
|
ld e, a
|
|
ld [wDexListingScrollOffset], a
|
|
jr nc, .no_carry
|
|
dec d
|
|
.no_carry
|
|
ld a, l
|
|
sub e
|
|
ld c, a
|
|
ld a, h
|
|
sbc d
|
|
jr c, .not_last_page
|
|
ld a, d
|
|
ld [wDexListingScrollOffset + 1], a
|
|
ld a, c
|
|
ld [wDexListingCursor], a
|
|
ret
|
|
|
|
.not_last_page
|
|
ld a, l
|
|
ld [wDexListingScrollOffset], a
|
|
ld a, h
|
|
ld [wDexListingScrollOffset + 1], a
|
|
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 a, l
|
|
ld [wPrevDexEntry], a
|
|
ld a, h
|
|
ld [wPrevDexEntry + 1], 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
|
|
vc_hook Forbid_printing_Pokedex
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .do_menu_action
|
|
ld a, [hl]
|
|
and SELECT
|
|
jr nz, .toggle_shininess
|
|
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, MAX_VOLUME
|
|
ld [wLastVolume], a
|
|
|
|
.max_volume
|
|
call MaxVolume
|
|
ld a, [wPrevDexEntryJumptableIndex]
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.toggle_shininess
|
|
; toggle the current shininess setting
|
|
ld a, [wPokedexShinyToggle]
|
|
xor 1
|
|
ld [wPokedexShinyToggle], a
|
|
; refresh palettes
|
|
ld a, SCGB_POKEDEX
|
|
call Pokedex_GetSGBLayout
|
|
; play sound based on setting
|
|
ld a, [wPokedexShinyToggle]
|
|
and a
|
|
ld de, SFX_BUMP
|
|
jr z, .got_sound
|
|
ld de, SFX_SHINE
|
|
.got_sound
|
|
call PlaySFX
|
|
jp WaitSFX
|
|
|
|
Pokedex_Page:
|
|
ld a, [wPokedexStatus]
|
|
xor 1 ; toggle page
|
|
ld [wPokedexStatus], a
|
|
call Pokedex_GetSelectedMon
|
|
ld a, l
|
|
ld [wPrevDexEntry], a
|
|
ld a, h
|
|
ld [wPrevDexEntry + 1], 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 a, l
|
|
ld [wPrevDexEntry], a
|
|
ld a, h
|
|
ld [wPrevDexEntry + 1], 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:
|
|
; BUG: Playing Entei's Pokédex cry can distort Raikou's and Suicune's (see docs/bugs_and_glitches.md)
|
|
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 hl, wPrevDexEntryBackup
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
push hl
|
|
ld a, [wPrevDexEntryJumptableIndex]
|
|
push af
|
|
ld a, [wJumptableIndex]
|
|
push af
|
|
farcall PrintDexEntry
|
|
pop af
|
|
ld [wJumptableIndex], a
|
|
pop af
|
|
ld [wPrevDexEntryJumptableIndex], a
|
|
pop hl
|
|
ld a, l
|
|
ld [wPrevDexEntryBackup], a
|
|
ld a, h
|
|
ld [wPrevDexEntryBackup + 1], 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
|
|
; point cursor to the current dex mode (modes == menu item indexes)
|
|
ld a, [wCurDexMode]
|
|
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
|
|
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 hl, wDexSearchResultCount
|
|
ld a, [hli]
|
|
or [hl]
|
|
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 a, [wDexSearchResultCount]
|
|
ld [wDexListingEnd], a
|
|
ld a, [wDexSearchResultCount + 1]
|
|
ld [wDexListingEnd + 1], a
|
|
ld a, [wDexListingScrollOffset]
|
|
ld [wDexListingScrollOffsetBackup], a
|
|
ld a, [wDexListingScrollOffset + 1]
|
|
ld [wDexListingScrollOffsetBackup + 1], a
|
|
ld a, [wDexListingCursor]
|
|
ld [wDexListingCursorBackup], a
|
|
ld a, [wPrevDexEntry]
|
|
ld [wPrevDexEntryBackup], a
|
|
ld a, [wPrevDexEntry + 1]
|
|
ld [wPrevDexEntryBackup + 1], a
|
|
xor a
|
|
ld [wDexListingScrollOffset], a
|
|
ld [wDexListingScrollOffset + 1], 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, [wDexListingScrollOffsetBackup + 1]
|
|
ld [wDexListingScrollOffset + 1], a
|
|
ld a, [wDexListingCursorBackup]
|
|
ld [wDexListingCursor], a
|
|
ld a, [wPrevDexEntryBackup]
|
|
ld [wPrevDexEntry], a
|
|
ld a, [wPrevDexEntryBackup + 1]
|
|
ld [wPrevDexEntry + 1], 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_LoadListingScrollParams:
|
|
; d = min(wDexListingEnd, wDexListingHeight); e = remaining scroll distance (cap at $FF)
|
|
ld hl, wDexListingScrollOffset
|
|
ld a, [hli]
|
|
cpl
|
|
ld e, a
|
|
ld a, [hli]
|
|
cpl
|
|
ld d, a
|
|
inc hl
|
|
; hl = wDexListingEnd
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
add hl, de
|
|
inc hl
|
|
ld a, [wDexListingHeight]
|
|
ld d, a
|
|
ld a, l
|
|
sub d
|
|
ld e, a
|
|
ld a, h
|
|
jr nc, .check_overflow
|
|
sub 1
|
|
jr c, .underflow
|
|
.check_overflow
|
|
and a
|
|
ret z
|
|
ld e, $FF
|
|
ret
|
|
|
|
.underflow
|
|
ld e, h ; h = 0 here
|
|
ld a, [wDexListingEnd]
|
|
ld d, a
|
|
ret
|
|
|
|
Pokedex_NextOrPreviousDexEntry:
|
|
ld a, [wDexListingCursor]
|
|
ld [wBackupDexListingCursor], a
|
|
ld a, [wDexListingScrollOffset]
|
|
ld [wBackupDexListingPage], a
|
|
ld a, [wDexListingScrollOffset + 1]
|
|
ld [wBackupDexListingPage + 1], a
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, .up
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
ret z
|
|
|
|
; down
|
|
.next
|
|
call Pokedex_LoadListingScrollParams
|
|
call Pokedex_ListingMoveCursorDown
|
|
jr nc, .nope
|
|
call Pokedex_GetSelectedMon
|
|
call Pokedex_CheckSeen
|
|
jr z, .next
|
|
scf
|
|
ret
|
|
|
|
.check
|
|
call Pokedex_GetSelectedMon
|
|
call Pokedex_CheckSeen
|
|
scf
|
|
ret nz
|
|
.up
|
|
call Pokedex_ListingMoveCursorUp
|
|
jr c, .check
|
|
.nope
|
|
ld a, [wBackupDexListingCursor]
|
|
ld [wDexListingCursor], a
|
|
ld a, [wBackupDexListingPage]
|
|
ld [wDexListingScrollOffset], a
|
|
ld a, [wBackupDexListingPage + 1]
|
|
ld [wDexListingScrollOffset + 1], a
|
|
and a
|
|
ret
|
|
|
|
Pokedex_ListingHandleDPadInput:
|
|
; Handles D-pad input for a list of Pokémon.
|
|
call Pokedex_LoadListingScrollParams
|
|
ld hl, hJoyLast
|
|
bit D_UP_F, [hl]
|
|
jr nz, Pokedex_ListingMoveCursorUp
|
|
bit D_DOWN_F, [hl]
|
|
jr nz, Pokedex_ListingMoveCursorDown
|
|
ld a, [wDexListingHeight]
|
|
xor d ; compares for equality (if zero) and clears carry
|
|
ret nz
|
|
bit D_LEFT_F, [hl]
|
|
jr nz, Pokedex_ListingMoveUpOnePage
|
|
bit D_RIGHT_F, [hl]
|
|
jr nz, Pokedex_ListingMoveDownOnePage
|
|
ret
|
|
|
|
Pokedex_ListingMoveCursorUp:
|
|
ld hl, wDexListingCursor
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .try_scrolling
|
|
dec [hl]
|
|
.done
|
|
scf
|
|
ret
|
|
|
|
.try_scrolling
|
|
ld hl, wDexListingScrollOffset + 1
|
|
ld a, [hld]
|
|
and a
|
|
ld a, [hl]
|
|
jr nz, .go
|
|
and a
|
|
ret z
|
|
.go
|
|
sub 1
|
|
ld [hli], a
|
|
jr nc, .done
|
|
dec [hl]
|
|
ret
|
|
|
|
Pokedex_ListingMoveCursorDown:
|
|
ld hl, wDexListingCursor
|
|
inc [hl]
|
|
ld a, [hl]
|
|
cp d
|
|
ret c
|
|
dec [hl]
|
|
ld a, e
|
|
and a
|
|
ret z
|
|
ld hl, wDexListingScrollOffset
|
|
inc [hl]
|
|
jr nz, .done
|
|
inc hl
|
|
inc [hl]
|
|
.done
|
|
scf
|
|
ret
|
|
|
|
Pokedex_ListingMoveUpOnePage:
|
|
ld hl, wDexListingScrollOffset + 1
|
|
ld a, [hld]
|
|
or [hl]
|
|
ret z
|
|
ld a, [hl]
|
|
sub d
|
|
ld [hli], a
|
|
jr nc, .done
|
|
ld a, [hl]
|
|
dec [hl]
|
|
and a
|
|
jr nz, .done
|
|
; a = 0 here
|
|
ld [hld], a
|
|
ld [hl], a
|
|
.done
|
|
scf
|
|
ret
|
|
|
|
Pokedex_ListingMoveDownOnePage:
|
|
ld a, e
|
|
and a
|
|
ret z
|
|
cp d
|
|
jr c, .got_scroll
|
|
ld a, d
|
|
.got_scroll
|
|
ld hl, wDexListingScrollOffset
|
|
add a, [hl]
|
|
ld [hli], a
|
|
jr nc, .done
|
|
inc [hl]
|
|
.done
|
|
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_PrintLittleEndian:
|
|
; in: hl, de as per PrintNum - bc will be set internally
|
|
ld a, [de]
|
|
ld [wPokedexDisplayNumber + 1], a
|
|
inc de
|
|
ld a, [de]
|
|
ld de, wPokedexDisplayNumber
|
|
ld [de], a
|
|
lb bc, 2, 3
|
|
jp PrintNum
|
|
|
|
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 bc, wEndPokedexSeen - wPokedexSeen
|
|
call CountSetBits16
|
|
ld a, c
|
|
ld de, wPokedexDisplayNumber + 1
|
|
ld [de], a
|
|
dec de
|
|
ld a, b
|
|
ld [de], a
|
|
hlcoord 5, 12
|
|
lb bc, 2, 3
|
|
call PrintNum
|
|
hlcoord 1, 14
|
|
ld de, String_OWN
|
|
call Pokedex_PlaceString
|
|
ld hl, wPokedexCaught
|
|
ld bc, wEndPokedexCaught - wPokedexCaught
|
|
call CountSetBits16
|
|
ld a, c
|
|
ld de, wPokedexDisplayNumber + 1
|
|
ld [de], a
|
|
dec de
|
|
ld a, b
|
|
ld [de], a
|
|
hlcoord 5, 15
|
|
lb bc, 2, 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
|
|
|
|
.Number: ; unreferenced
|
|
db $5c, $5d, -1 ; No.
|
|
.Height:
|
|
db "HT ?", $5e, "??", $5f, -1 ; HT ?'??"
|
|
.Weight:
|
|
db "WT ???lb", -1
|
|
.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
|
|
call Pokedex_PrintLittleEndian
|
|
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.
|
|
|
|
ld c, 11
|
|
; 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 a pointer to the first mon on the list
|
|
ld hl, wDexListingScrollOffset
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
add hl, hl
|
|
ld de, wPokedexOrder
|
|
add hl, de
|
|
ld e, l
|
|
ld d, h
|
|
hlcoord 0, 2
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, [wDexListingHeight]
|
|
.loop
|
|
push af
|
|
ld a, BANK(wPokedexOrder)
|
|
ldh [rSVBK], a
|
|
ld a, [de]
|
|
ld c, a
|
|
inc de
|
|
ld a, [de]
|
|
inc de
|
|
push de
|
|
ld d, a
|
|
ld e, c
|
|
or e
|
|
push hl
|
|
call nz, .PrintEntry
|
|
pop hl
|
|
ld de, 2 * SCREEN_WIDTH
|
|
add hl, de
|
|
pop de
|
|
pop af
|
|
dec a
|
|
jr nz, .loop
|
|
pop af
|
|
ldh [rSVBK], a
|
|
jp Pokedex_LoadSelectedMonTiles
|
|
|
|
.PrintEntry:
|
|
ld a, d
|
|
and e
|
|
inc a
|
|
ret z
|
|
ld a, BANK(wPokedexSeen)
|
|
ldh [rSVBK], a
|
|
call Pokedex_PrintNumberIfOldMode
|
|
call Pokedex_PlaceDefaultStringIfNotSeen
|
|
ret c
|
|
call Pokedex_PlaceCaughtSymbolIfCaught
|
|
push hl
|
|
; hl = de * 10 (length of a Pokémon name)
|
|
ld h, d
|
|
ld l, e
|
|
add hl, hl
|
|
add hl, hl
|
|
add hl, de
|
|
add hl, hl
|
|
ld de, PokemonNames - (MON_NAME_LENGTH - 1) ;correct for the one-based indexing
|
|
add hl, de
|
|
ld a, BANK(PokemonNames)
|
|
ld bc, MON_NAME_LENGTH - 1
|
|
ld de, wPokedexNameBuffer
|
|
push de
|
|
call FarCopyBytes
|
|
ld a, "@"
|
|
ld [wPokedexNameBuffer + MON_NAME_LENGTH - 1], a
|
|
pop de
|
|
pop hl
|
|
jp PlaceString
|
|
|
|
Pokedex_PrintNumberIfOldMode:
|
|
ld a, [wCurDexMode]
|
|
cp DEXMODE_OLD
|
|
ret nz
|
|
push hl
|
|
push de
|
|
ld bc, -SCREEN_WIDTH
|
|
add hl, bc
|
|
ld a, e
|
|
ld [wPokedexDisplayNumber + 1], a
|
|
ld a, d
|
|
ld de, wPokedexDisplayNumber
|
|
ld [de], a
|
|
lb bc, PRINTNUM_LEADINGZEROS | 2, 3
|
|
call PrintNum
|
|
pop de
|
|
pop hl
|
|
ret
|
|
|
|
Pokedex_PlaceCaughtSymbolIfCaught:
|
|
push hl
|
|
push de
|
|
call CheckCaughtMonIndex
|
|
pop de
|
|
pop hl
|
|
jr nz, .place_caught_symbol
|
|
inc hl
|
|
ret
|
|
|
|
.place_caught_symbol
|
|
ld a, $4f
|
|
ld [hli], a
|
|
ret
|
|
|
|
Pokedex_PlaceDefaultStringIfNotSeen:
|
|
push hl
|
|
push de
|
|
call CheckSeenMonIndex
|
|
pop de
|
|
pop hl
|
|
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.
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wPokedexOrder)
|
|
ldh [rSVBK], a
|
|
ld hl, wDexListingScrollOffset
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, [wDexListingCursor]
|
|
ld e, a
|
|
ld d, 0
|
|
add hl, de
|
|
ld de, wPokedexOrder
|
|
add hl, hl
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
pop af
|
|
ldh [rSVBK], a
|
|
push hl
|
|
call GetPokemonIDFromIndex
|
|
ld l, LOCKED_MON_ID_DEX_SELECTED
|
|
call LockPokemonID
|
|
pop hl
|
|
ld [wTempSpecies], a
|
|
ret
|
|
|
|
Pokedex_CheckSeen:
|
|
push de
|
|
push hl
|
|
ld a, [wTempSpecies]
|
|
call CheckSeenMon
|
|
pop hl
|
|
pop de
|
|
ret
|
|
|
|
Pokedex_OrderMonsByMode:
|
|
ld hl, wEndPokedexSeen - 1
|
|
ld c, wEndPokedexSeen - wPokedexSeen
|
|
.last_seen_loop
|
|
ld a, [hld]
|
|
and a
|
|
jr nz, .found_last_seen
|
|
dec c
|
|
jr nz, .last_seen_loop
|
|
.found_last_seen
|
|
ld [wDexLastSeenValue], a
|
|
dec c
|
|
and a ;flags will be preserved until the jump, since all following operations are loads (and a push)
|
|
ld a, c
|
|
ld [wDexLastSeenIndex], a
|
|
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wPokedexOrder)
|
|
ldh [rSVBK], a
|
|
ld hl, wPokedexOrder
|
|
ld a, -1
|
|
jr z, .nothing_seen
|
|
ld bc, (NUM_POKEMON + 1) * 2
|
|
call ByteFill
|
|
ld a, [wCurDexMode]
|
|
ld hl, .Jumptable
|
|
call Pokedex_LoadPointer
|
|
call _hl_
|
|
.restore_bank_and_exit
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ret
|
|
|
|
.nothing_seen
|
|
ld [hli], a
|
|
ld [hl], a
|
|
xor a
|
|
ld hl, wDexListingEnd
|
|
ld [hli], a
|
|
ld [hl], a
|
|
jr .restore_bank_and_exit
|
|
|
|
.Jumptable:
|
|
dw .NewMode
|
|
dw .OldMode
|
|
dw Pokedex_ABCMode
|
|
|
|
.OldMode:
|
|
ld a, [wDexLastSeenValue] ;known to be non-zero
|
|
ld c, 9 ;bits are numbered 1-8 (instead of 0-7) because the first dex entry is #001, not #000
|
|
.highest_bit_index_loop
|
|
dec c
|
|
add a, a
|
|
jr nc, .highest_bit_index_loop
|
|
ld a, [wDexLastSeenIndex]
|
|
ld l, a
|
|
ld h, 0
|
|
ld b, h
|
|
add hl, hl
|
|
add hl, hl
|
|
add hl, hl
|
|
add hl, bc
|
|
ld d, h
|
|
ld e, l
|
|
ld hl, wPokedexOrder
|
|
ld c, b ;b = 0
|
|
.old_mode_loop
|
|
inc bc
|
|
ld a, c
|
|
ld [hli], a
|
|
ld a, b
|
|
ld [hli], a
|
|
cp d
|
|
jr c, .old_mode_loop
|
|
ld a, c
|
|
cp e
|
|
jr c, .old_mode_loop
|
|
ld hl, wDexListingEnd
|
|
ld a, e
|
|
ld [hli], a
|
|
ld [hl], d
|
|
ret
|
|
|
|
.NewMode:
|
|
ld hl, NewPokedexOrder
|
|
ld de, wPokedexOrder
|
|
ld bc, NUM_POKEMON * 2
|
|
call CopyBytes
|
|
ld a, BANK(wPokedexSeen)
|
|
ldh [rSVBK], a
|
|
ld bc, NUM_POKEMON
|
|
ld hl, NewPokedexOrder + (2 * NUM_POKEMON) - 1
|
|
.new_mode_last_seen_loop
|
|
ld a, [hld]
|
|
ld d, a
|
|
ld a, [hld]
|
|
ld e, a
|
|
push hl
|
|
push bc
|
|
call CheckSeenMonIndex
|
|
pop bc
|
|
pop hl
|
|
jr nz, .found_last_seen_index
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .new_mode_last_seen_loop
|
|
.found_last_seen_index
|
|
ld hl, wDexListingEnd
|
|
ld a, c
|
|
ld [hli], a
|
|
ld [hl], b
|
|
ret
|
|
|
|
Pokedex_ABCMode:
|
|
; called in the WRAM bank of wPokedexOrder; the function doesn't preserve it
|
|
ld hl, wDexTempCounter
|
|
ld a, LOW(-NUM_POKEMON)
|
|
ld [hli], a
|
|
ld [hl], HIGH(-NUM_POKEMON)
|
|
ld bc, AlphabeticalPokedexOrder
|
|
ld de, wPokedexOrder
|
|
ld a, BANK(wPokedexSeen)
|
|
ldh [rSVBK], a
|
|
.loop
|
|
push de
|
|
ld a, [bc]
|
|
ld e, a
|
|
inc bc
|
|
ld a, [bc]
|
|
ld d, a
|
|
push bc
|
|
call CheckSeenMonIndex
|
|
pop bc
|
|
pop de
|
|
jr z, .skip
|
|
ld a, BANK(wPokedexOrder)
|
|
ldh [rSVBK], a
|
|
dec bc
|
|
ld a, [bc]
|
|
ld [de], a
|
|
inc de
|
|
inc bc
|
|
ld a, [bc]
|
|
ld [de], a
|
|
inc de
|
|
ld a, BANK(wPokedexSeen)
|
|
ldh [rSVBK], a
|
|
.skip
|
|
inc bc
|
|
ld hl, wDexTempCounter
|
|
inc [hl]
|
|
jr nz, .loop
|
|
inc hl
|
|
inc [hl]
|
|
jr nz, .loop
|
|
ld hl, $10000 - wPokedexOrder ;ld hl, -wPokedexOrder -- see https://github.com/rednex/rgbds/issues/279
|
|
add hl, de
|
|
srl h
|
|
rr l
|
|
ld a, l
|
|
ld [wDexListingEnd], a
|
|
ld a, h
|
|
ld [wDexListingEnd + 1], a
|
|
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
|
|
|
|
.done
|
|
scf
|
|
ret
|
|
|
|
Pokedex_NextSearchMonType:
|
|
ld a, [wDexArrowCursorPosIndex]
|
|
and a
|
|
jr nz, .type2
|
|
|
|
ld hl, wDexSearchMonType1
|
|
ld a, [hl]
|
|
cp NUM_TYPES
|
|
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
|
|
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 POKEDEX_TYPE_STRING_LENGTH
|
|
add hl, de
|
|
endr
|
|
ld e, l
|
|
ld d, h
|
|
pop hl
|
|
call PlaceString
|
|
ret
|
|
|
|
INCLUDE "data/types/search_strings.asm"
|
|
|
|
Pokedex_SearchForMons:
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wPokedexOrder)
|
|
ldh [rSVBK], a
|
|
ld a, [wDexSearchMonType2]
|
|
and a
|
|
call nz, .Search
|
|
ld a, [wDexSearchMonType1]
|
|
and a
|
|
call nz, .Search
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ret
|
|
|
|
.Search:
|
|
ld e, a
|
|
xor a
|
|
ld hl, wDexSearchResultCount
|
|
ld [hli], a
|
|
ld [hl], a
|
|
ld d, a
|
|
ld hl, PokedexTypeSearchConversionTable - 1
|
|
add hl, de
|
|
ld a, [hl]
|
|
ld [wDexConvertedMonType], a
|
|
ld hl, wDexListingEnd
|
|
ld a, [hli]
|
|
ld c, a
|
|
ld b, [hl]
|
|
ld hl, wPokedexOrder
|
|
ld d, h
|
|
ld e, l
|
|
|
|
.loop
|
|
push bc
|
|
ld a, [hli]
|
|
ld c, a
|
|
ld a, [hli]
|
|
push hl
|
|
ld b, a
|
|
or c
|
|
jr z, .next_mon
|
|
ld a, b
|
|
and c
|
|
inc a
|
|
jr z, .next_mon
|
|
push bc
|
|
push de
|
|
ld d, b
|
|
ld e, c
|
|
ld a, BANK(wPokedexSeen)
|
|
ldh [rSVBK], a
|
|
call CheckSeenMonIndex
|
|
ld a, BANK(wPokedexOrder)
|
|
ldh [rSVBK], a
|
|
pop de
|
|
pop bc
|
|
jr z, .next_mon
|
|
; instead of going through an index conversion and GetBaseData (which would end up GC'ing the
|
|
; index table several times!), just load the base data pointer directly and do a far read
|
|
ld a, BANK(BaseData)
|
|
ld hl, BaseData
|
|
push bc
|
|
call LoadIndirectPointer
|
|
ld bc, BASE_TYPES
|
|
add hl, bc
|
|
pop bc
|
|
jr z, .next_mon
|
|
call GetFarWord ;load both types in hl
|
|
ld a, [wDexConvertedMonType]
|
|
cp h
|
|
jr z, .match_found
|
|
cp l
|
|
jr nz, .next_mon
|
|
|
|
.match_found
|
|
ld a, c
|
|
ld [de], a
|
|
inc de
|
|
ld a, b
|
|
ld [de], a
|
|
inc de
|
|
ld hl, wDexSearchResultCount
|
|
inc [hl]
|
|
jr nz, .next_mon
|
|
inc hl
|
|
inc [hl]
|
|
|
|
.next_mon
|
|
pop hl
|
|
pop bc
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .loop
|
|
|
|
ld hl, wDexSearchResultCount
|
|
ld bc, -(NUM_POKEMON + 1)
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
add hl, bc ;hl = minus the number of entries to clear
|
|
ld c, l
|
|
ld b, h
|
|
ld l, e
|
|
ld h, d
|
|
ld a, -1
|
|
.clear_remaining_mons
|
|
ld [hli], a
|
|
ld [hli], a
|
|
inc c
|
|
jr nz, .clear_remaining_mons
|
|
inc b
|
|
jr nz, .clear_remaining_mons
|
|
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, wShadowOAMSprite00
|
|
.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:
|
|
push de
|
|
ld hl, wDexListingEnd
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, [wDexListingHeight]
|
|
cpl
|
|
ld c, a
|
|
ld b, $FF
|
|
; subtract wDexListingHeight + 1 so it will also overflow on wDexListingEnd = wDexListingHeight
|
|
add hl, bc
|
|
inc b ;b = 0
|
|
jr nc, .done
|
|
inc hl ;compensate for the +1
|
|
push hl
|
|
ld hl, wDexListingScrollOffset
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
; multiply by 121 (scrollbar size) - first by 15...
|
|
; (assume that the dex has less than $1000 entries - it won't fit in any RAM otherwise)
|
|
ld b, h
|
|
ld c, l
|
|
rept 4
|
|
add hl, hl
|
|
endr
|
|
ld a, l
|
|
sub c
|
|
ld l, a
|
|
ld a, h
|
|
sbc b
|
|
ld h, a
|
|
; ...then by 8 (15 * 8 = 120), storing overflows in a...
|
|
xor a
|
|
rept 3
|
|
add hl, hl
|
|
adc a
|
|
endr
|
|
; ...and add the original value, for a full result of ahl = wDexListingScrollOffset * 121
|
|
add hl, bc
|
|
adc 0
|
|
; finally, double the value (for rounding after dividing) and transfer it to chl
|
|
add hl, hl
|
|
adc a
|
|
ld c, a
|
|
; load the scroll height (pushed before) back into de, and multiply by -16...
|
|
pop de
|
|
push de
|
|
swap d
|
|
swap e
|
|
ld a, e
|
|
and $f
|
|
or d
|
|
cpl
|
|
ld d, a
|
|
ld a, e
|
|
and $f0
|
|
cpl
|
|
ld e, a
|
|
inc de
|
|
; ...and use it to calculate the upper nibble of the quotient by subtraction
|
|
inc c
|
|
ld b, 0
|
|
.upper_loop
|
|
inc b
|
|
add hl, de
|
|
jr c, .upper_loop
|
|
dec c
|
|
jr nz, .upper_loop
|
|
res 4, b ;ensure overflow doesn't leave garbage behind
|
|
swap b
|
|
; now there's a negative value in hl and an overly large result in b - adjust until the right value is found
|
|
pop de
|
|
.lower_loop
|
|
dec b
|
|
add hl, de
|
|
jr nc, .lower_loop
|
|
; the result is in b - which is twice the true quotient, so increment and halve to round to nearest
|
|
inc b
|
|
srl b
|
|
.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:
|
|
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 OpenSRAM
|
|
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]
|
|
call GetPokemonIndexFromID
|
|
dec hl
|
|
add hl, hl
|
|
add hl, hl
|
|
add hl, hl
|
|
add hl, hl
|
|
add hl, hl
|
|
ld de, Footprints
|
|
add hl, de
|
|
|
|
ld e, l
|
|
ld d, h
|
|
ld hl, vTiles2 tile $62
|
|
lb bc, BANK(Footprints), 4
|
|
jp Request1bpp
|
|
|
|
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 OpenSRAM
|
|
ld hl, UnownFont
|
|
; sScratch + $188 was the address of sDecompressBuffer in pokegold
|
|
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 hl, UNOWN
|
|
call GetPokemonIDFromIndex
|
|
ld [wCurPartySpecies], a
|
|
ld l, LOCKED_MON_ID_DEX_SELECTED
|
|
call LockPokemonID
|
|
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
|