pokecrystal-board/mobile/mobile_40.asm

7681 lines
111 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
Function100000:
2015-12-07 08:28:58 -08:00
; d: 1 or 2
; e: bank
; bc: addr
ldh a, [rSVBK]
push af
2016-05-05 12:07:37 -07:00
ld a, 1
ldh [rSVBK], a
call Function100022
call Function1000ba
call Function100675
call Function100057
call Function10016f
call Function100276
push bc
call Function100301
pop bc
pop af
ldh [rSVBK], a
ret
2018-06-24 07:09:41 -07:00
Function100022:
push de
push bc
2016-05-05 12:07:37 -07:00
call SetRAMStateForMobile
pop bc
pop de
ld a, d
ld [wcd21], a
ld a, e
2015-12-07 08:28:58 -08:00
ld [wcd22], a
ld a, c
ld [wcd23], a
ld a, b
ld [wcd24], a
2017-12-24 09:47:30 -08:00
farcall Function10127e
farcall Stubbed_Function106462
2017-12-24 09:47:30 -08:00
farcall Function106464 ; load broken gfx
farcall Function11615a ; init RAM
2018-01-23 14:39:09 -08:00
ld hl, wVramState
set 1, [hl]
ret
2018-06-24 07:09:41 -07:00
Function100057:
2016-05-05 12:07:37 -07:00
call DisableMobile
2015-11-11 20:38:57 -08:00
call ReturnToMapFromSubmenu
2018-01-23 14:39:09 -08:00
ld hl, wVramState
res 1, [hl]
ret
2018-06-24 07:09:41 -07:00
SetRAMStateForMobile:
xor a
2018-01-23 14:39:09 -08:00
ld hl, wBGMapBuffer
2015-12-07 08:28:58 -08:00
ld bc, $65
call ByteFill
xor a
2019-08-22 19:10:58 -07:00
ld hl, wMobileWRAM
ld bc, wMobileWRAMEnd - wMobileWRAM
call ByteFill
ldh a, [rIE]
2018-01-23 14:39:09 -08:00
ld [wBGMapBuffer], a
xor a
ldh [hMapAnims], a
ldh [hLCDCPointer], a
ret
2018-06-24 07:09:41 -07:00
EnableMobile:
xor a
ld hl, wOverworldMapBlocks
ld bc, wOverworldMapBlocksEnd - wOverworldMapBlocks
call ByteFill
2016-05-05 12:07:37 -07:00
di
call DoubleSpeed
xor a
ldh [rIF], a
2019-05-05 09:14:46 -07:00
ld a, IE_DEFAULT
ldh [rIE], a
xor a
ldh [hMapAnims], a
ldh [hLCDCPointer], a
2016-01-12 09:46:18 -08:00
ld a, $01
ldh [hMobileReceive], a
ldh [hMobile], a
ei
2016-05-05 12:07:37 -07:00
ret
2018-06-24 07:09:41 -07:00
DisableMobile:
di
xor a
ldh [hMobileReceive], a
ldh [hMobile], a
xor a
ldh [hVBlank], a
call NormalSpeed
xor a
ldh [rIF], a
2018-01-23 14:39:09 -08:00
ld a, [wBGMapBuffer]
ldh [rIE], a
ei
ret
2018-06-24 07:09:41 -07:00
Function1000ba:
2015-12-07 08:28:58 -08:00
.loop
2016-05-05 12:07:37 -07:00
; call [wcd22]:([wcd23][wcd24] + [wMobileCommsJumptableIndex])
ld hl, wcd23
ld a, [hli]
ld h, [hl]
ld l, a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
ld e, a
2015-12-07 08:28:58 -08:00
ld d, 0
add hl, de
2015-12-26 18:59:03 -08:00
add hl, de
2015-12-07 08:28:58 -08:00
ld a, [wcd22]
call GetFarHalfword
2015-12-07 08:28:58 -08:00
ld a, [wcd22]
rst FarCall
2015-12-07 08:28:58 -08:00
call Function1000e8
call Function1000fa
call Function100144
call Function100163
ld a, [wcd2b]
and a
2015-12-07 08:28:58 -08:00
jr z, .loop
call DelayFrame
ret
2018-06-24 07:09:41 -07:00
Function1000e8:
ld hl, wcd29
bit 7, [hl]
ret z
2017-12-24 09:47:30 -08:00
farcall Function115dd3
ld hl, wcd29
set 6, [hl]
ret
2018-06-24 07:09:41 -07:00
Function1000fa:
ld a, [wc30d]
and a
ret z
ld hl, wcd29
bit 4, [hl]
ret z
ld a, [wcd2b]
and a
jr nz, .asm_100117
2017-12-24 09:47:30 -08:00
farcall Function11619d
ld hl, wcd29
set 6, [hl]
ret
.asm_100117
di
xor a
ldh [rIF], a
ldh a, [rIE]
2019-05-05 09:14:46 -07:00
and $1f ^ (1 << SERIAL | 1 << TIMER)
ldh [rIE], a
xor a
ldh [hMobileReceive], a
ldh [hMobile], a
ei
2015-11-23 13:04:53 -08:00
ld a, [wLinkMode]
push af
xor a
ld [wLinkMode], a
2016-01-12 09:46:18 -08:00
ld a, $04
2015-11-11 11:12:46 -08:00
ld [wc314 + 5], a
2017-12-24 09:47:30 -08:00
farcall Function11619d
ld hl, wcd29
set 6, [hl]
pop af
ld [wLinkMode], a
ret
2018-06-24 07:09:41 -07:00
Function100144:
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
2018-06-24 07:09:41 -07:00
Function100163:
ld hl, wcd29
bit 6, [hl]
ret z
res 6, [hl]
call DelayFrame
ret
2018-06-24 07:09:41 -07:00
Function10016f:
ld a, [wcd2b]
2016-01-12 09:46:18 -08:00
cp $01
ret z
2016-01-12 09:46:18 -08:00
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
2015-11-07 18:04:54 -08:00
ret ; ????????????????????????????
.asm_1001af
ld a, $d7
2015-11-02 11:37:02 -08:00
ld de, 0
jr .asm_1001d7
.asm_1001b6
ld a, $d5
2015-11-02 11:37:02 -08:00
ld de, 0
jr .asm_1001d7
.asm_1001bd
ld a, $d6
2015-11-02 11:37:02 -08:00
ld de, 0
jr .asm_1001d7
.asm_1001c4
ld a, $d2
2015-12-07 08:28:58 -08:00
ld de, 2
jr .asm_1001d7
.asm_1001cb
ld a, $d1
2015-12-07 08:28:58 -08:00
ld de, 1
jr .asm_1001d7
.asm_1001d2
ld a, $d0
2015-11-02 11:37:02 -08:00
ld de, 0
.asm_1001d7
ld [wMobileErrorCodeBuffer], a
ld a, d
ld [wMobileErrorCodeBuffer + 2], a
ld a, e
ld [wMobileErrorCodeBuffer + 1], 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 [wMobileErrorCodeBuffer], a
ld a, [wcd2d]
ld [wMobileErrorCodeBuffer + 2], a
ld a, [wcd2d]
ld [wMobileErrorCodeBuffer + 1], a
call Function10020b
ret
2018-06-24 07:09:41 -07:00
Function10020b:
xor a
ld [wc303], a
farcall FadeOutPalettes
2017-12-24 09:47:30 -08:00
farcall Function106464
call HideSprites
call DelayFrame
ldh a, [rSVBK]
push af
2016-01-12 09:46:18 -08:00
ld a, $01
ldh [rSVBK], a
2017-12-24 09:47:30 -08:00
farcall DisplayMobileError
pop af
ldh [rSVBK], a
ret
2018-06-24 07:09:41 -07:00
Function100232:
push de
2017-12-24 09:47:30 -08:00
farcall Function106464
call Function3f20
call UpdateSprites
hlcoord 1, 2
pop de
call PlaceString
call Function100320
call JoyWaitAorB
ret
2018-06-24 07:09:41 -07:00
String10024d:
db "つうしんを キャンセル しました@"
2018-06-24 07:09:41 -07:00
String10025e:
db "おともだちと えらんだ へやが"
next "ちがうようです@"
2018-06-24 07:09:41 -07:00
Function100276:
ld a, [wcd2b]
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_10029f
2016-01-12 09:46:18 -08:00
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
2016-01-12 09:46:18 -08:00
ld c, $02
ret
.asm_100296
2017-12-24 09:47:30 -08:00
farcall Script_reloadmappart
2016-01-12 09:46:18 -08:00
ld c, $04
ret
.asm_10029f
call Function1002dc
2015-12-07 08:28:58 -08:00
ld c, 0
ret
.asm_1002a5
2017-12-24 09:47:30 -08:00
farcall Script_reloadmappart
call Function1002ed
2016-01-12 09:46:18 -08:00
ld c, $03
ret
.asm_1002b1
call Function1002c9
call Function1002dc
ld de, String10024d
call Function100232
2016-01-12 09:46:18 -08:00
ld c, $02
ret
.asm_1002c0
call Function1002c9
call Function1002dc
2016-01-12 09:46:18 -08:00
ld c, $01
ret
2018-06-24 07:09:41 -07:00
Function1002c9:
ld hl, wcd2a
bit 0, [hl]
ret z
2017-12-24 09:47:30 -08:00
farcall CleanUpBattleRAM
farcall LoadPokemonData
ret
2018-06-24 07:09:41 -07:00
Function1002dc:
2015-11-11 20:38:57 -08:00
ld a, MAPSETUP_LINKRETURN
ldh [hMapEntryMethod], a
2017-12-24 09:47:30 -08:00
farcall RunMapSetupScript
xor a
ldh [hMapEntryMethod], a
2015-11-04 13:14:27 -08:00
call LoadStandardFont
ret
2018-06-24 07:09:41 -07:00
Function1002ed:
2017-12-24 09:47:30 -08:00
farcall LoadOW_BGPal7
farcall ApplyPals
2016-01-12 09:46:18 -08:00
ld a, $01
ldh [hCGBPalUpdate], a
call DelayFrame
ret
2018-06-24 07:09:41 -07:00
Function100301:
ld hl, wcd2a
bit 1, [hl]
ret z
2017-12-24 09:47:30 -08:00
farcall Function106464
farcall Function10202c
farcall Function115dd3
call Function100320
call JoyWaitAorB
ret
2018-06-24 07:09:41 -07:00
Function100320:
2017-12-24 09:47:30 -08:00
farcall Mobile_ReloadMapPart
ret
2018-06-24 07:09:41 -07:00
Function100327:
farcall HDMATransferTilemapToWRAMBank3
ret
2018-06-24 07:09:41 -07:00
Function10032e:
call Function10034d
ld e, a
ret nc
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function100337:
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
2018-06-24 07:09:41 -07:00
Function10034d:
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
2016-01-12 09:46:18 -08:00
ld a, $01
and a
ret
.asm_100364
xor a
ret
.asm_100366
2016-01-12 09:46:18 -08:00
ld a, $02
and a
ret
.asm_10036a
2015-12-07 08:28:58 -08:00
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
2018-06-24 07:09:41 -07:00
Function100382:
ld a, [wcd27]
ld hl, Jumptable_10044e
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Function10038a:
ld hl, wccb4
ld a, $2e
call Function3e32
ret
2018-06-24 07:09:41 -07:00
Function100393:
ld hl, wcc60
ld a, $3a
call Function3e32
ret
2018-06-24 07:09:41 -07:00
Function10039c:
ld hl, wcc60
ld de, w3_d000
2015-12-07 08:28:58 -08:00
ld bc, $54
2016-01-12 09:46:18 -08:00
ld a, $03
call FarCopyWRAM
ret
2018-06-24 07:09:41 -07:00
Function1003ab:
ld hl, w3_d000
ld de, wcc60
2015-12-07 08:28:58 -08:00
ld bc, $54
2016-01-12 09:46:18 -08:00
ld a, $03
call FarCopyWRAM
ret
2018-06-24 07:09:41 -07:00
Function1003ba:
ld hl, wccb4
ld de, w3_d080
2015-12-07 08:28:58 -08:00
ld bc, $54
2016-01-12 09:46:18 -08:00
ld a, $03
call FarCopyWRAM
ret
2018-06-24 07:09:41 -07:00
Function1003c9:
ld hl, w3_d080
ld de, wccb4
2015-12-07 08:28:58 -08:00
ld bc, $54
2016-01-12 09:46:18 -08:00
ld a, $03
call FarCopyWRAM
ret
2018-06-24 07:09:41 -07:00
Function1003d8:
ld hl, wccb4
ld a, [hli]
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
push hl
add hl, bc
2018-01-23 14:39:09 -08:00
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
2016-01-12 09:46:18 -08:00
add $02
ld [wccb4], a
ret
2018-06-24 07:09:41 -07:00
Function1003f5:
ld a, [wcc60]
2016-01-12 09:46:18 -08:00
sub $03
ld [wcc60], a
ld a, [wccb4]
2016-01-12 09:46:18 -08:00
sub $03
ld [wccb4], a
ret
2018-06-24 07:09:41 -07:00
Function100406:
ld a, [wcc60]
2016-01-12 09:46:18 -08:00
sub $02
ld c, a
2015-12-07 08:28:58 -08:00
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
2018-01-23 14:39:09 -08:00
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
2018-06-24 07:09:41 -07:00
Function10043a:
push hl
push bc
2015-11-02 11:37:02 -08:00
ld de, 0
.asm_10043f
ld a, [hli]
add e
ld e, a
ld a, d
2015-12-07 08:28:58 -08:00
adc 0
ld d, a
dec bc
ld a, b
or c
jr nz, .asm_10043f
pop bc
pop hl
ret
2018-06-24 07:09:41 -07:00
Jumptable_10044e:
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
2018-06-24 07:09:41 -07:00
Function10046a:
2018-01-23 14:39:09 -08:00
ld hl, wBGMapPalBuffer
inc [hl]
call Function1003d8
call Function1003ba
ld a, [wcd27]
inc a
ld [wcd27], a
ret
2018-06-24 07:09:41 -07:00
Function10047c:
call Function100337
ret c
ret z
2016-01-12 09:46:18 -08:00
cp $02
jr z, .asm_100487
jr .asm_10048d
.asm_100487
2016-01-12 09:46:18 -08:00
ld a, $08
ld [wcd27], a
ret
.asm_10048d
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd27], a
ret
2018-06-24 07:09:41 -07:00
Function100493:
jr asm_100497
2018-06-24 07:09:41 -07:00
Function100495:
jr asm_100497
2018-10-24 12:33:18 -07:00
asm_100497:
call Function100337
ret c
ret z
ld a, [wcd27]
inc a
ld [wcd27], a
ret
2018-06-24 07:09:41 -07:00
Function1004a4:
call Function100406
jr c, .asm_1004b8
call Function1003c9
call Function1003f5
ld a, [wcd27]
set 7, a
ld [wcd27], a
ret
.asm_1004b8
scf
ret
2018-06-24 07:09:41 -07:00
Function1004ba:
call Function10038a
and a
jr nz, .asm_1004c8
ld a, [wcd27]
inc a
ld [wcd27], a
ret
.asm_1004c8
2016-01-12 09:46:18 -08:00
ld a, $08
ld [wcd27], a
ret
2018-06-24 07:09:41 -07:00
Function1004ce:
call Function100337
ret c
ret z
2016-01-12 09:46:18 -08:00
cp $02
ret nz
ld a, [wcd27]
inc a
ld [wcd27], a
ret
2018-06-24 07:09:41 -07:00
Function1004de:
call Function100393
ld a, [wcd27]
inc a
ld [wcd27], a
ret
2018-06-24 07:09:41 -07:00
Function1004e9:
call Function10038a
ld a, [wcd27]
inc a
ld [wcd27], a
ret
2018-06-24 07:09:41 -07:00
Function1004f4:
call Function100337
ret c
ret z
ld a, [wcd27]
inc a
ld [wcd27], a
call Function10039c
ret
2018-06-24 07:09:41 -07:00
Function100504:
push de
call Function3f20
call UpdateSprites
pop de
hlcoord 4, 2
call PlaceString
ret
2018-06-24 07:09:41 -07:00
Function100513:
call Function3f7c
2015-12-15 15:59:49 -08:00
call PlaceVerticalMenuItems
call InitVerticalMenuCursor
ld hl, w2DMenuFlags1
set 7, [hl]
ret
2018-06-24 07:09:41 -07:00
Function100522:
ld a, [wcd28]
ld hl, Jumptable_10052a
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_10052a:
dw Function100534
dw Function100545
dw Function100545
dw Function100545
dw Function10054d
2018-06-24 07:09:41 -07:00
Function100534:
call Function100513
call UpdateSprites
2015-11-25 07:16:29 -08:00
call ApplyTilemap
ld a, [wcd28]
inc a
ld [wcd28], a
ret
2018-06-24 07:09:41 -07:00
Function100545:
ld a, [wcd28]
inc a
ld [wcd28], a
ret
2018-06-24 07:09:41 -07:00
Function10054d:
2017-12-24 09:47:30 -08:00
farcall MobileMenuJoypad
ld a, c
ld hl, wMenuJoypadFilter
and [hl]
ret z
2015-12-15 15:59:49 -08:00
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
2018-06-24 07:09:41 -07:00
Function100579:
ld a, [wcd26]
ld hl, Jumptable_100581
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_100581:
dw Function100585
dw Function100597
2018-06-24 07:09:41 -07:00
Function100585:
ld hl, MenuHeader_1005b2
call LoadMenuHeader
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd28], a
ld a, [wcd26]
inc a
ld [wcd26], a
2018-06-24 07:09:41 -07:00
Function100597:
call Function100522
ld a, [wcd28]
bit 7, a
ret z
jr nc, .asm_1005a6
xor a
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
.asm_1005a6
call ExitMenu
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
MenuHeader_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 "いいえ@"
2018-06-24 07:09:41 -07:00
Function1005c3:
ld a, [wcd26]
ld hl, Jumptable_1005cb
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_1005cb:
dw Function1005cf
dw Function1005e1
2018-06-24 07:09:41 -07:00
Function1005cf:
ld hl, MenuHeader_1005fc
call LoadMenuHeader
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd28], a
ld a, [wcd26]
inc a
ld [wcd26], a
2018-06-24 07:09:41 -07:00
Function1005e1:
call Function100522
ld a, [wcd28]
bit 7, a
ret z
jr nc, .asm_1005f0
xor a
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
.asm_1005f0
call ExitMenu
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
MenuHeader_1005fc:
db MENU_BACKUP_TILES ; flags
db 6, 14
db 10, 19
dw MenuData_100604
db 1 ; default option
2018-06-24 07:09:41 -07:00
MenuData_100604:
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
db 2
db "かける@"
db "まつ@"
2018-06-24 07:09:41 -07:00
Mobile_CommunicationStandby:
hlcoord 3, 10
2016-05-05 12:07:37 -07:00
ld b, 1
ld c, 11
call Function3eea
2016-05-05 12:07:37 -07:00
ld de, .String
hlcoord 4, 11
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.String:
db "つうしんたいきちゅう!@"
2018-06-24 07:09:41 -07:00
AdvanceMobileInactivityTimerAndCheckExpired:
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
2018-06-24 07:09:41 -07:00
StartMobileInactivityTimer:
xor a
ld [wMobileInactivityTimerMinutes], a
ld [wMobileInactivityTimerSeconds], a
ld [wMobileInactivityTimerFrames], a
ret
2018-06-24 07:09:41 -07:00
IncrementMobileInactivityTimerBy1Frame:
ld c, 1
2018-06-24 07:09:41 -07:00
IncrementMobileInactivityTimerByCFrames:
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
2018-06-24 07:09:41 -07:00
Function100665:
call UpdateTime
ld hl, wcd36
ldh a, [hHours]
ld [hli], a
ldh a, [hMinutes]
ld [hli], a
ldh a, [hSeconds]
ld [hl], a
ret
2018-06-24 07:09:41 -07:00
Function100675:
ld hl, wcd2a
bit 2, [hl]
set 2, [hl]
ret nz
call Function1006d3
ret
2018-06-24 07:09:41 -07:00
Function100681:
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
2018-06-24 07:09:41 -07:00
Function100697:
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
2018-06-24 07:09:41 -07:00
String1006c2:
db "ふん @"
2018-06-24 07:09:41 -07:00
String1006c6:
db "びょう@"
2018-06-24 07:09:41 -07:00
String1006ca:
db "1じかんいじょう@"
2018-06-24 07:09:41 -07:00
Function1006d3:
call UpdateTime
ld de, wcd34
ld hl, wcd38
2018-06-24 07:09:41 -07:00
Function1006dc:
ld a, [hld]
ld c, a
ldh a, [hSeconds]
sub c
jr nc, .asm_1006e5
add $3c
.asm_1006e5
ld [de], a
dec de
ld a, [hld]
ld c, a
ldh a, [hMinutes]
sbc c
jr nc, .asm_1006f0
add $3c
.asm_1006f0
ld [de], a
dec de
ld a, [hl]
ld c, a
ldh a, [hHours]
sbc c
jr nc, .asm_1006fb
add $18
.asm_1006fb
ld [de], a
ret
2019-11-17 10:47:42 -08:00
MobileBattleResetTimer:
ld a, BANK(sMobileBattleTimer)
ld hl, sMobileBattleTimer
call GetSRAMBank
xor a
ld [hli], a
ld [hli], a
ld [hli], a
call CloseSRAM
ret
MobileBattleFixTimer:
ld a, BANK(sMobileBattleTimer)
ld hl, sMobileBattleTimer
call GetSRAMBank
xor a ; MOBILE_BATTLE_ALLOWED_SECONDS
ld [hli], a
ld a, MOBILE_BATTLE_ALLOWED_MINUTES
ld [hli], a
xor a
ld [hli], a
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
Function100720:
xor a
ld [wcd6a], a
call UpdateTime
ldh a, [hHours]
ld [wcd72], a
ldh a, [hMinutes]
ld [wcd73], a
ldh a, [hSeconds]
ld [wcd74], a
ld a, BANK(sMobileBattleTimer)
ld hl, sMobileBattleTimer
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
2018-06-24 07:09:41 -07:00
Function100754:
call UpdateTime
ldh a, [hHours]
ld [wcd72], a
ldh a, [hMinutes]
ld [wcd73], a
ldh a, [hSeconds]
ld [wcd74], a
ld a, [wcd6d]
ld [wcd6b], a
ld hl, wcd2a
res 6, [hl]
ret
2018-06-24 07:09:41 -07:00
Function100772:
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
2018-06-24 07:09:41 -07:00
Function10079c:
ld a, [wcd21]
2016-01-12 09:46:18 -08:00
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
2018-06-24 07:09:41 -07:00
Function1007f6:
call UpdateTime
ld hl, wcd74
ld de, wcd71
call Function1006dc
2016-01-12 09:46:18 -08:00
ld a, $04
call GetSRAMBank
ld hl, $a802
call Function100826
call CloseSRAM
ld hl, wcd6e
call Function100826
ldh a, [hHours]
ld [wcd72], a
ldh a, [hMinutes]
ld [wcd73], a
ldh a, [hSeconds]
ld [wcd74], a
ret
2018-06-24 07:09:41 -07:00
Function100826:
ld a, [wcd71]
add [hl]
sub $3c
jr nc, .asm_100830
add $3c
.asm_100830
ld [hld], a
ccf
2019-11-17 10:47:42 -08:00
ld a, [wcd70]
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
2018-06-24 07:09:41 -07:00
Function100846:
ld hl, wcd2a
bit 5, [hl]
jr nz, .asm_10087c
ld a, [wcd6e]
ld c, a
2015-12-07 08:28:58 -08:00
ld a, 0
sub c
jr nc, .asm_100858
add $3c
.asm_100858
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 2], a
ld a, [wcd6d]
ld c, a
2016-01-12 09:46:18 -08:00
ld a, $0a
sbc c
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 1], a
xor a
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2], a
ld de, String_10088e
hlcoord 1, 14
call PlaceString
2018-01-23 14:39:09 -08:00
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
2018-06-24 07:09:41 -07:00
String_10088e:
db "モバイルたいせん できる"
next "じかん@"
2018-06-24 07:09:41 -07:00
String_10089f:
db " むせいげん@"
MobileBattleGetRemainingTime:
; Calculates the difference between 10 minutes and sMobileBattleTimer
; Returns minutes in c and seconds in b
ld a, BANK(sMobileBattleTimer)
ld hl, sMobileBattleTimer
call GetSRAMBank
ld a, [hli]
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2], a
ld a, [hli]
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 1], a
ld a, [hli]
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 2], a
call CloseSRAM
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 2]
ld b, a
ld a, MOBILE_BATTLE_ALLOWED_SECONDS
sub b
jr nc, .no_carry_seconds
add 60
.no_carry_seconds
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 1]
ld c, a
ld a, MOBILE_BATTLE_ALLOWED_MINUTES
sbc c
ld c, a
jr c, .fail
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2]
and a
jr nz, .fail
ret
.fail
call MobileBattleFixTimer
2015-12-07 08:28:58 -08:00
ld c, 0
ret
2018-06-24 07:09:41 -07:00
Function1008e0:
ldh a, [hBGMapMode]
ld b, a
ldh a, [hVBlank]
ld c, a
push bc
xor a
ldh [hBGMapMode], a
2016-01-12 09:46:18 -08:00
ld a, $03
ldh [hVBlank], a
call Function100970
call Function100902
call Function100989
call DelayFrame
pop bc
ld a, c
ldh [hVBlank], a
ld a, b
ldh [hBGMapMode], a
ret
2018-06-24 07:09:41 -07:00
Function100902:
hlcoord 3, 10
2016-01-12 09:46:18 -08:00
ld b, $01
ld c, $0b
2019-04-08 05:15:10 -07:00
call Textbox
ld a, [wcd6d]
ld c, a
2016-01-12 09:46:18 -08:00
ld a, $0a
sub c
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2], a
jr z, .asm_10093f
ld de, .string_100966
hlcoord 4, 11
call PlaceString
hlcoord 8, 11
lb bc, 1, 2
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer2
call PrintNum
ld de, SFX_TWO_PC_BEEPS
call PlaySFX
2017-12-24 09:47:30 -08:00
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
2017-12-24 09:47:30 -08:00
farcall ReloadMapPart
ld c, 120
call DelayFrames
ret
2018-06-24 07:09:41 -07:00
.string_10095a
db "たいせん しゅうりょう@"
2018-06-24 07:09:41 -07:00
.string_100966
db "のこり   ふん!@"
2018-06-24 07:09:41 -07:00
Function100970:
hlcoord 0, 0
ld de, w3_dc00
call Function1009a5
hlcoord 0, 0, wAttrmap
ld de, w3_dd68
call Function1009a5
call Function1009d2
call Function1009ae
ret
2018-06-24 07:09:41 -07:00
Function100989:
ld hl, w3_dc00
decoord 0, 0
call Function1009a5
call Function1009ae
2017-12-24 09:47:30 -08:00
farcall ReloadMapPart
ld hl, w3_dd68
decoord 0, 0, wAttrmap
call Function1009a5
ret
2018-06-24 07:09:41 -07:00
Function1009a5:
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
2016-01-12 09:46:18 -08:00
ld a, $03
call FarCopyWRAM
ret
2018-06-24 07:09:41 -07:00
Function1009ae:
ldh a, [rSVBK]
push af
2016-01-12 09:46:18 -08:00
ld a, $03
ldh [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
2016-01-04 05:43:55 -08:00
ld bc, BG_MAP_WIDTH - SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .loop_row
pop af
ldh [rSVBK], a
ret
2018-06-24 07:09:41 -07:00
Function1009d2:
ldh a, [rSVBK]
push af
2016-01-12 09:46:18 -08:00
ld a, $03
ldh [rSVBK], a
ldh a, [rVBK]
push af
2016-01-12 09:46:18 -08:00
ld a, $01
ldh [rVBK], a
ld hl, w3_d800
2015-11-20 08:47:52 -08:00
debgcoord 0, 0
2016-01-12 09:46:18 -08:00
lb bc, $03, $24
call Get2bpp
pop af
ldh [rVBK], a
pop af
ldh [rSVBK], a
ret
2018-06-24 07:09:41 -07:00
Function1009f3:
ldh a, [hJoyDown]
and SELECT + A_BUTTON
cp SELECT + A_BUTTON
2016-01-04 05:43:55 -08:00
jr nz, .select_a
ld hl, wcd2a
set 4, [hl]
ld a, $f8
ld [wcd2b], a
scf
ret
2016-01-04 05:43:55 -08:00
.select_a
xor a
ret
2018-06-24 07:09:41 -07:00
_LinkBattleSendReceiveAction:
2015-11-23 13:04:53 -08:00
call .StageForSend
ld [wd431], a
2017-12-24 09:47:30 -08:00
farcall PlaceWaitingText
ld a, [wLinkMode]
cp LINK_MOBILE
2015-11-23 13:04:53 -08:00
jr nz, .not_mobile
2015-09-09 16:27:07 -07:00
2016-01-04 05:43:55 -08:00
call .MobileBattle_SendReceiveAction
call Function100da5
2017-12-24 09:47:30 -08:00
farcall FinishBattleAnim
2015-11-23 13:04:53 -08:00
jr .done
2015-11-23 13:04:53 -08:00
.not_mobile
2016-01-04 05:43:55 -08:00
call .LinkBattle_SendReceiveAction
2015-11-23 13:04:53 -08:00
.done
ret
2018-06-24 07:09:41 -07:00
.StageForSend:
ld a, [wBattlePlayerAction]
and a ; BATTLEPLAYERACTION_USEMOVE?
2015-11-23 13:04:53 -08:00
jr nz, .switch
2018-01-23 14:39:09 -08:00
ld a, [wCurPlayerMove]
ld b, BATTLEACTION_STRUGGLE
cp STRUGGLE
2015-11-23 13:04:53 -08:00
jr z, .struggle
ld b, BATTLEACTION_SKIPTURN
cp $ff
2015-11-23 13:04:53 -08:00
jr z, .struggle
2018-01-23 14:39:09 -08:00
ld a, [wCurMoveNum]
2015-11-23 13:04:53 -08:00
jr .use_move
2015-11-23 13:04:53 -08:00
.switch
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyMon]
2015-11-23 13:04:53 -08:00
add BATTLEACTION_SWITCH1
jr .use_move
2015-11-23 13:04:53 -08:00
.struggle
ld a, b
2015-11-23 13:04:53 -08:00
.use_move
2016-01-12 09:46:18 -08:00
and $0f
ret
2018-06-24 07:09:41 -07:00
.LinkBattle_SendReceiveAction:
ld a, [wd431]
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
ld a, $ff
2015-11-23 13:04:53 -08:00
ld [wOtherPlayerLinkAction], a
.waiting
call LinkTransfer
call DelayFrame
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkAction]
inc a
2015-11-23 13:04:53 -08:00
jr z, .waiting
ld b, 10
.receive
call DelayFrame
call LinkTransfer
dec b
2015-11-23 13:04:53 -08:00
jr nz, .receive
ld b, 10
.acknowledge
call DelayFrame
call LinkDataReceived
dec b
2015-11-23 13:04:53 -08:00
jr nz, .acknowledge
ld a, [wOtherPlayerLinkAction]
ld [wBattleAction], a
ret
2018-06-24 07:09:41 -07:00
.MobileBattle_SendReceiveAction:
call Function100acf
call StartMobileInactivityTimer
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd27], a
.asm_100a92
call DelayFrame
call GetJoypad
2017-12-24 09:47:30 -08:00
farcall Function100382
2016-01-12 09:46:18 -08:00
ld c, $01
ld b, $03
push bc
call AdvanceMobileInactivityTimerAndCheckExpired
pop bc
jr c, .asm_100ac7
2016-01-12 09:46:18 -08:00
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
2016-01-12 09:46:18 -08:00
ld a, $0f
ld [wd430], a
jr .asm_100ace
.asm_100ace
ret
2018-06-24 07:09:41 -07:00
Function100acf:
ld de, Unknown_100b0a
ld hl, wccb5
ld a, [wd431]
ld [hli], a
2016-01-12 09:46:18 -08:00
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
2018-06-24 07:09:41 -07:00
Function100ae7:
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
2016-01-12 09:46:18 -08:00
ld a, $0f
ld [wd430], a
ld a, $f1
ld [wcd2b], a
ret
2019-11-18 15:48:39 -08:00
pushc
setcharmap ascii
2018-06-24 07:09:41 -07:00
Unknown_100b0a:
db "tetsuji", 0
2019-11-18 15:48:39 -08:00
popc
2018-06-24 07:09:41 -07:00
Function100b12:
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
2017-12-09 16:41:03 -08:00
ld a, [wBattleMenuCursorBuffer]
2015-11-01 09:44:30 -08:00
ld [wMenuCursorBuffer], a
call Function100e72
call Function100b45
2017-12-24 09:47:30 -08:00
farcall InitPartyMenuBGPal7
call Function100ed4
2015-11-01 09:44:30 -08:00
ld a, [wMenuCursorBuffer]
2017-12-09 16:41:03 -08:00
ld [wBattleMenuCursorBuffer], a
call ExitMenu
ret
2018-06-24 07:09:41 -07:00
Function100b45:
call Function100b7a
2015-12-28 07:57:04 -08:00
.loop
call Mobile_SetOverworldDelay
2017-12-24 09:47:30 -08:00
farcall MobileMenuJoypad
push bc
farcall HDMATransferTilemapToWRAMBank3
call Function100e2d
pop bc
jr c, .asm_100b6b
ld a, [wMenuJoypadFilter]
and c
2015-12-28 07:57:04 -08:00
jr z, .loop
2017-12-24 09:47:30 -08:00
farcall Mobile_GetMenuSelection
ret
.asm_100b6b
ld a, [w2DMenuNumCols]
ld c, a
ld a, [w2DMenuNumRows]
call SimpleMultiply
2015-11-01 09:44:30 -08:00
ld [wMenuCursorBuffer], a
and a
ret
2018-06-24 07:09:41 -07:00
Function100b7a:
ld hl, CopyMenuData
ld a, [wMenuData_2DMenuItemStringsBank]
rst FarCall
2017-12-24 09:47:30 -08:00
farcall Draw2DMenu
farcall MobileTextBorder
call UpdateSprites
2015-11-25 07:16:29 -08:00
call ApplyTilemap
2017-12-24 09:47:30 -08:00
farcall Init2DMenuCursorPosition
ld hl, w2DMenuFlags1
set 7, [hl]
ret
2018-06-24 07:09:41 -07:00
MobileMoveSelectionScreen:
xor a
2015-12-23 11:00:29 -08:00
ld [wMoveSwapBuffer], a
2017-12-24 09:47:30 -08:00
farcall CheckPlayerHasUsableMoves
ret z
call Function100dd8
jp c, xor_a_dec_a
call Function100e72
2015-12-28 07:57:04 -08:00
call .GetMoveSelection
push af
2017-12-24 09:47:30 -08:00
farcall InitPartyMenuBGPal7
call Function100ed4
pop af
ret
2018-06-24 07:09:41 -07:00
.GetMoveSelection:
xor a
ldh [hBGMapMode], a
call Function100c74
call Function100c98
2015-12-28 07:57:04 -08:00
.master_loop
2017-12-24 09:47:30 -08:00
farcall MoveInfoBox
2015-12-28 07:57:04 -08:00
.loop
call Mobile_SetOverworldDelay
2017-12-24 09:47:30 -08:00
farcall MobileMenuJoypad
push bc
farcall HDMATransferTilemapToWRAMBank3
call Function100e2d
pop bc
2015-12-28 07:57:04 -08:00
jr c, .b_button
ld a, [wMenuJoypadFilter]
and c
2015-12-28 07:57:04 -08:00
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
2015-12-28 07:57:04 -08:00
.d_up
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
and a
2015-12-28 07:57:04 -08:00
jp nz, .master_loop
2015-12-04 05:46:11 -08:00
ld a, [wNumMoves]
inc a
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-28 07:57:04 -08:00
jp .master_loop
2015-12-28 07:57:04 -08:00
.d_down
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
ld b, a
2015-12-04 05:46:11 -08:00
ld a, [wNumMoves]
inc a
2015-12-26 18:59:03 -08:00
inc a
cp b
2015-12-28 07:57:04 -08:00
jp nz, .master_loop
2016-01-12 09:46:18 -08:00
ld a, $01
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-28 07:57:04 -08:00
jp .master_loop
2015-12-28 07:57:04 -08:00
.b_button
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
dec a
2018-01-23 14:39:09 -08:00
ld [wCurMoveNum], a
2016-01-12 09:46:18 -08:00
ld a, $01
and a
ret
2015-12-28 07:57:04 -08:00
.a_button
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
dec a
2018-01-23 14:39:09 -08:00
ld [wCurMoveNum], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
dec a
ld c, a
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wBattleMonPP
add hl, bc
ld a, [hl]
and $3f
2015-12-28 07:57:04 -08:00
jr z, .no_pp_left
2018-01-23 14:39:09 -08:00
ld a, [wPlayerDisableCount]
swap a
2016-01-12 09:46:18 -08:00
and $0f
dec a
cp c
2015-12-28 07:57:04 -08:00
jr z, .move_disabled
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
dec a
ld c, a
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wBattleMonMoves
add hl, bc
ld a, [hl]
2018-01-23 14:39:09 -08:00
ld [wCurPlayerMove], a
xor a
ret
2015-12-28 07:57:04 -08:00
.move_disabled
2015-09-09 16:27:07 -07:00
ld hl, BattleText_TheMoveIsDisabled
2015-12-28 07:57:04 -08:00
jr .print_text
2015-12-28 07:57:04 -08:00
.no_pp_left
2015-09-09 16:27:07 -07:00
ld hl, BattleText_TheresNoPPLeftForThisMove
2015-12-28 07:57:04 -08:00
.print_text
2019-04-08 05:15:10 -07:00
call StdBattleTextbox
call SafeLoadTempTilemapToTilemap
2015-12-28 07:57:04 -08:00
jp .GetMoveSelection
2018-06-24 07:09:41 -07:00
Function100c74:
hlcoord 0, 8
ld b, 8
ld c, 8
2019-04-08 05:15:10 -07:00
call Textbox
2018-01-23 14:39:09 -08:00
ld hl, wBattleMonMoves
2015-10-17 14:18:52 -07:00
ld de, wListMoves_MoveIndicesBuffer
ld bc, NUM_MOVES
call CopyBytes
ld a, SCREEN_WIDTH * 2
2018-01-23 14:39:09 -08:00
ld [wBuffer1], a
hlcoord 2, 10
predef ListMoves
ret
2018-06-24 07:09:41 -07:00
Function100c98:
2015-12-23 11:00:29 -08:00
ld de, .attrs
call SetMenuAttributes
2015-12-04 05:46:11 -08:00
ld a, [wNumMoves]
inc a
ld [w2DMenuNumRows], a
2018-01-23 14:39:09 -08:00
ld a, [wCurMoveNum]
inc a
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
ret
2018-06-24 07:09:41 -07:00
.attrs
2015-12-23 11:00:29 -08:00
db 10, 1
db 255, 1
db $a0, $00
dn 2, 0
db D_UP | D_DOWN | A_BUTTON | B_BUTTON
2018-06-24 07:09:41 -07:00
Mobile_PartyMenuSelect:
call Function100dd8
ret c
ld hl, w2DMenuFlags1
set 7, [hl]
res 6, [hl]
2015-12-23 11:00:29 -08:00
.loop
2015-12-28 07:57:04 -08:00
call Mobile_SetOverworldDelay
2017-12-24 09:47:30 -08:00
farcall MobileMenuJoypad
push bc
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
farcall HDMATransferTilemapToWRAMBank3
call MobileComms_CheckInactivityTimer
pop bc
2015-12-23 11:00:29 -08:00
jr c, .done
ld a, [wMenuJoypadFilter]
and c
2015-12-23 11:00:29 -08:00
jr z, .loop
2015-12-17 19:31:16 -08:00
call PlaceHollowCursor
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
inc a
ld b, a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
cp b
2015-12-23 11:00:29 -08:00
jr z, .done
ld [wPartyMenuCursor], a
ldh a, [hJoyLast]
ld b, a
bit 1, b
2015-12-23 11:00:29 -08:00
jr nz, .done
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
dec a
2018-01-23 14:39:09 -08:00
ld [wCurPartyMon], a
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wPartySpecies
add hl, bc
ld a, [hl]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
and a
ret
2015-12-23 11:00:29 -08:00
.done
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
scf
ret
2018-06-24 07:09:41 -07:00
MobileBattleMonMenu:
call Function100dd8
ret c
call Function100d67
ld hl, w2DMenuFlags1
set 7, [hl]
res 6, [hl]
.asm_100d30
2015-12-28 07:57:04 -08:00
call Mobile_SetOverworldDelay
2017-12-24 09:47:30 -08:00
farcall MobileMenuJoypad
push bc
2017-12-24 09:47:30 -08:00
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
2018-06-24 07:09:41 -07:00
Function100d67:
ld hl, .MenuHeader
call CopyMenuHeader
xor a
ldh [hBGMapMode], a
2015-11-04 11:02:11 -08:00
call MenuBox
call UpdateSprites
2015-12-15 15:59:49 -08:00
call PlaceVerticalMenuItems
call WaitBGMap
call CopyMenuData
2015-12-15 15:59:49 -08:00
call InitVerticalMenuCursor
ld hl, w2DMenuFlags1
set 6, [hl]
ret
2018-06-24 07:09:41 -07:00
.MenuHeader:
db 0 ; flags
menu_coords 11, 11, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
dw .MenuData
db 1 ; default option
2018-06-24 07:09:41 -07:00
.MenuData:
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
db 3
2016-01-04 05:43:55 -08:00
db "いれかえる@" ; TRADE
db "つよさをみる@" ; STATS
db "キャンセル@" ; CANCEL
2018-06-24 07:09:41 -07:00
Function100da5:
ld hl, wcd2a
res 3, [hl]
ld hl, wcd29
res 0, [hl]
ret
2018-06-24 07:09:41 -07:00
Function100db0:
ld hl, wcd2a
bit 3, [hl]
jr nz, .asm_100dbe
ld hl, wcd2a
set 3, [hl]
scf
ret
.asm_100dbe
xor a
ret
2018-06-24 07:09:41 -07:00
Function100dc0:
ld a, [wLinkMode]
2015-11-23 13:04:53 -08:00
cp LINK_MOBILE
jr nz, .mobile
ld hl, wcd2a
bit 3, [hl]
jr z, .mobile
scf
ret
.mobile
xor a
ret
2018-06-24 07:09:41 -07:00
Mobile_SetOverworldDelay:
ld a, 30
2018-01-23 14:39:09 -08:00
ld [wOverworldDelay], a
ret
2018-06-24 07:09:41 -07:00
Function100dd8:
2016-01-12 09:46:18 -08:00
ld c, $01
ld b, $03
2017-12-24 09:47:30 -08:00
farcall AdvanceMobileInactivityTimerAndCheckExpired
jr c, .asm_100dfb
ld c, $3c
2016-01-12 09:46:18 -08:00
ld b, $01
call Function10079c
jr c, .asm_100dfb
2017-12-24 09:47:30 -08:00
farcall Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_100dfb
xor a
ret
.asm_100dfb
scf
ret
2018-06-24 07:09:41 -07:00
MobileComms_CheckInactivityTimer:
2018-01-23 14:39:09 -08:00
ld a, [wOverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
ld b, 3
push bc
2017-12-24 09:47:30 -08:00
farcall AdvanceMobileInactivityTimerAndCheckExpired ; useless to farcall
pop bc
jr c, .quit
ld b, 1
call Function10079c
jr c, .quit
call Function1009f3
jr c, .quit
2017-12-24 09:47:30 -08:00
farcall Function10032e ; useless to farcall
ld a, [wcd2b]
and a
jr nz, .quit
xor a
ret
.quit
scf
ret
2018-06-24 07:09:41 -07:00
Function100e2d:
2018-01-23 14:39:09 -08:00
ld a, [wOverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
ld b, 3
push bc
2017-12-24 09:47:30 -08:00
farcall AdvanceMobileInactivityTimerAndCheckExpired
pop bc
jr c, .asm_100e61
ld b, 1
call Function10079c
jr c, .asm_100e61
call Function1009f3
jr c, .asm_100e61
2017-12-24 09:47:30 -08:00
farcall Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_100e61
call Function100e63
call Function100e84
xor a
ret
.asm_100e61
scf
ret
2018-06-24 07:09:41 -07:00
Function100e63:
ld a, e
2016-01-12 09:46:18 -08:00
cp $02
ret nz
call Function100db0
ret nc
ld de, SFX_ELEVATOR_END
call PlaySFX
ret
2018-06-24 07:09:41 -07:00
Function100e72:
xor a
ld hl, wcd29
bit 0, [hl]
jr z, .asm_100e7c
2016-01-12 09:46:18 -08:00
ld a, $0a
.asm_100e7c
ld [wcd67], a
xor a
ld [wcd68], a
ret
2018-06-24 07:09:41 -07:00
Function100e84:
ld a, [wcd67]
ld hl, Jumptable_100e8c
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_100e8c:
dw Function100ea2
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100ec4
2018-06-24 07:09:41 -07:00
Function100ea2:
call Function100dc0
ret nc
ld hl, wcd29
set 0, [hl]
call Function100ec5
2018-06-24 07:09:41 -07:00
Function100eae:
scf
call Function100eca
jr asm_100eb8
2018-06-24 07:09:41 -07:00
Function100eb4:
and a
call Function100eca
asm_100eb8:
ld hl, wcd68
inc [hl]
ld a, [hl]
2016-01-12 09:46:18 -08:00
cp $02
ret c
2015-12-07 08:28:58 -08:00
ld [hl], 0
jr Function100ec5
2018-06-24 07:09:41 -07:00
Function100ec4:
ret
Function100ec5:
ld hl, wcd67
inc [hl]
ret
2018-06-24 07:09:41 -07:00
Function100eca:
2017-12-24 09:47:30 -08:00
farcall Mobile_InitPartyMenuBGPal7
call Function100ed4
ret
2018-06-24 07:09:41 -07:00
Function100ed4:
2017-12-24 09:47:30 -08:00
farcall ApplyPals
2016-01-12 09:46:18 -08:00
ld a, $01
ldh [hCGBPalUpdate], a
ret
2018-06-24 07:09:41 -07:00
Function100edf:
ld hl, Unknown_100fc0
ld c, 1
jr asm_100f02
2018-06-24 07:09:41 -07:00
Function100ee6:
ld hl, Unknown_100fc0
ld c, 2
jr asm_100f02
2018-06-24 07:09:41 -07:00
Function100eed:
ld hl, Unknown_100feb
ld c, 1
jr asm_100f02
2018-06-24 07:09:41 -07:00
Function100ef4:
ld hl, Unknown_100ff3
ld c, 1
jr asm_100f02
2018-06-24 07:09:41 -07:00
Function100efb:
ld hl, Unknown_10102c
ld c, 1
jr asm_100f02
asm_100f02:
ld a, c
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2], a
; someting that was previously stored in de gets backed up to here
ld a, e
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 1], a
ld a, d
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 2], a
; empty this
xor a
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 4], a
ld [wStringBuffer2 + 5], a
.loop
ld a, [hl]
cp $ff
jr z, .done
2018-01-23 14:39:09 -08:00
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
2015-12-07 08:28:58 -08:00
ld de, 7
add hl, de
jr .loop
.done
; recover the values into bc
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 4]
ld c, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 5]
ld b, a
ret
2018-06-24 07:09:41 -07:00
Function100f3d:
; parameter
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2]
2016-01-12 09:46:18 -08:00
cp $02
jr z, .two
2016-01-12 09:46:18 -08:00
cp $01
jr z, .one
2016-01-12 09:46:18 -08:00
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
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 1]
ld l, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 2]
ld h, a
call Function100f8d
ld a, l
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 1], a
ld a, h
2018-01-23 14:39:09 -08:00
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
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 1]
ld l, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 2]
ld h, a
call Function100f8d
ld a, l
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 1], a
ld a, h
2018-01-23 14:39:09 -08:00
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
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 1]
ld e, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 2]
ld d, a
call Function100f8d
ld a, e
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 1], a
ld a, d
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 2], a
ret
2018-06-24 07:09:41 -07:00
Function100f8d:
push hl
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 4]
ld l, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 5]
ld h, a
add hl, bc
ld a, l
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 4], a
ld a, h
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 5], a
pop hl
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 3]
bit 7, a
res 7, a
jr z, .sram
and a
2016-01-12 09:46:18 -08:00
jr nz, .far_wram
call CopyBytes
ret
2016-01-12 09:46:18 -08:00
.far_wram
and $7f
call FarCopyWRAM
ret
.sram
call GetSRAMBank
call CopyBytes
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
Unknown_100fc0:
; first byte:
; Bit 7 set: Not SRAM
; Lower 7 bits: Bank
; Address, size (dw), address
2018-01-23 14:39:09 -08:00
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
2018-06-24 07:09:41 -07:00
Unknown_100feb:
2016-01-12 09:46:18 -08:00
dbwww $00, sPartyMail, MAIL_STRUCT_LENGTH * PARTY_LENGTH, NULL
db -1
2018-06-24 07:09:41 -07:00
Unknown_100ff3:
dbwww $80, wdc41, 1, NULL
2018-01-23 14:39:09 -08:00
dbwww $80, wPlayerName, NAME_LENGTH, NULL
dbwww $80, wPlayerName, NAME_LENGTH, NULL
dbwww $80, wPlayerID, 2, NULL
2015-10-16 10:35:43 -07:00
dbwww $80, wSecretID, 2, NULL
dbwww $80, wPlayerGender, 1, NULL
2016-01-12 09:46:18 -08:00
dbwww $04, $a603, 8, NULL
dbwww $04, $a007, PARTYMON_STRUCT_LENGTH, NULL
db -1
2018-06-24 07:09:41 -07:00
Unknown_10102c:
2018-01-23 14:39:09 -08:00
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
2018-06-24 07:09:41 -07:00
Function101050:
call Function10107d
2018-01-23 14:39:09 -08:00
ld a, [wOTPartyCount]
2015-12-04 05:46:11 -08:00
rept 2 ; ???
ld hl, wc608
2015-07-20 19:18:18 -07:00
endr
2015-12-04 05:46:11 -08:00
ld bc, wc7bb - wc608
call Function1010de
ld hl, wc7bb
ld [hl], e
inc hl
ld [hl], d
2016-01-12 09:46:18 -08:00
ld a, $07
call GetSRAMBank
ld hl, wc608
ld de, $a001
2015-12-04 05:46:11 -08:00
ld bc, wc7bd - wc608
call CopyBytes
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
Function10107d:
xor a
ld hl, wc608
2015-12-04 05:46:11 -08:00
ld bc, wc7bd - wc608
call ByteFill
2018-01-23 14:39:09 -08:00
ld hl, wOTPlayerName
ld de, wc608
2015-12-04 05:46:11 -08:00
ld bc, NAME_LENGTH
call CopyBytes
ld hl, wd271
ld a, [hli]
ld [wc608 + 11], a
ld a, [hl]
ld [wc608 + 12], a
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMonNicknames
ld de, wc608 + 13
2015-12-04 05:46:11 -08:00
ld bc, NAME_LENGTH
call .CopyAllFromOT
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMonOT
ld de, wOTClassName + 1
2015-12-04 05:46:11 -08:00
ld bc, NAME_LENGTH
call .CopyAllFromOT
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1Species
2016-01-09 13:28:22 -08:00
ld de, $c699
2015-12-04 05:46:11 -08:00
ld bc, PARTYMON_STRUCT_LENGTH
call .CopyAllFromOT
ld a, $50
ld [wc7b9], a
ld a, $33
ld [wc7ba], a
ret
2018-06-24 07:09:41 -07:00
.CopyAllFromOT:
push hl
ld hl, 0
2018-01-23 14:39:09 -08:00
ld a, [wOTPartyCount]
call AddNTimes
ld b, h
ld c, l
pop hl
call CopyBytes
ret
2018-06-24 07:09:41 -07:00
Function1010de:
push hl
push bc
ld de, 0
2015-12-04 05:46:11 -08:00
.loop
ld a, [hli]
add e
ld e, a
ld a, d
adc 0
ld d, a
dec bc
ld a, b
or c
2015-12-04 05:46:11 -08:00
jr nz, .loop
pop bc
pop hl
ret
2018-06-24 07:09:41 -07:00
LoadSelectedPartiesForColosseum:
xor a
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
2015-12-07 08:28:58 -08:00
ld bc, 9
call ByteFill
2016-05-05 12:07:37 -07:00
ld hl, wPlayerMonSelection
2018-01-23 14:39:09 -08:00
ld de, wPartyCount
2016-05-05 12:07:37 -07:00
call .CopyThreeSpecies
ld hl, wPlayerMonSelection
2018-01-23 14:39:09 -08:00
ld de, wPartyMon1Species
2016-05-05 12:07:37 -07:00
call .CopyPartyStruct
ld hl, wPlayerMonSelection
2018-01-23 14:39:09 -08:00
ld de, wPartyMonOT
2016-05-05 12:07:37 -07:00
call .CopyName
ld hl, wPlayerMonSelection
2018-01-23 14:39:09 -08:00
ld de, wPartyMonNicknames
2016-05-05 12:07:37 -07:00
call .CopyName
ld hl, wOTMonSelection
2018-01-23 14:39:09 -08:00
ld de, wOTPartyCount
2016-05-05 12:07:37 -07:00
call .CopyThreeSpecies
ld hl, wOTMonSelection
2018-01-23 14:39:09 -08:00
ld de, wOTPartyMon1Species
2016-05-05 12:07:37 -07:00
call .CopyPartyStruct
ld hl, wOTMonSelection
2018-01-23 14:39:09 -08:00
ld de, wOTPartyMonOT
2016-05-05 12:07:37 -07:00
call .CopyName
ld hl, wOTMonSelection
2018-01-23 14:39:09 -08:00
ld de, wOTPartyMonNicknames
2016-05-05 12:07:37 -07:00
call .CopyName
ret
2018-06-24 07:09:41 -07:00
.CopyThreeSpecies:
2016-05-05 12:07:37 -07:00
; Load the 3 choices to the buffer
push de
2018-01-23 14:39:09 -08:00
ld bc, wStringBuffer2 + NAME_LENGTH_JAPANESE
xor a
2016-05-05 12:07:37 -07:00
.party_loop
push af
2016-05-05 12:07:37 -07:00
call .GetNthSpecies
ld [bc], a
inc bc
pop af
inc a
2016-05-05 12:07:37 -07:00
cp 3
jr nz, .party_loop
pop de
2016-05-05 12:07:37 -07:00
; Copy the 3 choices to the party
ld a, 3
ld [de], a
inc de
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2 + NAME_LENGTH_JAPANESE
2015-12-07 08:28:58 -08:00
ld bc, 3
call CopyBytes
ld a, $ff
ld [de], a
ret
2018-06-24 07:09:41 -07:00
.GetNthSpecies:
2016-05-05 12:07:37 -07:00
; Preserves hl and de
; Get the index of the Nth selection
push hl
add l
ld l, a
ld a, h
2015-12-07 08:28:58 -08:00
adc 0
ld h, a
ld a, [hl]
pop hl
2016-05-05 12:07:37 -07:00
; Get the corresponding species
push de
inc de
add e
ld e, a
ld a, d
2015-12-07 08:28:58 -08:00
adc 0
ld d, a
ld a, [de]
pop de
ret
2018-06-24 07:09:41 -07:00
.CopyPartyStruct:
2016-05-05 12:07:37 -07:00
ld bc, PARTYMON_STRUCT_LENGTH
jr .ContinueCopy
2018-06-24 07:09:41 -07:00
.CopyName:
2016-05-05 12:07:37 -07:00
ld bc, NAME_LENGTH
2016-05-05 12:07:37 -07:00
.ContinueCopy:
; Copy, via wc608...
ld a, LOW(wc608)
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2], a
ld a, HIGH(wc608)
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 1], a
2016-05-05 12:07:37 -07:00
; ... bc bytes...
ld a, c
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 2], a
ld a, b
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 3], a
2016-05-05 12:07:37 -07:00
; ... to de...
ld a, e
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 4], a
ld a, d
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 5], a
2016-05-05 12:07:37 -07:00
; ... 3 times.
ld a, 3
.big_copy_loop
push af
ld a, [hli]
push hl
push af
2016-05-05 12:07:37 -07:00
call .GetDestinationAddress
call .GetCopySize
pop af
call AddNTimes
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2]
ld e, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 1]
ld d, a
call CopyBytes
ld a, e
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2], a
ld a, d
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2 + 1], a
pop hl
pop af
dec a
2016-05-05 12:07:37 -07:00
jr nz, .big_copy_loop
call .GetCopySize
ld a, 3
ld hl, 0
call AddNTimes
ld b, h
ld c, l
2016-05-05 12:07:37 -07:00
call .GetDestinationAddress
ld d, h
ld e, l
ld hl, wc608
call CopyBytes
ret
2018-06-24 07:09:41 -07:00
.GetDestinationAddress:
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 4]
ld l, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 5]
ld h, a
ret
2018-06-24 07:09:41 -07:00
.GetCopySize:
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 2]
ld c, a
2018-01-23 14:39:09 -08:00
ld a, [wStringBuffer2 + 3]
ld b, a
ret
2018-06-24 07:09:41 -07:00
Function1011f1:
ld a, BANK(s4_a60c)
call GetSRAMBank
ld a, [s4_a60c]
ld [wdc41], a
call CloseSRAM
ld hl, wdc41
res 4, [hl]
ld hl, wGameTimerPause
2018-01-23 09:40:29 -08:00
bit GAMETIMERPAUSE_MOBILE_7_F, [hl]
2015-11-23 13:04:53 -08:00
jr z, .skip
ld hl, wdc41
set 4, [hl]
2015-11-23 13:04:53 -08:00
.skip
call Function10209c
xor a
ld [wdc5f], a
ld [wdc60], a
2015-11-23 13:04:53 -08:00
ld a, LINK_MOBILE
ld [wLinkMode], a
ret
2018-06-24 07:09:41 -07:00
Function101220:
xor a
ld [wLinkMode], a
ret
2018-06-24 07:09:41 -07:00
Function101225:
ld d, 1
ld e, BANK(Jumptable_101297)
ld bc, Jumptable_101297
call Function100000
jr Function10123d
2018-06-24 07:09:41 -07:00
Function101231:
ld d, 2
ld e, BANK(Jumptable_101297)
ld bc, Jumptable_101297
call Function100000
jr Function10123d
2018-06-24 07:09:41 -07:00
Function10123d:
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ld a, c
ld hl, Jumptable_101247
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_101247:
dw Function101251
dw Function10127d
dw Function10127c
dw Function10126c
dw Function101265
2018-06-24 07:09:41 -07:00
Function101251:
call UpdateSprites
call RefreshScreen
ld hl, UnknownText_0x1021f4
call Function1021e0
call Function1020ea
ret c
call Function102142
ret
2018-06-24 07:09:41 -07:00
Function101265:
ld hl, UnknownText_0x1021ef
call Function1021e0
ret
2018-06-24 07:09:41 -07:00
Function10126c:
call UpdateSprites
2017-12-24 09:47:30 -08:00
farcall Script_reloadmappart
ld hl, UnknownText_0x1021f4
call Function1021e0
ret
2018-06-24 07:09:41 -07:00
Function10127c:
ret
2018-06-24 07:09:41 -07:00
Function10127d:
ret
2018-06-24 07:09:41 -07:00
Function10127e:
ld a, [wdc5f]
and a
2016-05-05 12:07:37 -07:00
jr z, .zero
cp 1
ld c, $27
2016-05-05 12:07:37 -07:00
jr z, .load
cp 2
ld c, $37
2016-05-05 12:07:37 -07:00
jr z, .load
.zero
2015-12-07 08:28:58 -08:00
ld c, 0
2016-05-05 12:07:37 -07:00
.load
ld a, c
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Jumptable_101297:
2016-05-05 12:07:37 -07:00
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
2018-06-24 07:09:41 -07:00
Function10138b:
2017-12-24 09:47:30 -08:00
farcall Function8adcc
2015-12-07 08:28:58 -08:00
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]
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_1013a9
inc c
.asm_1013a9
ret
2018-06-24 07:09:41 -07:00
Function1013aa:
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
2015-09-09 16:27:07 -07:00
call Call_ExitMenu
2015-12-18 17:07:09 -08:00
call ReloadTilesetAndPalettes
2017-12-24 09:47:30 -08:00
farcall Function106464
call UpdateSprites
2016-01-06 04:44:50 -08:00
call FinishExitMenu
ret
2018-06-24 07:09:41 -07:00
Function1013c0:
2017-12-24 09:47:30 -08:00
farcall BlankScreen
farcall Stubbed_Function106462
2017-12-24 09:47:30 -08:00
farcall Function106464
2016-01-06 04:44:50 -08:00
call FinishExitMenu
ret
2018-06-24 07:09:41 -07:00
Function1013d6:
farcall HDMATransferAttrmapAndTilemapToWRAMBank3
ret
2018-06-24 07:09:41 -07:00
Function1013dd:
call CGBOnly_CopyTilemapAtOnce
ret
2018-06-24 07:09:41 -07:00
Unreferenced_Function1013e1:
push de
inc de
ld b, a
2015-12-07 08:28:58 -08:00
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
2018-06-24 07:09:41 -07:00
Function1013f5:
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
2018-06-24 07:09:41 -07:00
Unreferenced_Function101400:
ld a, [de]
inc de
cp [hl]
jr nz, asm_101416
inc hl
2018-06-24 07:09:41 -07:00
Function101406:
ld c, a
2015-12-07 08:28:58 -08:00
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
2018-10-24 12:33:18 -07:00
asm_101416:
scf
ret
2018-06-24 07:09:41 -07:00
Function101418:
call GetJoypad
ldh 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
2018-06-24 07:09:41 -07:00
Function10142c:
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wc305], a
2017-12-24 09:47:30 -08:00
farcall Function115e18
ret
2018-06-24 07:09:41 -07:00
Function101438:
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
ld hl, Jumptable_101457
rst JumpTable
ld a, [wcd26]
bit 7, a
ret z
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Jumptable_101457:
dw Function10145b
dw Function101467
2018-06-24 07:09:41 -07:00
Function10145b:
ld a, $3c
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
2018-06-24 07:09:41 -07:00
Function101467:
ld hl, wcd42
dec [hl]
ret nz
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101475:
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
ld hl, Jumptable_101494
rst JumpTable
ld a, [wcd26]
bit 7, a
ret z
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Jumptable_101494:
dw Function10149a
dw Function1014a6
dw Function1014b7
2018-06-24 07:09:41 -07:00
Function10149a:
ld a, $28
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
2018-06-24 07:09:41 -07:00
Function1014a6:
ld hl, wcd42
dec [hl]
ret nz
ld a, $50
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
2018-06-24 07:09:41 -07:00
Function1014b7:
call GetJoypad
ldh a, [hJoyPressed]
2016-01-12 09:46:18 -08:00
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
2018-06-24 07:09:41 -07:00
Function1014ce:
2017-12-24 09:47:30 -08:00
farcall Function100720
farcall StartMobileInactivityTimer
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1014e2:
ld hl, wcd29
set 6, [hl]
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1014f4:
2017-12-24 09:47:30 -08:00
farcall EnableMobile
ld hl, wcd29
set 6, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101507:
ld de, wcd30
2015-12-07 08:28:58 -08:00
ld hl, $40
ld bc, $40
2016-01-12 09:46:18 -08:00
ld a, $02
call Function3e32
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Unreferenced_Function10151d:
ld a, $34
call Function3e32
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function10152a:
ld a, $36
call Function3e32
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101537:
2016-01-12 09:46:18 -08:00
ld a, $0a
call Function3e32
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101544:
2017-12-24 09:47:30 -08:00
farcall StartMobileInactivityTimer
ld a, $12
call Function3e32
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101557:
2017-12-24 09:47:30 -08:00
farcall StartMobileInactivityTimer
ld hl, wcd53
2016-01-12 09:46:18 -08:00
ld a, $08
call Function3e32
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function10156d:
call Function101418
ret c
2018-06-24 07:09:41 -07:00
Function101571:
2017-12-24 09:47:30 -08:00
farcall Function10032e
ret c
ret z
ld a, e
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_101582
ld [wcd2b], a
ret
.asm_101582
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function10158a:
2017-12-24 09:47:30 -08:00
farcall IncrementMobileInactivityTimerBy1Frame
ld a, [wMobileInactivityTimerMinutes]
2016-01-12 09:46:18 -08:00
cp $0a
jr c, Function10156d
ld a, $fb
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function10159d:
ld de, wc608
2017-12-24 09:47:30 -08:00
farcall Function100edf
ld de, wc608
2016-01-12 09:46:18 -08:00
ld a, $05
ld hl, w5_d800
call Function10174c
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1015be:
ld de, wc608
2017-12-24 09:47:30 -08:00
farcall Function100eed
ld de, wc608
2016-01-12 09:46:18 -08:00
ld a, $05
ld hl, w5_d800
call Function10174c
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1015df:
ld de, wc608
2017-12-24 09:47:30 -08:00
farcall Function100ef4
ld de, wc608
2016-01-12 09:46:18 -08:00
ld a, $05
ld hl, w5_d800
call Function10174c
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101600:
ld hl, w5_d800
ld de, wc608
2015-12-07 08:28:58 -08:00
ld bc, $1e0
2016-01-12 09:46:18 -08:00
ld a, $05
call FarCopyWRAM
ld de, wc608
2017-12-24 09:47:30 -08:00
farcall Function100ee6
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function10161f:
call Function101649
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function10162a:
call Function101663
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
MobileCopyTransferData:
ld de, wMobileTransferData
2015-12-07 08:28:58 -08:00
ld bc, $1e0
call FarCopyWRAM
ret
MobileCopyTransferData2:
ld hl, wMobileTransferData
2015-12-07 08:28:58 -08:00
ld bc, $1e0
call FarCopyWRAM
ret
2018-06-24 07:09:41 -07:00
Function101649:
ld a, BANK(w5_d800)
ld hl, w5_d800
call MobileCopyTransferData
ld a, BANK(w5_da00)
ld de, w5_da00
call MobileCopyTransferData2
ret
2018-06-24 07:09:41 -07:00
Function10165a:
ld a, BANK(w5_da00)
ld hl, w5_da00
call MobileCopyTransferData
ret
2018-06-24 07:09:41 -07:00
Function101663:
ld a, BANK(w5_dc00)
ld hl, w5_d800
call MobileCopyTransferData
ld a, BANK(w5_dc00)
ld de, w5_dc00
call MobileCopyTransferData2
ret
2018-06-24 07:09:41 -07:00
Unreferenced_Function101674:
ld a, BANK(w5_dc00)
ld hl, w5_dc00
call MobileCopyTransferData
ret
2018-06-24 07:09:41 -07:00
Function10167d:
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function10168a:
call Function101418
ret c
2018-06-24 07:09:41 -07:00
Function10168e:
2015-12-07 08:28:58 -08:00
ld b, 0
2016-01-12 09:46:18 -08:00
ld c, $01
2017-12-24 09:47:30 -08:00
farcall Function10079c
ret c
2016-01-12 09:46:18 -08:00
ld c, $01
ld b, $03
2017-12-24 09:47:30 -08:00
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
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Jumptable_1016c3:
dw Function1016cf
dw Function1016de
dw Function1016f8
dw Function101705
dw Function101719
dw Function101724
2018-06-24 07:09:41 -07:00
Function1016cf:
ld hl, wcd3a
inc [hl]
call Function10176f
ld a, [wcd26]
inc a
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function1016de:
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
2018-06-24 07:09:41 -07:00
Function1016f8:
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd27], a
ld a, [wcd26]
inc a
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101705:
2017-12-24 09:47:30 -08:00
farcall Function100382
ld a, [wcd27]
bit 7, a
ret z
ld a, [wcd26]
inc a
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101719:
call Function1017c7
ld a, [wcd26]
inc a
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101724:
ld a, [wcd39]
cp $ff
jr z, .asm_101731
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
ret
.asm_101731
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
Unknown_10173a:
db $50
2018-06-24 07:09:41 -07:00
Function10173b:
push bc
push af
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [Unknown_10173a]
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
pop af
call AddNTimes
pop bc
ret
2018-06-24 07:09:41 -07:00
Function10174c:
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 [wBattleTowerRoomMenu2JumptableIndex], a
ld a, c
ld [wcd40], a
ld a, b
ld [wcd41], a
xor a
ld [wcd39], a
ld [wcd3a], a
ret
2018-06-24 07:09:41 -07:00
Function10176f:
ld hl, wccb4
2015-12-07 08:28:58 -08:00
ld bc, $54
ld a, $11
call ByteFill
ret
2018-06-24 07:09:41 -07:00
Function10177b:
ld a, [Unknown_10173a]
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
ld a, [wcd3a]
2015-11-02 11:37:02 -08:00
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
2018-06-24 07:09:41 -07:00
Function1017b0:
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
2018-06-24 07:09:41 -07:00
Function1017c7:
ld a, [wcc60]
ld c, a
2015-12-07 08:28:58 -08:00
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
2018-06-24 07:09:41 -07:00
Function1017e4:
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd27], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1017f1:
call Function101418
ret c
2018-06-24 07:09:41 -07:00
Function1017f5:
2015-12-07 08:28:58 -08:00
ld b, 0
2016-01-12 09:46:18 -08:00
ld c, $01
2017-12-24 09:47:30 -08:00
farcall Function10079c
ret c
2016-01-12 09:46:18 -08:00
ld c, $01
ld b, $03
2017-12-24 09:47:30 -08:00
farcall AdvanceMobileInactivityTimerAndCheckExpired
ret c
2017-12-24 09:47:30 -08:00
farcall Function100382
ld a, [wcd27]
bit 7, a
2016-05-05 12:07:37 -07:00
jr nz, .next
ld hl, wcd29
set 6, [hl]
ret
2016-05-05 12:07:37 -07:00
.next
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101826:
ld a, [wcd21]
2016-01-12 09:46:18 -08:00
cp $02
jr z, .asm_101833
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_101844
jr .asm_101869
.asm_101833
ld hl, Unknown_10186f
ld de, wccb4
call Function1013f5
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101844
2017-12-24 09:47:30 -08:00
farcall Function103654
ld a, c
ld hl, Unknown_101882
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_10185b
ld hl, Unknown_101895
2016-01-12 09:46:18 -08:00
cp $02
jr z, .asm_10185b
jr .asm_101869
.asm_10185b
ld de, wccb4
call Function1013f5
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101869
ld a, $fe
ld [wcd2b], a
ret
2019-11-18 15:48:39 -08:00
pushc
setcharmap ascii
Unknown_10186f:
db .end - @
2016-01-12 09:46:18 -08:00
db $19, $73, $09, $13, "trade_crystal"
.end db 0
Unknown_101882:
db .end - @
2016-01-12 09:46:18 -08:00
db $19, $67, $10, $01, "free__crystal"
.end db 0
Unknown_101895:
db .end - @
2016-01-12 09:46:18 -08:00
db $19, $67, $10, $01, "limit_crystal"
.end db 0
popc
2018-06-24 07:09:41 -07:00
Function1018a8:
ld hl, wccb5
ld de, wcc61
2016-01-12 09:46:18 -08:00
ld a, $04
call Function101406
jr c, .asm_1018d0
ld hl, wccb9
ld de, wcc65
2016-01-12 09:46:18 -08:00
ld a, $06
call Function101406
jr c, .asm_1018ca
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_1018ca
ld a, $f6
ld [wcd2b], a
ret
.asm_1018d0
ld a, $f5
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function1018d6:
call Function1018ec
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1018e1:
call Function1018fb
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1018ec:
2016-01-12 09:46:18 -08:00
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
2018-06-24 07:09:41 -07:00
Function1018fb:
ld a, [wcd2f]
and a
jr z, .asm_101906
ld hl, wcc61
jr .asm_101909
.asm_101906
ld hl, wccb5
.asm_101909
2018-01-23 14:39:09 -08:00
ld de, wLinkBattleRNs
2015-12-07 08:28:58 -08:00
ld bc, 10
call CopyBytes
ret
2018-06-24 07:09:41 -07:00
Function101913:
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
ldh [hWY], a
ld a, [wcd21]
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_10193f
2016-01-12 09:46:18 -08:00
cp $02
jr z, .asm_101945
ld a, $71
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_10193f
ld a, $66
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101945
ld a, $65
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function10194b:
2015-10-24 07:34:19 -07:00
call DisableSpriteUpdates
call ClearSprites
2017-12-24 09:47:30 -08:00
farcall Function1021f9
ld hl, wcd29
bit 3, [hl]
jr nz, .asm_101967
call Function1013c0
ld a, $71
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101967
ld a, $60
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
_SelectMonsForMobileBattle:
2017-12-24 09:47:30 -08:00
farcall BlankScreen
farcall Mobile_CommunicationStandby
ld hl, wcd29
set 5, [hl]
ld hl, wcd2a
set 6, [hl]
2016-01-12 09:46:18 -08:00
ld a, $06
ld [wccb4], a
2016-05-05 12:07:37 -07:00
ld hl, wPlayerMonSelection
ld de, wccb5
2015-12-07 08:28:58 -08:00
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
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
_StartMobileBattle:
2016-05-05 12:07:37 -07:00
call CopyOtherPlayersBattleMonSelection
2017-12-24 09:47:30 -08:00
farcall Function100754
xor a
ld [wdc5f], a
ld [wdc60], a
2017-12-24 09:47:30 -08:00
farcall BlankScreen
2019-04-08 05:15:10 -07:00
call SpeechTextbox
2017-12-24 09:47:30 -08:00
farcall Function100846
2016-05-05 12:07:37 -07:00
ld c, 120
call DelayFrames
farcall ClearTilemap
2016-05-05 12:07:37 -07:00
call .CopyOTDetails
call StartMobileBattle
ld a, [wcd2b]
cp $fc
jr nz, .asm_1019e6
xor a
ld [wcd2b], a
.asm_1019e6
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
.CopyOTDetails:
ldh a, [rSVBK]
push af
2016-05-05 12:07:37 -07:00
ld a, 5
ldh [rSVBK], a
ld bc, w5_dc0d
ld de, w5_dc11
2017-12-24 09:47:30 -08:00
farcall GetMobileOTTrainerClass
pop af
ldh [rSVBK], a
ld a, c
2018-01-23 14:39:09 -08:00
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
2016-05-05 12:07:37 -07:00
jr z, .got_link_player_number
ld a, USING_EXTERNAL_CLOCK
2016-05-05 12:07:37 -07:00
.got_link_player_number
ldh [hSerialConnectionStatus], a
ret
2018-06-24 07:09:41 -07:00
StartMobileBattle:
2016-05-05 12:07:37 -07:00
; force stereo and fast text speed
2018-01-23 14:39:09 -08:00
ld hl, wOptions
ld a, [hl]
push af
2016-05-05 12:07:37 -07:00
and (1 << STEREO)
or 1 ; 1 frame per character i.e. fast text
ld [hl], a
2016-05-05 12:07:37 -07:00
ld a, 1
ld [wDisableTextAcceleration], a
2017-12-24 09:47:30 -08:00
farcall BattleIntro
farcall DoBattle
farcall ShowLinkBattleParticipantsAfterEnd
xor a
2016-05-05 12:07:37 -07:00
ld [wDisableTextAcceleration], a
ld a, CONNECTION_NOT_ESTABLISHED
ldh [hSerialConnectionStatus], a
pop af
2018-01-23 14:39:09 -08:00
ld [wOptions], a
ret
2018-06-24 07:09:41 -07:00
Function101a4f:
2016-05-05 12:07:37 -07:00
ld a, 1
ld [wDisableTextAcceleration], a
2017-12-24 09:47:30 -08:00
farcall DisplayLinkBattleResult
xor a
2016-05-05 12:07:37 -07:00
ld [wDisableTextAcceleration], a
2017-12-24 09:47:30 -08:00
farcall CleanUpBattleRAM
farcall LoadPokemonData
call Function1013c0
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
CopyOtherPlayersBattleMonSelection:
ld hl, wcc61
2016-05-05 12:07:37 -07:00
ld de, wOTMonSelection
2015-12-07 08:28:58 -08:00
ld bc, 3
call CopyBytes
ld de, wcc64
2017-12-24 09:47:30 -08:00
farcall Function100772
farcall Function101050
farcall LoadSelectedPartiesForColosseum
ret
2018-06-24 07:09:41 -07:00
Function101a97:
2017-12-24 09:47:30 -08:00
farcall Function115d99
ld hl, wcd29
set 7, [hl]
2016-01-12 09:46:18 -08:00
ld c, $02
call Function10142c
ld hl, wcd29
set 6, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101ab4:
2016-01-12 09:46:18 -08:00
ld e, $01
call Function101ee4
ld hl, wcd29
set 5, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101ac6:
2017-12-24 09:47:30 -08:00
farcall Function115d99
ld hl, wcd29
set 7, [hl]
2016-01-12 09:46:18 -08:00
ld c, $02
call Function10142c
ld hl, wcd29
set 6, [hl]
xor a
ld [wcd2f], a
ld de, wdc42
call Function102068
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101aed:
2017-12-24 09:47:30 -08:00
farcall Function115d99
ld hl, wcd29
set 7, [hl]
2016-01-12 09:46:18 -08:00
ld c, $02
call Function10142c
ld hl, wcd29
set 6, [hl]
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wcd2f], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101b0f:
2015-12-07 08:28:58 -08:00
ld c, 0
call Function10142c
2016-01-12 09:46:18 -08:00
ld e, $03
call Function101ee4
ld hl, wcd29
set 5, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101b2b:
2017-12-24 09:47:30 -08:00
farcall Function100579
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_101b51
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd2b], a
ret
.asm_101b51
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101b59:
2016-01-12 09:46:18 -08:00
ld c, $02
call Function10142c
2016-01-12 09:46:18 -08:00
ld e, $02
call Function101ee4
ld hl, wcd29
set 5, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101b70:
2016-01-12 09:46:18 -08:00
ld c, $02
call Function10142c
2016-01-12 09:46:18 -08:00
ld e, $04
call Function101ee4
ld hl, wcd29
set 5, [hl]
call UpdateSprites
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101b8f:
2017-12-24 09:47:30 -08:00
farcall Function1005c3
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_101bbc
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wcd2f], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101bbc
xor a
ld [wcd2f], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101bc8:
2016-01-12 09:46:18 -08:00
ld c, $02
call Function10142c
2016-01-12 09:46:18 -08:00
ld e, $08
call Function101ee4
call Function102048
call Function1013dd
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101be5:
2017-12-24 09:47:30 -08:00
farcall Function100579
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2016-01-12 09:46:18 -08:00
cp $01
jr nz, .asm_101c0b
ld a, $2a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101c0b
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function101c11:
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wdc5f], a
2016-01-12 09:46:18 -08:00
ld e, $09
call Function101ee4
call Function102048
ld hl, wcd29
set 5, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101c2b:
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wdc5f], a
2016-01-12 09:46:18 -08:00
ld e, $07
call Function101ee4
ld hl, wcd29
set 5, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101c42:
ld hl, wcd2a
set 1, [hl]
call Function100665
ld a, $47
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101c50:
2016-01-12 09:46:18 -08:00
ld e, $0a
call Function101ee4
ld hl, wcd29
set 2, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101c62:
2017-12-24 09:47:30 -08:00
farcall Function115d99
ld hl, wcd29
set 7, [hl]
2016-01-12 09:46:18 -08:00
ld c, $01
call Function10142c
xor a
ld [wc30d], a
ld hl, wcd29
res 4, [hl]
2016-01-12 09:46:18 -08:00
ld e, $0b
call Function101ee4
ld hl, wcd29
set 5, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101c92:
2017-12-24 09:47:30 -08:00
farcall Function100675
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101ca0:
2016-01-12 09:46:18 -08:00
ld c, $02
call Function10142c
2016-01-12 09:46:18 -08:00
ld e, $0c
call Function101ee4
ld hl, wcd29
set 5, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101cbc:
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Unreferenced_Function101cc2:
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function101cc8:
2016-01-12 09:46:18 -08:00
ld a, $01
2015-11-11 11:12:46 -08:00
ld [wc314], a
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wc30d], a
ld hl, wcd29
set 4, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101cdf:
2016-01-12 09:46:18 -08:00
ld a, $06
2015-11-11 11:12:46 -08:00
ld [wc314], a
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wc30d], a
ld hl, wcd29
set 4, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101cf6:
2016-01-12 09:46:18 -08:00
ld a, $0b
2015-11-11 11:12:46 -08:00
ld [wc314 + 1], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101d03:
2016-01-12 09:46:18 -08:00
ld a, $0e
2015-11-11 11:12:46 -08:00
ld [wc314 + 1], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101d10:
2016-01-12 09:46:18 -08:00
ld c, $01
call Function10142c
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
jr Function101d2a
2018-06-24 07:09:41 -07:00
Function101d1e:
2016-01-12 09:46:18 -08:00
ld c, $03
call Function10142c
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2018-06-24 07:09:41 -07:00
Function101d2a:
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
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Jumptable_101d4d:
dw Function101d51
dw Function101d5d
2018-06-24 07:09:41 -07:00
Function101d51:
ld a, $3c
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
2018-06-24 07:09:41 -07:00
Function101d5d:
ld hl, wcd42
dec [hl]
ret nz
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101d6b:
ld a, [wc30d]
and a
ret nz
ld hl, wcd29
res 4, [hl]
ld a, $64
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101d7b:
2017-12-24 09:47:30 -08:00
farcall Function10138b
ld b, 0
ld hl, Unknown_101d8d
add hl, bc
ld c, [hl]
ld a, c
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Unknown_101d8d:
2016-01-12 09:46:18 -08:00
db $15, $15, $1f, $1f, $0c, $12, $3a, $3a
2018-06-24 07:09:41 -07:00
Function101d95:
call Function101ee2
call LoadStandardMenuHeader
2016-01-12 09:46:18 -08:00
ld e, $0e
call Function101ee4
ld hl, wcd29
set 5, [hl]
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101db2:
2017-12-24 09:47:30 -08:00
farcall Function103302
call ExitMenu
ld hl, wcd29
set 5, [hl]
jr c, .asm_101dca
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101dca
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function101dd0:
ld hl, wdc41
bit 1, [hl]
jr nz, .asm_101ddd
ld a, $19
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101ddd
ld a, $1b
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101de3:
call Function101ecc
call Function101ead
jr c, .asm_101df3
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101df3
call Function101e98
jr c, .asm_101e00
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e00
call Function101ed3
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function101e09:
call Function101ead
jr c, .asm_101e16
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e16
call Function101ecc
call Function101e98
push af
call Function101ed3
pop af
jr c, .asm_101e2b
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e2b
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function101e31:
ld a, $3a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
jp Function101c2b
2018-06-24 07:09:41 -07:00
Function101e39:
call Function1020bf
push af
call Function101ed3
pop af
jr c, .asm_101e49
ld a, $2a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e49
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Function101e4f:
2016-01-12 09:46:18 -08:00
ld e, $06
call Function101ee4
call Function1013d6
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd26], a
ret
2018-06-24 07:09:41 -07:00
Function101e64:
call Function101ecc
call Function1020a8
push af
call Function101ed3
pop af
jr c, .asm_101e77
ld a, $24
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_101e77
ld hl, wcd29
set 5, [hl]
2016-01-12 09:46:18 -08:00
ld a, $02
ld [wcd2b], a
ret
2018-06-24 07:09:41 -07:00
Unreferenced_Function101e82:
call Function101ecc
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Unreferenced_Function101e8d:
call Function101ed3
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function101e98:
call ClearSprites
2017-12-24 09:47:30 -08:00
farcall Function8adb3
ret c
ld hl, wGameTimerPause
2018-01-23 09:40:29 -08:00
set GAMETIMERPAUSE_MOBILE_7_F, [hl]
ld hl, wdc41
set 4, [hl]
ret
2018-06-24 07:09:41 -07:00
Function101ead:
ld hl, wGameTimerPause
2018-01-23 09:40:29 -08:00
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
2018-06-24 07:09:41 -07:00
Function101ecc:
call Function101ee2
call FadeToMenu
ret
2018-06-24 07:09:41 -07:00
Function101ed3:
call Function1013aa
2017-12-24 09:47:30 -08:00
farcall Function115d99
ld hl, wcd29
set 7, [hl]
ret
2018-06-24 07:09:41 -07:00
Function101ee2:
ld e, 0
2018-06-24 07:09:41 -07:00
Function101ee4:
ld d, 0
ld hl, Unknown_101ef5
add hl, de
2015-12-26 18:59:03 -08:00
add hl, de
ld a, [hli]
ld d, [hl]
ld e, a
2017-12-24 09:47:30 -08:00
farcall Function100504
ret
2018-06-24 07:09:41 -07:00
Unknown_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
2018-06-24 07:09:41 -07:00
String_101f13:
db "@"
2018-06-24 07:09:41 -07:00
String_101f14:
db "モバイルアダプタを つかって"
next "おともだちと つうしんします@"
2018-06-24 07:09:41 -07:00
String_101f32:
db "でんわを かけるひとには"
next "つうわりょうきんが かかります@"
2018-06-24 07:09:41 -07:00
String_101f4f:
db "モバイルアダプタの じゅんびは"
next "できて いますか?@"
2018-06-24 07:09:41 -07:00
String_101f69:
db "あなたが おともだちに"
next "でんわを かけますか?@"
2018-06-24 07:09:41 -07:00
String_101f81:
db "めいしフォルダーを"
next "つかいますか?@"
2018-06-24 07:09:41 -07:00
String_101f93:
db "でんわばんごうを にゅうりょく"
next "してください@"
2018-06-24 07:09:41 -07:00
String_101faa:
db "それでは おともだちからの"
next "でんわを おまちします⋯@"
2018-06-24 07:09:41 -07:00
String_101fc5:
next "に でんわを かけます@"
2018-06-24 07:09:41 -07:00
String_101fd2:
next "に でんわを かけています@"
2018-06-24 07:09:41 -07:00
String_101fe1:
db "でんわが つながりました!@"
2018-06-24 07:09:41 -07:00
String_101fef:
db "つうわを"
next "しゅうりょう します⋯@"
2018-06-24 07:09:41 -07:00
String_102000:
db "つうしん しゅうりょう@"
2018-06-24 07:09:41 -07:00
String_10200c:
db "つうわ じかん@"
2018-06-24 07:09:41 -07:00
String_102014:
db "それでは つうしんの"
next "せっていを してください@"
2018-06-24 07:09:41 -07:00
Function10202c:
2017-12-24 09:47:30 -08:00
farcall Function115d99
ld hl, wcd29
set 7, [hl]
2016-01-12 09:46:18 -08:00
ld c, $02
call Function10142c
2016-01-12 09:46:18 -08:00
ld e, $0d
call Function101ee4
hlcoord 4, 4
call Function100681
ret
2018-06-24 07:09:41 -07:00
Function102048:
call Function10204c
ret
2018-06-24 07:09:41 -07:00
Function10204c:
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
2016-01-12 09:46:18 -08:00
cp $0a
jr nc, .asm_102067
add $f6
ld [hli], a
dec c
jr nz, .asm_102054
.asm_102067
ret
2018-06-24 07:09:41 -07:00
Function102068:
ld hl, wcd53
2016-01-12 09:46:18 -08:00
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
2018-06-24 07:09:41 -07:00
Function102080:
2016-01-12 09:46:18 -08:00
and $0f
cp $0f
jr z, .asm_10208a
add $30
ld [hli], a
ret
.asm_10208a
2015-12-07 08:28:58 -08:00
ld [hl], 0
scf
ret
2018-06-24 07:09:41 -07:00
Function10208e:
push de
ld h, d
ld l, e
ld de, wdc42
2015-12-07 08:28:58 -08:00
ld bc, 8
call CopyBytes
pop de
ret
2018-06-24 07:09:41 -07:00
Function10209c:
ld a, $ff
ld hl, wdc42
2015-12-07 08:28:58 -08:00
ld bc, 8
call ByteFill
ret
2018-06-24 07:09:41 -07:00
Function1020a8:
call Function10209c
2016-01-12 09:46:18 -08:00
ld c, $01
ld de, wdc42
2017-12-24 09:47:30 -08:00
farcall Function17a68f
ret c
call Function10208e
call Function102068
xor a
ret
2018-06-24 07:09:41 -07:00
Function1020bf:
call ClearSprites
2017-12-24 09:47:30 -08:00
farcall Function8aba9
ld a, c
and a
jr z, .asm_1020e8
dec a
ld hl, $a04c
2015-12-07 08:28:58 -08:00
ld bc, $25
call AddNTimes
ld d, h
ld e, l
2016-01-12 09:46:18 -08:00
ld a, $04
call GetSRAMBank
call Function10208e
call Function102068
call CloseSRAM
xor a
ret
.asm_1020e8
scf
ret
2018-06-24 07:09:41 -07:00
Function1020ea:
ld hl, wdc41
bit 4, [hl]
2016-01-12 09:46:18 -08:00
jr z, .quit
ld hl, wdc41
bit 2, [hl]
2016-01-12 09:46:18 -08:00
jr nz, .quit
call Function10218d
ld hl, wc608
bit 4, [hl]
2016-01-12 09:46:18 -08:00
jr z, .quit
ld hl, wc608
bit 2, [hl]
2016-01-12 09:46:18 -08:00
jr nz, .quit
call Function102112
2016-01-12 09:46:18 -08:00
jr z, .quit
and a
ret
2016-01-12 09:46:18 -08:00
.quit
scf
ret
2018-06-24 07:09:41 -07:00
Function102112:
2016-01-12 09:46:18 -08:00
ld a, $04
call GetSRAMBank
ld hl, $a041
2016-01-12 09:46:18 -08:00
ld c, 40
.outer_loop
push hl
2016-01-12 09:46:18 -08:00
ld de, $c60f
ld b, 31
.inner_loop
ld a, [de]
cp [hl]
2016-01-12 09:46:18 -08:00
jr nz, .not_matching
inc de
inc hl
dec b
2016-01-12 09:46:18 -08:00
jr nz, .inner_loop
pop hl
xor a
2016-01-12 09:46:18 -08:00
jr .done
2016-01-12 09:46:18 -08:00
.not_matching
pop hl
2016-01-12 09:46:18 -08:00
ld de, 37
add hl, de
dec c
2016-01-12 09:46:18 -08:00
jr nz, .outer_loop
ld a, $01
and a
2016-01-12 09:46:18 -08:00
jr .done ; useless jr
2016-01-12 09:46:18 -08:00
.done
push af
call CloseSRAM
pop af
ret
2018-06-24 07:09:41 -07:00
Function102142:
call Function10218d
call Function102180
ld hl, UnknownText_0x1021d1
2019-04-08 05:15:10 -07:00
call MenuTextbox
ld de, SFX_LEVEL_UP
call PlaySFX
call JoyWaitAorB
call ExitMenu
call Function10219f
ld hl, UnknownText_0x1021d6
2019-04-08 05:15:10 -07:00
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
2018-06-24 07:09:41 -07:00
Function102180:
ld hl, wc608 + 1
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer2
2015-12-07 08:28:58 -08:00
ld bc, 11
call CopyBytes
ret
2018-06-24 07:09:41 -07:00
Function10218d:
2016-01-12 09:46:18 -08:00
ld hl, w5_dc00
ld de, wc608
2015-12-07 08:28:58 -08:00
ld bc, $26
2016-01-12 09:46:18 -08:00
ld a, $05
call FarCopyWRAM
2016-01-12 09:46:18 -08:00
ld de, wc608 + 1 ; useless
ret
2018-06-24 07:09:41 -07:00
Function10219f:
call FadeToMenu
call Function10218d
ld de, wc608 + 1
2017-12-24 09:47:30 -08:00
farcall Function8ac4e
call JoyWaitAorB
call PlayClickSFX
call Function1013aa
ret
2018-06-24 07:09:41 -07:00
Function1021b8:
call FadeToMenu
call Function10218d
2016-01-12 09:46:18 -08:00
ld de, wPlayerMoveStruct
2017-12-24 09:47:30 -08:00
farcall Function8ac70
ld a, c
2018-01-23 14:39:09 -08:00
ld [wStringBuffer1], a
push af
call Function1013aa
pop af
ret
2018-06-24 07:09:41 -07:00
UnknownText_0x1021d1:
text_far UnknownText_0x1bd19a
text_end
2018-06-24 07:09:41 -07:00
UnknownText_0x1021d6:
text_far UnknownText_0x1bd1ba
text_end
2018-06-24 07:09:41 -07:00
UnknownText_0x1021db:
text_far UnknownText_0x1bd1dd
text_end
2018-06-24 07:09:41 -07:00
Function1021e0:
2019-04-08 05:15:10 -07:00
call MenuTextbox
call JoyWaitAorB
call ExitMenu
ret
2018-06-24 07:09:41 -07:00
UnknownText_0x1021ea:
text_far UnknownText_0x1bd201
text_end
UnknownText_0x1021ef:
text_far UnknownText_0x1bd211
text_end
UnknownText_0x1021f4:
text_far UnknownText_0x1bd223
text_end
2018-06-24 07:09:41 -07:00
Function1021f9:
call Function102233
2015-12-28 07:57:04 -08:00
ld a, $0 ; Function10234b
ld [wcd49], a
ld hl, wcd29
bit 3, [hl]
res 3, [hl]
jr z, .asm_10220f
2015-12-28 07:57:04 -08:00
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
2018-06-24 07:09:41 -07:00
Function102233:
ld hl, wcd49
2015-12-07 08:28:58 -08:00
ld bc, 10
xor a
call ByteFill
call Function10304f
ret
2018-06-24 07:09:41 -07:00
Function102241:
call Function10226a
call Function102274
call Function10224b
ret
2018-06-24 07:09:41 -07:00
Function10224b:
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]
2017-12-24 09:47:30 -08:00
farcall Mobile_ReloadMapPart
scf
ret
2018-06-24 07:09:41 -07:00
Function10226a:
ld hl, wcd4b
bit 0, [hl]
ret z
call Function10305d
ret
2018-06-24 07:09:41 -07:00
Function102274:
ld hl, wcd4b
bit 3, [hl]
ret z
res 3, [hl]
2015-12-07 08:28:58 -08:00
ld de, 8
call PlaySFX
ret
2018-06-24 07:09:41 -07:00
Function102283:
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wAttrmapEnd], a
ld hl, wcd4b
set 0, [hl]
ret
2018-06-24 07:09:41 -07:00
Function10228e:
xor a
ld [wAttrmapEnd], a
ld hl, wcd4b
res 0, [hl]
ret
2018-06-24 07:09:41 -07:00
Function102298:
ld a, e
2016-01-12 09:46:18 -08:00
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
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wAttrmapEnd], a
ret
2018-06-24 07:09:41 -07:00
Function1022ca:
ld a, 30
2018-01-23 14:39:09 -08:00
ld [wOverworldDelay], a
ret
2018-06-24 07:09:41 -07:00
Function1022d0:
2017-12-24 09:47:30 -08:00
farcall Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_1022f3
call Function102298
2018-01-23 14:39:09 -08:00
ld a, [wOverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
2016-01-12 09:46:18 -08:00
ld b, $03
2017-12-24 09:47:30 -08:00
farcall AdvanceMobileInactivityTimerAndCheckExpired
jr c, .asm_1022f3
xor a
ret
.asm_1022f3
scf
ret
2018-06-24 07:09:41 -07:00
Jumptable_1022f5:
2015-12-28 07:57:04 -08:00
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
2018-06-24 07:09:41 -07:00
Function10234b:
call Function102d9a
call Function102dd3
call Function102dec
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function102361:
ld a, $cc
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function10236e:
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
2018-06-24 07:09:41 -07:00
Function102387:
ld hl, wcd4b
set 6, [hl]
xor a
ld [wdc5f], a
ld de, MUSIC_ROUTE_30
call PlayMusic
call Function102d9a
call Function102dd3
2016-01-12 09:46:18 -08:00
ld a, $01
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2018-06-24 07:09:41 -07:00
Function1023a1:
call Function102283
call Function102db7
call Function102dec
ld hl, wcd4b
set 1, [hl]
ld a, $1d
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1023b5:
call Function10228e
call Function102a3b
call Function102b12
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1023c6:
call Function102c48
call Function102c87
ld a, [wcd4c]
dec a
2018-01-23 14:39:09 -08:00
ld [wCurPartyMon], a
xor a ; REMOVE_PARTY
2017-12-09 12:14:51 -08:00
ld [wPokemonWithdrawDepositParameter], a
2017-12-24 09:47:30 -08:00
farcall RemoveMonFromPartyOrBox
2018-01-23 14:39:09 -08:00
ld hl, wPartyCount
inc [hl]
ld a, [hli]
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
add hl, bc
ld [hl], $ff
2018-01-23 14:39:09 -08:00
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
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4f], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function102416:
ld a, $aa
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function102423:
call Function102921
ret nc
2017-12-24 09:47:30 -08:00
farcall SaveAfterLinkTrade
farcall StubbedTrainerRankings_Trades
2017-12-24 09:47:30 -08:00
farcall BackupMobileEventIndex
ld hl, wcd4b
set 1, [hl]
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function10244b:
call Function102f32
ld hl, wcd4b
set 1, [hl]
ld a, $19
ld [wcd4e], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4f], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function10246a:
call Function102d9a
ld hl, wcd29
set 3, [hl]
call Function102e07
ld hl, wcd4b
set 1, [hl]
ld a, $2a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function102480:
ld c, $32
call DelayFrames
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function10248d:
ld a, [wcd49]
set 7, a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function102496:
ld hl, wcd4e
dec [hl]
ret nz
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1024a8:
2017-12-24 09:47:30 -08:00
farcall Function1009f3
ret c
2018-06-24 07:09:41 -07:00
Function1024af:
call GetJoypad
ld a, [wcd4a]
ld hl, Jumptable_1024ba
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_1024ba:
dw Function1024c0
dw Function1024cb
dw Function1024de
2018-06-24 07:09:41 -07:00
Function1024c0:
ld hl, wcd4e
inc [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
2018-06-24 07:09:41 -07:00
Function1024cb:
ld hl, wcd4e
dec [hl]
ret nz
ld a, [wcd4f]
inc a
ld [wcd4e], a
ld a, [wcd4a]
inc a
ld [wcd4a], a
2018-06-24 07:09:41 -07:00
Function1024de:
ld hl, wcd4e
dec [hl]
jr z, .asm_1024e9
ldh a, [hJoyPressed]
and A_BUTTON | B_BUTTON
ret z
.asm_1024e9
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1024f6:
2015-12-17 19:31:16 -08:00
call PlaceHollowCursor
ld hl, wcd4b
set 1, [hl]
ld a, [wcd4c]
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function10250c:
call Function1028fc
ret nc
ld a, [wcd51]
2016-01-12 09:46:18 -08:00
cp $0f
jr z, .asm_10254b
and a
jr z, .asm_102572
cp $aa
jr z, .asm_102572
2016-01-12 09:46:18 -08:00
cp $07
jr nc, .asm_102572
ld [wcd4d], a
dec a
ld [wd003], a
ld a, [wcd4c]
dec a
2015-11-10 16:51:13 -08:00
ld [wd002], a
call Function102b9c
call Function102bdc
jr c, .asm_10256d
2017-12-24 09:47:30 -08:00
farcall Functionfb5dd
jr c, .asm_102568
ld hl, wcd4b
set 1, [hl]
2016-01-12 09:46:18 -08:00
ld a, $0e
ld [wcd49], a
ret
.asm_10254b
call Function103021
ld hl, wcd4b
set 1, [hl]
2015-12-07 08:28:58 -08:00
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]
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ld a, $1e
ld [wcd4e], a
ld a, $3c
ld [wcd4f], a
2016-01-12 09:46:18 -08:00
ld a, $09
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function102591:
call Function102ee7
ld hl, wcd4b
set 1, [hl]
2015-12-07 08:28:58 -08:00
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
2018-06-24 07:09:41 -07:00
Function1025b0:
2016-01-12 09:46:18 -08:00
ld a, $09
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1025bd:
call Function1028fc
ret nc
2016-01-12 09:46:18 -08:00
ld a, $04
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1025c7:
call Function102f6d
ld hl, wcd4b
set 1, [hl]
2016-01-12 09:46:18 -08:00
ld a, $0f
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1025dc:
call Function1028fc
ret nc
ld a, [wcd49]
set 7, a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1025e9:
nop
ld hl, wcd4b
set 6, [hl]
call Function102b4e
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1025ff:
ld hl, wcd4b
set 2, [hl]
2017-12-24 09:47:30 -08:00
farcall Function1009f3
ret c
2017-12-24 09:47:30 -08:00
farcall MobileMenuJoypad
ld a, [wMenuJoypadFilter]
and c
ret z
2015-12-28 07:57:04 -08:00
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
2015-12-28 07:57:04 -08:00
.a_button
ld hl, wcd4b
set 3, [hl]
2015-12-28 07:57:04 -08:00
ld a, $27 ; Function1028d3
ld [wcd49], a
ret
2015-12-28 07:57:04 -08:00
.d_up
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wOTPartyCount]
cp b
ret nz
2015-12-17 19:31:16 -08:00
call HideCursor
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-28 07:57:04 -08:00
ld a, $1d ; Function102652
ld [wcd49], a
ret
2015-12-28 07:57:04 -08:00
.d_down
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2016-01-12 09:46:18 -08:00
cp $01
ret nz
2015-12-28 07:57:04 -08:00
ld a, $23 ; Function1026b7
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function102652:
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
2018-06-24 07:09:41 -07:00
Function10266b:
ld hl, wcd4b
set 2, [hl]
2017-12-24 09:47:30 -08:00
farcall Function1009f3
ret c
2017-12-24 09:47:30 -08:00
farcall MobileMenuJoypad
ld a, [wMenuJoypadFilter]
and c
ret z
2015-12-28 07:57:04 -08:00
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
2015-12-28 07:57:04 -08:00
.a_button
ld hl, wcd4b
set 3, [hl]
2015-12-28 07:57:04 -08:00
ld a, $21 ; Function102738
ld [wcd49], a
ret
2015-12-28 07:57:04 -08:00
.d_down
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
dec a
ret nz
2015-12-17 19:31:16 -08:00
call HideCursor
2015-12-28 07:57:04 -08:00
ld a, $1f ; Function1025e9
ld [wcd49], a
ret
2015-12-28 07:57:04 -08:00
.d_up
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
cp b
ret nz
2015-12-28 07:57:04 -08:00
ld a, $23 ; Function1026b7
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1026b7:
ld hl, wcd4b
set 6, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
2018-06-24 07:09:41 -07:00
Function1026c8:
call GetJoypad
2017-12-24 09:47:30 -08:00
farcall Function1009f3
ret c
ld a, [wcd4a]
ld hl, Jumptable_1026da
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_1026da:
dw Function1026de
dw Function1026f3
2018-06-24 07:09:41 -07:00
Function1026de:
2015-12-17 19:31:16 -08:00
call HideCursor
hlcoord 9, 17
ld [hl], $ed
ld a, [wcd4a]
inc a
ld [wcd4a], a
ld hl, wcd4b
set 1, [hl]
ret
2018-06-24 07:09:41 -07:00
Function1026f3:
ldh a, [hJoyPressed]
2015-12-28 07:57:04 -08:00
bit A_BUTTON_F, a
jr nz, .asm_102723
2015-12-28 07:57:04 -08:00
bit D_UP_F, a
jr nz, .asm_102712
2015-12-28 07:57:04 -08:00
bit D_DOWN_F, a
jr nz, .asm_102702
ret
.asm_102702
hlcoord 9, 17
2015-12-28 07:57:04 -08:00
ld [hl], " "
2016-01-12 09:46:18 -08:00
ld a, $01
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-28 07:57:04 -08:00
ld a, $1d ; Function102652
ld [wcd49], a
ret
.asm_102712
hlcoord 9, 17
2015-12-28 07:57:04 -08:00
ld [hl], " "
2018-01-23 14:39:09 -08:00
ld a, [wOTPartyCount]
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-28 07:57:04 -08:00
ld a, $1f ; Function1025e9
ld [wcd49], a
ret
.asm_102723
hlcoord 9, 17
2015-12-28 07:57:04 -08:00
ld [hl], "▷"
ld hl, wcd4b
set 3, [hl]
ld hl, wcd4b
set 2, [hl]
2015-12-28 07:57:04 -08:00
ld a, $5 ; Function1025c7
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function102738:
ld hl, wcd4b
set 6, [hl]
2015-12-17 19:31:16 -08:00
call PlaceHollowCursor
call Function1027eb
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
2018-06-24 07:09:41 -07:00
Function102754:
call GetJoypad
2017-12-24 09:47:30 -08:00
farcall Function1009f3
ret c
ld a, [wcd4a]
ld hl, Jumptable_102766
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_102766:
dw Function102770
dw Function102775
dw Function10278c
dw Function1027a0
dw Function1027b7
2018-06-24 07:09:41 -07:00
Function102770:
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wcd4a], a
2018-06-24 07:09:41 -07:00
Function102775:
hlcoord 1, 16
2015-12-28 07:57:04 -08:00
ld [hl], "▶"
hlcoord 11, 16
2015-12-28 07:57:04 -08:00
ld [hl], " "
ld hl, wcd4b
set 2, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
ret
2018-06-24 07:09:41 -07:00
Function10278c:
ldh a, [hJoyPressed]
2015-12-28 07:57:04 -08:00
bit A_BUTTON_F, a
jr nz, asm_1027c6
2015-12-28 07:57:04 -08:00
bit B_BUTTON_F, a
jr nz, asm_1027e2
2015-12-28 07:57:04 -08:00
bit D_RIGHT_F, a
jr nz, .asm_10279b
ret
.asm_10279b
2016-01-12 09:46:18 -08:00
ld a, $03
ld [wcd4a], a
2018-06-24 07:09:41 -07:00
Function1027a0:
hlcoord 1, 16
2015-12-28 07:57:04 -08:00
ld [hl], " "
hlcoord 11, 16
2015-12-28 07:57:04 -08:00
ld [hl], "▶"
ld hl, wcd4b
set 2, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
ret
2018-06-24 07:09:41 -07:00
Function1027b7:
ldh a, [hJoyPressed]
2015-12-28 07:57:04 -08:00
bit A_BUTTON_F, a
jr nz, asm_1027d1
2015-12-28 07:57:04 -08:00
bit B_BUTTON_F, a
jr nz, asm_1027e2
2015-12-28 07:57:04 -08:00
bit D_LEFT_F, a
jr nz, Function102770
ret
asm_1027c6:
ld hl, wcd4b
set 3, [hl]
2015-12-28 07:57:04 -08:00
ld a, $25 ; Function1028bf
ld [wcd49], a
ret
asm_1027d1:
ld hl, wcd4b
set 3, [hl]
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
ld [wcd4c], a
2015-12-28 07:57:04 -08:00
ld a, $7 ; Function1024f6
ld [wcd49], a
ret
asm_1027e2:
call Function102db7
2015-12-28 07:57:04 -08:00
ld a, $1d ; Function102652
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1027eb:
hlcoord 0, 14
2015-12-28 07:57:04 -08:00
ld b, 2
ld c, 18
ld d, h
ld e, l
2017-12-24 09:47:30 -08:00
farcall _LinkTextbox
2015-12-28 07:57:04 -08:00
ld de, .Stats_Trade
hlcoord 2, 16
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.Stats_Trade:
db "STATS TRADE@"
2018-06-24 07:09:41 -07:00
Function102814:
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
ld [wcd52], a
ld a, [wcd4c]
dec a
2015-11-10 16:51:13 -08:00
ld [wd002], a
ld a, [wcd4d]
dec a
ld [wd003], a
call Function102ea8
ld a, [wcd49]
inc a
ld [wcd49], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ld hl, wcd4b
set 1, [hl]
2018-06-24 07:09:41 -07:00
Function10283c:
ld hl, wcd4b
set 2, [hl]
call Function1029c3
ret z
jr c, .asm_102852
2015-12-28 07:57:04 -08:00
ld a, $10 ; Function102862
ld [wcd49], a
ld hl, wcd4b
set 1, [hl]
ret
.asm_102852
2015-12-28 07:57:04 -08:00
ld a, $14 ; Function1028ab
ld [wcd49], a
ld hl, wcd4b
set 3, [hl]
ld hl, wcd4b
set 1, [hl]
ret
2018-06-24 07:09:41 -07:00
Function102862:
2016-01-12 09:46:18 -08:00
ld a, $08
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function10286f:
call Function1028fc
ret nc
ld a, [wcd52]
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
ld a, [wcd51]
2016-01-12 09:46:18 -08:00
cp $08
jr nz, .asm_102886
2015-12-28 07:57:04 -08:00
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
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1028a5:
2015-12-28 07:57:04 -08:00
ld a, $4 ; Function1023a1
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1028ab:
ld a, [wcd52]
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
call Function102f15
ld hl, wcd4b
set 1, [hl]
2015-12-28 07:57:04 -08:00
ld a, $c ; Function1025b0
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1028bf:
ld a, [wcd49]
inc a
ld [wcd49], a
2018-06-24 07:09:41 -07:00
Function1028c6:
xor a
2018-01-23 14:39:09 -08:00
ld [wMonType], a
call Function102bac
2015-12-28 07:57:04 -08:00
ld a, $1d ; Function102652
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1028d3:
ld a, [wcd49]
inc a
ld [wcd49], a
2018-06-24 07:09:41 -07:00
Function1028da:
2015-12-28 07:57:04 -08:00
ld a, OTPARTYMON
2018-01-23 14:39:09 -08:00
ld [wMonType], a
call Function102bac
2015-12-28 07:57:04 -08:00
ld a, $1f ; Function1025e9
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function1028e8:
ld hl, wcd4b
res 6, [hl]
ld [wcd50], a
2017-12-24 09:47:30 -08:00
farcall StartMobileInactivityTimer
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ret
2018-06-24 07:09:41 -07:00
Function1028fc:
call GetJoypad
2017-12-24 09:47:30 -08:00
farcall Function1009f3
jr nc, .asm_102909
and a
ret
.asm_102909
ld a, [wcd4a]
ld hl, Jumptable_102917
rst JumpTable
ret nc
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ret
2018-06-24 07:09:41 -07:00
Jumptable_102917:
dw Function102933
dw Function10294f
dw Function10295d
dw Function10296e
dw Function102996
2018-06-24 07:09:41 -07:00
Function102921:
ld a, [wcd4a]
ld hl, Jumptable_10292f
rst JumpTable
ret nc
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd4a], a
ret
2018-06-24 07:09:41 -07:00
Jumptable_10292f:
dw Function10295d
dw Function102984
2018-06-24 07:09:41 -07:00
Function102933:
ld hl, MenuHeader_1029bb
call LoadMenuHeader
call Function102e07
ld a, $32
2018-01-23 14:39:09 -08:00
ld [wTextDelayFrames], a
ld hl, wcd4b
set 1, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
2018-06-24 07:09:41 -07:00
Function10294f:
2018-01-23 14:39:09 -08:00
ld a, [wTextDelayFrames]
and a
ret nz
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
2018-06-24 07:09:41 -07:00
Function10295d:
call Function10299e
2015-12-07 08:28:58 -08:00
ld a, 0
ld [wcd27], a
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
2018-06-24 07:09:41 -07:00
Function10296e:
2017-12-24 09:47:30 -08:00
farcall Function100382
and a
ld a, [wcd27]
bit 7, a
ret z
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
2018-06-24 07:09:41 -07:00
Function102984:
2017-12-24 09:47:30 -08:00
farcall Function100382
and a
ld a, [wcd27]
bit 7, a
ret z
call Function1029af
scf
ret
2018-06-24 07:09:41 -07:00
Function102996:
call Function1029af
call ExitMenu
scf
ret
2018-06-24 07:09:41 -07:00
Function10299e:
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wccb4], a
ld a, [wcd50]
ld [wccb5], a
ld a, $aa
ld [wcd51], a
ret
2018-06-24 07:09:41 -07:00
Function1029af:
ld hl, wcd4b
res 7, [hl]
ld a, [wcc61]
ld [wcd51], a
ret
2018-06-24 07:09:41 -07:00
MenuHeader_1029bb:
db MENU_BACKUP_TILES ; flags
menu_coords 3, 10, 15, 12
dw NULL
db 1 ; default option
2018-06-24 07:09:41 -07:00
Function1029c3:
ld a, [wcd4a]
ld hl, Jumptable_1029cb
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
Jumptable_1029cb:
dw Function1029cf
dw Function1029fe
2018-06-24 07:09:41 -07:00
Function1029cf:
call LoadStandardMenuHeader
hlcoord 10, 7
ld b, 3
ld c, 8
ld d, h
ld e, l
2017-12-24 09:47:30 -08:00
farcall _LinkTextbox
ld de, String_102a26
hlcoord 12, 8
call PlaceString
ld hl, wcd4b
set 1, [hl]
ld de, MenuData3_102a33
2015-12-23 11:00:29 -08:00
call SetMenuAttributes
ld a, [wcd4a]
inc a
ld [wcd4a], a
xor a
ret
2018-06-24 07:09:41 -07:00
Function1029fe:
2017-12-24 09:47:30 -08:00
farcall Function1009f3
ret c
2017-12-24 09:47:30 -08:00
farcall MobileMenuJoypad
ld a, c
ld hl, wMenuJoypadFilter
and [hl]
ret z
push af
call ExitMenu
pop af
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2016-01-12 09:46:18 -08:00
cp $01
jr nz, .asm_102a21
2016-01-12 09:46:18 -08:00
ld a, $01
and a
ret
.asm_102a21
2016-01-12 09:46:18 -08:00
ld a, $01
and a
scf
ret
2018-06-24 07:09:41 -07:00
String_102a26:
db "TRADE"
next "CANCEL"
db "@"
MenuData3_102a33:
db 8, 11
db 2, 1
2015-12-23 11:00:29 -08:00
db $80, $00
dn 2, 0
db A_BUTTON
2018-06-24 07:09:41 -07:00
Function102a3b:
ld a, [wcd30]
ld [wc74e], a
2018-01-23 14:39:09 -08:00
ld hl, wPlayerName
2016-01-12 09:46:18 -08:00
ld de, wPlayerTrademonSenderName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4c]
dec a
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wPartySpecies
add hl, bc
ld a, [hl]
ld [wPlayerTrademonSpecies], a
ld a, [wcd4c]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonOT
call SkipNames
ld de, wPlayerTrademonOTName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4c]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1ID
call GetPartyLocation
ld a, [hli]
ld [wPlayerTrademonID], a
ld a, [hl]
ld [wPlayerTrademonID + 1], a
ld a, [wcd4c]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1DVs
call GetPartyLocation
ld a, [hli]
ld [wPlayerTrademonDVs], a
ld a, [hl]
ld [wPlayerTrademonDVs + 1], a
ld a, [wcd4c]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
2017-12-24 09:47:30 -08:00
farcall GetCaughtGender
ld a, c
ld [wPlayerTrademonCaughtData], a
2018-01-23 14:39:09 -08:00
ld hl, wOTPlayerName
ld de, wOTTrademonSenderName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4d]
dec a
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wOTPartySpecies
add hl, bc
ld a, [hl]
ld [wOTTrademonSpecies], a
ld a, [wcd4d]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMonOT
call SkipNames
ld de, wOTTrademonOTName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4d]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1ID
call GetPartyLocation
ld a, [hli]
ld [wOTTrademonID], a
ld a, [hl]
ld [wOTTrademonID + 1], a
ld a, [wcd4d]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1DVs
call GetPartyLocation
ld a, [hli]
ld [wOTTrademonDVs], a
ld a, [hl]
ld [wOTTrademonDVs + 1], a
ld a, [wcd4d]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
2017-12-24 09:47:30 -08:00
farcall GetCaughtGender
ld a, c
ld [wOTTrademonCaughtData], a
ret
2018-06-24 07:09:41 -07:00
Function102b12:
ld c, 100
call DelayFrames
call Function102d9a
call LoadFontsBattleExtra
ld a, [wcd2f]
and a
jr nz, .asm_102b2b
2017-12-24 09:47:30 -08:00
farcall Function108026
jr .asm_102b31
.asm_102b2b
2017-12-24 09:47:30 -08:00
farcall Function10802a
.asm_102b31
ret
2018-06-24 07:09:41 -07:00
Function102b32:
ld a, [wcd4c]
dec a
2018-01-23 14:39:09 -08:00
ld [wCurPartyMon], a
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wForceEvolution], a
2017-12-24 09:47:30 -08:00
farcall EvolvePokemon
call Function102d9a
call Function102dd3
call Function102dec
ret
2018-06-24 07:09:41 -07:00
Function102b4e:
2015-12-28 07:57:04 -08:00
ld a, OTPARTYMON
2018-01-23 14:39:09 -08:00
ld [wMonType], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
push af
ld de, Unknown_102b73
2015-12-23 11:00:29 -08:00
call SetMenuAttributes
pop af
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2018-01-23 14:39:09 -08:00
ld a, [wOTPartyCount]
ld [w2DMenuNumRows], a
ret
2018-06-24 07:09:41 -07:00
Unreferenced_Function102b68:
xor a
2015-12-15 15:59:49 -08:00
ld hl, wWindowStackPointer
2015-12-07 08:28:58 -08:00
ld bc, $10
call ByteFill
ret
Unknown_102b73:
2015-12-23 11:00:29 -08:00
db 9, 6
db 255, 1
db $a0, $00
dn 1, 0
db D_UP | D_DOWN | A_BUTTON
2018-06-24 07:09:41 -07:00
Function102b7b:
xor a
2018-01-23 14:39:09 -08:00
ld [wMonType], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
push af
ld de, Unknown_102b94
2015-12-23 11:00:29 -08:00
call SetMenuAttributes
pop af
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
ld [w2DMenuNumRows], a
ret
Unknown_102b94:
2015-12-23 11:00:29 -08:00
db 1, 6
db 255, 1
db $a0, $00
dn 1, 0
db D_UP | D_DOWN | A_BUTTON
2018-06-24 07:09:41 -07:00
Function102b9c:
ld a, [wcd4d]
dec a
hlcoord 6, 9
2015-12-07 08:28:58 -08:00
ld bc, $14
call AddNTimes
ld [hl], $ec
ret
2018-06-24 07:09:41 -07:00
Function102bac:
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
dec a
2018-01-23 14:39:09 -08:00
ld [wCurPartyMon], a
call LowVolume
call ClearSprites
2017-12-24 09:47:30 -08:00
farcall _MobileStatsScreenInit
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyMon]
inc a
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
call Function102d9a
call ClearPalettes
call DelayFrame
call MaxVolume
call Function102dd3
call Function102dec
call Function102db7
ret
2018-06-24 07:09:41 -07:00
Function102bdc:
ld a, [wcd4d]
dec a
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1Species
call GetPartyLocation
push hl
ld a, [wcd4d]
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
2018-01-23 14:39:09 -08:00
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
2018-06-24 07:09:41 -07:00
Function102c07:
call Function102c14
call Function102c3b
call Function102c21
call Function102c2e
ret
2018-06-24 07:09:41 -07:00
Function102c14:
2018-01-23 14:39:09 -08:00
ld hl, wPartySpecies
ld de, wOTPartySpecies
2015-12-07 08:28:58 -08:00
ld bc, 1
call Function102c71
ret
2018-06-24 07:09:41 -07:00
Function102c21:
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonNicknames
ld de, wOTPartyMonNicknames
2015-12-07 08:28:58 -08:00
ld bc, 11
call Function102c71
ret
2018-06-24 07:09:41 -07:00
Function102c2e:
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonOT
ld de, wOTPartyMonOT
2015-12-07 08:28:58 -08:00
ld bc, 11
call Function102c71
ret
2018-06-24 07:09:41 -07:00
Function102c3b:
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1
ld de, wOTPartyMon1
2015-12-07 08:28:58 -08:00
ld bc, $30
call Function102c71
ret
2018-06-24 07:09:41 -07:00
Function102c48:
2017-12-24 09:47:30 -08:00
farcall Function10165a
2015-12-07 08:28:58 -08:00
ld a, 0
call GetSRAMBank
ld hl, $a600
ld de, wc608
2015-12-07 08:28:58 -08:00
ld bc, $2f
call Function102c71
call CloseSRAM
ld hl, wc608
2016-01-12 09:46:18 -08:00
ld de, w5_da00
2015-12-07 08:28:58 -08:00
ld bc, $1e0
2016-01-12 09:46:18 -08:00
ld a, $05
call FarCopyWRAM
ret
2018-06-24 07:09:41 -07:00
Function102c71:
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
2018-06-24 07:09:41 -07:00
Function102c87:
2015-10-24 16:49:19 -07:00
ld a, [wJumptableIndex]
push af
ld a, [wcf64]
push af
ld a, [wcd4c]
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
ld [wcf64], a
2015-12-07 08:28:58 -08:00
ld a, 0
ld hl, $a600
ld de, wc608
2015-12-07 08:28:58 -08:00
ld bc, $11a
call Function102d3e
call Function102cee
2015-12-07 08:28:58 -08:00
ld a, 0
ld hl, wc608
ld de, $a600
2015-12-07 08:28:58 -08:00
ld bc, $11a
call Function102d3e
ld a, [wcd4d]
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
2018-01-23 14:39:09 -08:00
ld a, [wOTPartyCount]
ld [wcf64], a
2016-01-12 09:46:18 -08:00
ld a, $05
ld hl, w5_da00
ld de, wc608
2015-12-07 08:28:58 -08:00
ld bc, $11a
call FarCopyWRAM
call Function102cee
2016-01-12 09:46:18 -08:00
ld a, $05
ld hl, wc608
2016-01-12 09:46:18 -08:00
ld de, w5_da00
2015-12-07 08:28:58 -08:00
ld bc, $11a
call FarCopyWRAM
pop af
ld [wcf64], a
pop af
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function102cee:
2015-10-24 16:49:19 -07:00
ld a, [wJumptableIndex]
dec a
call Function102d34
2015-11-10 16:51:13 -08:00
ld de, wd002
2015-12-07 08:28:58 -08:00
ld bc, $2f
call CopyBytes
2015-10-24 16:49:19 -07:00
ld a, [wJumptableIndex]
ld c, a
2016-01-12 09:46:18 -08:00
ld a, $06
sub c
ret z
2015-12-07 08:28:58 -08:00
ld bc, $2f
2015-11-02 11:37:02 -08:00
ld hl, 0
call AddNTimes
push hl
2015-10-24 16:49:19 -07:00
ld a, [wJumptableIndex]
dec a
call Function102d34
ld d, h
ld e, l
2015-12-07 08:28:58 -08:00
ld hl, $2f
add hl, de
pop bc
call CopyBytes
ld a, [wcf64]
dec a
call Function102d34
ld d, h
ld e, l
2015-11-10 16:51:13 -08:00
ld hl, wd002
2015-12-07 08:28:58 -08:00
ld bc, $2f
call CopyBytes
ret
2018-06-24 07:09:41 -07:00
Function102d34:
ld hl, wc608
2015-12-07 08:28:58 -08:00
ld bc, $2f
call AddNTimes
ret
2018-06-24 07:09:41 -07:00
Function102d3e:
call GetSRAMBank
call CopyBytes
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
Function102d48:
ld a, [wcd4c]
ld e, a
ld d, 0
2018-01-23 14:39:09 -08:00
ld hl, wPartyCount
add hl, de
ld a, [hl]
ld [wTempSpecies], a
cp EGG
jr z, .asm_102d6d
dec a
call SetSeenAndCaughtMon
ld a, [wcd4c]
dec a
ld bc, PARTYMON_STRUCT_LENGTH
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Happiness
call AddNTimes
ld [hl], BASE_HAPPINESS
.asm_102d6d
ld a, [wTempSpecies]
cp UNOWN
jr nz, .asm_102d98
ld a, [wcd4c]
dec a
ld bc, PARTYMON_STRUCT_LENGTH
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1DVs
call AddNTimes
predef GetUnownLetter
2017-12-24 09:47:30 -08:00
farcall UpdateUnownDex
2015-11-29 18:34:59 -08:00
ld a, [wFirstUnownSeen]
and a
jr nz, .asm_102d98
2018-01-23 14:39:09 -08:00
ld a, [wUnownLetter]
2015-11-29 18:34:59 -08:00
ld [wFirstUnownSeen], a
.asm_102d98
and a
ret
2018-06-24 07:09:41 -07:00
Function102d9a:
2016-01-12 09:46:18 -08:00
ld a, " "
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
2016-01-12 09:46:18 -08:00
ld a, $07
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
farcall HDMATransferAttrmapAndTilemapToWRAMBank3
ret
2018-06-24 07:09:41 -07:00
Function102db7:
call Function102e4f
call Function102e3e
ld hl, wcd4b
set 1, [hl]
ret
2018-06-24 07:09:41 -07:00
Function102dc3:
hlcoord 0, 12
2016-01-12 09:46:18 -08:00
ld b, 4
ld c, 18
ld d, h
ld e, l
2017-12-24 09:47:30 -08:00
farcall _LinkTextbox
ret
2018-06-24 07:09:41 -07:00
Function102dd3:
call DisableLCD
ld de, GFX_1032a2
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
lb bc, BANK(GFX_1032a2), 4
call Get2bpp
2017-12-24 09:47:30 -08:00
farcall __LoadTradeScreenBorder
call EnableLCD
ret
2018-06-24 07:09:41 -07:00
Function102dec:
2016-01-12 09:46:18 -08:00
ld hl, Palettes_1032e2
2018-01-01 06:08:21 -08:00
ld de, wOBPals1
2016-01-12 09:46:18 -08:00
ld bc, 4 palettes
ld a, $05
call FarCopyWRAM
2017-12-24 09:47:30 -08:00
farcall Function49742
2015-09-09 16:27:07 -07:00
call SetPalettes
call DelayFrame
ret
2018-06-24 07:09:41 -07:00
Function102e07:
hlcoord 3, 10
2016-01-12 09:46:18 -08:00
ld b, 1
ld c, 11
ld a, [wBattleMode]
and a
2016-01-12 09:46:18 -08:00
jr z, .link_battle
2019-04-08 05:15:10 -07:00
call Textbox
2016-01-12 09:46:18 -08:00
jr .okay
2016-01-12 09:46:18 -08:00
.link_battle
; this is idiotic
hlcoord 3, 10
2016-01-12 09:46:18 -08:00
ld b, 1
ld c, 11
ld d, h
ld e, l
2017-12-24 09:47:30 -08:00
farcall _LinkTextbox
2016-01-12 09:46:18 -08:00
.okay
ld de, .waiting
hlcoord 4, 11
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.waiting
db "Waiting...!@"
2018-06-24 07:09:41 -07:00
Function102e3e:
2016-01-12 09:46:18 -08:00
ld de, .CANCEL
hlcoord 10, 17
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.CANCEL:
db "CANCEL@"
2018-06-24 07:09:41 -07:00
Function102e4f:
2017-12-24 09:47:30 -08:00
farcall Function16d42e
farcall _InitMG_Mobile_LinkTradePalMap
2018-01-23 14:39:09 -08:00
ld de, wPlayerName
hlcoord 4, 0
call PlaceString
ld a, $14
ld [bc], a
2018-01-23 14:39:09 -08:00
ld de, wOTPlayerName
hlcoord 4, 8
call PlaceString
ld a, $14
ld [bc], a
hlcoord 7, 1
2018-01-23 14:39:09 -08:00
ld de, wPartySpecies
2016-01-12 09:46:18 -08:00
call .PlaceSpeciesNames
hlcoord 7, 9
2018-01-23 14:39:09 -08:00
ld de, wOTPartySpecies
2016-01-12 09:46:18 -08:00
call .PlaceSpeciesNames
ret
2018-06-24 07:09:41 -07:00
.PlaceSpeciesNames:
2015-12-07 08:28:58 -08:00
ld c, 0
2016-01-12 09:46:18 -08:00
.count_loop
ld a, [de]
cp $ff
ret z
ld [wNamedObjectIndexBuffer], a
push bc
push hl
push de
push hl
ld a, c
ldh [hDividend], a
call GetPokemonName
pop hl
call PlaceString
pop de
inc de
pop hl
2016-01-12 09:46:18 -08:00
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
inc c
2016-01-12 09:46:18 -08:00
jr .count_loop
2018-06-24 07:09:41 -07:00
Function102ea8:
call Function102dc3
ld a, [wcd4c]
dec a
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wPartySpecies
add hl, bc
ld a, [hl]
ld [wNamedObjectIndexBuffer], a
call GetPokemonName
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer1
ld de, wStringBuffer2
2015-12-07 08:28:58 -08:00
ld bc, 11
call CopyBytes
ld a, [wcd4d]
dec a
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wOTPartySpecies
add hl, bc
ld a, [hl]
ld [wNamedObjectIndexBuffer], a
call GetPokemonName
ld hl, UnknownText_0x102ee2
2019-04-08 05:15:10 -07:00
call PrintTextboxText
ret
2018-06-24 07:09:41 -07:00
UnknownText_0x102ee2:
text_far UnknownText_0x1bd286
text_end
2018-06-24 07:09:41 -07:00
Function102ee7:
call Function102dc3
ld de, String_102ef4
hlcoord 1, 14
call PlaceString
ret
2018-06-24 07:09:41 -07:00
String_102ef4:
db "Too bad! The trade"
next "was canceled!"
db "@"
2018-06-24 07:09:41 -07:00
Function102f15:
call Function102dc3
2016-01-12 09:46:18 -08:00
ld de, .TooBadTheTradeWasCanceled
hlcoord 1, 14
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.TooBadTheTradeWasCanceled:
db "こうかんを キャンセルしました@"
2018-06-24 07:09:41 -07:00
Function102f32:
call Function102dc3
2016-01-12 09:46:18 -08:00
ld de, .TradeCompleted
hlcoord 1, 14
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.TradeCompleted:
db "Trade completed!@"
2018-06-24 07:09:41 -07:00
Function102f50:
call Function102dc3
2016-01-12 09:46:18 -08:00
ld de, .PleaseWait
hlcoord 1, 14
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.PleaseWait:
db "しょうしょう おまち ください@"
2018-06-24 07:09:41 -07:00
Function102f6d:
call Function102dc3
2016-01-12 09:46:18 -08:00
ld de, .Finished
hlcoord 1, 14
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.Finished:
db "しゅうりょう します@"
2018-06-24 07:09:41 -07:00
Function102f85:
ld a, [wd003]
ld c, a
2015-12-07 08:28:58 -08:00
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wOTPartySpecies
add hl, bc
ld a, [hl]
ld [wNamedObjectIndexBuffer], a
call GetPokemonName
call Function102dc3
ld de, String_102fb2
hlcoord 1, 14
call PlaceString
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer1
hlcoord 13, 14
call PlaceString
ld de, String_102fcc
call PlaceString
ret
2018-06-24 07:09:41 -07:00
String_102fb2:
db "あいてがわ<PKMN>えらんだ "
next "いじょう<PKMN>あるようです!!"
db "@"
2018-06-24 07:09:41 -07:00
String_102fcc:
db "に@"
2018-06-24 07:09:41 -07:00
Function102fce:
call Function102dc3
ld de, String_102fdb
hlcoord 1, 14
call PlaceString
ret
2018-06-24 07:09:41 -07:00
String_102fdb:
2018-01-18 19:30:30 -08:00
db "あいてがわ<NO>せんたくに"
next "いじょう<PKMN>あるようです!!"
done
2018-06-24 07:09:41 -07:00
Function102ff5:
call Function102dc3
ld de, String_103002
hlcoord 1, 14
call PlaceString
ret
2018-06-24 07:09:41 -07:00
String_103002:
db "その#を こうかんすると"
next "せんとう できなく なっちゃうよ!"
db "@"
2018-06-24 07:09:41 -07:00
Function103021:
call Function102dc3
ld de, String_10302e
hlcoord 1, 14
call PlaceString
ret
2018-06-24 07:09:41 -07:00
String_10302e:
db "あいてが ちゅうしを えらんだので"
next "こうかんを ちゅうし します"
db "@"
2018-06-24 07:09:41 -07:00
Function10304f:
xor a
ld [wAttrmapEnd], a
ld [wcf42], a
ld [wcf44], a
ld [wcf45], a
ret
2018-06-24 07:09:41 -07:00
Function10305d:
nop
ld a, [wAttrmapEnd]
and a
ret z
call Function10307f
ret c
call Function103094
call Function10306e
ret
2018-06-24 07:09:41 -07:00
Function10306e:
2016-01-12 09:46:18 -08:00
ld a, $01
ldh [hOAMUpdate], a
call ClearSprites
ld de, wVirtualOAM
call Function1030cd
xor a
ldh [hOAMUpdate], a
ret
2018-06-24 07:09:41 -07:00
Function10307f:
2016-01-12 09:46:18 -08:00
ld c, $02
ld hl, wcd4b
bit 7, [hl]
jr z, .asm_10308a
2016-01-12 09:46:18 -08:00
ld c, $01
.asm_10308a
ld hl, wcf45
inc [hl]
ld a, [hl]
cp c
ret c
xor a
ld [hl], a
ret
2018-06-24 07:09:41 -07:00
Function103094:
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
2018-06-24 07:09:41 -07:00
Function1030cd:
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
2016-01-12 09:46:18 -08:00
ld c, $08
.asm_1030de
push hl
ld hl, wcd4b
bit 7, [hl]
pop hl
2015-12-07 08:28:58 -08:00
ld a, 0
jr z, .asm_1030eb
2016-01-12 09:46:18 -08:00
ld a, $05
.asm_1030eb
add [hl]
inc hl
push hl
add a
2015-12-26 18:59:03 -08:00
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
2016-01-12 09:46:18 -08:00
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
2016-01-12 09:46:18 -08:00
add $08
ld b, a
dec c
jr nz, .asm_1030de
ret
2018-06-24 07:09:41 -07:00
Unknown_103112:
2016-01-12 09:46:18 -08: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
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
2018-06-24 07:09:41 -07:00
Unknown_10327a:
2016-01-12 09:46:18 -08:00
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"
2016-01-12 09:46:18 -08:00
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
2018-06-24 07:09:41 -07:00
Function103302:
call Function103309
call Function103362
ret
2018-06-24 07:09:41 -07:00
Function103309:
xor a
ldh [hBGMapMode], a
2018-01-23 14:39:09 -08:00
ld hl, wBuffer1
2015-12-07 08:28:58 -08:00
ld bc, 10
xor a
call ByteFill
ld a, BANK(s4_a60c)
call GetSRAMBank
ld a, [wdc41]
ld [s4_a60c], a
2018-01-23 14:39:09 -08:00
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
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wd1f0], a
call Function10339a
ret
2018-06-24 07:09:41 -07:00
Function103362:
.asm_103362
ld a, [wd1f0]
ld [wd1f1], a
call Function1033af
call Function10339a
call Function10342c
farcall HDMATransferTilemapToWRAMBank3
2018-01-23 14:39:09 -08:00
ld a, [wBuffer2]
bit 7, a
jr z, .asm_103362
2018-01-23 14:39:09 -08:00
ld hl, wBuffer2
bit 6, [hl]
jr z, .asm_103398
ld a, BANK(s4_a60c)
call GetSRAMBank
2018-01-23 14:39:09 -08:00
ld a, [wBuffer1]
ld [s4_a60c], a
ld [wdc41], a
call CloseSRAM
xor a
ret
.asm_103398
scf
ret
2018-06-24 07:09:41 -07:00
Function10339a:
ld a, [wd1f0]
ld [wd1f2], a
ld c, a
2015-12-07 08:28:58 -08:00
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
2018-06-24 07:09:41 -07:00
Function1033af:
call GetJoypad
ldh 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
2018-01-23 14:39:09 -08:00
ld hl, wBuffer2
set 7, [hl]
ret
.a
ld a, [wd1f3]
cp 3
jr nz, .a_return
ld de, SFX_TRANSACTION
call PlaySFX
2018-01-23 14:39:09 -08:00
ld hl, wBuffer2
set 7, [hl]
2018-01-23 14:39:09 -08:00
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
2015-12-07 08:28:58 -08:00
ld bc, 8
call Function10350f
2018-01-23 14:39:09 -08:00
ld a, [wBuffer1]
xor e
2018-01-23 14:39:09 -08:00
ld [wBuffer1], a
ret
2018-06-24 07:09:41 -07:00
Function10342c:
ld a, [wd1f0]
ld [wd1f2], a
call Function103490
call Function10343c
call Function1034a7
ret
2018-06-24 07:09:41 -07:00
Function10343c:
ld a, [wd1f3]
2016-01-12 09:46:18 -08:00
cp $02
jr nz, .asm_103452
2015-12-07 08:28:58 -08:00
ld bc, 1
call Function1034f7
ld c, $12
2016-01-12 09:46:18 -08:00
ld b, $01
call Function1034e0
jr .asm_10345f
.asm_103452
ld bc, $ffed
call Function1034f7
ld c, $12
2016-01-12 09:46:18 -08:00
ld b, $02
call Function1034e0
.asm_10345f
2015-11-02 11:37:02 -08:00
ld bc, 0
call Function10350f
2015-12-07 08:28:58 -08:00
ld bc, 1
call Function103487
2015-12-07 08:28:58 -08:00
ld bc, 8
call Function10350f
2018-01-23 14:39:09 -08:00
ld a, [wBuffer1]
and e
2015-12-07 08:28:58 -08:00
ld bc, 2
jr z, .asm_10347d
2015-12-07 08:28:58 -08:00
ld bc, 4
.asm_10347d
call Function10350f
2015-12-07 08:28:58 -08:00
ld bc, 11
call Function103487
ret
2018-06-24 07:09:41 -07:00
Function103487:
push de
call Function1034f7
pop de
call PlaceString
ret
2018-06-24 07:09:41 -07:00
Function103490:
hlcoord 0, 15
ld c, $14
2016-01-12 09:46:18 -08:00
ld b, $03
call Function1034e0
2015-12-07 08:28:58 -08:00
ld bc, 6
call Function10350f
hlcoord 1, 16
call PlaceString
ret
2018-06-24 07:09:41 -07:00
Function1034a7:
ld a, [wd1f1]
ld [wd1f2], a
2015-12-07 08:28:58 -08:00
ld bc, 10
call Function1034f7
ld [hl], $7f
2015-12-07 08:28:58 -08:00
ld bc, 10
call Function1034f1
ld [hl], $ed
ret
2018-06-24 07:09:41 -07:00
Function1034be:
2016-01-12 09:46:18 -08:00
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
2018-06-24 07:09:41 -07:00
Function1034e0:
push bc
push hl
call ClearBox
pop hl
ld bc, wAttrmap - wTilemap
add hl, bc
pop bc
2016-01-12 09:46:18 -08:00
ld a, $06
call FillBoxWithByte
ret
2018-06-24 07:09:41 -07:00
Function1034f1:
ld a, [wd1f0]
ld [wd1f2], a
2018-06-24 07:09:41 -07:00
Function1034f7:
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
2018-06-24 07:09:41 -07:00
Function10350f:
ld a, [wd1f3]
push bc
ld hl, Unknown_103522
2015-12-07 08:28:58 -08:00
ld bc, 9
call AddNTimes
pop bc
add hl, bc
ld a, [hli]
ld d, [hl]
ld e, a
ret
2018-06-24 07:09:41 -07:00
Unknown_103522:
dw String_103546
dw String_103598
dw String_1035a0
dw String_10355f
2016-01-12 09:46:18 -08:00
db $01
dw String_10354f
dw String_1035a8
dw String_1035b1
dw String_103571
2016-01-12 09:46:18 -08:00
db $02
dw String_103557
dw String_1035ba
dw String_1035bd
dw String_103585
2016-01-12 09:46:18 -08:00
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 "けってい@"
2018-06-24 07:09:41 -07:00
Function1035c6:
2017-12-24 09:47:30 -08:00
farcall Function10138b
ld b, 0
ld hl, Unknown_1035d7
add hl, bc
2015-12-26 18:59:03 -08:00
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ret
2018-06-24 07:09:41 -07:00
Unknown_1035d7:
dw Unknown_1035e7
dw Unknown_1035f3
dw Unknown_103608
dw Unknown_103608
dw Unknown_1035fe
dw AskMobileOrCable
dw AskMobileOrCable
dw AskMobileOrCable
2018-06-24 07:09:41 -07:00
Unknown_1035e7:
dwcoord 0, 6
2016-01-12 09:46:18 -08:00
db $12, $07, $07
dw .this
.this
db 4, 2, 1, 0, 3
2018-06-24 07:09:41 -07:00
Unknown_1035f3:
dwcoord 0, 7
2016-01-12 09:46:18 -08:00
db $12, $06, $09
dw .this
.this
db 3, 2, 1, 3
2018-06-24 07:09:41 -07:00
Unknown_1035fe:
dwcoord 0, 9
2016-01-12 09:46:18 -08:00
db $12, $04, $0b
dw .this
.this
db 2, 0, 3
2018-06-24 07:09:41 -07:00
Unknown_103608:
dwcoord 0, 9
2016-01-12 09:46:18 -08:00
db $12, $04, $0b
dw .this
.this
db 2, 2, 3
2018-06-24 07:09:41 -07:00
AskMobileOrCable:
ld hl, MenuHeader_103640
call LoadMenuHeader
2016-01-12 09:46:18 -08:00
ld a, [wMobileOrCable_LastSelection]
and $0f
2015-11-16 13:01:45 -08:00
jr z, .skip_load
2015-11-01 09:44:30 -08:00
ld [wMenuCursorBuffer], a
2015-11-16 13:01:45 -08:00
.skip_load
2015-12-15 15:59:49 -08:00
call VerticalMenu
call CloseWindow
2015-11-16 13:01:45 -08:00
jr c, .pressed_b
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ld c, a
2016-01-12 09:46:18 -08:00
ld a, [wMobileOrCable_LastSelection]
and $f0
or c
2016-01-12 09:46:18 -08:00
ld [wMobileOrCable_LastSelection], a
ret
2015-11-16 13:01:45 -08:00
.pressed_b
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
2018-06-24 07:09:41 -07:00
MenuHeader_103640:
db MENU_BACKUP_TILES ; flags
menu_coords 13, 6, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
dw MenuData_103648
db 1 ; default option
2018-06-24 07:09:41 -07:00
MenuData_103648:
db STATICMENU_CURSOR ; flags
db 2
db "モバイル@"
db "ケーブル@"
2018-06-24 07:09:41 -07:00
Function103654:
2017-12-24 09:47:30 -08:00
farcall Mobile_AlwaysReturnNotCarry
bit 7, c
jr nz, .asm_103666
ld hl, wcd2a
res 5, [hl]
2016-01-12 09:46:18 -08:00
ld c, $02
ret
.asm_103666
ld hl, wcd2a
set 5, [hl]
2016-01-12 09:46:18 -08:00
ld c, $01
ret
2018-06-24 07:09:41 -07:00
Mobile_SelectThreeMons:
2017-12-24 09:47:30 -08:00
farcall Mobile_AlwaysReturnNotCarry
bit 7, c
jr z, .asm_10369b
ld hl, UnknownText_0x10375d
call PrintText
call YesNoBox
jr c, .asm_103696
2017-12-24 09:47:30 -08:00
farcall CheckForMobileBattleRules
jr nc, .asm_103690
call JoyWaitAorB
jr .asm_103696
.asm_103690
2016-01-12 09:46:18 -08:00
ld a, $01
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
.asm_103696
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
.asm_10369b
2016-01-12 09:46:18 -08:00
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
2015-12-15 15:59:49 -08:00
call VerticalMenu
call ExitMenu
jr c, .asm_1036f4
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2016-01-12 09:46:18 -08:00
cp $01
jr z, .asm_1036d9
2016-01-12 09:46:18 -08:00
cp $02
jr z, .asm_1036f4
2016-01-12 09:46:18 -08:00
cp $03
jr z, .asm_1036ec
jr .asm_1036b5
.asm_1036d9
2017-12-24 09:47:30 -08:00
farcall CheckForMobileBattleRules
jr nc, .asm_1036e6
call JoyWaitAorB
jr .asm_1036f4
.asm_1036e6
2016-01-12 09:46:18 -08:00
ld a, $01
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
.asm_1036ec
call Function1036f9
call JoyWaitAorB
jr .asm_1036b5
.asm_1036f4
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
2018-06-24 07:09:41 -07:00
Function1036f9:
ld hl, UnknownText_0x103767
call PrintText
ret
2018-06-24 07:09:41 -07:00
Function103700:
2016-01-12 09:46:18 -08:00
ld c, $0a
ld hl, wSwarmFlags
2018-01-22 12:40:43 -08:00
bit SWARMFLAGS_MOBILE_4_F, [hl]
jr z, .asm_10370f
farcall MobileBattleGetRemainingTime
.asm_10370f
ld a, c
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2], a
ld a, [wStringBuffer2]
2016-01-12 09:46:18 -08:00
cp $05
jr nc, .asm_103724
2016-01-12 09:46:18 -08:00
cp $02
jr nc, .asm_10372c
2016-01-12 09:46:18 -08:00
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
2018-06-24 07:09:41 -07:00
MenuHeader_103747:
db MENU_BACKUP_TILES ; flags
menu_coords 13, 5, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
dw MenuData_10374f
db 1 ; default option
2018-06-24 07:09:41 -07:00
MenuData_10374f:
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
db 3
db "はい@"
db "やめる@"
db "せつめい@"
UnknownText_0x10375d:
text_far UnknownText_0x1c422a
text_end
UnknownText_0x103762:
text_far UnknownText_0x1c4275
text_end
UnknownText_0x103767:
text_far UnknownText_0x1c4298
text_end
UnknownText_0x10376c:
text_far UnknownText_0x1c439c
text_end
UnknownText_0x103771:
text_far UnknownText_0x1c43dc
text_end
UnknownText_0x103776:
text_far UnknownText_0x1c4419
text_end
UnknownText_0x10377b:
text_far UnknownText_0x1c445a
text_end
2018-06-24 07:09:41 -07:00
Function103780:
ld a, [wChosenCableClubRoom]
push af
call Function10378c
pop af
ld [wChosenCableClubRoom], a
ret
2018-06-24 07:09:41 -07:00
Function10378c:
2015-12-07 08:28:58 -08:00
ld c, 0
ld hl, wSwarmFlags
2018-01-22 12:40:43 -08:00
bit SWARMFLAGS_MOBILE_4_F, [hl]
2015-11-23 13:04:53 -08:00
jr nz, .already_set
2018-01-22 12:40:43 -08:00
ld c, 1
ld hl, wSwarmFlags
2018-01-22 12:40:43 -08:00
set SWARMFLAGS_MOBILE_4_F, [hl]
2015-11-23 13:04:53 -08:00
.already_set
push bc
2017-12-24 09:47:30 -08:00
farcall Link_SaveGame
pop bc
2015-11-23 13:04:53 -08:00
jr c, .failed_to_save
2018-01-22 12:40:43 -08:00
ld a, 1
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ld a, c
and a
ret z
2019-11-17 10:47:42 -08:00
farcall MobileBattleResetTimer
ret
2015-11-23 13:04:53 -08:00
.failed_to_save
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ld a, c
and a
ret z
ld hl, wSwarmFlags
2018-01-22 12:40:43 -08:00
res SWARMFLAGS_MOBILE_4_F, [hl]
ret
2018-06-24 07:09:41 -07:00
Function1037c2:
call MobileCheckRemainingBattleTime
2015-11-23 13:04:53 -08:00
jr c, .nope
ld a, [wdc5f]
and a
2015-11-23 13:04:53 -08:00
jr z, .nope
ld hl, UnknownText_0x1037e6
call PrintText
call YesNoBox
2015-11-23 13:04:53 -08:00
jr c, .nope
2016-01-12 09:46:18 -08:00
ld a, $01
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
2015-11-23 13:04:53 -08:00
.nope
xor a
ld [wdc5f], a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
UnknownText_0x1037e6:
text_far UnknownText_0x1c449c
text_end
2018-06-24 07:09:41 -07:00
Function1037eb:
call MobileCheckRemainingBattleTime
jr nc, .asm_103807
ld hl, MobileBattleLessThanOneMinuteLeftText
call PrintText
call JoyWaitAorB
ld hl, MobileBattleNoTimeLeftForLinkingText
call PrintText
call JoyWaitAorB
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
.asm_103807
ld a, [wdc60]
and a
jr nz, .asm_103813
2016-01-12 09:46:18 -08:00
ld a, $01
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
.asm_103813
2016-01-12 09:46:18 -08:00
ld a, $02
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
MobileBattleLessThanOneMinuteLeftText:
text_far _MobileBattleLessThanOneMinuteLeftText
text_end
MobileBattleNoTimeLeftForLinkingText:
text_far _MobileBattleNoTimeLeftForLinkingText
text_end
MobileCheckRemainingBattleTime:
; Returns carry if less than one minute remains
2017-12-24 09:47:30 -08:00
farcall Mobile_AlwaysReturnNotCarry
bit 7, c
jr nz, .ok
farcall MobileBattleGetRemainingTime
ld a, c
cp 1
jr c, .fail
.ok
xor a
ret
.fail
scf
ret
2018-06-24 07:09:41 -07:00
Function10383c:
2016-01-12 09:46:18 -08:00
ld a, $01
ld [wdc60], a
xor a
2016-05-05 12:07:37 -07:00
ld hl, wPlayerMonSelection
ld [hli], a
2015-12-26 18:59:03 -08:00
ld [hli], a
ld [hl], a
ld hl, UnknownText_0x103876
call PrintText
call JoyWaitAorB
2017-12-24 09:47:30 -08:00
farcall Script_reloadmappart
farcall Function4a94e
jr c, .asm_103870
2015-11-10 16:51:13 -08:00
ld hl, wd002
2016-05-05 12:07:37 -07:00
ld de, wPlayerMonSelection
2015-12-07 08:28:58 -08:00
ld bc, 3
call CopyBytes
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
.asm_103870
2016-01-12 09:46:18 -08:00
ld a, $01
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
UnknownText_0x103876:
text_far UnknownText_0x1c4508
text_end
2018-06-24 07:09:41 -07:00
Function10387b:
2017-12-24 09:47:30 -08:00
farcall Mobile_AlwaysReturnNotCarry
bit 7, c
ret nz
farcall MobileBattleGetRemainingTime
ld a, c
2018-01-23 14:39:09 -08:00
ld [wStringBuffer2], a
ld hl, UnknownText_0x103898
call PrintText
call JoyWaitAorB
ret
UnknownText_0x103898:
text_far UnknownText_0x1c4525
text_end