pokecrystal-board/mobile/mobile_22.asm
mid-kid 940256569b text_jump → text_far
The previous name for this was rather misleading. It isn't an actual
jump like you'd expect the `jp` instruction to behave as. Instead, it
behaves more like a `farcall`.
This also makes it consistent with its current command ID name of
`TX_FAR`.
2018-11-05 22:26:18 +01:00

4254 lines
58 KiB
NASM

String_89116:
db "-----@"
String_8911c:
db "でんわばんごうが ただしく" ; Phone number is not
next "はいって いません!@" ; entered correctly!
String_89135:
db "データが かわって いますが" ; The data has changed.
next "かきかえないで やめますか?@" ; Quit anyway?
String_89153:
db "メッセージは ありません@" ; No message
OpenSRAMBank4:
push af
ld a, $4
call GetSRAMBank
pop af
ret
Function89168:
ld hl, wGameTimerPause
set GAMETIMERPAUSE_MOBILE_7_F, [hl]
ret
Function8916e:
ld hl, wGameTimerPause
res GAMETIMERPAUSE_MOBILE_7_F, [hl]
ret
Function89174:
ld hl, wGameTimerPause
bit GAMETIMERPAUSE_MOBILE_7_F, [hl]
ret
Function8917a:
ld hl, wd002
ld bc, $32
xor a
call ByteFill
ret
Function89185:
; strcmp(hl, de, c)
; Compares c bytes starting at de and hl and incrementing together until a mismatch is found.
; Preserves hl and de.
push de
push hl
.loop
ld a, [de]
inc de
cp [hl]
jr nz, .done
inc hl
dec c
jr nz, .loop
.done
pop hl
pop de
ret
Function89193:
; copy(hl, de, 4)
; Copies c bytes from hl to de.
; Preserves hl and de.
push de
push hl
.loop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .loop
pop hl
pop de
ret
Function8919e:
; Searches for the c'th string starting at de. Returns the pointer in de.
ld a, c
and a
ret z
.loop
ld a, [de]
inc de
cp "@"
jr nz, .loop
dec c
jr nz, .loop
ret
Function891ab:
call Mobile22_SetBGMapMode1
farcall ReloadMapPart
call Mobile22_SetBGMapMode0
ret
Function891b8:
call Mobile22_SetBGMapMode0
hlcoord 0, 0
ld a, " "
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
call DelayFrame
ret
Function891ca:
push bc
call Function891b8
call WaitBGMap
pop bc
ret
Function891d3:
push bc
call Function891ca
ld c, $10
call DelayFrames
pop bc
ret
Function891de:
call Mobile22_SetBGMapMode0
call ClearPalettes
hlcoord 0, 0, wAttrMap
ld a, $7
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
hlcoord 0, 0
ld a, " "
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
call Function891ab
ret
Function891fe:
push bc
call Function891de
ld c, $10
call DelayFrames
pop bc
ret
Function89209:
ld a, 1
ld [wSpriteUpdatesEnabled], a
ret
Function8920f:
ld a, 0
ld [wSpriteUpdatesEnabled], a
ret
Function89215:
push hl
push bc
ld bc, wAttrMap - wTileMap
add hl, bc
ld [hl], a
pop bc
pop hl
ret
Function8921f:
push de
ld de, SCREEN_WIDTH
add hl, de
inc hl
ld a, $7f
.loop
push bc
push hl
.asm_89229
ld [hli], a
dec c
jr nz, .asm_89229
pop hl
add hl, de
pop bc
dec b
jr nz, .loop
pop de
ret
Mobile22_ButtonSound:
call JoyWaitAorB
call PlayClickSFX
ret
Mobile22_SetBGMapMode0:
xor a
ldh [hBGMapMode], a
ret
Mobile22_SetBGMapMode1:
ld a, $1
ldh [hBGMapMode], a
ret
Function89245:
farcall TryLoadSaveFile
ret c
farcall _LoadData
and a
ret
Function89254:
ld bc, $d07
jr Function89261
Function89259:
ld bc, $0e07
jr Function89261
Function8925e:
ld bc, $0e0c
Function89261:
push af
push bc
ld hl, MenuHeader_0x892a3
call CopyMenuHeader
pop bc
ld hl, wMenuBorderTopCoord
ld a, c
ld [hli], a
ld a, b
ld [hli], a
ld a, c
add $4
ld [hli], a
ld a, b
add $5
ld [hl], a
pop af
ld [wMenuCursorBuffer], a
call PushWindow
call Mobile22_SetBGMapMode0
call Function89209
call VerticalMenu
push af
ld c, $a
call DelayFrames
call CloseWindow
call Function8920f
pop af
jr c, .done
ld a, [wMenuCursorY]
cp $2
jr z, .done
and a
ret
.done
scf
ret
MenuHeader_0x892a3:
db MENU_BACKUP_TILES ; flags
menu_coords 10, 5, 15, 9
dw MenuData_0x892ab
db 1 ; default option
MenuData_0x892ab:
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
db 2 ; items
db "はい@"
db "いいえ@"
Function892b4:
call Function8931b
Function892b7:
ld d, b
ld e, c
ld hl, 0
add hl, bc
ld a, "@"
ld bc, 6
call ByteFill
ld b, d
ld c, e
ld hl, 6
add hl, bc
ld a, "@"
ld bc, 6
call ByteFill
ld b, d
ld c, e
ld hl, 12
add hl, bc
xor a
ld [hli], a
ld [hl], a
ld hl, 14
add hl, bc
ld [hli], a
ld [hl], a
ld hl, 16
add hl, bc
ld [hl], a
ld hl, 17
add hl, bc
ld a, -1
ld bc, 8
call ByteFill
ld b, d
ld c, e
ld e, 6
ld hl, 25
add hl, bc
.loop
ld a, -1
ld [hli], a
ld a, -1
ld [hli], a
dec e
jr nz, .loop
ret
Function89305:
xor a
ld [wMenuSelection], a
ld c, 40
.loop
ld a, [wMenuSelection]
inc a
ld [wMenuSelection], a
push bc
call Function892b4
pop bc
dec c
jr nz, .loop
ret
Function8931b:
push hl
ld hl, $a03b ; 4:a03b
ld a, [wMenuSelection]
dec a
ld bc, 37
call AddNTimes
ld b, h
ld c, l
pop hl
ret
Function8932d:
ld hl, 0
add hl, bc
Function89331:
; Scans up to 5 characters starting at hl, looking for a nonspace character up to the next terminator.
; Sets carry if it does not find a nonspace character.
; Returns the location of the following character in hl.
push bc
ld c, NAME_LENGTH_JAPANESE - 1
.loop
ld a, [hli]
cp "@"
jr z, .terminator
cp " "
jr nz, .nonspace
dec c
jr nz, .loop
.terminator
scf
jr .done
.nonspace
and a
.done
pop bc
ret
Function89346:
ld h, b
ld l, c
jr _incave
Function8934a:
ld hl, NAME_LENGTH_JAPANESE
add hl, bc
_incave:
; Scans up to 5 characters starting at hl, looking for a nonspace character up to the next terminator. Sets carry if it does not find a nonspace character. Returns the location of the following character in hl.
push bc
ld c, NAME_LENGTH_JAPANESE - 1
.loop
ld a, [hli]
cp "@"
jr z, .terminator
cp " "
jr nz, .nonspace
dec c
jr nz, .loop
.terminator
scf
jr .done
.nonspace
and a
.done
pop bc
ret
Function89363:
; Scans six byte pairs starting at bc to find $ff. Sets carry if it does not find a $ff. Returns the location of the byte after the first $ff found in hl.
ld h, b
ld l, c
jr ._incave
ld hl, 25
add hl, bc
._incave
push de
ld e, NAME_LENGTH_JAPANESE
.loop
ld a, [hli]
cp -1
jr nz, .ok
ld a, [hli]
cp -1
jr nz, .ok
dec e
jr nz, .loop
scf
jr .done
.ok
and a
.done
pop de
ret
Function89381:
push bc
push de
call Function89b45
jr c, .ok
push hl
ld a, -1
ld bc, 8
call ByteFill
pop hl
.ok
pop de
ld c, 8
call Function89193
pop bc
ret
Function8939a:
push bc
ld hl, 0
add hl, bc
ld de, wd002
ld c, 6
call Function89193
pop bc
ld hl, 17
add hl, bc
ld de, wd008
call Function89381
ret
Function893b3:
call DisableLCD
call ClearSprites
call LoadStandardFont
call LoadFontsExtra
call Function893ef
call Function8942b
call Function89455
call EnableLCD
ret
Function893cc:
call DisableLCD
call ClearSprites
call LoadStandardFont
call LoadFontsExtra
call Function893ef
call Function89464
call EnableLCD
ret
Function893e2:
call Function89b1e
call Function893b3
call Function8a5b6
call Function8949c
ret
Function893ef:
ld de, vTiles0
ld hl, GFX_8940b
ld bc, $20
ld a, BANK(GFX_8940b)
call FarCopyBytes
ret
Function893fe:
call DisableLCD
call Function893ef
call EnableLCD
call DelayFrame
ret
GFX_8940b:
INCBIN "gfx/unknown/08940b.2bpp"
Function8942b:
ld de, vTiles0 tile $02
ld hl, MobileAdapterGFX + $7d tiles
ld bc, 8 tiles
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ld de, vTiles0 tile $0a
ld hl, MobileAdapterGFX + $c6 tiles
ld bc, 4 tiles
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ret
Function89448:
; Clears the sprite array
push af
ld hl, wVirtualOAM
ld d, 24 * SPRITEOAMSTRUCT_LENGTH
xor a
.loop
ld [hli], a
dec d
jr nz, .loop
pop af
ret
Function89455:
ld hl, MobileAdapterGFX + $7d tiles
ld de, vTiles2 tile $0c
ld bc, $49 tiles
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ret
Function89464:
ld hl, MobileAdapterGFX
ld de, vTiles2
ld bc, $20 tiles
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ld hl, MobileAdapterGFX + $66 tiles
ld de, vTiles2 tile $20
ld bc, $17 tiles
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
ret
Function89481:
ld d, 2
call Function8934a
ret c
ld d, 0
ld hl, 16
add hl, bc
bit 0, [hl]
ret z
inc d
ret
Function89492:
ld d, 0
ld a, [wPlayerGender]
bit PLAYERGENDER_FEMALE_F, a
ret z
inc d
ret
Function8949c:
ldh a, [rSVBK]
push af
ld a, 5
ldh [rSVBK], a
ld hl, Palette_894b3
ld de, wBGPals1 palette 7
ld bc, 1 palettes
call CopyBytes
pop af
ldh [rSVBK], a
ret
Palette_894b3:
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
Function894bb:
call Function894dc
push bc
call Function8956f
call Function8949c
call Function8a60d
pop bc
ret
Function894ca:
push bc
call Function894dc
call Function895c7
call Function8949c
call Function8a60d
call SetPalettes
pop bc
ret
Function894dc:
push bc
ldh a, [rSVBK]
push af
ld a, 5
ldh [rSVBK], a
ld c, d
ld b, 0
ld hl, .PalettePointers
add hl, bc
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ld de, wBGPals1
ld bc, 3 palettes
call CopyBytes
ld hl, .Pals345
ld de, wBGPals1 + 3 palettes
ld bc, 3 palettes
call CopyBytes
pop af
ldh [rSVBK], a
pop bc
ret
.PalettePointers:
dw .Pals012a
dw .Pals012b
dw .Pals012c
.Pals012a:
RGB 31, 31, 31
RGB 10, 17, 13
RGB 10, 08, 22
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 10, 08, 22
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 10, 17, 13
RGB 00, 00, 00
.Pals012b:
RGB 31, 31, 31
RGB 30, 22, 11
RGB 31, 08, 15
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 31, 08, 15
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 30, 22, 11
RGB 00, 00, 00
.Pals012c:
RGB 31, 31, 31
RGB 15, 20, 26
RGB 25, 07, 20
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 25, 07, 20
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 20, 31
RGB 15, 20, 26
RGB 00, 00, 00
.Pals345:
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 13, 00
RGB 14, 08, 00
RGB 31, 31, 31
RGB 16, 16, 31
RGB 00, 00, 31
RGB 00, 00, 00
RGB 19, 31, 11
RGB 00, 00, 00
RGB 00, 00, 00
RGB 00, 00, 00
Function8956f:
push bc
ld hl, 16
add hl, bc
ld d, h
ld e, l
ld hl, $000c
add hl, bc
ld b, h
ld c, l
farcall GetMobileOTTrainerClass
ld a, c
ld [wTrainerClass], a
ldh a, [rSVBK]
push af
ld a, 5
ldh [rSVBK], a
ld hl, wd030
ld a, -1
ld [hli], a
ld a, " "
ld [hl], a
pop af
ldh [rSVBK], a
ld a, [wTrainerClass]
ld h, 0
ld l, a
add hl, hl
add hl, hl
ld de, TrainerPalettes
add hl, de
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld de, wd032
ld c, 4
.loop
ld a, BANK(TrainerPalettes)
call GetFarByte
ld [de], a
inc de
inc hl
dec c
jr nz, .loop
ld hl, wd036
xor a
ld [hli], a
ld [hl], a
pop af
ldh [rSVBK], a
pop bc
ret
Function895c7:
ldh a, [rSVBK]
push af
ld a, 5
ldh [rSVBK], a
ld hl, Palette_895de
ld de, wd030
ld bc, 8
call CopyBytes
pop af
ldh [rSVBK], a
ret
Palette_895de:
RGB 31, 31, 31
RGB 07, 07, 06
RGB 07, 07, 06
RGB 00, 00, 00
Function895e6:
ld a, 7
hlcoord 0, 0, wAttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
ret
Function895f2:
push bc
xor a
hlcoord 0, 0, wAttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
call Function89605
call Function89655
pop bc
ret
Function89605:
hlcoord 19, 2, wAttrMap
ld a, 1
ld de, SCREEN_WIDTH
ld c, 14
.loop
ld [hl], a
dec c
jr z, .done
add hl, de
inc a
ld [hl], a
dec a
add hl, de
dec c
jr nz, .loop
.done
hlcoord 0, 16, wAttrMap
ld c, 10
ld a, 2
.loop2
ld [hli], a
dec a
ld [hli], a
inc a
dec c
jr nz, .loop2
hlcoord 1, 11, wAttrMap
ld a, 4
ld bc, 4
call ByteFill
ld a, 5
ld bc, 14
call ByteFill
ret
Function8963d:
hlcoord 12, 3, wAttrMap
ld a, 6
ld de, SCREEN_WIDTH
lb bc, 7, 7
.loop
push hl
ld c, 7
.next
ld [hli], a
dec c
jr nz, .next
pop hl
add hl, de
dec b
jr nz, .loop
ret
Function89655:
hlcoord 1, 12, wAttrMap
ld de, SCREEN_WIDTH
ld a, 5
ld b, 4
.loop
ld c, 18
push hl
.next
ld [hli], a
dec c
jr nz, .next
pop hl
add hl, de
dec b
jr nz, .loop
ret
Function8966c:
push bc
call Function89688
hlcoord 4, 0
ld c, 8
call Function896f5
pop bc
ret
Function8967a:
push bc
call Function89688
hlcoord 2, 0
ld c, 12
call Function896f5
pop bc
ret
Function89688:
hlcoord 0, 0
ld a, 1
ld e, SCREEN_WIDTH
call Function896e1
ld a, 2
ld e, SCREEN_WIDTH
call Function896eb
ld a, 3
ld [hli], a
ld a, 4
ld e, SCREEN_HEIGHT
call Function896e1
ld a, 6
ld [hli], a
push bc
ld c, 13
.loop
call Function896cb
dec c
jr z, .done
call Function896d6
dec c
jr nz, .loop
.done
pop bc
ld a, 25
ld [hli], a
ld a, 26
ld e, SCREEN_HEIGHT
call Function896e1
ld a, 28
ld [hli], a
ld a, 2
ld e, SCREEN_WIDTH
call Function896eb
ret
Function896cb:
ld de, SCREEN_WIDTH - 1
ld a, 7
ld [hl], a
add hl, de
ld a, 9
ld [hli], a
ret
Function896d6:
ld de, SCREEN_WIDTH - 1
ld a, 10
ld [hl], a
add hl, de
ld a, 11
ld [hli], a
ret
Function896e1:
.loop
ld [hli], a
inc a
dec e
ret z
ld [hli], a
dec a
dec e
jr nz, .loop
ret
Function896eb:
.loop
ld [hli], a
dec a
dec e
ret z
ld [hli], a
inc a
dec e
jr nz, .loop
ret
Function896f5:
call Function8971f
call Function89736
inc hl
inc hl
ld b, 2
ClearScreenArea:
; clears an area of the screen
; INPUT:
; hl = address of upper left corner of the area
; b = height
; c = width
ld a, " " ; blank tile
ld de, 20 ; screen width
.loop
push bc
push hl
.innerLoop
ld [hli], a
dec c
jr nz, .innerLoop
pop hl
pop bc
add hl, de
dec b
jr nz, .loop
dec hl
inc c
inc c
.asm_89713
ld a, $36
ld [hli], a
dec c
ret z
ld a, $18
ld [hli], a
dec c
jr nz, .asm_89713
ret
Function8971f:
ld a, $2c
ld [hli], a
ld a, $2d
ld [hld], a
push hl
ld de, SCREEN_WIDTH
add hl, de
ld a, $31
ld [hli], a
ld a, $32
ld [hld], a
add hl, de
ld a, $35
ld [hl], a
pop hl
ret
Function89736:
push hl
inc hl
inc hl
ld e, c
ld d, $0
add hl, de
ld a, $2f
ld [hli], a
ld a, $30
ld [hld], a
ld de, SCREEN_WIDTH
add hl, de
ld a, $33
ld [hli], a
ld a, $34
ld [hl], a
add hl, de
ld a, $1f
ld [hl], a
pop hl
ret
Function89753:
ld a, $c
ld [hl], a
xor a
call Function89215
ret
Function8975b:
ld a, $1d
ld [hli], a
inc a
ld [hli], a
ld a, $d
ld [hl], a
dec hl
dec hl
ld a, $4
ld e, $3
.asm_89769
call Function89215
inc hl
dec e
jr nz, .asm_89769
ret
Function89771:
ld a, $12
ld [hl], a
ld a, $3
call Function89215
ret
Function8977a:
ld e, $4
ld d, $13
.asm_8977e
ld a, d
ld [hl], a
ld a, $4
call Function89215
inc hl
inc d
dec e
jr nz, .asm_8977e
ld e, $e
.asm_8978c
ld a, d
ld [hl], a
xor a
call Function89215
inc hl
dec e
jr nz, .asm_8978c
ret
Function89797:
push bc
ld a, $e
ld [hl], a
ld bc, SCREEN_WIDTH
add hl, bc
ld a, $11
ld [hli], a
ld a, $10
ld c, $8
.asm_897a6
ld [hli], a
dec c
jr nz, .asm_897a6
ld a, $f
ld [hl], a
pop bc
ret
Function897af:
push bc
ld hl, $0010
add hl, bc
ld d, h
ld e, l
ld hl, $000c
add hl, bc
ld b, h
ld c, l
farcall GetMobileOTTrainerClass
ld a, c
ld [wTrainerClass], a
xor a
ld [wCurPartySpecies], a
ld de, vTiles2 tile $37
farcall GetTrainerPic
pop bc
ret
Function897d5:
push bc
call Function8934a
jr nc, .asm_897f3
hlcoord 12, 3, wAttrMap
xor a
ld de, SCREEN_WIDTH
lb bc, 7, 7
.asm_897e5
push hl
ld c, $7
.asm_897e8
ld [hli], a
dec c
jr nz, .asm_897e8
pop hl
add hl, de
dec b
jr nz, .asm_897e5
pop bc
ret
.asm_897f3
ld a, $37
ldh [hGraphicStartTile], a
hlcoord 12, 3
lb bc, 7, 7
predef PlaceGraphic
call Function8963d
pop bc
ret
Function89807:
ld hl, MobileAdapterGFX + $20 tiles
ld a, [wPlayerGender]
bit PLAYERGENDER_FEMALE_F, a
jr z, .asm_89814
ld hl, MobileAdapterGFX + $43 tiles
.asm_89814
call DisableLCD
ld de, vTiles2 tile $37
ld bc, $23 tiles
ld a, BANK(MobileAdapterGFX)
call FarCopyBytes
call EnableLCD
call DelayFrame
ret
Function89829:
push bc
ld bc, $705
ld de, $14
ld a, $37
.asm_89832
push bc
push hl
.asm_89834
ld [hli], a
inc a
dec c
jr nz, .asm_89834
pop hl
add hl, de
pop bc
dec b
jr nz, .asm_89832
call Function8963d
pop bc
ret
Function89844:
call Function89481
call Function894bb
call Function897af
push bc
call WaitBGMap2
call SetPalettes
pop bc
ret
Function89856:
push bc
call Function891b8
pop bc
call Function895f2
call Function8966c
call Function899d3
call Function898aa
call Function898be
call Function898dc
call Function898f3
push bc
ld bc, wd008
hlcoord 2, 10
call Function89975
pop bc
call Function897d5
ret
Function8987f:
call Function891b8
call Function895f2
call Function8967a
call Function899d3
hlcoord 5, 1
call Function8999c
hlcoord 13, 3
call Function89829
call Function899b2
hlcoord 5, 5
call Function899c9
ld bc, wd008
hlcoord 2, 10
call Function89975
ret
Function898aa:
ld a, [wMenuSelection]
and a
ret z
push bc
hlcoord 6, 1
ld de, wMenuSelection
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
call PrintNum
pop bc
ret
Function898be:
push bc
ld de, wd002
ld hl, wd002
call Function89331
jr nc, .asm_898cd
ld de, String_89116
.asm_898cd
hlcoord 9, 1
ld a, [wMenuSelection]
and a
jr nz, .asm_898d7
dec hl
.asm_898d7
call PlaceString
pop bc
ret
Function898dc:
ld hl, $0006
add hl, bc
push bc
ld d, h
ld e, l
call Function8934a
jr nc, .asm_898eb
ld de, String_89116
.asm_898eb
hlcoord 6, 4
call PlaceString
pop bc
ret
Function898f3:
push bc
ld hl, $000c
add hl, bc
ld d, h
ld e, l
call Function8934a
jr c, .asm_8990a
hlcoord 5, 5
lb bc, PRINTNUM_LEADINGZEROS | 2, 5
call PrintNum
jr .asm_89913
.asm_8990a
hlcoord 5, 5
ld de, String_89116
call PlaceString
.asm_89913
pop bc
ret
Function89915:
push bc
push hl
ld de, Unknown_89942
ld c, $8
.asm_8991c
ld a, [de]
ld [hl], a
ld a, $4
call Function89215
inc hl
inc de
dec c
jr nz, .asm_8991c
pop hl
ld b, $4
ld c, $2b
ld a, $8
ld de, Unknown_8994a
.asm_89932
push af
ld a, [de]
cp [hl]
jr nz, .asm_8993b
call Function8994e
inc de
.asm_8993b
inc hl
pop af
dec a
jr nz, .asm_89932
pop bc
ret
Unknown_89942:
db $24, $25, $26, " ", $27, $28, $29, $2a
Unknown_8994a:
db $24, $27, $29, $ff
Function8994e:
push hl
push de
ld de, SCREEN_WIDTH
ld a, l
sub e
ld l, a
ld a, h
sbc d
ld h, a
ld a, c
ld [hl], a
ld a, b
call Function89215
pop de
pop hl
ret
Function89962:
push bc
ld c, $4
ld b, $20
.asm_89967
ld a, b
ld [hl], a
ld a, $4
call Function89215
inc hl
inc b
dec c
jr nz, .asm_89967
pop bc
ret
Function89975:
push bc
ld e, $8
.asm_89978
ld a, [bc]
ld d, a
call Function8998b
swap d
inc hl
ld a, d
call Function8998b
inc bc
inc hl
dec e
jr nz, .asm_89978
pop bc
ret
Function8998b:
push bc
and $f
cp $a
jr nc, .asm_89997
ld c, $f6
add c
jr .asm_89999
.asm_89997
ld a, $7f
.asm_89999
ld [hl], a
pop bc
ret
Function8999c:
ld de, wPlayerName
call PlaceString
inc bc
ld h, b
ld l, c
ld de, String_899ac
call PlaceString
ret
String_899ac:
db "の めいし@"
Function899b2:
ld bc, wPlayerName
call Function89346
jr c, .asm_899bf
ld de, wPlayerName
jr .asm_899c2
.asm_899bf
ld de, String_89116
.asm_899c2
hlcoord 6, 4
call PlaceString
ret
Function899c9:
ld de, wPlayerID
lb bc, PRINTNUM_LEADINGZEROS | 2, 5
call PrintNum
ret
Function899d3:
hlcoord 1, 4
call Function89753
hlcoord 2, 5
call Function8975b
hlcoord 1, 9
call Function89771
hlcoord 1, 11
call Function8977a
hlcoord 1, 5
call Function89797
hlcoord 2, 4
call Function89962
hlcoord 2, 9
call Function89915
ret
Function899fe:
push bc
push hl
ld hl, $0019
add hl, bc
ld b, h
ld c, l
pop hl
call Function89a0c
pop bc
ret
Function89a0c:
push hl
call Function89363
pop hl
jr c, .asm_89a1c
ld d, h
ld e, l
farcall Function11c08f
ret
.asm_89a1c
ld de, String_89153
call PlaceString
ret
Function89a23:
hlcoord 0, 11
ld b, $4
ld c, $12
call Function8921f
ret
Function89a2e:
hlcoord 11, 12
ld b, $2
ld c, $6
call TextBox
hlcoord 13, 13
ld de, String_89a4e
call PlaceString
hlcoord 13, 14
ld de, String_89a53
call PlaceString
call Function89655
ret
String_89a4e:
db "けってい@"
String_89a53:
db "やめる@"
Function89a57:
call JoyTextDelay_ForcehJoyDown ; joypad
bit D_UP_F, c
jr nz, .d_up
bit D_DOWN_F, c
jr nz, .d_down
bit A_BUTTON_F, c
jr nz, .a_b_button
bit B_BUTTON_F, c
jr nz, .a_b_button
bit START_F, c
jr nz, .start_button
scf
ret
.a_b_button
ld a, $1
and a
ret
.start_button
ld a, $2
and a
ret
.d_up
call .MoveCursorUp
call nc, .PlayPocketSwitchSFX
ld a, $0
ret
.d_down
call .MoveCursorDown
call nc, .PlayPocketSwitchSFX
ld a, $0
ret
.PlayPocketSwitchSFX:
push af
ld de, SFX_SWITCH_POCKETS
call PlaySFX
pop af
ret
.MoveCursorDown:
ld d, 40
ld e, 1
call .ApplyCursorMovement
ret
.MoveCursorUp:
ld d, 1
ld e, -1
call .ApplyCursorMovement
ret
.ApplyCursorMovement:
ld a, [wMenuSelection]
ld c, a
push bc
.loop
ld a, [wMenuSelection]
cp d
jr z, .equal_to_d
add e
jr nz, .not_zero
inc a
.not_zero
ld [wMenuSelection], a
call .Function89ac7 ; BCD conversion of data in SRAM?
jr nc, .loop
call .Function89ae6 ; split [wMenuSelection] into [wd030] + [wd031] where [wd030] <= 5
pop bc
and a
ret
.equal_to_d
pop bc
ld a, c
ld [wMenuSelection], a
scf
ret
.Function89ac7:
call OpenSRAMBank4
call Function8931b
call .Function89ad4
call CloseSRAM
ret
.Function89ad4:
push de
call Function8932d ; find a non-space character within 5 bytes of bc
jr c, .no_nonspace_character
ld hl, 17
add hl, bc
call Function89b45
jr c, .finish_decode
.no_nonspace_character
and a
.finish_decode
pop de
ret
.Function89ae6:
ld hl, wd031
xor a
ld [hl], a
ld a, [wMenuSelection]
.loop2
cp 6
jr c, .load_and_ret
sub 5
ld c, a
ld a, [hl]
add 5
ld [hl], a
ld a, c
jr .loop2
.load_and_ret
ld [wd030], a
ret
Function89b00:
farcall MG_Mobile_Layout_LoadPals
ret
Function89b07:
call Mobile22_SetBGMapMode0
call DelayFrame
farcall Function4a3a7
ret
Function89b14:
call ClearBGPalettes
call Function89b07
call Function89b00
ret
Function89b1e:
farcall Function4a485
call Function89b00
ret
Function89b28:
call Function891de
call ClearBGPalettes
call Function893e2
call Call_ExitMenu
call Function891ab
call SetPalettes
ret
Function89b3b:
call Mobile22_SetBGMapMode0
farcall Function48cda
ret
Function89b45:
; some sort of decoder?
; BCD?
push hl
push bc
ld c, $10
ld e, $0
.loop
ld a, [hli]
ld b, a
and $f
cp 10
jr c, .low_nybble_less_than_10
ld a, c
cp $b
jr nc, .clear_carry
jr .set_carry
.low_nybble_less_than_10
dec c
swap b
inc e
ld a, b
and $f
cp 10
jr c, .high_nybble_less_than_10
ld a, c
cp $b
jr nc, .clear_carry
jr .set_carry
.high_nybble_less_than_10
inc e
dec c
jr nz, .loop
dec e
.set_carry
scf
jr .finish
.clear_carry
and a
.finish
pop bc
pop hl
ret
Function89b78:
push bc
ld a, [wd010]
cp $10
jr c, .asm_89b8c
ld a, e
and a
jr z, .asm_89b89
ld c, e
.asm_89b85
inc hl
dec c
jr nz, .asm_89b85
.asm_89b89
ld a, $7f
ld [hl], a
.asm_89b8c
ld a, [wd010]
inc a
and $1f
ld [wd010], a
pop bc
ret
Function89b97:
call Function89c34
jr c, .asm_89ba0
call Function89448
ret
.asm_89ba0
ld a, [wd011]
ld hl, Unknown_89bd8
and a
jr z, .asm_89bae
.asm_89ba9
inc hl
inc hl
dec a
jr nz, .asm_89ba9
.asm_89bae
ld a, [hli]
ld h, [hl]
ld l, a
ld de, wVirtualOAMSprite00
.asm_89bb4
ld a, [hli]
cp $ff
ret z
ld c, a
ld b, $0
.asm_89bbb
push hl
ld a, [hli]
ld [de], a ; y
inc de
ld a, [hli]
add b
ld [de], a ; x
inc de
ld a, $08
add b
ld b, a
ld a, [hli] ; tile id
ld [de], a
inc de
ld a, [hli] ; attributes
ld [de], a
inc de
pop hl
dec c
jr nz, .asm_89bbb
ld b, $0
ld c, $4
add hl, bc
jr .asm_89bb4
Unknown_89bd8:
dw Unknown_89be0
dw Unknown_89bf5
dw Unknown_89c0a
dw Unknown_89c1f
Unknown_89be0:
db $01, $12, $4e, $01, 0
db $01, $19, $4e, $01, 0 | Y_FLIP
db $01, $12, $72, $01, 0 | X_FLIP
db $01, $19, $72, $01, 0 | X_FLIP | Y_FLIP
db -1 ; end
Unknown_89bf5:
db $01, $60, $16, $01, 0
db $01, $62, $16, $01, 0 | Y_FLIP
db $01, $60, $92, $01, 0 | X_FLIP
db $01, $62, $92, $01, 0 | X_FLIP | Y_FLIP
db -1 ; end
Unknown_89c0a:
db $01, $78, $66, $01, 0
db $01, $78, $66, $01, 0 | Y_FLIP
db $01, $78, $92, $01, 0 | X_FLIP
db $01, $78, $92, $01, 0 | X_FLIP | Y_FLIP
db -1 ; end
Unknown_89c1f:
db $01, $80, $66, $01, 0
db $01, $80, $66, $01, 0 | Y_FLIP
db $01, $80, $92, $01, 0 | X_FLIP
db $01, $80, $92, $01, 0 | X_FLIP | Y_FLIP
db -1 ; end
Function89c34:
push bc
ld a, [wd012]
ld c, a
inc a
and $f
ld [wd012], a
ld a, c
cp $8
pop bc
ret
Function89c44:
call Function89c34
jr c, .asm_89c4f
push de
call Function89448
pop de
ret
.asm_89c4f
ld hl, wVirtualOAMSprite00
push de
ld a, b
ld [hli], a ; y
ld d, $8
ld a, e
and a
ld a, c
jr z, .asm_89c60
.asm_89c5c
add d
dec e
jr nz, .asm_89c5c
.asm_89c60
pop de
ld [hli], a ; x
ld a, d
ld [hli], a ; tile id
xor a
ld [hli], a ; attributes
ret
Function89c67:
; menu scrolling?
call JoyTextDelay_ForcehJoyDown ; joypad
ld b, $0
bit A_BUTTON_F, c
jr z, .not_a_button
ld b, $1
and a
ret
.not_a_button
bit B_BUTTON_F, c
jr z, .not_b_button
scf
ret
.not_b_button
xor a
bit D_UP_F, c
jr z, .not_d_up
ld a, $1
.not_d_up
bit D_DOWN_F, c
jr z, .not_d_down
ld a, $2
.not_d_down
bit D_LEFT_F, c
jr z, .not_d_left
ld a, $3
.not_d_left
bit D_RIGHT_F, c
jr z, .not_d_right
ld a, $4
.not_d_right
and a
ret z ; no dpad pressed
dec a
ld c, a
ld d, $0
ld hl, .ScrollData0
ld a, [wd02f]
and a
jr z, .got_data
ld hl, .ScrollData1
.got_data
ld a, [wd011]
and a
jr z, .got_row
ld e, $4
.add_n_times
add hl, de
dec a
jr nz, .add_n_times
.got_row
ld e, c
add hl, de
ld a, [hl]
and a
ret z
dec a
ld [wd011], a
xor a
ld [wd012], a
ret
.ScrollData0:
db 0, 2, 0, 0
db 1, 3, 0, 0
db 2, 4, 0, 0
db 3, 0, 0, 0
.ScrollData1:
db 0, 0, 0, 0
db 0, 3, 0, 0
db 2, 4, 0, 0
db 3, 0, 0, 0
Function89cdf:
ld a, $10
add b
ld b, a
ld a, $8
add c
ld c, a
ld e, $2
ld a, $2
ld hl, wVirtualOAMSprite00
.asm_89cee
push af
push bc
ld d, $4
.asm_89cf2
ld a, b
ld [hli], a ; y
ld a, c
ld [hli], a ; x
ld a, e
ld [hli], a ; tile id
ld a, $1
ld [hli], a ; attributes
ld a, $8
add c
ld c, a
inc e
dec d
jr nz, .asm_89cf2
pop bc
ld a, $8
add b
ld b, a
pop af
dec a
jr nz, .asm_89cee
ret
Function89d0d:
call Mobile22_SetBGMapMode0
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld c, 8
ld de, wBGPals1
.loop
push bc
ld hl, .Palette1
ld bc, 1 palettes
call CopyBytes
pop bc
dec c
jr nz, .loop
ld hl, .Palette2
ld de, wBGPals1 + 2 palettes
ld bc, 1 palettes
call CopyBytes
pop af
ldh [rSVBK], a
call SetPalettes
farcall PrintMail
call Mobile22_SetBGMapMode1
ld c, 24
call DelayFrames
call RestartMapMusic
ret
.Palette1:
RGB 31, 31, 31
RGB 19, 19, 19
RGB 15, 15, 15
RGB 00, 00, 00
.Palette2:
RGB 31, 31, 31
RGB 19, 19, 19
RGB 19, 19, 19
RGB 00, 00, 00
Function89d5e:
push af
call CopyMenuHeader
pop af
ld [wMenuCursorBuffer], a
call Mobile22_SetBGMapMode0
call PlaceVerticalMenuItems
call InitVerticalMenuCursor
ld hl, w2DMenuFlags1
set 7, [hl]
ret
Function89d75:
push hl
call Mobile22_SetBGMapMode0
call _hl_
farcall Mobile_OpenAndCloseMenu_HDMATransferTileMapAndAttrMap
pop hl
jr asm_89d90
Function89d85:
push hl
call Mobile22_SetBGMapMode0
call _hl_
call CGBOnly_CopyTilemapAtOnce
pop hl
asm_89d90:
call Mobile22_SetBGMapMode0
push hl
call _hl_
call Function89dab
ld a, [wMenuCursorY]
push af
call Function891ab
pop af
pop hl
jr c, .asm_89da9
jr z, asm_89d90
scf
ret
.asm_89da9
and a
ret
Function89dab:
call Mobile22_SetBGMapMode0
farcall MobileMenuJoypad
call Mobile22_SetBGMapMode0
ld a, c
ld hl, wMenuJoypadFilter
and [hl]
ret z
bit 0, a
jr nz, .asm_89dc7
bit 1, a
jr nz, .asm_89dd9
xor a
ret
.asm_89dc7
call PlayClickSFX
ld a, [w2DMenuNumRows]
ld c, a
ld a, [wMenuCursorY]
cp c
jr z, .asm_89dd9
call PlaceHollowCursor
scf
ret
.asm_89dd9
call PlayClickSFX
ld a, $1
and a
ret
Function89de0:
call ClearSprites
call Function89e0a
jr c, .asm_89e00
ld c, $1
.asm_89dea
call Function8a31c
jr z, .asm_89dfd
ld a, [wMenuCursorY]
ld c, a
push bc
ld hl, Jumptable_89e04
ld a, e
dec a
rst JumpTable
pop bc
jr .asm_89dea
.asm_89dfd
call Function891fe
.asm_89e00
call Function8917a
ret
Jumptable_89e04:
dw Function8a62c
dw Function8a999
dw Function8ab93
Function89e0a:
call OpenSRAMBank4
call Function8b3b0
call CloseSRAM
ld hl, Jumptable_89e18
rst JumpTable
ret
Jumptable_89e18:
dw Function89e1e
dw Function8a116
dw Function8a2aa
Function89e1e:
call OpenSRAMBank4
ld bc, $a037
call Function8b36c
call CloseSRAM
xor a
ld [wd02d], a
asm_89e2e:
ld a, [wd02d]
ld hl, Jumptable_89e3c
rst JumpTable
ret
Function89e36:
ld hl, wd02d
inc [hl]
jr asm_89e2e
Jumptable_89e3c:
dw Function89e6f
dw Function89fed
dw Function89ff6
dw Function8a03d
dw Function89eb9
dw Function89efd
dw Function89fce
dw Function8a04c
dw Function8a055
dw Function8a0e6
dw Function8a0ec
dw Function8a0f5
dw Function89e58
dw Function89e68
Function89e58:
ld a, $1
call Function8a2fe
call Function891fe
call Function893e2
call Function89168
and a
ret
Function89e68:
call Function891fe
ld a, $1
scf
ret
Function89e6f:
call Function891de
call Function89245
call Function89ee1
call Function89e9a
hlcoord 7, 4
call Function8a58d
ld a, $5
hlcoord 7, 4, wAttrMap
call Function8a5a3
ld a, $6
hlcoord 10, 4, wAttrMap
call Function8a5a3
call Function891ab
call SetPalettes
jp Function89e36
Function89e9a:
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld hl, Palette_89eb1
ld de, wBGPals1 palette 5
ld bc, 1 palettes
call CopyBytes
pop af
ldh [rSVBK], a
ret
Palette_89eb1:
RGB 31, 31, 31
RGB 31, 31, 31
RGB 27, 19, 00
RGB 00, 00, 00
Function89eb9:
call Function891fe
call Function89ee1
call Function89e9a
hlcoord 7, 4
call Function8a58d
ld a, $5
hlcoord 7, 4, wAttrMap
call Function8a5a3
ld a, $6
hlcoord 10, 4, wAttrMap
call Function8a5a3
call Function891ab
call SetPalettes
jp Function89e36
Function89ee1:
call ClearBGPalettes
call Function893e2
call Mobile22_SetBGMapMode0
farcall Function4a3a7
farcall MG_Mobile_Layout_CreatePalBoxes
hlcoord 1, 0
call Function8a53d
ret
Function89efd:
ld hl, wd012
ld a, $ff
ld [hli], a
xor a
rept 4
ld [hli], a
endr
ld [hl], a
.asm_89f09
ld hl, wd012
inc [hl]
ld a, [hli]
and $3
jr nz, .asm_89f2e
ld a, [hl]
cp $4
jr nc, .asm_89f2e
ld b, $32
inc [hl]
ld a, [hl]
dec a
jr z, .asm_89f26
ld c, a
.asm_89f1f
ld a, $b
add b
ld b, a
dec c
jr nz, .asm_89f1f
.asm_89f26
ld c, $e8
ld a, [wd013]
call Function89fa5
.asm_89f2e
ld a, [wd013]
and a
jr z, .asm_89f58
.asm_89f34
call Function89f6a
ld e, a
ld a, c
cp $a8
jr nc, .asm_89f4d
cp $46
jr c, .asm_89f4d
ld d, $0
dec e
ld hl, wd014
add hl, de
set 0, [hl]
inc e
jr .asm_89f51
.asm_89f4d
ld a, $2
add c
ld c, a
.asm_89f51
ld a, e
call Function89f77
dec a
jr nz, .asm_89f34
.asm_89f58
call DelayFrame
ld hl, wd014
ld c, $4
.asm_89f60
ld a, [hli]
and a
jr z, .asm_89f09
dec c
jr nz, .asm_89f60
jp Function89e36
Function89f6a:
push af
ld de, $10
call Function89f9a
ld a, [hli]
ld b, a
ld a, [hl]
ld c, a
pop af
ret
Function89f77:
push af
ld de, $10
call Function89f9a
ld d, $2
.asm_89f80
push bc
ld e, $2
.asm_89f83
ld a, b
ld [hli], a
ld a, c
ld [hli], a
inc hl
inc hl
ld a, $8
add c
ld c, a
dec e
jr nz, .asm_89f83
pop bc
ld a, $8
add b
ld b, a
dec d
jr nz, .asm_89f80
pop af
ret
Function89f9a:
dec a
ld hl, wVirtualOAM
and a
ret z
.asm_89fa0
add hl, de
dec a
jr nz, .asm_89fa0
ret
Function89fa5:
ld de, $10
call Function89f9a
ld e, $2
ld d, $a
.asm_89faf
push bc
ld a, $2
.asm_89fb2
push af
ld a, b
ld [hli], a
ld a, c
ld [hli], a
ld a, d
inc d
ld [hli], a
ld a, $1
ld [hli], a
ld a, $8
add c
ld c, a
pop af
dec a
jr nz, .asm_89fb2
pop bc
ld a, $8
add b
ld b, a
dec e
jr nz, .asm_89faf
ret
Function89fce:
call Function8a5b6
ld a, $5
hlcoord 7, 4, wAttrMap
call Function8a5a3
ld a, $6
hlcoord 10, 4, wAttrMap
call Function8a5a3
call Function89448
call SetPalettes
call Function891ab
jp Function89e36
Function89fed:
ld hl, UnknownText_0x8a102
call PrintText
jp Function89e36
Function89ff6:
call Function891fe
call ClearBGPalettes
call Function893cc
call Function89807
call Function89492
call Function894ca
call OpenSRAMBank4
ld hl, $a603
ld a, -1
ld bc, 8
call ByteFill
ld hl, $a603
ld de, wd008
call Function89381
call CloseSRAM
call Function8987f
call OpenSRAMBank4
hlcoord 1, 13
ld bc, $a007
call Function89a0c
call CloseSRAM
call Function891ab
call Mobile22_ButtonSound
jp Function89e36
Function8a03d:
ld hl, UnknownText_0x8a107
call Function89209
call PrintText
call Function8920f
jp Function89e36
Function8a04c:
ld hl, UnknownText_0x8a10c
call PrintText
jp Function89e36
Function8a055:
ld c, $7
ld b, $4
.asm_8a059
call Function8a0a1
inc c
call Function8a0c9
push bc
call Function8a58d
pop bc
call Function8a0de
push bc
push hl
ld a, $5
call Function8a5a3
pop hl
inc hl
inc hl
inc hl
ld a, $6
call Function8a5a3
call CGBOnly_CopyTilemapAtOnce
pop bc
ld a, c
cp $b
jr nz, .asm_8a059
call Function8a0a1
hlcoord 12, 4
call Function8a58d
ld a, $5
hlcoord 12, 4, wAttrMap
call Function8a5a3
pop hl
ld a, $6
hlcoord 15, 4, wAttrMap
call Function8a5a3
call CGBOnly_CopyTilemapAtOnce
jp Function89e36
Function8a0a1:
call Mobile22_SetBGMapMode0
push bc
call Function8a0c9
ld e, $6
.asm_8a0aa
push hl
ld bc, $6
add hl, bc
ld d, [hl]
call Function8a0c1
pop hl
ld [hl], d
call Function89215
ld bc, $14
add hl, bc
dec e
jr nz, .asm_8a0aa
pop bc
ret
Function8a0c1:
push hl
ld bc, wAttrMap - wTileMap
add hl, bc
ld a, [hl]
pop hl
ret
Function8a0c9:
push bc
hlcoord 0, 0
ld de, $14
ld a, b
and a
jr z, .asm_8a0d8
.asm_8a0d4
add hl, de
dec b
jr nz, .asm_8a0d4
.asm_8a0d8
ld d, $0
ld e, c
add hl, de
pop bc
ret
Function8a0de:
call Function8a0c9
ld de, wAttrMap - wTileMap
add hl, de
ret
Function8a0e6:
call Function8b539
jp Function89e36
Function8a0ec:
ld hl, UnknownText_0x8a111
call PrintText
jp Function89e36
Function8a0f5:
call Function8b555
jp nc, Function8a0ff
ld hl, wd02d
inc [hl]
Function8a0ff:
jp Function89e36
UnknownText_0x8a102:
; The CARD FOLDER stores your and your friends' CARDS. A CARD contains information like the person's name, phone number and profile.
text_far UnknownText_0x1c5238
db "@"
UnknownText_0x8a107:
; This is your CARD. Once you've entered your phone number, you can trade CARDS with your friends.
text_far UnknownText_0x1c52bc
db "@"
UnknownText_0x8a10c:
; If you have your friend's CARD, you can use it to make a call from a mobile phone on the 2nd floor of a #MON CENTER.
text_far UnknownText_0x1c531e
db "@"
UnknownText_0x8a111:
; To safely store your collection of CARDS, you must set a PASSCODE for your CARD FOLDER.
text_far UnknownText_0x1c5394
db "@"
Function8a116:
ld a, $1
ld [wd030], a
ld hl, MenuHeader_0x8a176
call LoadMenuHeader
.asm_8a121
call Mobile22_SetBGMapMode0
call Function8a17b
jr c, .asm_8a16b
ld a, [wMenuCursorY]
ld [wd030], a
dec d
jr z, .asm_8a140
call Function8a20d
jr c, .asm_8a121
xor a
call Function8a2fe
call Function8916e
jr .asm_8a16b
.asm_8a140
call Function89174
jr nz, .asm_8a14c
call Function8a241
jr c, .asm_8a121
jr .asm_8a15a
.asm_8a14c
call WaitSFX
ld de, SFX_TWINKLE
call PlaySFX
ld c, $10
call DelayFrames
.asm_8a15a
call ExitMenu
call Function891de
call Function893e2
call Function89245
call Function89168
and a
ret
.asm_8a16b
call Function89209
call CloseWindow
call Function8920f
scf
ret
MenuHeader_0x8a176:
db MENU_BACKUP_TILES ; flags
menu_coords 14, 0, SCREEN_WIDTH - 1, 6
Function8a17b:
decoord 14, 0
ld b, $5
ld c, $4
call Function89b3b
ld hl, MenuHeader_0x8a19a
ld a, [wd030]
call Function89d5e
ld hl, Function8a1b0
call Function89d75
jr nc, .asm_8a198
ld a, $0
.asm_8a198
ld d, a
ret
MenuHeader_0x8a19a:
db MENU_BACKUP_TILES ; flags
menu_coords 14, 0, SCREEN_WIDTH - 1, 6
dw MenuData_0x8a1a2
db 1 ; default option
MenuData_0x8a1a2:
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING | STATICMENU_WRAP ; flags
db 3 ; items
db "ひらく@"
db "すてる@"
db "もどる@"
Function8a1b0:
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
hlcoord 1, 14
ld a, [wMenuCursorY]
ld de, Strings_8a1cc
dec a
ld c, a
call Function8919e
call PlaceString
ret
Strings_8a1cc:
db "めいし<NO>せいりと へんしゅうを"
next "おこないます"
db "@"
db "めいしフォルダー<NO>めいしと"
next "あんしょうばんごう<WO>けします"
db "@"
db "まえ<NO>がめん<NI>もどります"
db "@"
Function8a20d:
ld hl, UnknownText_0x8a232
call PrintText
ld a, $2
call Function89259
ret c
ld hl, UnknownText_0x8a237
call PrintText
ld a, $2
call Function89259
ret c
xor a
call Function8a2fe
ld hl, UnknownText_0x8a23c
call PrintText
xor a
and a
ret
UnknownText_0x8a232:
; If the CARD FOLDER is deleted, all its CARDS and the PASSCODE will also be deleted. Beware--a deleted CARD FOLDER can't be restored. Want to delete your CARD FOLDER?
text_far UnknownText_0x1c53ee
db "@"
UnknownText_0x8a237:
; Are you sure you want to delete it?
text_far UnknownText_0x1c5494
db "@"
UnknownText_0x8a23c:
; The CARD FOLDER has been deleted.
text_far UnknownText_0x1c54b9
db "@"
Function8a241:
call LoadStandardMenuHeader
call Function891fe
call Function8a262
jr nc, .asm_8a254
call Function891fe
call Function89b28
scf
ret
.asm_8a254
call Function891de
call ClearBGPalettes
call Call_ExitMenu
call Function891de
and a
ret
Function8a262:
call ClearBGPalettes
call Function893e2
call Mobile22_SetBGMapMode0
farcall Function4a3a7
farcall MG_Mobile_Layout_CreatePalBoxes
hlcoord 1, 0
call Function8a53d
hlcoord 12, 4
call Function8a58d
ld a, $5
hlcoord 12, 4, wAttrMap
call Function8a5a3
ld a, $6
hlcoord 15, 4, wAttrMap
call Function8a5a3
xor a
ld [wd02e], a
ld bc, wd013
call Function8b36c
call Function8b493
call Function891ab
call SetPalettes
call Function8b5e7
ret
Function8a2aa:
ld hl, MenuHeader_0x8a2ef
call LoadMenuHeader
ld hl, UnknownText_0x8a2f4
call PrintText
ld a, $1
call Function89259
jr nc, .asm_8a2cf
ld hl, UnknownText_0x8a2f9
call PrintText
ld a, $2
call Function89259
jr c, .asm_8a2ea
call Function8a20d
jr .asm_8a2ea
.asm_8a2cf
call ExitMenu
call Function8a241
jr c, .asm_8a2ed
ld a, $1
call Function8a313
call CloseSRAM
call Function891de
call Function89245
call Function89168
and a
ret
.asm_8a2ea
call CloseWindow
.asm_8a2ed
scf
ret
MenuHeader_0x8a2ef:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
UnknownText_0x8a2f4:
; There is an older CARD FOLDER from a previous journey. Do you want to open it?
text_far UnknownText_0x1c54dd
db "@"
UnknownText_0x8a2f9:
; Delete the old CARD FOLDER?
text_far UnknownText_0x1c552d
db "@"
Function8a2fe:
call Function8a313
call Function89305
ld hl, $a603
ld bc, $8
ld a, -1
call ByteFill
call CloseSRAM
ret
Function8a313:
ld c, a
call OpenSRAMBank4
ld a, c
ld [$a60b], a
ret
Function8a31c:
push bc
call Mobile22_SetBGMapMode0
farcall Function4a3a7
farcall MG_Mobile_Layout_CreatePalBoxes
hlcoord 1, 0
call Function8a53d
hlcoord 12, 4
call Function8a58d
call Function8a3b2
pop bc
ld a, c
ld [wMenuCursorBuffer], a
ld [wMenuSelection], a
call PlaceVerticalMenuItems
call InitVerticalMenuCursor
ld hl, w2DMenuFlags1
set 7, [hl]
.asm_8a34e
call Function8a3a2
call Mobile22_SetBGMapMode0
call Function8a453
call Function8a4d3
call Function8a4fc
call Function891ab
call SetPalettes
call Function8a383
jr c, .asm_8a370
jr z, .asm_8a34e
.asm_8a36a
call Function89448
xor a
ld e, a
ret
.asm_8a370
call Function89448
call PlaceHollowCursor
call Function8a3a2
ld a, [wMenuSelection]
cp $ff
jr z, .asm_8a36a
ld e, a
and a
ret
Function8a383:
farcall MobileMenuJoypad
ld a, c
ld hl, wMenuJoypadFilter
and [hl]
ret z
bit 0, a
jr nz, .asm_8a399
bit 1, a
jr nz, .asm_8a39e
xor a
ret
.asm_8a399
call PlayClickSFX
scf
ret
.asm_8a39e
call PlayClickSFX
ret
Function8a3a2:
ld a, [wMenuCursorY]
dec a
ld hl, wd002
ld e, a
ld d, $0
add hl, de
ld a, [hl]
ld [wMenuSelection], a
ret
Function8a3b2:
ld a, $1
ld [wMenuSelection], a
call Function8a4fc
call Function8a3df
jr nc, .asm_8a3ce
decoord 0, 2
ld b, $6
ld c, $9
call Function89b3b
ld hl, MenuHeader_0x8a435
jr .asm_8a3db
.asm_8a3ce
decoord 0, 2
ld b, $8
ld c, $9
call Function89b3b
ld hl, MenuHeader_0x8a40f
.asm_8a3db
call CopyMenuHeader
ret
Function8a3df:
call OpenSRAMBank4
ld hl, $a603
call Function89b45
call CloseSRAM
ld hl, wd002
jr c, .asm_8a3f8
ld de, Unknown_8a408
call Function8a400
scf
ret
.asm_8a3f8
ld de, Unknown_8a40b
call Function8a400
and a
ret
Function8a400:
ld a, [de]
inc de
ld [hli], a
cp $ff
jr nz, Function8a400
ret
Unknown_8a408: db 1, 2, -1
Unknown_8a40b: db 1, 2, 3, -1
MenuHeader_0x8a40f:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 2, 10, TEXTBOX_Y - 1
dw MenuData_0x8a417
db 1 ; default option
MenuData_0x8a417:
db STATICMENU_CURSOR | STATICMENU_WRAP ; flags
db 4 ; items
db "めいしりスト@"
db "じぶんの めいし@"
db "めいしこうかん@"
db "やめる@"
MenuHeader_0x8a435:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 2, 10, 9
dw MenuData_0x8a43d
db 1 ; default option
MenuData_0x8a43d:
db STATICMENU_CURSOR | STATICMENU_WRAP ; flags
db 3 ; items
db "めいしりスト@"
db "じぶんの めいし@"
db "やめる@"
Function8a453:
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
hlcoord 1, 14
ld de, String_8a476
ld a, [wMenuSelection]
cp $ff
jr z, .asm_8a472
ld de, Strings_8a483
dec a
ld c, a
call Function8919e
.asm_8a472
call PlaceString
ret
String_8a476:
db "まえ<NO>がめん<NI>もどります@"
Strings_8a483:
db "おともだち<NO>めいしは"
next "ここ<NI>いれておきます@"
db "でんわばんごう<WO>いれると"
next "めいしこうかん<GA>できます@"
db "ともだちと じぶん<NO>めいしを"
next "せきがいせんで こうかん します@"
Function8a4d3:
ld a, [wMenuSelection]
cp $1
jr nz, .asm_8a4eb
ld a, $5
hlcoord 12, 4, wAttrMap
call Function8a5a3
ld a, $7
hlcoord 15, 4, wAttrMap
call Function8a5a3
ret
.asm_8a4eb
ld a, $7
hlcoord 12, 4, wAttrMap
call Function8a5a3
ld a, $6
hlcoord 15, 4, wAttrMap
call Function8a5a3
ret
Function8a4fc:
ld a, [wMenuSelection]
cp $3
jr nz, asm_8a529
ld hl, wd012
ld a, [hli]
ld b, a
ld a, [hld]
add b
ld [hl], a
ld b, a
ld c, $80
call Function89cdf
call Function8a515
ret
Function8a515:
ld hl, wd012
ld a, [hl]
cp $38
jr c, .asm_8a520
cp $3c
ret c
.asm_8a520
ld a, [wd013]
cpl
inc a
ld [wd013], a
ret
asm_8a529:
ld hl, wd012
ld a, $3c
ld [hli], a
ld a, $ff
ld [hli], a
ld hl, wVirtualOAM
xor a
ld bc, 8 * SPRITEOAMSTRUCT_LENGTH
call ByteFill
ret
Function8a53d:
push hl
ld a, $15
ld c, $8
ld de, $14
call Function8a573
ld a, $1d
ld c, $9
call Function8a57c
inc a
ld [hl], a
call Function8a584
pop hl
add hl, de
ld a, $1f
ld c, $8
call Function8a573
dec hl
ld a, $51
ld [hli], a
ld a, $26
ld c, $1
call Function8a57c
ld a, $52
ld c, $3
call Function8a573
ld a, $27
ld c, $6
Function8a573:
ld [hl], a
call Function8a584
inc a
dec c
jr nz, Function8a573
ret
Function8a57c:
ld [hl], a
call Function8a584
dec c
jr nz, Function8a57c
ret
Function8a584:
push af
ld a, $4
call Function89215
inc hl
pop af
ret
Function8a58d:
ld a, $2d
ld bc, $606
ld de, $14
.asm_8a595
push bc
push hl
.asm_8a597
ld [hli], a
inc a
dec c
jr nz, .asm_8a597
pop hl
add hl, de
pop bc
dec b
jr nz, .asm_8a595
ret
Function8a5a3:
ld bc, $603
ld de, $14
.asm_8a5a9
push bc
push hl
.asm_8a5ab
ld [hli], a
dec c
jr nz, .asm_8a5ab
pop hl
add hl, de
pop bc
dec b
jr nz, .asm_8a5a9
ret
Function8a5b6:
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld hl, Palette_8a5e5
ld de, wBGPals1 + 4 palettes
ld bc, 3 palettes
call CopyBytes
ld hl, Palette_8a5fd
ld de, wOBPals1
ld bc, 1 palettes
call CopyBytes
ld hl, Palette_8a605
ld de, wOBPals1 + 1 palettes
ld bc, 1 palettes
call CopyBytes
pop af
ldh [rSVBK], a
ret
Palette_8a5e5:
RGB 31, 31, 31
RGB 27, 19, 00
RGB 07, 11, 22
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 16, 31
RGB 27, 19, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 00, 00
RGB 27, 19, 00
RGB 00, 00, 00
Palette_8a5fd:
RGB 00, 00, 00
RGB 00, 00, 00
RGB 00, 00, 00
RGB 31, 31, 31
Palette_8a605:
RGB 00, 00, 00
RGB 14, 18, 31
RGB 16, 16, 31
RGB 31, 31, 31
Function8a60d:
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld hl, Palette_8a624
ld de, wOBPals1
ld bc, 1 palettes
call CopyBytes
pop af
ldh [rSVBK], a
ret
Palette_8a624:
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
Function8a62c:
call LoadStandardMenuHeader
call Function891fe
xor a
call Function8b94a
call Function8b677
.asm_8a639
xor a
ld [wd033], a
ld [wd032], a
ld [wd0e3], a
call Function8b7bd
ld a, c
and a
jr z, .asm_8a66a
ld [wMenuSelection], a
ld b, a
ld a, [wScrollingMenuCursorPosition]
inc a
ld [wd034], a
push bc
call Function8b960
ld a, c
pop bc
jr z, .asm_8a639
ld c, a
ld hl, Jumptable_8a671
ld a, b
ld [wMenuSelection], a
ld a, c
dec a
rst JumpTable
jr .asm_8a639
.asm_8a66a
call Function891fe
call Function89b28
ret
Jumptable_8a671:
dw Function8a679
dw Function8a6cd
dw Function8a8c3
dw Function8a930
Function8a679:
call Function891de
call ClearBGPalettes
call Function893cc
call OpenSRAMBank4
call Function8931b
call Function89844
call CloseSRAM
call OpenSRAMBank4
call Function8939a
call Function89856
hlcoord 1, 13
call Function899fe
call Function891ab
call CloseSRAM
.asm_8a6a3
call Function89a57
jr c, .asm_8a6a3
and a
jr z, Function8a679
ld hl, Jumptable_8a6bc
dec a
rst JumpTable
jr c, Function8a679
call Function891fe
call Function8b677
call Function89448
ret
Jumptable_8a6bc:
dw Function8a6c0
dw Function8a6c5
Function8a6c0:
call PlayClickSFX
and a
ret
Function8a6c5:
call PlayClickSFX
call Function89d0d
scf
ret
Function8a6cd:
call Function891de
call ClearBGPalettes
call Function893cc
call OpenSRAMBank4
call Function8931b
call Function89844
call Function8a757
call CloseSRAM
.asm_8a6e5
call OpenSRAMBank4
call Function8931b
call Function89856
call Function89a2e
call Function891ab
xor a
ld [wd02f], a
call CloseSRAM
.asm_8a6fb
call Function89b97
call Function89c67
jr c, .asm_8a718
ld a, b
and a
jr z, .asm_8a6fb
call PlayClickSFX
call Function89448
ld a, [wd011]
ld hl, Jumptable_8a74f
rst JumpTable
jr nc, .asm_8a6e5
jr .asm_8a742
.asm_8a718
call OpenSRAMBank4
call Function8a765
call CloseSRAM
jr nc, .asm_8a73f
call Mobile22_SetBGMapMode0
call Function89448
call Function89a23
hlcoord 1, 13
ld de, String_89135
call PlaceString
call WaitBGMap
ld a, $2
call Function89254
jr c, .asm_8a6e5
.asm_8a73f
call CloseSRAM
.asm_8a742
call ClearBGPalettes
call Function89448
call Function891d3
call Function8b677
ret
Jumptable_8a74f:
dw Function8a78c
dw Function8a7cb
dw Function8a818
dw Function8a8a1
Function8a757:
call Function8939a
xor a
ld [wd010], a
ld [wd011], a
ld [wd012], a
ret
Function8a765:
call Function8931b
push bc
ld hl, $0
add hl, bc
ld de, wd002
ld c, $6
call Function89185
pop bc
jr nz, .asm_8a78a
push bc
ld hl, $11
add hl, bc
ld de, wd008
ld c, $8
call Function89185
pop bc
jr nz, .asm_8a78a
and a
ret
.asm_8a78a
scf
ret
Function8a78c:
call Function891fe
ld de, wd002
ld b, NAME_FRIEND
farcall NamingScreen
call OpenSRAMBank4
call Function8931b
push bc
ld hl, $0
add hl, bc
ld d, h
ld e, l
ld hl, wd002
call InitName
call CloseSRAM
call DelayFrame
call JoyTextDelay
call Function891de
call ClearBGPalettes
call Function893cc
call OpenSRAMBank4
pop bc
call Function89844
call CloseSRAM
and a
ret
Function8a7cb:
ld a, [wMenuSelection]
push af
call Function891de
ld de, wd008
ld c, $0
farcall Function17a68f
jr c, .asm_8a7f4
ld hl, wd008
ld a, $ff
ld bc, $8
call ByteFill
ld h, d
ld l, e
ld de, wd008
ld c, $8
call Function89193
.asm_8a7f4
pop af
ld [wMenuSelection], a
call Function891de
call ClearBGPalettes
call Function893cc
call OpenSRAMBank4
call Function8931b
call Function89844
call Function89856
call Function89a2e
call Function891ab
call CloseSRAM
and a
ret
Function8a818:
call Function89a23
ld hl, wd002
call Function89331
jr c, .asm_8a875
ld hl, wd008
call Function89b45
jr nc, .asm_8a87a
call OpenSRAMBank4
call Function8a765
jr nc, .asm_8a863
call Function8931b
push bc
ld hl, $0
add hl, bc
ld d, h
ld e, l
ld hl, wd002
ld c, $6
call Function89193
pop bc
ld hl, $11
add hl, bc
ld d, h
ld e, l
ld hl, wd008
ld c, $8
call Function89193
hlcoord 1, 13
ld de, .string_8a868
call PlaceString
call WaitBGMap
call JoyWaitAorB
.asm_8a863
call CloseSRAM
scf
ret
.string_8a868
db "めいし<WO>かきかえ まし<TA!>@"
.asm_8a875
ld de, String_8a88b
jr .asm_8a87d
.asm_8a87a
ld de, String_8911c
.asm_8a87d
hlcoord 1, 13
call PlaceString
call WaitBGMap
call JoyWaitAorB
and a
ret
String_8a88b:
db "おともだち<NO>なまえが"
next "かかれて いません!@"
Function8a8a1:
call OpenSRAMBank4
call Function8a765
call CloseSRAM
jr nc, .asm_8a8bf
call Function89a23
hlcoord 1, 13
ld de, String_89135
call PlaceString
ld a, $2
call Function89254
jr c, .asm_8a8c1
.asm_8a8bf
scf
ret
.asm_8a8c1
and a
ret
Function8a8c3:
call Function891de
call ClearBGPalettes
call Function893cc
call OpenSRAMBank4
call Function8931b
call Function89844
call Function8939a
call Function89856
call CloseSRAM
call Function891ab
hlcoord 1, 13
ld de, String_8a919
call PlaceString
ld a, $2
call Function89254
jr c, .asm_8a90f
call OpenSRAMBank4
call Function892b4
call CloseSRAM
call Function89a23
call Mobile22_SetBGMapMode0
hlcoord 1, 13
ld de, String_8a926
call PlaceString
call WaitBGMap
call JoyWaitAorB
.asm_8a90f
call Function89448
call Function891fe
call Function8b677
ret
String_8a919:
db "このデータ<WO>けしますか?@"
String_8a926:
db "データ<WO>けしまし<TA!>@"
Function8a930:
ld a, [wMenuSelection]
push af
xor a
ld [wd032], a
ld a, $1
ld [wd033], a
ld a, [wd034]
ld [wd0e3], a
.asm_8a943
call Function8b7bd
ld a, [wMenuJoypad]
and $1
jr nz, .asm_8a953
ld a, c
and a
jr nz, .asm_8a943
pop af
ret
.asm_8a953
call OpenSRAMBank4
pop af
cp c
jr z, .asm_8a995
push bc
ld [wMenuSelection], a
call Function8931b
push bc
ld h, b
ld l, c
ld de, wd002
ld bc, $25
call CopyBytes
pop de
pop bc
ld a, c
ld [wMenuSelection], a
call Function8931b
push bc
ld h, b
ld l, c
ld bc, $25
call CopyBytes
pop de
ld hl, wd002
ld bc, $25
call CopyBytes
ld de, SFX_SWITCH_POKEMON
call WaitPlaySFX
ld de, SFX_SWITCH_POKEMON
call WaitPlaySFX
.asm_8a995
call CloseSRAM
ret
Function8a999:
ld hl, MenuHeader_0x8a9c9
call LoadMenuHeader
ld c, $1
.asm_8a9a1
call Function8a9ce
jr c, .asm_8a9bb
push bc
push de
call LoadStandardMenuHeader
pop de
dec e
ld a, e
ld hl, Jumptable_8a9c5
rst JumpTable
call Function891fe
call Function89b28
pop bc
jr .asm_8a9a1
.asm_8a9bb
call Function89209
call CloseWindow
call Function8920f
ret
Jumptable_8a9c5:
dw Function8aa0a
dw Function8ab3b
MenuHeader_0x8a9c9:
db MENU_BACKUP_TILES ; flags
menu_coords 11, 4, 18, TEXTBOX_Y - 1
Function8a9ce:
push bc
decoord 11, 4
ld b, $6
ld c, $6
call Function89b3b
pop bc
ld a, c
ld hl, MenuHeader_0x8a9f2
call Function89d5e
ld hl, Function8aa09
call Function89d85
jr c, .asm_8a9ed
ld c, a
ld e, a
and a
ret
.asm_8a9ed
ld c, a
ld e, $0
scf
ret
MenuHeader_0x8a9f2:
db MENU_BACKUP_TILES ; flags
menu_coords 11, 4, 18, TEXTBOX_Y - 1
dw MenuData_0x8a9fa
db 1 ; default option
MenuData_0x8a9fa:
db STATICMENU_CURSOR | STATICMENU_WRAP ; flags
db 3 ; items
db "へんしゅう@"
db "みる@"
db "やめる@"
Function8aa09:
ret
Function8aa0a:
ld a, $1
ld [wd02f], a
ld [wd011], a
xor a
ld [wd010], a
ld [wd012], a
call OpenSRAMBank4
ld hl, $a603
ld de, wd008
call Function89381
call CloseSRAM
call Function891fe
call ClearBGPalettes
call Function893cc
call Function89807
call Function89492
call Function894ca
.asm_8aa3a
call Function8987f
call Function89a2e
call Function891ab
.asm_8aa43
call Function89b97
call Function89c67
jr c, .asm_8aa61
ld a, b
and a
jr z, .asm_8aa43
call PlayClickSFX
call Function89448
ld a, [wd011]
dec a
ld hl, Jumptable_8aa6d
rst JumpTable
jr nc, .asm_8aa3a
jr .asm_8aa69
.asm_8aa61
call Function89448
call Function8ab11
jr nc, .asm_8aa3a
.asm_8aa69
call Function89448
ret
Jumptable_8aa6d:
dw Function8aa73
dw Function8aab6
dw Function8ab11
Function8aa73:
ld a, [wMenuSelection]
ld e, a
push de
call Function891de
ld de, wd008
ld c, $0
farcall Function17a68f
jr c, .asm_8aa9d
ld hl, wd008
ld a, $ff
ld bc, $8
call ByteFill
ld h, d
ld l, e
ld de, wd008
ld c, $8
call Function89193
.asm_8aa9d
call Function891fe
call ClearBGPalettes
call Function893cc
call Function89807
call Function89492
call Function894ca
pop de
ld a, e
ld [wMenuSelection], a
and a
ret
Function8aab6:
call Function89a23
ld hl, wd008
call Function89b45
jr nc, Function8ab00
call OpenSRAMBank4
ld de, wd008
ld hl, $a603
ld c, $8
call Function89185
jr z, .asm_8aaeb
ld hl, wd008
ld de, $a603
ld c, $8
call Function89193
hlcoord 1, 13
ld de, String_8aaf0
call PlaceString
call WaitBGMap
call JoyWaitAorB
.asm_8aaeb
call CloseSRAM
scf
ret
String_8aaf0:
db "あたらしい めいし<PKMN>できまし<LF>@"
Function8ab00:
ld de, String_8911c
hlcoord 1, 13
call PlaceString
call WaitBGMap
call Mobile22_ButtonSound
and a
ret
Function8ab11:
call OpenSRAMBank4
ld hl, $a603
ld de, wd008
ld c, $8
call Function89185
call CloseSRAM
jr z, .asm_8ab37
call Function89a23
hlcoord 1, 13
ld de, String_89135
call PlaceString
ld a, $2
call Function89254
jr c, .asm_8ab39
.asm_8ab37
scf
ret
.asm_8ab39
and a
ret
Function8ab3b:
.pressed_start
call Function891fe
call ClearBGPalettes
call Function893cc
call Function89807
call Function89492
call Function894ca
call OpenSRAMBank4
ld hl, $a603
ld de, wd008
call Function89381
call CloseSRAM
call Function8987f
call OpenSRAMBank4
hlcoord 1, 13
ld bc, $a007
call Function89a0c
call CloseSRAM
call Function891ab
call .JoypadLoop
jr c, .pressed_start
ret
.JoypadLoop:
call JoyTextDelay_ForcehJoyDown
bit A_BUTTON_F, c
jr nz, .a_b_button
bit B_BUTTON_F, c
jr nz, .a_b_button
bit START_F, c
jr z, .JoypadLoop
call PlayClickSFX
call Function89d0d
scf
ret
.a_b_button
call PlayClickSFX
and a
ret
Function8ab93:
call ClearBGPalettes
call LoadStandardMenuHeader
farcall Function105688
call ClearSprites
call Function891fe
call Function89b28
ret
Function8aba9:
ld a, $2
call Function8b94a
ld a, $1
ld [wd032], a
.asm_8abb3
call Function891fe
call Function8b677
.asm_8abb9
call Function8b7bd
jr z, .asm_8abdf
ld a, c
ld [wMenuSelection], a
call OpenSRAMBank4
call Function8931b
ld hl, $0011
add hl, bc
call Function89b45
call CloseSRAM
jr c, .asm_8abe2
ld de, SFX_WRONG
call WaitPlaySFX
call CloseSRAM
jr .asm_8abb9
.asm_8abdf
xor a
ld c, a
ret
.asm_8abe2
call PlayClickSFX
.asm_8abe5
call Function891de
call ClearBGPalettes
call Function893cc
call OpenSRAMBank4
call Function8931b
call Function89844
call CloseSRAM
call OpenSRAMBank4
call Function8939a
call Function89856
hlcoord 1, 13
call Function899fe
call CloseSRAM
call Function891ab
.asm_8ac0f
call Function89a57
jr c, .asm_8ac0f
and a
jr z, .asm_8abe5
cp $2
jr z, .asm_8ac0f
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
hlcoord 1, 14
ld de, String_8ac3b
call PlaceString
ld a, $1
call Function8925e
jp c, .asm_8abb3
ld a, [wMenuSelection]
ld c, a
ret
String_8ac3b:
db "こ<NO>ともだち<NI>でんわを"
next "かけますか?@"
Function8ac4e:
xor a
ld [wMenuSelection], a
push de
call Function891de
call ClearBGPalettes
call Function893cc
pop bc
call Function89844
call Function8939a
call Function89856
hlcoord 1, 13
call Function899fe
call Function891ab
ret
Function8ac70:
push de
ld a, $3
call Function8b94a
Function8ac76:
call Function891fe
call Function8b677
Function8ac7c:
call Function8b7bd
jr z, .asm_8acf0
ld a, c
ld [wd02f], a
ld [wMenuSelection], a
call OpenSRAMBank4
call Function8931b
call Function8932d
call CloseSRAM
jr nc, .asm_8acb0
call OpenSRAMBank4
ld hl, $0011
add hl, bc
call Function89b45
call CloseSRAM
jr nc, .asm_8accc
call OpenSRAMBank4
call Function892b7
call CloseSRAM
jr .asm_8accc
.asm_8acb0
call Function8ad0b
jr c, Function8ac76
and a
jr nz, .asm_8accc
call OpenSRAMBank4
ld h, b
ld l, c
ld d, $0
ld e, $6
add hl, de
ld d, h
ld e, l
pop hl
ld c, $1f
call Function89193
jr .asm_8ace4
.asm_8accc
pop hl
call OpenSRAMBank4
ld d, b
ld e, c
ld c, $6
call Function89193
ld a, $6
add e
ld e, a
ld a, $0
adc d
ld d, a
ld c, $1f
call Function89193
.asm_8ace4
call CloseSRAM
call LoadStandardFont
ld a, [wd02f]
ld c, a
and a
ret
.asm_8acf0
ld hl, UnknownText_0x8ad06
call PrintText
ld a, $2
call Function89259
jp c, Function8ac7c
call LoadStandardFont
pop de
ld c, $0
scf
ret
UnknownText_0x8ad06:
; Finish registering CARDS?
text_far UnknownText_0x1c554a
db "@"
Function8ad0b:
.asm_8ad0b
ld a, [wMenuSelection]
ld [wd02f], a
call Function891de
call ClearBGPalettes
call Function893cc
call OpenSRAMBank4
call Function8931b
push bc
call Function89844
call Function8939a
call Function89856
hlcoord 1, 13
call Function899fe
call CloseSRAM
call Function891ab
pop bc
.asm_8ad37
push bc
call Function89a57
pop bc
jr c, .asm_8ad37
and a
jr z, .asm_8ad0b
cp $2
jr z, .asm_8ad37
call Mobile22_SetBGMapMode0
push bc
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
ld de, String_8ad89
hlcoord 1, 14
call PlaceString
ld a, $2
call Function8925e
jr c, .asm_8ad87
call Mobile22_SetBGMapMode0
hlcoord 0, 12
ld b, $4
ld c, $12
call TextBox
ld de, String_8ad9c
hlcoord 1, 14
call PlaceString
ld a, $1
call Function8925e
jr c, .asm_8ad84
ld a, $0
jr .asm_8ad86
.asm_8ad84
ld a, $1
.asm_8ad86
and a
.asm_8ad87
pop bc
ret
String_8ad89:
db "こ<NO>めいし<WO>けして"
next "いれかえますか?@"
String_8ad9c:
db "おともだち<NO>なまえを"
next "のこして おきますか?@"
Function8adb3:
call Function891de
call Function8a262
push af
call Function891de
pop af
ret
Function8adbf:
call OpenSRAMBank4
ld hl, $a603
call Function89b45
call CloseSRAM
ret
Function8adcc:
call OpenSRAMBank4
call Function8b3b0
call CloseSRAM
ret nc
cp $2
ret z
scf
ret