pokecrystal-board/mobile/mobile_40.asm
Rangi 32ed487a47 Merge branch 'master' of https://github.com/pret/pokecrystal
# Conflicts:
#	audio/engine.asm
#	constants/gfx_constants.asm
#	constants/map_data_constants.asm
#	constants/pokemon_data_constants.asm
#	constants/sprite_constants.asm
#	constants/wram_constants.asm
#	data/maps/data.asm
#	engine/battle/ai/scoring.asm
#	engine/battle/core.asm
#	engine/battle/effect_commands.asm
#	engine/battle/misc.asm
#	engine/battle_anims/getpokeballwobble.asm
#	engine/breeding.asm
#	engine/buy_sell_toss.asm
#	engine/decorations.asm
#	engine/events/battle_tower/battle_tower.asm
#	engine/events/battle_tower/rules.asm
#	engine/events/buena.asm
#	engine/events/bug_contest/contest_2.asm
#	engine/events/daycare.asm
#	engine/events/dratini.asm
#	engine/events/halloffame.asm
#	engine/events/happiness_egg.asm
#	engine/events/kurt.asm
#	engine/events/lucky_number.asm
#	engine/events/magnet_train.asm
#	engine/events/overworld.asm
#	engine/events/pokerus/pokerus.asm
#	engine/events/print_unown.asm
#	engine/events/print_unown_2.asm
#	engine/events/unown_walls.asm
#	engine/item_effects.asm
#	engine/link.asm
#	engine/mon_menu.asm
#	engine/player_object.asm
#	engine/routines/playslowcry.asm
#	engine/scripting.asm
#	engine/search.asm
#	engine/search2.asm
#	engine/specials.asm
#	engine/start_menu.asm
#	engine/timeset.asm
#	home/battle_vars.asm
#	home/map.asm
#	maps/GoldenrodUndergroundSwitchRoomEntrances.asm
#	maps/IlexForest.asm
#	maps/KrissHouse2F.asm
#	maps/Route39Barn.asm
#	mobile/mobile_12_2.asm
#	mobile/mobile_40.asm
#	mobile/mobile_5f.asm
#	wram.asm
2018-02-03 19:42:56 -05:00

8155 lines
119 KiB
NASM

