pokecrystal-board/engine/pokegear/pokegear.asm

3098 lines
50 KiB
NASM
Raw Normal View History

2018-01-11 09:00:01 -08:00
; Pokégear cards
const_def
const POKEGEARCARD_CLOCK ; 0
const POKEGEARCARD_MAP ; 1
const POKEGEARCARD_PHONE ; 2
const POKEGEARCARD_RADIO ; 3
NUM_POKEGEAR_CARDS EQU const_value
; 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_PHONEINIT ; 7
const POKEGEARSTATE_PHONEJOYPAD ; 8
const POKEGEARSTATE_MAKEPHONECALL ; 9
const POKEGEARSTATE_FINISHPHONECALL ; a
const POKEGEARSTATE_RADIOINIT ; b
const POKEGEARSTATE_RADIOJOYPAD ; c
2015-11-16 18:07:26 -08:00
PokeGear: ; 90b8d (24:4b8d)
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2015-11-16 18:07:26 -08:00
ld a, [hl]
push af
set NO_TEXT_SCROLL, [hl]
ld a, [hInMenu]
push af
ld a, $1
ld [hInMenu], a
2018-01-23 14:39:09 -08:00
ld a, [wVramState]
2015-11-16 18:07:26 -08:00
push af
xor a
2018-01-23 14:39:09 -08:00
ld [wVramState], a
2016-01-10 14:44:09 -08:00
call .InitTilemap
2015-11-16 18:07:26 -08:00
call DelayFrame
.loop
call UpdateTime
call JoyTextDelay
ld a, [wJumptableIndex]
bit 7, a
jr nz, .done
2016-01-09 20:41:03 -08:00
call PokegearJumptable
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
2015-11-16 18:07:26 -08:00
call DelayFrame
jr .loop
.done
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
pop af
2018-01-23 14:39:09 -08:00
ld [wVramState], a
2015-11-16 18:07:26 -08:00
pop af
ld [hInMenu], a
pop af
2018-01-23 14:39:09 -08:00
ld [wOptions], a
2015-11-16 18:07:26 -08:00
call ClearBGPalettes
2017-12-28 04:32:33 -08:00
xor a ; LOW(vBGMap0)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress], a
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap0)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress + 1], a
ld a, $90
ld [hWY], a
2016-01-10 14:44:09 -08:00
call ExitPokegearRadio_HandleMusic
2015-11-16 18:07:26 -08:00
ret
2016-01-10 14:44:09 -08:00
.InitTilemap: ; 90bea (24:4bea)
2015-11-16 18:07:26 -08:00
call ClearBGPalettes
call ClearTileMap
call ClearSprites
call DisableLCD
xor a
ld [hSCY], a
ld [hSCX], a
ld a, $7
ld [hWX], a
2016-01-10 14:44:09 -08:00
call Pokegear_LoadGFX
2017-12-24 09:47:30 -08:00
farcall ClearSpriteAnims
2015-12-09 08:38:40 -08:00
call InitPokegearModeIndicatorArrow
2015-11-16 18:07:26 -08:00
ld a, 8
call SkipMusic
2017-12-29 10:22:33 -08:00
ld a, LCDC_DEFAULT
2015-11-16 18:07:26 -08:00
ld [rLCDC], a
2016-01-10 14:44:09 -08:00
call TownMap_InitCursorAndPlayerIconPositions
2015-11-16 18:07:26 -08:00
xor a
2018-01-11 12:36:11 -08:00
ld [wJumptableIndex], a ; POKEGEARSTATE_CLOCKINIT
ld [wPokegearCard], a ; POKEGEARCARD_CLOCK
ld [wPokegearMapRegion], a ; JOHTO_REGION
2015-11-16 18:07:26 -08:00
ld [wcf66], a
2016-01-09 20:41:03 -08:00
ld [wPokegearPhoneScrollPosition], a
ld [wPokegearPhoneCursorPosition], a
ld [wPokegearPhoneSelectedPerson], a
ld [wPokegearRadioChannelBank], a
ld [wPokegearRadioChannelAddr], a
ld [wPokegearRadioChannelAddr + 1], a
call Pokegear_InitJumptableIndices
call InitPokegearTilemap
2015-12-28 07:57:04 -08:00
ld b, SCGB_POKEGEAR_PALS
2015-11-16 18:07:26 -08:00
call GetSGBLayout
call SetPalettes
ld a, [hCGB]
and a
ret z
2015-12-09 08:38:40 -08:00
ld a, %11100100
call DmgToCgbObjPal0
2015-11-16 18:07:26 -08:00
ret
2016-01-10 14:44:09 -08:00
Pokegear_LoadGFX: ; 90c4e
2015-11-16 18:07:26 -08:00
call ClearVBank1
ld hl, TownMapGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2
2015-11-16 18:07:26 -08:00
ld a, BANK(TownMapGFX)
call FarDecompress
ld hl, PokegearGFX
2018-01-14 16:43:35 -08:00
ld de, vTiles2 tile $30
2015-11-16 18:07:26 -08:00
ld a, BANK(PokegearGFX)
call FarDecompress
ld hl, PokegearSpritesGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles0
2015-11-16 18:07:26 -08:00
ld a, BANK(PokegearSpritesGFX)
call Decompress
2018-01-23 14:39:09 -08:00
ld a, [wMapGroup]
2015-11-16 18:07:26 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wMapNumber]
2015-11-16 18:07:26 -08:00
ld c, a
call GetWorldMapLocation
cp FAST_SHIP
jr z, .ssaqua
2017-12-24 09:47:30 -08:00
farcall GetPlayerIcon
2015-11-16 18:07:26 -08:00
push de
ld h, d
ld l, e
ld a, b
2015-12-09 08:38:40 -08:00
; standing sprite
2015-11-16 18:07:26 -08:00
push af
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $10
2015-11-16 18:07:26 -08:00
ld bc, 4 tiles
call FarCopyBytes
pop af
pop hl
2015-12-09 08:38:40 -08:00
; walking sprite
ld de, 12 tiles
2015-11-16 18:07:26 -08:00
add hl, de
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $14
2015-11-16 18:07:26 -08:00
ld bc, 4 tiles
call FarCopyBytes
ret
.ssaqua
ld hl, FastShipGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $10
2015-11-16 18:07:26 -08:00
ld bc, 8 tiles
call CopyBytes
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 90cb2
FastShipGFX: ; 90cb2
INCBIN "gfx/pokegear/fast_ship.2bpp"
2015-11-16 18:07:26 -08:00
; 90d32
2015-12-09 08:38:40 -08:00
InitPokegearModeIndicatorArrow: ; 90d32 (24:4d32)
2015-11-18 10:01:55 -08:00
depixel 4, 2, 4, 0
ld a, SPRITE_ANIM_INDEX_POKEGEAR_ARROW
2015-11-16 18:07:26 -08:00
call _InitSpriteAnimStruct
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_TILE_ID
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], $0
ret
2016-01-10 14:44:09 -08:00
AnimatePokegearModeIndicatorArrow: ; 90d41 (24:4d41)
2018-01-11 12:36:11 -08:00
ld hl, wPokegearCard
2015-11-16 18:07:26 -08:00
ld e, [hl]
ld d, 0
2016-01-10 14:44:09 -08:00
ld hl, .XCoords
2015-11-16 18:07:26 -08:00
add hl, de
ld a, [hl]
2016-01-10 14:44:09 -08:00
ld hl, SPRITEANIMSTRUCT_XOFFSET
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 90d52 (24:4d52)
2016-01-10 14:44:09 -08:00
.XCoords: ; 90d52
2018-01-11 09:00:01 -08:00
db $00 ; POKEGEARCARD_CLOCK
db $10 ; POKEGEARCARD_MAP
db $20 ; POKEGEARCARD_PHONE
db $30 ; POKEGEARCARD_RADIO
2015-11-16 18:07:26 -08:00
; 90d56
2016-01-10 14:44:09 -08:00
TownMap_GetCurrentLandmark: ; 90d56
2018-01-23 14:39:09 -08:00
ld a, [wMapGroup]
2015-11-16 18:07:26 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wMapNumber]
2015-11-16 18:07:26 -08:00
ld c, a
call GetWorldMapLocation
cp SPECIAL_MAP
ret nz
2018-01-23 14:39:09 -08:00
ld a, [wBackupMapGroup]
2015-11-16 18:07:26 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wBackupMapNumber]
2015-11-16 18:07:26 -08:00
ld c, a
call GetWorldMapLocation
ret
2016-01-09 20:41:03 -08:00
; 90d70
2015-11-16 18:07:26 -08:00
2016-01-10 14:44:09 -08:00
TownMap_InitCursorAndPlayerIconPositions: ; 90d70 (24:4d70)
2018-01-23 14:39:09 -08:00
ld a, [wMapGroup]
2015-11-16 18:07:26 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wMapNumber]
2015-11-16 18:07:26 -08:00
ld c, a
call GetWorldMapLocation
cp FAST_SHIP
2015-12-09 08:38:40 -08:00
jr z, .FastShip
2015-11-16 18:07:26 -08:00
cp SPECIAL_MAP
2015-12-09 08:38:40 -08:00
jr nz, .LoadLandmark
2018-01-23 14:39:09 -08:00
ld a, [wBackupMapGroup]
2015-11-16 18:07:26 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wBackupMapNumber]
2015-11-16 18:07:26 -08:00
ld c, a
call GetWorldMapLocation
.LoadLandmark:
2016-01-12 09:46:18 -08:00
ld [wPokegearMapPlayerIconLandmark], a
ld [wPokegearMapCursorLandmark], a
2015-11-16 18:07:26 -08:00
ret
.FastShip:
2016-01-12 09:46:18 -08:00
ld [wPokegearMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
ld a, NEW_BARK_TOWN
2016-01-12 09:46:18 -08:00
ld [wPokegearMapCursorLandmark], a
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
Pokegear_InitJumptableIndices: ; 90d9e (24:4d9e)
2018-01-11 09:00:01 -08:00
ld a, POKEGEARSTATE_CLOCKINIT
2015-11-16 18:07:26 -08:00
ld [wJumptableIndex], a
2018-01-11 12:36:11 -08:00
xor a ; POKEGEARCARD_CLOCK
ld [wPokegearCard], a
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
InitPokegearTilemap: ; 90da8 (24:4da8)
2015-11-16 18:07:26 -08:00
xor a
ld [hBGMapMode], a
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
2015-11-16 18:07:26 -08:00
ld a, $4f
call ByteFill
2018-01-11 12:36:11 -08:00
ld a, [wPokegearCard]
2018-01-16 14:27:50 -08:00
maskbits NUM_POKEGEAR_CARDS
2015-11-16 18:07:26 -08:00
add a
ld e, a
ld d, 0
2016-01-09 20:41:03 -08:00
ld hl, .Jumptable
2015-11-16 18:07:26 -08:00
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
2016-01-09 20:41:03 -08:00
ld de, .return_from_jumptable
2015-11-16 18:07:26 -08:00
push de
jp hl
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.return_from_jumptable
2016-01-10 14:44:09 -08:00
call Pokegear_FinishTilemap
2017-12-24 09:47:30 -08:00
farcall TownMapPals
2018-01-11 12:36:11 -08:00
ld a, [wPokegearMapRegion]
2015-11-16 18:07:26 -08:00
and a
2016-01-09 20:41:03 -08:00
jr nz, .kanto_0
2017-12-28 04:32:33 -08:00
xor a ; LOW(vBGMap0)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress], a
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap0)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress + 1], a
2016-01-09 20:41:03 -08:00
call .UpdateBGMap
2015-11-16 18:07:26 -08:00
ld a, $90
2016-01-09 20:41:03 -08:00
jr .finish
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.kanto_0
2017-12-28 04:32:33 -08:00
xor a ; LOW(vBGMap1)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress], a
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap1)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress + 1], a
2016-01-09 20:41:03 -08:00
call .UpdateBGMap
2015-11-16 18:07:26 -08:00
xor a
2016-01-09 20:41:03 -08:00
.finish
2015-11-16 18:07:26 -08:00
ld [hWY], a
2018-01-11 09:00:01 -08:00
; swap region maps
2018-01-11 12:36:11 -08:00
ld a, [wPokegearMapRegion]
2018-01-16 14:27:50 -08:00
maskbits NUM_REGIONS
2015-11-16 18:07:26 -08:00
xor 1
2018-01-11 12:36:11 -08:00
ld [wPokegearMapRegion], a
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
.UpdateBGMap: ; 90e00 (24:4e00)
2015-11-16 18:07:26 -08:00
ld a, [hCGB]
and a
2016-01-10 14:44:09 -08:00
jr z, .dmg
2015-11-16 18:07:26 -08:00
ld a, $2
ld [hBGMapMode], a
ld c, 3
call DelayFrames
2016-01-10 14:44:09 -08:00
.dmg
2015-11-16 18:07:26 -08:00
call WaitBGMap
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 90e12 (24:4e12)
2016-01-09 20:41:03 -08:00
.Jumptable: ; 90e12
2018-01-11 09:00:01 -08:00
; entries correspond to POKEGEARCARD_* constants
2016-01-09 20:41:03 -08:00
dw .Clock
dw .Map
dw .Phone
dw .Radio
2015-11-16 18:07:26 -08:00
; 90e1a
2016-01-09 20:41:03 -08:00
.Clock: ; 90e1a
2015-11-16 18:07:26 -08:00
ld de, ClockTilemapRLE
2016-01-09 20:41:03 -08:00
call Pokegear_LoadTilemapRLE
2015-11-16 18:07:26 -08:00
hlcoord 12, 1
ld de, .switch
call PlaceString
hlcoord 0, 12
lb bc, 4, 18
call TextBox
2016-01-09 20:41:03 -08:00
call Pokegear_UpdateClock
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 90e36 (24:4e36)
.switch
db " SWITCH▶@"
; 90e3f
2016-01-09 20:41:03 -08:00
.Map: ; 90e3f
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
cp FAST_SHIP
jr z, .johto
cp KANTO_LANDMARK
jr nc, .kanto
.johto
ld e, 0
jr .ok
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
.kanto
ld e, 1
.ok
2017-12-24 09:47:30 -08:00
farcall PokegearMap
2018-01-11 09:00:01 -08:00
ld a, $07
2015-11-16 18:07:26 -08:00
ld bc, $12
hlcoord 1, 2
call ByteFill
hlcoord 0, 2
2018-01-11 09:00:01 -08:00
ld [hl], $06
2015-11-16 18:07:26 -08:00
hlcoord 19, 2
ld [hl], $17
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapCursorLandmark]
2016-01-10 14:44:09 -08:00
call PokegearMap_UpdateLandmarkName
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 90e72
2016-01-09 20:41:03 -08:00
.Radio: ; 90e72
2015-11-16 18:07:26 -08:00
ld de, RadioTilemapRLE
2016-01-09 20:41:03 -08:00
call Pokegear_LoadTilemapRLE
2015-11-16 18:07:26 -08:00
hlcoord 0, 12
lb bc, 4, 18
call TextBox
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 90e82
2016-01-09 20:41:03 -08:00
.Phone: ; 90e82
2015-11-16 18:07:26 -08:00
ld de, PhoneTilemapRLE
2016-01-09 20:41:03 -08:00
call Pokegear_LoadTilemapRLE
2015-11-16 18:07:26 -08:00
hlcoord 0, 12
lb bc, 4, 18
call TextBox
2016-01-10 14:44:09 -08:00
call .PlacePhoneBars
2016-01-09 20:41:03 -08:00
call PokegearPhone_UpdateDisplayList
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 90e98
2016-01-10 14:44:09 -08:00
.PlacePhoneBars: ; 90e98 (24:4e98)
2015-11-16 18:07:26 -08:00
hlcoord 17, 1
ld a, $3c
ld [hli], a
inc a
ld [hl], a
hlcoord 17, 2
inc a
ld [hli], a
call GetMapPhoneService
2015-11-16 18:07:26 -08:00
and a
ret nz
hlcoord 18, 2
ld [hl], $3f
ret
2016-01-10 14:44:09 -08:00
Pokegear_FinishTilemap: ; 90eb0 (24:4eb0)
2015-11-16 18:07:26 -08:00
hlcoord 0, 0
ld bc, $8
ld a, $4f
call ByteFill
hlcoord 0, 1
ld bc, $8
ld a, $4f
call ByteFill
ld de, wPokegearFlags
ld a, [de]
bit POKEGEAR_MAP_CARD_F, a
2016-01-10 14:44:09 -08:00
call nz, .PlaceMapIcon
2015-11-16 18:07:26 -08:00
ld a, [de]
bit POKEGEAR_PHONE_CARD_F, a
2016-01-10 14:44:09 -08:00
call nz, .PlacePhoneIcon
2015-11-16 18:07:26 -08:00
ld a, [de]
bit POKEGEAR_RADIO_CARD_F, a
2016-01-10 14:44:09 -08:00
call nz, .PlaceRadioIcon
2015-11-16 18:07:26 -08:00
hlcoord 0, 0
ld a, $46
2016-01-10 14:44:09 -08:00
call .PlacePokegearCardIcon
2015-11-16 18:07:26 -08:00
ret
2016-01-10 14:44:09 -08:00
.PlaceMapIcon: ; 90ee4 (24:4ee4)
2015-11-16 18:07:26 -08:00
hlcoord 2, 0
ld a, $40
2016-01-10 14:44:09 -08:00
jr .PlacePokegearCardIcon
2015-11-16 18:07:26 -08:00
2016-01-10 14:44:09 -08:00
.PlacePhoneIcon: ; 90eeb (24:4eeb)
2015-11-16 18:07:26 -08:00
hlcoord 4, 0
ld a, $44
2016-01-10 14:44:09 -08:00
jr .PlacePokegearCardIcon
2015-11-16 18:07:26 -08:00
2016-01-10 14:44:09 -08:00
.PlaceRadioIcon: ; 90ef2 (24:4ef2)
2015-11-16 18:07:26 -08:00
hlcoord 6, 0
ld a, $42
2016-01-10 14:44:09 -08:00
.PlacePokegearCardIcon: ; 90ef7 (24:4ef7)
2015-11-16 18:07:26 -08:00
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
2016-01-09 20:41:03 -08:00
PokegearJumptable: ; 90f04 (24:4f04)
2015-11-16 18:07:26 -08:00
ld a, [wJumptableIndex]
ld e, a
ld d, 0
2016-01-09 20:41:03 -08:00
ld hl, .Jumptable
add hl, de
2015-11-16 18:07:26 -08:00
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.Jumptable: ; 90f13 (24:4f13)
2018-01-11 09:00:01 -08:00
; entries correspond to POKEGEARSTATE_* constants
2016-01-09 20:41:03 -08:00
dw PokegearClock_Init
dw PokegearClock_Joypad
dw PokegearMap_CheckRegion
dw PokegearMap_Init
dw PokegearMap_JohtoMap
dw PokegearMap_Init
dw PokegearMap_KantoMap
dw PokegearPhone_Init
dw PokegearPhone_Joypad
dw PokegearPhone_MakePhoneCall
dw PokegearPhone_FinishPhoneCall
dw PokegearRadio_Init
dw PokegearRadio_Joypad
PokegearClock_Init: ; 90f2d (24:4f2d)
call InitPokegearTilemap
ld hl, PokegearText_PressAnyButtonToExit
2015-11-16 18:07:26 -08:00
call PrintText
ld hl, wJumptableIndex
inc [hl]
2016-01-10 14:44:09 -08:00
call ExitPokegearRadio_HandleMusic
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
PokegearClock_Joypad: ; 90f3e (24:4f3e)
call .UpdateClock
2015-11-16 18:07:26 -08:00
ld hl, hJoyLast
ld a, [hl]
2018-01-11 09:00:01 -08:00
and A_BUTTON | B_BUTTON | START | SELECT
2016-01-09 20:41:03 -08:00
jr nz, .quit
2015-11-16 18:07:26 -08:00
ld a, [hl]
and D_RIGHT
ret z
ld a, [wPokegearFlags]
bit POKEGEAR_MAP_CARD_F, a
2016-01-09 20:41:03 -08:00
jr z, .no_map_card
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_MAPCHECKREGION
ld b, POKEGEARCARD_MAP
2016-01-09 20:41:03 -08:00
jr .done
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.no_map_card
2015-11-16 18:07:26 -08:00
ld a, [wPokegearFlags]
bit POKEGEAR_PHONE_CARD_F, a
2016-01-09 20:41:03 -08:00
jr z, .no_phone_card
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_PHONEINIT
ld b, POKEGEARCARD_PHONE
2016-01-09 20:41:03 -08:00
jr .done
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.no_phone_card
2015-11-16 18:07:26 -08:00
ld a, [wPokegearFlags]
bit POKEGEAR_RADIO_CARD_F, a
2015-11-16 18:07:26 -08:00
ret z
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_RADIOINIT
ld b, POKEGEARCARD_RADIO
2016-01-09 20:41:03 -08:00
.done
call Pokegear_SwitchPage
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
.quit
2015-11-16 18:07:26 -08:00
ld hl, wJumptableIndex
set 7, [hl]
ret
2016-01-09 20:41:03 -08:00
.UpdateClock: ; 90f7b (24:4f7b)
2015-11-16 18:07:26 -08:00
xor a
ld [hBGMapMode], a
2016-01-09 20:41:03 -08:00
call Pokegear_UpdateClock
2015-11-16 18:07:26 -08:00
ld a, $1
ld [hBGMapMode], a
ret
2016-01-09 20:41:03 -08:00
Pokegear_UpdateClock: ; 90f86 (24:4f86)
2015-11-16 18:07:26 -08:00
hlcoord 3, 5
lb bc, 5, 14
call ClearBox
ld a, [hHours]
ld b, a
ld a, [hMinutes]
ld c, a
decoord 6, 8
2017-12-24 09:47:30 -08:00
farcall PrintHoursMins
2016-01-09 20:41:03 -08:00
ld hl, .DayText
2015-11-16 18:07:26 -08:00
bccoord 6, 6
call PlaceHLTextAtBC
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
; 90fa8 (24:4fa8)
db "ごぜん@"
db "ごご@"
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.DayText: ; 0x90faf
2015-11-16 18:07:26 -08:00
text_jump UnknownText_0x1c5821
db "@"
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 0x90fb4
2016-01-09 20:41:03 -08:00
PokegearMap_CheckRegion: ; 90fb4 (24:4fb4)
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
cp FAST_SHIP
jr z, .johto
cp KANTO_LANDMARK
jr nc, .kanto
.johto
2018-01-11 09:00:01 -08:00
ld a, POKEGEARSTATE_JOHTOMAPINIT
2015-11-16 18:07:26 -08:00
jr .done
ret
.kanto
2018-01-11 09:00:01 -08:00
ld a, POKEGEARSTATE_KANTOMAPINIT
2015-11-16 18:07:26 -08:00
.done
ld [wJumptableIndex], a
2016-01-10 14:44:09 -08:00
call ExitPokegearRadio_HandleMusic
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
PokegearMap_Init: ; 90fcd (24:4fcd)
call InitPokegearTilemap
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapPlayerIconLandmark]
2016-01-09 20:41:03 -08:00
call PokegearMap_InitPlayerIcon
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapCursorLandmark]
2016-01-09 20:41:03 -08:00
call PokegearMap_InitCursor
2015-11-16 18:07:26 -08:00
ld a, c
2016-01-09 20:41:03 -08:00
ld [wPokegearMapCursorObjectPointer], a
2015-11-16 18:07:26 -08:00
ld a, b
2016-01-09 20:41:03 -08:00
ld [wPokegearMapCursorObjectPointer + 1], a
2015-11-16 18:07:26 -08:00
ld hl, wJumptableIndex
inc [hl]
ret
2016-01-09 20:41:03 -08:00
PokegearMap_KantoMap: ; 90fe9 (24:4fe9)
2016-01-05 05:46:37 -08:00
call TownMap_GetKantoLandmarkLimits
2016-01-09 20:41:03 -08:00
jr PokegearMap_ContinueMap
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
PokegearMap_JohtoMap: ; 90fee (24:4fee)
ld d, SILVER_CAVE
ld e, NEW_BARK_TOWN
PokegearMap_ContinueMap: ; 90ff2 (24:4ff2)
2015-11-16 18:07:26 -08:00
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
2016-01-09 20:41:03 -08:00
call .DPad
2015-11-16 18:07:26 -08:00
ret
.right
ld a, [wPokegearFlags]
bit POKEGEAR_PHONE_CARD_F, a
2016-01-09 20:41:03 -08:00
jr z, .no_phone
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_PHONEINIT
ld b, POKEGEARCARD_PHONE
2015-11-16 18:07:26 -08:00
jr .done
2016-01-09 20:41:03 -08:00
.no_phone
2015-11-16 18:07:26 -08:00
ld a, [wPokegearFlags]
bit POKEGEAR_RADIO_CARD_F, a
2015-11-16 18:07:26 -08:00
ret z
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_RADIOINIT
ld b, POKEGEARCARD_RADIO
2015-11-16 18:07:26 -08:00
jr .done
.left
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_CLOCKINIT
ld b, POKEGEARCARD_CLOCK
2015-11-16 18:07:26 -08:00
.done
2016-01-09 20:41:03 -08:00
call Pokegear_SwitchPage
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
.cancel
ld hl, wJumptableIndex
set 7, [hl]
ret
2016-01-09 20:41:03 -08:00
.DPad: ; 9102f (24:502f)
2015-11-16 18:07:26 -08:00
ld hl, hJoyLast
ld a, [hl]
and D_UP
jr nz, .up
ld a, [hl]
and D_DOWN
jr nz, .down
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
.up
2016-01-12 09:46:18 -08:00
ld hl, wPokegearMapCursorLandmark
2015-11-16 18:07:26 -08:00
ld a, [hl]
cp d
2016-01-09 20:41:03 -08:00
jr c, .wrap_around_up
2015-11-16 18:07:26 -08:00
ld a, e
dec a
ld [hl], a
2016-01-09 20:41:03 -08:00
.wrap_around_up
2015-11-16 18:07:26 -08:00
inc [hl]
2016-01-09 20:41:03 -08:00
jr .done_dpad
2015-11-16 18:07:26 -08:00
.down
2016-01-12 09:46:18 -08:00
ld hl, wPokegearMapCursorLandmark
2015-11-16 18:07:26 -08:00
ld a, [hl]
cp e
2016-01-09 20:41:03 -08:00
jr nz, .wrap_around_down
2015-11-16 18:07:26 -08:00
ld a, d
inc a
ld [hl], a
2016-01-09 20:41:03 -08:00
.wrap_around_down
2015-11-16 18:07:26 -08:00
dec [hl]
2016-01-09 20:41:03 -08:00
.done_dpad
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapCursorLandmark]
2016-01-10 14:44:09 -08:00
call PokegearMap_UpdateLandmarkName
2016-01-09 20:41:03 -08:00
ld a, [wPokegearMapCursorObjectPointer]
2015-11-16 18:07:26 -08:00
ld c, a
2016-01-09 20:41:03 -08:00
ld a, [wPokegearMapCursorObjectPointer + 1]
2015-11-16 18:07:26 -08:00
ld b, a
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapCursorLandmark]
2016-01-10 14:44:09 -08:00
call PokegearMap_UpdateCursorPosition
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
PokegearMap_InitPlayerIcon: ; 9106a
2015-11-16 18:07:26 -08:00
push af
2015-12-09 08:38:40 -08:00
depixel 0, 0
2016-01-09 20:41:03 -08:00
ld b, SPRITE_ANIM_INDEX_RED_WALK
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
2016-01-09 20:41:03 -08:00
jr z, .got_gender
ld b, SPRITE_ANIM_INDEX_BLUE_WALK
.got_gender
2015-11-16 18:07:26 -08:00
ld a, b
call _InitSpriteAnimStruct
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_TILE_ID
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], $10
pop af
ld e, a
push bc
2017-12-24 09:47:30 -08:00
farcall GetLandmarkCoords
2015-11-16 18:07:26 -08:00
pop bc
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_XCOORD
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], e
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_YCOORD
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], d
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91098
2016-01-09 20:41:03 -08:00
PokegearMap_InitCursor: ; 91098
2015-11-16 18:07:26 -08:00
push af
2015-12-09 08:38:40 -08:00
depixel 0, 0
ld a, SPRITE_ANIM_INDEX_POKEGEAR_ARROW
2015-11-16 18:07:26 -08:00
call _InitSpriteAnimStruct
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_TILE_ID
2015-11-16 18:07:26 -08:00
add hl, bc
2018-01-11 09:00:01 -08:00
ld [hl], $04
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_ANIM_SEQ_ID
2015-11-16 18:07:26 -08:00
add hl, bc
2015-12-18 17:07:09 -08:00
ld [hl], SPRITE_ANIM_SEQ_NULL
2015-11-16 18:07:26 -08:00
pop af
push bc
2016-01-10 14:44:09 -08:00
call PokegearMap_UpdateCursorPosition
2015-11-16 18:07:26 -08:00
pop bc
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 910b4
2016-01-10 14:44:09 -08:00
PokegearMap_UpdateLandmarkName: ; 910b4
2015-11-16 18:07:26 -08:00
push af
hlcoord 8, 0
lb bc, 2, 12
call ClearBox
pop af
ld e, a
push de
2017-12-24 09:47:30 -08:00
farcall GetLandmarkName
2015-11-16 18:07:26 -08:00
pop de
2017-12-24 09:47:30 -08:00
farcall TownMap_ConvertLineBreakCharacters
2015-11-16 18:07:26 -08:00
hlcoord 8, 0
ld [hl], $34
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 910d4
2016-01-10 14:44:09 -08:00
PokegearMap_UpdateCursorPosition: ; 910d4
2015-11-16 18:07:26 -08:00
push bc
ld e, a
2017-12-24 09:47:30 -08:00
farcall GetLandmarkCoords
2015-11-16 18:07:26 -08:00
pop bc
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_XCOORD
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], e
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_YCOORD
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], d
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 910e8
2016-01-05 05:46:37 -08:00
TownMap_GetKantoLandmarkLimits: ; 910e8
ld a, [wStatusFlags]
2018-01-22 12:40:43 -08:00
bit STATUSFLAGS_HALL_OF_FAME_F, a
2016-01-05 05:46:37 -08:00
jr z, .not_hof
ld d, ROUTE_28
ld e, PALLET_TOWN
2015-11-16 18:07:26 -08:00
ret
2016-01-05 05:46:37 -08:00
.not_hof
ld d, ROUTE_28
ld e, VICTORY_ROAD
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
; 910f9
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
PokegearRadio_Init: ; 910f9 (24:50f9)
call InitPokegearTilemap
2015-11-18 10:01:55 -08:00
depixel 4, 10, 4, 4
ld a, SPRITE_ANIM_INDEX_RADIO_TUNING_KNOB
2015-11-16 18:07:26 -08:00
call _InitSpriteAnimStruct
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_TILE_ID
2015-11-16 18:07:26 -08:00
add hl, bc
2018-01-11 09:00:01 -08:00
ld [hl], $08
2015-11-16 18:07:26 -08:00
call _UpdateRadioStation
ld hl, wJumptableIndex
inc [hl]
ret
2016-01-09 20:41:03 -08:00
PokegearRadio_Joypad: ; 91112 (24:5112)
2015-11-16 18:07:26 -08:00
ld hl, hJoyLast
ld a, [hl]
and B_BUTTON
jr nz, .cancel
ld a, [hl]
and D_LEFT
jr nz, .left
2016-01-09 20:41:03 -08:00
ld a, [wPokegearRadioChannelAddr]
2015-11-16 18:07:26 -08:00
ld l, a
2016-01-09 20:41:03 -08:00
ld a, [wPokegearRadioChannelAddr + 1]
2015-11-16 18:07:26 -08:00
ld h, a
2016-01-09 20:41:03 -08:00
ld a, [wPokegearRadioChannelBank]
2015-11-16 18:07:26 -08:00
and a
ret z
rst FarCall
ret
.left
ld a, [wPokegearFlags]
bit POKEGEAR_PHONE_CARD_F, a
2016-01-10 14:44:09 -08:00
jr z, .no_phone
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_PHONEINIT
ld b, POKEGEARCARD_PHONE
2016-01-10 14:44:09 -08:00
jr .switch_page
2015-11-16 18:07:26 -08:00
2016-01-10 14:44:09 -08:00
.no_phone
2015-11-16 18:07:26 -08:00
ld a, [wPokegearFlags]
bit POKEGEAR_MAP_CARD_F, a
2016-01-10 14:44:09 -08:00
jr z, .no_map
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_MAPCHECKREGION
ld b, POKEGEARCARD_MAP
2016-01-10 14:44:09 -08:00
jr .switch_page
2015-11-16 18:07:26 -08:00
2016-01-10 14:44:09 -08:00
.no_map
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_CLOCKINIT
ld b, POKEGEARCARD_CLOCK
2016-01-10 14:44:09 -08:00
.switch_page
2016-01-09 20:41:03 -08:00
call Pokegear_SwitchPage
2015-11-16 18:07:26 -08:00
ret
.cancel
ld hl, wJumptableIndex
set 7, [hl]
ret
2016-01-09 20:41:03 -08:00
PokegearPhone_Init: ; 91156 (24:5156)
2015-11-16 18:07:26 -08:00
ld hl, wJumptableIndex
inc [hl]
xor a
2016-01-09 20:41:03 -08:00
ld [wPokegearPhoneScrollPosition], a
ld [wPokegearPhoneCursorPosition], a
ld [wPokegearPhoneSelectedPerson], a
call InitPokegearTilemap
2016-01-10 14:44:09 -08:00
call ExitPokegearRadio_HandleMusic
2016-01-09 20:41:03 -08:00
ld hl, PokegearText_WhomToCall
2015-11-16 18:07:26 -08:00
call PrintText
ret
2016-01-09 20:41:03 -08:00
PokegearPhone_Joypad: ; 91171 (24:5171)
2015-11-16 18:07:26 -08:00
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
2016-01-09 20:41:03 -08:00
call PokegearPhone_GetDPad
2015-11-16 18:07:26 -08:00
ret
.left
ld a, [wPokegearFlags]
bit POKEGEAR_MAP_CARD_F, a
2016-01-10 14:44:09 -08:00
jr z, .no_map
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_MAPCHECKREGION
ld b, POKEGEARCARD_MAP
2016-01-10 14:44:09 -08:00
jr .switch_page
2016-01-09 20:41:03 -08:00
2016-01-10 14:44:09 -08:00
.no_map
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_CLOCKINIT
ld b, POKEGEARCARD_CLOCK
2016-01-10 14:44:09 -08:00
jr .switch_page
2015-11-16 18:07:26 -08:00
.right
ld a, [wPokegearFlags]
bit POKEGEAR_RADIO_CARD_F, a
2015-11-16 18:07:26 -08:00
ret z
2018-01-11 09:00:01 -08:00
ld c, POKEGEARSTATE_RADIOINIT
ld b, POKEGEARCARD_RADIO
2016-01-10 14:44:09 -08:00
.switch_page
2016-01-09 20:41:03 -08:00
call Pokegear_SwitchPage
2015-11-16 18:07:26 -08:00
ret
.b
ld hl, wJumptableIndex
set 7, [hl]
ret
.a
ld hl, wPhoneList
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneScrollPosition]
2015-11-16 18:07:26 -08:00
ld e, a
ld d, 0
add hl, de
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneCursorPosition]
2015-11-16 18:07:26 -08:00
ld e, a
ld d, 0
add hl, de
ld a, [hl]
and a
ret z
2016-01-09 20:41:03 -08:00
ld [wPokegearPhoneSelectedPerson], a
2015-11-16 18:07:26 -08:00
hlcoord 1, 4
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneCursorPosition]
2015-11-16 18:07:26 -08:00
ld bc, 20 * 2
call AddNTimes
ld [hl], "▷"
2016-01-09 20:41:03 -08:00
call PokegearPhoneContactSubmenu
2016-01-10 14:44:09 -08:00
jr c, .quit_submenu
2015-11-16 18:07:26 -08:00
ld hl, wJumptableIndex
inc [hl]
ret
2016-01-10 14:44:09 -08:00
.quit_submenu
2018-01-11 09:00:01 -08:00
ld a, POKEGEARSTATE_PHONEJOYPAD
2015-11-16 18:07:26 -08:00
ld [wJumptableIndex], a
ret
2016-01-09 20:41:03 -08:00
PokegearPhone_MakePhoneCall: ; 911eb (24:51eb)
call GetMapPhoneService
2015-11-16 18:07:26 -08:00
and a
2016-01-10 14:44:09 -08:00
jr nz, .no_service
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2015-11-16 18:07:26 -08:00
res NO_TEXT_SCROLL, [hl]
xor a
ld [hInMenu], a
ld de, SFX_CALL
call PlaySFX
2016-01-10 14:44:09 -08:00
ld hl, .dotdotdot
2015-11-16 18:07:26 -08:00
call PrintText
call WaitSFX
ld de, SFX_CALL
call PlaySFX
2016-01-10 14:44:09 -08:00
ld hl, .dotdotdot
2015-11-16 18:07:26 -08:00
call PrintText
call WaitSFX
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneSelectedPerson]
2015-11-16 18:07:26 -08:00
ld b, a
call Function90199
ld c, 10
call DelayFrames
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2015-11-16 18:07:26 -08:00
set NO_TEXT_SCROLL, [hl]
ld a, $1
ld [hInMenu], a
2016-01-09 20:41:03 -08:00
call PokegearPhone_UpdateCursor
2015-11-16 18:07:26 -08:00
ld hl, wJumptableIndex
inc [hl]
ret
2016-01-09 20:41:03 -08:00
2016-01-10 14:44:09 -08:00
.no_service
2017-12-24 09:47:30 -08:00
farcall Phone_NoSignal
2016-01-10 14:44:09 -08:00
ld hl, .OutOfServiceArea
2015-11-16 18:07:26 -08:00
call PrintText
2018-01-11 09:00:01 -08:00
ld a, POKEGEARSTATE_PHONEJOYPAD
2015-11-16 18:07:26 -08:00
ld [wJumptableIndex], a
2016-01-09 20:41:03 -08:00
ld hl, PokegearText_WhomToCall
2015-11-16 18:07:26 -08:00
call PrintText
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 9124c (24:524c)
.dotdotdot ; 0x9124c
2015-11-16 18:07:26 -08:00
;
text_jump UnknownText_0x1c5824
db "@"
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 0x91251
2016-01-10 14:44:09 -08:00
.OutOfServiceArea: ; 0x91251
2015-11-16 18:07:26 -08:00
; You're out of the service area.
text_jump UnknownText_0x1c5827
db "@"
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 0x91256
2016-01-09 20:41:03 -08:00
PokegearPhone_FinishPhoneCall: ; 91256 (24:5256)
2015-11-16 18:07:26 -08:00
ld a, [hJoyPressed]
and A_BUTTON | B_BUTTON
ret z
2017-12-24 09:47:30 -08:00
farcall HangUp
2018-01-11 09:00:01 -08:00
ld a, POKEGEARSTATE_PHONEJOYPAD
2015-11-16 18:07:26 -08:00
ld [wJumptableIndex], a
2016-01-09 20:41:03 -08:00
ld hl, PokegearText_WhomToCall
2015-11-16 18:07:26 -08:00
call PrintText
ret
2016-01-09 20:41:03 -08:00
PokegearPhone_GetDPad: ; 9126d (24:526d)
2015-11-16 18:07:26 -08:00
ld hl, hJoyLast
ld a, [hl]
and D_UP
jr nz, .up
ld a, [hl]
and D_DOWN
jr nz, .down
ret
.up
2016-01-09 20:41:03 -08:00
ld hl, wPokegearPhoneCursorPosition
2015-11-16 18:07:26 -08:00
ld a, [hl]
and a
2016-01-09 20:41:03 -08:00
jr z, .scroll_page_up
2015-11-16 18:07:26 -08:00
dec [hl]
2016-01-09 20:41:03 -08:00
jr .done_joypad_same_page
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.scroll_page_up
ld hl, wPokegearPhoneScrollPosition
2015-11-16 18:07:26 -08:00
ld a, [hl]
and a
ret z
dec [hl]
2016-01-09 20:41:03 -08:00
jr .done_joypad_update_page
2015-11-16 18:07:26 -08:00
.down
2016-01-09 20:41:03 -08:00
ld hl, wPokegearPhoneCursorPosition
2015-11-16 18:07:26 -08:00
ld a, [hl]
2018-01-11 09:00:01 -08:00
cp 3
2016-01-09 20:41:03 -08:00
jr nc, .scroll_page_down
2015-11-16 18:07:26 -08:00
inc [hl]
2016-01-09 20:41:03 -08:00
jr .done_joypad_same_page
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.scroll_page_down
ld hl, wPokegearPhoneScrollPosition
2015-11-16 18:07:26 -08:00
ld a, [hl]
2018-01-11 09:00:01 -08:00
cp 6
2015-11-16 18:07:26 -08:00
ret nc
inc [hl]
2016-01-09 20:41:03 -08:00
jr .done_joypad_update_page
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.done_joypad_same_page
2015-11-16 18:07:26 -08:00
xor a
ld [hBGMapMode], a
2016-01-09 20:41:03 -08:00
call PokegearPhone_UpdateCursor
2015-11-16 18:07:26 -08:00
call WaitBGMap
ret
2016-01-09 20:41:03 -08:00
.done_joypad_update_page
2015-11-16 18:07:26 -08:00
xor a
ld [hBGMapMode], a
2016-01-09 20:41:03 -08:00
call PokegearPhone_UpdateDisplayList
2015-11-16 18:07:26 -08:00
call WaitBGMap
ret
2016-01-09 20:41:03 -08:00
PokegearPhone_UpdateCursor: ; 912b7 (24:52b7)
2015-11-16 18:07:26 -08:00
ld a, " "
hlcoord 1, 4
ld [hl], a
hlcoord 1, 6
ld [hl], a
hlcoord 1, 8
ld [hl], a
hlcoord 1, 10
ld [hl], a
hlcoord 1, 4
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneCursorPosition]
ld bc, 2 * SCREEN_WIDTH
2015-11-16 18:07:26 -08:00
call AddNTimes
ld [hl], "▶"
ret
2016-01-09 20:41:03 -08:00
PokegearPhone_UpdateDisplayList: ; 912d8 (24:52d8)
2015-11-16 18:07:26 -08:00
hlcoord 1, 3
2016-01-09 20:41:03 -08:00
ld b, 9
ld a, " "
.row
ld c, 18
.col
2015-11-16 18:07:26 -08:00
ld [hli], a
dec c
2016-01-09 20:41:03 -08:00
jr nz, .col
inc hl
2015-11-16 18:07:26 -08:00
inc hl
dec b
2016-01-09 20:41:03 -08:00
jr nz, .row
ld a, [wPokegearPhoneScrollPosition]
2015-11-16 18:07:26 -08:00
ld e, a
ld d, $0
ld hl, wPhoneList
add hl, de
xor a
2016-01-09 20:41:03 -08:00
ld [wPokegearPhoneLoadNameBuffer], a
.loop
2015-11-16 18:07:26 -08:00
ld a, [hli]
push hl
push af
hlcoord 2, 4
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneLoadNameBuffer]
ld bc, 2 * SCREEN_WIDTH
2015-11-16 18:07:26 -08:00
call AddNTimes
ld d, h
ld e, l
pop af
ld b, a
call Function90380
pop hl
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneLoadNameBuffer]
2015-11-16 18:07:26 -08:00
inc a
2016-01-09 20:41:03 -08:00
ld [wPokegearPhoneLoadNameBuffer], a
2018-01-11 09:00:01 -08:00
cp 4
2016-01-09 20:41:03 -08:00
jr c, .loop
call PokegearPhone_UpdateCursor
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 9131e (24:531e)
2016-01-09 20:41:03 -08:00
PokegearPhone_DeletePhoneNumber: ; 9131e
2015-11-16 18:07:26 -08:00
ld hl, wPhoneList
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneScrollPosition]
2015-11-16 18:07:26 -08:00
ld e, a
ld d, 0
add hl, de
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneCursorPosition]
2015-11-16 18:07:26 -08:00
ld e, a
ld d, 0
add hl, de
ld [hl], 0
ld hl, wPhoneList
2016-01-09 20:41:03 -08:00
ld c, CONTACT_LIST_SIZE
.loop
2015-11-16 18:07:26 -08:00
ld a, [hli]
and a
2016-01-09 20:41:03 -08:00
jr nz, .skip
2015-11-16 18:07:26 -08:00
ld a, [hld]
ld [hli], a
ld [hl], 0
2016-01-09 20:41:03 -08:00
.skip
2015-11-16 18:07:26 -08:00
dec c
2016-01-09 20:41:03 -08:00
jr nz, .loop
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91342
2016-01-09 20:41:03 -08:00
PokegearPhoneContactSubmenu: ; 91342 (24:5342)
2015-11-16 18:07:26 -08:00
ld hl, wPhoneList
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneScrollPosition]
2015-11-16 18:07:26 -08:00
ld e, a
ld d, 0
add hl, de
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneCursorPosition]
2015-11-16 18:07:26 -08:00
ld e, a
ld d, 0
add hl, de
ld c, [hl]
2017-12-24 09:47:30 -08:00
farcall CheckCanDeletePhoneNumber
2015-11-16 18:07:26 -08:00
ld a, c
and a
2016-01-09 20:41:03 -08:00
jr z, .cant_delete
ld hl, .CallDeleteCancelJumptable
ld de, .CallDeleteCancelStrings
jr .got_menu_data
.cant_delete
ld hl, .CallCancelJumptable
ld de, .CallCancelStrings
.got_menu_data
2015-11-16 18:07:26 -08:00
xor a
ld [hBGMapMode], a
push hl
push de
ld a, [de]
ld l, a
inc de
ld a, [de]
ld h, a
inc de
push hl
ld bc, hBGMapAddress + 1
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
2016-01-09 20:41:03 -08:00
ld [wPokegearPhoneSubmenuCursor], a
call .UpdateCursor
2015-11-16 18:07:26 -08:00
call WaitBGMap
2016-01-09 20:41:03 -08:00
.loop
2015-11-16 18:07:26 -08:00
push de
call JoyTextDelay
pop de
ld hl, hJoyPressed
ld a, [hl]
and D_UP
2016-01-09 20:41:03 -08:00
jr nz, .d_up
2015-11-16 18:07:26 -08:00
ld a, [hl]
and D_DOWN
2016-01-09 20:41:03 -08:00
jr nz, .d_down
2015-11-16 18:07:26 -08:00
ld a, [hl]
and A_BUTTON | B_BUTTON
2016-01-09 20:41:03 -08:00
jr nz, .a_b
2015-11-16 18:07:26 -08:00
call DelayFrame
2016-01-09 20:41:03 -08:00
jr .loop
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.d_up
ld hl, wPokegearPhoneSubmenuCursor
2015-11-16 18:07:26 -08:00
ld a, [hl]
and a
2016-01-09 20:41:03 -08:00
jr z, .loop
2015-11-16 18:07:26 -08:00
dec [hl]
2016-01-09 20:41:03 -08:00
call .UpdateCursor
jr .loop
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.d_down
2015-11-16 18:07:26 -08:00
ld hl, 2
add hl, de
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneSubmenuCursor]
2015-11-16 18:07:26 -08:00
inc a
cp [hl]
2016-01-09 20:41:03 -08:00
jr nc, .loop
ld [wPokegearPhoneSubmenuCursor], a
call .UpdateCursor
jr .loop
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.a_b
2015-11-16 18:07:26 -08:00
xor a
ld [hBGMapMode], a
2016-01-09 20:41:03 -08:00
call PokegearPhone_UpdateDisplayList
2015-11-16 18:07:26 -08:00
ld a, $1
ld [hBGMapMode], a
pop hl
ld a, [hJoyPressed]
and B_BUTTON
2016-01-09 20:41:03 -08:00
jr nz, .Cancel
ld a, [wPokegearPhoneSubmenuCursor]
2015-11-16 18:07:26 -08:00
ld e, a
ld d, 0
add hl, de
2016-01-09 20:41:03 -08:00
add hl, de
2015-11-16 18:07:26 -08:00
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
.Cancel: ; 913f1
ld hl, PokegearText_WhomToCall
2015-11-16 18:07:26 -08:00
call PrintText
scf
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 913f9 (24:53f9)
2016-01-09 20:41:03 -08:00
.Delete: ; 913f9
ld hl, PokegearText_DeleteStoredNumber
2015-11-16 18:07:26 -08:00
call MenuTextBox
call YesNoBox
call ExitMenu
2016-01-09 20:41:03 -08:00
jr c, .CancelDelete
call PokegearPhone_DeletePhoneNumber
2015-11-16 18:07:26 -08:00
xor a
ld [hBGMapMode], a
2016-01-09 20:41:03 -08:00
call PokegearPhone_UpdateDisplayList
ld hl, PokegearText_WhomToCall
2015-11-16 18:07:26 -08:00
call PrintText
call WaitBGMap
.CancelDelete:
2015-11-16 18:07:26 -08:00
scf
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 9141b
2016-01-09 20:41:03 -08:00
.Call: ; 9141b
2015-11-16 18:07:26 -08:00
and a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 9141d
2016-01-09 20:41:03 -08:00
.UpdateCursor: ; 9141d (24:541d)
2015-11-16 18:07:26 -08:00
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, " "
2016-01-09 20:41:03 -08:00
ld de, SCREEN_WIDTH * 2
.clear_column
2015-11-16 18:07:26 -08:00
ld [hl], a
add hl, de
dec c
2016-01-09 20:41:03 -08:00
jr nz, .clear_column
2015-11-16 18:07:26 -08:00
pop hl
2016-01-09 20:41:03 -08:00
ld a, [wPokegearPhoneSubmenuCursor]
ld bc, SCREEN_WIDTH * 2
2015-11-16 18:07:26 -08:00
call AddNTimes
ld [hl], "▶"
pop de
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 9143f (24:543f)
2016-01-09 20:41:03 -08:00
.CallDeleteCancelStrings: ; 9143f
2015-11-16 18:07:26 -08:00
dwcoord 10, 6
db 3
db "CALL"
next "DELETE"
next "CANCEL"
db "@"
; 91455
2016-01-09 20:41:03 -08:00
.CallDeleteCancelJumptable: ; 91455
dw .Call
dw .Delete
dw .Cancel
2015-11-16 18:07:26 -08:00
; 9145b
2016-01-09 20:41:03 -08:00
.CallCancelStrings: ; 9145b
2015-11-16 18:07:26 -08:00
dwcoord 10, 8
db 2
db "CALL"
next "CANCEL"
db "@"
; 9146a
2016-01-09 20:41:03 -08:00
.CallCancelJumptable: ; 9146a
dw .Call
dw .Cancel
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
; 9146e
2015-11-16 18:07:26 -08:00
; unused
2015-11-16 18:07:26 -08:00
ld a, [hHours]
cp 12
2016-01-09 20:41:03 -08:00
jr c, .am
2015-11-16 18:07:26 -08:00
sub 12
ld [wd265], a
scf
ret
2016-01-09 20:41:03 -08:00
.am
2015-11-16 18:07:26 -08:00
ld [wd265], a
and a
ret
2016-01-09 20:41:03 -08:00
; 91480
2015-11-16 18:07:26 -08:00
2016-01-09 20:41:03 -08:00
Pokegear_SwitchPage: ; 91480 (24:5480)
2015-11-16 18:07:26 -08:00
ld de, SFX_READ_TEXT_2
call PlaySFX
ld a, c
ld [wJumptableIndex], a
ld a, b
2018-01-11 12:36:11 -08:00
ld [wPokegearCard], a
2015-11-16 18:07:26 -08:00
call DeleteSpriteAnimStruct2ToEnd
ret
2016-01-10 14:44:09 -08:00
ExitPokegearRadio_HandleMusic: ; 91492
2016-01-09 20:41:03 -08:00
ld a, [wPokegearRadioMusicPlaying]
2018-01-11 09:00:01 -08:00
cp RESTART_MAP_MUSIC
2016-01-10 14:44:09 -08:00
jr z, .restart_map_music
2018-01-11 09:00:01 -08:00
cp ENTER_MAP_MUSIC
2015-11-16 18:07:26 -08:00
call z, EnterMapMusic
xor a
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioMusicPlaying], a
2015-11-16 18:07:26 -08:00
ret
2016-01-10 14:44:09 -08:00
.restart_map_music
2015-11-16 18:07:26 -08:00
call RestartMapMusic
xor a
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioMusicPlaying], a
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
; 914ab
2015-11-16 18:07:26 -08:00
DeleteSpriteAnimStruct2ToEnd: ; 914ab (24:54ab)
2018-01-23 14:39:09 -08:00
ld hl, wSpriteAnim2
ld bc, wSpriteAnimationStructsEnd - wSpriteAnim2
2015-11-16 18:07:26 -08:00
xor a
call ByteFill
ld a, 2
ld [wSpriteAnimCount], a
ret
2016-01-09 20:41:03 -08:00
Pokegear_LoadTilemapRLE: ; 914bb (24:54bb)
2016-01-10 14:44:09 -08:00
; Format: repeat count, tile ID
2018-01-11 09:00:01 -08:00
; Terminated with -1
2015-11-16 18:07:26 -08:00
hlcoord 0, 0
2016-01-10 14:44:09 -08:00
.loop
2015-11-16 18:07:26 -08:00
ld a, [de]
2018-01-11 09:00:01 -08:00
cp -1
2015-11-16 18:07:26 -08:00
ret z
ld b, a
inc de
ld a, [de]
ld c, a
inc de
ld a, b
2016-01-10 14:44:09 -08:00
.load
2015-11-16 18:07:26 -08:00
ld [hli], a
dec c
2016-01-10 14:44:09 -08:00
jr nz, .load
jr .loop
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 914ce (24:54ce)
2016-01-09 20:41:03 -08:00
PokegearText_WhomToCall: ; 0x914ce
2015-11-16 18:07:26 -08:00
; Whom do you want to call?
text_jump UnknownText_0x1c5847
db "@"
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 0x914d3
2016-01-09 20:41:03 -08:00
PokegearText_PressAnyButtonToExit: ; 0x914d3
2015-11-16 18:07:26 -08:00
; Press any button to exit.
text_jump UnknownText_0x1c5862
db "@"
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 0x914d8
2016-01-09 20:41:03 -08:00
PokegearText_DeleteStoredNumber: ; 0x914d8
2015-11-16 18:07:26 -08:00
; Delete this stored phone number?
text_jump UnknownText_0x1c587d
db "@"
2016-01-09 20:41:03 -08:00
; 0x914dd
2015-11-16 18:07:26 -08:00
PokegearSpritesGFX: ; 914dd
INCBIN "gfx/pokegear/pokegear_sprites.2bpp.lz"
2015-11-16 18:07:26 -08:00
; 9150d
RadioTilemapRLE: ; 9150d
2016-01-10 14:44:09 -08:00
INCBIN "gfx/pokegear/radio.tilemap.rle"
2015-11-16 18:07:26 -08:00
PhoneTilemapRLE: ; 9158a
2016-01-10 14:44:09 -08:00
INCBIN "gfx/pokegear/phone.tilemap.rle"
2015-11-16 18:07:26 -08:00
ClockTilemapRLE: ; 915db
2016-01-10 14:44:09 -08:00
INCBIN "gfx/pokegear/clock.tilemap.rle"
2015-11-16 18:07:26 -08:00
; 9163e
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
_UpdateRadioStation: ; 9163e (24:563e)
jr UpdateRadioStation
2015-12-04 05:46:11 -08:00
; called from engine/sprite_anims.asm
2016-01-09 20:41:03 -08:00
2015-12-04 05:46:11 -08:00
AnimateTuningKnob: ; 91640 (24:5640)
2015-11-16 18:07:26 -08:00
push bc
call .TuningKnob
pop bc
ld a, [wRadioTuningKnob]
2015-12-04 05:46:11 -08:00
ld hl, SPRITEANIMSTRUCT_XOFFSET
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], a
ret
.TuningKnob: ; 9164e (24:564e)
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]
2016-01-09 20:41:03 -08:00
dec [hl]
2015-11-16 18:07:26 -08:00
jr .update
.up
ld hl, wRadioTuningKnob
ld a, [hl]
cp 80
ret nc
inc [hl]
2016-01-09 20:41:03 -08:00
inc [hl]
2015-11-16 18:07:26 -08:00
.update
UpdateRadioStation: ; 9166f (24:566f)
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
2016-01-09 20:41:03 -08:00
inc hl
2015-11-16 18:07:26 -08:00
jr .loop
.nostation
call NoRadioStation
ret
.foundstation
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .returnafterstation
push de
jp hl
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
.returnafterstation
2016-01-09 20:41:03 -08:00
ld a, [wPokegearRadioChannelBank]
2015-11-16 18:07:26 -08:00
and a
ret z
xor a
ld [hBGMapMode], a
hlcoord 2, 9
call PlaceString
ld a, $1
ld [hBGMapMode], a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 916a1 (24:56a1)
; unused
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioChannelBank], a
2015-11-16 18:07:26 -08:00
ld a, [hli]
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioChannelAddr], a
2015-11-16 18:07:26 -08:00
ld a, [hli]
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioChannelAddr + 1], a
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
; 916ad
2015-11-16 18:07:26 -08:00
RadioChannels:
2018-01-10 22:45:27 -08:00
; entries correspond to constants/radio_constants.asm
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; frequency value given here = 4 × ingame_frequency 2
dbw 16, .PKMNTalkAndPokedexShow
2015-11-16 18:07:26 -08:00
dbw 28, .PokemonMusic
dbw 32, .LuckyChannel
dbw 40, .BuenasPassword
dbw 52, .RuinsOfAlphRadio
dbw 64, .PlacesAndPeople
dbw 72, .LetsAllSing
dbw 78, .PokeFluteRadio
dbw 80, .EvolutionRadio
2016-01-28 21:57:06 -08:00
db -1
2015-11-16 18:07:26 -08:00
.PKMNTalkAndPokedexShow:
2015-11-16 18:07:26 -08:00
; Pokédex Show in the morning
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; Oak's Pokémon Talk in the afternoon and evening
call .InJohto
jr nc, .NoSignal
2018-01-23 14:39:09 -08:00
ld a, [wTimeOfDay]
2015-11-16 18:07:26 -08:00
and a
jp z, LoadStation_PokedexShow
jp LoadStation_OaksPokemonTalk
.PokemonMusic:
2015-11-16 18:07:26 -08:00
call .InJohto
jr nc, .NoSignal
jp LoadStation_PokemonMusic
.LuckyChannel:
2015-11-16 18:07:26 -08:00
call .InJohto
jr nc, .NoSignal
jp LoadStation_LuckyChannel
.BuenasPassword:
2015-11-16 18:07:26 -08:00
call .InJohto
jr nc, .NoSignal
jp LoadStation_BuenasPassword
.RuinsOfAlphRadio:
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
cp RUINS_OF_ALPH
jr nz, .NoSignal
jp LoadStation_UnownRadio
.PlacesAndPeople:
2015-11-16 18:07:26 -08:00
call .InJohto
jr c, .NoSignal
ld a, [wPokegearFlags]
bit POKEGEAR_EXPN_CARD_F, a
2015-11-16 18:07:26 -08:00
jr z, .NoSignal
jp LoadStation_PlacesAndPeople
.LetsAllSing:
2015-11-16 18:07:26 -08:00
call .InJohto
jr c, .NoSignal
ld a, [wPokegearFlags]
bit POKEGEAR_EXPN_CARD_F, a
2015-11-16 18:07:26 -08:00
jr z, .NoSignal
jp LoadStation_LetsAllSing
.PokeFluteRadio:
2015-11-16 18:07:26 -08:00
call .InJohto
jr c, .NoSignal
ld a, [wPokegearFlags]
bit POKEGEAR_EXPN_CARD_F, a
2015-11-16 18:07:26 -08:00
jr z, .NoSignal
jp LoadStation_PokeFluteRadio
.EvolutionRadio:
2015-11-16 18:07:26 -08:00
; This station airs in the Lake of Rage area when Rocket are still in Mahogany.
ld a, [wStatusFlags]
2018-01-22 12:40:43 -08:00
bit STATUSFLAGS_ROCKET_SIGNAL_F, a
2015-11-16 18:07:26 -08:00
jr z, .NoSignal
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
cp MAHOGANY_TOWN
jr z, .ok
cp ROUTE_43
jr z, .ok
cp LAKE_OF_RAGE
jr nz, .NoSignal
.ok
jp LoadStation_EvolutionRadio
.NoSignal:
2015-11-16 18:07:26 -08:00
call NoRadioStation
ret
.InJohto:
2015-11-16 18:07:26 -08:00
; if in Johto or on the S.S. Aqua, set carry
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; otherwise clear carry
2016-01-12 09:46:18 -08:00
ld a, [wPokegearMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
cp FAST_SHIP
jr z, .johto
cp KANTO_LANDMARK
jr c, .johto
.kanto
and a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
.johto
scf
ret
LoadStation_OaksPokemonTalk: ; 91753 (24:5753)
xor a ; OAKS_POKEMON_TALK
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, OaksPKMNTalkName
2015-11-16 18:07:26 -08:00
ret
LoadStation_PokedexShow: ; 91766 (24:5766)
ld a, POKEDEX_SHOW
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, PokedexShowName
ret
LoadStation_PokemonMusic: ; 9177b (24:577b)
ld a, POKEMON_MUSIC
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, PokemonMusicName
ret
LoadStation_LuckyChannel: ; 91790 (24:5790)
ld a, LUCKY_CHANNEL
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, LuckyChannelName
ret
LoadStation_BuenasPassword: ; 917a5 (24:57a5)
ld a, BUENAS_PASSWORD
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, NotBuenasPasswordName
ld a, [wStatusFlags2]
2018-01-22 12:40:43 -08:00
bit STATUSFLAGS2_ROCKETS_IN_RADIO_TOWER_F, a
2015-11-16 18:07:26 -08:00
ret z
ld de, BuenasPasswordName
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 917c3 (24:57c3)
BuenasPasswordName: db "BUENA'S PASSWORD@"
NotBuenasPasswordName: db "@"
LoadStation_UnownRadio: ; 917d5 (24:57d5)
ld a, UNOWN_RADIO
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
2017-12-24 17:07:23 -08:00
ld de, UnownStationName
2015-11-16 18:07:26 -08:00
ret
LoadStation_PlacesAndPeople: ; 917ea (24:57ea)
ld a, PLACES_AND_PEOPLE
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, PlacesAndPeopleName
ret
LoadStation_LetsAllSing: ; 917ff (24:57ff)
ld a, LETS_ALL_SING
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, LetsAllSingName
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91814 (24:5814)
LoadStation_RocketRadio: ; 91814
ld a, ROCKET_RADIO
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, LetsAllSingName
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91829
LoadStation_PokeFluteRadio: ; 91829 (24:5829)
ld a, POKE_FLUTE_RADIO
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
ld de, PokeFluteStationName
ret
LoadStation_EvolutionRadio: ; 9183e (24:583e)
ld a, EVOLUTION_RADIO
2017-12-09 16:41:03 -08:00
ld [wCurrentRadioLine], a
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wNumRadioLinesPrinted], a
2015-11-16 18:07:26 -08:00
ld a, BANK(PlayRadioShow)
ld hl, PlayRadioShow
call Radio_BackUpFarCallParams
2017-12-24 17:07:23 -08:00
ld de, UnownStationName
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91853 (24:5853)
Unreferenced_LoadStation: ; 91853
2015-11-16 18:07:26 -08:00
ret
RadioMusicRestartDE: ; 91854 (24:5854)
push de
ld a, e
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioMusicPlaying], a
2015-11-16 18:07:26 -08:00
ld de, MUSIC_NONE
call PlayMusic
pop de
ld a, e
ld [wMapMusic], a
call PlayMusic
ret
RadioMusicRestartPokemonChannel: ; 91868 (24:5868)
push de
2018-01-11 09:00:01 -08:00
ld a, RESTART_MAP_MUSIC
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioMusicPlaying], a
2015-11-16 18:07:26 -08:00
ld de, MUSIC_NONE
call PlayMusic
pop de
ld de, MUSIC_POKEMON_CHANNEL
call PlayMusic
ret
Radio_BackUpFarCallParams: ; 9187c (24:587c)
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioChannelBank], a
2015-11-16 18:07:26 -08:00
ld a, l
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioChannelAddr], a
2015-11-16 18:07:26 -08:00
ld a, h
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioChannelAddr + 1], a
2015-11-16 18:07:26 -08:00
ret
NoRadioStation: ; 91888 (24:5888)
call NoRadioMusic
call NoRadioName
xor a
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioChannelBank], a
ld [wPokegearRadioChannelAddr], a
ld [wPokegearRadioChannelAddr + 1], a
2015-11-16 18:07:26 -08:00
ld a, $1
ld [hBGMapMode], a
ret
NoRadioMusic: ; 9189d (24:589d)
ld de, MUSIC_NONE
call PlayMusic
2018-01-11 09:00:01 -08:00
ld a, ENTER_MAP_MUSIC
2016-01-09 20:41:03 -08:00
ld [wPokegearRadioMusicPlaying], a
2015-11-16 18:07:26 -08:00
ret
NoRadioName: ; 918a9 (24:58a9)
xor a
ld [hBGMapMode], a
hlcoord 1, 8
lb bc, 3, 18
call ClearBox
hlcoord 0, 12
2018-01-11 09:00:01 -08:00
lb bc, 4, 18
2015-11-16 18:07:26 -08:00
call TextBox
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 918bf
OaksPKMNTalkName: db "OAK's <PK><MN> Talk@"
2015-11-16 18:07:26 -08:00
PokedexShowName: db "#DEX Show@"
PokemonMusicName: db "#MON Music@"
LuckyChannelName: db "Lucky Channel@"
2017-12-24 17:07:23 -08:00
UnownStationName: db "?????@"
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
PlacesAndPeopleName: db "Places & People@"
LetsAllSingName: db "Let's All Sing!@"
PokeFluteStationName: db "# FLUTE@"
; 9191c
2016-01-09 20:41:03 -08:00
_TownMap: ; 9191c
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2016-01-09 20:41:03 -08:00
ld a, [hl]
push af
set NO_TEXT_SCROLL, [hl]
ld a, [hInMenu]
push af
ld a, $1
ld [hInMenu], a
2018-01-23 14:39:09 -08:00
ld a, [wVramState]
2016-01-09 20:41:03 -08:00
push af
xor a
2018-01-23 14:39:09 -08:00
ld [wVramState], a
2016-01-09 20:41:03 -08:00
call ClearBGPalettes
call ClearTileMap
call ClearSprites
call DisableLCD
2016-01-10 14:44:09 -08:00
call Pokegear_LoadGFX
2017-12-24 09:47:30 -08:00
farcall ClearSpriteAnims
2016-01-09 20:41:03 -08:00
ld a, 8
call SkipMusic
2017-12-29 10:22:33 -08:00
ld a, LCDC_DEFAULT
2016-01-09 20:41:03 -08:00
ld [rLCDC], a
2016-01-10 14:44:09 -08:00
call TownMap_GetCurrentLandmark
2017-12-09 16:41:03 -08:00
ld [wTownMapPlayerIconLandmark], a
ld [wTownMapCursorLandmark], a
2016-01-09 20:41:03 -08:00
xor a
ld [hBGMapMode], a
call .InitTilemap
call WaitBGMap2
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2016-01-09 20:41:03 -08:00
call PokegearMap_InitPlayerIcon
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorLandmark]
2016-01-09 20:41:03 -08:00
call PokegearMap_InitCursor
ld a, c
2017-12-09 16:41:03 -08:00
ld [wTownMapCursorObjectPointer], a
2016-01-09 20:41:03 -08:00
ld a, b
2017-12-09 16:41:03 -08:00
ld [wTownMapCursorObjectPointer + 1], a
2016-01-09 20:41:03 -08:00
ld b, SCGB_POKEGEAR_PALS
call GetSGBLayout
call SetPalettes
ld a, [hCGB]
and a
jr z, .dmg
ld a, %11100100
call DmgToCgbObjPal0
call DelayFrame
.dmg
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2016-01-09 20:41:03 -08:00
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
2018-01-23 14:39:09 -08:00
ld [wVramState], a
2016-01-09 20:41:03 -08:00
pop af
ld [hInMenu], a
pop af
2018-01-23 14:39:09 -08:00
ld [wOptions], a
2016-01-09 20:41:03 -08:00
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
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
2016-01-09 20:41:03 -08:00
pop de
call DelayFrame
jr .loop
.pressed_up
2017-12-09 16:41:03 -08:00
ld hl, wTownMapCursorLandmark
2016-01-09 20:41:03 -08:00
ld a, [hl]
cp d
jr c, .okay
ld a, e
dec a
ld [hl], a
.okay
inc [hl]
jr .next
.pressed_down
2017-12-09 16:41:03 -08:00
ld hl, wTownMapCursorLandmark
2016-01-09 20:41:03 -08:00
ld a, [hl]
cp e
jr nz, .okay2
ld a, d
inc a
ld [hl], a
.okay2
dec [hl]
.next
push de
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorLandmark]
2016-01-10 14:44:09 -08:00
call PokegearMap_UpdateLandmarkName
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorObjectPointer]
2016-01-09 20:41:03 -08:00
ld c, a
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorObjectPointer + 1]
2016-01-09 20:41:03 -08:00
ld b, a
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorLandmark]
2016-01-10 14:44:09 -08:00
call PokegearMap_UpdateCursorPosition
2016-01-09 20:41:03 -08:00
pop de
jr .loop2
; 91a04
.InitTilemap: ; 91a04
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2016-01-09 20:41:03 -08:00
cp KANTO_LANDMARK
2016-01-10 14:44:09 -08:00
jr nc, .kanto2
2018-01-11 09:00:01 -08:00
ld e, JOHTO_REGION
2016-01-10 14:44:09 -08:00
jr .okay_tilemap
2016-01-09 20:41:03 -08:00
2016-01-10 14:44:09 -08:00
.kanto2
2018-01-11 09:00:01 -08:00
ld e, KANTO_REGION
2016-01-10 14:44:09 -08:00
.okay_tilemap
2017-12-24 09:47:30 -08:00
farcall PokegearMap
2018-01-11 09:00:01 -08:00
ld a, $07
2016-01-09 20:41:03 -08:00
ld bc, 6
hlcoord 1, 0
call ByteFill
hlcoord 0, 0
2018-01-11 09:00:01 -08:00
ld [hl], $06
2016-01-09 20:41:03 -08:00
hlcoord 7, 0
ld [hl], $17
hlcoord 7, 1
ld [hl], $16
hlcoord 7, 2
ld [hl], $26
2018-01-11 09:00:01 -08:00
ld a, $07
2016-01-09 20:41:03 -08:00
ld bc, NAME_LENGTH
hlcoord 8, 2
call ByteFill
hlcoord 19, 2
ld [hl], $17
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorLandmark]
2016-01-10 14:44:09 -08:00
call PokegearMap_UpdateLandmarkName
2017-12-24 09:47:30 -08:00
farcall TownMapPals
2016-01-09 20:41:03 -08:00
ret
; 91a53
2015-11-16 18:07:26 -08:00
PlayRadio: ; 91a53
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2015-11-16 18:07:26 -08:00
ld a, [hl]
push af
2018-01-11 09:00:01 -08:00
set NO_TEXT_SCROLL, [hl]
2015-11-16 18:07:26 -08:00
call .PlayStation
ld c, 100
call DelayFrames
.loop
call JoyTextDelay
ld a, [hJoyPressed]
and A_BUTTON | B_BUTTON
jr nz, .stop
2016-01-09 20:41:03 -08:00
ld a, [wPokegearRadioChannelAddr]
2015-11-16 18:07:26 -08:00
ld l, a
2016-01-09 20:41:03 -08:00
ld a, [wPokegearRadioChannelAddr + 1]
2015-11-16 18:07:26 -08:00
ld h, a
2016-01-09 20:41:03 -08:00
ld a, [wPokegearRadioChannelBank]
2015-11-16 18:07:26 -08:00
and a
jr z, .zero
rst FarCall
.zero
call DelayFrame
jr .loop
.stop
pop af
2018-01-23 14:39:09 -08:00
ld [wOptions], a
2016-01-10 14:44:09 -08:00
call ExitPokegearRadio_HandleMusic
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91a87
.PlayStation: ; 91a87
2018-01-11 09:00:01 -08:00
ld a, ENTER_MAP_MUSIC
ld [wPokegearRadioMusicPlaying], a
2015-11-16 18:07:26 -08:00
ld hl, .StationPointers
2018-01-11 09:00:01 -08:00
ld d, 0
2015-11-16 18:07:26 -08:00
add hl, de
2016-01-09 20:41:03 -08:00
add hl, de
2015-11-16 18:07:26 -08:00
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .jump_return
push de
jp hl
2015-11-16 18:07:26 -08:00
.jump_return
push de
hlcoord 0, 12
lb bc, 4, 18
call TextBox
hlcoord 1, 14
ld [hl], $72
pop de
hlcoord 2, 14
call PlaceString
ld h, b
ld l, c
ld [hl], $73
call WaitBGMap
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91ab9
.StationPointers: ; 91ab9
2018-01-20 09:25:55 -08:00
; entries correspond to MAPRADIO_* constants
2015-11-16 18:07:26 -08:00
dw .OakOrPnP
dw LoadStation_OaksPokemonTalk
dw LoadStation_PokedexShow
dw LoadStation_PokemonMusic
dw LoadStation_LuckyChannel
dw LoadStation_UnownRadio
dw LoadStation_PlacesAndPeople
dw LoadStation_LetsAllSing
dw LoadStation_RocketRadio
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91acb
.OakOrPnP: ; 91acb
call IsInJohto
and a
jr nz, .kanto
call UpdateTime
2018-01-23 14:39:09 -08:00
ld a, [wTimeOfDay]
2015-11-16 18:07:26 -08:00
and a
jp z, LoadStation_PokedexShow
jp LoadStation_OaksPokemonTalk
.kanto
jp LoadStation_PlacesAndPeople
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91ae1
PokegearMap: ; 91ae1
2015-11-16 18:07:26 -08:00
ld a, e
and a
jr nz, .kanto
2015-12-09 08:38:40 -08:00
call LoadTownMapGFX
2015-11-16 18:07:26 -08:00
call FillJohtoMap
ret
.kanto
2015-12-09 08:38:40 -08:00
call LoadTownMapGFX
2015-11-16 18:07:26 -08:00
call FillKantoMap
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91af3
_FlyMap: ; 91af3
call ClearBGPalettes
call ClearTileMap
call ClearSprites
ld hl, hInMenu
ld a, [hl]
push af
ld [hl], $1
xor a
ld [hBGMapMode], a
2017-12-24 09:47:30 -08:00
farcall ClearSpriteAnims
2015-12-09 08:38:40 -08:00
call LoadTownMapGFX
ld de, FlyMapLabelBorderGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles2 tile $30
2015-12-09 08:38:40 -08:00
lb bc, BANK(FlyMapLabelBorderGFX), 6
2015-11-16 18:07:26 -08:00
call Request1bpp
call FlyMap
2015-12-09 08:38:40 -08:00
call ret_91c8f
2015-12-28 07:57:04 -08:00
ld b, SCGB_POKEGEAR_PALS
2015-11-16 18:07:26 -08:00
call GetSGBLayout
call SetPalettes
.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 FlyMapScroll
call GetMapCursorCoordinates
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
2015-11-16 18:07:26 -08:00
call DelayFrame
jr .loop
.pressedB
ld a, -1
jr .exit
.pressedA
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
ld l, a
ld h, 0
add hl, hl
ld de, Flypoints + 1
add hl, de
ld a, [hl]
.exit
2017-12-09 16:41:03 -08:00
ld [wTownMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
pop af
ld [hInMenu], a
call ClearBGPalettes
ld a, $90
ld [hWY], a
2017-12-28 04:32:33 -08:00
xor a ; LOW(vBGMap0)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress], a
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap0)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress + 1], a
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
ld e, a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91b73
FlyMapScroll: ; 91b73
2018-01-23 14:39:09 -08:00
ld a, [wStartFlypoint]
2015-11-16 18:07:26 -08:00
ld e, a
2018-01-23 14:39:09 -08:00
ld a, [wEndFlypoint]
2015-11-16 18:07:26 -08:00
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:
2017-12-09 16:41:03 -08:00
ld hl, wTownMapPlayerIconLandmark
2015-11-16 18:07:26 -08:00
ld a, [hl]
cp d
jr nz, .NotAtEndYet
ld a, e
dec a
ld [hl], a
.NotAtEndYet:
2015-11-16 18:07:26 -08:00
inc [hl]
call CheckIfVisitedFlypoint
jr z, .ScrollNext
jr .Finally
.ScrollPrev:
2017-12-09 16:41:03 -08:00
ld hl, wTownMapPlayerIconLandmark
2015-11-16 18:07:26 -08:00
ld a, [hl]
cp e
jr nz, .NotAtStartYet
ld a, d
inc a
ld [hl], a
.NotAtStartYet:
2015-11-16 18:07:26 -08:00
dec [hl]
call CheckIfVisitedFlypoint
jr z, .ScrollPrev
.Finally:
2015-11-16 18:07:26 -08:00
call TownMapBubble
call WaitBGMap
xor a
ld [hBGMapMode], a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91bb5
TownMapBubble: ; 91bb5
; Draw the bubble containing the location text in the town map HUD
; Top-left corner
hlcoord 1, 0
ld a, $30
ld [hli], a
; Top row
ld bc, 16
ld a, " "
call ByteFill
; Top-right corner
ld a, $31
ld [hl], a
hlcoord 1, 1
; Middle row
ld bc, 18
ld a, " "
call ByteFill
; Bottom-left corner
hlcoord 1, 2
ld a, $32
ld [hli], a
; Bottom row
ld bc, 16
ld a, " "
call ByteFill
; Bottom-right corner
ld a, $33
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], $34
2015-11-16 18:07:26 -08:00
ret
.Where:
2015-11-16 18:07:26 -08:00
db "Where?@"
.Name:
2015-11-16 18:07:26 -08:00
; We need the map location of the default flypoint
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
ld l, a
ld h, 0
add hl, hl ; two bytes per flypoint
ld de, Flypoints
add hl, de
ld e, [hl]
2017-12-24 09:47:30 -08:00
farcall GetLandmarkName
2015-11-16 18:07:26 -08:00
hlcoord 2, 1
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer1
2015-11-16 18:07:26 -08:00
call PlaceString
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91c17
GetMapCursorCoordinates: ; 91c17
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
ld l, a
2018-01-11 09:00:01 -08:00
ld h, 0
2015-11-16 18:07:26 -08:00
add hl, hl
ld de, Flypoints
add hl, de
ld e, [hl]
2017-12-24 09:47:30 -08:00
farcall GetLandmarkCoords
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorCoordinates]
2015-11-16 18:07:26 -08:00
ld c, a
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorCoordinates + 1]
2015-11-16 18:07:26 -08:00
ld b, a
2018-01-11 09:00:01 -08:00
ld hl, 4
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], e
2018-01-11 09:00:01 -08:00
ld hl, 5
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], d
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91c3c
CheckIfVisitedFlypoint: ; 91c3c
; 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
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91c50
HasVisitedSpawn: ; 91c50
; Check if spawn point c has been visited.
ld hl, wVisitedSpawns
2015-11-16 18:07:26 -08:00
ld b, CHECK_FLAG
ld d, 0
predef SmallFarFlagAction
2015-11-16 18:07:26 -08:00
ld a, c
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91c5e
INCLUDE "data/maps/flypoints.asm"
2015-11-16 18:07:26 -08:00
2015-12-09 08:38:40 -08:00
ret_91c8f: ; 91c8f
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91c90
FlyMap: ; 91c90
2018-01-23 14:39:09 -08:00
ld a, [wMapGroup]
2015-11-16 18:07:26 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wMapNumber]
2015-11-16 18:07:26 -08:00
ld c, a
call GetWorldMapLocation
; If we're not in a valid location, i.e. Pokecenter floor 2F,
2017-12-09 16:41:03 -08:00
; the backup map information is used.
2015-11-16 18:07:26 -08:00
cp SPECIAL_MAP
jr nz, .CheckRegion
2018-01-23 14:39:09 -08:00
ld a, [wBackupMapGroup]
2015-11-16 18:07:26 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wBackupMapNumber]
2015-11-16 18:07:26 -08:00
ld c, a
call GetWorldMapLocation
.CheckRegion:
2017-12-09 16:41:03 -08:00
; The first 46 locations are part of Johto. The rest are in Kanto.
2015-11-16 18:07:26 -08:00
cp KANTO_LANDMARK
jr nc, .KantoFlyMap
.JohtoFlyMap:
2015-11-16 18:07:26 -08:00
; Note that .NoKanto should be modified in tandem with this branch
push af
; Start from New Bark Town
ld a, FLY_NEW_BARK
2017-12-09 16:41:03 -08:00
ld [wTownMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
; Flypoints begin at New Bark Town...
2018-01-23 14:39:09 -08:00
ld [wStartFlypoint], a
2017-12-09 16:41:03 -08:00
; ..and end at Silver Cave.
2015-11-16 18:07:26 -08:00
ld a, FLY_MT_SILVER
2018-01-23 14:39:09 -08:00
ld [wEndFlypoint], a
2015-11-16 18:07:26 -08:00
; Fill out the map
call FillJohtoMap
call .MapHud
pop af
call TownMapPlayerIcon
ret
.KantoFlyMap:
2015-11-16 18:07:26 -08:00
; 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
2017-12-09 16:41:03 -08:00
; can be flown to even if none are enabled.
2015-11-16 18:07:26 -08:00
; To prevent both of these things from happening when the player
; enters Kanto, fly access is restricted until Indigo Plateau is
2017-12-09 16:41:03 -08:00
; visited and its flypoint enabled.
2015-11-16 18:07:26 -08:00
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
; Flypoints begin at Pallet Town...
ld a, FLY_PALLET
2018-01-23 14:39:09 -08:00
ld [wStartFlypoint], a
2015-11-16 18:07:26 -08:00
; ...and end at Indigo Plateau
ld a, FLY_INDIGO
2018-01-23 14:39:09 -08:00
ld [wEndFlypoint], a
2015-11-16 18:07:26 -08:00
; Because Indigo Plateau is the first flypoint the player
2017-12-09 16:41:03 -08:00
; visits, it's made the default flypoint.
ld [wTownMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
; Fill out the map
call FillKantoMap
call .MapHud
pop af
call TownMapPlayerIcon
ret
.NoKanto:
2015-11-16 18:07:26 -08:00
; If Indigo Plateau hasn't been visited, we use Johto's map instead
; Start from New Bark Town
ld a, FLY_NEW_BARK
2017-12-09 16:41:03 -08:00
ld [wTownMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
; Flypoints begin at New Bark Town...
2018-01-23 14:39:09 -08:00
ld [wStartFlypoint], a
2015-11-16 18:07:26 -08:00
; ..and end at Silver Cave
ld a, FLY_MT_SILVER
2018-01-23 14:39:09 -08:00
ld [wEndFlypoint], a
2015-11-16 18:07:26 -08:00
call FillJohtoMap
pop af
.MapHud:
2015-11-16 18:07:26 -08:00
call TownMapBubble
call TownMapPals
2015-11-20 08:47:52 -08:00
hlbgcoord 0, 0 ; BG Map 0
2015-11-16 18:07:26 -08:00
call TownMapBGUpdate
call TownMapMon
ld a, c
2017-12-09 16:41:03 -08:00
ld [wTownMapCursorCoordinates], a
2015-11-16 18:07:26 -08:00
ld a, b
2017-12-09 16:41:03 -08:00
ld [wTownMapCursorCoordinates + 1], a
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91d11
Pokedex_GetArea: ; 91d11
2015-12-09 08:38:40 -08:00
; e: Current landmark
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
push af
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorLandmark]
2015-11-16 18:07:26 -08:00
push af
ld a, e
2017-12-09 16:41:03 -08:00
ld [wTownMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
call ClearSprites
xor a
ld [hBGMapMode], a
ld a, $1
ld [hInMenu], a
2015-12-09 08:38:40 -08:00
ld de, PokedexNestIconGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0 tile $7f
2015-12-09 08:38:40 -08:00
lb bc, BANK(PokedexNestIconGFX), 1
call Request2bpp
call .GetPlayerOrFastShipIcon
2017-12-28 04:32:33 -08:00
ld hl, vTiles0 tile $78
2015-12-09 08:38:40 -08:00
ld c, 4
2015-11-16 18:07:26 -08:00
call Request2bpp
2015-12-09 08:38:40 -08:00
call LoadTownMapGFX
2015-11-16 18:07:26 -08:00
call FillKantoMap
2015-12-09 08:38:40 -08:00
call .PlaceString_MonsNest
2015-11-16 18:07:26 -08:00
call TownMapPals
2017-12-28 04:32:33 -08:00
hlbgcoord 0, 0, vBGMap1
2015-11-16 18:07:26 -08:00
call TownMapBGUpdate
call FillJohtoMap
2015-12-09 08:38:40 -08:00
call .PlaceString_MonsNest
2015-11-16 18:07:26 -08:00
call TownMapPals
2015-11-20 08:47:52 -08:00
hlbgcoord 0, 0
2015-11-16 18:07:26 -08:00
call TownMapBGUpdate
2015-12-28 07:57:04 -08:00
ld b, SCGB_POKEGEAR_PALS
2015-11-16 18:07:26 -08:00
call GetSGBLayout
call SetPalettes
xor a
ld [hBGMapMode], a
2018-01-11 09:00:01 -08:00
xor a ; JOHTO_REGION
2015-12-09 08:38:40 -08:00
call .GetAndPlaceNest
2015-11-16 18:07:26 -08:00
.loop
call JoyTextDelay
ld hl, hJoyPressed
ld a, [hl]
and A_BUTTON | B_BUTTON
jr nz, .a_b
ld a, [hJoypadDown]
and SELECT
jr nz, .select
2015-12-09 08:38:40 -08:00
call .LeftRightInput
call .BlinkNestIcons
2015-11-16 18:07:26 -08:00
jr .next
.select
2015-12-09 08:38:40 -08:00
call .HideNestsShowPlayer
2015-11-16 18:07:26 -08:00
.next
call DelayFrame
jr .loop
.a_b
call ClearSprites
pop af
2017-12-09 16:41:03 -08:00
ld [wTownMapCursorLandmark], a
2015-11-16 18:07:26 -08:00
pop af
2017-12-09 16:41:03 -08:00
ld [wTownMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91d9b
2015-12-09 08:38:40 -08:00
.LeftRightInput: ; 91d9b
2015-11-16 18:07:26 -08:00
ld a, [hl]
2015-12-09 08:38:40 -08:00
and D_LEFT
jr nz, .left
2015-11-16 18:07:26 -08:00
ld a, [hl]
2015-12-09 08:38:40 -08:00
and D_RIGHT
jr nz, .right
2015-11-16 18:07:26 -08:00
ret
2015-12-09 08:38:40 -08:00
.left
2015-11-16 18:07:26 -08:00
ld a, [hWY]
cp $90
ret z
call ClearSprites
ld a, $90
ld [hWY], a
2018-01-11 09:00:01 -08:00
xor a ; JOHTO_REGION
2015-12-09 08:38:40 -08:00
call .GetAndPlaceNest
2015-11-16 18:07:26 -08:00
ret
2015-12-09 08:38:40 -08:00
.right
ld a, [wStatusFlags]
2018-01-22 12:40:43 -08:00
bit STATUSFLAGS_HALL_OF_FAME_F, a
2015-11-16 18:07:26 -08:00
ret z
ld a, [hWY]
and a
ret z
call ClearSprites
xor a
ld [hWY], a
2018-01-11 09:00:01 -08:00
ld a, KANTO_REGION
2015-12-09 08:38:40 -08:00
call .GetAndPlaceNest
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91dcd
2015-12-09 08:38:40 -08:00
.BlinkNestIcons: ; 91dcd
2015-11-16 18:07:26 -08:00
ld a, [hVBlankCounter]
ld e, a
and $f
ret nz
ld a, e
and $10
2015-12-09 08:38:40 -08:00
jr nz, .copy_sprites
2015-11-16 18:07:26 -08:00
call ClearSprites
ret
2015-12-09 08:38:40 -08:00
.copy_sprites
2015-11-16 18:07:26 -08:00
hlcoord 0, 0
ld de, wVirtualOAM
2018-01-30 11:55:20 -08:00
ld bc, wVirtualOAMEnd - wVirtualOAM
2015-11-16 18:07:26 -08:00
call CopyBytes
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91de9
2015-12-09 08:38:40 -08:00
.PlaceString_MonsNest: ; 91de9
2015-11-16 18:07:26 -08:00
hlcoord 0, 0
ld bc, SCREEN_WIDTH
2015-12-09 08:38:40 -08:00
ld a, " "
2015-11-16 18:07:26 -08:00
call ByteFill
hlcoord 0, 1
ld a, $6
ld [hli], a
2015-12-09 08:38:40 -08:00
ld bc, SCREEN_WIDTH - 2
2015-11-16 18:07:26 -08:00
ld a, $7
call ByteFill
ld [hl], $17
call GetPokemonName
hlcoord 2, 0
call PlaceString
ld h, b
ld l, c
2015-12-09 08:38:40 -08:00
ld de, .String_SNest
2015-11-16 18:07:26 -08:00
call PlaceString
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91e16
2015-12-09 08:38:40 -08:00
.String_SNest:
2015-11-16 18:07:26 -08:00
db "'S NEST@"
; 91e1e
2015-12-09 08:38:40 -08:00
.GetAndPlaceNest: ; 91e1e
2017-12-09 16:41:03 -08:00
ld [wTownMapCursorLandmark], a
2015-11-16 18:07:26 -08:00
ld e, a
2018-01-23 14:39:09 -08:00
farcall FindNest ; load nest landmarks into wTileMap[0,0]
2015-11-16 18:07:26 -08:00
decoord 0, 0
2018-01-30 11:52:46 -08:00
ld hl, wVirtualOAMSprite00
2015-12-09 08:38:40 -08:00
.nestloop
2015-11-16 18:07:26 -08:00
ld a, [de]
and a
2015-12-09 08:38:40 -08:00
jr z, .done_nest
2015-11-16 18:07:26 -08:00
push de
ld e, a
push hl
2017-12-24 09:47:30 -08:00
farcall GetLandmarkCoords
2015-11-16 18:07:26 -08:00
pop hl
2015-12-09 08:38:40 -08:00
; load into OAM
2015-11-16 18:07:26 -08:00
ld a, d
2015-12-09 08:38:40 -08:00
sub 4
2018-01-10 10:47:57 -08:00
ld [hli], a ; y
2015-11-16 18:07:26 -08:00
ld a, e
2015-12-09 08:38:40 -08:00
sub 4
2018-01-10 10:47:57 -08:00
ld [hli], a ; x
ld a, $7f ; nest icon
ld [hli], a ; tile id
2015-11-16 18:07:26 -08:00
xor a
2018-01-10 10:47:57 -08:00
ld [hli], a ; attributes
2015-12-09 08:38:40 -08:00
; next
2015-11-16 18:07:26 -08:00
pop de
inc de
2015-12-09 08:38:40 -08:00
jr .nestloop
2015-11-16 18:07:26 -08:00
2015-12-09 08:38:40 -08:00
.done_nest
ld hl, wVirtualOAM
2015-11-16 18:07:26 -08:00
decoord 0, 0
2018-01-30 11:55:20 -08:00
ld bc, wVirtualOAMEnd - wVirtualOAM
2015-11-16 18:07:26 -08:00
call CopyBytes
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91e5a
2015-12-09 08:38:40 -08:00
.HideNestsShowPlayer: ; 91e5a
call .CheckPlayerLocation
2015-11-16 18:07:26 -08:00
ret c
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
ld e, a
2017-12-24 09:47:30 -08:00
farcall GetLandmarkCoords
2015-11-16 18:07:26 -08:00
ld c, e
ld b, d
2015-12-09 08:38:40 -08:00
ld de, .PlayerOAM
2018-01-30 11:52:46 -08:00
ld hl, wVirtualOAMSprite00
.ShowPlayerLoop:
2015-11-16 18:07:26 -08:00
ld a, [de]
cp $80
2016-01-10 14:44:09 -08:00
jr z, .clear_oam
2015-11-16 18:07:26 -08:00
add b
2018-01-10 10:47:57 -08:00
ld [hli], a ; y
2015-11-16 18:07:26 -08:00
inc de
ld a, [de]
add c
2018-01-10 10:47:57 -08:00
ld [hli], a ; x
2015-11-16 18:07:26 -08:00
inc de
ld a, [de]
2015-12-09 08:38:40 -08:00
add $78 ; where the player's sprite is loaded
2018-01-10 10:47:57 -08:00
ld [hli], a ; tile id
2015-11-16 18:07:26 -08:00
inc de
push bc
2018-01-10 10:47:57 -08:00
ld c, PAL_OW_RED
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
2018-01-10 10:47:57 -08:00
jr z, .male
inc c ; PAL_OW_BLUE
.male
2015-11-16 18:07:26 -08:00
ld a, c
2018-01-10 10:47:57 -08:00
ld [hli], a ; attributes
2015-11-16 18:07:26 -08:00
pop bc
2015-12-09 08:38:40 -08:00
jr .ShowPlayerLoop
2015-11-16 18:07:26 -08:00
2016-01-10 14:44:09 -08:00
.clear_oam
2018-01-30 11:52:46 -08:00
ld hl, wVirtualOAMSprite04
2018-01-30 11:55:20 -08:00
ld bc, wVirtualOAMEnd - wVirtualOAMSprite04
2015-11-16 18:07:26 -08:00
xor a
call ByteFill
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91e9c
2015-12-09 08:38:40 -08:00
.PlayerOAM: ; 91e9c
2018-01-10 10:47:57 -08:00
; y pxl, x pxl, tile offset
db -1 * 8, -1 * 8, 0 ; top left
db -1 * 8, 0 * 8, 1 ; top right
db 0 * 8, -1 * 8, 2 ; bottom left
db 0 * 8, 0 * 8, 3 ; bottom right
2015-11-16 18:07:26 -08:00
db $80 ; terminator
; 91ea9
2015-12-09 08:38:40 -08:00
.CheckPlayerLocation: ; 91ea9
; Don't show the player's sprite if you're
; not in the same region as what's currently
; on the screen.
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
cp FAST_SHIP
jr z, .johto
cp KANTO_LANDMARK
jr c, .johto
.kanto
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorLandmark]
2015-11-16 18:07:26 -08:00
and a
jr z, .clear
jr .ok
.johto
2017-12-09 16:41:03 -08:00
ld a, [wTownMapCursorLandmark]
2015-11-16 18:07:26 -08:00
and a
jr nz, .clear
.ok
and a
ret
.clear
ld hl, wVirtualOAM
2018-01-30 11:55:20 -08:00
ld bc, wVirtualOAMEnd - wVirtualOAM
2015-11-16 18:07:26 -08:00
xor a
call ByteFill
scf
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91ed0
2015-12-09 08:38:40 -08:00
.GetPlayerOrFastShipIcon: ; 91ed0
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
cp FAST_SHIP
2015-12-09 08:38:40 -08:00
jr z, .FastShip
2017-12-24 09:47:30 -08:00
farcall GetPlayerIcon
2015-11-16 18:07:26 -08:00
ret
.FastShip:
2015-11-16 18:07:26 -08:00
ld de, FastShipGFX
ld b, BANK(FastShipGFX)
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91ee4
TownMapBGUpdate: ; 91ee4
; Update BG Map tiles and attributes
; BG Map address
ld a, l
ld [hBGMapAddress], a
ld a, h
ld [hBGMapAddress + 1], a
; Only update palettes on CGB
ld a, [hCGB]
and a
jr z, .tiles
; BG Map mode 2 (palettes)
ld a, 2
ld [hBGMapMode], a
; The BG Map is updated in thirds, so we wait
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 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
ld [hBGMapMode], a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91eff
FillJohtoMap: ; 91eff
ld de, JohtoMap
jr FillTownMap
FillKantoMap: ; 91f04
ld de, KantoMap
FillTownMap: ; 91f07
hlcoord 0, 0
.loop
ld a, [de]
2015-12-09 08:38:40 -08:00
cp -1
2015-11-16 18:07:26 -08:00
ret z
ld a, [de]
ld [hli], a
inc de
jr .loop
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91f13
TownMapPals: ; 91f13
; Assign palettes based on tile ids
hlcoord 0, 0
2018-01-23 14:39:09 -08:00
decoord 0, 0, wAttrMap
2015-12-09 08:38:40 -08:00
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
2015-11-16 18:07:26 -08:00
.loop
; Current tile
ld a, [hli]
push hl
2018-01-11 09:00:01 -08:00
; The palette map covers tiles $00 to $5f; $60 and above use palette 0
2015-11-16 18:07:26 -08:00
cp $60
jr nc, .pal0
2016-01-09 20:41:03 -08:00
2018-01-11 09:00:01 -08:00
; The palette data is condensed to nybbles, least-significant first.
ld hl, .PalMap
2015-11-16 18:07:26 -08:00
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]
2018-01-11 09:00:01 -08:00
and PALETTE_MASK
2015-11-16 18:07:26 -08:00
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
2018-01-11 09:00:01 -08:00
and PALETTE_MASK
2015-11-16 18:07:26 -08:00
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"
2015-11-16 18:07:26 -08:00
; 91f7b
TownMapMon: ; 91f7b
2018-01-11 09:00:01 -08:00
; Draw the FlyMon icon at town map location
2015-11-16 18:07:26 -08:00
; Get FlyMon species
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyMon]
ld hl, wPartySpecies
2015-11-16 18:07:26 -08:00
ld e, a
ld d, $0
add hl, de
ld a, [hl]
ld [wd265], a
; Get FlyMon icon
2018-01-11 09:00:01 -08:00
ld e, $08 ; starting tile in VRAM
2017-12-24 09:47:30 -08:00
farcall GetSpeciesIcon
2015-11-16 18:07:26 -08:00
; Animation/palette
2015-12-09 08:38:40 -08:00
depixel 0, 0
ld a, SPRITE_ANIM_INDEX_PARTY_MON
2015-11-16 18:07:26 -08:00
call _InitSpriteAnimStruct
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_TILE_ID
2015-11-16 18:07:26 -08:00
add hl, bc
2018-01-11 09:00:01 -08:00
ld [hl], $08
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_ANIM_SEQ_ID
2015-11-16 18:07:26 -08:00
add hl, bc
2015-12-18 17:07:09 -08:00
ld [hl], SPRITE_ANIM_SEQ_NULL
2015-11-16 18:07:26 -08:00
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 91fa6
TownMapPlayerIcon: ; 91fa6
; Draw the player icon at town map location in a
push af
2017-12-24 09:47:30 -08:00
farcall GetPlayerIcon
2015-11-16 18:07:26 -08:00
; Standing icon
2017-12-28 04:32:33 -08:00
ld hl, vTiles0 tile $10
2015-11-16 18:07:26 -08:00
ld c, 4 ; # tiles
call Request2bpp
; Walking icon
ld hl, $c0
add hl, de
ld d, h
ld e, l
2017-12-28 04:32:33 -08:00
ld hl, vTiles0 tile $14
2015-11-16 18:07:26 -08:00
ld c, 4 ; # tiles
ld a, BANK(ChrisSpriteGFX) ; does nothing
call Request2bpp
; Animation/palette
2015-12-09 08:38:40 -08:00
depixel 0, 0
2016-01-09 20:41:03 -08:00
ld b, SPRITE_ANIM_INDEX_RED_WALK ; Male
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
2015-12-09 08:38:40 -08:00
jr z, .got_gender
2016-01-09 20:41:03 -08:00
ld b, SPRITE_ANIM_INDEX_BLUE_WALK ; Female
2015-12-09 08:38:40 -08:00
.got_gender
2015-11-16 18:07:26 -08:00
ld a, b
call _InitSpriteAnimStruct
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_TILE_ID
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], $10
pop af
ld e, a
push bc
2017-12-24 09:47:30 -08:00
farcall GetLandmarkCoords
2015-11-16 18:07:26 -08:00
pop bc
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_XCOORD
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], e
2015-12-09 08:38:40 -08:00
ld hl, SPRITEANIMSTRUCT_YCOORD
2015-11-16 18:07:26 -08:00
add hl, bc
ld [hl], d
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 0x91ff2
2015-12-09 08:38:40 -08:00
LoadTownMapGFX: ; 91ff2
2015-11-16 18:07:26 -08:00
ld hl, TownMapGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2
2018-01-14 16:43:35 -08:00
lb bc, BANK(TownMapGFX), 48
2015-11-16 18:07:26 -08:00
call DecompressRequest2bpp
ret
2016-01-09 20:41:03 -08:00
; 91fff
2015-11-16 18:07:26 -08:00
JohtoMap: ; 91fff
INCBIN "gfx/pokegear/johto.bin"
2015-11-16 18:07:26 -08:00
; 92168
KantoMap: ; 92168
INCBIN "gfx/pokegear/kanto.bin"
2015-11-16 18:07:26 -08:00
; 922d1
2015-12-09 08:38:40 -08:00
PokedexNestIconGFX: ; 922d1
INCBIN "gfx/pokegear/dexmap_nest_icon.2bpp"
FlyMapLabelBorderGFX: ; 922e1
INCBIN "gfx/pokegear/flymap_label_border.1bpp"
2016-01-10 14:44:09 -08:00
Unreferenced_Function92311:
2015-11-16 18:07:26 -08:00
xor a
2017-12-09 16:41:03 -08:00
ld [wTownMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
call ClearBGPalettes
call ClearTileMap
call ClearSprites
ld hl, hInMenu
ld a, [hl]
push af
ld [hl], $1
xor a
ld [hBGMapMode], a
2017-12-24 09:47:30 -08:00
farcall ClearSpriteAnims
2015-12-09 08:38:40 -08:00
call LoadTownMapGFX
ld de, FlyMapLabelBorderGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles2 tile $30
2015-12-09 08:38:40 -08:00
lb bc, BANK(FlyMapLabelBorderGFX), 6
2015-11-16 18:07:26 -08:00
call Request1bpp
call FillKantoMap
call TownMapBubble
call TownMapPals
2017-12-28 04:32:33 -08:00
hlbgcoord 0, 0, vBGMap1
2015-11-16 18:07:26 -08:00
call TownMapBGUpdate
call FillJohtoMap
call TownMapBubble
call TownMapPals
2015-11-20 08:47:52 -08:00
hlbgcoord 0, 0
2015-11-16 18:07:26 -08:00
call TownMapBGUpdate
call TownMapMon
ld a, c
2017-12-09 16:41:03 -08:00
ld [wTownMapCursorCoordinates], a
2015-11-16 18:07:26 -08:00
ld a, b
2017-12-09 16:41:03 -08:00
ld [wTownMapCursorCoordinates + 1], a
2015-12-28 07:57:04 -08:00
ld b, SCGB_POKEGEAR_PALS
2015-11-16 18:07:26 -08:00
call GetSGBLayout
call SetPalettes
.loop
call JoyTextDelay
ld hl, hJoyPressed
ld a, [hl]
and B_BUTTON
jr nz, .pressedB
ld a, [hl]
and A_BUTTON
jr nz, .pressedA
2015-12-09 08:38:40 -08:00
call .HandleDPad
2015-11-16 18:07:26 -08:00
call GetMapCursorCoordinates
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
2015-11-16 18:07:26 -08:00
call DelayFrame
jr .loop
.pressedB
ld a, -1
2016-01-10 14:44:09 -08:00
jr .finished_a_b
2015-11-16 18:07:26 -08:00
.pressedA
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
ld l, a
ld h, 0
add hl, hl
ld de, Flypoints + 1
add hl, de
ld a, [hl]
2016-01-10 14:44:09 -08:00
.finished_a_b
2017-12-09 16:41:03 -08:00
ld [wTownMapPlayerIconLandmark], a
2015-11-16 18:07:26 -08:00
pop af
ld [hInMenu], a
call ClearBGPalettes
ld a, $90
ld [hWY], a
2017-12-28 04:32:33 -08:00
xor a ; LOW(vBGMap0)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress], a
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap0)
2015-11-16 18:07:26 -08:00
ld [hBGMapAddress + 1], a
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
ld e, a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 923b8
2015-12-09 08:38:40 -08:00
.HandleDPad: ; 923b8
2015-11-16 18:07:26 -08:00
ld hl, hJoyLast
ld a, [hl]
and D_DOWN | D_RIGHT
2015-12-09 08:38:40 -08:00
jr nz, .down_right
2015-11-16 18:07:26 -08:00
ld a, [hl]
and D_UP | D_LEFT
2015-12-09 08:38:40 -08:00
jr nz, .up_left
2015-11-16 18:07:26 -08:00
ret
2015-12-09 08:38:40 -08:00
.down_right
2017-12-09 16:41:03 -08:00
ld hl, wTownMapPlayerIconLandmark
2015-11-16 18:07:26 -08:00
ld a, [hl]
cp FLY_INDIGO
2015-12-09 08:38:40 -08:00
jr c, .okay_dr
2015-11-16 18:07:26 -08:00
ld [hl], -1
2015-12-09 08:38:40 -08:00
.okay_dr
2015-11-16 18:07:26 -08:00
inc [hl]
2015-12-09 08:38:40 -08:00
jr .continue
2015-11-16 18:07:26 -08:00
2015-12-09 08:38:40 -08:00
.up_left
2017-12-09 16:41:03 -08:00
ld hl, wTownMapPlayerIconLandmark
2015-11-16 18:07:26 -08:00
ld a, [hl]
and a
2015-12-09 08:38:40 -08:00
jr nz, .okay_ul
2015-11-16 18:07:26 -08:00
ld [hl], FLY_INDIGO + 1
2015-12-09 08:38:40 -08:00
.okay_ul
2015-11-16 18:07:26 -08:00
dec [hl]
2015-12-09 08:38:40 -08:00
.continue
2017-12-09 16:41:03 -08:00
ld a, [wTownMapPlayerIconLandmark]
2015-11-16 18:07:26 -08:00
cp KANTO_FLYPOINT
jr c, .johto
call FillKantoMap
xor a
ld b, $9c
2015-12-09 08:38:40 -08:00
jr .finish
2015-11-16 18:07:26 -08:00
.johto
call FillJohtoMap
ld a, $90
ld b, $98
2015-12-09 08:38:40 -08:00
.finish
2015-11-16 18:07:26 -08:00
ld [hWY], a
ld a, b
ld [hBGMapAddress + 1], a
call TownMapBubble
call WaitBGMap
xor a
ld [hBGMapMode], a
ret
2016-01-09 20:41:03 -08:00
2015-11-16 18:07:26 -08:00
; 92402