From 0a35653adcef2220db2a22ee4361e43192f9682c Mon Sep 17 00:00:00 2001 From: dreams897 Date: Thu, 2 May 2024 21:21:00 -0700 Subject: [PATCH] Revert commit --- engine/battle/core.asm | 6 +- engine/battle_anims/functions.asm | 63 +- engine/items/pack.asm | 9 +- engine/link/link.asm | 5 +- engine/overworld/map_object_action.asm | 6 +- engine/pokegear/pokegear.asm | 3 + engine/pokegear/pokegear.asm.orig | 2934 ++++++++++++++++++++++++ engine/pokemon/european_mail.asm | 12 +- home/tilemap.asm | 6 +- 9 files changed, 2974 insertions(+), 70 deletions(-) create mode 100644 engine/pokegear/pokegear.asm.orig diff --git a/engine/battle/core.asm b/engine/battle/core.asm index 81300691e5d..b8cd5408336 100644 --- a/engine/battle/core.asm +++ b/engine/battle/core.asm @@ -651,8 +651,7 @@ ParsePlayerAction: jr nz, .locked_in xor a ld [wMoveSelectionMenuType], a - assert POUND == 1 - inc a + inc a ; POUND ld [wFXAnimID], a call MoveSelectionScreen push af @@ -3856,8 +3855,7 @@ TryToRunAwayFromBattle: cp BATTLEACTION_FORFEIT ld a, DRAW jr z, .fled - assert DRAW - 1 == LOSE - dec a + dec a ; LOSE .fled ld b, a ld a, [wBattleResult] diff --git a/engine/battle_anims/functions.asm b/engine/battle_anims/functions.asm index 0fcaa46436e..c82134c72f6 100644 --- a/engine/battle_anims/functions.asm +++ b/engine/battle_anims/functions.asm @@ -1222,9 +1222,7 @@ BattleAnimFunc_Sing: ld hl, BATTLEANIMSTRUCT_PARAM add hl, bc ld a, BATTLE_ANIM_FRAMESET_MUSIC_NOTE_1 - assert BATTLE_ANIM_FRAMESET_MUSIC_NOTE_1 + 1 == BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 \ - && BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 + 1 == BATTLE_ANIM_FRAMESET_MUSIC_NOTE_3 - add [hl] + add [hl] ; BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 BATTLE_ANIM_FRAMESET_MUSIC_NOTE_3 call ReinitBattleAnimFrameset .one @@ -1490,15 +1488,15 @@ BattleAnimFunc_Clamp_Encore: ld hl, BATTLEANIMSTRUCT_VAR2 add hl, bc ld a, [hl] - assert BATTLE_ANIM_FRAMESET_CLAMP + 1 == BATTLE_ANIM_FRAMESET_CLAMP_FLIPPED - assert BATTLE_ANIM_FRAMESET_ENCORE_HAND + 1 == BATTLE_ANIM_FRAMESET_ENCORE_HAND_FLIPPED - inc a + inc a ; BATTLE_ANIM_FRAMESET_3B (Clamp Flipped) + ; BATTLE_ANIM_FRAMESET_A1 (Hands Flipped) jr .reinit .load_no_inc ld hl, BATTLEANIMSTRUCT_VAR2 add hl, bc - ld a, [hl] ; BATTLE_ANIM_FRAMESET_CLAMP or BATTLE_ANIM_FRAMESET_ENCORE_HAND + ld a, [hl] ; BATTLE_ANIM_FRAMESET_3A (Clamp) + ; BATTLE_ANIM_FRAMESET_A0 (Hands) .reinit call ReinitBattleAnimFrameset ld hl, BATTLEANIMSTRUCT_VAR1 @@ -1824,10 +1822,8 @@ BattleAnimFunc_Wrap: ld hl, BATTLEANIMSTRUCT_FRAMESET_ID add hl, bc ld a, [hl] - assert BATTLE_ANIM_FRAMESET_BIND_1 + 1 == BATTLE_ANIM_FRAMESET_BIND_2 \ - && BATTLE_ANIM_FRAMESET_BIND_2 + 1 == BATTLE_ANIM_FRAMESET_BIND_3 \ - && BATTLE_ANIM_FRAMESET_BIND_3 + 1 == BATTLE_ANIM_FRAMESET_BIND_4 - inc a + inc a ; BATTLE_ANIM_FRAMESET_BIND_2 + ; BATTLE_ANIM_FRAMESET_BIND_4 call ReinitBattleAnimFrameset call BattleAnim_IncAnonJumptableIndex ld hl, BATTLEANIMSTRUCT_VAR1 ; Unused? @@ -2326,9 +2322,7 @@ BattleAnimFunc_Sound: ld hl, BATTLEANIMSTRUCT_PARAM add hl, bc ld a, BATTLE_ANIM_FRAMESET_SOUND_1 - assert BATTLE_ANIM_FRAMESET_SOUND_1 + 1 == BATTLE_ANIM_FRAMESET_SOUND_2 \ - && BATTLE_ANIM_FRAMESET_SOUND_2 + 1 == BATTLE_ANIM_FRAMESET_SOUND_3 - add [hl] + add [hl] ; BATTLE_ANIM_FRAMESET_SOUND_2 BATTLE_ANIM_FRAMESET_SOUND_3 call ReinitBattleAnimFrameset ret @@ -2404,8 +2398,7 @@ BattleAnimFunc_ConfuseRay: and $80 rlca ld [hl], a - assert BATTLE_ANIM_FRAMESET_CONFUSE_RAY_1 + 1 == BATTLE_ANIM_FRAMESET_CONFUSE_RAY_2 - add BATTLE_ANIM_FRAMESET_CONFUSE_RAY_1 + add BATTLE_ANIM_FRAMESET_CONFUSE_RAY_1 ; BATTLE_ANIM_FRAMESET_CONFUSE_RAY_2 call ReinitBattleAnimFrameset ret @@ -2475,9 +2468,8 @@ BattleAnimFunc_Dizzy: rlca ld hl, BATTLEANIMSTRUCT_VAR1 add hl, bc - assert BATTLE_ANIM_FRAMESET_CHICK_1 + 1 == BATTLE_ANIM_FRAMESET_CHICK_2 - assert BATTLE_ANIM_FRAMESET_IMP + 1 == BATTLE_ANIM_FRAMESET_IMP_FLIPPED - add [hl] + add [hl] ; BATTLE_ANIM_FRAMESET_61 BATTLE_ANIM_FRAMESET_62 + ; BATTLE_ANIM_FRAMESET_9C BATTLE_ANIM_FRAMESET_9D call ReinitBattleAnimFrameset ld hl, BATTLEANIMSTRUCT_PARAM add hl, bc @@ -2514,15 +2506,15 @@ BattleAnimFunc_Dizzy: ld hl, BATTLEANIMSTRUCT_VAR1 add hl, bc ld a, [hl] - assert BATTLE_ANIM_FRAMESET_CHICK_1 + 1 == BATTLE_ANIM_FRAMESET_CHICK_2 - assert BATTLE_ANIM_FRAMESET_IMP + 1 == BATTLE_ANIM_FRAMESET_IMP_FLIPPED - inc a + inc a ; BATTLE_ANIM_FRAMESET_62 + ; BATTLE_ANIM_FRAMESET_9D jr .got_frameset .not_flipped ld hl, BATTLEANIMSTRUCT_VAR1 add hl, bc - ld a, [hl] ; BATTLE_ANIM_FRAMESET_CHICK_1 or BATTLE_ANIM_FRAMESET_IMP + ld a, [hl] ; BATTLE_ANIM_FRAMESET_61 + ; BATTLE_ANIM_FRAMESET_9C .got_frameset call ReinitBattleAnimFrameset ret @@ -2542,9 +2534,7 @@ BattleAnimFunc_Amnesia: ld hl, BATTLEANIMSTRUCT_PARAM add hl, bc ld a, [hl] - assert BATTLE_ANIM_FRAMESET_AMNESIA_1 + 1 == BATTLE_ANIM_FRAMESET_AMNESIA_2 \ - && BATTLE_ANIM_FRAMESET_AMNESIA_2 + 1 == BATTLE_ANIM_FRAMESET_AMNESIA_3 - add BATTLE_ANIM_FRAMESET_AMNESIA_1 + add BATTLE_ANIM_FRAMESET_AMNESIA_1 ; BATTLE_ANIM_FRAMESET_AMNESIA_2 BATTLE_ANIM_FRAMESET_AMNESIA_3 call ReinitBattleAnimFrameset ld hl, BATTLEANIMSTRUCT_PARAM add hl, bc @@ -2632,9 +2622,7 @@ BattleAnimFunc_String: add hl, bc set OAM_Y_FLIP, [hl] .not_param_zero - assert BATTLE_ANIM_FRAMESET_STRING_SHOT_1 + 1 == BATTLE_ANIM_FRAMESET_STRING_SHOT_2 \ - && BATTLE_ANIM_FRAMESET_STRING_SHOT_2 + 1 == BATTLE_ANIM_FRAMESET_STRING_SHOT_3 - add BATTLE_ANIM_FRAMESET_STRING_SHOT_1 + add BATTLE_ANIM_FRAMESET_STRING_SHOT_1 ; BATTLE_ANIM_FRAMESET_STRING_SHOT_2 BATTLE_ANIM_FRAMESET_STRING_SHOT_3 call ReinitBattleAnimFrameset .one ret @@ -3531,9 +3519,7 @@ BattleAnimFunc_SpeedLine: add hl, bc ld a, [hl] and $7f - assert BATTLE_ANIM_FRAMESET_SPEED_LINE_1 + 1 == BATTLE_ANIM_FRAMESET_SPEED_LINE_2 \ - && BATTLE_ANIM_FRAMESET_SPEED_LINE_2 + 1 == BATTLE_ANIM_FRAMESET_SPEED_LINE_3 - add BATTLE_ANIM_FRAMESET_SPEED_LINE_1 + add BATTLE_ANIM_FRAMESET_SPEED_LINE_1 ; BATTLE_ANIM_FRAMESET_SPEED_LINE_2 BATTLE_ANIM_FRAMESET_SPEED_LINE_3 call ReinitBattleAnimFrameset .one ld hl, BATTLEANIMSTRUCT_PARAM @@ -3705,13 +3691,8 @@ BattleAnimFunc_LockOnMindReader: and $f ld hl, BATTLEANIMSTRUCT_FRAMESET_ID add hl, bc - assert BATTLE_ANIM_FRAMESET_LOCK_ON_1 + 1 == BATTLE_ANIM_FRAMESET_LOCK_ON_2 \ - && BATTLE_ANIM_FRAMESET_LOCK_ON_2 + 1 == BATTLE_ANIM_FRAMESET_LOCK_ON_3 \ - && BATTLE_ANIM_FRAMESET_LOCK_ON_3 + 1 == BATTLE_ANIM_FRAMESET_LOCK_ON_4 - assert BATTLE_ANIM_FRAMESET_MIND_READER_1 + 1 == BATTLE_ANIM_FRAMESET_MIND_READER_2 \ - && BATTLE_ANIM_FRAMESET_MIND_READER_2 + 1 == BATTLE_ANIM_FRAMESET_MIND_READER_3 \ - && BATTLE_ANIM_FRAMESET_MIND_READER_3 + 1 == BATTLE_ANIM_FRAMESET_MIND_READER_4 - add [hl] + add [hl] ; BATTLE_ANIM_FRAMESET_8F BATTLE_ANIM_FRAMESET_90 BATTLE_ANIM_FRAMESET_91 + ; BATTLE_ANIM_FRAMESET_93 BATTLE_ANIM_FRAMESET_94 BATTLE_ANIM_FRAMESET_95 call ReinitBattleAnimFrameset ld hl, BATTLEANIMSTRUCT_PARAM add hl, bc @@ -3771,9 +3752,7 @@ BattleAnimFunc_HealBellNotes: ld hl, BATTLEANIMSTRUCT_PARAM add hl, bc ld a, BATTLE_ANIM_FRAMESET_MUSIC_NOTE_1 - assert BATTLE_ANIM_FRAMESET_MUSIC_NOTE_1 + 1 == BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 \ - && BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 + 1 == BATTLE_ANIM_FRAMESET_MUSIC_NOTE_3 - add [hl] + add [hl] ; BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 BATTLE_ANIM_FRAMESET_MUSIC_NOTE_3 call ReinitBattleAnimFrameset .one ld hl, BATTLEANIMSTRUCT_YOFFSET diff --git a/engine/items/pack.asm b/engine/items/pack.asm index c9c40c18c91..8f41ff0f61c 100644 --- a/engine/items/pack.asm +++ b/engine/items/pack.asm @@ -517,14 +517,11 @@ TossMenu: ResetPocketCursorPositions: ; unreferenced ld a, [wCurPocket] - assert ITEM_POCKET == 0 - and a + and a ; ITEM_POCKET jr z, .items - assert BALL_POCKET == 1 - dec a + dec a ; BALL_POCKET jr z, .balls - assert KEY_ITEM_POCKET == 2 - dec a + dec a ; KEY_ITEM_POCKET jr z, .key ret diff --git a/engine/link/link.asm b/engine/link/link.asm index 65017afa170..42b9ce09414 100644 --- a/engine/link/link.asm +++ b/engine/link/link.asm @@ -2212,8 +2212,7 @@ endc call DelayFrames xor a ldh [hVBlank], a - assert LINK_TIMECAPSULE == 1 - inc a + inc a ; LINK_TIMECAPSULE ld [wLinkMode], a ret @@ -2286,7 +2285,7 @@ SetBitsForTimeCapsuleRequest: ldh [rSC], a ld a, (1 << rSC_ON) | (0 << rSC_CLOCK) ldh [rSC], a - xor a ; LINK_NULL + xor a ; LINK_TIMECAPSULE - 1 ld [wPlayerLinkAction], a ld [wChosenCableClubRoom], a ret diff --git a/engine/overworld/map_object_action.asm b/engine/overworld/map_object_action.asm index f88ed48421d..720571b6737 100644 --- a/engine/overworld/map_object_action.asm +++ b/engine/overworld/map_object_action.asm @@ -271,8 +271,8 @@ SetFacingBoulderDust: and 2 ld a, FACING_BOULDER_DUST_1 jr z, .ok - assert FACING_BOULDER_DUST_1 + 1 == FACING_BOULDER_DUST_2 inc a + assert FACING_BOULDER_DUST_1 + 1 == FACING_BOULDER_DUST_2 .ok ld [hl], a ret @@ -287,8 +287,8 @@ SetFacingGrassShake: and 4 ld a, FACING_GRASS_1 jr z, .ok - assert FACING_GRASS_1 + 1 == FACING_GRASS_2 - inc a + inc a ; FACING_GRASS_2 + .ok ld [hl], a ret diff --git a/engine/pokegear/pokegear.asm b/engine/pokegear/pokegear.asm index 2729de2b573..57ce6e25b24 100644 --- a/engine/pokegear/pokegear.asm +++ b/engine/pokegear/pokegear.asm @@ -2358,6 +2358,7 @@ Pokedex_GetArea: call TownMapPals hlbgcoord 0, 0, vBGMap1 call TownMapBGUpdate + call FillJohtoMap call .PlaceString_MonsNest call TownMapPals hlbgcoord 0, 0 @@ -2366,6 +2367,8 @@ Pokedex_GetArea: call GetSGBLayout call SetDefaultBGPAndOBP xor a + ldh [hBGMapMode], a + xor a ; JOHTO_REGION call .GetAndPlaceNest .loop call JoyTextDelay diff --git a/engine/pokegear/pokegear.asm.orig b/engine/pokegear/pokegear.asm.orig new file mode 100644 index 00000000000..339d86c3015 --- /dev/null +++ b/engine/pokegear/pokegear.asm.orig @@ -0,0 +1,2934 @@ +; Pokégear cards + const_def + const POKEGEARCARD_CLOCK ; 0 + const POKEGEARCARD_MAP ; 1 + const POKEGEARCARD_PAGER ; 2 + const POKEGEARCARD_RADIO ; 3 +DEF NUM_POKEGEAR_CARDS EQU const_value + +DEF PAGER_DISPLAY_HEIGHT EQU 4 + +; PokegearJumptable.Jumptable indexes + const_def + const POKEGEARSTATE_CLOCKINIT ; 0 + const POKEGEARSTATE_CLOCKJOYPAD ; 1 + const POKEGEARSTATE_MAPCHECKREGION ; 2 + const POKEGEARSTATE_JOHTOMAPINIT ; 3 + const POKEGEARSTATE_JOHTOMAPJOYPAD ; 4 + const POKEGEARSTATE_KANTOMAPINIT ; 5 + const POKEGEARSTATE_KANTOMAPJOYPAD ; 6 + const POKEGEARSTATE_PAGERINIT ; 7 + const POKEGEARSTATE_PAGERJOYPAD ; 8 + const POKEGEARSTATE_MAKEPAGERCALL ; 9 + const POKEGEARSTATE_FINISHPAGERCALL ; a + const POKEGEARSTATE_RADIOINIT ; b + const POKEGEARSTATE_RADIOJOYPAD ; c + +PokeGear: + ld hl, wOptions + ld a, [hl] + push af + set NO_TEXT_SCROLL, [hl] + ldh a, [hInMenu] + push af + ld a, $1 + ldh [hInMenu], a + ld a, [wStateFlags] + push af + xor a + ld [wStateFlags], a + call .InitTilemap + call DelayFrame +.loop + call UpdateTime + call JoyTextDelay + ld a, [wJumptableIndex] + bit 7, a + jr nz, .done + call PokegearJumptable + farcall PlaySpriteAnimations + call DelayFrame + jr .loop + +.done + ld de, SFX_PRESS_AB_1 + call PlaySFX + call WaitSFX + pop af + ld [wStateFlags], a + pop af + ldh [hInMenu], a + pop af + ld [wOptions], a + call ClearBGPalettes + xor a ; LOW(vBGMap0) + ldh [hBGMapAddress], a + ld a, HIGH(vBGMap0) + ldh [hBGMapAddress + 1], a + ld a, SCREEN_HEIGHT_PX + ldh [hWY], a + call ExitPokegearRadio_HandleMusic + ret + +.InitTilemap: + call ClearBGPalettes + call ClearTilemap + call ClearSprites + call DisableLCD + xor a + ldh [hSCY], a + ldh [hSCX], a + ld a, $7 + ldh [hWX], a + call Pokegear_LoadGFX + farcall ClearSpriteAnims + call InitPokegearModeIndicatorArrow + ld a, 8 + call SkipMusic + ld a, LCDC_DEFAULT + ldh [rLCDC], a + call TownMap_InitCursorAndPlayerIconPositions + xor a + ld [wJumptableIndex], a ; POKEGEARSTATE_CLOCKINIT + ld [wPokegearCard], a ; POKEGEARCARD_CLOCK + ld [wPokegearMapRegion], a ; JOHTO_REGION + ld [wUnusedPokegearByte], a + ld [wPokegearPagerScrollPosition], a + ld [wPokegearPagerCursorPosition], a + ld [wPokegearPagerSelectedPerson], a + ld [wPokegearRadioChannelBank], a + ld [wPokegearRadioChannelAddr], a + ld [wPokegearRadioChannelAddr + 1], a + call Pokegear_InitJumptableIndices + call InitPokegearTilemap + ld b, SCGB_POKEGEAR_PALS + call GetSGBLayout + call SetDefaultBGPAndOBP + ldh a, [hCGB] + and a + ret z + ld a, %11100100 + call DmgToCgbObjPal0 + ret + +Pokegear_LoadGFX: + call ClearVBank1 + ld hl, TownMapGFX + ld de, vTiles2 + ld a, BANK(TownMapGFX) + call FarDecompress + ld hl, PokegearGFX + ld de, vTiles2 tile $50 + ld a, BANK(PokegearGFX) + call FarDecompress + ld hl, PokegearSpritesGFX + ld de, vTiles0 + ld a, BANK(PokegearSpritesGFX) + call Decompress + ld a, [wMapGroup] + ld b, a + ld a, [wMapNumber] + ld c, a + call GetWorldMapLocation + cp LANDMARK_SS_ANNE + jr z, .ssanne + farcall GetPlayerIcon + push de + ld h, d + ld l, e + ld a, b + ; standing sprite + push af + ld de, vTiles0 tile $10 + ld bc, 4 tiles + call FarCopyBytes + pop af + pop hl + ; walking sprite + ld de, 12 tiles + add hl, de + ld de, vTiles0 tile $14 + ld bc, 4 tiles + call FarCopyBytes + ret + +.ssanne + ld hl, FastShipGFX + ld de, vTiles0 tile $10 + ld bc, 8 tiles + call CopyBytes + ret + +FastShipGFX: +INCBIN "gfx/pokegear/fast_ship.2bpp" + +InitPokegearModeIndicatorArrow: + depixel 4, 2, 4, 0 + ld a, SPRITE_ANIM_OBJ_POKEGEAR_ARROW + call InitSpriteAnimStruct + ld hl, SPRITEANIMSTRUCT_TILE_ID + add hl, bc + ld [hl], $0 + ret + +AnimatePokegearModeIndicatorArrow: + ld hl, wPokegearCard + ld e, [hl] + ld d, 0 + ld hl, .XCoords + add hl, de + ld a, [hl] + ld hl, SPRITEANIMSTRUCT_XOFFSET + add hl, bc + ld [hl], a + ret + +.XCoords: + db $00 ; POKEGEARCARD_CLOCK + db $10 ; POKEGEARCARD_MAP + db $20 ; POKEGEARCARD_PAGER + db $30 ; POKEGEARCARD_RADIO + +TownMap_GetCurrentLandmark: + ld a, [wMapGroup] + ld b, a + ld a, [wMapNumber] + ld c, a + call GetWorldMapLocation + cp LANDMARK_SPECIAL + ret nz + ld a, [wBackupMapGroup] + ld b, a + ld a, [wBackupMapNumber] + ld c, a + call GetWorldMapLocation + ret + +TownMap_InitCursorAndPlayerIconPositions: + ld a, [wMapGroup] + ld b, a + ld a, [wMapNumber] + ld c, a + call GetWorldMapLocation + cp LANDMARK_SS_ANNE + jr z, .FastShip + cp LANDMARK_SPECIAL + jr nz, .LoadLandmark + ld a, [wBackupMapGroup] + ld b, a + ld a, [wBackupMapNumber] + ld c, a + call GetWorldMapLocation +.LoadLandmark: + ld [wPokegearMapPlayerIconLandmark], a + ld [wPokegearMapCursorLandmark], a + ret + +.FastShip: + ld [wPokegearMapPlayerIconLandmark], a + ld a, LANDMARK_NEW_BARK_TOWN + ld [wPokegearMapCursorLandmark], a + ret + +Pokegear_InitJumptableIndices: + ld a, POKEGEARSTATE_CLOCKINIT + ld [wJumptableIndex], a + xor a ; POKEGEARCARD_CLOCK + ld [wPokegearCard], a + ret + +InitPokegearTilemap: + xor a + ldh [hBGMapMode], a + hlcoord 0, 0 + ld bc, SCREEN_WIDTH * SCREEN_HEIGHT + ld a, $6f + call ByteFill + ld a, [wPokegearCard] + maskbits NUM_POKEGEAR_CARDS + add a + ld e, a + ld d, 0 + ld hl, .Jumptable + add hl, de + ld a, [hli] + ld h, [hl] + ld l, a + ld de, .return_from_jumptable + push de + jp hl + +.return_from_jumptable + call Pokegear_FinishTilemap + farcall TownMapPals + ld a, [wPokegearMapRegion] + and a + jr nz, .kanto_0 + xor a ; LOW(vBGMap0) + ldh [hBGMapAddress], a + ld a, HIGH(vBGMap0) + ldh [hBGMapAddress + 1], a + call .UpdateBGMap + ld a, SCREEN_HEIGHT_PX + jr .finish + +.kanto_0 + xor a ; LOW(vBGMap1) + ldh [hBGMapAddress], a + ld a, HIGH(vBGMap1) + ldh [hBGMapAddress + 1], a + call .UpdateBGMap + xor a +.finish + ldh [hWY], a + ; swap region maps + ld a, [wPokegearMapRegion] + maskbits NUM_REGIONS + xor 1 + ld [wPokegearMapRegion], a + ret + +.UpdateBGMap: + ldh a, [hCGB] + and a + jr z, .dmg + ld a, $2 + ldh [hBGMapMode], a + ld c, 3 + call DelayFrames +.dmg + call WaitBGMap + ret + +.Jumptable: +; entries correspond to POKEGEARCARD_* constants + dw .Clock + dw .Map + dw .Pager + dw .Radio + +.Clock: + ld de, ClockTilemapRLE + call Pokegear_LoadTilemapRLE + hlcoord 12, 1 + ld de, .switch + call PlaceString + hlcoord 0, 12 + lb bc, 4, 18 + call Textbox + call Pokegear_UpdateClock + ret + +.switch + db " SWITCH▶@" + +.Map: + ld a, [wPokegearMapPlayerIconLandmark] + cp LANDMARK_SS_ANNE + jr z, .johto + cp KANTO_LANDMARK + jr nc, .kanto +.johto + ld e, 0 + jr .ok + +.kanto + ld e, 1 +.ok + farcall PokegearMap + ld a, $07 + ld bc, SCREEN_WIDTH - 2 + hlcoord 1, 2 + call ByteFill + hlcoord 0, 2 + ld [hl], $06 + hlcoord 19, 2 + ld [hl], $17 + ld a, [wPokegearMapCursorLandmark] + call PokegearMap_UpdateLandmarkName + ret + +.Radio: + ld de, RadioTilemapRLE + call Pokegear_LoadTilemapRLE + hlcoord 0, 12 + lb bc, 4, 18 + call Textbox + ret + +.Pager: + ld de, PagerTilemapRLE + call Pokegear_LoadTilemapRLE + hlcoord 0, 12 + lb bc, 4, 18 + call Textbox + call .PlacePagerBars + call PokegearPager_UpdateDisplayList + ret + +.PlacePagerBars: + hlcoord 17, 1 + ld a, $5c + ld [hli], a + inc a + ld [hl], a + hlcoord 17, 2 + inc a + ld [hli], a + call GetMapPagerService + and a + ret nz + hlcoord 18, 2 + ld [hl], $5f + ret + +Pokegear_FinishTilemap: + hlcoord 0, 0 + ld bc, $8 + ld a, $6f + call ByteFill + hlcoord 0, 1 + ld bc, $8 + ld a, $6f + call ByteFill + ld de, wPokegearFlags + ld a, [de] + bit POKEGEAR_MAP_CARD_F, a + call nz, .PlaceMapIcon + ld a, [de] + bit POKEGEAR_PAGER_CARD_F, a + call nz, .PlacePagerIcon + ld a, [de] + bit POKEGEAR_RADIO_CARD_F, a + call nz, .PlaceRadioIcon + hlcoord 0, 0 + ld a, $66 + call .PlacePokegearCardIcon + ret + +.PlaceMapIcon: + hlcoord 2, 0 + ld a, $60 + jr .PlacePokegearCardIcon + +.PlacePagerIcon: + hlcoord 4, 0 + ld a, $64 + jr .PlacePokegearCardIcon + +.PlaceRadioIcon: + hlcoord 6, 0 + ld a, $62 +.PlacePokegearCardIcon: + ld [hli], a + inc a + ld [hld], a + ld bc, $14 + add hl, bc + add $f + ld [hli], a + inc a + ld [hld], a + ret + +PokegearJumptable: + jumptable .Jumptable, wJumptableIndex + +.Jumptable: +; entries correspond to POKEGEARSTATE_* constants + dw PokegearClock_Init + dw PokegearClock_Joypad + dw PokegearMap_CheckRegion + dw PokegearMap_Init + dw PokegearMap_JohtoMap + dw PokegearMap_Init + dw PokegearMap_KantoMap + dw PokegearPager_Init + dw PokegearPager_Joypad + dw PokegearPager_MakePagerCall + dw PokegearPager_FinishPagerCall + dw PokegearRadio_Init + dw PokegearRadio_Joypad + +PokegearClock_Init: + call InitPokegearTilemap + ld hl, PokegearPressButtonText + call PrintText + ld hl, wJumptableIndex + inc [hl] + call ExitPokegearRadio_HandleMusic + ret + +PokegearClock_Joypad: + call .UpdateClock + ld hl, hJoyLast + ld a, [hl] + and A_BUTTON | B_BUTTON | START | SELECT + jr nz, .quit + ld a, [hl] + and D_RIGHT + ret z + ld a, [wPokegearFlags] + bit POKEGEAR_MAP_CARD_F, a + jr z, .no_map_card + ld c, POKEGEARSTATE_MAPCHECKREGION + ld b, POKEGEARCARD_MAP + jr .done + +.no_map_card + ld a, [wPokegearFlags] + bit POKEGEAR_PAGER_CARD_F, a + jr z, .no_pager_card + ld c, POKEGEARSTATE_PAGERINIT + ld b, POKEGEARCARD_PAGER + jr .done + +.no_pager_card + ld a, [wPokegearFlags] + bit POKEGEAR_RADIO_CARD_F, a + ret z + ld c, POKEGEARSTATE_RADIOINIT + ld b, POKEGEARCARD_RADIO +.done + call Pokegear_SwitchPage + ret + +.quit + ld hl, wJumptableIndex + set 7, [hl] + ret + +.UpdateClock: + xor a + ldh [hBGMapMode], a + call Pokegear_UpdateClock + ld a, $1 + ldh [hBGMapMode], a + ret + +Pokegear_UpdateClock: + hlcoord 3, 5 + lb bc, 5, 14 + call ClearBox + ldh a, [hHours] + ld b, a + ldh a, [hMinutes] + ld c, a + decoord 6, 8 + farcall PrintHoursMins + ld hl, .GearTodayText + bccoord 6, 6 + call PrintTextboxTextAt + ret + + db "ごぜん@" + db "ごご@" + +.GearTodayText: + text_far _GearTodayText + text_end + +PokegearMap_CheckRegion: + ld a, [wPokegearMapPlayerIconLandmark] + cp LANDMARK_SS_ANNE + jr z, .johto + cp KANTO_LANDMARK + jr nc, .kanto +.johto + ld a, POKEGEARSTATE_JOHTOMAPINIT + jr .done + ret + +.kanto + ld a, POKEGEARSTATE_KANTOMAPINIT +.done + ld [wJumptableIndex], a + call ExitPokegearRadio_HandleMusic + ret + +PokegearMap_Init: + call InitPokegearTilemap + ld a, [wPokegearMapPlayerIconLandmark] + call PokegearMap_InitPlayerIcon + ld a, [wPokegearMapCursorLandmark] + call PokegearMap_InitCursor + ld a, c + ld [wPokegearMapCursorObjectPointer], a + ld a, b + ld [wPokegearMapCursorObjectPointer + 1], a + ld hl, wJumptableIndex + inc [hl] + ret + +PokegearMap_KantoMap: + call TownMap_GetKantoLandmarkLimits + jr PokegearMap_ContinueMap + +PokegearMap_JohtoMap: + ld d, LANDMARK_SILVER_CAVE + ld e, LANDMARK_NEW_BARK_TOWN +PokegearMap_ContinueMap: + ld hl, hJoyLast + ld a, [hl] + and B_BUTTON + jr nz, .cancel + ld a, [hl] + and D_RIGHT + jr nz, .right + ld a, [hl] + and D_LEFT + jr nz, .left + call .DPad + ret + +.right + ld a, [wPokegearFlags] + bit POKEGEAR_PAGER_CARD_F, a + jr z, .no_pager + ld c, POKEGEARSTATE_PAGERINIT + ld b, POKEGEARCARD_PAGER + jr .done + +.no_pager + ld a, [wPokegearFlags] + bit POKEGEAR_RADIO_CARD_F, a + ret z + ld c, POKEGEARSTATE_RADIOINIT + ld b, POKEGEARCARD_RADIO + jr .done + +.left + ld c, POKEGEARSTATE_CLOCKINIT + ld b, POKEGEARCARD_CLOCK +.done + call Pokegear_SwitchPage + ret + +.cancel + ld hl, wJumptableIndex + set 7, [hl] + ret + +.DPad: + ld hl, hJoyLast + ld a, [hl] + and D_UP + jr nz, .up + ld a, [hl] + and D_DOWN + jr nz, .down + ret + +.up + ld hl, wPokegearMapCursorLandmark + ld a, [hl] + cp d + jr c, .wrap_around_up + ld a, e + dec a + ld [hl], a +.wrap_around_up + inc [hl] + jr .done_dpad + +.down + ld hl, wPokegearMapCursorLandmark + ld a, [hl] + cp e + jr nz, .wrap_around_down + ld a, d + inc a + ld [hl], a +.wrap_around_down + dec [hl] +.done_dpad + ld a, [wPokegearMapCursorLandmark] + call PokegearMap_UpdateLandmarkName + ld a, [wPokegearMapCursorObjectPointer] + ld c, a + ld a, [wPokegearMapCursorObjectPointer + 1] + ld b, a + ld a, [wPokegearMapCursorLandmark] + call PokegearMap_UpdateCursorPosition + ret + +PokegearMap_InitPlayerIcon: + push af + depixel 0, 0 + ld b, SPRITE_ANIM_OBJ_RED_WALK + ld a, [wPlayerGender] + and a ; MALE + jr z, .got_gender + ld b, SPRITE_ANIM_INDEX_GREEN_WALK + dec a ; FEMALE + jr z, .got_gender + ld b, SPRITE_ANIM_INDEX_PURPLE_WALK +.got_gender + ld a, b + call InitSpriteAnimStruct + ld hl, SPRITEANIMSTRUCT_TILE_ID + add hl, bc + ld [hl], $10 + pop af + ld e, a + push bc + farcall GetLandmarkCoords + pop bc + ld hl, SPRITEANIMSTRUCT_XCOORD + add hl, bc + ld [hl], e + ld hl, SPRITEANIMSTRUCT_YCOORD + add hl, bc + ld [hl], d + ret + +PokegearMap_InitCursor: + push af + depixel 0, 0 + ld a, SPRITE_ANIM_OBJ_POKEGEAR_ARROW + call InitSpriteAnimStruct + ld hl, SPRITEANIMSTRUCT_TILE_ID + add hl, bc + ld [hl], $04 + ld hl, SPRITEANIMSTRUCT_ANIM_SEQ_ID + add hl, bc + ld [hl], SPRITE_ANIM_FUNC_NULL + pop af + push bc + call PokegearMap_UpdateCursorPosition + pop bc + ret + +PokegearMap_UpdateLandmarkName: + push af + hlcoord 8, 0 + lb bc, 2, 12 + call ClearBox + pop af + ld e, a + push de + farcall GetLandmarkName + pop de + farcall TownMap_ConvertLineBreakCharacters + hlcoord 8, 0 + ld [hl], $54 + ret + +PokegearMap_UpdateCursorPosition: + push bc + ld e, a + farcall GetLandmarkCoords + pop bc + ld hl, SPRITEANIMSTRUCT_XCOORD + add hl, bc + ld [hl], e + ld hl, SPRITEANIMSTRUCT_YCOORD + add hl, bc + ld [hl], d + ret + +TownMap_GetKantoLandmarkLimits: + ld a, [wStatusFlags] + bit STATUSFLAGS_HALL_OF_FAME_F, a + jr z, .not_hof + ld d, LANDMARK_ROUTE_25 + ld e, LANDMARK_PALLET_TOWN + ret + +.not_hof + ld d, LANDMARK_INDIGO_PLATEAU + ld e, LANDMARK_PALLET_TOWN + ret + +PokegearRadio_Init: + call InitPokegearTilemap + depixel 4, 10, 4, 4 + ld a, SPRITE_ANIM_OBJ_RADIO_TUNING_KNOB + call InitSpriteAnimStruct + ld hl, SPRITEANIMSTRUCT_TILE_ID + add hl, bc + ld [hl], $08 + call _UpdateRadioStation + ld hl, wJumptableIndex + inc [hl] + ret + +PokegearRadio_Joypad: + ld hl, hJoyLast + ld a, [hl] + and B_BUTTON + jr nz, .cancel + ld a, [hl] + and D_LEFT + jr nz, .left + ld a, [wPokegearRadioChannelAddr] + ld l, a + ld a, [wPokegearRadioChannelAddr + 1] + ld h, a + ld a, [wPokegearRadioChannelBank] + and a + ret z + rst FarCall + ret + +.left + ld a, [wPokegearFlags] + bit POKEGEAR_PAGER_CARD_F, a + jr z, .no_pager + ld c, POKEGEARSTATE_PAGERINIT + ld b, POKEGEARCARD_PAGER + jr .switch_page + +.no_pager + ld a, [wPokegearFlags] + bit POKEGEAR_MAP_CARD_F, a + jr z, .no_map + ld c, POKEGEARSTATE_MAPCHECKREGION + ld b, POKEGEARCARD_MAP + jr .switch_page + +.no_map + ld c, POKEGEARSTATE_CLOCKINIT + ld b, POKEGEARCARD_CLOCK +.switch_page + call Pokegear_SwitchPage + ret + +.cancel + ld hl, wJumptableIndex + set 7, [hl] + ret + +PokegearPager_Init: + ld hl, wJumptableIndex + inc [hl] + xor a + ld [wPokegearPagerScrollPosition], a + ld [wPokegearPagerCursorPosition], a + ld [wPokegearPagerSelectedPerson], a + call InitPokegearTilemap + call ExitPokegearRadio_HandleMusic + ld hl, PokegearAskWhoPageText + call PrintText + ret + +PokegearPager_Joypad: + ld hl, hJoyPressed + ld a, [hl] + and B_BUTTON + jr nz, .b + ld a, [hl] + and A_BUTTON + jr nz, .a + ld hl, hJoyLast + ld a, [hl] + and D_LEFT + jr nz, .left + ld a, [hl] + and D_RIGHT + jr nz, .right + call PokegearPager_GetDPad + ret + +.left + ld a, [wPokegearFlags] + bit POKEGEAR_MAP_CARD_F, a + jr z, .no_map + ld c, POKEGEARSTATE_MAPCHECKREGION + ld b, POKEGEARCARD_MAP + jr .switch_page + +.no_map + ld c, POKEGEARSTATE_CLOCKINIT + ld b, POKEGEARCARD_CLOCK + jr .switch_page + +.right + ld a, [wPokegearFlags] + bit POKEGEAR_RADIO_CARD_F, a + ret z + ld c, POKEGEARSTATE_RADIOINIT + ld b, POKEGEARCARD_RADIO +.switch_page + call Pokegear_SwitchPage + ret + +.b + ld hl, wJumptableIndex + set 7, [hl] + ret + +.a + ld hl, wPagerList + ld a, [wPokegearPagerScrollPosition] + ld e, a + ld d, 0 + add hl, de + ld a, [wPokegearPagerCursorPosition] + ld e, a + ld d, 0 + add hl, de + ld a, [hl] + and a + ret z + ld [wPokegearPagerSelectedPerson], a + hlcoord 1, 4 + ld a, [wPokegearPagerCursorPosition] + ld bc, SCREEN_WIDTH * 2 + call AddNTimes + ld [hl], "▷" + call PokegearPagerContactSubmenu + jr c, .quit_submenu + ld hl, wJumptableIndex + inc [hl] + ret + +.quit_submenu + ld a, POKEGEARSTATE_PAGERJOYPAD + ld [wJumptableIndex], a + ret + +PokegearPager_MakePagerCall: + call GetMapPagerService + and a + jr nz, .no_service + ld hl, wOptions + res NO_TEXT_SCROLL, [hl] + xor a + ldh [hInMenu], a + ld de, SFX_CALL + call PlaySFX + ld hl, .GearEllipseText + call PrintText + ld de, SFX_CALL + call WaitPlaySFX + ld hl, .GearEllipseText + call PrintText + call WaitSFX + ld a, [wPokegearPagerSelectedPerson] + ld b, a + call UsePagerFromPokegear + ld c, 10 + call DelayFrames + ld hl, wOptions + set NO_TEXT_SCROLL, [hl] + ld a, $1 + ldh [hInMenu], a + call PokegearPager_UpdateCursor + ld hl, wJumptableIndex + inc [hl] + ret + +.no_service + farcall Pager_NoSignal + ld hl, .GearOutOfServiceText + call PrintText + ld a, POKEGEARSTATE_PAGERJOYPAD + ld [wJumptableIndex], a + ld hl, PokegearAskWhoPageText + call PrintText + ret + +.GearEllipseText: + text_far _GearEllipseText + text_end + +.GearOutOfServiceText: + text_far _GearOutOfServiceText + text_end + +PokegearPager_FinishPagerCall: + ldh a, [hJoyPressed] + and A_BUTTON | B_BUTTON + ret z + farcall HangUp + ld a, POKEGEARSTATE_PAGERJOYPAD + ld [wJumptableIndex], a + ld hl, PokegearAskWhoPageText + call PrintText + ret + +PokegearPager_GetDPad: + ld hl, hJoyLast + ld a, [hl] + and D_UP + jr nz, .up + ld a, [hl] + and D_DOWN + jr nz, .down + ret + +.up + ld hl, wPokegearPagerCursorPosition + ld a, [hl] + and a + jr z, .scroll_page_up + dec [hl] + jr .done_joypad_same_page + +.scroll_page_up + ld hl, wPokegearPagerScrollPosition + ld a, [hl] + and a + ret z + dec [hl] + jr .done_joypad_update_page + +.down + ld hl, wPokegearPagerCursorPosition + ld a, [hl] + cp PAGER_DISPLAY_HEIGHT - 1 + jr nc, .scroll_page_down + inc [hl] + jr .done_joypad_same_page + +.scroll_page_down + ld hl, wPokegearPagerScrollPosition + ld a, [hl] + cp CONTACT_LIST_SIZE - PAGER_DISPLAY_HEIGHT + ret nc + inc [hl] + jr .done_joypad_update_page + +.done_joypad_same_page + xor a + ldh [hBGMapMode], a + call PokegearPager_UpdateCursor + call WaitBGMap + ret + +.done_joypad_update_page + xor a + ldh [hBGMapMode], a + call PokegearPager_UpdateDisplayList + call WaitBGMap + ret + +PokegearPager_UpdateCursor: + ld a, " " +for y, PAGER_DISPLAY_HEIGHT + hlcoord 1, 4 + y * 2 + ld [hl], a +endr + hlcoord 1, 4 + ld a, [wPokegearPagerCursorPosition] + ld bc, 2 * SCREEN_WIDTH + call AddNTimes + ld [hl], "▶" + ret + +PokegearPager_UpdateDisplayList: + hlcoord 1, 3 + ld b, PAGER_DISPLAY_HEIGHT * 2 + 1 + ld a, " " +.row + ld c, SCREEN_WIDTH - 2 +.col + ld [hli], a + dec c + jr nz, .col + inc hl + inc hl + dec b + jr nz, .row + ld a, [wPokegearPagerScrollPosition] + ld e, a + ld d, 0 + ld hl, wPagerList + add hl, de + xor a + ld [wPokegearPagerDisplayPosition], a +.loop + ld a, [hli] + push hl + push af + hlcoord 2, 4 + ld a, [wPokegearPagerDisplayPosition] + ld bc, 2 * SCREEN_WIDTH + call AddNTimes + ld d, h + ld e, l + pop af + ld b, a + call GetPagerClassAndName + pop hl + ld a, [wPokegearPagerDisplayPosition] + inc a + ld [wPokegearPagerDisplayPosition], a + cp PAGER_DISPLAY_HEIGHT + jr c, .loop + call PokegearPager_UpdateCursor + ret + +PokegearPager_DeletePagerNumber: + ld hl, wPagerList + ld a, [wPokegearPagerScrollPosition] + ld e, a + ld d, 0 + add hl, de + ld a, [wPokegearPagerCursorPosition] + ld e, a + ld d, 0 + add hl, de + ld [hl], 0 + ld hl, wPagerList + ld c, CONTACT_LIST_SIZE +.loop + ld a, [hli] + and a + jr nz, .skip + ld a, [hld] + ld [hli], a + ld [hl], 0 +.skip + dec c + jr nz, .loop + ret + +PokegearPagerContactSubmenu: + ld hl, wPagerList + ld a, [wPokegearPagerScrollPosition] + ld e, a + ld d, 0 + add hl, de + ld a, [wPokegearPagerCursorPosition] + ld e, a + ld d, 0 + add hl, de + ld c, [hl] + farcall CheckCanDeletePagerNumber + ld a, c + and a + jr z, .cant_delete + ld hl, .PageDeleteCancelJumptable + ld de, .PageDeleteCancelStrings + jr .got_menu_data + +.cant_delete + ld hl, .PageCancelJumptable + ld de, .PageCancelStrings +.got_menu_data + xor a + ldh [hBGMapMode], a + push hl + push de + ld a, [de] + ld l, a + inc de + ld a, [de] + ld h, a + inc de + push hl + bccoord -1, -2, 0 + add hl, bc + ld a, [de] + inc de + sla a + ld b, a + ld c, 8 + push de + call Textbox + pop de + pop hl + inc hl + call PlaceString + pop de + xor a + ld [wPokegearPagerSubmenuCursor], a + call .UpdateCursor + call WaitBGMap +.loop + push de + call JoyTextDelay + pop de + ld hl, hJoyPressed + ld a, [hl] + and D_UP + jr nz, .d_up + ld a, [hl] + and D_DOWN + jr nz, .d_down + ld a, [hl] + and A_BUTTON | B_BUTTON + jr nz, .a_b + call DelayFrame + jr .loop + +.d_up + ld hl, wPokegearPagerSubmenuCursor + ld a, [hl] + and a + jr z, .loop + dec [hl] + call .UpdateCursor + jr .loop + +.d_down + ld hl, 2 + add hl, de + ld a, [wPokegearPagerSubmenuCursor] + inc a + cp [hl] + jr nc, .loop + ld [wPokegearPagerSubmenuCursor], a + call .UpdateCursor + jr .loop + +.a_b + xor a + ldh [hBGMapMode], a + call PokegearPager_UpdateDisplayList + ld a, $1 + ldh [hBGMapMode], a + pop hl + ldh a, [hJoyPressed] + and B_BUTTON + jr nz, .Cancel + ld a, [wPokegearPagerSubmenuCursor] + ld e, a + ld d, 0 + add hl, de + add hl, de + ld a, [hli] + ld h, [hl] + ld l, a + jp hl + +.Cancel: + ld hl, PokegearAskWhoPageText + call PrintText + scf + ret + +.Delete: + ld hl, PokegearAskDeleteText + call MenuTextbox + call YesNoBox + call ExitMenu + jr c, .CancelDelete + call PokegearPager_DeletePagerNumber + xor a + ldh [hBGMapMode], a + call PokegearPager_UpdateDisplayList + ld hl, PokegearAskWhoPageText + call PrintText + call WaitBGMap +.CancelDelete: + scf + ret + +.Page: + and a + ret + +.UpdateCursor: + push de + ld a, [de] + inc de + ld l, a + ld a, [de] + inc de + ld h, a + ld a, [de] + ld c, a + push hl + ld a, " " + ld de, SCREEN_WIDTH * 2 +.clear_column + ld [hl], a + add hl, de + dec c + jr nz, .clear_column + pop hl + ld a, [wPokegearPagerSubmenuCursor] + ld bc, SCREEN_WIDTH * 2 + call AddNTimes + ld [hl], "▶" + pop de + ret + +.PageDeleteCancelStrings: + dwcoord 10, 6 + db 3 + db "PAGE" + next "DELETE" + next "CANCEL" + db "@" + +.PageDeleteCancelJumptable: + dw .Page + dw .Delete + dw .Cancel + +.PageCancelStrings: + dwcoord 10, 8 + db 2 + db "PAGE" + next "CANCEL" + db "@" + +.PageCancelJumptable: + dw .Page + dw .Cancel + +GetAMPMHours: ; unreferenced + ldh a, [hHours] + cp NOON_HOUR + jr c, .am + sub NOON_HOUR + ld [wTempByteValue], a + scf + ret + +.am + ld [wTempByteValue], a + and a + ret + +Pokegear_SwitchPage: + ld de, SFX_PRESS_AB_1 + call PlaySFX + ld a, c + ld [wJumptableIndex], a + ld a, b + ld [wPokegearCard], a + call DeleteSpriteAnimStruct2ToEnd + ret + +ExitPokegearRadio_HandleMusic: + ld a, [wPokegearRadioMusicPlaying] + cp RESTART_MAP_MUSIC + jr z, .restart_map_music + cp ENTER_MAP_MUSIC + call z, PlayMapMusicBike + xor a + ld [wPokegearRadioMusicPlaying], a + ret + +.restart_map_music + call RestartMapMusic + xor a + ld [wPokegearRadioMusicPlaying], a + ret + +DeleteSpriteAnimStruct2ToEnd: + ld hl, wSpriteAnim2 + ld bc, wSpriteAnimationStructsEnd - wSpriteAnim2 + xor a + call ByteFill + ld a, 2 + ld [wSpriteAnimCount], a + ret + +Pokegear_LoadTilemapRLE: + ; Format: repeat count, tile ID + ; Terminated with -1 + hlcoord 0, 0 +.loop + ld a, [de] + cp -1 + ret z + ld b, a + inc de + ld a, [de] + ld c, a + inc de + ld a, b +.load + ld [hli], a + dec c + jr nz, .load + jr .loop + +PokegearAskWhoPageText: + text_far _PokegearAskWhoPageText + text_end + +PokegearPressButtonText: + text_far _PokegearPressButtonText + text_end + +PokegearAskDeleteText: + text_far _PokegearAskDeleteText + text_end + +PokegearSpritesGFX: +INCBIN "gfx/pokegear/pokegear_sprites.2bpp.lz" + +RadioTilemapRLE: +INCBIN "gfx/pokegear/radio.tilemap.rle" +PagerTilemapRLE: +INCBIN "gfx/pokegear/pager.tilemap.rle" +ClockTilemapRLE: +INCBIN "gfx/pokegear/clock.tilemap.rle" + +_UpdateRadioStation: + jr UpdateRadioStation + +; called from engine/sprite_anims/functions.asm + +AnimateTuningKnob: + push bc + call .TuningKnob + pop bc + ld a, [wRadioTuningKnob] + ld hl, SPRITEANIMSTRUCT_XOFFSET + add hl, bc + ld [hl], a + ret + +.TuningKnob: + ld hl, hJoyLast + ld a, [hl] + and D_DOWN + jr nz, .down + ld a, [hl] + and D_UP + jr nz, .up + ret + +.down + ld hl, wRadioTuningKnob + ld a, [hl] + and a + ret z + dec [hl] + dec [hl] + jr .update + +.up + ld hl, wRadioTuningKnob + ld a, [hl] + cp 80 + ret nc + inc [hl] + inc [hl] +.update +UpdateRadioStation: + ld hl, wRadioTuningKnob + ld d, [hl] + ld hl, RadioChannels +.loop + ld a, [hli] + cp -1 + jr z, .nostation + cp d + jr z, .foundstation + inc hl + inc hl + jr .loop + +.nostation + call NoRadioStation + ret + +.foundstation + ld a, [hli] + ld h, [hl] + ld l, a + ld de, .returnafterstation + push de + jp hl + +.returnafterstation + ld a, [wPokegearRadioChannelBank] + and a + ret z + xor a + ldh [hBGMapMode], a + hlcoord 2, 9 + call PlaceString + ld a, $1 + ldh [hBGMapMode], a + ret + +LoadPokegearRadioChannelPointer: ; unreferenced + ld [wPokegearRadioChannelBank], a + ld a, [hli] + ld [wPokegearRadioChannelAddr], a + ld a, [hli] + ld [wPokegearRadioChannelAddr + 1], a + ret + +RadioChannels: +; entries correspond to constants/radio_constants.asm +; frequency value given here = 4 × ingame_frequency − 2 + dbw 16, .PKMNTalkAndPokedexShow ; 04.5 + dbw 28, .PokemonMusic ; 07.5 + dbw 32, .LuckyChannel ; 08.5 + dbw 40, .BuenasPassword ; 10.5 + dbw 52, .RuinsOfAlphRadio ; 13.5 + dbw 64, .PlacesAndPeople ; 16.5 + dbw 72, .LetsAllSing ; 18.5 + dbw 78, .PokeFluteRadio ; 20.0 + dbw 80, .EvolutionRadio ; 20.5 + db -1 + +.PKMNTalkAndPokedexShow: +; Pokédex Show in the morning +; Oak's Pokémon Talk in the afternoon and evening + call .InJohto + jr nc, .NoSignal + ld a, [wTimeOfDay] + and a + jp z, LoadStation_PokedexShow + jp LoadStation_OaksPokemonTalk + +.PokemonMusic: + call .InJohto + jr nc, .NoSignal + jp LoadStation_PokemonMusic + +.LuckyChannel: + call .InJohto + jr nc, .NoSignal + jp LoadStation_LuckyChannel + +.BuenasPassword: + call .InJohto + jr nc, .NoSignal + jp LoadStation_BuenasPassword + +.RuinsOfAlphRadio: + ld a, [wPokegearMapPlayerIconLandmark] + cp LANDMARK_RUINS_OF_ALPH + jr nz, .NoSignal + jp LoadStation_UnownRadio + +.PlacesAndPeople: + call .InJohto + jr c, .NoSignal + ld a, [wPokegearFlags] + bit POKEGEAR_EXPN_CARD_F, a + jr z, .NoSignal + jp LoadStation_PlacesAndPeople + +.LetsAllSing: + call .InJohto + jr c, .NoSignal + ld a, [wPokegearFlags] + bit POKEGEAR_EXPN_CARD_F, a + jr z, .NoSignal + jp LoadStation_LetsAllSing + +.PokeFluteRadio: + call .InJohto + jr c, .NoSignal + ld a, [wPokegearFlags] + bit POKEGEAR_EXPN_CARD_F, a + jr z, .NoSignal + jp LoadStation_PokeFluteRadio + +.EvolutionRadio: +; This station airs in the Lake of Rage area when Team Rocket is still in Mahogany. + ld a, [wStatusFlags] + bit STATUSFLAGS_ROCKET_SIGNAL_F, a + jr z, .NoSignal + ld a, [wPokegearMapPlayerIconLandmark] + cp LANDMARK_MAHOGANY_TOWN + jr z, .ok + cp LANDMARK_ROUTE_43 + jr z, .ok + cp LANDMARK_LAKE_OF_RAGE + jr nz, .NoSignal +.ok + jp LoadStation_EvolutionRadio + +.NoSignal: + call NoRadioStation + ret + +.InJohto: +; if in Johto or on the S.S. Aqua, set carry +; otherwise clear carry + ld a, [wPokegearMapPlayerIconLandmark] + cp LANDMARK_SS_ANNE + jr z, .johto + cp KANTO_LANDMARK + jr c, .johto +; kanto + and a + ret + +.johto + scf + ret + +LoadStation_OaksPokemonTalk: + xor a ; OAKS_POKEMON_TALK + ld [wCurRadioLine], a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, OaksPKMNTalkName + ret + +LoadStation_PokedexShow: + ld a, POKEDEX_SHOW + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, PokedexShowName + ret + +LoadStation_PokemonMusic: + ld a, POKEMON_MUSIC + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, PokemonMusicName + ret + +LoadStation_LuckyChannel: + ld a, LUCKY_CHANNEL + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, LuckyChannelName + ret + +LoadStation_BuenasPassword: + ld a, BUENAS_PASSWORD + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, NotBuenasPasswordName + ld a, [wStatusFlags2] + bit STATUSFLAGS2_ROCKETS_IN_RADIO_TOWER_F, a + ret z + ld de, BuenasPasswordName + ret + +BuenasPasswordName: db "BUENA'S PASSWORD@" +NotBuenasPasswordName: db "@" + +LoadStation_UnownRadio: + ld a, UNOWN_RADIO + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, UnownStationName + ret + +LoadStation_PlacesAndPeople: + ld a, PLACES_AND_PEOPLE + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, PlacesAndPeopleName + ret + +LoadStation_LetsAllSing: + ld a, LETS_ALL_SING + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, LetsAllSingName + ret + +LoadStation_RocketRadio: + ld a, ROCKET_RADIO + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, LetsAllSingName + ret + +LoadStation_PokeFluteRadio: + ld a, POKE_FLUTE_RADIO + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, PokeFluteStationName + ret + +LoadStation_EvolutionRadio: + ld a, EVOLUTION_RADIO + ld [wCurRadioLine], a + xor a + ld [wNumRadioLinesPrinted], a + ld a, BANK(PlayRadioShow) + ld hl, PlayRadioShow + call Radio_BackUpFarCallParams + ld de, UnownStationName + ret + +DummyLoadStation: ; unreferenced + ret + +RadioMusicRestartDE: + push de + ld a, e + ld [wPokegearRadioMusicPlaying], a + ld de, MUSIC_NONE + call PlayMusic + pop de + ld a, e + ld [wMapMusic], a + call PlayMusic + ret + +RadioMusicRestartPokemonChannel: + push de + ld a, RESTART_MAP_MUSIC + ld [wPokegearRadioMusicPlaying], a + ld de, MUSIC_NONE + call PlayMusic + pop de + ld de, MUSIC_POKEMON_CHANNEL + call PlayMusic + ret + +Radio_BackUpFarCallParams: + ld [wPokegearRadioChannelBank], a + ld a, l + ld [wPokegearRadioChannelAddr], a + ld a, h + ld [wPokegearRadioChannelAddr + 1], a + ret + +NoRadioStation: + call NoRadioMusic + call NoRadioName +; no radio channel + xor a + ld [wPokegearRadioChannelBank], a + ld [wPokegearRadioChannelAddr], a + ld [wPokegearRadioChannelAddr + 1], a + ld a, $1 + ldh [hBGMapMode], a + ret + +NoRadioMusic: + ld de, MUSIC_NONE + call PlayMusic + ld a, ENTER_MAP_MUSIC + ld [wPokegearRadioMusicPlaying], a + ret + +NoRadioName: + xor a + ldh [hBGMapMode], a + hlcoord 1, 8 + lb bc, 3, 18 + call ClearBox + hlcoord 0, 12 + lb bc, 4, 18 + call Textbox + ret + +OaksPKMNTalkName: db "OAK's Talk@" +PokedexShowName: db "#DEX Show@" +PokemonMusicName: db "#MON Music@" +LuckyChannelName: db "Lucky Channel@" +UnownStationName: db "?????@" + +PlacesAndPeopleName: db "Places & People@" +LetsAllSingName: db "Let's All Sing!@" +PokeFluteStationName: db "# FLUTE@" + +_TownMap: + ld hl, wOptions + ld a, [hl] + push af + set NO_TEXT_SCROLL, [hl] + + ldh a, [hInMenu] + push af + ld a, $1 + ldh [hInMenu], a + + ld a, [wStateFlags] + push af + xor a + ld [wStateFlags], a + + call ClearBGPalettes + call ClearTilemap + call ClearSprites + call DisableLCD + call Pokegear_LoadGFX + farcall ClearSpriteAnims + ld a, 8 + call SkipMusic + ld a, LCDC_DEFAULT + ldh [rLCDC], a + call TownMap_GetCurrentLandmark + ld [wTownMapPlayerIconLandmark], a + ld [wTownMapCursorLandmark], a + xor a + ldh [hBGMapMode], a + call .InitTilemap + call WaitBGMap2 + ld a, [wTownMapPlayerIconLandmark] + call PokegearMap_InitPlayerIcon + ld a, [wTownMapCursorLandmark] + call PokegearMap_InitCursor + ld a, c + ld [wTownMapCursorObjectPointer], a + ld a, b + ld [wTownMapCursorObjectPointer + 1], a + ld b, SCGB_POKEGEAR_PALS + call GetSGBLayout + call SetDefaultBGPAndOBP + ldh a, [hCGB] + and a + jr z, .dmg + ld a, %11100100 + call DmgToCgbObjPal0 + call DelayFrame + +.dmg + ld a, [wTownMapPlayerIconLandmark] + cp KANTO_LANDMARK + jr nc, .kanto + ld d, KANTO_LANDMARK - 1 + ld e, 1 + call .loop + jr .resume + +.kanto + call TownMap_GetKantoLandmarkLimits + call .loop + +.resume + pop af + ld [wStateFlags], a + pop af + ldh [hInMenu], a + pop af + ld [wOptions], a + call ClearBGPalettes + ret + +.loop + call JoyTextDelay + ld hl, hJoyPressed + ld a, [hl] + and B_BUTTON + ret nz + + ld hl, hJoyLast + ld a, [hl] + and D_UP + jr nz, .pressed_up + + ld a, [hl] + and D_DOWN + jr nz, .pressed_down +.loop2 + push de + farcall PlaySpriteAnimations + pop de + call DelayFrame + jr .loop + +.pressed_up + ld hl, wTownMapCursorLandmark + ld a, [hl] + cp d + jr c, .okay + ld a, e + dec a + ld [hl], a + +.okay + inc [hl] + jr .next + +.pressed_down + ld hl, wTownMapCursorLandmark + ld a, [hl] + cp e + jr nz, .okay2 + ld a, d + inc a + ld [hl], a + +.okay2 + dec [hl] + +.next + push de + ld a, [wTownMapCursorLandmark] + call PokegearMap_UpdateLandmarkName + ld a, [wTownMapCursorObjectPointer] + ld c, a + ld a, [wTownMapCursorObjectPointer + 1] + ld b, a + ld a, [wTownMapCursorLandmark] + call PokegearMap_UpdateCursorPosition + pop de + jr .loop2 + +.InitTilemap: + ld a, [wTownMapPlayerIconLandmark] + cp KANTO_LANDMARK + jr nc, .kanto2 + ld e, JOHTO_REGION + jr .okay_tilemap + +.kanto2 + ld e, KANTO_REGION +.okay_tilemap + farcall PokegearMap + ld a, $07 + ld bc, 6 + hlcoord 1, 0 + call ByteFill + hlcoord 0, 0 + ld [hl], $06 + hlcoord 7, 0 + ld [hl], $17 + hlcoord 7, 1 + ld [hl], $16 + hlcoord 7, 2 + ld [hl], $26 + ld a, $07 + ld bc, NAME_LENGTH + hlcoord 8, 2 + call ByteFill + hlcoord 19, 2 + ld [hl], $17 + ld a, [wTownMapCursorLandmark] + call PokegearMap_UpdateLandmarkName + farcall TownMapPals + ret + +PlayRadio: + ld hl, wOptions + ld a, [hl] + push af + set NO_TEXT_SCROLL, [hl] + call .PlayStation + ld c, 100 + call DelayFrames +.loop + call JoyTextDelay + ldh a, [hJoyPressed] + and A_BUTTON | B_BUTTON + jr nz, .stop + ld a, [wPokegearRadioChannelAddr] + ld l, a + ld a, [wPokegearRadioChannelAddr + 1] + ld h, a + ld a, [wPokegearRadioChannelBank] + and a + jr z, .zero + rst FarCall +.zero + call DelayFrame + jr .loop + +.stop + pop af + ld [wOptions], a + call ExitPokegearRadio_HandleMusic + ret + +.PlayStation: + ld a, ENTER_MAP_MUSIC + ld [wPokegearRadioMusicPlaying], a + ld hl, PlayRadioStationPointers + ld d, 0 + add hl, de + add hl, de + ld a, [hli] + ld h, [hl] + ld l, a + ld de, .jump_return + push de + jp hl + +.jump_return + push de + hlcoord 0, 12 + lb bc, 4, 18 + call Textbox + hlcoord 1, 14 + ld [hl], "“" + pop de + hlcoord 2, 14 + call PlaceString + ld h, b + ld l, c + ld [hl], "”" + call WaitBGMap + ret + +PlayRadioStationPointers: +; entries correspond to MAPRADIO_* constants + table_width 2, PlayRadioStationPointers + dw LoadStation_PokemonChannel + dw LoadStation_OaksPokemonTalk + dw LoadStation_PokedexShow + dw LoadStation_PokemonMusic + dw LoadStation_LuckyChannel + dw LoadStation_UnownRadio + dw LoadStation_PlacesAndPeople + dw LoadStation_LetsAllSing + dw LoadStation_RocketRadio + assert_table_length NUM_MAP_RADIO_STATIONS + +LoadStation_PokemonChannel: + call IsInJohto + and a + jr nz, .kanto + call UpdateTime + ld a, [wTimeOfDay] + and a + jp z, LoadStation_PokedexShow + jp LoadStation_OaksPokemonTalk + +.kanto: + jp LoadStation_PlacesAndPeople + +PokegearMap: + ld a, e + and a + jr nz, .kanto + call LoadTownMapGFX + call FillJohtoMap + ret + +.kanto + call LoadTownMapGFX + call FillKantoMap + ret + +_FlyMap: + call ClearBGPalettes + call ClearTilemap + call ClearSprites + ld hl, hInMenu + ld a, [hl] + push af + ld [hl], $1 + xor a + ldh [hBGMapMode], a + farcall ClearSpriteAnims + call LoadTownMapGFX + ld de, FlyMapLabelBorderGFX + ld hl, vTiles2 tile $50 + lb bc, BANK(FlyMapLabelBorderGFX), 6 + call Request1bpp + call FlyMap + call Pokegear_DummyFunction + ld b, SCGB_POKEGEAR_PALS + call GetSGBLayout + call SetDefaultBGPAndOBP +.loop + call JoyTextDelay + ld hl, hJoyPressed + ld a, [hl] + and B_BUTTON + jr nz, .pressedB + ld a, [hl] + and A_BUTTON + jr nz, .pressedA + call .HandleDPad + call GetMapCursorCoordinates + farcall PlaySpriteAnimations + call DelayFrame + jr .loop + +.pressedB + ld a, -1 + jr .exit + +.pressedA + ld a, [wTownMapPlayerIconLandmark] + ld l, a + ld h, 0 + add hl, hl + ld de, Flypoints + 1 + add hl, de + ld a, [hl] +.exit + ld [wTownMapPlayerIconLandmark], a + pop af + ldh [hInMenu], a + call ClearBGPalettes + ld a, SCREEN_HEIGHT_PX + ldh [hWY], a + xor a ; LOW(vBGMap0) + ldh [hBGMapAddress], a + ld a, HIGH(vBGMap0) + ldh [hBGMapAddress + 1], a + ld a, [wTownMapPlayerIconLandmark] + ld e, a + ret + +.HandleDPad: + ld a, [wStartFlypoint] + ld e, a + ld a, [wEndFlypoint] + ld d, a + ld hl, hJoyLast + ld a, [hl] + and D_UP + jr nz, .ScrollNext + ld a, [hl] + and D_DOWN + jr nz, .ScrollPrev + ret + +.ScrollNext: + ld hl, wTownMapPlayerIconLandmark + ld a, [hl] + cp d + jr nz, .NotAtEndYet + ld a, e + dec a + ld [hl], a +.NotAtEndYet: + inc [hl] + call CheckIfVisitedFlypoint + jr z, .ScrollNext + jr .Finally + +.ScrollPrev: + ld hl, wTownMapPlayerIconLandmark + ld a, [hl] + cp e + jr nz, .NotAtStartYet + ld a, d + inc a + ld [hl], a +.NotAtStartYet: + dec [hl] + call CheckIfVisitedFlypoint + jr z, .ScrollPrev +.Finally: + call TownMapBubble + call WaitBGMap + xor a + ldh [hBGMapMode], a + ret + +TownMapBubble: +; Draw the bubble containing the location text in the town map HUD + +; Top-left corner + hlcoord 1, 0 + ld a, $50 + ld [hli], a +; Top row + ld bc, 16 + ld a, " " + call ByteFill +; Top-right corner + ld a, $51 + ld [hl], a + hlcoord 1, 1 + +; Middle row + ld bc, SCREEN_WIDTH - 2 + ld a, " " + call ByteFill + +; Bottom-left corner + hlcoord 1, 2 + ld a, $52 + ld [hli], a +; Bottom row + ld bc, 16 + ld a, " " + call ByteFill +; Bottom-right corner + ld a, $53 + ld [hl], a + +; Print "Where?" + hlcoord 2, 0 + ld de, .Where + call PlaceString +; Print the name of the default flypoint + call .Name +; Up/down arrows + hlcoord 18, 1 + ld [hl], $54 + ret + +.Where: + db "Where?@" + +.Name: +; We need the map location of the default flypoint + ld a, [wTownMapPlayerIconLandmark] + ld l, a + ld h, 0 + add hl, hl ; two bytes per flypoint + ld de, Flypoints + add hl, de + ld e, [hl] + farcall GetLandmarkName + hlcoord 2, 1 + ld de, wStringBuffer1 + call PlaceString + ret + +GetMapCursorCoordinates: + ld a, [wTownMapPlayerIconLandmark] + ld l, a + ld h, 0 + add hl, hl + ld de, Flypoints + add hl, de + ld e, [hl] + farcall GetLandmarkCoords + ld a, [wTownMapCursorCoordinates] + ld c, a + ld a, [wTownMapCursorCoordinates + 1] + ld b, a + ld hl, 4 + add hl, bc + ld [hl], e + ld hl, 5 + add hl, bc + ld [hl], d + ret + +CheckIfVisitedFlypoint: +; Check if the flypoint loaded in [hl] has been visited yet. + push bc + push de + push hl + ld l, [hl] + ld h, 0 + add hl, hl + ld de, Flypoints + 1 + add hl, de + ld c, [hl] + call HasVisitedSpawn + pop hl + pop de + pop bc + and a + ret + +HasVisitedSpawn: +; Check if spawn point c has been visited. + ld hl, wVisitedSpawns + ld b, CHECK_FLAG + ld d, 0 + predef SmallFarFlagAction + ld a, c + ret + +INCLUDE "data/maps/flypoints.asm" + +Pokegear_DummyFunction: + ret + +FlyMap: + ld a, [wMapGroup] + ld b, a + ld a, [wMapNumber] + ld c, a + call GetWorldMapLocation +; If we're not in a valid location, i.e. Pokecenter floor 2F, +; the backup map information is used. + cp LANDMARK_SPECIAL + jr nz, .CheckRegion + ld a, [wBackupMapGroup] + ld b, a + ld a, [wBackupMapNumber] + ld c, a + call GetWorldMapLocation +.CheckRegion: +; The first 46 locations are part of Johto. The rest are in Kanto. + cp KANTO_LANDMARK + jr nc, .KantoFlyMap +; Johto fly map +; Note that .NoKanto should be modified in tandem with this branch + push af + ld a, JOHTO_FLYPOINT ; first Johto flypoint + ld [wTownMapPlayerIconLandmark], a ; first one is default (New Bark Town) + ld [wStartFlypoint], a + ld a, KANTO_FLYPOINT - 1 ; last Johto flypoint + ld [wEndFlypoint], a +; Fill out the map + call FillJohtoMap + call .MapHud + pop af + call TownMapPlayerIcon + ret + +.KantoFlyMap: +; The event that there are no flypoints enabled in a map is not +; accounted for. As a result, if you attempt to select a flypoint +; when there are none enabled, the game will crash. Additionally, +; the flypoint selection has a default starting point that +; can be flown to even if none are enabled. +; To prevent both of these things from happening when the player +; enters Kanto, fly access is restricted until Indigo Plateau is +; visited and its flypoint enabled. + push af + ld c, SPAWN_INDIGO + call HasVisitedSpawn + and a + jr z, .NoKanto +; Kanto's map is only loaded if we've visited Indigo Plateau + ld a, KANTO_FLYPOINT ; first Kanto flypoint + ld [wStartFlypoint], a + ld a, NUM_FLYPOINTS - 1 ; last Kanto flypoint + ld [wEndFlypoint], a + ld [wTownMapPlayerIconLandmark], a ; last one is default (Indigo Plateau) +; Fill out the map + call FillKantoMap + call .MapHud + pop af + call TownMapPlayerIcon + ret + +.NoKanto: +; If Indigo Plateau hasn't been visited, we use Johto's map instead + ld a, JOHTO_FLYPOINT ; first Johto flypoint + ld [wTownMapPlayerIconLandmark], a ; first one is default (New Bark Town) + ld [wStartFlypoint], a + ld a, KANTO_FLYPOINT - 1 ; last Johto flypoint + ld [wEndFlypoint], a + call FillJohtoMap + pop af +.MapHud: + call TownMapBubble + call TownMapPals + hlbgcoord 0, 0 ; BG Map 0 + call TownMapBGUpdate + call TownMapMon + ld a, c + ld [wTownMapCursorCoordinates], a + ld a, b + ld [wTownMapCursorCoordinates + 1], a + ret + +Pokedex_GetArea: +; e: Current landmark + ld a, [wTownMapPlayerIconLandmark] + push af + ld a, [wTownMapCursorLandmark] + push af + ld a, e + ld [wTownMapPlayerIconLandmark], a + call ClearSprites + xor a + ldh [hBGMapMode], a + ld a, $1 + ldh [hInMenu], a + ld de, PokedexNestIconGFX + ld hl, vTiles0 tile $7f + lb bc, BANK(PokedexNestIconGFX), 1 + call Request2bpp + call .GetPlayerOrFastShipIcon + ld hl, vTiles0 tile $78 + ld c, 4 + call Request2bpp + call LoadTownMapGFX + call FillKantoMap + call .PlaceString_MonsNest + call TownMapPals + hlbgcoord 0, 0, vBGMap1 + call TownMapBGUpdate + call .PlaceString_MonsNest + call TownMapPals + hlbgcoord 0, 0 + call TownMapBGUpdate + ld b, SCGB_POKEGEAR_PALS + call GetSGBLayout + call SetDefaultBGPAndOBP + xor a + call .GetAndPlaceNest +.loop + call JoyTextDelay + ld hl, hJoyPressed + ld a, [hl] + and A_BUTTON | B_BUTTON + jr nz, .a_b + ldh a, [hJoypadDown] + and SELECT + jr nz, .select + call .LeftRightInput + call .BlinkNestIcons + jr .next + +.select + call .HideNestsShowPlayer +.next + call DelayFrame + jr .loop + +.a_b + call ClearSprites + pop af + ld [wTownMapCursorLandmark], a + pop af + ld [wTownMapPlayerIconLandmark], a + ret + +.LeftRightInput: + ld a, [hl] + and D_LEFT + jr nz, .left + ld a, [hl] + and D_RIGHT + jr nz, .right + ret + +.left + ldh a, [hWY] + cp SCREEN_HEIGHT_PX + ret z + call ClearSprites + ld a, SCREEN_HEIGHT_PX + ldh [hWY], a + xor a ; JOHTO_REGION + call .GetAndPlaceNest + ret + +.right + ld a, [wStatusFlags] + bit STATUSFLAGS_HALL_OF_FAME_F, a + ret z + ldh a, [hWY] + and a + ret z + call ClearSprites + xor a + ldh [hWY], a + ld a, KANTO_REGION + call .GetAndPlaceNest + ret + +.BlinkNestIcons: + ldh a, [hVBlankCounter] + ld e, a + and $f + ret nz + ld a, e + and $10 + jr nz, .copy_sprites + call ClearSprites + ret + +.copy_sprites + hlcoord 0, 0 + ld de, wShadowOAM + ld bc, wShadowOAMEnd - wShadowOAM + call CopyBytes + ret + +.PlaceString_MonsNest: + hlcoord 0, 0 + ld bc, SCREEN_WIDTH + ld a, " " + call ByteFill + hlcoord 0, 1 + ld a, $06 + ld [hli], a + ld bc, SCREEN_WIDTH - 2 + ld a, $07 + call ByteFill + ld [hl], $17 + call GetPokemonName + hlcoord 2, 0 + call PlaceString + ld h, b + ld l, c + ld de, .String_SNest + call PlaceString + ret + +.String_SNest: + db "'S NEST@" + +.GetAndPlaceNest: + ld [wTownMapCursorLandmark], a + ld e, a + farcall FindNest ; load nest landmarks into wTilemap[0,0] + decoord 0, 0 + ld hl, wShadowOAMSprite00 +.nestloop + ld a, [de] + and a + jr z, .done_nest + push de + ld e, a + push hl + farcall GetLandmarkCoords + pop hl + ; load into OAM + ld a, d + sub 4 + ld [hli], a ; y + ld a, e + sub 4 + ld [hli], a ; x + ld a, $7f ; nest icon + ld [hli], a ; tile id + xor a + ld [hli], a ; attributes + ; next + pop de + inc de + jr .nestloop + +.done_nest + ld hl, wShadowOAM + decoord 0, 0 + ld bc, wShadowOAMEnd - wShadowOAM + call CopyBytes + ret + +.HideNestsShowPlayer: + call .CheckPlayerLocation + ret c + ld a, [wTownMapPlayerIconLandmark] + ld e, a + farcall GetLandmarkCoords + ld c, e + ld b, d + ld de, .PlayerOAM + ld hl, wShadowOAMSprite00 +.ShowPlayerLoop: + ld a, [de] + cp $80 + jr z, .clear_oam + add b + ld [hli], a ; y + inc de + ld a, [de] + add c + ld [hli], a ; x + inc de + ld a, [de] + add $78 ; where the player's sprite is loaded + ld [hli], a ; tile id + inc de + push bc + ld c, PAL_OW_RED + ld a, [wPlayerGender] +<<<<<<< HEAD + and a ; MALE + jr z, .got_gender + inc c ; PAL_OW_GREEN + dec a ; FEMALE + jr z, .got_gender + inc c ; PAL_OW_PURPLE +.got_gender +======= + bit PLAYERGENDER_FEMALE_F, a + jr z, .male + inc c ; PAL_OW_BLUE +.male +>>>>>>> parent of 4432df05c (Add more assert cases in the codebase (#1115)) + ld a, c + ld [hli], a ; attributes + pop bc + jr .ShowPlayerLoop + +.clear_oam + ld hl, wShadowOAMSprite04 + ld bc, wShadowOAMEnd - wShadowOAMSprite04 + xor a + call ByteFill + ret + +.PlayerOAM: + ; y pxl, x pxl, tile offset + db -1 * TILE_WIDTH, -1 * TILE_WIDTH, 0 ; top left + db -1 * TILE_WIDTH, 0 * TILE_WIDTH, 1 ; top right + db 0 * TILE_WIDTH, -1 * TILE_WIDTH, 2 ; bottom left + db 0 * TILE_WIDTH, 0 * TILE_WIDTH, 3 ; bottom right + db $80 ; terminator + +.CheckPlayerLocation: +; Don't show the player's sprite if you're +; not in the same region as what's currently +; on the screen. + ld a, [wTownMapPlayerIconLandmark] + cp LANDMARK_SS_ANNE + jr z, .johto + cp KANTO_LANDMARK + jr c, .johto +; kanto + ld a, [wTownMapCursorLandmark] + and a + jr z, .clear + jr .ok + +.johto + ld a, [wTownMapCursorLandmark] + and a + jr nz, .clear +.ok + and a + ret + +.clear + ld hl, wShadowOAM + ld bc, wShadowOAMEnd - wShadowOAM + xor a + call ByteFill + scf + ret + +.GetPlayerOrFastShipIcon: + ld a, [wTownMapPlayerIconLandmark] + cp LANDMARK_SS_ANNE + jr z, .FastShip + farcall GetPlayerIcon + ret + +.FastShip: + ld de, FastShipGFX + ld b, BANK(FastShipGFX) + ret + +TownMapBGUpdate: +; Update BG Map tiles and attributes + +; BG Map address + ld a, l + ldh [hBGMapAddress], a + ld a, h + ldh [hBGMapAddress + 1], a +; Only update palettes on CGB + ldh a, [hCGB] + and a + jr z, .tiles +; BG Map mode 2 (palettes) + ld a, 2 + ldh [hBGMapMode], a +; The BG Map is updated in thirds, so we wait + +; 3 frames to update the whole screen's palettes. + ld c, 3 + call DelayFrames +.tiles +; Update BG Map tiles + call WaitBGMap +; Turn off BG Map update + xor a + ldh [hBGMapMode], a + ret + +FillJohtoMap: + ld de, JohtoMap + jr FillTownMap + +FillKantoMap: + ld de, KantoMap +FillTownMap: + hlcoord 0, 0 +.loop + ld a, [de] + cp -1 + ret z + ld a, [de] + ld [hli], a + inc de + jr .loop + +TownMapPals: +; Assign palettes based on tile ids + hlcoord 0, 0 + decoord 0, 0, wAttrmap + ld bc, SCREEN_WIDTH * SCREEN_HEIGHT +.loop +; Current tile + ld a, [hli] + push hl +; The palette map covers tiles $00 to $7e, $7f and above aren't available + cp $60 + jr nc, .pal0 + +; The palette data is condensed to nybbles, least-significant first. + ld hl, .PalMap + srl a + jr c, .odd +; Even-numbered tile ids take the bottom nybble... + add l + ld l, a + ld a, h + adc 0 + ld h, a + ld a, [hl] + and PALETTE_MASK + jr .update + +.odd +; ...and odd ids take the top. + add l + ld l, a + ld a, h + adc 0 + ld h, a + ld a, [hl] + swap a + and PALETTE_MASK + jr .update + +.pal0 + xor a +.update + pop hl + ld [de], a + inc de + dec bc + ld a, b + or c + jr nz, .loop + ret + +.PalMap: +INCLUDE "gfx/pokegear/town_map_palette_map.asm" + +TownMapMon: +; Draw the FlyMon icon at town map location + +; Get FlyMon species + ld a, [wCurPartyMon] + ld hl, wPartySpecies + ld e, a + ld d, 0 + add hl, de + ld a, [hl] + ld [wTempIconSpecies], a +; Get FlyMon icon + ld e, $08 ; starting tile in VRAM + farcall GetSpeciesIcon +; Animation/palette + depixel 0, 0 + ld a, SPRITE_ANIM_OBJ_PARTY_MON + call InitSpriteAnimStruct + ld hl, SPRITEANIMSTRUCT_TILE_ID + add hl, bc + ld [hl], $08 + ld hl, SPRITEANIMSTRUCT_ANIM_SEQ_ID + add hl, bc + ld [hl], SPRITE_ANIM_FUNC_NULL + ret + +TownMapPlayerIcon: +; Draw the player icon at town map location in a + push af + farcall GetPlayerIcon +; Standing icon + ld hl, vTiles0 tile $10 + ld c, 4 ; # tiles + call Request2bpp +; Walking icon + ld hl, 12 tiles + add hl, de + ld d, h + ld e, l + ld hl, vTiles0 tile $14 + ld c, 4 ; # tiles + ld a, BANK(RedSpriteGFX) ; does nothing + call Request2bpp +; Animation/palette + depixel 0, 0 + ld b, SPRITE_ANIM_OBJ_RED_WALK ; Male + ld a, [wPlayerGender] + and a ; MALE + jr z, .got_gender + ld b, SPRITE_ANIM_INDEX_GREEN_WALK ; Female + dec a ; FEMALE + jr z, .got_gender + ld b, SPRITE_ANIM_INDEX_PURPLE_WALK ; Enby +.got_gender + ld a, b + call InitSpriteAnimStruct + ld hl, SPRITEANIMSTRUCT_TILE_ID + add hl, bc + ld [hl], $10 + pop af + ld e, a + push bc + farcall GetLandmarkCoords + pop bc + ld hl, SPRITEANIMSTRUCT_XCOORD + add hl, bc + ld [hl], e + ld hl, SPRITEANIMSTRUCT_YCOORD + add hl, bc + ld [hl], d + ret + +LoadTownMapGFX: + ld hl, TownMapGFX + ld de, vTiles2 + lb bc, BANK(TownMapGFX), $50 + call DecompressRequest2bpp + ret + +JohtoMap: +INCBIN "gfx/pokegear/johto.bin" + +KantoMap: +INCBIN "gfx/pokegear/kanto.bin" + +PokedexNestIconGFX: +INCBIN "gfx/pokegear/dexmap_nest_icon.2bpp" +FlyMapLabelBorderGFX: +INCBIN "gfx/pokegear/flymap_label_border.1bpp" + +EntireFlyMap: ; unreferenced +; Similar to _FlyMap, but scrolls through the entire +; Flypoints data of both regions. A debug function? + xor a + ld [wTownMapPlayerIconLandmark], a + call ClearBGPalettes + call ClearTilemap + call ClearSprites + ld hl, hInMenu + ld a, [hl] + push af + ld [hl], $1 + xor a + ldh [hBGMapMode], a + farcall ClearSpriteAnims + call LoadTownMapGFX + ld de, FlyMapLabelBorderGFX + ld hl, vTiles2 tile $30 + lb bc, BANK(FlyMapLabelBorderGFX), 6 + call Request1bpp + call FillKantoMap + call TownMapBubble + call TownMapPals + hlbgcoord 0, 0, vBGMap1 + call TownMapBGUpdate + call FillJohtoMap + call TownMapBubble + call TownMapPals + hlbgcoord 0, 0 + call TownMapBGUpdate + call TownMapMon + ld a, c + ld [wTownMapCursorCoordinates], a + ld a, b + ld [wTownMapCursorCoordinates + 1], a + ld b, SCGB_POKEGEAR_PALS + call GetSGBLayout + call SetDefaultBGPAndOBP +.loop + call JoyTextDelay + ld hl, hJoyPressed + ld a, [hl] + and B_BUTTON + jr nz, .pressedB + ld a, [hl] + and A_BUTTON + jr nz, .pressedA + call .HandleDPad + call GetMapCursorCoordinates + farcall PlaySpriteAnimations + call DelayFrame + jr .loop + +.pressedB + ld a, -1 + jr .exit + +.pressedA + ld a, [wTownMapPlayerIconLandmark] + ld l, a + ld h, 0 + add hl, hl + ld de, Flypoints + 1 + add hl, de + ld a, [hl] +.exit + ld [wTownMapPlayerIconLandmark], a + pop af + ldh [hInMenu], a + call ClearBGPalettes + ld a, SCREEN_HEIGHT_PX + ldh [hWY], a + xor a ; LOW(vBGMap0) + ldh [hBGMapAddress], a + ld a, HIGH(vBGMap0) + ldh [hBGMapAddress + 1], a + ld a, [wTownMapPlayerIconLandmark] + ld e, a + ret + +.HandleDPad: + ld hl, hJoyLast + ld a, [hl] + and D_DOWN | D_RIGHT + jr nz, .ScrollNext + ld a, [hl] + and D_UP | D_LEFT + jr nz, .ScrollPrev + ret + +.ScrollNext: + ld hl, wTownMapPlayerIconLandmark + ld a, [hl] + cp NUM_FLYPOINTS - 1 + jr c, .NotAtEndYet + ld [hl], -1 +.NotAtEndYet: + inc [hl] + jr .FillMap + +.ScrollPrev: + ld hl, wTownMapPlayerIconLandmark + ld a, [hl] + and a + jr nz, .NotAtStartYet + ld [hl], NUM_FLYPOINTS +.NotAtStartYet: + dec [hl] +.FillMap: + ld a, [wTownMapPlayerIconLandmark] + cp KANTO_FLYPOINT + jr c, .InJohto + call FillKantoMap + xor a + ld b, HIGH(vBGMap1) + jr .Finally + +.InJohto: + call FillJohtoMap + ld a, SCREEN_HEIGHT_PX + ld b, HIGH(vBGMap0) +.Finally: + ldh [hWY], a + ld a, b + ldh [hBGMapAddress + 1], a + call TownMapBubble + call WaitBGMap + xor a + ldh [hBGMapMode], a + ret diff --git a/engine/pokemon/european_mail.asm b/engine/pokemon/european_mail.asm index f2fc4d1e6ca..85b7a26496d 100644 --- a/engine/pokemon/european_mail.asm +++ b/engine/pokemon/european_mail.asm @@ -6,20 +6,16 @@ ParseMailLanguage: cp "E" ret nz ld a, [hli] - assert MAIL_LANG_ENGLISH + 1 == MAIL_LANG_FRENCH - inc c + inc c ; MAIL_LANG_FRENCH cp "F" ret z - assert MAIL_LANG_FRENCH + 1 == MAIL_LANG_GERMAN - inc c + inc c ; MAIL_LANG_GERMAN cp "G" ret z - assert MAIL_LANG_GERMAN + 1 == MAIL_LANG_ITALIAN - inc c + inc c ; MAIL_LANG_ITALIAN cp "I" ret z - assert MAIL_LANG_ITALIAN + 1 == MAIL_LANG_SPANISH - inc c + inc c ; MAIL_LANG_SPANISH cp "S" ret z ld c, MAIL_LANG_ENGLISH diff --git a/home/tilemap.asm b/home/tilemap.asm index 96251e2eb8f..4f87e02d52d 100644 --- a/home/tilemap.asm +++ b/home/tilemap.asm @@ -229,10 +229,8 @@ GetHPPal:: ld a, e cp (HP_BAR_LENGTH_PX * 50 / 100) ; 24 ret nc - assert HP_GREEN + 1 == HP_YELLOW - inc d + inc d ; HP_YELLOW cp (HP_BAR_LENGTH_PX * 21 / 100) ; 10 ret nc - assert HP_YELLOW + 1 == HP_RED - inc d + inc d ; HP_RED ret