SECTION "mobile_40", ROMX
Function100000: ; 100000
; d: 1 or 2
; e: bank
; bc: addr
ld a, [rSVBK]
push af
ld a, 1
ld [rSVBK], a
call Function100022
call Function1000ba
call Function100675
call Function100057
call Function10016f
call Function100276
push bc
call Function100301
pop bc
pop af
ld [rSVBK], a
ret
; 100022
Function100022: ; 100022
push de
push bc
call SetRAMStateForMobile
pop bc
pop de
ld a, d
ld [wcd21], a
ld a, e
ld [wcd22], a
ld a, c
ld [wcd23], a
ld a, b
ld [wcd24], a
farcall Function10127e
farcall Stubbed_Function106462
farcall Function106464 ; load broken gfx
farcall Function11615a ; init RAM
ld hl, wVramState
set 1, [hl]
ret
; 100057
Function100057: ; 100057
call DisableMobile
call ReturnToMapFromSubmenu
ld hl, wVramState
res 1, [hl]
ret
; 100063
SetRAMStateForMobile: ; 100063
xor a
ld hl, wBGMapBuffer
ld bc, $65
call ByteFill
xor a
ld hl, wc300
ld bc, $100
call ByteFill
ld a, [rIE]
ld [wBGMapBuffer], a
xor a
ld [hMapAnims], a
ld [hLCDCPointer], a
ret
; 100082
EnableMobile: ; 100082
xor a
ld hl, wOverworldMap
ld bc, wOverworldMapEnd - wOverworldMap
call ByteFill
di
call DoubleSpeed
xor a
ld [rIF], a
ld a, 1 << VBLANK + 1 << LCD_STAT + 1 << TIMER + 1 << SERIAL
ld [rIE], a
xor a
ld [hMapAnims], a
ld [hLCDCPointer], a
ld a, $01
ld [hMobileReceive], a
ld [hMobile], a
ei
ret
; 0x1000a4
DisableMobile: ; 1000a4
di
xor a
ld [hMobileReceive], a
ld [hMobile], a
xor a
ld [hVBlank], a
call NormalSpeed
xor a
ld [rIF], a
ld a, [wBGMapBuffer]
ld [rIE], a
ei
ret
; 1000ba
Function1000ba: ; 1000ba
.loop
; call [wcd22]:([wcd23][wcd24] + [wMobileCommsJumptableIndex])
ld hl, wcd23
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wMobileCommsJumptableIndex]
ld e, a
ld d, 0
add hl, de
add hl, de
ld a, [wcd22]
call GetFarHalfword
ld a, [wcd22]
rst FarCall
call Function1000e8
call Function1000fa
call Function100144
call Function100163
ld a, [wcd2b]
and a
jr z, .loop
call DelayFrame
ret
; 1000e8
Function1000e8: ; 1000e8
ld hl, wcd29
bit 7, [hl]
ret z
farcall Function115dd3
ld hl, wcd29
set 6, [hl]
ret
; 1000fa
Function1000fa: ; 1000fa
ld a, [wc30d]
and a
ret z
ld hl, wcd29
bit 4, [hl]
ret z
ld a, [wcd2b]
and a
jr nz, .asm_100117
farcall Function11619d
ld hl, wcd29
set 6, [hl]
ret
.asm_100117
di
xor a
ld [rIF], a
ld a, [rIE]
and $13
ld [rIE], a
xor a
ld [hMobileReceive], a
ld [hMobile], a
ei
ld a, [wLinkMode]
push af
xor a
ld [wLinkMode], a
ld a, $04
ld [wc314 + 5], a
farcall Function11619d
ld hl, wcd29
set 6, [hl]
pop af
ld [wLinkMode], a
ret
; 100144
Function100144: ; 100144
ld hl, wcd29
bit 5, [hl]
jr z, .asm_100155
res 5, [hl]
res 2, [hl]
res 6, [hl]
call Function100320
ret
.asm_100155
bit 2, [hl]
ret z
res 2, [hl]
res 6, [hl]
farcall HDMATransferTileMapToWRAMBank3
ret
; 100163
Function100163: ; 100163
ld hl, wcd29
bit 6, [hl]
ret z
res 6, [hl]
call DelayFrame
ret
; 10016f
Function10016f: ; 10016f
ld a, [wcd2b]
cp $01
ret z
cp $02
ret z
cp $ff
jp z, .asm_1001f5
cp $fe
jr z, .asm_1001c4
cp $f5
jr z, .asm_1001e7
cp $f6
jr z, .asm_1001b6
cp $fa
jp z, .asm_1001bd
cp $f7
jp z, .asm_1001ee
cp $f4
jr z, .asm_1001d2
cp $f3
jr z, .asm_1001cb
cp $f1
jr z, .asm_1001c4
cp $f2
jr z, .asm_1001c4
cp $fc
jr z, .asm_1001e6
cp $fb
jr z, .asm_1001af
cp $f8
ret z
ret ; ????????????????????????????
.asm_1001af
ld a, $d7
ld de, 0
jr .asm_1001d7
.asm_1001b6
ld a, $d5
ld de, 0
jr .asm_1001d7
.asm_1001bd
ld a, $d6
ld de, 0
jr .asm_1001d7
.asm_1001c4
ld a, $d2
ld de, 2
jr .asm_1001d7
.asm_1001cb
ld a, $d1
ld de, 1
jr .asm_1001d7
.asm_1001d2
ld a, $d0
ld de, 0
.asm_1001d7
ld [wc300], a
ld a, d
ld [wc302], a
ld a, e
ld [wc301], a
call Function10020b
ret
.asm_1001e6
ret
.asm_1001e7
ld de, String10025e
call Function100232
ret
.asm_1001ee
ld de, String10024d
call Function100232
ret
.asm_1001f5
ld a, [wcd2c]
ld [wc300], a
ld a, [wcd2d]
ld [wc302], a
ld a, [wcd2d]
ld [wc301], a
call Function10020b
ret
; 10020b
Function10020b: ; 10020b
xor a
ld [wc303], a
farcall FadeOutPalettes
farcall Function106464
call HideSprites
call DelayFrame
ld a, [rSVBK]
push af
ld a, $01
ld [rSVBK], a
farcall DisplayMobileError
pop af
ld [rSVBK], a
ret
; 100232
Function100232: ; 100232
push de
farcall Function106464
call Function3f20
call UpdateSprites
hlcoord 1, 2
pop de
call PlaceString
call Function100320
call JoyWaitAorB
ret
; 10024d
String10024d: ; 10024d
db "つうしんを キャンセル しました@"
; 10025e
String10025e: ; 10025e
db "おともだちと えらんだ へやが"
next "ちがうようです@"
; 100276
Function100276: ; 100276
ld a, [wcd2b]
cp $01
jr z, .asm_10029f
cp $02
jr z, .asm_100296
cp $f5
jr z, .asm_1002a5
cp $f6
jr z, .asm_1002a5
cp $f7
jr z, .asm_100293
cp $f8
jr z, .asm_1002b1
jr .asm_1002c0
.asm_100293
ld c, $02
ret
.asm_100296
farcall Script_reloadmappart
ld c, $04
ret
.asm_10029f
call Function1002dc
ld c, 0
ret
.asm_1002a5
farcall Script_reloadmappart
call Function1002ed
ld c, $03
ret
.asm_1002b1
call Function1002c9
call Function1002dc
ld de, String10024d
call Function100232
ld c, $02
ret
.asm_1002c0
call Function1002c9
call Function1002dc
ld c, $01
ret
; 1002c9
Function1002c9: ; 1002c9
ld hl, wcd2a
bit 0, [hl]
ret z
farcall CleanUpBattleRAM
farcall LoadPokemonData
ret
; 1002dc
Function1002dc: ; 1002dc
ld a, MAPSETUP_LINKRETURN
ld [hMapEntryMethod], a
farcall RunMapSetupScript
xor a
ld [hMapEntryMethod], a
call LoadStandardFont
ret
; 1002ed
Function1002ed: ; 1002ed
farcall LoadOW_BGPal7
farcall ApplyPals
ld a, $01
ld [hCGBPalUpdate], a
call DelayFrame
ret
; 100301
Function100301: ; 100301
ld hl, wcd2a
bit 1, [hl]
ret z
farcall Function106464
farcall Function10202c
farcall Function115dd3
call Function100320
call JoyWaitAorB
ret
; 100320
Function100320: ; 100320
farcall Mobile_ReloadMapPart
ret
; 100327
Function100327: ; 100327
farcall HDMATransferTileMapToWRAMBank3
ret
; 100327
Function10032e: ; 10032e
call Function10034d
ld e, a
ret nc
ld [wcd2b], a
ret
; 100337
Function100337: ; 100337
call Function10032e
ret c
ld a, [wc821]
bit 4, a
jr z, .asm_100345
ld a, e
and a
ret
.asm_100345
ld a, $f9
ld e, a
ld [wcd2b], a
scf
ret
; 10034d
Function10034d: ; 10034d
ld a, [wc821]
bit 1, a
jr nz, .asm_10036a
bit 2, a
jr nz, .asm_10037e
bit 3, a
jr nz, .asm_100366
bit 0, a
jr nz, .asm_100364
ld a, $01
and a
ret
.asm_100364
xor a
ret
.asm_100366
ld a, $02
and a
ret
.asm_10036a
ld a, 0
call Function3e32
ld [wcd2c], a
ld a, h
ld [wcd2d], a
ld a, l
ld [wcd2e], a
ld a, $ff
scf
ret
.asm_10037e
ld a, $fe
scf
ret
; 100382
Function100382: ; 100382
ld a, [wcd27]
ld hl, Jumptable_10044e
rst JumpTable
ret
; 10038a
Function10038a: ; 10038a
ld hl, wccb4
ld a, $2e
call Function3e32
ret
; 100393
Function100393: ; 100393
ld hl, wcc60
ld a, $3a
call Function3e32
ret
; 10039c
Function10039c: ; 10039c
ld hl, wcc60
ld de, w3_d000
ld bc, $54
ld a, $03
call FarCopyWRAM
ret
; 1003ab
Function1003ab: ; 1003ab
ld hl, w3_d000
ld de, wcc60
ld bc, $54
ld a, $03
call FarCopyWRAM
ret
; 1003ba
Function1003ba: ; 1003ba
ld hl, wccb4
ld de, w3_d080
ld bc, $54
ld a, $03
call FarCopyWRAM
ret
; 1003c9
Function1003c9: ; 1003c9
ld hl, w3_d080
ld de, wccb4
ld bc, $54
ld a, $03
call FarCopyWRAM
ret
; 1003d8
Function1003d8: ; 1003d8
ld hl, wccb4
ld a, [hli]
ld c, a
ld b, 0
push hl
add hl, bc
ld a, [wBGMapPalBuffer]
ld [hl], a
pop hl
inc bc
call Function10043a
add hl, bc
ld [hl], e
inc hl
ld [hl], d
ld a, c
add $02
ld [wccb4], a
ret
; 1003f5
Function1003f5: ; 1003f5
ld a, [wcc60]
sub $03
ld [wcc60], a
ld a, [wccb4]
sub $03
ld [wccb4], a
ret
; 100406
Function100406: ; 100406
ld a, [wcc60]
sub $02
ld c, a
ld b, 0
ld hl, wcc61
call Function10043a
add hl, bc
ld a, [hli]
cp e
jr nz, .asm_100426
ld a, [hld]
cp d
jr nz, .asm_100426
dec hl
ld a, [wBGMapPalBuffer]
cp [hl]
jr nz, .asm_10042d
xor a
ret
.asm_100426
ld a, $f4
ld [wcd2b], a
jr .asm_100432
.asm_10042d
ld a, $f3
ld [wcd2b], a
.asm_100432
push hl
ld hl, wcd7c
inc [hl]
pop hl
scf
ret
; 10043a
Function10043a: ; 10043a
push hl
push bc
ld de, 0
.asm_10043f
ld a, [hli]
add e
ld e, a
ld a, d
adc 0
ld d, a
dec bc
ld a, b
or c
jr nz, .asm_10043f
pop bc
pop hl
ret
; 10044e
Jumptable_10044e: ; 10044e (40:444e)
dw Function10046a
dw Function10047c
dw Function100493
dw Function1004ba
dw Function1004f4
dw Function1004ce
dw Function1004de
dw Function1004a4
dw Function100495
dw Function1004ce
dw Function1004de
dw Function1004e9
dw Function1004f4
dw Function1004a4
Function10046a: ; 10046a
ld hl, wBGMapPalBuffer
inc [hl]
call Function1003d8
call Function1003ba
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 10047c
Function10047c: ; 10047c
call Function100337
ret c
ret z
cp $02
jr z, .asm_100487
jr .asm_10048d
.asm_100487
ld a, $08
ld [wcd27], a
ret
.asm_10048d
ld a, $02
ld [wcd27], a
ret
; 100493
Function100493: ; 100493
jr asm_100497
Function100495: ; 100495
jr asm_100497
asm_100497
call Function100337
ret c
ret z
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 1004a4
Function1004a4: ; 1004a4
call Function100406
jr c, .asm_1004b8
call Function1003c9
call Function1003f5
ld a, [wcd27]
set 7, a
ld [wcd27], a
ret
.asm_1004b8
scf
ret
; 1004ba
Function1004ba: ; 1004ba
call Function10038a
and a
jr nz, .asm_1004c8
ld a, [wcd27]
inc a
ld [wcd27], a
ret
.asm_1004c8
ld a, $08
ld [wcd27], a
ret
; 1004ce
Function1004ce: ; 1004ce
call Function100337
ret c
ret z
cp $02
ret nz
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 1004de
Function1004de: ; 1004de
call Function100393
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 1004e9
Function1004e9: ; 1004e9
call Function10038a
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 1004f4
Function1004f4: ; 1004f4
call Function100337
ret c
ret z
ld a, [wcd27]
inc a
ld [wcd27], a
call Function10039c
ret
; 100504
Function100504: ; 100504
push de
call Function3f20
call UpdateSprites
pop de
hlcoord 4, 2
call PlaceString
ret
; 100513
Function100513: ; 100513
call Function3f7c
call PlaceVerticalMenuItems
call InitVerticalMenuCursor
ld hl, w2DMenuFlags1
set 7, [hl]
ret
; 100522
Function100522: ; 100522
ld a, [wcd28]
ld hl, Jumptable_10052a
rst JumpTable
ret
; 10052a
Jumptable_10052a: ; 10052a
dw Function100534
dw Function100545
dw Function100545
dw Function100545
dw Function10054d
; 100534
Function100534: ; 100534
call Function100513
call UpdateSprites
call ApplyTilemap
ld a, [wcd28]
inc a
ld [wcd28], a
ret
; 100545
Function100545: ; 100545
ld a, [wcd28]
inc a
ld [wcd28], a
ret
; 10054d
Function10054d: ; 10054d
farcall MobileMenuJoypad
ld a, c
ld hl, wMenuJoypadFilter
and [hl]
ret z
call MenuClickSound
bit 0, a
jr nz, .asm_100565
bit 1, a
jr nz, .asm_10056f
ret
.asm_100565
ld a, [wcd28]
set 7, a
ld [wcd28], a
and a
ret
.asm_10056f
ld a, [wcd28]
set 7, a
ld [wcd28], a
scf
ret
; 100579
Function100579: ; 100579
ld a, [wcd26]
ld hl, Jumptable_100581
rst JumpTable
ret
; 100581
Jumptable_100581: ; 100581
dw Function100585
dw Function100597
; 100585
Function100585: ; 100585
ld hl, MenuHeader_1005b2
call LoadMenuHeader
ld a, 0
ld [wcd28], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function100597: ; 100597
call Function100522
ld a, [wcd28]
bit 7, a
ret z
jr nc, .asm_1005a6
xor a
ld [wMenuCursorY], a
.asm_1005a6
call ExitMenu
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 1005b2
MenuHeader_1005b2: ; 1005b2
db MENU_BACKUP_TILES ; flags
db 6, 14
db 10, 19
dw MenuData_1005ba
db 1 ; default option
MenuData_1005ba:
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
db 2
db "はい@"
db "いいえ@"
; 1005c3
Function1005c3: ; 1005c3
ld a, [wcd26]
ld hl, Jumptable_1005cb
rst JumpTable
ret
; 1005cb
Jumptable_1005cb: ; 1005cb
dw Function1005cf
dw Function1005e1
; 1005cf
Function1005cf: ; 1005cf
ld hl, MenuHeader_1005fc
call LoadMenuHeader
ld a, 0
ld [wcd28], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function1005e1: ; 1005e1
call Function100522
ld a, [wcd28]
bit 7, a
ret z
jr nc, .asm_1005f0
xor a
ld [wMenuCursorY], a
.asm_1005f0
call ExitMenu
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 1005fc
MenuHeader_1005fc: ; 1005fc
db MENU_BACKUP_TILES ; flags
db 6, 14
db 10, 19
dw MenuData_100604
db 1 ; default option
MenuData_100604: ; 100604
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
db 2
db "かける@"
db "まつ@"
; 10060d
Mobile_CommunicationStandby: ; 10060d
hlcoord 3, 10
ld b, 1
ld c, 11
call Function3eea
ld de, .String
hlcoord 4, 11
call PlaceString
ret
; 100621
.String: ; 100621
db "つうしんたいきちゅう!@"
; 10062d
AdvanceMobileInactivityTimerAndCheckExpired: ; 10062d
push bc
call IncrementMobileInactivityTimerByCFrames
pop bc
ld a, [wMobileInactivityTimerMinutes]
cp b
jr nc, .timed_out
and a
ret
.timed_out
ld a, $fa
ld [wcd2b], a
scf
ret
; 100641
StartMobileInactivityTimer: ; 100641
xor a
ld [wMobileInactivityTimerMinutes], a
ld [wMobileInactivityTimerSeconds], a
ld [wMobileInactivityTimerFrames], a
ret
; 10064c
IncrementMobileInactivityTimerBy1Frame: ; 10064c
ld c, 1
IncrementMobileInactivityTimerByCFrames: ; 10064e
ld hl, wMobileInactivityTimerFrames ; timer?
ld a, [hl]
add c
cp 60
jr c, .seconds
xor a
.seconds
ld [hld], a
ret c
ld a, [hl]
inc a
cp 60
jr c, .minutes
xor a
.minutes
ld [hld], a
ret c
inc [hl]
ret
; 100665
Function100665: ; 100665
call UpdateTime
ld hl, wcd36
ld a, [hHours]
ld [hli], a
ld a, [hMinutes]
ld [hli], a
ld a, [hSeconds]
ld [hl], a
ret
; 100675
Function100675: ; 100675
ld hl, wcd2a
bit 2, [hl]
set 2, [hl]
ret nz
call Function1006d3
ret
; 100681
Function100681: ; 100681
push hl
ld hl, wcd2a
bit 2, [hl]
ld hl, wcd2a
set 2, [hl]
pop hl
jr nz, .asm_100694
push hl
call Function1006d3
pop hl
.asm_100694
ld de, wcd32
Function100697: ; 100697
ld a, [de]
and a
jr nz, .asm_1006bb
inc de
push de
call .asm_1006b4
ld de, String1006c2
call PlaceString
ld h, b
ld l, c
pop de
inc de
call .asm_1006b4
ld de, String1006c6
call PlaceString
ret
.asm_1006b4
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
call PrintNum
ret
.asm_1006bb
ld de, String1006ca
call PlaceString
ret
; 1006c2
String1006c2: ; 1006c2
db "ふん @"
String1006c6: ; 1006c6
db "びょう@"
String1006ca: ; 1006ca
db "1じかんいじょう@"
; 1006d3
Function1006d3: ; 1006d3
call UpdateTime
ld de, wcd34
ld hl, wcd38
Function1006dc: ; 1006dc
ld a, [hld]
ld c, a
ld a, [hSeconds]
sub c
jr nc, .asm_1006e5
add $3c
.asm_1006e5
ld [de], a
dec de
ld a, [hld]
ld c, a
ld a, [hMinutes]
sbc c
jr nc, .asm_1006f0
add $3c
.asm_1006f0
ld [de], a
dec de
ld a, [hl]
ld c, a
ld a, [hHours]
sbc c
jr nc, .asm_1006fb
add $18
.asm_1006fb
ld [de], a
ret
; 1006fd
Function1006fd: ; 1006fd
ld a, $04
ld hl, $a800
call GetSRAMBank
xor a
ld [hli], a
ld [hli], a
ld [hli], a
call CloseSRAM
ret
; 10070d
Function10070d: ; 10070d
ld a, $04
ld hl, $a800
call GetSRAMBank
xor a
ld [hli], a
ld a, $0a
ld [hli], a
xor a
ld [hli], a
call CloseSRAM
ret
; 100720
Function100720: ; 100720
xor a
ld [wcd6a], a
call UpdateTime
ld a, [hHours]
ld [wcd72], a
ld a, [hMinutes]
ld [wcd73], a
ld a, [hSeconds]
ld [wcd74], a
ld a, $04
ld hl, $a800
call GetSRAMBank
ld a, [hli]
ld [wcd6c], a
ld a, [hli]
ld [wcd6d], a
ld a, [hli]
ld [wcd6e], a
call CloseSRAM
ld a, [wcd6d]
ld [wcd6b], a
ret
; 100754
Function100754: ; 100754
call UpdateTime
ld a, [hHours]
ld [wcd72], a
ld a, [hMinutes]
ld [wcd73], a
ld a, [hSeconds]
ld [wcd74], a
ld a, [wcd6d]
ld [wcd6b], a
ld hl, wcd2a
res 6, [hl]
ret
; 100772
Function100772: ; 100772
push de
ld hl, wcd6c
ld a, [de]
cp [hl]
jr c, .asm_10079a
jr nz, .asm_10078c
inc hl
inc de
ld a, [de]
cp [hl]
jr c, .asm_10079a
jr nz, .asm_10078c
inc hl
inc de
ld a, [de]
cp [hl]
jr c, .asm_10079a
jr z, .asm_10079a
.asm_10078c
pop hl
ld a, [hli]
ld [wcd6c], a
ld a, [hli]
ld [wcd6d], a
ld a, [hli]
ld [wcd6e], a
ret
.asm_10079a
pop de
ret
; 10079c
Function10079c: ; 10079c
ld a, [wcd21]
cp $01
jr nz, .dont_quit
ld hl, wcd2a
bit 5, [hl]
jr nz, .dont_quit
ld hl, wcd2a
bit 6, [hl]
jr nz, .dont_quit
ld a, [wcd6a]
add c
cp 60
jr nc, .overflow
ld [wcd6a], a
and a
ret
.overflow
sub 60
ld [wcd6a], a
ld d, b
push de
call Function1007f6
pop de
jr c, .quit
ld a, c
and a
jr nz, .quit
ld a, b
cp 10
jr nc, .quit
ld a, d
and a
ret z
ld a, [wcd6b]
cp b
ret z
ld a, b
ld [wcd6b], a
call Function1008e0
and a
ret
.quit
call Function1008e0
ld hl, wcd2a
set 4, [hl]
ld a, $fc
ld [wcd2b], a
scf
ret
.dont_quit
and a
ret
; 1007f6
Function1007f6: ; 1007f6
call UpdateTime
ld hl, wcd74
ld de, wcd71
call Function1006dc
ld a, $04
call GetSRAMBank
ld hl, $a802
call Function100826
call CloseSRAM
ld hl, wcd6e
call Function100826
ld a, [hHours]
ld [wcd72], a
ld a, [hMinutes]
ld [wcd73], a
ld a, [hSeconds]
ld [wcd74], a
ret
; 100826
Function100826: ; 100826
ld a, [wcd71]
add [hl]
sub $3c
jr nc, .asm_100830
add $3c
.asm_100830
ld [hld], a
ccf
ld a, [wBGMapBufferPtrs]
adc [hl]
sub $3c
jr nc, .asm_10083c
add $3c
.asm_10083c
ld [hld], a
ld b, a
ccf
ld a, [wcd6f]
adc [hl]
ld [hl], a
ld c, a
ret
; 100846
Function100846: ; 100846
ld hl, wcd2a
bit 5, [hl]
jr nz, .asm_10087c
ld a, [wcd6e]
ld c, a
ld a, 0
sub c
jr nc, .asm_100858
add $3c
.asm_100858
ld [wStringBuffer2 + 2], a
ld a, [wcd6d]
ld c, a
ld a, $0a
sbc c
ld [wStringBuffer2 + 1], a
xor a
ld [wStringBuffer2], a
ld de, String_10088e
hlcoord 1, 14
call PlaceString
ld de, wStringBuffer2
hlcoord 4, 16
call Function100697
ret
.asm_10087c
ld de, String_10088e
hlcoord 1, 14
call PlaceString
ld h, b
ld l, c
ld de, String_10089f
call PlaceString
ret
; 10088e
String_10088e: ; 10088e
db "モバイルたいせん できる"
next "じかん@"
; 10089f
String_10089f: ; 10089f
db " むせいげん@"
; 1008a6
Function1008a6: ; 1008a6
ld a, $04
ld hl, $a800
call GetSRAMBank
ld a, [hli]
ld [wStringBuffer2], a
ld a, [hli]
ld [wStringBuffer2 + 1], a
ld a, [hli]
ld [wStringBuffer2 + 2], a
call CloseSRAM
ld a, [wStringBuffer2 + 2]
ld b, a
ld a, 0
sub b
jr nc, .asm_1008c8
add $3c
.asm_1008c8
ld b, a
ld a, [wStringBuffer2 + 1]
ld c, a
ld a, $0a
sbc c
ld c, a
jr c, .asm_1008da
ld a, [wStringBuffer2]
and a
jr nz, .asm_1008da
ret
.asm_1008da
call Function10070d
ld c, 0
ret
; 1008e0
Function1008e0: ; 1008e0
ld a, [hBGMapMode]
ld b, a
ld a, [hVBlank]
ld c, a
push bc
xor a
ld [hBGMapMode], a
ld a, $03
ld [hVBlank], a
call Function100970
call Function100902
call Function100989
call DelayFrame
pop bc
ld a, c
ld [hVBlank], a
ld a, b
ld [hBGMapMode], a
ret
; 100902
Function100902: ; 100902
hlcoord 3, 10
ld b, $01
ld c, $0b
call TextBox
ld a, [wcd6d]
ld c, a
ld a, $0a
sub c
ld [wStringBuffer2], a
jr z, .asm_10093f
ld de, .string_100966
hlcoord 4, 11
call PlaceString
hlcoord 8, 11
lb bc, 1, 2
ld de, wStringBuffer2
call PrintNum
ld de, SFX_TWO_PC_BEEPS
call PlaySFX
farcall ReloadMapPart
ld c, $3c
call DelayFrames
ret
.asm_10093f
ld de, .string_10095a
hlcoord 4, 11
call PlaceString
ld de, SFX_4_NOTE_DITTY
call PlaySFX
farcall ReloadMapPart
ld c, 120
call DelayFrames
ret
; 10095a
.string_10095a ; 10095a
db "たいせん しゅうりょう@"
.string_100966 ; 100966
db "のこり   ふん!@"
; 100970
Function100970: ; 100970
hlcoord 0, 0
ld de, w3_dc00
call Function1009a5
hlcoord 0, 0, wAttrMap
ld de, w3_dd68
call Function1009a5
call Function1009d2
call Function1009ae
ret
; 100989
Function100989: ; 100989
ld hl, w3_dc00
decoord 0, 0
call Function1009a5
call Function1009ae
farcall ReloadMapPart
ld hl, w3_dd68
decoord 0, 0, wAttrMap
call Function1009a5
ret
; 1009a5
Function1009a5: ; 1009a5
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $03
call FarCopyWRAM
ret
; 1009ae
Function1009ae: ; 1009ae
ld a, [rSVBK]
push af
ld a, $03
ld [rSVBK], a
ld hl, w3_d800
decoord 0, 0, wAttrMap
ld c, SCREEN_WIDTH
ld b, SCREEN_HEIGHT
.loop_row
push bc
.loop_col
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .loop_col
ld bc, BG_MAP_WIDTH - SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .loop_row
pop af
ld [rSVBK], a
ret
; 1009d2
Function1009d2: ; 1009d2
ld a, [rSVBK]
push af
ld a, $03
ld [rSVBK], a
ld a, [rVBK]
push af
ld a, $01
ld [rVBK], a
ld hl, w3_d800
debgcoord 0, 0
lb bc, $03, $24
call Get2bpp
pop af
ld [rVBK], a
pop af
ld [rSVBK], a
ret
; 1009f3
Function1009f3: ; 1009f3
ld a, [hJoyDown]
and SELECT + A_BUTTON
cp SELECT + A_BUTTON
jr nz, .select_a
ld hl, wcd2a
set 4, [hl]
ld a, $f8
ld [wcd2b], a
scf
ret
.select_a
xor a
ret
; 100a09
_LinkBattleSendReceiveAction: ; 100a09
call .StageForSend
ld [wd431], a
farcall PlaceWaitingText
ld a, [wLinkMode]
cp LINK_MOBILE
jr nz, .not_mobile
call .MobileBattle_SendReceiveAction
call Function100da5
farcall FinishBattleAnim
jr .done
.not_mobile
call .LinkBattle_SendReceiveAction
.done
ret
; 100a2e
.StageForSend: ; 100a2e
ld a, [wBattlePlayerAction]
and a
jr nz, .switch
ld a, [wCurPlayerMove]
ld b, BATTLEACTION_E
cp STRUGGLE
jr z, .struggle
ld b, BATTLEACTION_D
cp $ff
jr z, .struggle
ld a, [wCurMoveNum]
jr .use_move
.switch
ld a, [wCurPartyMon]
add BATTLEACTION_SWITCH1
jr .use_move
.struggle
ld a, b
.use_move
and $0f
ret
; 100a53
.LinkBattle_SendReceiveAction: ; 100a53
ld a, [wd431]
ld [wPlayerLinkAction], a
ld a, $ff
ld [wOtherPlayerLinkAction], a
.waiting
call LinkTransfer
call DelayFrame
ld a, [wOtherPlayerLinkAction]
inc a
jr z, .waiting
ld b, 10
.receive
call DelayFrame
call LinkTransfer
dec b
jr nz, .receive
ld b, 10
.acknowledge
call DelayFrame
call LinkDataReceived
dec b
jr nz, .acknowledge
ld a, [wOtherPlayerLinkAction]
ld [wBattleAction], a
ret
; 100a87
.MobileBattle_SendReceiveAction: ; 100a87
call Function100acf
call StartMobileInactivityTimer
ld a, 0
ld [wcd27], a
.asm_100a92
call DelayFrame
call GetJoypad
farcall Function100382
ld c, $01
ld b, $03
push bc
call AdvanceMobileInactivityTimerAndCheckExpired
pop bc
jr c, .asm_100ac7
ld b, $01
call Function10079c
jr c, .asm_100ac7
call Function1009f3
jr c, .asm_100ac7
ld a, [wcd2b]
and a
jr nz, .asm_100ac7
ld a, [wcd27]
bit 7, a
jr z, .asm_100a92
call Function100ae7
jr .asm_100ace
.asm_100ac7
ld a, $0f
ld [wd430], a
jr .asm_100ace
.asm_100ace
ret
; 100acf
Function100acf: ; 100acf
ld de, Unknown_100b0a
ld hl, wccb5
ld a, [wd431]
ld [hli], a
ld c, $01
.asm_100adb
ld a, [de]
inc de
ld [hli], a
inc c
and a
jr nz, .asm_100adb
ld a, c
ld [wccb4], a
ret
; 100ae7
Function100ae7: ; 100ae7
ld de, Unknown_100b0a
ld hl, wcc62
.asm_100aed
ld a, [de]
inc de
and a
jr z, .asm_100af8
cp [hl]
jr nz, .asm_100aff
inc hl
jr .asm_100aed
.asm_100af8
ld a, [wcc61]
ld [wd430], a
ret
.asm_100aff
ld a, $0f
ld [wd430], a
ld a, $f1
ld [wcd2b], a
ret
; 100b0a
SECTION "tetsuji", ROMX
charmap " ", $20 ; revert to ascii
Unknown_100b0a: ; 100b0a
db "tetsuji", 0
; 100b12
SECTION "bank40_2", ROMX
Function100b12: ; 100b12
call Function100dd8
ret c
ld hl, BattleMenuHeader
ld a, BANK(BattleMenuHeader)
ld de, LoadMenuHeader
call FarCall_de
ld a, BANK(BattleMenuHeader)
ld [wMenuData_2DMenuItemStringsBank], a
ld a, [wBattleMenuCursorBuffer]
ld [wMenuCursorBuffer], a
call Function100e72
call Function100b45
farcall InitPartyMenuBGPal7
call Function100ed4
ld a, [wMenuCursorBuffer]
ld [wBattleMenuCursorBuffer], a
call ExitMenu
ret
; 100b45
Function100b45: ; 100b45
call Function100b7a
.loop
call Mobile_SetOverworldDelay
farcall MobileMenuJoypad
push bc
farcall HDMATransferTileMapToWRAMBank3
call Function100e2d
pop bc
jr c, .asm_100b6b
ld a, [wMenuJoypadFilter]
and c
jr z, .loop
farcall Mobile_GetMenuSelection
ret
.asm_100b6b
ld a, [w2DMenuNumCols]
ld c, a
ld a, [w2DMenuNumRows]
call SimpleMultiply
ld [wMenuCursorBuffer], a
and a
ret
; 100b7a
Function100b7a: ; 100b7a
ld hl, CopyMenuData
ld a, [wMenuData_2DMenuItemStringsBank]
rst FarCall
farcall Draw2DMenu
farcall MobileTextBorder
call UpdateSprites
call ApplyTilemap
farcall Init2DMenuCursorPosition
ld hl, w2DMenuFlags1
set 7, [hl]
ret
; 100b9f
MobileMoveSelectionScreen: ; 100b9f
xor a
ld [wMoveSwapBuffer], a
farcall CheckPlayerHasUsableMoves
ret z
call Function100dd8
jp c, xor_a_dec_a
call Function100e72
call .GetMoveSelection
push af
farcall InitPartyMenuBGPal7
call Function100ed4
pop af
ret
; 100bc2
.GetMoveSelection: ; 100bc2
xor a
ld [hBGMapMode], a
call Function100c74
call Function100c98
.master_loop
farcall MoveInfoBox
.loop
call Mobile_SetOverworldDelay
farcall MobileMenuJoypad
push bc
farcall HDMATransferTileMapToWRAMBank3
call Function100e2d
pop bc
jr c, .b_button
ld a, [wMenuJoypadFilter]
and c
bit D_UP_F, a
jp nz, .d_up
bit D_DOWN_F, a
jp nz, .d_down
bit A_BUTTON_F, a
jr nz, .a_button
bit B_BUTTON_F, a
jr nz, .b_button
jr .loop
.d_up
ld a, [wMenuCursorY]
and a
jp nz, .master_loop
ld a, [wNumMoves]
inc a
ld [wMenuCursorY], a
jp .master_loop
.d_down
ld a, [wMenuCursorY]
ld b, a
ld a, [wNumMoves]
inc a
inc a
cp b
jp nz, .master_loop
ld a, $01
ld [wMenuCursorY], a
jp .master_loop
.b_button
ld a, [wMenuCursorY]
dec a
ld [wCurMoveNum], a
ld a, $01
and a
ret
.a_button
ld a, [wMenuCursorY]
dec a
ld [wCurMoveNum], a
ld a, [wMenuCursorY]
dec a
ld c, a
ld b, 0
ld hl, wBattleMonPP
add hl, bc
ld a, [hl]
and $3f
jr z, .no_pp_left
ld a, [wPlayerDisableCount]
swap a
and $0f
dec a
cp c
jr z, .move_disabled
ld a, [wMenuCursorY]
dec a
ld c, a
ld b, 0
ld hl, wBattleMonMoves
add hl, bc
ld a, [hl]
ld [wCurPlayerMove], a
xor a
ret
.move_disabled
ld hl, BattleText_TheMoveIsDisabled
jr .print_text
.no_pp_left
ld hl, BattleText_TheresNoPPLeftForThisMove
.print_text
call StdBattleTextBox
call Call_LoadTempTileMapToTileMap
jp .GetMoveSelection
; 100c74
Function100c74: ; 100c74
hlcoord 0, 8
ld b, 8
ld c, 8
call TextBox
ld hl, wBattleMonMoves
ld de, wListMoves_MoveIndicesBuffer
ld bc, NUM_MOVES
call CopyBytes
ld a, SCREEN_WIDTH * 2
ld [wBuffer1], a
hlcoord 2, 10
predef ListMoves
ret
; 100c98
Function100c98: ; 100c98
ld de, .attrs
call SetMenuAttributes
ld a, [wNumMoves]
inc a
ld [w2DMenuNumRows], a
ld a, [wCurMoveNum]
inc a
ld [wMenuCursorY], a
ret
; 100cad
.attrs ; 100cad
db 10, 1
db 255, 1
db $a0, $00
dn 2, 0
db D_UP | D_DOWN | A_BUTTON | B_BUTTON
Mobile_PartyMenuSelect: ; 100cb5
call Function100dd8
ret c
ld hl, w2DMenuFlags1
set 7, [hl]
res 6, [hl]
.loop
call Mobile_SetOverworldDelay
farcall MobileMenuJoypad
push bc
farcall PlaySpriteAnimations
farcall HDMATransferTileMapToWRAMBank3
call MobileComms_CheckInactivityTimer
pop bc
jr c, .done
ld a, [wMenuJoypadFilter]
and c
jr z, .loop
call PlaceHollowCursor
ld a, [wPartyCount]
inc a
ld b, a
ld a, [wMenuCursorY]
cp b
jr z, .done
ld [wPartyMenuCursor], a
ld a, [hJoyLast]
ld b, a
bit 1, b
jr nz, .done
ld a, [wMenuCursorY]
dec a
ld [wCurPartyMon], a
ld c, a
ld b, 0
ld hl, wPartySpecies
add hl, bc
ld a, [hl]
ld [wCurPartySpecies], a
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
and a
ret
.done
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
scf
ret
; 100d22
MobileBattleMonMenu: ; 100d22
call Function100dd8
ret c
call Function100d67
ld hl, w2DMenuFlags1
set 7, [hl]
res 6, [hl]
.asm_100d30
call Mobile_SetOverworldDelay
farcall MobileMenuJoypad
push bc
farcall PlaySpriteAnimations
farcall HDMATransferTileMapToWRAMBank3
call MobileComms_CheckInactivityTimer
pop bc
jr c, .asm_100d54
ld a, [wMenuJoypadFilter]
and c
jr nz, .asm_100d56
jr .asm_100d30
.asm_100d54
scf
ret
.asm_100d56
push af
ld de, SFX_READ_TEXT_2
call PlaySFX
pop af
bit 1, a
jr z, .asm_100d65
ret z
scf
ret
.asm_100d65
and a
ret
; 100d67
Function100d67: ; 100d67
ld hl, .MenuHeader
call CopyMenuHeader
xor a
ld [hBGMapMode], a
call MenuBox
call UpdateSprites
call PlaceVerticalMenuItems
call WaitBGMap
call CopyMenuData
call InitVerticalMenuCursor
ld hl, w2DMenuFlags1
set 6, [hl]
ret
; 100d88
.MenuHeader: ; 100d88
db 0 ; flags
menu_coords 11, 11, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
dw .MenuData
db 1 ; default option
.MenuData: ; 100d90
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
db 3
db "いれかえる@" ; TRADE
db "つよさをみる@" ; STATS
db "キャンセル@" ; CANCEL
; 100da5
Function100da5: ; 100da5
ld hl, wcd2a
res 3, [hl]
ld hl, wcd29
res 0, [hl]
ret
; 100db0
Function100db0: ; 100db0
ld hl, wcd2a
bit 3, [hl]
jr nz, .asm_100dbe
ld hl, wcd2a
set 3, [hl]
scf
ret
.asm_100dbe
xor a
ret
; 100dc0
Function100dc0: ; 100dc0
ld a, [wLinkMode]
cp LINK_MOBILE
jr nz, .mobile
ld hl, wcd2a
bit 3, [hl]
jr z, .mobile
scf
ret
.mobile
xor a
ret
; 100dd2
Mobile_SetOverworldDelay: ; 100dd2
ld a, 30
ld [wOverworldDelay], a
ret
; 100dd8
Function100dd8: ; 100dd8
ld c, $01
ld b, $03
farcall AdvanceMobileInactivityTimerAndCheckExpired
jr c, .asm_100dfb
ld c, $3c
ld b, $01
call Function10079c
jr c, .asm_100dfb
farcall Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_100dfb
xor a
ret
.asm_100dfb
scf
ret
; 100dfd
MobileComms_CheckInactivityTimer: ; 100dfd
ld a, [wOverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
ld b, 3
push bc
farcall AdvanceMobileInactivityTimerAndCheckExpired ; useless to farcall
pop bc
jr c, .quit
ld b, 1
call Function10079c
jr c, .quit
call Function1009f3
jr c, .quit
farcall Function10032e ; useless to farcall
ld a, [wcd2b]
and a
jr nz, .quit
xor a
ret
.quit
scf
ret
; 100e2d
Function100e2d: ; 100e2d
ld a, [wOverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
ld b, 3
push bc
farcall AdvanceMobileInactivityTimerAndCheckExpired
pop bc
jr c, .asm_100e61
ld b, 1
call Function10079c
jr c, .asm_100e61
call Function1009f3
jr c, .asm_100e61
farcall Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_100e61
call Function100e63
call Function100e84
xor a
ret
.asm_100e61
scf
ret
; 100e63
Function100e63: ; 100e63
ld a, e
cp $02
ret nz
call Function100db0
ret nc
ld de, SFX_ELEVATOR_END
call PlaySFX
ret
; 100e72
Function100e72: ; 100e72
xor a
ld hl, wcd29
bit 0, [hl]
jr z, .asm_100e7c
ld a, $0a
.asm_100e7c
ld [wcd67], a
xor a
ld [wcd68], a
ret
; 100e84
Function100e84: ; 100e84
ld a, [wcd67]
ld hl, Jumptable_100e8c
rst JumpTable
ret
; 100e8c
Jumptable_100e8c: ; 100e8c (40:4e8c)
dw Function100ea2
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100ec4
Function100ea2: ; 100ea2 (40:4ea2)
call Function100dc0
ret nc
ld hl, wcd29
set 0, [hl]
call Function100ec5
Function100eae: ; 100eae
scf
call Function100eca
jr asm_100eb8
Function100eb4: ; 100eb4
and a
call Function100eca
asm_100eb8
ld hl, wcd68
inc [hl]
ld a, [hl]
cp $02
ret c
ld [hl], 0
jr Function100ec5
Function100ec4: ; 100ec4
ret
Function100ec5
ld hl, wcd67
inc [hl]
ret
; 100eca
Function100eca: ; 100eca
farcall Mobile_InitPartyMenuBGPal7
call Function100ed4
ret
; 100ed4
Function100ed4: ; 100ed4
farcall ApplyPals
ld a, $01
ld [hCGBPalUpdate], a
ret
; 100edf
Function100edf: ; 100edf
ld hl, Unknown_100fc0
ld c, 1
jr asm_100f02
Function100ee6: ; 100ee6
ld hl, Unknown_100fc0
ld c, 2
jr asm_100f02
Function100eed: ; 100eed
ld hl, Unknown_100feb
ld c, 1
jr asm_100f02
Function100ef4: ; 100ef4
ld hl, Unknown_100ff3
ld c, 1
jr asm_100f02
Function100efb: ; 100efb
ld hl, Unknown_10102c
ld c, 1
jr asm_100f02
asm_100f02:
ld a, c
ld [wStringBuffer2], a
; someting that was previously stored in de gets backed up to here
ld a, e
ld [wStringBuffer2 + 1], a
ld a, d
ld [wStringBuffer2 + 2], a
; empty this
xor a
ld [wStringBuffer2 + 4], a
ld [wStringBuffer2 + 5], a
.loop
ld a, [hl]
cp $ff
jr z, .done
ld [wStringBuffer2 + 3], a ; bank
push hl
inc hl
; addr 1
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
; size
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
; addr 2
ld a, [hli]
ld h, [hl]
ld l, a
call Function100f3d
; next line
pop hl
ld de, 7
add hl, de
jr .loop
.done
; recover the values into bc
ld a, [wStringBuffer2 + 4]
ld c, a
ld a, [wStringBuffer2 + 5]
ld b, a
ret
; 100f3d
Function100f3d: ; 100f3d
; parameter
ld a, [wStringBuffer2]
cp $02
jr z, .two
cp $01
jr z, .one
cp $03
jr z, .three
ret
.three
; what was once in de gets copied to hl,
; modified by Function100f8d, and put back
; into this backup
ld a, [wStringBuffer2 + 1]
ld l, a
ld a, [wStringBuffer2 + 2]
ld h, a
call Function100f8d
ld a, l
ld [wStringBuffer2 + 1], a
ld a, h
ld [wStringBuffer2 + 2], a
ret
.two
; hl gets backed up to de, then
; do the same as in .three
ld d, h
ld e, l
ld a, [wStringBuffer2 + 1]
ld l, a
ld a, [wStringBuffer2 + 2]
ld h, a
call Function100f8d
ld a, l
ld [wStringBuffer2 + 1], a
ld a, h
ld [wStringBuffer2 + 2], a
ret
.one
; de gets copied to hl, then
; load the backup into de,
; finally run Function100f8d
; and store the de result
ld h, d
ld l, e
ld a, [wStringBuffer2 + 1]
ld e, a
ld a, [wStringBuffer2 + 2]
ld d, a
call Function100f8d
ld a, e
ld [wStringBuffer2 + 1], a
ld a, d
ld [wStringBuffer2 + 2], a
ret
; 100f8d
Function100f8d: ; 100f8d
push hl
ld a, [wStringBuffer2 + 4]
ld l, a
ld a, [wStringBuffer2 + 5]
ld h, a
add hl, bc
ld a, l
ld [wStringBuffer2 + 4], a
ld a, h
ld [wStringBuffer2 + 5], a
pop hl
ld a, [wStringBuffer2 + 3]
bit 7, a
res 7, a
jr z, .sram
and a
jr nz, .far_wram
call CopyBytes
ret
.far_wram
and $7f
call FarCopyWRAM
ret
.sram
call GetSRAMBank
call CopyBytes
call CloseSRAM
ret
; 100fc0
Unknown_100fc0: ; 100fc0
; first byte:
; Bit 7 set: Not SRAM
; Lower 7 bits: Bank
; Address, size (dw), address
dbwww $80, wPlayerName, NAME_LENGTH, wOTPlayerName
dbwww $80, wPartyCount, 1 + PARTY_LENGTH + 1, wOTPartyCount
dbwww $80, wPlayerID, 2, wOTPlayerID
dbwww $80, wPartyMons, PARTYMON_STRUCT_LENGTH * PARTY_LENGTH, wOTPartyMons
dbwww $80, wPartyMonOT, NAME_LENGTH * PARTY_LENGTH, wOTPartyMonOT
dbwww $80, wPartyMonNicknames, MON_NAME_LENGTH * PARTY_LENGTH, wOTPartyMonNicknames
db -1
Unknown_100feb: ; 100feb
dbwww $00, sPartyMail, MAIL_STRUCT_LENGTH * PARTY_LENGTH, NULL
db -1
Unknown_100ff3: ; 100ff3
dbwww $80, wdc41, 1, NULL
dbwww $80, wPlayerName, NAME_LENGTH, NULL
dbwww $80, wPlayerName, NAME_LENGTH, NULL
dbwww $80, wPlayerID, 2, NULL
dbwww $80, wSecretID, 2, NULL
dbwww $80, wPlayerGender, 1, NULL
dbwww $04, $a603, 8, NULL
dbwww $04, $a007, PARTYMON_STRUCT_LENGTH, NULL
db -1
Unknown_10102c: ; 10102c
dbwww $80, wOTPlayerName, NAME_LENGTH, NULL
dbwww $80, wOTPlayerID, 2, NULL
dbwww $80, wOTPartyMonNicknames, MON_NAME_LENGTH * PARTY_LENGTH, NULL
dbwww $80, wOTPartyMonOT, NAME_LENGTH * PARTY_LENGTH, NULL
dbwww $80, wOTPartyMons, PARTYMON_STRUCT_LENGTH * PARTY_LENGTH, NULL
db -1
; 10104f
Function101050: ; 101050
call Function10107d
ld a, [wOTPartyCount]
rept 2 ; ???
ld hl, wc608
endr
ld bc, wc7bb - wc608
call Function1010de
ld hl, wc7bb
ld [hl], e
inc hl
ld [hl], d
ld a, $07
call GetSRAMBank
ld hl, wc608
ld de, $a001
ld bc, wc7bd - wc608
call CopyBytes
call CloseSRAM
ret
; 10107d
Function10107d: ; 10107d
xor a
ld hl, wc608
ld bc, wc7bd - wc608
call ByteFill
ld hl, wOTPlayerName
ld de, wc608
ld bc, NAME_LENGTH
call CopyBytes
ld hl, wd271
ld a, [hli]
ld [wc608 + 11], a
ld a, [hl]
ld [wc608 + 12], a
ld hl, wOTPartyMonNicknames
ld de, wc608 + 13
ld bc, NAME_LENGTH
call .CopyAllFromOT
ld hl, wOTPartyMonOT
ld de, wOTClassName + 1
ld bc, NAME_LENGTH
call .CopyAllFromOT
ld hl, wOTPartyMon1Species
ld de, $c699
ld bc, PARTYMON_STRUCT_LENGTH
call .CopyAllFromOT
ld a, $50
ld [wc7b9], a
ld a, $33
ld [wc7ba], a
ret
; 1010cd
.CopyAllFromOT: ; 1010cd
push hl
ld hl, 0
ld a, [wOTPartyCount]
call AddNTimes
ld b, h
ld c, l
pop hl
call CopyBytes
ret
; 1010de
Function1010de: ; 1010de
push hl
push bc
ld de, 0
.loop
ld a, [hli]
add e
ld e, a
ld a, d
adc 0
ld d, a
dec bc
ld a, b
or c
jr nz, .loop
pop bc
pop hl
ret
; 1010f2
LoadSelectedPartiesForColosseum: ; 1010f2
xor a
ld hl, wStringBuffer2
ld bc, 9
call ByteFill
ld hl, wPlayerMonSelection
ld de, wPartyCount
call .CopyThreeSpecies
ld hl, wPlayerMonSelection
ld de, wPartyMon1Species
call .CopyPartyStruct
ld hl, wPlayerMonSelection
ld de, wPartyMonOT
call .CopyName
ld hl, wPlayerMonSelection
ld de, wPartyMonNicknames
call .CopyName
ld hl, wOTMonSelection
ld de, wOTPartyCount
call .CopyThreeSpecies
ld hl, wOTMonSelection
ld de, wOTPartyMon1Species
call .CopyPartyStruct
ld hl, wOTMonSelection
ld de, wOTPartyMonOT
call .CopyName
ld hl, wOTMonSelection
ld de, wOTPartyMonNicknames
call .CopyName
ret
; 101145
.CopyThreeSpecies: ; 101145
; Load the 3 choices to the buffer
push de
ld bc, wStringBuffer2 + NAME_LENGTH_JAPANESE
xor a
.party_loop
push af
call .GetNthSpecies
ld [bc], a
inc bc
pop af
inc a
cp 3
jr nz, .party_loop
pop de
; Copy the 3 choices to the party
ld a, 3
ld [de], a
inc de
ld hl, wStringBuffer2 + NAME_LENGTH_JAPANESE
ld bc, 3
call CopyBytes
ld a, $ff
ld [de], a
ret
; 101168
.GetNthSpecies: ; 101168
; Preserves hl and de
; Get the index of the Nth selection
push hl
add l
ld l, a
ld a, h
adc 0
ld h, a
ld a, [hl]
pop hl
; Get the corresponding species
push de
inc de
add e
ld e, a
ld a, d
adc 0
ld d, a
ld a, [de]
pop de
ret
; 10117c
.CopyPartyStruct: ; 10117c
ld bc, PARTYMON_STRUCT_LENGTH
jr .ContinueCopy
.CopyName: ; 101181
ld bc, NAME_LENGTH
.ContinueCopy:
; Copy, via wc608...
ld a, LOW(wc608)
ld [wStringBuffer2], a
ld a, HIGH(wc608)
ld [wStringBuffer2 + 1], a
; ... bc bytes...
ld a, c
ld [wStringBuffer2 + 2], a
ld a, b
ld [wStringBuffer2 + 3], a
; ... to de...
ld a, e
ld [wStringBuffer2 + 4], a
ld a, d
ld [wStringBuffer2 + 5], a
; ... 3 times.
ld a, 3
.big_copy_loop
push af
ld a, [hli]
push hl
push af
call .GetDestinationAddress
call .GetCopySize
pop af
call AddNTimes
ld a, [wStringBuffer2]
ld e, a
ld a, [wStringBuffer2 + 1]
ld d, a
call CopyBytes
ld a, e
ld [wStringBuffer2], a
ld a, d
ld [wStringBuffer2 + 1], a
pop hl
pop af
dec a
jr nz, .big_copy_loop
call .GetCopySize
ld a, 3
ld hl, 0
call AddNTimes
ld b, h
ld c, l
call .GetDestinationAddress
ld d, h
ld e, l
ld hl, wc608
call CopyBytes
ret
; 1011df
.GetDestinationAddress: ; 1011df
ld a, [wStringBuffer2 + 4]
ld l, a
ld a, [wStringBuffer2 + 5]
ld h, a
ret
; 1011e8
.GetCopySize: ; 1011e8
ld a, [wStringBuffer2 + 2]
ld c, a
ld a, [wStringBuffer2 + 3]
ld b, a
ret
; 1011f1
Function1011f1: ; 1011f1
ld a, $04
call GetSRAMBank
ld a, [$a60c]
ld [wdc41], a
call CloseSRAM
ld hl, wdc41
res 4, [hl]
ld hl, wGameTimerPause
bit GAMETIMERPAUSE_MOBILE_7_F, [hl]
jr z, .skip
ld hl, wdc41
set 4, [hl]
.skip
call Function10209c
xor a
ld [wdc5f], a
ld [wdc60], a
ld a, LINK_MOBILE
ld [wLinkMode], a
ret
; 101220
Function101220: ; 101220
xor a
ld [wLinkMode], a
ret
; 101225
Function101225: ; 101225
ld d, 1
ld e, BANK(Jumptable_101297)
ld bc, Jumptable_101297
call Function100000
jr Function10123d
Function101231: ; 101231
ld d, 2
ld e, BANK(Jumptable_101297)
ld bc, Jumptable_101297
call Function100000
jr Function10123d
Function10123d: ; 10123d
xor a
ld [wScriptVar], a
ld a, c
ld hl, Jumptable_101247
rst JumpTable
ret
; 101247
Jumptable_101247: ; 101247
dw Function101251
dw Function10127d
dw Function10127c
dw Function10126c
dw Function101265
; 101251
Function101251: ; 101251
call UpdateSprites
call RefreshScreen
ld hl, UnknownText_0x1021f4
call Function1021e0
call Function1020ea
ret c
call Function102142
ret
; 101265
Function101265: ; 101265
ld hl, UnknownText_0x1021ef
call Function1021e0
ret
; 10126c
Function10126c: ; 10126c
call UpdateSprites
farcall Script_reloadmappart
ld hl, UnknownText_0x1021f4
call Function1021e0
ret
; 10127c
Function10127c: ; 10127c
ret
; 10127d
Function10127d: ; 10127d
ret
; 10127e
Function10127e: ; 10127e
ld a, [wdc5f]
and a
jr z, .zero
cp 1
ld c, $27
jr z, .load
cp 2
ld c, $37
jr z, .load
.zero
ld c, 0
.load
ld a, c
ld [wMobileCommsJumptableIndex], a
ret
; 101297
Jumptable_101297: ; 101297
dw Function101a97 ; 00
dw Function101ab4 ; 01
dw Function101475 ; 02
dw Function101b0f ; 03
dw Function101438 ; 04
dw Function101b2b ; 05
dw Function101b59 ; 06
dw Function101475 ; 07
dw Function101b70 ; 08
dw Function101438 ; 09
dw Function101b8f ; 0a
dw Function101d7b ; 0b
dw Function101d95 ; 0c
dw Function101475 ; 0d
dw Function101db2 ; 0e
dw Function101e4f ; 0f
dw Function101475 ; 10
dw Function101e64 ; 11
dw Function101e4f ; 12
dw Function101475 ; 13
dw Function101e64 ; 14
dw Function101d95 ; 15
dw Function101475 ; 16
dw Function101db2 ; 17
dw Function101dd0 ; 18
dw Function101de3 ; 19
dw Function101e39 ; 1a
dw Function101e09 ; 1b
dw Function101e4f ; 1c
dw Function101475 ; 1d
dw Function101e64 ; 1e
dw Function101d95 ; 1f
dw Function101475 ; 20
dw Function101db2 ; 21
dw Function101e09 ; 22
dw Function101e31 ; 23
dw Function101bc8 ; 24
dw Function101438 ; 25
dw Function101be5 ; 26
dw Function101ac6 ; 27
dw Function101ab4 ; 28
dw Function101475 ; 29
dw Function101c11 ; 2a
dw Function1014f4 ; 2b
dw Function101cc8 ; 2c
dw Function1014e2 ; 2d
dw Function1014e2 ; 2e
dw Function101d10 ; 2f
dw Function101d2a ; 30
dw Function101d2a ; 31
dw Function101507 ; 32
dw Function10156d ; 33
dw Function101557 ; 34
dw Function10158a ; 35
dw Function101c42 ; 36
dw Function101aed ; 37
dw Function101ab4 ; 38
dw Function101475 ; 39
dw Function101c2b ; 3a
dw Function1014f4 ; 3b
dw Function101cdf ; 3c
dw Function1014e2 ; 3d
dw Function1014e2 ; 3e
dw Function101d1e ; 3f
dw Function101d2a ; 40
dw Function101d2a ; 41
dw Function101507 ; 42
dw Function10156d ; 43
dw Function101544 ; 44
dw Function10158a ; 45
dw Function101c42 ; 46
dw Function101c50 ; 47
dw Function1014ce ; 48
dw Function101cf6 ; 49
dw Function101826 ; 4a
dw Function1017e4 ; 4b
dw Function1017f1 ; 4c
dw Function1018a8 ; 4d
dw Function1018d6 ; 4e
dw Function1017e4 ; 4f
dw Function1017f1 ; 50
dw Function1018e1 ; 51
dw Function1015df ; 52
dw Function10167d ; 53
dw Function10168a ; 54
dw Function10162a ; 55
dw Function1015be ; 56
dw Function10167d ; 57
dw Function10168a ; 58
dw Function10161f ; 59
dw Function10159d ; 5a
dw Function10167d ; 5b
dw Function10168a ; 5c
dw Function101600 ; 5d
dw Function101d03 ; 5e
dw Function101d6b ; 5f
dw Function10159d ; 60
dw Function1014ce ; 61
dw Function10168e ; 62
dw Function101600 ; 63
dw Function101913 ; 64
dw Function10194b ; 65
dw _SelectMonsForMobileBattle ; 66
dw Function1017e4 ; 67
dw Function1017f5 ; 68
dw _StartMobileBattle ; 69
dw Function101537 ; 6a
dw Function101571 ; 6b
dw Function101c92 ; 6c
dw Function10152a ; 6d
dw Function101571 ; 6e
dw Function101a4f ; 6f
dw Function101cbc ; 70
dw Function101c62 ; 71
dw Function101537 ; 72
dw Function101571 ; 73
dw Function101c92 ; 74
dw Function10152a ; 75
dw Function101571 ; 76
dw Function101ca0 ; 77
dw Function101475 ; 78
dw Function101cbc ; 79
; 10138b
Function10138b: ; 10138b
farcall Function8adcc
ld c, 0
jr c, .asm_101396
inc c
.asm_101396
sla c
ld a, [wcd2f]
and a
jr z, .asm_10139f
inc c
.asm_10139f
sla c
ld a, [wcd21]
cp $01
jr z, .asm_1013a9
inc c
.asm_1013a9
ret
; 1013aa
Function1013aa: ; 1013aa
call ClearBGPalettes
call Call_ExitMenu
call ReloadTilesetAndPalettes
farcall Function106464
call UpdateSprites
call FinishExitMenu
ret
; 1013c0
Function1013c0: ; 1013c0
farcall BlankScreen
farcall Stubbed_Function106462
farcall Function106464
call FinishExitMenu
ret
; 1013d6
Function1013d6: ; 1013d6
farcall HDMATransferAttrMapAndTileMapToWRAMBank3
ret
; 1013dd
Function1013dd: ; 1013dd
call CGBOnly_CopyTilemapAtOnce
ret
; 1013e1
Unreferenced_Function1013e1: ; 1013e1
push de
inc de
ld b, a
ld c, 0
.asm_1013e6
inc c
ld a, [hli]
ld [de], a
inc de
and a
jr z, .asm_1013f1
dec b
jr nz, .asm_1013e6
scf
.asm_1013f1
pop de
ld a, c
ld [de], a
ret
; 1013f5
Function1013f5: ; 1013f5
ld a, [hli]
ld [de], a
inc de
ld c, a
.asm_1013f9
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_1013f9
ret
; 101400
Unreferenced_Function101400: ; 101400
ld a, [de]
inc de
cp [hl]
jr nz, asm_101416
inc hl
Function101406: ; 101406
ld c, a
ld b, 0
.asm_101409
ld a, [de]
inc de
cp [hl]
jr nz, asm_101416
inc hl
dec bc
ld a, b
or c
jr nz, .asm_101409
and a
ret
asm_101416
scf
ret
; 101418
Function101418: ; 101418
call GetJoypad
ld a, [hJoyDown]
and SELECT + A_BUTTON
cp SELECT + A_BUTTON
jr z, .asm_101425
xor a
ret
.asm_101425
ld a, $f7
ld [wcd2b], a
scf
ret
; 10142c
Function10142c: ; 10142c
ld a, $01
ld [wc305], a
farcall Function115e18
ret
; 101438
Function101438: ; 101438
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
ld hl, Jumptable_101457
rst JumpTable
ld a, [wcd26]
bit 7, a
ret z
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101457
Jumptable_101457: ; 101457
dw Function10145b
dw Function101467
; 10145b
Function10145b: ; 10145b
ld a, $3c
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function101467: ; 101467
ld hl, wcd42
dec [hl]
ret nz
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 101475
Function101475: ; 101475
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
ld hl, Jumptable_101494
rst JumpTable
ld a, [wcd26]
bit 7, a
ret z
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101494
Jumptable_101494: ; 101494
dw Function10149a
dw Function1014a6
dw Function1014b7
; 10149a
Function10149a: ; 10149a
ld a, $28
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function1014a6: ; 1014a6
ld hl, wcd42
dec [hl]
ret nz
ld a, $50
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function1014b7: ; 1014b7
call GetJoypad
ld a, [hJoyPressed]
and $03
jr nz, .asm_1014c5
ld hl, wcd42
dec [hl]
ret nz
.asm_1014c5
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 1014ce
Function1014ce: ; 1014ce
farcall Function100720
farcall StartMobileInactivityTimer
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1014e2
Function1014e2: ; 1014e2
ld hl, wcd29
set 6, [hl]
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1014f4
Function1014f4: ; 1014f4
farcall EnableMobile
ld hl, wcd29
set 6, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101507
Function101507: ; 101507
ld de, wcd30
ld hl, $40
ld bc, $40
ld a, $02
call Function3e32
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 10151d
Unreferenced_Function10151d: ; 10151d
ld a, $34
call Function3e32
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 10152a
Function10152a: ; 10152a
ld a, $36
call Function3e32
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101537
Function101537: ; 101537
ld a, $0a
call Function3e32
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101544
Function101544: ; 101544
farcall StartMobileInactivityTimer
ld a, $12
call Function3e32
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101557
Function101557: ; 101557
farcall StartMobileInactivityTimer
ld hl, wcd53
ld a, $08
call Function3e32
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 10156d
Function10156d: ; 10156d
call Function101418
ret c
Function101571: ; 101571
farcall Function10032e
ret c
ret z
ld a, e
cp $01
jr z, .asm_101582
ld [wcd2b], a
ret
.asm_101582
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 10158a
Function10158a: ; 10158a
farcall IncrementMobileInactivityTimerBy1Frame
ld a, [wMobileInactivityTimerMinutes]
cp $0a
jr c, Function10156d
ld a, $fb
ld [wcd2b], a
ret
; 10159d
Function10159d: ; 10159d
ld de, wc608
farcall Function100edf
ld de, wc608
ld a, $05
ld hl, w5_d800
call Function10174c
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1015be
Function1015be: ; 1015be
ld de, wc608
farcall Function100eed
ld de, wc608
ld a, $05
ld hl, w5_d800
call Function10174c
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1015df
Function1015df: ; 1015df
ld de, wc608
farcall Function100ef4
ld de, wc608
ld a, $05
ld hl, w5_d800
call Function10174c
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101600
Function101600: ; 101600
ld hl, w5_d800
ld de, wc608
ld bc, $1e0
ld a, $05
call FarCopyWRAM
ld de, wc608
farcall Function100ee6
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 10161f
Function10161f: ; 10161f
call Function101649
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 10162a
Function10162a: ; 10162a
call Function101663
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101635
Function101635: ; 101635
ld de, wc608
ld bc, $1e0
call FarCopyWRAM
ret
; 10163f
Function10163f: ; 10163f
ld hl, wc608
ld bc, $1e0
call FarCopyWRAM
ret
; 101649
Function101649: ; 101649
ld a, $05
ld hl, w5_d800
call Function101635
ld a, $05
ld de, w5_da00
call Function10163f
ret
; 10165a
Function10165a: ; 10165a
ld a, $05
ld hl, w5_da00
call Function101635
ret
; 101663
Function101663: ; 101663
ld a, $05
ld hl, w5_d800
call Function101635
ld a, $05
ld de, w5_dc00
call Function10163f
ret
; 101674
Unreferenced_Function101674: ; 101674
ld a, $05
ld hl, w5_dc00
call Function101635
ret
; 10167d
Function10167d: ; 10167d
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 10168a
Function10168a: ; 10168a
call Function101418
ret c
Function10168e: ; 10168e
ld b, 0
ld c, $01
farcall Function10079c
ret c
ld c, $01
ld b, $03
farcall AdvanceMobileInactivityTimerAndCheckExpired
ret c
ld a, [wcd26]
ld hl, Jumptable_1016c3
rst JumpTable
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
bit 7, a
ret z
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1016c3
Jumptable_1016c3: ; 1016c3
dw Function1016cf
dw Function1016de
dw Function1016f8
dw Function101705
dw Function101719
dw Function101724
; 1016cf
Function1016cf: ; 1016cf
ld hl, wcd3a
inc [hl]
call Function10176f
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 1016de
Function1016de: ; 1016de
call Function10177b
jr nc, .asm_1016eb
ld a, [wcd26]
inc a
ld [wcd26], a
ret
.asm_1016eb
ld a, $ff
ld [wcd39], a
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 1016f8
Function1016f8: ; 1016f8
ld a, 0
ld [wcd27], a
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 101705
Function101705: ; 101705
farcall Function100382
ld a, [wcd27]
bit 7, a
ret z
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 101719
Function101719: ; 101719
call Function1017c7
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 101724
Function101724: ; 101724
ld a, [wcd39]
cp $ff
jr z, .asm_101731
ld a, 0
ld [wcd26], a
ret
.asm_101731
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 10173a
Unknown_10173a:
db $50
Function10173b: ; 10173b
push bc
push af
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [Unknown_10173a]
ld c, a
ld b, 0
pop af
call AddNTimes
pop bc
ret
; 10174c
Function10174c: ; 10174c
ld [wcd3d], a
ld a, l
ld [wcd3e], a
ld a, h
ld [wcd3f], a
ld a, e
ld [wcd3b], a
ld a, d
ld [wcd3c], a
ld a, c
ld [wcd40], a
ld a, b
ld [wcd41], a
xor a
ld [wcd39], a
ld [wcd3a], a
ret
; 10176f
Function10176f: ; 10176f
ld hl, wccb4
ld bc, $54
ld a, $11
call ByteFill
ret
; 10177b
Function10177b: ; 10177b
ld a, [Unknown_10173a]
ld c, a
ld b, 0
ld a, [wcd3a]
ld hl, 0
call AddNTimes
ld e, l
ld d, h
ld hl, wcd40
ld a, [hli]
ld h, [hl]
ld l, a
ld a, l
sub e
ld l, a
ld a, h
sbc d
ld h, a
jr c, .asm_1017a0
add hl, bc
call Function1017b0
scf
ret
.asm_1017a0
ld a, $ff
ld [wcd39], a
add hl, bc
ld a, h
or l
ret z
ld c, l
ld b, h
call Function1017b0
xor a
ret
; 1017b0
Function1017b0: ; 1017b0
ld a, c
ld [wccb4], a
push bc
ld a, [wcd3a]
dec a
ld hl, wcd3b
call Function10173b
pop bc
ld de, wccb5
call CopyBytes
ret
; 1017c7
Function1017c7: ; 1017c7
ld a, [wcc60]
ld c, a
ld b, 0
ld a, [wcd3a]
dec a
ld hl, wcd3e
call Function10173b
ld e, l
ld d, h
ld hl, wcc61
ld a, [wcd3d]
call FarCopyWRAM
and a
ret
; 1017e4
Function1017e4: ; 1017e4
ld a, 0
ld [wcd27], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1017f1
Function1017f1: ; 1017f1
call Function101418
ret c
Function1017f5: ; 1017f5
ld b, 0
ld c, $01
farcall Function10079c
ret c
ld c, $01
ld b, $03
farcall AdvanceMobileInactivityTimerAndCheckExpired
ret c
farcall Function100382
ld a, [wcd27]
bit 7, a
jr nz, .next
ld hl, wcd29
set 6, [hl]
ret
.next
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101826
Function101826: ; 101826
ld a, [wcd21]
cp $02
jr z, .asm_101833
cp $01
jr z, .asm_101844
jr .asm_101869
.asm_101833
ld hl, Unknown_10186f
ld de, wccb4
call Function1013f5
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101844
farcall Function103654
ld a, c
ld hl, Unknown_101882
cp $01
jr z, .asm_10185b
ld hl, Unknown_101895
cp $02
jr z, .asm_10185b
jr .asm_101869
.asm_10185b
ld de, wccb4
call Function1013f5
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101869
ld a, $fe
ld [wcd2b], a
ret
; 10186f
SECTION "ascii 10186f", ROMX
charmap " ", $20 ; revert to ascii
Unknown_10186f:
db .end - @
db $19, $73, $09, $13, "trade_crystal"
.end db 0
Unknown_101882:
db .end - @
db $19, $67, $10, $01, "free__crystal"
.end db 0
Unknown_101895:
db .end - @
db $19, $67, $10, $01, "limit_crystal"
.end db 0
; 1018a8
SECTION "bank40_3", ROMX
Function1018a8: ; 1018a8
ld hl, wccb5
ld de, wcc61
ld a, $04
call Function101406
jr c, .asm_1018d0
ld hl, wccb9
ld de, wcc65
ld a, $06
call Function101406
jr c, .asm_1018ca
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_1018ca
ld a, $f6
ld [wcd2b], a
ret
.asm_1018d0
ld a, $f5
ld [wcd2b], a
ret
; 1018d6
Function1018d6: ; 1018d6
call Function1018ec
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1018e1
Function1018e1: ; 1018e1
call Function1018fb
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1018ec
Function1018ec: ; 1018ec
ld a, $0a
ld hl, wccb4
ld [hli], a
ld c, a
.asm_1018f3
call Random
ld [hli], a
dec c
jr nz, .asm_1018f3
ret
; 1018fb
Function1018fb: ; 1018fb
ld a, [wcd2f]
and a
jr z, .asm_101906
ld hl, wcc61
jr .asm_101909
.asm_101906
ld hl, wccb5
.asm_101909
ld de, wLinkBattleRNs
ld bc, 10
call CopyBytes
ret
; 101913
Function101913: ; 101913
ld hl, wcd2a
set 0, [hl]
xor a
ld [wc30d], a
ld hl, wcd29
res 4, [hl]
xor a
ld [wc305], a
ld hl, wcd29
res 7, [hl]
ld a, $90
ld [hWY], a
ld a, [wcd21]
cp $01
jr z, .asm_10193f
cp $02
jr z, .asm_101945
ld a, $71
ld [wMobileCommsJumptableIndex], a
ret
.asm_10193f
ld a, $66
ld [wMobileCommsJumptableIndex], a
ret
.asm_101945
ld a, $65
ld [wMobileCommsJumptableIndex], a
ret
; 10194b
Function10194b: ; 10194b
call DisableSpriteUpdates
call ClearSprites
farcall Function1021f9
ld hl, wcd29
bit 3, [hl]
jr nz, .asm_101967
call Function1013c0
ld a, $71
ld [wMobileCommsJumptableIndex], a
ret
.asm_101967
ld a, $60
ld [wMobileCommsJumptableIndex], a
ret
; 10196d
_SelectMonsForMobileBattle: ; 10196d
farcall BlankScreen
farcall Mobile_CommunicationStandby
ld hl, wcd29
set 5, [hl]
ld hl, wcd2a
set 6, [hl]
ld a, $06
ld [wccb4], a
ld hl, wPlayerMonSelection
ld de, wccb5
ld bc, 3
call CopyBytes
ld hl, wcd6c
ld a, [hli]
ld [wccb8], a
ld a, [hli]
ld [wccb9], a
ld a, [hl]
ld [wccba], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1019ab
_StartMobileBattle: ; 1019ab
call CopyOtherPlayersBattleMonSelection
farcall Function100754
xor a
ld [wdc5f], a
ld [wdc60], a
farcall BlankScreen
call SpeechTextBox
farcall Function100846
ld c, 120
call DelayFrames
farcall ClearTileMap
call .CopyOTDetails
call StartMobileBattle
ld a, [wcd2b]
cp $fc
jr nz, .asm_1019e6
xor a
ld [wcd2b], a
.asm_1019e6
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 1019ee
.CopyOTDetails: ; 1019ee
ld a, [rSVBK]
push af
ld a, 5
ld [rSVBK], a
ld bc, w5_dc0d
ld de, w5_dc11
farcall GetMobileOTTrainerClass
pop af
ld [rSVBK], a
ld a, c
ld [wOtherTrainerClass], a
ld hl, wOTPlayerName
ld de, wOTClassName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd2f]
and a
ld a, USING_INTERNAL_CLOCK
jr z, .got_link_player_number
ld a, USING_EXTERNAL_CLOCK
.got_link_player_number
ld [hSerialConnectionStatus], a
ret
; 101a21
StartMobileBattle: ; 101a21
; force stereo and fast text speed
ld hl, wOptions
ld a, [hl]
push af
and (1 << STEREO)
or 1 ; 1 frame per character i.e. fast text
ld [hl], a
ld a, 1
ld [wDisableTextAcceleration], a
farcall BattleIntro
farcall DoBattle
farcall ShowLinkBattleParticipantsAfterEnd
xor a
ld [wDisableTextAcceleration], a
ld a, CONNECTION_NOT_ESTABLISHED
ld [hSerialConnectionStatus], a
pop af
ld [wOptions], a
ret
; 101a4f
Function101a4f: ; 101a4f
ld a, 1
ld [wDisableTextAcceleration], a
farcall DisplayLinkBattleResult
xor a
ld [wDisableTextAcceleration], a
farcall CleanUpBattleRAM
farcall LoadPokemonData
call Function1013c0
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101a75
CopyOtherPlayersBattleMonSelection: ; 101a75
ld hl, wcc61
ld de, wOTMonSelection
ld bc, 3
call CopyBytes
ld de, wcc64
farcall Function100772
farcall Function101050
farcall LoadSelectedPartiesForColosseum
ret
; 101a97
Function101a97: ; 101a97
farcall Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $02
call Function10142c
ld hl, wcd29
set 6, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101ab4
Function101ab4: ; 101ab4
ld e, $01
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101ac6
Function101ac6: ; 101ac6
farcall Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $02
call Function10142c
ld hl, wcd29
set 6, [hl]
xor a
ld [wcd2f], a
ld de, wdc42
call Function102068
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101aed
Function101aed: ; 101aed
farcall Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $02
call Function10142c
ld hl, wcd29
set 6, [hl]
ld a, $01
ld [wcd2f], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101b0f
Function101b0f: ; 101b0f
ld c, 0
call Function10142c
ld e, $03
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ld a, 0
ld [wcd26], a
ret
; 101b2b
Function101b2b: ; 101b2b
farcall Function100579
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
ld a, 0
ld [wcd26], a
ld a, [wMenuCursorY]
cp $01
jr z, .asm_101b51
ld a, $02
ld [wcd2b], a
ret
.asm_101b51
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101b59
Function101b59: ; 101b59
ld c, $02
call Function10142c
ld e, $02
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101b70
Function101b70: ; 101b70
ld c, $02
call Function10142c
ld e, $04
call Function101ee4
ld hl, wcd29
set 5, [hl]
call UpdateSprites
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ld a, 0
ld [wcd26], a
ret
; 101b8f
Function101b8f: ; 101b8f
farcall Function1005c3
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
ld a, 0
ld [wcd26], a
ld a, [wMenuCursorY]
cp $01
jr z, .asm_101bbc
ld a, $01
ld [wcd2f], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101bbc
xor a
ld [wcd2f], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101bc8
Function101bc8: ; 101bc8
ld c, $02
call Function10142c
ld e, $08
call Function101ee4
call Function102048
call Function1013dd
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101be5
Function101be5: ; 101be5
farcall Function100579
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
ld a, 0
ld [wcd26], a
ld a, [wMenuCursorY]
cp $01
jr nz, .asm_101c0b
ld a, $2a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101c0b
ld a, $02
ld [wcd2b], a
ret
; 101c11
Function101c11: ; 101c11
ld a, $01
ld [wdc5f], a
ld e, $09
call Function101ee4
call Function102048
ld hl, wcd29
set 5, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101c2b
Function101c2b: ; 101c2b
ld a, $02
ld [wdc5f], a
ld e, $07
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101c42
Function101c42: ; 101c42
ld hl, wcd2a
set 1, [hl]
call Function100665
ld a, $47
ld [wMobileCommsJumptableIndex], a
ret
; 101c50
Function101c50: ; 101c50
ld e, $0a
call Function101ee4
ld hl, wcd29
set 2, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101c62
Function101c62: ; 101c62
farcall Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $01
call Function10142c
xor a
ld [wc30d], a
ld hl, wcd29
res 4, [hl]
ld e, $0b
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ld a, 0
ld [wcd26], a
ret
; 101c92
Function101c92: ; 101c92
farcall Function100675
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101ca0
Function101ca0: ; 101ca0
ld c, $02
call Function10142c
ld e, $0c
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ld a, 0
ld [wcd26], a
ret
; 101cbc
Function101cbc: ; 101cbc
ld a, $01
ld [wcd2b], a
ret
; 101cc2
Unreferenced_Function101cc2: ; 101cc2
ld a, $02
ld [wcd2b], a
ret
; 101cc8
Function101cc8: ; 101cc8
ld a, $01
ld [wc314], a
ld a, $01
ld [wc30d], a
ld hl, wcd29
set 4, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101cdf
Function101cdf: ; 101cdf
ld a, $06
ld [wc314], a
ld a, $01
ld [wc30d], a
ld hl, wcd29
set 4, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101cf6
Function101cf6: ; 101cf6
ld a, $0b
ld [wc314 + 1], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101d03
Function101d03: ; 101d03
ld a, $0e
ld [wc314 + 1], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101d10
Function101d10: ; 101d10
ld c, $01
call Function10142c
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
jr Function101d2a
Function101d1e: ; 101d1e
ld c, $03
call Function10142c
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
Function101d2a: ; 101d2a
call Function101418
ret c
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
ld hl, Jumptable_101d4d
rst JumpTable
ld a, [wcd26]
bit 7, a
ret z
ld a, 0
ld [wcd26], a
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101d4d
Jumptable_101d4d: ; 101d4d
dw Function101d51
dw Function101d5d
; 101d51
Function101d51: ; 101d51
ld a, $3c
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function101d5d: ; 101d5d
ld hl, wcd42
dec [hl]
ret nz
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 101d6b
Function101d6b: ; 101d6b
ld a, [wc30d]
and a
ret nz
ld hl, wcd29
res 4, [hl]
ld a, $64
ld [wMobileCommsJumptableIndex], a
ret
; 101d7b
Function101d7b: ; 101d7b
farcall Function10138b
ld b, 0
ld hl, Unknown_101d8d
add hl, bc
ld c, [hl]
ld a, c
ld [wMobileCommsJumptableIndex], a
ret
; 101d8d
Unknown_101d8d: ; 101d8d
db $15, $15, $1f, $1f, $0c, $12, $3a, $3a
; 101d95
Function101d95: ; 101d95
call Function101ee2
call LoadStandardMenuHeader
ld e, $0e
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ld a, 0
ld [wcd26], a
ret
; 101db2
Function101db2: ; 101db2
farcall Function103302
call ExitMenu
ld hl, wcd29
set 5, [hl]
jr c, .asm_101dca
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101dca
ld a, $02
ld [wcd2b], a
ret
; 101dd0
Function101dd0: ; 101dd0
ld hl, wdc41
bit 1, [hl]
jr nz, .asm_101ddd
ld a, $19
ld [wMobileCommsJumptableIndex], a
ret
.asm_101ddd
ld a, $1b
ld [wMobileCommsJumptableIndex], a
ret
; 101de3
Function101de3: ; 101de3
call Function101ecc
call Function101ead
jr c, .asm_101df3
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101df3
call Function101e98
jr c, .asm_101e00
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e00
call Function101ed3
ld a, $02
ld [wcd2b], a
ret
; 101e09
Function101e09: ; 101e09
call Function101ead
jr c, .asm_101e16
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e16
call Function101ecc
call Function101e98
push af
call Function101ed3
pop af
jr c, .asm_101e2b
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e2b
ld a, $02
ld [wcd2b], a
ret
; 101e31
Function101e31: ; 101e31
ld a, $3a
ld [wMobileCommsJumptableIndex], a
jp Function101c2b
; 101e39
Function101e39: ; 101e39
call Function1020bf
push af
call Function101ed3
pop af
jr c, .asm_101e49
ld a, $2a
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e49
ld a, $02
ld [wcd2b], a
ret
; 101e4f
Function101e4f: ; 101e4f
ld e, $06
call Function101ee4
call Function1013d6
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ld a, 0
ld [wcd26], a
ret
; 101e64
Function101e64: ; 101e64
call Function101ecc
call Function1020a8
push af
call Function101ed3
pop af
jr c, .asm_101e77
ld a, $24
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e77
ld hl, wcd29
set 5, [hl]
ld a, $02
ld [wcd2b], a
ret
; 101e82
Unreferenced_Function101e82: ; 101e82
call Function101ecc
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101e8d
Unreferenced_Function101e8d: ; 101e8d
call Function101ed3
ld a, [wMobileCommsJumptableIndex]
inc a
ld [wMobileCommsJumptableIndex], a
ret
; 101e98
Function101e98: ; 101e98
call ClearSprites
farcall Function8adb3
ret c
ld hl, wGameTimerPause
set GAMETIMERPAUSE_MOBILE_7_F, [hl]
ld hl, wdc41
set 4, [hl]
ret
; 101ead
Function101ead: ; 101ead
ld hl, wGameTimerPause
bit GAMETIMERPAUSE_MOBILE_7_F, [hl]
jr nz, .asm_101ec8
ld hl, wdc41
bit 2, [hl]
jr z, .asm_101eca
ld a, [wcd2f]
and a
jr nz, .asm_101ec8
ld hl, wdc41
bit 1, [hl]
jr z, .asm_101eca
.asm_101ec8
xor a
ret
.asm_101eca
scf
ret
; 101ecc
Function101ecc: ; 101ecc
call Function101ee2
call FadeToMenu
ret
; 101ed3
Function101ed3: ; 101ed3
call Function1013aa
farcall Function115d99
ld hl, wcd29
set 7, [hl]
ret
; 101ee2
Function101ee2: ; 101ee2
ld e, 0
Function101ee4: ; 101ee4
ld d, 0
ld hl, Unknown_101ef5
add hl, de
add hl, de
ld a, [hli]
ld d, [hl]
ld e, a
farcall Function100504
ret
; 101ef5
Unknown_101ef5: ; 101ef5
dw String_101f13
dw String_101f14
dw String_101f32
dw String_101f4f
dw String_101f69
dw String_101f81
dw String_101f93
dw String_101faa
dw String_101fc5
dw String_101fd2
dw String_101fe1
dw String_101fef
dw String_102000
dw String_10200c
dw String_102014
String_101f13: ; 101f13
db "@"
String_101f14: ; 101f14
db "モバイルアダプタを つかって"
next "おともだちと つうしんします@"
String_101f32: ; 101f32
db "でんわを かけるひとには"
next "つうわりょうきんが かかります@"
String_101f4f: ; 101f4f
db "モバイルアダプタの じゅんびは"
next "できて いますか?@"
String_101f69: ; 101f69
db "あなたが おともだちに"
next "でんわを かけますか?@"
String_101f81: ; 101f81
db "めいしフォルダーを"
next "つかいますか?@"
String_101f93: ; 101f93
db "でんわばんごうを にゅうりょく"
next "してください@"
String_101faa: ; 101faa
db "それでは おともだちからの"
next "でんわを おまちします⋯@"
String_101fc5: ; 101fc5
next "に でんわを かけます@"
String_101fd2: ; 101fd2
next "に でんわを かけています@"
String_101fe1: ; 101fe1
db "でんわが つながりました!@"
String_101fef: ; 101fef
db "つうわを"
next "しゅうりょう します⋯@"
String_102000: ; 102000
db "つうしん しゅうりょう@"
String_10200c: ; 10200c
db "つうわ じかん@"
String_102014: ; 102014
db "それでは つうしんの"
next "せっていを してください@"
; 10202c
Function10202c: ; 10202c
farcall Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $02
call Function10142c
ld e, $0d
call Function101ee4
hlcoord 4, 4
call Function100681
ret
; 102048
Function102048: ; 102048
call Function10204c
ret
; 10204c
Function10204c: ; 10204c
hlcoord 3, 2
ld c, $10
ld de, wcd53
.asm_102054
ld a, [de]
inc de
and a
jr z, .asm_102067
sub $30
jr c, .asm_102067
cp $0a
jr nc, .asm_102067
add $f6
ld [hli], a
dec c
jr nz, .asm_102054
.asm_102067
ret
; 102068
Function102068: ; 102068
ld hl, wcd53
ld c, $08
.asm_10206d
ld a, [de]
call Function102080
jr c, .asm_10207f
ld a, [de]
swap a
call Function102080
jr c, .asm_10207f
inc de
dec c
jr nz, .asm_10206d
.asm_10207f
ret
; 102080
Function102080: ; 102080
and $0f
cp $0f
jr z, .asm_10208a
add $30
ld [hli], a
ret
.asm_10208a
ld [hl], 0
scf
ret
; 10208e
Function10208e: ; 10208e
push de
ld h, d
ld l, e
ld de, wdc42
ld bc, 8
call CopyBytes
pop de
ret
; 10209c
Function10209c: ; 10209c
ld a, $ff
ld hl, wdc42
ld bc, 8
call ByteFill
ret
; 1020a8
Function1020a8: ; 1020a8
call Function10209c
ld c, $01
ld de, wdc42
farcall Function17a68f
ret c
call Function10208e
call Function102068
xor a
ret
; 1020bf
Function1020bf: ; 1020bf
call ClearSprites
farcall Function8aba9
ld a, c
and a
jr z, .asm_1020e8
dec a
ld hl, $a04c
ld bc, $25
call AddNTimes
ld d, h
ld e, l
ld a, $04
call GetSRAMBank
call Function10208e
call Function102068
call CloseSRAM
xor a
ret
.asm_1020e8
scf
ret
; 1020ea
Function1020ea: ; 1020ea
ld hl, wdc41
bit 4, [hl]
jr z, .quit
ld hl, wdc41
bit 2, [hl]
jr nz, .quit
call Function10218d
ld hl, wc608
bit 4, [hl]
jr z, .quit
ld hl, wc608
bit 2, [hl]
jr nz, .quit
call Function102112
jr z, .quit
and a
ret
.quit
scf
ret
; 102112
Function102112: ; 102112
ld a, $04
call GetSRAMBank
ld hl, $a041
ld c, 40
.outer_loop
push hl
ld de, $c60f
ld b, 31
.inner_loop
ld a, [de]
cp [hl]
jr nz, .not_matching
inc de
inc hl
dec b
jr nz, .inner_loop
pop hl
xor a
jr .done
.not_matching
pop hl
ld de, 37
add hl, de
dec c
jr nz, .outer_loop
ld a, $01
and a
jr .done ; useless jr
.done
push af
call CloseSRAM
pop af
ret
; 102142
Function102142: ; 102142
call Function10218d
call Function102180
ld hl, UnknownText_0x1021d1
call MenuTextBox
ld de, SFX_LEVEL_UP
call PlaySFX
call JoyWaitAorB
call ExitMenu
call Function10219f
ld hl, UnknownText_0x1021d6
call MenuTextBox
call YesNoBox
call ExitMenu
jr c, .asm_10217c
call Function1021b8
jr c, .asm_10217c
call Function10218d
call Function102180
ld hl, UnknownText_0x1021db
call PrintText
.asm_10217c
call Function1013d6
ret
; 102180
Function102180: ; 102180
ld hl, wc608 + 1
ld de, wStringBuffer2
ld bc, 11
call CopyBytes
ret
; 10218d
Function10218d: ; 10218d
ld hl, w5_dc00
ld de, wc608
ld bc, $26
ld a, $05
call FarCopyWRAM
ld de, wc608 + 1 ; useless
ret
; 10219f
Function10219f: ; 10219f
call FadeToMenu
call Function10218d
ld de, wc608 + 1
farcall Function8ac4e
call JoyWaitAorB
call PlayClickSFX
call Function1013aa
ret
; 1021b8
Function1021b8: ; 1021b8
call FadeToMenu
call Function10218d
ld de, wPlayerMoveStruct
farcall Function8ac70
ld a, c
ld [wStringBuffer1], a
push af
call Function1013aa
pop af
ret
; 1021d1
UnknownText_0x1021d1: ; 1021d1
text_jump UnknownText_0x1bd19a
db "@"
UnknownText_0x1021d6: ; 1021d1
text_jump UnknownText_0x1bd1ba
db "@"
UnknownText_0x1021db: ; 1021d1
text_jump UnknownText_0x1bd1dd
db "@"
; 1021e0
Function1021e0: ; 1021e0
call MenuTextBox
call JoyWaitAorB
call ExitMenu
ret
; 1021ea
UnknownText_0x1021ea: ; 1021ea
text_jump UnknownText_0x1bd201
db "@"
UnknownText_0x1021ef:
text_jump UnknownText_0x1bd211
db "@"
UnknownText_0x1021f4:
text_jump UnknownText_0x1bd223
db "@"
; 1021f9
Function1021f9: ; 1021f9
call Function102233
ld a, $0 ; Function10234b
ld [wcd49], a
ld hl, wcd29
bit 3, [hl]
res 3, [hl]
jr z, .asm_10220f
ld a, $1 ; Function102361
ld [wcd49], a
.asm_10220f
call Function1022ca
ld a, [wcd49]
ld hl, Jumptable_1022f5
rst JumpTable
call Function102241
call Function1022d0
jr c, .asm_102231
ld a, [wcd49]
bit 7, a
jr z, .asm_10220f
xor a
ld hl, wcd29
bit 3, [hl]
ret z
scf
ret
.asm_102231
xor a
ret
; 102233
Function102233: ; 102233
ld hl, wcd49
ld bc, 10
xor a
call ByteFill
call Function10304f
ret
; 102241
Function102241: ; 102241
call Function10226a
call Function102274
call Function10224b
ret
; 10224b
Function10224b: ; 10224b
ld hl, wcd4b
bit 1, [hl]
jr nz, .asm_10225e
bit 2, [hl]
jr nz, .asm_10225e
call DelayFrame
call DelayFrame
xor a
ret
.asm_10225e
res 1, [hl]
res 2, [hl]
farcall Mobile_ReloadMapPart
scf
ret
; 10226a
Function10226a: ; 10226a
ld hl, wcd4b
bit 0, [hl]
ret z
call Function10305d
ret
; 102274
Function102274: ; 102274
ld hl, wcd4b
bit 3, [hl]
ret z
res 3, [hl]
ld de, 8
call PlaySFX
ret
; 102283
Function102283: ; 102283
ld a, $01
ld [wAttrMapEnd], a
ld hl, wcd4b
set 0, [hl]
ret
; 10228e
Function10228e: ; 10228e
xor a
ld [wAttrMapEnd], a
ld hl, wcd4b
res 0, [hl]
ret
; 102298
Function102298: ; 102298
ld a, e
cp $02
ret nz
ld hl, wcd4b
bit 6, [hl]
jr z, .asm_1022b6
ld hl, wcd4b
bit 7, [hl]
ld hl, wcd4b
set 7, [hl]
ret nz
ld de, SFX_ELEVATOR_END
call PlaySFX
jr .asm_1022c1
.asm_1022b6
ld hl, wcd4b
bit 7, [hl]
ld hl, wcd4b
res 7, [hl]
ret z
.asm_1022c1
call Function10304f
ld a, $01
ld [wAttrMapEnd], a
ret
; 1022ca
Function1022ca: ; 1022ca
ld a, 30
ld [wOverworldDelay], a
ret
; 1022d0
Function1022d0: ; 1022d0
farcall Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_1022f3
call Function102298
ld a, [wOverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
ld b, $03
farcall AdvanceMobileInactivityTimerAndCheckExpired
jr c, .asm_1022f3
xor a
ret
.asm_1022f3
scf
ret
; 1022f5
Jumptable_1022f5: ; 1022f5
dw Function10234b ; 00
dw Function102361 ; 01
dw Function10236e ; 02
dw Function102387 ; 03
dw Function1023a1 ; 04
dw Function1025c7 ; 05
dw Function1025dc ; 06
dw Function1024f6 ; 07
dw Function10250c ; 08
dw Function1024a8 ; 09
dw Function102591 ; 0a
dw Function1024a8 ; 0b
dw Function1025b0 ; 0c
dw Function1025bd ; 0d
dw Function102814 ; 0e
dw Function10283c ; 0f
dw Function102862 ; 10
dw Function10286f ; 11
dw Function1024a8 ; 12
dw Function1028a5 ; 13
dw Function1028ab ; 14
dw Function1023b5 ; 15
dw Function1023c6 ; 16
dw Function1024af ; 17
dw Function102416 ; 18
dw Function102423 ; 19
dw Function10244b ; 1a
dw Function1024af ; 1b
dw Function10246a ; 1c
dw Function102652 ; 1d
dw Function10266b ; 1e
dw Function1025e9 ; 1f
dw Function1025ff ; 20
dw Function102738 ; 21
dw Function102754 ; 22
dw Function1026b7 ; 23
dw Function1026c8 ; 24
dw Function1028bf ; 25
dw Function1028c6 ; 26
dw Function1028d3 ; 27
dw Function1028da ; 28
dw Function1024a8 ; 29
dw Function10248d ; 2a
; 10234b
Function10234b: ; 10234b
call Function102d9a
call Function102dd3
call Function102dec
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 102361
Function102361: ; 102361
ld a, $cc
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10236e
Function10236e: ; 10236e
call Function1028fc
ret nc
ld a, [wcd51]
cp $cc
jr z, .asm_10237f
ld a, $f2
ld [wcd2b], a
ret
.asm_10237f
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 102387
Function102387: ; 102387
ld hl, wcd4b
set 6, [hl]
xor a
ld [wdc5f], a
ld de, MUSIC_ROUTE_30
call PlayMusic
call Function102d9a
call Function102dd3
ld a, $01
ld [wMenuCursorY], a
Function1023a1: ; 1023a1
call Function102283
call Function102db7
call Function102dec
ld hl, wcd4b
set 1, [hl]
ld a, $1d
ld [wcd49], a
ret
; 1023b5
Function1023b5: ; 1023b5
call Function10228e
call Function102a3b
call Function102b12
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1023c6
Function1023c6: ; 1023c6
call Function102c48
call Function102c87
ld a, [wcd4c]
dec a
ld [wCurPartyMon], a
xor a
ld [wPokemonWithdrawDepositParameter], a
farcall RemoveMonFromPartyOrBox
ld hl, wPartyCount
inc [hl]
ld a, [hli]
ld c, a
ld b, 0
add hl, bc
ld [hl], $ff
ld a, [wPartyCount]
ld [wcd4c], a
call Function102c07
call Function102d48
call Function102b32
call Function102f50
ld hl, wcd4b
set 1, [hl]
ld a, $14
ld [wcd4e], a
ld a, 0
ld [wcd4f], a
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 102416
Function102416: ; 102416
ld a, $aa
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 102423
Function102423: ; 102423
call Function102921
ret nc
farcall SaveAfterLinkTrade
farcall StubbedTrainerRankings_Trades
farcall BackupMobileEventIndex
ld hl, wcd4b
set 1, [hl]
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10244b
Function10244b: ; 10244b
call Function102f32
ld hl, wcd4b
set 1, [hl]
ld a, $19
ld [wcd4e], a
ld a, 0
ld [wcd4f], a
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10246a
Function10246a: ; 10246a
call Function102d9a
ld hl, wcd29
set 3, [hl]
call Function102e07
ld hl, wcd4b
set 1, [hl]
ld a, $2a
ld [wcd49], a
ret
; 102480
Function102480: ; 102480
ld c, $32
call DelayFrames
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10248d
Function10248d: ; 10248d
ld a, [wcd49]
set 7, a
ld [wcd49], a
ret
; 102496
Function102496: ; 102496
ld hl, wcd4e
dec [hl]
ret nz
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1024a8
Function1024a8: ; 1024a8
farcall Function1009f3
ret c
Function1024af: ; 1024af
call GetJoypad
ld a, [wcd4a]
ld hl, Jumptable_1024ba
rst JumpTable
ret
; 1024ba
Jumptable_1024ba: ; 1024ba
dw Function1024c0
dw Function1024cb
dw Function1024de
; 1024c0
Function1024c0: ; 1024c0
ld hl, wcd4e
inc [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
Function1024cb: ; 1024cb
ld hl, wcd4e
dec [hl]
ret nz
ld a, [wcd4f]
inc a
ld [wcd4e], a
ld a, [wcd4a]
inc a
ld [wcd4a], a
Function1024de: ; 1024de
ld hl, wcd4e
dec [hl]
jr z, .asm_1024e9
ld a, [hJoyPressed]
and A_BUTTON | B_BUTTON
ret z
.asm_1024e9
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1024f6
Function1024f6: ; 1024f6
call PlaceHollowCursor
ld hl, wcd4b
set 1, [hl]
ld a, [wcd4c]
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10250c
Function10250c: ; 10250c
call Function1028fc
ret nc
ld a, [wcd51]
cp $0f
jr z, .asm_10254b
and a
jr z, .asm_102572
cp $aa
jr z, .asm_102572
cp $07
jr nc, .asm_102572
ld [wcd4d], a
dec a
ld [wd003], a
ld a, [wcd4c]
dec a
ld [wd002], a
call Function102b9c
call Function102bdc
jr c, .asm_10256d
farcall Functionfb5dd
jr c, .asm_102568
ld hl, wcd4b
set 1, [hl]
ld a, $0e
ld [wcd49], a
ret
.asm_10254b
call Function103021
ld hl, wcd4b
set 1, [hl]
ld a, 0
ld [wcd4a], a
ld a, $1e
ld [wcd4e], a
ld a, $1e
ld [wcd4f], a
ld a, $29
ld [wcd49], a
ret
.asm_102568
call Function102ff5
jr .asm_102577
.asm_10256d
call Function102f85
jr .asm_102577
.asm_102572
call Function102fce
jr .asm_102577
.asm_102577
ld hl, wcd4b
set 1, [hl]
ld a, 0
ld [wcd4a], a
ld a, $1e
ld [wcd4e], a
ld a, $3c
ld [wcd4f], a
ld a, $09
ld [wcd49], a
ret
; 102591
Function102591: ; 102591
call Function102ee7
ld hl, wcd4b
set 1, [hl]
ld a, 0
ld [wcd4a], a
ld a, $1e
ld [wcd4e], a
ld a, $3c
ld [wcd4f], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1025b0
Function1025b0: ; 1025b0
ld a, $09
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1025bd
Function1025bd: ; 1025bd
call Function1028fc
ret nc
ld a, $04
ld [wcd49], a
ret
; 1025c7
Function1025c7: ; 1025c7
call Function102f6d
ld hl, wcd4b
set 1, [hl]
ld a, $0f
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1025dc
Function1025dc: ; 1025dc
call Function1028fc
ret nc
ld a, [wcd49]
set 7, a
ld [wcd49], a
ret
; 1025e9
Function1025e9: ; 1025e9
nop
ld hl, wcd4b
set 6, [hl]
call Function102b4e
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1025ff
Function1025ff: ; 1025ff
ld hl, wcd4b
set 2, [hl]
farcall Function1009f3
ret c
farcall MobileMenuJoypad
ld a, [wMenuJoypadFilter]
and c
ret z
bit A_BUTTON_F, c
jr nz, .a_button
bit D_UP_F, c
jr nz, .d_up
bit D_DOWN_F, c
jr nz, .d_down
ret
.a_button
ld hl, wcd4b
set 3, [hl]
ld a, $27 ; Function1028d3
ld [wcd49], a
ret
.d_up
ld a, [wMenuCursorY]
ld b, a
ld a, [wOTPartyCount]
cp b
ret nz
call HideCursor
ld a, [wPartyCount]
ld [wMenuCursorY], a
ld a, $1d ; Function102652
ld [wcd49], a
ret
.d_down
ld a, [wMenuCursorY]
cp $01
ret nz
ld a, $23 ; Function1026b7
ld [wcd49], a
ret
; 102652
Function102652: ; 102652
nop
ld hl, wcd4b
set 6, [hl]
nop
call Function102b7b
nop
ld hl, wcd4b
set 1, [hl]
nop
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10266b
Function10266b: ; 10266b
ld hl, wcd4b
set 2, [hl]
farcall Function1009f3
ret c
farcall MobileMenuJoypad
ld a, [wMenuJoypadFilter]
and c
ret z
bit A_BUTTON_F, c
jr nz, .a_button
bit D_DOWN_F, c
jr nz, .d_down
bit D_UP_F, c
jr nz, .d_up
ret
.a_button
ld hl, wcd4b
set 3, [hl]
ld a, $21 ; Function102738
ld [wcd49], a
ret
.d_down
ld a, [wMenuCursorY]
dec a
ret nz
call HideCursor
ld a, $1f ; Function1025e9
ld [wcd49], a
ret
.d_up
ld a, [wMenuCursorY]
ld b, a
ld a, [wPartyCount]
cp b
ret nz
ld a, $23 ; Function1026b7
ld [wcd49], a
ret
; 1026b7
Function1026b7: ; 1026b7
ld hl, wcd4b
set 6, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ld a, 0
ld [wcd4a], a
Function1026c8: ; 1026c8
call GetJoypad
farcall Function1009f3
ret c
ld a, [wcd4a]
ld hl, Jumptable_1026da
rst JumpTable
ret
; 1026da
Jumptable_1026da: ; 1026da
dw Function1026de
dw Function1026f3
; 1026de
Function1026de: ; 1026de
call HideCursor
hlcoord 9, 17
ld [hl], $ed
ld a, [wcd4a]
inc a
ld [wcd4a], a
ld hl, wcd4b
set 1, [hl]
ret
; 1026f3
Function1026f3: ; 1026f3
ld a, [hJoyPressed]
bit A_BUTTON_F, a
jr nz, .asm_102723
bit D_UP_F, a
jr nz, .asm_102712
bit D_DOWN_F, a
jr nz, .asm_102702
ret
.asm_102702
hlcoord 9, 17
ld [hl], " "
ld a, $01
ld [wMenuCursorY], a
ld a, $1d ; Function102652
ld [wcd49], a
ret
.asm_102712
hlcoord 9, 17
ld [hl], " "
ld a, [wOTPartyCount]
ld [wMenuCursorY], a
ld a, $1f ; Function1025e9
ld [wcd49], a
ret
.asm_102723
hlcoord 9, 17
ld [hl], "▷"
ld hl, wcd4b
set 3, [hl]
ld hl, wcd4b
set 2, [hl]
ld a, $5 ; Function1025c7
ld [wcd49], a
ret
; 102738
Function102738: ; 102738
ld hl, wcd4b
set 6, [hl]
call PlaceHollowCursor
call Function1027eb
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ld a, 0
ld [wcd4a], a
Function102754: ; 102754
call GetJoypad
farcall Function1009f3
ret c
ld a, [wcd4a]
ld hl, Jumptable_102766
rst JumpTable
ret
; 102766
Jumptable_102766: ; 102766
dw Function102770
dw Function102775
dw Function10278c
dw Function1027a0
dw Function1027b7
; 102770
Function102770: ; 102770
ld a, $01
ld [wcd4a], a
Function102775: ; 102775
hlcoord 1, 16
ld [hl], "▶"
hlcoord 11, 16
ld [hl], " "
ld hl, wcd4b
set 2, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
ret
; 10278c
Function10278c: ; 10278c
ld a, [hJoyPressed]
bit A_BUTTON_F, a
jr nz, asm_1027c6
bit B_BUTTON_F, a
jr nz, asm_1027e2
bit D_RIGHT_F, a
jr nz, .asm_10279b
ret
.asm_10279b
ld a, $03
ld [wcd4a], a
Function1027a0: ; 1027a0
hlcoord 1, 16
ld [hl], " "
hlcoord 11, 16
ld [hl], "▶"
ld hl, wcd4b
set 2, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
ret
Function1027b7: ; 1027b7
ld a, [hJoyPressed]
bit A_BUTTON_F, a
jr nz, asm_1027d1
bit B_BUTTON_F, a
jr nz, asm_1027e2
bit D_LEFT_F, a
jr nz, Function102770
ret
asm_1027c6:
ld hl, wcd4b
set 3, [hl]
ld a, $25 ; Function1028bf
ld [wcd49], a
ret
asm_1027d1:
ld hl, wcd4b
set 3, [hl]
ld a, [wMenuCursorY]
ld [wcd4c], a
ld a, $7 ; Function1024f6
ld [wcd49], a
ret
asm_1027e2:
call Function102db7
ld a, $1d ; Function102652
ld [wcd49], a
ret
; 1027eb
Function1027eb: ; 1027eb
hlcoord 0, 14
ld b, 2
ld c, 18
ld d, h
ld e, l
farcall _LinkTextbox
ld de, .Stats_Trade
hlcoord 2, 16
call PlaceString
ret
; 102804
.Stats_Trade: ; 102804
db "STATS TRADE@"
; 102814
Function102814: ; 102814
ld a, [wMenuCursorY]
ld [wcd52], a
ld a, [wcd4c]
dec a
ld [wd002], a
ld a, [wcd4d]
dec a
ld [wd003], a
call Function102ea8
ld a, [wcd49]
inc a
ld [wcd49], a
ld a, 0
ld [wcd4a], a
ld hl, wcd4b
set 1, [hl]
Function10283c: ; 10283c
ld hl, wcd4b
set 2, [hl]
call Function1029c3
ret z
jr c, .asm_102852
ld a, $10 ; Function102862
ld [wcd49], a
ld hl, wcd4b
set 1, [hl]
ret
.asm_102852
ld a, $14 ; Function1028ab
ld [wcd49], a
ld hl, wcd4b
set 3, [hl]
ld hl, wcd4b
set 1, [hl]
ret
; 102862
Function102862: ; 102862
ld a, $08
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10286f
Function10286f: ; 10286f
call Function1028fc
ret nc
ld a, [wcd52]
ld [wMenuCursorY], a
ld a, [wcd51]
cp $08
jr nz, .asm_102886
ld a, $15 ; Function1023b5
ld [wcd49], a
ret
.asm_102886
call Function102ee7
ld hl, wcd4b
set 1, [hl]
ld a, $1e
ld [wcd4e], a
ld a, $3c
ld [wcd4f], a
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1028a5
Function1028a5: ; 1028a5
ld a, $4 ; Function1023a1
ld [wcd49], a
ret
; 1028ab
Function1028ab: ; 1028ab
ld a, [wcd52]
ld [wMenuCursorY], a
call Function102f15
ld hl, wcd4b
set 1, [hl]
ld a, $c ; Function1025b0
ld [wcd49], a
ret
; 1028bf
Function1028bf: ; 1028bf
ld a, [wcd49]
inc a
ld [wcd49], a
Function1028c6: ; 1028c6
xor a
ld [wMonType], a
call Function102bac
ld a, $1d ; Function102652
ld [wcd49], a
ret
; 1028d3
Function1028d3: ; 1028d3
ld a, [wcd49]
inc a
ld [wcd49], a
Function1028da: ; 1028da
ld a, OTPARTYMON
ld [wMonType], a
call Function102bac
ld a, $1f ; Function1025e9
ld [wcd49], a
ret
; 1028e8
Function1028e8: ; 1028e8
ld hl, wcd4b
res 6, [hl]
ld [wcd50], a
farcall StartMobileInactivityTimer
ld a, 0
ld [wcd4a], a
ret
; 1028fc
Function1028fc: ; 1028fc
call GetJoypad
farcall Function1009f3
jr nc, .asm_102909
and a
ret
.asm_102909
ld a, [wcd4a]
ld hl, Jumptable_102917
rst JumpTable
ret nc
ld a, 0
ld [wcd4a], a
ret
; 102917
Jumptable_102917: ; 102917
dw Function102933
dw Function10294f
dw Function10295d
dw Function10296e
dw Function102996
; 102921
Function102921: ; 102921
ld a, [wcd4a]
ld hl, Jumptable_10292f
rst JumpTable
ret nc
ld a, 0
ld [wcd4a], a
ret
; 10292f
Jumptable_10292f: ; 10292f
dw Function10295d
dw Function102984
; 102933
Function102933: ; 102933
ld hl, MenuHeader_1029bb
call LoadMenuHeader
call Function102e07
ld a, $32
ld [wTextDelayFrames], a
ld hl, wcd4b
set 1, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
; 10294f
Function10294f: ; 10294f
ld a, [wTextDelayFrames]
and a
ret nz
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
; 10295d
Function10295d: ; 10295d
call Function10299e
ld a, 0
ld [wcd27], a
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
; 10296e
Function10296e: ; 10296e
farcall Function100382
and a
ld a, [wcd27]
bit 7, a
ret z
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
; 102984
Function102984: ; 102984
farcall Function100382
and a
ld a, [wcd27]
bit 7, a
ret z
call Function1029af
scf
ret
; 102996
Function102996: ; 102996
call Function1029af
call ExitMenu
scf
ret
; 10299e
Function10299e: ; 10299e
ld a, $01
ld [wccb4], a
ld a, [wcd50]
ld [wccb5], a
ld a, $aa
ld [wcd51], a
ret
; 1029af
Function1029af: ; 1029af
ld hl, wcd4b
res 7, [hl]
ld a, [wcc61]
ld [wcd51], a
ret
; 1029bb
MenuHeader_1029bb: ; 1029bb
db MENU_BACKUP_TILES ; flags
menu_coords 3, 10, 15, 12
dw NULL
db 1 ; default option
; 1029c3
Function1029c3: ; 1029c3
ld a, [wcd4a]
ld hl, Jumptable_1029cb
rst JumpTable
ret
; 1029cb
Jumptable_1029cb: ; 1029cb
dw Function1029cf
dw Function1029fe
; 1029cf
Function1029cf: ; 1029cf
call LoadStandardMenuHeader
hlcoord 10, 7
ld b, 3
ld c, 8
ld d, h
ld e, l
farcall _LinkTextbox
ld de, String_102a26
hlcoord 12, 8
call PlaceString
ld hl, wcd4b
set 1, [hl]
ld de, MenuData3_102a33
call SetMenuAttributes
ld a, [wcd4a]
inc a
ld [wcd4a], a
xor a
ret
; 1029fe
Function1029fe: ; 1029fe
farcall Function1009f3
ret c
farcall MobileMenuJoypad
ld a, c
ld hl, wMenuJoypadFilter
and [hl]
ret z
push af
call ExitMenu
pop af
ld a, [wMenuCursorY]
cp $01
jr nz, .asm_102a21
ld a, $01
and a
ret
.asm_102a21
ld a, $01
and a
scf
ret
; 102a26
String_102a26: ; 102a26
db "TRADE"
next "CANCEL"
db "@"
; 102a33
MenuData3_102a33:
db 8, 11
db 2, 1
db $80, $00
dn 2, 0
db A_BUTTON
Function102a3b: ; 102a3b
ld a, [wcd30]
ld [wc74e], a
ld hl, wPlayerName
ld de, wPlayerTrademonSenderName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4c]
dec a
ld c, a
ld b, 0
ld hl, wPartySpecies
add hl, bc
ld a, [hl]
ld [wPlayerTrademonSpecies], a
ld a, [wcd4c]
dec a
ld hl, wPartyMonOT
call SkipNames
ld de, wPlayerTrademonOTName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4c]
dec a
ld hl, wPartyMon1ID
call GetPartyLocation
ld a, [hli]
ld [wPlayerTrademonID], a
ld a, [hl]
ld [wPlayerTrademonID + 1], a
ld a, [wcd4c]
dec a
ld hl, wPartyMon1DVs
call GetPartyLocation
ld a, [hli]
ld [wPlayerTrademonDVs], a
ld a, [hl]
ld [wPlayerTrademonDVs + 1], a
ld a, [wcd4c]
dec a
ld hl, wPartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
farcall GetCaughtGender
ld a, c
ld [wPlayerTrademonCaughtData], a
ld hl, wOTPlayerName
ld de, wOTTrademonSenderName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4d]
dec a
ld c, a
ld b, 0
ld hl, wOTPartySpecies
add hl, bc
ld a, [hl]
ld [wOTTrademonSpecies], a
ld a, [wcd4d]
dec a
ld hl, wOTPartyMonOT
call SkipNames
ld de, wOTTrademonOTName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4d]
dec a
ld hl, wOTPartyMon1ID
call GetPartyLocation
ld a, [hli]
ld [wOTTrademonID], a
ld a, [hl]
ld [wOTTrademonID + 1], a
ld a, [wcd4d]
dec a
ld hl, wOTPartyMon1DVs
call GetPartyLocation
ld a, [hli]
ld [wOTTrademonDVs], a
ld a, [hl]
ld [wOTTrademonDVs + 1], a
ld a, [wcd4d]
dec a
ld hl, wOTPartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
farcall GetCaughtGender
ld a, c
ld [wOTTrademonCaughtData], a
ret
; 102b12
Function102b12: ; 102b12
ld c, 100
call DelayFrames
call Function102d9a
call LoadFontsBattleExtra
ld a, [wcd2f]
and a
jr nz, .asm_102b2b
farcall Function108026
jr .asm_102b31
.asm_102b2b
farcall Function10802a
.asm_102b31
ret
; 102b32
Function102b32: ; 102b32
ld a, [wcd4c]
dec a
ld [wCurPartyMon], a
ld a, $01
ld [wForceEvolution], a
farcall EvolvePokemon
call Function102d9a
call Function102dd3
call Function102dec
ret
; 102b4e
Function102b4e: ; 102b4e
ld a, OTPARTYMON
ld [wMonType], a
ld a, [wMenuCursorY]
push af
ld de, Unknown_102b73
call SetMenuAttributes
pop af
ld [wMenuCursorY], a
ld a, [wOTPartyCount]
ld [w2DMenuNumRows], a
ret
; 102b68
Unreferenced_Function102b68: ; 102b68
xor a
ld hl, wWindowStackPointer
ld bc, $10
call ByteFill
ret
; 102b73
Unknown_102b73:
db 9, 6
db 255, 1
db $a0, $00
dn 1, 0
db D_UP | D_DOWN | A_BUTTON
Function102b7b: ; 102b7b
xor a
ld [wMonType], a
ld a, [wMenuCursorY]
push af
ld de, Unknown_102b94
call SetMenuAttributes
pop af
ld [wMenuCursorY], a
ld a, [wPartyCount]
ld [w2DMenuNumRows], a
ret
; 102b94
Unknown_102b94:
db 1, 6
db 255, 1
db $a0, $00
dn 1, 0
db D_UP | D_DOWN | A_BUTTON
Function102b9c: ; 102b9c
ld a, [wcd4d]
dec a
hlcoord 6, 9
ld bc, $14
call AddNTimes
ld [hl], $ec
ret
; 102bac
Function102bac: ; 102bac
ld a, [wMenuCursorY]
dec a
ld [wCurPartyMon], a
call LowVolume
call ClearSprites
farcall _MobileStatsScreenInit
ld a, [wCurPartyMon]
inc a
ld [wMenuCursorY], a
call Function102d9a
call ClearPalettes
call DelayFrame
call MaxVolume
call Function102dd3
call Function102dec
call Function102db7
ret
; 102bdc
Function102bdc: ; 102bdc
ld a, [wcd4d]
dec a
ld hl, wOTPartyMon1Species
call GetPartyLocation
push hl
ld a, [wcd4d]
ld c, a
ld b, 0
ld hl, wOTPartyCount
add hl, bc
ld a, [hl]
pop hl
cp EGG
jr z, .asm_102bfa
cp [hl]
jr nz, .asm_102c05
.asm_102bfa
ld bc, MON_LEVEL
add hl, bc
ld a, [hl]
cp MAX_LEVEL + 1
jr nc, .asm_102c05
and a
ret
.asm_102c05
scf
ret
; 102c07
Function102c07: ; 102c07
call Function102c14
call Function102c3b
call Function102c21
call Function102c2e
ret
; 102c14
Function102c14: ; 102c14
ld hl, wPartySpecies
ld de, wOTPartySpecies
ld bc, 1
call Function102c71
ret
; 102c21
Function102c21: ; 102c21
ld hl, wPartyMonNicknames
ld de, wOTPartyMonNicknames
ld bc, 11
call Function102c71
ret
; 102c2e
Function102c2e: ; 102c2e
ld hl, wPartyMonOT
ld de, wOTPartyMonOT
ld bc, 11
call Function102c71
ret
; 102c3b
Function102c3b: ; 102c3b
ld hl, wPartyMon1
ld de, wOTPartyMon1
ld bc, $30
call Function102c71
ret
; 102c48
Function102c48: ; 102c48
farcall Function10165a
ld a, 0
call GetSRAMBank
ld hl, $a600
ld de, wc608
ld bc, $2f
call Function102c71
call CloseSRAM
ld hl, wc608
ld de, w5_da00
ld bc, $1e0
ld a, $05
call FarCopyWRAM
ret
; 102c71
Function102c71: ; 102c71
ld a, [wcd4c]
dec a
call AddNTimes
push hl
ld h, d
ld l, e
ld a, [wcd4d]
dec a
call AddNTimes
pop de
call SwapBytes
ret
; 102c87
Function102c87: ; 102c87
ld a, [wJumptableIndex]
push af
ld a, [wcf64]
push af
ld a, [wcd4c]
ld [wJumptableIndex], a
ld a, [wPartyCount]
ld [wcf64], a
ld a, 0
ld hl, $a600
ld de, wc608
ld bc, $11a
call Function102d3e
call Function102cee
ld a, 0
ld hl, wc608
ld de, $a600
ld bc, $11a
call Function102d3e
ld a, [wcd4d]
ld [wJumptableIndex], a
ld a, [wOTPartyCount]
ld [wcf64], a
ld a, $05
ld hl, w5_da00
ld de, wc608
ld bc, $11a
call FarCopyWRAM
call Function102cee
ld a, $05
ld hl, wc608
ld de, w5_da00
ld bc, $11a
call FarCopyWRAM
pop af
ld [wcf64], a
pop af
ld [wJumptableIndex], a
ret
; 102cee
Function102cee: ; 102cee
ld a, [wJumptableIndex]
dec a
call Function102d34
ld de, wd002
ld bc, $2f
call CopyBytes
ld a, [wJumptableIndex]
ld c, a
ld a, $06
sub c
ret z
ld bc, $2f
ld hl, 0
call AddNTimes
push hl
ld a, [wJumptableIndex]
dec a
call Function102d34
ld d, h
ld e, l
ld hl, $2f
add hl, de
pop bc
call CopyBytes
ld a, [wcf64]
dec a
call Function102d34
ld d, h
ld e, l
ld hl, wd002
ld bc, $2f
call CopyBytes
ret
; 102d34
Function102d34: ; 102d34
ld hl, wc608
ld bc, $2f
call AddNTimes
ret
; 102d3e
Function102d3e: ; 102d3e
call GetSRAMBank
call CopyBytes
call CloseSRAM
ret
; 102d48
Function102d48: ; 102d48
ld a, [wcd4c]
ld e, a
ld d, 0
ld hl, wPartyCount
add hl, de
ld a, [hl]
ld [wd265], a
cp EGG
jr z, .asm_102d6d
dec a
call SetSeenAndCaughtMon
ld a, [wcd4c]
dec a
ld bc, PARTYMON_STRUCT_LENGTH
ld hl, wPartyMon1Happiness
call AddNTimes
ld [hl], BASE_HAPPINESS
.asm_102d6d
ld a, [wd265]
cp UNOWN
jr nz, .asm_102d98
ld a, [wcd4c]
dec a
ld bc, PARTYMON_STRUCT_LENGTH
ld hl, wPartyMon1DVs
call AddNTimes
predef GetUnownLetter
farcall UpdateUnownDex
ld a, [wFirstUnownSeen]
and a
jr nz, .asm_102d98
ld a, [wUnownLetter]
ld [wFirstUnownSeen], a
.asm_102d98
and a
ret
; 102d9a
Function102d9a: ; 102d9a
ld a, " "
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
ld a, $07
hlcoord 0, 0, wAttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
farcall HDMATransferAttrMapAndTileMapToWRAMBank3
ret
; 102db7
Function102db7: ; 102db7
call Function102e4f
call Function102e3e
ld hl, wcd4b
set 1, [hl]
ret
; 102dc3
Function102dc3: ; 102dc3
hlcoord 0, 12
ld b, 4
ld c, 18
ld d, h
ld e, l
farcall _LinkTextbox
ret
; 102dd3
Function102dd3: ; 102dd3
call DisableLCD
ld de, GFX_1032a2
ld hl, vTiles0
lb bc, BANK(GFX_1032a2), 4
call Get2bpp
farcall __LoadTradeScreenBorder
call EnableLCD
ret
; 102dec
Function102dec: ; 102dec
ld hl, Palettes_1032e2
ld de, wOBPals1
ld bc, 4 palettes
ld a, $05
call FarCopyWRAM
farcall Function49742
call SetPalettes
call DelayFrame
ret
; 102e07
Function102e07: ; 102e07
hlcoord 3, 10
ld b, 1
ld c, 11
ld a, [wBattleMode]
and a
jr z, .link_battle
call TextBox
jr .okay
.link_battle
; this is idiotic
hlcoord 3, 10
ld b, 1
ld c, 11
ld d, h
ld e, l
farcall _LinkTextbox
.okay
ld de, .waiting
hlcoord 4, 11
call PlaceString
ret
; 102e32
.waiting ; 102e32
db "Waiting...!@"
; 102e3e
Function102e3e: ; 102e3e
ld de, .CANCEL
hlcoord 10, 17
call PlaceString
ret
; 102e48
.CANCEL: ; 102e48
db "CANCEL@"
; 102e4f
Function102e4f: ; 102e4f
farcall Function16d42e
farcall _InitMG_Mobile_LinkTradePalMap
ld de, wPlayerName
hlcoord 4, 0
call PlaceString
ld a, $14
ld [bc], a
ld de, wOTPlayerName
hlcoord 4, 8
call PlaceString
ld a, $14
ld [bc], a
hlcoord 7, 1
ld de, wPartySpecies
call .PlaceSpeciesNames
hlcoord 7, 9
ld de, wOTPartySpecies
call .PlaceSpeciesNames
ret
; 102e86
.PlaceSpeciesNames: ; 102e86
ld c, 0
.count_loop
ld a, [de]
cp $ff
ret z
ld [wd265], a
push bc
push hl
push de
push hl
ld a, c
ld [hDividend], a
call GetPokemonName
pop hl
call PlaceString
pop de
inc de
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
inc c
jr .count_loop
; 102ea8
Function102ea8: ; 102ea8
call Function102dc3
ld a, [wcd4c]
dec a
ld c, a
ld b, 0
ld hl, wPartySpecies
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ld hl, wStringBuffer1
ld de, wStringBuffer2
ld bc, 11
call CopyBytes
ld a, [wcd4d]
dec a
ld c, a
ld b, 0
ld hl, wOTPartySpecies
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ld hl, UnknownText_0x102ee2
call PrintTextBoxText
ret
; 102ee2
UnknownText_0x102ee2: ; 102ee2
text_jump UnknownText_0x1bd286
db "@"
Function102ee7: ; 102ee7
call Function102dc3
ld de, String_102ef4
hlcoord 1, 14
call PlaceString
ret
; 102ef4
String_102ef4: ; 102ef4
db "Too bad! The trade"
next "was canceled!"
db "@"
; 102f15
Function102f15: ; 102f15
call Function102dc3
ld de, .TooBadTheTradeWasCanceled
hlcoord 1, 14
call PlaceString
ret
; 102f22
.TooBadTheTradeWasCanceled: ; 102f22
db "こうかんを キャンセルしました@"
; 102f32
Function102f32: ; 102f32
call Function102dc3
ld de, .TradeCompleted
hlcoord 1, 14
call PlaceString
ret
; 102f3f
.TradeCompleted: ; 102f3f
db "Trade completed!@"
; 102f50
Function102f50: ; 102f50
call Function102dc3
ld de, .PleaseWait
hlcoord 1, 14
call PlaceString
ret
; 102f5d
.PleaseWait: ; 102f5d
db "しょうしょう おまち ください@"
; 102f6d
Function102f6d: ; 102f6d
call Function102dc3
ld de, .Finished
hlcoord 1, 14
call PlaceString
ret
; 102f7a
.Finished: ; 102f7a
db "しゅうりょう します@"
; 102f85
Function102f85: ; 102f85
ld a, [wd003]
ld c, a
ld b, 0
ld hl, wOTPartySpecies
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
call Function102dc3
ld de, String_102fb2
hlcoord 1, 14
call PlaceString
ld de, wStringBuffer1
hlcoord 13, 14
call PlaceString
ld de, String_102fcc
call PlaceString
ret
; 102fb2
String_102fb2: ; 102fb2
db "あいてがわ<PKMN>えらんだ "
next "いじょう<PKMN>あるようです!!"
db "@"
; 102fcc
String_102fcc: ; 102fcc
db "に@"
; 102fce
Function102fce: ; 102fce
call Function102dc3
ld de, String_102fdb
hlcoord 1, 14
call PlaceString
ret
; 102fdb
String_102fdb: ; 102fdb
db "あいてがわ<NO>せんたくに"
next "いじょう<PKMN>あるようです!!"
done
; 102ff5
Function102ff5: ; 102ff5
call Function102dc3
ld de, String_103002
hlcoord 1, 14
call PlaceString
ret
; 103002
String_103002: ; 103002
db "その#を こうかんすると"
next "せんとう できなく なっちゃうよ!"
db "@"
; 103021
Function103021: ; 103021
call Function102dc3
ld de, String_10302e
hlcoord 1, 14
call PlaceString
ret
; 10302e
String_10302e: ; 10302e
db "あいてが ちゅうしを えらんだので"
next "こうかんを ちゅうし します"
db "@"
; 10304f
Function10304f: ; 10304f
xor a
ld [wAttrMapEnd], a
ld [wcf42], a
ld [wcf44], a
ld [wcf45], a
ret
; 10305d
Function10305d: ; 10305d
nop
ld a, [wAttrMapEnd]
and a
ret z
call Function10307f
ret c
call Function103094
call Function10306e
ret
; 10306e
Function10306e: ; 10306e
ld a, $01
ld [hOAMUpdate], a
call ClearSprites
ld de, wVirtualOAM
call Function1030cd
xor a
ld [hOAMUpdate], a
ret
; 10307f
Function10307f: ; 10307f
ld c, $02
ld hl, wcd4b
bit 7, [hl]
jr z, .asm_10308a
ld c, $01
.asm_10308a
ld hl, wcf45
inc [hl]
ld a, [hl]
cp c
ret c
xor a
ld [hl], a
ret
; 103094
Function103094: ; 103094
ld hl, wcd4b
bit 7, [hl]
jr nz, .asm_1030c0
ld a, [wcf42]
bit 7, a
jr nz, .asm_1030b2
ld a, [wcf44]
inc a
ld [wcf44], a
cp $2c
ret nz
ld hl, wcf42
set 7, [hl]
ret
.asm_1030b2
ld a, [wcf44]
dec a
ld [wcf44], a
ret nz
ld hl, wcf42
res 7, [hl]
ret
.asm_1030c0
ld hl, wcf44
ld a, [hl]
and a
jr z, .asm_1030ca
dec a
ld [hl], a
ret nz
.asm_1030ca
ld [hl], $2c
ret
; 1030cd
Function1030cd: ; 1030cd
ld a, [wcf44]
ld l, a
ld h, 0
add hl, hl
add hl, hl
add hl, hl
ld bc, Unknown_103112
add hl, bc
ld b, $30
ld c, $08
.asm_1030de
push hl
ld hl, wcd4b
bit 7, [hl]
pop hl
ld a, 0
jr z, .asm_1030eb
ld a, $05
.asm_1030eb
add [hl]
inc hl
push hl
add a
add a
add LOW(Unknown_10327a)
ld l, a
ld a, HIGH(Unknown_10327a)
adc 0
ld h, a
ld a, b
add [hl]
inc hl
ld [de], a
inc de
ld a, $0a
add [hl]
inc hl
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
pop hl
ld a, b
add $08
ld b, a
dec c
jr nz, .asm_1030de
ret
; 103112
Unknown_103112: ; 103112
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $01, $00, $00, $00, $00, $00, $00, $00
db $02, $01, $00, $00, $00, $00, $00, $00
db $03, $02, $01, $00, $00, $00, $00, $00
db $04, $03, $02, $01, $00, $00, $00, $00
db $04, $04, $03, $02, $01, $00, $00, $00
db $04, $04, $04, $03, $02, $01, $00, $00
db $04, $04, $04, $04, $03, $02, $01, $00
db $04, $04, $04, $04, $04, $03, $02, $01
db $04, $04, $04, $04, $04, $04, $03, $02
db $04, $04, $04, $04, $04, $04, $04, $03
db $04, $04, $04, $04, $04, $04, $04, $04
db $04, $04, $04, $04, $04, $04, $04, $04
db $04, $04, $04, $04, $04, $04, $04, $04
db $04, $04, $04, $04, $04, $04, $04, $04
db $04, $04, $04, $04, $04, $04, $04, $04
db $04, $04, $04, $04, $04, $04, $04, $04
db $04, $04, $04, $04, $04, $04, $04, $04
db $04, $04, $04, $04, $04, $04, $04, $04
db $03, $04, $04, $04, $04, $04, $04, $04
db $02, $03, $04, $04, $04, $04, $04, $04
db $01, $02, $03, $04, $04, $04, $04, $04
db $00, $01, $02, $03, $04, $04, $04, $04
db $00, $00, $01, $02, $03, $04, $04, $04
db $00, $00, $00, $01, $02, $03, $04, $04
db $00, $00, $00, $00, $01, $02, $03, $04
db $00, $00, $00, $00, $00, $01, $02, $03
db $00, $00, $00, $00, $00, $00, $01, $02
db $00, $00, $00, $00, $00, $00, $00, $01
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
db $00, $00, $00, $00, $00, $00, $00, $00
; 10327a
Unknown_10327a: ; 10327a
db $00, $00, $00, $00
db $00, $00, $01, $00
db $00, $00, $02, $00
db $00, $00, $03, $00
db $00, $00, $01, $01
db $00, $00, $00, $00
db $00, $00, $01, $02
db $00, $00, $02, $02
db $00, $00, $03, $02
db $00, $00, $01, $03
GFX_1032a2:
INCBIN "gfx/unknown/1032a2.2bpp"
Palettes_1032e2:
RGB 0, 0, 0
RGB 31, 31, 7
RGB 20, 31, 6
RGB 13, 20, 16
RGB 0, 0, 0
RGB 7, 11, 17
RGB 0, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
RGB 31, 24, 4
RGB 25, 12, 0
RGB 31, 7, 4
RGB 0, 0, 0
RGB 25, 0, 0
RGB 0, 0, 0
RGB 0, 0, 0
; 103302
Function103302: ; 103302
call Function103309
call Function103362
ret
; 103309
Function103309: ; 103309
xor a
ld [hBGMapMode], a
ld hl, wBuffer1
ld bc, 10
xor a
call ByteFill
ld a, $04
call GetSRAMBank
ld a, [wdc41]
ld [$a60c], a
ld [wBuffer1], a
call CloseSRAM
call Function1035c6
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
ld a, [hli]
ld [wd1ef], a
ld a, [hli]
ld [wd1ec], a
ld a, [hli]
ld [wd1ed], a
ld h, d
ld l, e
call Function3eea
ld hl, wd1ec
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hl]
ld [wd1ee], a
call Function1034be
call UpdateSprites
farcall HDMATransferAttrMapAndTileMapToWRAMBank3
ld a, $01
ld [wd1f0], a
call Function10339a
ret
; 103362
Function103362: ; 103362
.asm_103362
ld a, [wd1f0]
ld [wd1f1], a
call Function1033af
call Function10339a
call Function10342c
farcall HDMATransferTileMapToWRAMBank3
ld a, [wBuffer2]
bit 7, a
jr z, .asm_103362
ld hl, wBuffer2
bit 6, [hl]
jr z, .asm_103398
ld a, $04
call GetSRAMBank
ld a, [wBuffer1]
ld [$a60c], a
ld [wdc41], a
call CloseSRAM
xor a
ret
.asm_103398
scf
ret
; 10339a
Function10339a: ; 10339a
ld a, [wd1f0]
ld [wd1f2], a
ld c, a
ld b, 0
ld hl, wd1ec
ld a, [hli]
ld h, [hl]
ld l, a
add hl, bc
ld a, [hl]
ld [wd1f3], a
ret
; 1033af
Function1033af: ; 1033af
call GetJoypad
ld a, [hJoyPressed]
bit D_LEFT_F, a
jr nz, .left
bit D_RIGHT_F, a
jr nz, .right
bit B_BUTTON_F, a
jr nz, .b
bit A_BUTTON_F, a
jr nz, .a
bit D_UP_F, a
jr nz, .up
bit D_DOWN_F, a
jr nz, .down
ret
.up
ld a, [wd1f0]
dec a
ld [wd1f0], a
cp 1
ret nc
ld a, [wd1ee]
ld [wd1f0], a
ret
.down
ld a, [wd1f0]
inc a
ld [wd1f0], a
ld c, a
ld a, [wd1ee]
cp c
ret nc
ld a, 1
ld [wd1f0], a
ret
.b
call PlayClickSFX
ld hl, wBuffer2
set 7, [hl]
ret
.a
ld a, [wd1f3]
cp 3
jr nz, .a_return
ld de, SFX_TRANSACTION
call PlaySFX
ld hl, wBuffer2
set 7, [hl]
ld hl, wBuffer2
set 6, [hl]
ret
.left
.right
.a_return
ld a, [wd1f3]
cp 3
ret z
ld de, SFX_PUSH_BUTTON
call PlaySFX
ld bc, 8
call Function10350f
ld a, [wBuffer1]
xor e
ld [wBuffer1], a
ret
; 10342c
Function10342c: ; 10342c
ld a, [wd1f0]
ld [wd1f2], a
call Function103490
call Function10343c
call Function1034a7
ret
; 10343c
Function10343c: ; 10343c
ld a, [wd1f3]
cp $02
jr nz, .asm_103452
ld bc, 1
call Function1034f7
ld c, $12
ld b, $01
call Function1034e0
jr .asm_10345f
.asm_103452
ld bc, $ffed
call Function1034f7
ld c, $12
ld b, $02
call Function1034e0
.asm_10345f
ld bc, 0
call Function10350f
ld bc, 1
call Function103487
ld bc, 8
call Function10350f
ld a, [wBuffer1]
and e
ld bc, 2
jr z, .asm_10347d
ld bc, 4
.asm_10347d
call Function10350f
ld bc, 11
call Function103487
ret
; 103487
Function103487: ; 103487
push de
call Function1034f7
pop de
call PlaceString
ret
; 103490
Function103490: ; 103490
hlcoord 0, 15
ld c, $14
ld b, $03
call Function1034e0
ld bc, 6
call Function10350f
hlcoord 1, 16
call PlaceString
ret
; 1034a7
Function1034a7: ; 1034a7
ld a, [wd1f1]
ld [wd1f2], a
ld bc, 10
call Function1034f7
ld [hl], $7f
ld bc, 10
call Function1034f1
ld [hl], $ed
ret
; 1034be
Function1034be: ; 1034be
ld a, $01
ld [wd1f2], a
ld hl, wd1ec
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hli]
.asm_1034ca
push af
ld a, [hli]
push hl
ld [wd1f3], a
call Function10343c
ld hl, wd1f2
inc [hl]
pop hl
pop af
dec a
jr nz, .asm_1034ca
call Function103490
ret
; 1034e0
Function1034e0: ; 1034e0
push bc
push hl
call ClearBox
pop hl
ld bc, wAttrMap - wTileMap
add hl, bc
pop bc
ld a, $06
call FillBoxWithByte
ret
; 1034f1
Function1034f1: ; 1034f1
ld a, [wd1f0]
ld [wd1f2], a
Function1034f7: ; 10134f7
hlcoord 0, 0
add hl, bc
ld a, [wd1ef]
ld bc, SCREEN_WIDTH
call AddNTimes
ld a, [wd1f2]
dec a
ld bc, 40
call AddNTimes
ret
; 10350f
Function10350f: ; 10350f
ld a, [wd1f3]
push bc
ld hl, Unknown_103522
ld bc, 9
call AddNTimes
pop bc
add hl, bc
ld a, [hli]
ld d, [hl]
ld e, a
ret
; 103522
Unknown_103522: ; 103522
dw String_103546
dw String_103598
dw String_1035a0
dw String_10355f
db $01
dw String_10354f
dw String_1035a8
dw String_1035b1
dw String_103571
db $02
dw String_103557
dw String_1035ba
dw String_1035bd
dw String_103585
db $04
dw String_103545
dw String_1035c1
dw String_1035c1
dw String_103545
String_103545: db "@"
String_103546: db "せんとう アニメ@"
String_10354f: db "でんわばんごう@"
String_103557: db "めいしこうかん@"
String_10355f: db "でんわを かけるひとが きめられる@"
String_103571: db "でんわばんごうの にゅうりょくのしかた@"
String_103585: db "あたらしいめいしが あれば こうかん@"
String_103598: db "とばして みる@"
String_1035a0: db "じっくり みる@"
String_1035a8: db "めいしからえらぶ@"
String_1035b1: db "すうじで いれる@"
String_1035ba: db "する@"
String_1035bd: db "しない@"
String_1035c1: db "けってい@"
; 1035c6
Function1035c6: ; 1035c6
farcall Function10138b
ld b, 0
ld hl, Unknown_1035d7
add hl, bc
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ret
; 1035d7
Unknown_1035d7: ; 1035d7
dw Unknown_1035e7
dw Unknown_1035f3
dw Unknown_103608
dw Unknown_103608
dw Unknown_1035fe
dw AskMobileOrCable
dw AskMobileOrCable
dw AskMobileOrCable
Unknown_1035e7: ; 1035e7
dwcoord 0, 6
db $12, $07, $07
dw .this
.this
db 4, 2, 1, 0, 3
Unknown_1035f3: ; 1035f3
dwcoord 0, 7
db $12, $06, $09
dw .this
.this
db 3, 2, 1, 3
Unknown_1035fe: ; 1035fe
dwcoord 0, 9
db $12, $04, $0b
dw .this
.this
db 2, 0, 3
Unknown_103608: ; 103608
dwcoord 0, 9
db $12, $04, $0b
dw .this
.this
db 2, 2, 3
; 103612
AskMobileOrCable: ; 103612
ld hl, MenuHeader_103640
call LoadMenuHeader
ld a, [wMobileOrCable_LastSelection]
and $0f
jr z, .skip_load
ld [wMenuCursorBuffer], a
.skip_load
call VerticalMenu
call CloseWindow
jr c, .pressed_b
ld a, [wMenuCursorY]
ld [wScriptVar], a
ld c, a
ld a, [wMobileOrCable_LastSelection]
and $f0
or c
ld [wMobileOrCable_LastSelection], a
ret
.pressed_b
xor a
ld [wScriptVar], a
ret
; 103640
MenuHeader_103640: ; 103640
db MENU_BACKUP_TILES ; flags
menu_coords 13, 6, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
dw MenuData_103648
db 1 ; default option
MenuData_103648: ; 103648
db STATICMENU_CURSOR ; flags
db 2
db "モバイル@"
db "ケーブル@"
; 103654
Function103654: ; 103654
farcall Mobile_AlwaysReturnNotCarry
bit 7, c
jr nz, .asm_103666
ld hl, wcd2a
res 5, [hl]
ld c, $02
ret
.asm_103666
ld hl, wcd2a
set 5, [hl]
ld c, $01
ret
; 10366e
Mobile_SelectThreeMons: ; 10366e
farcall Mobile_AlwaysReturnNotCarry
bit 7, c
jr z, .asm_10369b
ld hl, UnknownText_0x10375d
call PrintText
call YesNoBox
jr c, .asm_103696
farcall CheckForMobileBattleRules
jr nc, .asm_103690
call JoyWaitAorB
jr .asm_103696
.asm_103690
ld a, $01
ld [wScriptVar], a
ret
.asm_103696
xor a
ld [wScriptVar], a
ret
.asm_10369b
ld hl, wMobileOrCable_LastSelection
bit 7, [hl]
set 7, [hl]
jr nz, .asm_1036b5
ld hl, UnknownText_0x103762
call PrintText
call YesNoBox
jr c, .asm_1036b5
call Function1036f9
call JoyWaitAorB
.asm_1036b5
call Function103700
jr c, .asm_1036f4
ld hl, MenuHeader_103747
call LoadMenuHeader
call VerticalMenu
call ExitMenu
jr c, .asm_1036f4
ld a, [wMenuCursorY]
cp $01
jr z, .asm_1036d9
cp $02
jr z, .asm_1036f4
cp $03
jr z, .asm_1036ec
jr .asm_1036b5
.asm_1036d9
farcall CheckForMobileBattleRules
jr nc, .asm_1036e6
call JoyWaitAorB
jr .asm_1036f4
.asm_1036e6
ld a, $01
ld [wScriptVar], a
ret
.asm_1036ec
call Function1036f9
call JoyWaitAorB
jr .asm_1036b5
.asm_1036f4
xor a
ld [wScriptVar], a
ret
; 1036f9
Function1036f9: ; 1036f9
ld hl, UnknownText_0x103767
call PrintText
ret
; 103700
Function103700: ; 103700
ld c, $0a
ld hl, wSwarmFlags
bit SWARMFLAGS_MOBILE_4_F, [hl]
jr z, .asm_10370f
farcall Function1008a6
.asm_10370f
ld a, c
ld [wStringBuffer2], a
ld a, [wStringBuffer2]
cp $05
jr nc, .asm_103724
cp $02
jr nc, .asm_10372c
cp $01
jr nc, .asm_103734
jr .asm_10373c
.asm_103724
ld hl, UnknownText_0x10376c
call PrintText
and a
ret
.asm_10372c
ld hl, UnknownText_0x103771
call PrintText
and a
ret
.asm_103734
ld hl, UnknownText_0x103776
call PrintText
and a
ret
.asm_10373c
ld hl, UnknownText_0x10377b
call PrintText
call JoyWaitAorB
scf
ret
; 103747
MenuHeader_103747: ; 103747
db MENU_BACKUP_TILES ; flags
menu_coords 13, 5, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
dw MenuData_10374f
db 1 ; default option
MenuData_10374f: ; 10374f
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
db 3
db "はい@"
db "やめる@"
db "せつめい@"
; 10375d
UnknownText_0x10375d: ; 0x10375d
text_jump UnknownText_0x1c422a
db "@"
; 0x103762
UnknownText_0x103762: ; 0x103762
text_jump UnknownText_0x1c4275
db "@"
; 0x103767
UnknownText_0x103767: ; 0x103767
text_jump UnknownText_0x1c4298
db "@"
; 0x10376c
UnknownText_0x10376c: ; 0x10376c
text_jump UnknownText_0x1c439c
db "@"
; 0x103771
UnknownText_0x103771: ; 0x103771
text_jump UnknownText_0x1c43dc
db "@"
; 0x103776
UnknownText_0x103776: ; 0x103776
text_jump UnknownText_0x1c4419
db "@"
; 0x10377b
UnknownText_0x10377b: ; 0x10377b
text_jump UnknownText_0x1c445a
db "@"
; 0x103780
Function103780: ; 103780
ld a, [wd265]
push af
call Function10378c
pop af
ld [wd265], a
ret
; 10378c
Function10378c: ; 10378c
ld c, 0
ld hl, wSwarmFlags
bit SWARMFLAGS_MOBILE_4_F, [hl]
jr nz, .already_set
ld c, 1
ld hl, wSwarmFlags
set SWARMFLAGS_MOBILE_4_F, [hl]
.already_set
push bc
farcall Link_SaveGame
pop bc
jr c, .failed_to_save
ld a, 1
ld [wScriptVar], a
ld a, c
and a
ret z
farcall Function1006fd
ret
.failed_to_save
xor a
ld [wScriptVar], a
ld a, c
and a
ret z
ld hl, wSwarmFlags
res SWARMFLAGS_MOBILE_4_F, [hl]
ret
; 1037c2
Function1037c2: ; 1037c2
call Function103823
jr c, .nope
ld a, [wdc5f]
and a
jr z, .nope
ld hl, UnknownText_0x1037e6
call PrintText
call YesNoBox
jr c, .nope
ld a, $01
ld [wScriptVar], a
ret
.nope
xor a
ld [wdc5f], a
ld [wScriptVar], a
ret
; 1037e6
UnknownText_0x1037e6: ; 0x1037e6
text_jump UnknownText_0x1c449c
db "@"
; 0x1037eb
Function1037eb: ; 1037eb
call Function103823
jr nc, .asm_103807
ld hl, UnknownText_0x103819
call PrintText
call JoyWaitAorB
ld hl, UnknownText_0x10381e
call PrintText
call JoyWaitAorB
xor a
ld [wScriptVar], a
ret
.asm_103807
ld a, [wdc60]
and a
jr nz, .asm_103813
ld a, $01
ld [wScriptVar], a
ret
.asm_103813
ld a, $02
ld [wScriptVar], a
ret
; 103819
UnknownText_0x103819: ; 0x103819
text_jump UnknownText_0x1c44c0
db "@"
; 0x10381e
UnknownText_0x10381e: ; 0x10381e
text_jump UnknownText_0x1c44e7
db "@"
; 0x103823
Function103823: ; 103823
farcall Mobile_AlwaysReturnNotCarry
bit 7, c
jr nz, .asm_103838
farcall Function1008a6
ld a, c
cp $01
jr c, .asm_10383a
.asm_103838
xor a
ret
.asm_10383a
scf
ret
; 10383c
Function10383c: ; 10383c
ld a, $01
ld [wdc60], a
xor a
ld hl, wPlayerMonSelection
ld [hli], a
ld [hli], a
ld [hl], a
ld hl, UnknownText_0x103876
call PrintText
call JoyWaitAorB
farcall Script_reloadmappart
farcall Function4a94e
jr c, .asm_103870
ld hl, wd002
ld de, wPlayerMonSelection
ld bc, 3
call CopyBytes
xor a
ld [wScriptVar], a
ret
.asm_103870
ld a, $01
ld [wScriptVar], a
ret
; 103876
UnknownText_0x103876: ; 0x103876
text_jump UnknownText_0x1c4508
db "@"
; 0x10387b
Function10387b: ; 10387b
farcall Mobile_AlwaysReturnNotCarry
bit 7, c
ret nz
farcall Function1008a6
ld a, c
ld [wStringBuffer2], a
ld hl, UnknownText_0x103898
call PrintText
call JoyWaitAorB
ret
; 103898
UnknownText_0x103898: ; 0x103898
text_jump UnknownText_0x1c4525
db "@"
; 0x10389d