pokecrystal-board/misc/mobile_40.asm
2015-12-17 13:49:26 -05:00

8134 lines
108 KiB
NASM

SECTION "bank40", ROMX, BANK[$40]
Function100000: ; 100000
; d: 1 or 2
; e: bank
; bc: addr
ld a, [rSVBK]
push af
ld a, $1
ld [rSVBK], a
call Function100022
call Function1000ba
call Function100675
call Function100057
call Function10016f
call Function100276
push bc
call Function100301
pop bc
pop af
ld [rSVBK], a
ret
; 100022
Function100022: ; 100022
push de
push bc
call Function100063
pop bc
pop de
ld a, d
ld [wcd21], a
ld a, e
ld [wcd22], a
ld a, c
ld [wcd23], a
ld a, b
ld [wcd24], a
callba Function10127e
callba MobileFunc_106462
callba Function106464 ; load broken gfx
callba Function11615a ; init RAM
ld hl, VramState
set 1, [hl]
ret
; 100057
Function100057: ; 100057
call Function1000a4
call ReturnToMapFromSubmenu
ld hl, VramState
res 1, [hl]
ret
; 100063
Function100063: ; 100063
xor a
ld hl, BGMapBuffer
ld bc, $65
call ByteFill
xor a
ld hl, wc300
ld bc, $100
call ByteFill
ld a, [rIE]
ld [BGMapBuffer], a
xor a
ld [hMapAnims], a
ld [hLCDStatCustom], a
ret
; 100082
Function100082: ; 100082
xor a
ld hl, OverworldMap
ld bc, OverworldMapEnd - OverworldMap
call ByteFill
di
call DoubleSpeed
xor a
ld [rIF], a
ld a, 1 << VBLANK + 1 << LCD_STAT + 1 << TIMER + 1 << SERIAL
ld [rIE], a
xor a
ld [hMapAnims], a
ld [hLCDStatCustom], a
ld a, $1
ld [hMobileReceive], a
ld [hMobile], a
ei
ret
; 0x1000a4
Function1000a4: ; 1000a4
di
xor a
ld [hMobileReceive], a
ld [hMobile], a
xor a
ld [hVBlank], a
call NormalSpeed
xor a
ld [rIF], a
ld a, [BGMapBuffer]
ld [rIE], a
ei
ret
; 1000ba
Function1000ba: ; 1000ba
.loop
; call [wcd22]:([wcd23][wcd24] + [wcd25])
ld hl, wcd23
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wcd25]
ld e, a
ld d, 0
rept 2
add hl, de
endr
ld a, [wcd22]
call GetFarHalfword
ld a, [wcd22]
rst FarCall
call Function1000e8
call Function1000fa
call Function100144
call Function100163
ld a, [wcd2b]
and a
jr z, .loop
call DelayFrame
ret
; 1000e8
Function1000e8: ; 1000e8
ld hl, wcd29
bit 7, [hl]
ret z
callba Function115dd3
ld hl, wcd29
set 6, [hl]
ret
; 1000fa
Function1000fa: ; 1000fa
ld a, [wc30d]
and a
ret z
ld hl, wcd29
bit 4, [hl]
ret z
ld a, [wcd2b]
and a
jr nz, .asm_100117
callba Function11619d
ld hl, wcd29
set 6, [hl]
ret
.asm_100117
di
xor a
ld [rIF], a
ld a, [rIE]
and $13
ld [rIE], a
xor a
ld [hMobileReceive], a
ld [hMobile], a
ei
ld a, [wLinkMode]
push af
xor a
ld [wLinkMode], a
ld a, $4
ld [wc314 + 5], a
callba Function11619d
ld hl, wcd29
set 6, [hl]
pop af
ld [wLinkMode], a
ret
; 100144
Function100144: ; 100144
ld hl, wcd29
bit 5, [hl]
jr z, .asm_100155
res 5, [hl]
res 2, [hl]
res 6, [hl]
call Function100320
ret
.asm_100155
bit 2, [hl]
ret z
res 2, [hl]
res 6, [hl]
callba Function10402d
ret
; 100163
Function100163: ; 100163
ld hl, wcd29
bit 6, [hl]
ret z
res 6, [hl]
call DelayFrame
ret
; 10016f
Function10016f: ; 10016f
ld a, [wcd2b]
cp $1
ret z
cp $2
ret z
cp $ff
jp z, .asm_1001f5
cp $fe
jr z, .asm_1001c4
cp $f5
jr z, .asm_1001e7
cp $f6
jr z, .asm_1001b6
cp $fa
jp z, .asm_1001bd
cp $f7
jp z, .asm_1001ee
cp $f4
jr z, .asm_1001d2
cp $f3
jr z, .asm_1001cb
cp $f1
jr z, .asm_1001c4
cp $f2
jr z, .asm_1001c4
cp $fc
jr z, .asm_1001e6
cp $fb
jr z, .asm_1001af
cp $f8
ret z
ret ; ????????????????????????????
.asm_1001af
ld a, $d7
ld de, 0
jr .asm_1001d7
.asm_1001b6
ld a, $d5
ld de, 0
jr .asm_1001d7
.asm_1001bd
ld a, $d6
ld de, 0
jr .asm_1001d7
.asm_1001c4
ld a, $d2
ld de, 2
jr .asm_1001d7
.asm_1001cb
ld a, $d1
ld de, 1
jr .asm_1001d7
.asm_1001d2
ld a, $d0
ld de, 0
.asm_1001d7
ld [wc300], a
ld a, d
ld [wc302], a
ld a, e
ld [wc301], a
call Function10020b
ret
.asm_1001e6
ret
.asm_1001e7
ld de, String10025e
call Function100232
ret
.asm_1001ee
ld de, String10024d
call Function100232
ret
.asm_1001f5
ld a, [wcd2c]
ld [wc300], a
ld a, [wcd2d]
ld [wc302], a
ld a, [wcd2d]
ld [wc301], a
call Function10020b
ret
; 10020b
Function10020b: ; 10020b
xor a
ld [wc303], a
callba FadeOutPalettes
callba Function106464
call HideSprites
call DelayFrame
ld a, [rSVBK]
push af
ld a, $1
ld [rSVBK], a
callba Function17f555
pop af
ld [rSVBK], a
ret
; 100232
Function100232: ; 100232
push de
callba Function106464
call Function3f20
call UpdateSprites
hlcoord 1, 2
pop de
call PlaceString
call Function100320
call JoyWaitAorB
ret
; 10024d
String10024d: ; 10024d
db "つうしんを キャンセル しました@"
; 10025e
String10025e: ; 10025e
db "おともだちと えらんだ へやが"
next "ちがうようです@"
; 100276
Function100276: ; 100276
ld a, [wcd2b]
cp $1
jr z, .asm_10029f
cp $2
jr z, .asm_100296
cp $f5
jr z, .asm_1002a5
cp $f6
jr z, .asm_1002a5
cp $f7
jr z, .asm_100293
cp $f8
jr z, .asm_1002b1
jr .asm_1002c0
.asm_100293
ld c, $2
ret
.asm_100296
callba Script_reloadmappart
ld c, $4
ret
.asm_10029f
call Function1002dc
ld c, 0
ret
.asm_1002a5
callba Script_reloadmappart
call Function1002ed
ld c, $3
ret
.asm_1002b1
call Function1002c9
call Function1002dc
ld de, String10024d
call Function100232
ld c, $2
ret
.asm_1002c0
call Function1002c9
call Function1002dc
ld c, $1
ret
; 1002c9
Function1002c9: ; 1002c9
ld hl, wcd2a
bit 0, [hl]
ret z
callba CleanUpBattleRAM
callba LoadPokemonData
ret
; 1002dc
Function1002dc: ; 1002dc
ld a, MAPSETUP_LINKRETURN
ld [hMapEntryMethod], a
callba RunMapSetupScript
xor a
ld [hMapEntryMethod], a
call LoadStandardFont
ret
; 1002ed
Function1002ed: ; 1002ed
callba LoadOW_BGPal7
callba ApplyPals
ld a, $1
ld [hCGBPalUpdate], a
call DelayFrame
ret
; 100301
Function100301: ; 100301
ld hl, wcd2a
bit 1, [hl]
ret z
callba Function106464
callba Function10202c
callba Function115dd3
call Function100320
call JoyWaitAorB
ret
; 100320
Function100320: ; 100320
callba Function104099
ret
; 100327
Function100327: ; 100327
callba Function10402d
ret
; 100327
Function10032e: ; 10032e
call Function10034d
ld e, a
ret nc
ld [wcd2b], a
ret
; 100337
Function100337: ; 100337
call Function10032e
ret c
ld a, [wc821]
bit 4, a
jr z, .asm_100345
ld a, e
and a
ret
.asm_100345
ld a, $f9
ld e, a
ld [wcd2b], a
scf
ret
; 10034d
Function10034d: ; 10034d
ld a, [wc821]
bit 1, a
jr nz, .asm_10036a
bit 2, a
jr nz, .asm_10037e
bit 3, a
jr nz, .asm_100366
bit 0, a
jr nz, .asm_100364
ld a, $1
and a
ret
.asm_100364
xor a
ret
.asm_100366
ld a, $2
and a
ret
.asm_10036a
ld a, 0
call Function3e32
ld [wcd2c], a
ld a, h
ld [wcd2d], a
ld a, l
ld [wcd2e], a
ld a, $ff
scf
ret
.asm_10037e
ld a, $fe
scf
ret
; 100382
Function100382: ; 100382
ld a, [wcd27]
ld hl, Jumptable_10044e
rst JumpTable
ret
; 10038a
Function10038a: ; 10038a
ld hl, wccb4
ld a, $2e
call Function3e32
ret
; 100393
Function100393: ; 100393
ld hl, wcc60
ld a, $3a
call Function3e32
ret
; 10039c
Function10039c: ; 10039c
ld hl, wcc60
ld de, w3_d000
ld bc, $54
ld a, $3
call FarCopyWRAM
ret
; 1003ab
Function1003ab: ; 1003ab
ld hl, w3_d000
ld de, wcc60
ld bc, $54
ld a, $3
call FarCopyWRAM
ret
; 1003ba
Function1003ba: ; 1003ba
ld hl, wccb4
ld de, w3_d080
ld bc, $54
ld a, $3
call FarCopyWRAM
ret
; 1003c9
Function1003c9: ; 1003c9
ld hl, w3_d080
ld de, wccb4
ld bc, $54
ld a, $3
call FarCopyWRAM
ret
; 1003d8
Function1003d8: ; 1003d8
ld hl, wccb4
ld a, [hli]
ld c, a
ld b, 0
push hl
add hl, bc
ld a, [BGMapPalBuffer]
ld [hl], a
pop hl
inc bc
call Function10043a
add hl, bc
ld [hl], e
inc hl
ld [hl], d
ld a, c
add $2
ld [wccb4], a
ret
; 1003f5
Function1003f5: ; 1003f5
ld a, [wcc60]
sub $3
ld [wcc60], a
ld a, [wccb4]
sub $3
ld [wccb4], a
ret
; 100406
Function100406: ; 100406
ld a, [wcc60]
sub $2
ld c, a
ld b, 0
ld hl, wcc61
call Function10043a
add hl, bc
ld a, [hli]
cp e
jr nz, .asm_100426
ld a, [hld]
cp d
jr nz, .asm_100426
dec hl
ld a, [BGMapPalBuffer]
cp [hl]
jr nz, .asm_10042d
xor a
ret
.asm_100426
ld a, $f4
ld [wcd2b], a
jr .asm_100432
.asm_10042d
ld a, $f3
ld [wcd2b], a
.asm_100432
push hl
ld hl, wcd7c
inc [hl]
pop hl
scf
ret
; 10043a
Function10043a: ; 10043a
push hl
push bc
ld de, 0
.asm_10043f
ld a, [hli]
add e
ld e, a
ld a, d
adc 0
ld d, a
dec bc
ld a, b
or c
jr nz, .asm_10043f
pop bc
pop hl
ret
; 10044e
Jumptable_10044e: ; 10044e (40:444e)
dw Function10046a
dw Function10047c
dw Function100493
dw Function1004ba
dw Function1004f4
dw Function1004ce
dw Function1004de
dw Function1004a4
dw Function100495
dw Function1004ce
dw Function1004de
dw Function1004e9
dw Function1004f4
dw Function1004a4
Function10046a: ; 10046a
ld hl, BGMapPalBuffer
inc [hl]
call Function1003d8
call Function1003ba
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 10047c
Function10047c: ; 10047c
call Function100337
ret c
ret z
cp $2
jr z, .asm_100487
jr .asm_10048d
.asm_100487
ld a, $8
ld [wcd27], a
ret
.asm_10048d
ld a, $2
ld [wcd27], a
ret
; 100493
Function100493: ; 100493
jr asm_100497
Function100495: ; 100495
jr asm_100497
asm_100497
call Function100337
ret c
ret z
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 1004a4
Function1004a4: ; 1004a4
call Function100406
jr c, .asm_1004b8
call Function1003c9
call Function1003f5
ld a, [wcd27]
set 7, a
ld [wcd27], a
ret
.asm_1004b8
scf
ret
; 1004ba
Function1004ba: ; 1004ba
call Function10038a
and a
jr nz, .asm_1004c8
ld a, [wcd27]
inc a
ld [wcd27], a
ret
.asm_1004c8
ld a, $8
ld [wcd27], a
ret
; 1004ce
Function1004ce: ; 1004ce
call Function100337
ret c
ret z
cp $2
ret nz
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 1004de
Function1004de: ; 1004de
call Function100393
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 1004e9
Function1004e9: ; 1004e9
call Function10038a
ld a, [wcd27]
inc a
ld [wcd27], a
ret
; 1004f4
Function1004f4: ; 1004f4
call Function100337
ret c
ret z
ld a, [wcd27]
inc a
ld [wcd27], a
call Function10039c
ret
; 100504
Function100504: ; 100504
push de
call Function3f20
call UpdateSprites
pop de
hlcoord 4, 2
call PlaceString
ret
; 100513
Function100513: ; 100513
call Function3f7c
call PlaceVerticalMenuItems
call InitVerticalMenuCursor
ld hl, wcfa5
set 7, [hl]
ret
; 100522
Function100522: ; 100522
ld a, [wcd28]
ld hl, Jumptable_10052a
rst JumpTable
ret
; 10052a
Jumptable_10052a: ; 10052a
dw Function100534
dw Function100545
dw Function100545
dw Function100545
dw Function10054d
; 100534
Function100534: ; 100534
call Function100513
call UpdateSprites
call ApplyTilemap
ld a, [wcd28]
inc a
ld [wcd28], a
ret
; 100545
Function100545: ; 100545
ld a, [wcd28]
inc a
ld [wcd28], a
ret
; 10054d
Function10054d: ; 10054d
callba MobileMenuJoypad
ld a, c
ld hl, wcfa8
and [hl]
ret z
call MenuClickSound
bit 0, a
jr nz, .asm_100565
bit 1, a
jr nz, .asm_10056f
ret
.asm_100565
ld a, [wcd28]
set 7, a
ld [wcd28], a
and a
ret
.asm_10056f
ld a, [wcd28]
set 7, a
ld [wcd28], a
scf
ret
; 100579
Function100579: ; 100579
ld a, [wcd26]
ld hl, Jumptable_100581
rst JumpTable
ret
; 100581
Jumptable_100581: ; 100581
dw Function100585
dw Function100597
; 100585
Function100585: ; 100585
ld hl, MenuDataHeader_1005b2
call LoadMenuDataHeader
ld a, 0
ld [wcd28], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function100597: ; 100597
call Function100522
ld a, [wcd28]
bit 7, a
ret z
jr nc, .asm_1005a6
xor a
ld [wMenuCursorY], a
.asm_1005a6
call ExitMenu
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 1005b2
MenuDataHeader_1005b2: ; 1005b2
db $40 ; flags
db 6, 14
db 10, 19
dw MenuData2_1005ba
db 1 ; default option
MenuData2_1005ba:
db $c0 ; flags
db 2
db "はい@"
db "いいえ@"
; 1005c3
Function1005c3: ; 1005c3
ld a, [wcd26]
ld hl, Jumptable_1005cb
rst JumpTable
ret
; 1005cb
Jumptable_1005cb: ; 1005cb
dw Function1005cf
dw Function1005e1
; 1005cf
Function1005cf: ; 1005cf
ld hl, MenuDataHeader_1005fc
call LoadMenuDataHeader
ld a, 0
ld [wcd28], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function1005e1: ; 1005e1
call Function100522
ld a, [wcd28]
bit 7, a
ret z
jr nc, .asm_1005f0
xor a
ld [wMenuCursorY], a
.asm_1005f0
call ExitMenu
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 1005fc
MenuDataHeader_1005fc: ; 1005fc
db $40 ; flags
db 6, 14
db 10, 19
dw MenuData2_100604
db 1 ; default option
MenuData2_100604: ; 100604
db $c0 ; flags
db 2
db "かける@"
db "まつ@"
; 10060d
Function10060d: ; 10060d
hlcoord 3, 10
ld b, $1
ld c, $b
call Function3eea
ld de, String_100621
hlcoord 4, 11
call PlaceString
ret
; 100621
String_100621: ; 100621
db "つうしんたいきちゅう!@"
; 10062d
Function10062d: ; 10062d
push bc
call Function10064e
pop bc
ld a, [wcd44]
cp b
jr nc, .asm_10063a
and a
ret
.asm_10063a
ld a, $fa
ld [wcd2b], a
scf
ret
; 100641
Function100641: ; 100641
xor a
ld [wcd44], a
ld [wcd45], a
ld [wcd46], a
ret
; 10064c
Function10064c: ; 10064c
ld c, 1
Function10064e: ; 10064e
ld hl, wcd46
ld a, [hl]
add c
cp $3c
jr c, .asm_100658
xor a
.asm_100658
ld [hld], a
ret c
ld a, [hl]
inc a
cp $3c
jr c, .asm_100661
xor a
.asm_100661
ld [hld], a
ret c
inc [hl]
ret
; 100665
Function100665: ; 100665
call UpdateTime
ld hl, wcd36
ld a, [hHours]
ld [hli], a
ld a, [hMinutes]
ld [hli], a
ld a, [hSeconds]
ld [hl], a
ret
; 100675
Function100675: ; 100675
ld hl, wcd2a
bit 2, [hl]
set 2, [hl]
ret nz
call Function1006d3
ret
; 100681
Function100681: ; 100681
push hl
ld hl, wcd2a
bit 2, [hl]
ld hl, wcd2a
set 2, [hl]
pop hl
jr nz, .asm_100694
push hl
call Function1006d3
pop hl
.asm_100694
ld de, wcd32
Function100697: ; 100697
ld a, [de]
and a
jr nz, .asm_1006bb
inc de
push de
call .asm_1006b4
ld de, String1006c2
call PlaceString
ld h, b
ld l, c
pop de
inc de
call .asm_1006b4
ld de, String1006c6
call PlaceString
ret
.asm_1006b4
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
call PrintNum
ret
.asm_1006bb
ld de, String1006ca
call PlaceString
ret
; 1006c2
String1006c2: ; 1006c2
db "ふん @"
String1006c6: ; 1006c6
db "びょう@"
String1006ca: ; 1006ca
db "1じかんいじょう@"
; 1006d3
Function1006d3: ; 1006d3
call UpdateTime
ld de, wcd34
ld hl, wcd38
Function1006dc: ; 1006dc
ld a, [hld]
ld c, a
ld a, [hSeconds]
sub c
jr nc, .asm_1006e5
add $3c
.asm_1006e5
ld [de], a
dec de
ld a, [hld]
ld c, a
ld a, [hMinutes]
sbc c
jr nc, .asm_1006f0
add $3c
.asm_1006f0
ld [de], a
dec de
ld a, [hl]
ld c, a
ld a, [hHours]
sbc c
jr nc, .asm_1006fb
add $18
.asm_1006fb
ld [de], a
ret
; 1006fd
Function1006fd: ; 1006fd
ld a, $4
ld hl, $a800
call GetSRAMBank
xor a
rept 3
ld [hli], a
endr
call CloseSRAM
ret
; 10070d
Function10070d: ; 10070d
ld a, $4
ld hl, $a800
call GetSRAMBank
xor a
ld [hli], a
ld a, $a
ld [hli], a
xor a
ld [hli], a
call CloseSRAM
ret
; 100720
Function100720: ; 100720
xor a
ld [wcd6a], a
call UpdateTime
ld a, [hHours]
ld [wcd72], a
ld a, [hMinutes]
ld [wcd73], a
ld a, [hSeconds]
ld [wcd74], a
ld a, $4
ld hl, $a800
call GetSRAMBank
ld a, [hli]
ld [wcd6c], a
ld a, [hli]
ld [wcd6d], a
ld a, [hli]
ld [wcd6e], a
call CloseSRAM
ld a, [wcd6d]
ld [wcd6b], a
ret
; 100754
Function100754: ; 100754
call UpdateTime
ld a, [hHours]
ld [wcd72], a
ld a, [hMinutes]
ld [wcd73], a
ld a, [hSeconds]
ld [wcd74], a
ld a, [wcd6d]
ld [wcd6b], a
ld hl, wcd2a
res 6, [hl]
ret
; 100772
Function100772: ; 100772
push de
ld hl, wcd6c
ld a, [de]
cp [hl]
jr c, .asm_10079a
jr nz, .asm_10078c
inc hl
inc de
ld a, [de]
cp [hl]
jr c, .asm_10079a
jr nz, .asm_10078c
inc hl
inc de
ld a, [de]
cp [hl]
jr c, .asm_10079a
jr z, .asm_10079a
.asm_10078c
pop hl
ld a, [hli]
ld [wcd6c], a
ld a, [hli]
ld [wcd6d], a
ld a, [hli]
ld [wcd6e], a
ret
.asm_10079a
pop de
ret
; 10079c
Function10079c: ; 10079c
ld a, [wcd21]
cp $1
jr nz, .asm_1007f4
ld hl, wcd2a
bit 5, [hl]
jr nz, .asm_1007f4
ld hl, wcd2a
bit 6, [hl]
jr nz, .asm_1007f4
ld a, [wcd6a]
add c
cp $3c
jr nc, .asm_1007be
ld [wcd6a], a
and a
ret
.asm_1007be
sub $3c
ld [wcd6a], a
ld d, b
push de
call Function1007f6
pop de
jr c, .asm_1007e5
ld a, c
and a
jr nz, .asm_1007e5
ld a, b
cp $a
jr nc, .asm_1007e5
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
.asm_1007e5
call Function1008e0
ld hl, wcd2a
set 4, [hl]
ld a, $fc
ld [wcd2b], a
scf
ret
.asm_1007f4
and a
ret
; 1007f6
Function1007f6: ; 1007f6
call UpdateTime
ld hl, wcd74
ld de, wcd71
call Function1006dc
ld a, $4
call GetSRAMBank
ld hl, $a802
call Function100826
call CloseSRAM
ld hl, wcd6e
call Function100826
ld a, [hHours]
ld [wcd72], a
ld a, [hMinutes]
ld [wcd73], a
ld a, [hSeconds]
ld [wcd74], a
ret
; 100826
Function100826: ; 100826
ld a, [wcd71]
add [hl]
sub $3c
jr nc, .asm_100830
add $3c
.asm_100830
ld [hld], a
ccf
ld a, [BGMapBufferPtrs]
adc [hl]
sub $3c
jr nc, .asm_10083c
add $3c
.asm_10083c
ld [hld], a
ld b, a
ccf
ld a, [wcd6f]
adc [hl]
ld [hl], a
ld c, a
ret
; 100846
Function100846: ; 100846
ld hl, wcd2a
bit 5, [hl]
jr nz, .asm_10087c
ld a, [wcd6e]
ld c, a
ld a, 0
sub c
jr nc, .asm_100858
add $3c
.asm_100858
ld [StringBuffer2 + 2], a
ld a, [wcd6d]
ld c, a
ld a, $a
sbc c
ld [StringBuffer2 + 1], a
xor a
ld [StringBuffer2], a
ld de, String_10088e
hlcoord 1, 14
call PlaceString
ld de, StringBuffer2
hlcoord 4, 16
call Function100697
ret
.asm_10087c
ld de, String_10088e
hlcoord 1, 14
call PlaceString
ld h, b
ld l, c
ld de, String_10089f
call PlaceString
ret
; 10088e
String_10088e: ; 10088e
db "モバイルたいせん できる"
next "じかん@"
; 10089f
String_10089f: ; 10089f
db " むせいげん@"
; 1008a6
Function1008a6: ; 1008a6
ld a, $4
ld hl, $a800
call GetSRAMBank
ld a, [hli]
ld [StringBuffer2], a
ld a, [hli]
ld [StringBuffer2 + 1], a
ld a, [hli]
ld [StringBuffer2 + 2], a
call CloseSRAM
ld a, [StringBuffer2 + 2]
ld b, a
ld a, 0
sub b
jr nc, .asm_1008c8
add $3c
.asm_1008c8
ld b, a
ld a, [StringBuffer2 + 1]
ld c, a
ld a, $a
sbc c
ld c, a
jr c, .asm_1008da
ld a, [StringBuffer2]
and a
jr nz, .asm_1008da
ret
.asm_1008da
call Function10070d
ld c, 0
ret
; 1008e0
Function1008e0: ; 1008e0
ld a, [hBGMapMode]
ld b, a
ld a, [hVBlank]
ld c, a
push bc
xor a
ld [hBGMapMode], a
ld a, $3
ld [hVBlank], a
call Function100970
call Function100902
call Function100989
call DelayFrame
pop bc
ld a, c
ld [hVBlank], a
ld a, b
ld [hBGMapMode], a
ret
; 100902
Function100902: ; 100902
hlcoord 3, 10
ld b, $1
ld c, $b
call TextBox
ld a, [wcd6d]
ld c, a
ld a, $a
sub c
ld [StringBuffer2], a
jr z, .asm_10093f
ld de, .string_100966
hlcoord 4, 11
call PlaceString
hlcoord 8, 11
lb bc, 1, 2
ld de, StringBuffer2
call PrintNum
ld de, SFX_TWO_PC_BEEPS
call PlaySFX
callba 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
callba ReloadMapPart
ld c, 120
call DelayFrames
ret
; 10095a
.string_10095a ; 10095a
db "たいせん しゅうりょう@"
.string_100966 ; 100966
db "のこり ふん", $e7, "@"
; 100970
Function100970: ; 100970
hlcoord 0, 0
ld de, w3_dc00
call Function1009a5
hlcoord 0, 0, AttrMap
ld de, w3_dd68
call Function1009a5
call Function1009d2
call Function1009ae
ret
; 100989
Function100989: ; 100989
ld hl, w3_dc00
decoord 0, 0
call Function1009a5
call Function1009ae
callba ReloadMapPart
ld hl, w3_dd68
decoord 0, 0, AttrMap
call Function1009a5
ret
; 1009a5
Function1009a5: ; 1009a5
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, $3
call FarCopyWRAM
ret
; 1009ae
Function1009ae: ; 1009ae
ld a, [rSVBK]
push af
ld a, $3
ld [rSVBK], a
ld hl, w3_d800
decoord 0, 0, AttrMap
ld c, SCREEN_WIDTH
ld b, SCREEN_HEIGHT
.loop_row
push bc
.loop_col
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .loop_col
ld bc, 12
add hl, bc
pop bc
dec b
jr nz, .loop_row
pop af
ld [rSVBK], a
ret
; 1009d2
Function1009d2: ; 1009d2
ld a, [rSVBK]
push af
ld a, $3
ld [rSVBK], a
ld a, [rVBK]
push af
ld a, $1
ld [rVBK], a
ld hl, w3_d800
debgcoord 0, 0
lb bc, $3, $24
call Get2bpp
pop af
ld [rVBK], a
pop af
ld [rSVBK], a
ret
; 1009f3
Function1009f3: ; 1009f3
ld a, [hJoyDown]
and SELECT + A_BUTTON
cp SELECT + A_BUTTON
jr nz, .asm_100a07
ld hl, wcd2a
set 4, [hl]
ld a, $f8
ld [wcd2b], a
scf
ret
.asm_100a07
xor a
ret
; 100a09
_LinkBattleSendReceiveAction: ; 100a09
call .StageForSend
ld [wd431], a
callba PlaceWaitingText
ld a, [wLinkMode]
cp LINK_MOBILE
jr nz, .not_mobile
call Function100a87
call Function100da5
callba FinishBattleAnim
jr .done
.not_mobile
call Function100a53
.done
ret
; 100a2e
.StageForSend: ; 100a2e
ld a, [wPlayerAction]
and a
jr nz, .switch
ld a, [CurPlayerMove]
ld b, BATTLEACTION_E
cp STRUGGLE
jr z, .struggle
ld b, BATTLEACTION_D
cp $ff
jr z, .struggle
ld a, [CurMoveNum]
jr .use_move
.switch
ld a, [CurPartyMon]
add BATTLEACTION_SWITCH1
jr .use_move
.struggle
ld a, b
.use_move
and $f
ret
; 100a53
Function100a53: ; 100a53
ld a, [wd431]
ld [wPlayerLinkAction], a
ld a, $ff
ld [wOtherPlayerLinkAction], a
.waiting
call LinkTransfer
call DelayFrame
ld a, [wOtherPlayerLinkAction]
inc a
jr z, .waiting
ld b, 10
.receive
call DelayFrame
call LinkTransfer
dec b
jr nz, .receive
ld b, 10
.acknowledge
call DelayFrame
call LinkDataReceived
dec b
jr nz, .acknowledge
ld a, [wOtherPlayerLinkAction]
ld [wBattleAction], a
ret
; 100a87
Function100a87: ; 100a87
call Function100acf
call Function100641
ld a, 0
ld [wcd27], a
.asm_100a92
call DelayFrame
call GetJoypad
callba Function100382
ld c, $1
ld b, $3
push bc
call Function10062d
pop bc
jr c, .asm_100ac7
ld b, $1
call Function10079c
jr c, .asm_100ac7
call Function1009f3
jr c, .asm_100ac7
ld a, [wcd2b]
and a
jr nz, .asm_100ac7
ld a, [wcd27]
bit 7, a
jr z, .asm_100a92
call Function100ae7
jr .asm_100ace
.asm_100ac7
ld a, $f
ld [wd430], a
jr .asm_100ace
.asm_100ace
ret
; 100acf
Function100acf: ; 100acf
ld de, Unknown_100b0a
ld hl, wccb5
ld a, [wd431]
ld [hli], a
ld c, $1
.asm_100adb
ld a, [de]
inc de
ld [hli], a
inc c
and a
jr nz, .asm_100adb
ld a, c
ld [wccb4], a
ret
; 100ae7
Function100ae7: ; 100ae7
ld de, Unknown_100b0a
ld hl, wcc62
.asm_100aed
ld a, [de]
inc de
and a
jr z, .asm_100af8
cp [hl]
jr nz, .asm_100aff
inc hl
jr .asm_100aed
.asm_100af8
ld a, [wcc61]
ld [wd430], a
ret
.asm_100aff
ld a, $f
ld [wd430], a
ld a, $f1
ld [wcd2b], a
ret
; 100b0a
SECTION "tetsuji", ROMX, BANK[$40]
charmap " ", $20 ; revert to ascii
Unknown_100b0a: ; 100b0a
db "tetsuji", 0
; 100b12
SECTION "bank40_2", ROMX, BANK[$40]
Function100b12: ; 100b12
call Function100dd8
ret c
ld hl, BattleMenuDataHeader
ld a, BANK(BattleMenuDataHeader)
ld de, LoadMenuDataHeader
call FarCall_de
ld a, BANK(BattleMenuDataHeader)
ld [wcf94], a
ld a, [wd0d2]
ld [wMenuCursorBuffer], a
call Function100e72
call Function100b45
callba Function8e85
call Function100ed4
ld a, [wMenuCursorBuffer]
ld [wd0d2], a
call ExitMenu
ret
; 100b45
Function100b45: ; 100b45
call Function100b7a
.asm_100b48
call Function100dd2
callba MobileMenuJoypad
push bc
callba Function10402d
call Function100e2d
pop bc
jr c, .asm_100b6b
ld a, [wcfa8]
and c
jr z, .asm_100b48
callba Mobile_GetMenuSelection
ret
.asm_100b6b
ld a, [wcfa4]
ld c, a
ld a, [wcfa3]
call SimpleMultiply
ld [wMenuCursorBuffer], a
and a
ret
; 100b7a
Function100b7a: ; 100b7a
ld hl, CopyMenuData2
ld a, [wcf94]
rst FarCall
callba Draw2DMenu
callba MobileTextBorder
call UpdateSprites
call ApplyTilemap
callba Init2DMenuCursorPosition
ld hl, wcfa5
set 7, [hl]
ret
; 100b9f
MobileMoveSelectionScreen: ; 100b9f
xor a
ld [wd0e3], a
callba CheckPlayerHasUsableMoves
ret z
call Function100dd8
jp c, xor_a_dec_a
call Function100e72
call Function100bc2
push af
callba Function8e85
call Function100ed4
pop af
ret
; 100bc2
Function100bc2: ; 100bc2
xor a
ld [hBGMapMode], a
call Function100c74
call Function100c98
.asm_100bcb
callba MoveInfoBox
.asm_100bd1
call Function100dd2
callba MobileMenuJoypad
push bc
callba Function10402d
call Function100e2d
pop bc
jr c, .asm_100c25
ld a, [wcfa8]
and c
bit 6, a
jp nz, .asm_100bff
bit 7, a
jp nz, .asm_100c10
bit 0, a
jr nz, .asm_100c30
bit 1, a
jr nz, .asm_100c25
jr .asm_100bd1
.asm_100bff
ld a, [wMenuCursorY]
and a
jp nz, .asm_100bcb
ld a, [wNumMoves]
inc a
ld [wMenuCursorY], a
jp .asm_100bcb
.asm_100c10
ld a, [wMenuCursorY]
ld b, a
ld a, [wNumMoves]
rept 2
inc a
endr
cp b
jp nz, .asm_100bcb
ld a, $1
ld [wMenuCursorY], a
jp .asm_100bcb
.asm_100c25
ld a, [wMenuCursorY]
dec a
ld [CurMoveNum], a
ld a, $1
and a
ret
.asm_100c30
ld a, [wMenuCursorY]
dec a
ld [CurMoveNum], a
ld a, [wMenuCursorY]
dec a
ld c, a
ld b, 0
ld hl, BattleMonPP
add hl, bc
ld a, [hl]
and $3f
jr z, .asm_100c68
ld a, [PlayerDisableCount]
swap a
and $f
dec a
cp c
jr z, .asm_100c63
ld a, [wMenuCursorY]
dec a
ld c, a
ld b, 0
ld hl, BattleMonMoves
add hl, bc
ld a, [hl]
ld [CurPlayerMove], a
xor a
ret
.asm_100c63
ld hl, BattleText_TheMoveIsDisabled
jr .asm_100c6b
.asm_100c68
ld hl, BattleText_TheresNoPPLeftForThisMove
.asm_100c6b
call StdBattleTextBox
call Call_LoadTempTileMapToTileMap
jp Function100bc2
; 100c74
Function100c74: ; 100c74
hlcoord 0, 8
ld b, 8
ld c, 8
call TextBox
ld hl, BattleMonMoves
ld de, wListMoves_MoveIndicesBuffer
ld bc, NUM_MOVES
call CopyBytes
ld a, SCREEN_WIDTH * 2
ld [Buffer1], a
hlcoord 2, 10
predef ListMoves
ret
; 100c98
Function100c98: ; 100c98
ld de, Unknown_100cad
call InitMenu3
ld a, [wNumMoves]
inc a
ld [wcfa3], a
ld a, [CurMoveNum]
inc a
ld [wMenuCursorY], a
ret
; 100cad
Unknown_100cad: ; 100cad
db $a, $1, $ff, $1, $a0, $, $20, $c3
Function100cb5: ; 100cb5
call Function100dd8
ret c
ld hl, wcfa5
set 7, [hl]
res 6, [hl]
.asm_100cc0
call Function100dd2
callba MobileMenuJoypad
push bc
callba PlaySpriteAnimations
callba Function10402d
call Function100dfd
pop bc
jr c, .asm_100d17
ld a, [wcfa8]
and c
jr z, .asm_100cc0
call Function1bee
ld a, [PartyCount]
inc a
ld b, a
ld a, [wMenuCursorY]
cp b
jr z, .asm_100d17
ld [wd0d8], a
ld a, [hJoyLast]
ld b, a
bit 1, b
jr nz, .asm_100d17
ld a, [wMenuCursorY]
dec a
ld [CurPartyMon], a
ld c, a
ld b, 0
ld hl, PartySpecies
add hl, bc
ld a, [hl]
ld [CurPartySpecies], a
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
and a
ret
.asm_100d17
ld de, SFX_READ_TEXT_2
call PlaySFX
call WaitSFX
scf
ret
; 100d22
MobileBattleMonMenu: ; 100d22
call Function100dd8
ret c
call Function100d67
ld hl, wcfa5
set 7, [hl]
res 6, [hl]
.asm_100d30
call Function100dd2
callba MobileMenuJoypad
push bc
callba PlaySpriteAnimations
callba Function10402d
call Function100dfd
pop bc
jr c, .asm_100d54
ld a, [wcfa8]
and c
jr nz, .asm_100d56
jr .asm_100d30
.asm_100d54
scf
ret
.asm_100d56
push af
ld de, SFX_READ_TEXT_2
call PlaySFX
pop af
bit 1, a
jr z, .asm_100d65
ret z
scf
ret
.asm_100d65
and a
ret
; 100d67
Function100d67: ; 100d67
ld hl, MenuDataHeader_100d88
call CopyMenuDataHeader
xor a
ld [hBGMapMode], a
call MenuBox
call UpdateSprites
call PlaceVerticalMenuItems
call WaitBGMap
call CopyMenuData2
call InitVerticalMenuCursor
ld hl, wcfa5
set 6, [hl]
ret
; 100d88
MenuDataHeader_100d88: ; 100d88
db 0 ; flags
db 11, 11 ; start coords
db 17, 19 ; end coords
dw MenuData2_100d90
db 1 ; default option
MenuData2_100d90: ; 100d90
db $c0 ; flags
db 3
db "いれかえる@"
db "つよさをみる@"
db "キャンセル@"
; 100da5
Function100da5: ; 100da5
ld hl, wcd2a
res 3, [hl]
ld hl, wcd29
res 0, [hl]
ret
; 100db0
Function100db0: ; 100db0
ld hl, wcd2a
bit 3, [hl]
jr nz, .asm_100dbe
ld hl, wcd2a
set 3, [hl]
scf
ret
.asm_100dbe
xor a
ret
; 100dc0
Function100dc0: ; 100dc0
ld a, [wLinkMode]
cp LINK_MOBILE
jr nz, .asm_100dd0
ld hl, wcd2a
bit 3, [hl]
jr z, .asm_100dd0
scf
ret
.asm_100dd0
xor a
ret
; 100dd2
Function100dd2: ; 100dd2
ld a, 30
ld [OverworldDelay], a
ret
; 100dd8
Function100dd8: ; 100dd8
ld c, $1
ld b, $3
callba Function10062d
jr c, .asm_100dfb
ld c, $3c
ld b, $1
call Function10079c
jr c, .asm_100dfb
callba Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_100dfb
xor a
ret
.asm_100dfb
scf
ret
; 100dfd
Function100dfd: ; 100dfd
ld a, [OverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
ld b, 3
push bc
callba Function10062d
pop bc
jr c, .asm_100e2b
ld b, 1
call Function10079c
jr c, .asm_100e2b
call Function1009f3
jr c, .asm_100e2b
callba Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_100e2b
xor a
ret
.asm_100e2b
scf
ret
; 100e2d
Function100e2d: ; 100e2d
ld a, [OverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
ld b, 3
push bc
callba Function10062d
pop bc
jr c, .asm_100e61
ld b, 1
call Function10079c
jr c, .asm_100e61
call Function1009f3
jr c, .asm_100e61
callba Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_100e61
call Function100e63
call Function100e84
xor a
ret
.asm_100e61
scf
ret
; 100e63
Function100e63: ; 100e63
ld a, e
cp $2
ret nz
call Function100db0
ret nc
ld de, SFX_ELEVATOR_END
call PlaySFX
ret
; 100e72
Function100e72: ; 100e72
xor a
ld hl, wcd29
bit 0, [hl]
jr z, .asm_100e7c
ld a, $a
.asm_100e7c
ld [wcd67], a
xor a
ld [wcd68], a
ret
; 100e84
Function100e84: ; 100e84
ld a, [wcd67]
ld hl, Jumptable_100e8c
rst JumpTable
ret
; 100e8c
Jumptable_100e8c: ; 100e8c (40:4e8c)
dw Function100ea2
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100eb4
dw Function100eae
dw Function100ec4
Function100ea2: ; 100ea2 (40:4ea2)
call Function100dc0
ret nc
ld hl, wcd29
set 0, [hl]
call Function100ec5
Function100eae: ; 100eae
scf
call Function100eca
jr asm_100eb8
Function100eb4: ; 100eb4
and a
call Function100eca
asm_100eb8
ld hl, wcd68
inc [hl]
ld a, [hl]
cp $2
ret c
ld [hl], 0
jr Function100ec5
Function100ec4: ; 100ec4
ret
Function100ec5
ld hl, wcd67
inc [hl]
ret
; 100eca
Function100eca: ; 100eca
callba Function8e8b
call Function100ed4
ret
; 100ed4
Function100ed4: ; 100ed4
callba ApplyPals
ld a, $1
ld [hCGBPalUpdate], a
ret
; 100edf
Function100edf: ; 100edf
ld hl, Unknown_100fc0
ld c, 1
jr asm_100f02
Function100ee6: ; 100ee6
ld hl, Unknown_100fc0
ld c, 2
jr asm_100f02
Function100eed: ; 100eed
ld hl, Unknown_100feb
ld c, 1
jr asm_100f02
Function100ef4: ; 100ef4
ld hl, Unknown_100ff3
ld c, 1
jr asm_100f02
Function100efb: ; 100efb
ld hl, Unknown_10102c
ld c, 1
jr asm_100f02
asm_100f02:
ld a, c
ld [StringBuffer2], a
; someting that was previously stored in de gets backed up to here
ld a, e
ld [StringBuffer2 + 1], a
ld a, d
ld [StringBuffer2 + 2], a
; empty this
xor a
ld [StringBuffer2 + 4], a
ld [StringBuffer2 + 5], a
.loop
ld a, [hl]
cp $ff
jr z, .done
ld [StringBuffer2 + 3], a ; bank
push hl
inc hl
; addr 1
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
; size
ld a, [hli]
ld c, a
ld a, [hli]
ld b, a
; addr 2
ld a, [hli]
ld h, [hl]
ld l, a
call Function100f3d
; next line
pop hl
ld de, 7
add hl, de
jr .loop
.done
; recover the values into bc
ld a, [StringBuffer2 + 4]
ld c, a
ld a, [StringBuffer2 + 5]
ld b, a
ret
; 100f3d
Function100f3d: ; 100f3d
; parameter
ld a, [StringBuffer2]
cp $2
jr z, .two
cp $1
jr z, .one
cp $3
jr z, .three
ret
.three
; what was once in de gets copied to hl,
; modified by Function100f8d, and put back
; into this backup
ld a, [StringBuffer2 + 1]
ld l, a
ld a, [StringBuffer2 + 2]
ld h, a
call Function100f8d
ld a, l
ld [StringBuffer2 + 1], a
ld a, h
ld [StringBuffer2 + 2], a
ret
.two
; hl gets backed up to de, then
; do the same as in .three
ld d, h
ld e, l
ld a, [StringBuffer2 + 1]
ld l, a
ld a, [StringBuffer2 + 2]
ld h, a
call Function100f8d
ld a, l
ld [StringBuffer2 + 1], a
ld a, h
ld [StringBuffer2 + 2], a
ret
.one
; de gets copied to hl, then
; load the backup into de,
; finally run Function100f8d
; and store the de result
ld h, d
ld l, e
ld a, [StringBuffer2 + 1]
ld e, a
ld a, [StringBuffer2 + 2]
ld d, a
call Function100f8d
ld a, e
ld [StringBuffer2 + 1], a
ld a, d
ld [StringBuffer2 + 2], a
ret
; 100f8d
Function100f8d: ; 100f8d
push hl
ld a, [StringBuffer2 + 4]
ld l, a
ld a, [StringBuffer2 + 5]
ld h, a
add hl, bc
ld a, l
ld [StringBuffer2 + 4], a
ld a, h
ld [StringBuffer2 + 5], a
pop hl
ld a, [StringBuffer2 + 3]
bit 7, a
res 7, a
jr z, .sram
and a
jr nz, .wram
call CopyBytes
ret
.wram
and $7f
call FarCopyWRAM
ret
.sram
call GetSRAMBank
call CopyBytes
call CloseSRAM
ret
; 100fc0
Unknown_100fc0: ; 100fc0
; first byte:
; Bit 7 set: Not SRAM
; Lower 7 bits: Bank
; Address, size (dw), address
dbwww $80, PlayerName, NAME_LENGTH, OTPlayerName
dbwww $80, PartyCount, 1 + PARTY_LENGTH + 1, OTPartyCount
dbwww $80, PlayerID, 2, OTPlayerID
dbwww $80, PartyMons, PARTYMON_STRUCT_LENGTH * PARTY_LENGTH, OTPartyMons
dbwww $80, PartyMonOT, NAME_LENGTH * PARTY_LENGTH, OTPartyMonOT
dbwww $80, PartyMonNicknames, PKMN_NAME_LENGTH * PARTY_LENGTH, OTPartyMonNicknames
db -1
Unknown_100feb: ; 100feb
dbwww $, sPartyMail, MAIL_STRUCT_LENGTH * PARTY_LENGTH, NULL
db -1
Unknown_100ff3: ; 100ff3
dbwww $80, wdc41, 1, NULL
dbwww $80, PlayerName, NAME_LENGTH, NULL
dbwww $80, PlayerName, NAME_LENGTH, NULL
dbwww $80, PlayerID, 2, NULL
dbwww $80, wSecretID, 2, NULL
dbwww $80, PlayerGender, 1, NULL
dbwww $4, $a603, 8, NULL
dbwww $4, $a007, PARTYMON_STRUCT_LENGTH, NULL
db -1
Unknown_10102c: ; 10102c
dbwww $80, OTPlayerName, 11, NULL
dbwww $80, OTPlayerID, 2, NULL
dbwww $80, OTPartyMonNicknames, PKMN_NAME_LENGTH * PARTY_LENGTH, NULL
dbwww $80, OTPartyMonOT, NAME_LENGTH * PARTY_LENGTH, NULL
dbwww $80, OTPartyMons, PARTYMON_STRUCT_LENGTH * PARTY_LENGTH, NULL
db -1
; 10104f
Function101050: ; 101050
call Function10107d
ld a, [OTPartyCount]
rept 2 ; ???
ld hl, wc608
endr
ld bc, wc7bb - wc608
call Function1010de
ld hl, wc7bb
ld [hl], e
inc hl
ld [hl], d
ld a, $7
call GetSRAMBank
ld hl, wc608
ld de, $a001
ld bc, wc7bd - wc608
call CopyBytes
call CloseSRAM
ret
; 10107d
Function10107d: ; 10107d
xor a
ld hl, wc608
ld bc, wc7bd - wc608
call ByteFill
ld hl, OTPlayerName
ld de, wc608
ld bc, NAME_LENGTH
call CopyBytes
ld hl, wd271
ld a, [hli]
ld [wc608 + 11], a
ld a, [hl]
ld [wc608 + 12], a
ld hl, OTPartyMonNicknames
ld de, wc608 + 13
ld bc, NAME_LENGTH
call .CopyAllFromOT
ld hl, OTPartyMonOT
ld de, wc656 + 1
ld bc, NAME_LENGTH
call .CopyAllFromOT
ld hl, OTPartyMon1Species
ld de, wc68a + 15
ld bc, PARTYMON_STRUCT_LENGTH
call .CopyAllFromOT
ld a, $50
ld [wc7b9], a
ld a, $33
ld [wc7ba], a
ret
; 1010cd
.CopyAllFromOT: ; 1010cd
push hl
ld hl, 0
ld a, [OTPartyCount]
call AddNTimes
ld b, h
ld c, l
pop hl
call CopyBytes
ret
; 1010de
Function1010de: ; 1010de
push hl
push bc
ld de, 0
.loop
ld a, [hli]
add e
ld e, a
ld a, d
adc 0
ld d, a
dec bc
ld a, b
or c
jr nz, .loop
pop bc
pop hl
ret
; 1010f2
Function1010f2: ; 1010f2
xor a
ld hl, StringBuffer2
ld bc, 9
call ByteFill
ld hl, wdc5c
ld de, PartyCount
call Function101145
ld hl, wdc5c
ld de, PartyMon1Species
call Function10117c
ld hl, wdc5c
ld de, PartyMonOT
call Function101181
ld hl, wdc5c
ld de, PartyMonNicknames
call Function101181
ld hl, wcd75
ld de, OTPartyCount
call Function101145
ld hl, wcd75
ld de, OTPartyMon1Species
call Function10117c
ld hl, wcd75
ld de, OTPartyMonOT
call Function101181
ld hl, wcd75
ld de, OTPartyMonNicknames
call Function101181
ret
; 101145
Function101145: ; 101145
push de
ld bc, StringBuffer2 + 6
xor a
.asm_10114a
push af
call Function101168
ld [bc], a
inc bc
pop af
inc a
cp $3
jr nz, .asm_10114a
pop de
ld a, $3
ld [de], a
inc de
ld hl, StringBuffer2 + 6
ld bc, 3
call CopyBytes
ld a, $ff
ld [de], a
ret
; 101168
Function101168: ; 101168
push hl
add l
ld l, a
ld a, h
adc 0
ld h, a
ld a, [hl]
pop hl
push de
inc de
add e
ld e, a
ld a, d
adc 0
ld d, a
ld a, [de]
pop de
ret
; 10117c
Function10117c: ; 10117c
ld bc, $30
jr asm_101184
Function101181: ; 101181
ld bc, 11
asm_101184:
ld a, wc608 % $100
ld [StringBuffer2], a
ld a, wc608 / $100
ld [StringBuffer2 + 1], a
ld a, c
ld [StringBuffer2 + 2], a
ld a, b
ld [StringBuffer2 + 3], a
ld a, e
ld [StringBuffer2 + 4], a
ld a, d
ld [StringBuffer2 + 5], a
ld a, $3
.asm_1011a0
push af
ld a, [hli]
push hl
push af
call Function1011df
call Function1011e8
pop af
call AddNTimes
ld a, [StringBuffer2]
ld e, a
ld a, [StringBuffer2 + 1]
ld d, a
call CopyBytes
ld a, e
ld [StringBuffer2], a
ld a, d
ld [StringBuffer2 + 1], a
pop hl
pop af
dec a
jr nz, .asm_1011a0
call Function1011e8
ld a, 3
ld hl, 0
call AddNTimes
ld b, h
ld c, l
call Function1011df
ld d, h
ld e, l
ld hl, wc608
call CopyBytes
ret
; 1011df
Function1011df: ; 1011df
ld a, [StringBuffer2 + 4]
ld l, a
ld a, [StringBuffer2 + 5]
ld h, a
ret
; 1011e8
Function1011e8: ; 1011e8
ld a, [StringBuffer2 + 2]
ld c, a
ld a, [StringBuffer2 + 3]
ld b, a
ret
; 1011f1
Function1011f1: ; 1011f1
ld a, $4
call GetSRAMBank
ld a, [$a60c]
ld [wdc41], a
call CloseSRAM
ld hl, wdc41
res 4, [hl]
ld hl, GameTimerPause
bit 7, [hl]
jr z, .skip
ld hl, wdc41
set 4, [hl]
.skip
call Function10209c
xor a
ld [wdc5f], a
ld [wdc60], a
ld a, LINK_MOBILE
ld [wLinkMode], a
ret
; 101220
Function101220: ; 101220
xor a
ld [wLinkMode], a
ret
; 101225
Function101225: ; 101225
ld d, 1
ld e, BANK(Jumptable_101297)
ld bc, Jumptable_101297
call Function100000
jr Function10123d
Function101231: ; 101231
ld d, 2
ld e, BANK(Jumptable_101297)
ld bc, Jumptable_101297
call Function100000
jr Function10123d
Function10123d: ; 10123d
xor a
ld [ScriptVar], a
ld a, c
ld hl, Jumptable_101247
rst JumpTable
ret
; 101247
Jumptable_101247: ; 101247
dw Function101251
dw Function10127d
dw Function10127c
dw Function10126c
dw Function101265
; 101251
Function101251: ; 101251
call UpdateSprites
call ResetWindow
ld hl, UnknownText_0x1021f4
call Function1021e0
call Function1020ea
ret c
call Function102142
ret
; 101265
Function101265: ; 101265
ld hl, UnknownText_0x1021ef
call Function1021e0
ret
; 10126c
Function10126c: ; 10126c
call UpdateSprites
callba Script_reloadmappart
ld hl, UnknownText_0x1021f4
call Function1021e0
ret
; 10127c
Function10127c: ; 10127c
ret
; 10127d
Function10127d: ; 10127d
ret
; 10127e
Function10127e: ; 10127e
ld a, [wdc5f]
and a
jr z, .asm_101290
cp $1
ld c, $27
jr z, .asm_101292
cp $2
ld c, $37
jr z, .asm_101292
.asm_101290
ld c, 0
.asm_101292
ld a, c
ld [wcd25], a
ret
; 101297
Jumptable_101297: ; 101297
dw Function101a97
dw Function101ab4
dw Function101475
dw Function101b0f
dw Function101438
dw Function101b2b
dw Function101b59
dw Function101475
dw Function101b70
dw Function101438
dw Function101b8f
dw Function101d7b
dw Function101d95
dw Function101475
dw Function101db2
dw Function101e4f
dw Function101475
dw Function101e64
dw Function101e4f
dw Function101475
dw Function101e64
dw Function101d95
dw Function101475
dw Function101db2
dw Function101dd0
dw Function101de3
dw Function101e39
dw Function101e09
dw Function101e4f
dw Function101475
dw Function101e64
dw Function101d95
dw Function101475
dw Function101db2
dw Function101e09
dw Function101e31
dw Function101bc8
dw Function101438
dw Function101be5
dw Function101ac6
dw Function101ab4
dw Function101475
dw Function101c11
dw Function1014f4
dw Function101cc8
dw Function1014e2
dw Function1014e2
dw Function101d10
dw Function101d2a
dw Function101d2a
dw Function101507
dw Function10156d
dw Function101557
dw Function10158a
dw Function101c42
dw Function101aed
dw Function101ab4
dw Function101475
dw Function101c2b
dw Function1014f4
dw Function101cdf
dw Function1014e2
dw Function1014e2
dw Function101d1e
dw Function101d2a
dw Function101d2a
dw Function101507
dw Function10156d
dw Function101544
dw Function10158a
dw Function101c42
dw Function101c50
dw Function1014ce
dw Function101cf6
dw Function101826
dw Function1017e4
dw Function1017f1
dw Function1018a8
dw Function1018d6
dw Function1017e4
dw Function1017f1
dw Function1018e1
dw Function1015df
dw Function10167d
dw Function10168a
dw Function10162a
dw Function1015be
dw Function10167d
dw Function10168a
dw Function10161f
dw Function10159d
dw Function10167d
dw Function10168a
dw Function101600
dw Function101d03
dw Function101d6b
dw Function10159d
dw Function1014ce
dw Function10168e
dw Function101600
dw Function101913
dw Function10194b
dw Function10196d
dw Function1017e4
dw Function1017f5
dw Function1019ab
dw Function101537
dw Function101571
dw Function101c92
dw Function10152a
dw Function101571
dw Function101a4f
dw Function101cbc
dw Function101c62
dw Function101537
dw Function101571
dw Function101c92
dw Function10152a
dw Function101571
dw Function101ca0
dw Function101475
dw Function101cbc
; 10138b
Function10138b: ; 10138b
callba Function8adcc
ld c, 0
jr c, .asm_101396
inc c
.asm_101396
sla c
ld a, [wcd2f]
and a
jr z, .asm_10139f
inc c
.asm_10139f
sla c
ld a, [wcd21]
cp $1
jr z, .asm_1013a9
inc c
.asm_1013a9
ret
; 1013aa
Function1013aa: ; 1013aa
call ClearBGPalettes
call Call_ExitMenu
call Function2bae
callba Function106464
call UpdateSprites
call Function2b5c
ret
; 1013c0
Function1013c0: ; 1013c0
callba BlankScreen
callba MobileFunc_106462
callba Function106464
call Function2b5c
ret
; 1013d6
Function1013d6: ; 1013d6
callba Function104000
ret
; 1013dd
Function1013dd: ; 1013dd
call Function3238
ret
; 1013e1
Function1013e1: ; 1013e1 ; unreferenced
push de
inc de
ld b, a
ld c, 0
.asm_1013e6
inc c
ld a, [hli]
ld [de], a
inc de
and a
jr z, .asm_1013f1
dec b
jr nz, .asm_1013e6
scf
.asm_1013f1
pop de
ld a, c
ld [de], a
ret
; 1013f5
Function1013f5: ; 1013f5
ld a, [hli]
ld [de], a
inc de
ld c, a
.asm_1013f9
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_1013f9
ret
; 101400
Function101400: ; 101400 ; unreferenced
ld a, [de]
inc de
cp [hl]
jr nz, asm_101416
inc hl
Function101406: ; 101406
ld c, a
ld b, 0
.asm_101409
ld a, [de]
inc de
cp [hl]
jr nz, asm_101416
inc hl
dec bc
ld a, b
or c
jr nz, .asm_101409
and a
ret
asm_101416
scf
ret
; 101418
Function101418: ; 101418
call GetJoypad
ld a, [hJoyDown]
and SELECT + A_BUTTON
cp SELECT + A_BUTTON
jr z, .asm_101425
xor a
ret
.asm_101425
ld a, $f7
ld [wcd2b], a
scf
ret
; 10142c
Function10142c: ; 10142c
ld a, $1
ld [wc305], a
callba Function115e18
ret
; 101438
Function101438: ; 101438
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
ld hl, Jumptable_101457
rst JumpTable
ld a, [wcd26]
bit 7, a
ret z
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101457
Jumptable_101457: ; 101457
dw Function10145b
dw Function101467
; 10145b
Function10145b: ; 10145b
ld a, $3c
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function101467: ; 101467
ld hl, wcd42
dec [hl]
ret nz
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 101475
Function101475: ; 101475
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
ld hl, Jumptable_101494
rst JumpTable
ld a, [wcd26]
bit 7, a
ret z
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101494
Jumptable_101494: ; 101494
dw Function10149a
dw Function1014a6
dw Function1014b7
; 10149a
Function10149a: ; 10149a
ld a, $28
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function1014a6: ; 1014a6
ld hl, wcd42
dec [hl]
ret nz
ld a, $50
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function1014b7: ; 1014b7
call GetJoypad
ld a, [hJoyPressed]
and $3
jr nz, .asm_1014c5
ld hl, wcd42
dec [hl]
ret nz
.asm_1014c5
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 1014ce
Function1014ce: ; 1014ce
callba Function100720
callba Function100641
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1014e2
Function1014e2: ; 1014e2
ld hl, wcd29
set 6, [hl]
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1014f4
Function1014f4: ; 1014f4
callba Function100082
ld hl, wcd29
set 6, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101507
Function101507: ; 101507
ld de, wcd30
ld hl, $40
ld bc, $40
ld a, $2
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 10151d
Function10151d: ; 10151d ; unreferenced
ld a, $34
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 10152a
Function10152a: ; 10152a
ld a, $36
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101537
Function101537: ; 101537
ld a, $a
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101544
Function101544: ; 101544
callba Function100641
ld a, $12
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101557
Function101557: ; 101557
callba Function100641
ld hl, wcd53
ld a, $8
call Function3e32
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 10156d
Function10156d: ; 10156d
call Function101418
ret c
Function101571: ; 101571
callba Function10032e
ret c
ret z
ld a, e
cp $1
jr z, .asm_101582
ld [wcd2b], a
ret
.asm_101582
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 10158a
Function10158a: ; 10158a
callba Function10064c
ld a, [wcd44]
cp $a
jr c, Function10156d
ld a, $fb
ld [wcd2b], a
ret
; 10159d
Function10159d: ; 10159d
ld de, wc608
callba Function100edf
ld de, wc608
ld a, $5
ld hl, w5_d800
call Function10174c
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1015be
Function1015be: ; 1015be
ld de, wc608
callba Function100eed
ld de, wc608
ld a, $5
ld hl, w5_d800
call Function10174c
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1015df
Function1015df: ; 1015df
ld de, wc608
callba Function100ef4
ld de, wc608
ld a, $5
ld hl, w5_d800
call Function10174c
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101600
Function101600: ; 101600
ld hl, w5_d800
ld de, wc608
ld bc, $1e0
ld a, $5
call FarCopyWRAM
ld de, wc608
callba Function100ee6
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 10161f
Function10161f: ; 10161f
call Function101649
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 10162a
Function10162a: ; 10162a
call Function101663
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101635
Function101635: ; 101635
ld de, wc608
ld bc, $1e0
call FarCopyWRAM
ret
; 10163f
Function10163f: ; 10163f
ld hl, wc608
ld bc, $1e0
call FarCopyWRAM
ret
; 101649
Function101649: ; 101649
ld a, $5
ld hl, w5_d800
call Function101635
ld a, $5
ld de, w5_da00
call Function10163f
ret
; 10165a
Function10165a: ; 10165a
ld a, $5
ld hl, w5_da00
call Function101635
ret
; 101663
Function101663: ; 101663
ld a, $5
ld hl, w5_d800
call Function101635
ld a, $5
ld de, w5_dc00
call Function10163f
ret
; 101674
Function101674: ; 101674 ; unreferenced
ld a, $5
ld hl, w5_dc00
call Function101635
ret
; 10167d
Function10167d: ; 10167d
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 10168a
Function10168a: ; 10168a
call Function101418
ret c
Function10168e: ; 10168e
ld b, 0
ld c, $1
callba Function10079c
ret c
ld c, $1
ld b, $3
callba Function10062d
ret c
ld a, [wcd26]
ld hl, Jumptable_1016c3
rst JumpTable
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
bit 7, a
ret z
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1016c3
Jumptable_1016c3: ; 1016c3
dw Function1016cf
dw Function1016de
dw Function1016f8
dw Function101705
dw Function101719
dw Function101724
; 1016cf
Function1016cf: ; 1016cf
ld hl, wcd3a
inc [hl]
call Function10176f
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 1016de
Function1016de: ; 1016de
call Function10177b
jr nc, .asm_1016eb
ld a, [wcd26]
inc a
ld [wcd26], a
ret
.asm_1016eb
ld a, $ff
ld [wcd39], a
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 1016f8
Function1016f8: ; 1016f8
ld a, 0
ld [wcd27], a
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 101705
Function101705: ; 101705
callba Function100382
ld a, [wcd27]
bit 7, a
ret z
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 101719
Function101719: ; 101719
call Function1017c7
ld a, [wcd26]
inc a
ld [wcd26], a
ret
; 101724
Function101724: ; 101724
ld a, [wcd39]
cp $ff
jr z, .asm_101731
ld a, 0
ld [wcd26], a
ret
.asm_101731
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 10173a
Unknown_10173a:
db $50
Function10173b: ; 10173b
push bc
push af
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [Unknown_10173a]
ld c, a
ld b, 0
pop af
call AddNTimes
pop bc
ret
; 10174c
Function10174c: ; 10174c
ld [wcd3d], a
ld a, l
ld [wcd3e], a
ld a, h
ld [wcd3f], a
ld a, e
ld [wcd3b], a
ld a, d
ld [wcd3c], a
ld a, c
ld [wcd40], a
ld a, b
ld [wcd41], a
xor a
ld [wcd39], a
ld [wcd3a], a
ret
; 10176f
Function10176f: ; 10176f
ld hl, wccb4
ld bc, $54
ld a, $11
call ByteFill
ret
; 10177b
Function10177b: ; 10177b
ld a, [Unknown_10173a]
ld c, a
ld b, 0
ld a, [wcd3a]
ld hl, 0
call AddNTimes
ld e, l
ld d, h
ld hl, wcd40
ld a, [hli]
ld h, [hl]
ld l, a
ld a, l
sub e
ld l, a
ld a, h
sbc d
ld h, a
jr c, .asm_1017a0
add hl, bc
call Function1017b0
scf
ret
.asm_1017a0
ld a, $ff
ld [wcd39], a
add hl, bc
ld a, h
or l
ret z
ld c, l
ld b, h
call Function1017b0
xor a
ret
; 1017b0
Function1017b0: ; 1017b0
ld a, c
ld [wccb4], a
push bc
ld a, [wcd3a]
dec a
ld hl, wcd3b
call Function10173b
pop bc
ld de, wccb5
call CopyBytes
ret
; 1017c7
Function1017c7: ; 1017c7
ld a, [wcc60]
ld c, a
ld b, 0
ld a, [wcd3a]
dec a
ld hl, wcd3e
call Function10173b
ld e, l
ld d, h
ld hl, wcc61
ld a, [wcd3d]
call FarCopyWRAM
and a
ret
; 1017e4
Function1017e4: ; 1017e4
ld a, 0
ld [wcd27], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1017f1
Function1017f1: ; 1017f1
call Function101418
ret c
Function1017f5: ; 1017f5
ld b, 0
ld c, $1
callba Function10079c
ret c
ld c, $1
ld b, $3
callba Function10062d
ret c
callba Function100382
ld a, [wcd27]
bit 7, a
jr nz, .asm_10181e
ld hl, wcd29
set 6, [hl]
ret
.asm_10181e
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101826
Function101826: ; 101826
ld a, [wcd21]
cp $2
jr z, .asm_101833
cp $1
jr z, .asm_101844
jr .asm_101869
.asm_101833
ld hl, Unknown_10186f
ld de, wccb4
call Function1013f5
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_101844
callba Function103654
ld a, c
ld hl, Unknown_101882
cp $1
jr z, .asm_10185b
ld hl, Unknown_101895
cp $2
jr z, .asm_10185b
jr .asm_101869
.asm_10185b
ld de, wccb4
call Function1013f5
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_101869
ld a, $fe
ld [wcd2b], a
ret
; 10186f
SECTION "ascii 10186f", ROMX, BANK[$40]
charmap " ", $20 ; revert to ascii
Unknown_10186f:
db .end - @
db $19, $73, $9, $13, "trade_crystal"
.end db 0
Unknown_101882:
db .end - @
db $19, $67, $10, $1, "free__crystal"
.end db 0
Unknown_101895:
db .end - @
db $19, $67, $10, $1, "limit_crystal"
.end db 0
; 1018a8
SECTION "bank40_3", ROMX, BANK[$40]
Function1018a8: ; 1018a8
ld hl, wccb5
ld de, wcc61
ld a, $4
call Function101406
jr c, .asm_1018d0
ld hl, wccb9
ld de, wcc65
ld a, $6
call Function101406
jr c, .asm_1018ca
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_1018ca
ld a, $f6
ld [wcd2b], a
ret
.asm_1018d0
ld a, $f5
ld [wcd2b], a
ret
; 1018d6
Function1018d6: ; 1018d6
call Function1018ec
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1018e1
Function1018e1: ; 1018e1
call Function1018fb
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1018ec
Function1018ec: ; 1018ec
ld a, $a
ld hl, wccb4
ld [hli], a
ld c, a
.asm_1018f3
call Random
ld [hli], a
dec c
jr nz, .asm_1018f3
ret
; 1018fb
Function1018fb: ; 1018fb
ld a, [wcd2f]
and a
jr z, .asm_101906
ld hl, wcc61
jr .asm_101909
.asm_101906
ld hl, wccb5
.asm_101909
ld de, LinkBattleRNs
ld bc, 10
call CopyBytes
ret
; 101913
Function101913: ; 101913
ld hl, wcd2a
set 0, [hl]
xor a
ld [wc30d], a
ld hl, wcd29
res 4, [hl]
xor a
ld [wc305], a
ld hl, wcd29
res 7, [hl]
ld a, $90
ld [hWY], a
ld a, [wcd21]
cp $1
jr z, .asm_10193f
cp $2
jr z, .asm_101945
ld a, $71
ld [wcd25], a
ret
.asm_10193f
ld a, $66
ld [wcd25], a
ret
.asm_101945
ld a, $65
ld [wcd25], a
ret
; 10194b
Function10194b: ; 10194b
call DisableSpriteUpdates
call ClearSprites
callba Function1021f9
ld hl, wcd29
bit 3, [hl]
jr nz, .asm_101967
call Function1013c0
ld a, $71
ld [wcd25], a
ret
.asm_101967
ld a, $60
ld [wcd25], a
ret
; 10196d
Function10196d: ; 10196d
callba BlankScreen
callba Function10060d
ld hl, wcd29
set 5, [hl]
ld hl, wcd2a
set 6, [hl]
ld a, $6
ld [wccb4], a
ld hl, wdc5c
ld de, wccb5
ld bc, 3
call CopyBytes
ld hl, wcd6c
ld a, [hli]
ld [wccb8], a
ld a, [hli]
ld [wccb9], a
ld a, [hl]
ld [wccba], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1019ab
Function1019ab: ; 1019ab
call Function101a75
callba Function100754
xor a
ld [wdc5f], a
ld [wdc60], a
callba BlankScreen
call SpeechTextBox
callba Function100846
ld c, $78
call DelayFrames
callba ClearTileMap
call Function1019ee
call Function101a21
ld a, [wcd2b]
cp $fc
jr nz, .asm_1019e6
xor a
ld [wcd2b], a
.asm_1019e6
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 1019ee
Function1019ee: ; 1019ee
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld bc, w5_dc0d
ld de, w5_dc11
callba Function4e929
pop af
ld [rSVBK], a
ld a, c
ld [OtherTrainerClass], a
ld hl, OTPlayerName
ld de, OTName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd2f]
and a
ld a, $2
jr z, .asm_101a1e
ld a, $1
.asm_101a1e
ld [hLinkPlayerNumber], a
ret
; 101a21
Function101a21: ; 101a21
ld hl, Options
ld a, [hl]
push af
and $20
or $1
ld [hl], a
ld a, $1
ld [wc2d7], a
callba BattleIntro
callba DoBattle
callba ShowLinkBattleParticipantsAfterEnd
xor a
ld [wc2d7], a
ld a, $ff
ld [hLinkPlayerNumber], a
pop af
ld [Options], a
ret
; 101a4f
Function101a4f: ; 101a4f
ld a, $1
ld [wc2d7], a
callba Function3f77c
xor a
ld [wc2d7], a
callba CleanUpBattleRAM
callba LoadPokemonData
call Function1013c0
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101a75
Function101a75: ; 101a75
ld hl, wcc61
ld de, wcd75
ld bc, 3
call CopyBytes
ld de, wcc64
callba Function100772
callba Function101050
callba Function1010f2
ret
; 101a97
Function101a97: ; 101a97
callba Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $2
call Function10142c
ld hl, wcd29
set 6, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101ab4
Function101ab4: ; 101ab4
ld e, $1
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101ac6
Function101ac6: ; 101ac6
callba Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $2
call Function10142c
ld hl, wcd29
set 6, [hl]
xor a
ld [wcd2f], a
ld de, wdc42
call Function102068
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101aed
Function101aed: ; 101aed
callba Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $2
call Function10142c
ld hl, wcd29
set 6, [hl]
ld a, $1
ld [wcd2f], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101b0f
Function101b0f: ; 101b0f
ld c, 0
call Function10142c
ld e, $3
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ld a, 0
ld [wcd26], a
ret
; 101b2b
Function101b2b: ; 101b2b
callba Function100579
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
ld a, 0
ld [wcd26], a
ld a, [wMenuCursorY]
cp $1
jr z, .asm_101b51
ld a, $2
ld [wcd2b], a
ret
.asm_101b51
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101b59
Function101b59: ; 101b59
ld c, $2
call Function10142c
ld e, $2
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101b70
Function101b70: ; 101b70
ld c, $2
call Function10142c
ld e, $4
call Function101ee4
ld hl, wcd29
set 5, [hl]
call UpdateSprites
ld a, [wcd25]
inc a
ld [wcd25], a
ld a, 0
ld [wcd26], a
ret
; 101b8f
Function101b8f: ; 101b8f
callba Function1005c3
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
ld a, 0
ld [wcd26], a
ld a, [wMenuCursorY]
cp $1
jr z, .asm_101bbc
ld a, $1
ld [wcd2f], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_101bbc
xor a
ld [wcd2f], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101bc8
Function101bc8: ; 101bc8
ld c, $2
call Function10142c
ld e, $8
call Function101ee4
call Function102048
call Function1013dd
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101be5
Function101be5: ; 101be5
callba Function100579
ld hl, wcd29
set 2, [hl]
ld a, [wcd26]
bit 7, a
ret z
call Function1013dd
ld a, 0
ld [wcd26], a
ld a, [wMenuCursorY]
cp $1
jr nz, .asm_101c0b
ld a, $2a
ld [wcd25], a
ret
.asm_101c0b
ld a, $2
ld [wcd2b], a
ret
; 101c11
Function101c11: ; 101c11
ld a, $1
ld [wdc5f], a
ld e, $9
call Function101ee4
call Function102048
ld hl, wcd29
set 5, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101c2b
Function101c2b: ; 101c2b
ld a, $2
ld [wdc5f], a
ld e, $7
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101c42
Function101c42: ; 101c42
ld hl, wcd2a
set 1, [hl]
call Function100665
ld a, $47
ld [wcd25], a
ret
; 101c50
Function101c50: ; 101c50
ld e, $a
call Function101ee4
ld hl, wcd29
set 2, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101c62
Function101c62: ; 101c62
callba Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $1
call Function10142c
xor a
ld [wc30d], a
ld hl, wcd29
res 4, [hl]
ld e, $b
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ld a, 0
ld [wcd26], a
ret
; 101c92
Function101c92: ; 101c92
callba Function100675
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101ca0
Function101ca0: ; 101ca0
ld c, $2
call Function10142c
ld e, $c
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ld a, 0
ld [wcd26], a
ret
; 101cbc
Function101cbc: ; 101cbc
ld a, $1
ld [wcd2b], a
ret
; 101cc2
Function101cc2: ; 101cc2 ; unreferenced
ld a, $2
ld [wcd2b], a
ret
; 101cc8
Function101cc8: ; 101cc8
ld a, $1
ld [wc314], a
ld a, $1
ld [wc30d], a
ld hl, wcd29
set 4, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101cdf
Function101cdf: ; 101cdf
ld a, $6
ld [wc314], a
ld a, $1
ld [wc30d], a
ld hl, wcd29
set 4, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101cf6
Function101cf6: ; 101cf6
ld a, $b
ld [wc314 + 1], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101d03
Function101d03: ; 101d03
ld a, $e
ld [wc314 + 1], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101d10
Function101d10: ; 101d10
ld c, $1
call Function10142c
ld a, [wcd25]
inc a
ld [wcd25], a
jr Function101d2a
Function101d1e: ; 101d1e
ld c, $3
call Function10142c
ld a, [wcd25]
inc a
ld [wcd25], a
Function101d2a: ; 101d2a
call Function101418
ret c
ld hl, wcd29
set 6, [hl]
ld a, [wcd26]
ld hl, Jumptable_101d4d
rst JumpTable
ld a, [wcd26]
bit 7, a
ret z
ld a, 0
ld [wcd26], a
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101d4d
Jumptable_101d4d: ; 101d4d
dw Function101d51
dw Function101d5d
; 101d51
Function101d51: ; 101d51
ld a, $3c
ld [wcd42], a
ld a, [wcd26]
inc a
ld [wcd26], a
Function101d5d: ; 101d5d
ld hl, wcd42
dec [hl]
ret nz
ld a, [wcd26]
set 7, a
ld [wcd26], a
ret
; 101d6b
Function101d6b: ; 101d6b
ld a, [wc30d]
and a
ret nz
ld hl, wcd29
res 4, [hl]
ld a, $64
ld [wcd25], a
ret
; 101d7b
Function101d7b: ; 101d7b
callba Function10138b
ld b, 0
ld hl, Unknown_101d8d
add hl, bc
ld c, [hl]
ld a, c
ld [wcd25], a
ret
; 101d8d
Unknown_101d8d: ; 101d8d
db $15, $15, $1f, $1f, $c, $12, $3a, $3a
; 101d95
Function101d95: ; 101d95
call Function101ee2
call LoadStandardMenuDataHeader
ld e, $e
call Function101ee4
ld hl, wcd29
set 5, [hl]
ld a, [wcd25]
inc a
ld [wcd25], a
ld a, 0
ld [wcd26], a
ret
; 101db2
Function101db2: ; 101db2
callba Function103302
call ExitMenu
ld hl, wcd29
set 5, [hl]
jr c, .asm_101dca
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_101dca
ld a, $2
ld [wcd2b], a
ret
; 101dd0
Function101dd0: ; 101dd0
ld hl, wdc41
bit 1, [hl]
jr nz, .asm_101ddd
ld a, $19
ld [wcd25], a
ret
.asm_101ddd
ld a, $1b
ld [wcd25], a
ret
; 101de3
Function101de3: ; 101de3
call Function101ecc
call Function101ead
jr c, .asm_101df3
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_101df3
call Function101e98
jr c, .asm_101e00
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_101e00
call Function101ed3
ld a, $2
ld [wcd2b], a
ret
; 101e09
Function101e09: ; 101e09
call Function101ead
jr c, .asm_101e16
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_101e16
call Function101ecc
call Function101e98
push af
call Function101ed3
pop af
jr c, .asm_101e2b
ld a, [wcd25]
inc a
ld [wcd25], a
ret
.asm_101e2b
ld a, $2
ld [wcd2b], a
ret
; 101e31
Function101e31: ; 101e31
ld a, $3a
ld [wcd25], a
jp Function101c2b
; 101e39
Function101e39: ; 101e39
call Function1020bf
push af
call Function101ed3
pop af
jr c, .asm_101e49
ld a, $2a
ld [wcd25], a
ret
.asm_101e49
ld a, $2
ld [wcd2b], a
ret
; 101e4f
Function101e4f: ; 101e4f
ld e, $6
call Function101ee4
call Function1013d6
ld a, [wcd25]
inc a
ld [wcd25], a
ld a, 0
ld [wcd26], a
ret
; 101e64
Function101e64: ; 101e64
call Function101ecc
call Function1020a8
push af
call Function101ed3
pop af
jr c, .asm_101e77
ld a, $24
ld [wcd25], a
ret
.asm_101e77
ld hl, wcd29
set 5, [hl]
ld a, $2
ld [wcd2b], a
ret
; 101e82
Function101e82: ; 101e82 ; unreferenced
call Function101ecc
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101e8d
Function101e8d: ; 101e8d ; unreferenced
call Function101ed3
ld a, [wcd25]
inc a
ld [wcd25], a
ret
; 101e98
Function101e98: ; 101e98
call ClearSprites
callba Function8adb3
ret c
ld hl, GameTimerPause
set 7, [hl]
ld hl, wdc41
set 4, [hl]
ret
; 101ead
Function101ead: ; 101ead
ld hl, GameTimerPause
bit 7, [hl]
jr nz, .asm_101ec8
ld hl, wdc41
bit 2, [hl]
jr z, .asm_101eca
ld a, [wcd2f]
and a
jr nz, .asm_101ec8
ld hl, wdc41
bit 1, [hl]
jr z, .asm_101eca
.asm_101ec8
xor a
ret
.asm_101eca
scf
ret
; 101ecc
Function101ecc: ; 101ecc
call Function101ee2
call FadeToMenu
ret
; 101ed3
Function101ed3: ; 101ed3
call Function1013aa
callba Function115d99
ld hl, wcd29
set 7, [hl]
ret
; 101ee2
Function101ee2: ; 101ee2
ld e, 0
Function101ee4: ; 101ee4
ld d, 0
ld hl, Unknown_101ef5
rept 2
add hl, de
endr
ld a, [hli]
ld d, [hl]
ld e, a
callba Function100504
ret
; 101ef5
Unknown_101ef5: ; 101ef5
dw String_101f13
dw String_101f14
dw String_101f32
dw String_101f4f
dw String_101f69
dw String_101f81
dw String_101f93
dw String_101faa
dw String_101fc5
dw String_101fd2
dw String_101fe1
dw String_101fef
dw String_102000
dw String_10200c
dw String_102014
String_101f13: ; 101f13
db "@"
String_101f14: ; 101f14
db "モバイルアダプタを つかって"
next "おともだちと つうしんします@"
String_101f32: ; 101f32
db "でんわを かけるひとには"
next "つうわりょうきんが かかります@"
String_101f4f: ; 101f4f
db "モバイルアダプタの じゅんびは"
next "できて いますか?@"
String_101f69: ; 101f69
db "あなたが おともだちに"
next "でんわを かけますか?@"
String_101f81: ; 101f81
db "めいしフ,ルダーを"
next "つかいますか?@"
String_101f93: ; 101f93
db "でんわばんごうを にゅうりょく"
next "してください@"
String_101faa: ; 101faa
db "それでは おともだちからの"
next "でんわを おまちします…@"
String_101fc5: ; 101fc5
next "に でんわを かけます@"
String_101fd2: ; 101fd2
next "に でんわを かけています@"
String_101fe1: ; 101fe1
db "でんわが つながりました!@"
String_101fef: ; 101fef
db "つうわを"
next "しゅうりょう します…@"
String_102000: ; 102000
db "つうしん しゅうりょう@"
String_10200c: ; 10200c
db "つうわ じかん@"
String_102014: ; 102014
db "それでは つうしんの"
next "せっていを してください@"
; 10202c
Function10202c: ; 10202c
callba Function115d99
ld hl, wcd29
set 7, [hl]
ld c, $2
call Function10142c
ld e, $d
call Function101ee4
hlcoord 4, 4
call Function100681
ret
; 102048
Function102048: ; 102048
call Function10204c
ret
; 10204c
Function10204c: ; 10204c
hlcoord 3, 2
ld c, $10
ld de, wcd53
.asm_102054
ld a, [de]
inc de
and a
jr z, .asm_102067
sub $30
jr c, .asm_102067
cp $a
jr nc, .asm_102067
add $f6
ld [hli], a
dec c
jr nz, .asm_102054
.asm_102067
ret
; 102068
Function102068: ; 102068
ld hl, wcd53
ld c, $8
.asm_10206d
ld a, [de]
call Function102080
jr c, .asm_10207f
ld a, [de]
swap a
call Function102080
jr c, .asm_10207f
inc de
dec c
jr nz, .asm_10206d
.asm_10207f
ret
; 102080
Function102080: ; 102080
and $f
cp $f
jr z, .asm_10208a
add $30
ld [hli], a
ret
.asm_10208a
ld [hl], 0
scf
ret
; 10208e
Function10208e: ; 10208e
push de
ld h, d
ld l, e
ld de, wdc42
ld bc, 8
call CopyBytes
pop de
ret
; 10209c
Function10209c: ; 10209c
ld a, $ff
ld hl, wdc42
ld bc, 8
call ByteFill
ret
; 1020a8
Function1020a8: ; 1020a8
call Function10209c
ld c, $1
ld de, wdc42
callba Function17a68f
ret c
call Function10208e
call Function102068
xor a
ret
; 1020bf
Function1020bf: ; 1020bf
call ClearSprites
callba Function8aba9
ld a, c
and a
jr z, .asm_1020e8
dec a
ld hl, $a04c
ld bc, $25
call AddNTimes
ld d, h
ld e, l
ld a, $4
call GetSRAMBank
call Function10208e
call Function102068
call CloseSRAM
xor a
ret
.asm_1020e8
scf
ret
; 1020ea
Function1020ea: ; 1020ea
ld hl, wdc41
bit 4, [hl]
jr z, .asm_102110
ld hl, wdc41
bit 2, [hl]
jr nz, .asm_102110
call Function10218d
ld hl, wc608
bit 4, [hl]
jr z, .asm_102110
ld hl, wc608
bit 2, [hl]
jr nz, .asm_102110
call Function102112
jr z, .asm_102110
and a
ret
.asm_102110
scf
ret
; 102112
Function102112: ; 102112
ld a, $4
call GetSRAMBank
ld hl, $a041
ld c, $28
.asm_10211c
push hl
ld de, wc60f
ld b, $1f
.asm_102122
ld a, [de]
cp [hl]
jr nz, .asm_10212f
inc de
inc hl
dec b
jr nz, .asm_102122
pop hl
xor a
jr .asm_10213c
.asm_10212f
pop hl
ld de, $25
add hl, de
dec c
jr nz, .asm_10211c
ld a, $1
and a
jr .asm_10213c
.asm_10213c
push af
call CloseSRAM
pop af
ret
; 102142
Function102142: ; 102142
call Function10218d
call Function102180
ld hl, UnknownText_0x1021d1
call MenuTextBox
ld de, SFX_LEVEL_UP
call PlaySFX
call JoyWaitAorB
call ExitMenu
call Function10219f
ld hl, UnknownText_0x1021d6
call MenuTextBox
call YesNoBox
call ExitMenu
jr c, .asm_10217c
call Function1021b8
jr c, .asm_10217c
call Function10218d
call Function102180
ld hl, UnknownText_0x1021db
call PrintText
.asm_10217c
call Function1013d6
ret
; 102180
Function102180: ; 102180
ld hl, wc608 + 1
ld de, StringBuffer2
ld bc, 11
call CopyBytes
ret
; 10218d
Function10218d: ; 10218d
ld hl, wdc00
ld de, wc608
ld bc, $26
ld a, $5
call FarCopyWRAM
ld de, wc608 + 1
ret
; 10219f
Function10219f: ; 10219f
call FadeToMenu
call Function10218d
ld de, wc608 + 1
callba Function8ac4e
call JoyWaitAorB
call PlayClickSFX
call Function1013aa
ret
; 1021b8
Function1021b8: ; 1021b8
call FadeToMenu
call Function10218d
ld de, wc60f
callba Function8ac70
ld a, c
ld [StringBuffer1], a
push af
call Function1013aa
pop af
ret
; 1021d1
UnknownText_0x1021d1: ; 1021d1
text_jump UnknownText_0x1bd19a
db "@"
UnknownText_0x1021d6: ; 1021d1
text_jump UnknownText_0x1bd1ba
db "@"
UnknownText_0x1021db: ; 1021d1
text_jump UnknownText_0x1bd1dd
db "@"
; 1021e0
Function1021e0: ; 1021e0
call MenuTextBox
call JoyWaitAorB
call ExitMenu
ret
; 1021ea
UnknownText_0x1021ea: ; 1021ea
text_jump UnknownText_0x1bd201
db "@"
UnknownText_0x1021ef:
text_jump UnknownText_0x1bd211
db "@"
UnknownText_0x1021f4:
text_jump UnknownText_0x1bd223
db "@"
; 1021f9
Function1021f9: ; 1021f9
call Function102233
ld a, 0
ld [wcd49], a
ld hl, wcd29
bit 3, [hl]
res 3, [hl]
jr z, .asm_10220f
ld a, $1
ld [wcd49], a
.asm_10220f
call Function1022ca
ld a, [wcd49]
ld hl, Jumptable_1022f5
rst JumpTable
call Function102241
call Function1022d0
jr c, .asm_102231
ld a, [wcd49]
bit 7, a
jr z, .asm_10220f
xor a
ld hl, wcd29
bit 3, [hl]
ret z
scf
ret
.asm_102231
xor a
ret
; 102233
Function102233: ; 102233
ld hl, wcd49
ld bc, 10
xor a
call ByteFill
call Function10304f
ret
; 102241
Function102241: ; 102241
call Function10226a
call Function102274
call Function10224b
ret
; 10224b
Function10224b: ; 10224b
ld hl, wcd4b
bit 1, [hl]
jr nz, .asm_10225e
bit 2, [hl]
jr nz, .asm_10225e
call DelayFrame
call DelayFrame
xor a
ret
.asm_10225e
res 1, [hl]
res 2, [hl]
callba Function104099
scf
ret
; 10226a
Function10226a: ; 10226a
ld hl, wcd4b
bit 0, [hl]
ret z
call Function10305d
ret
; 102274
Function102274: ; 102274
ld hl, wcd4b
bit 3, [hl]
ret z
res 3, [hl]
ld de, 8
call PlaySFX
ret
; 102283
Function102283: ; 102283
ld a, $1
ld [AttrMapEnd], a
ld hl, wcd4b
set 0, [hl]
ret
; 10228e
Function10228e: ; 10228e
xor a
ld [AttrMapEnd], a
ld hl, wcd4b
res 0, [hl]
ret
; 102298
Function102298: ; 102298
ld a, e
cp $2
ret nz
ld hl, wcd4b
bit 6, [hl]
jr z, .asm_1022b6
ld hl, wcd4b
bit 7, [hl]
ld hl, wcd4b
set 7, [hl]
ret nz
ld de, SFX_ELEVATOR_END
call PlaySFX
jr .asm_1022c1
.asm_1022b6
ld hl, wcd4b
bit 7, [hl]
ld hl, wcd4b
res 7, [hl]
ret z
.asm_1022c1
call Function10304f
ld a, $1
ld [AttrMapEnd], a
ret
; 1022ca
Function1022ca: ; 1022ca
ld a, 30
ld [OverworldDelay], a
ret
; 1022d0
Function1022d0: ; 1022d0
callba Function10032e
ld a, [wcd2b]
and a
jr nz, .asm_1022f3
call Function102298
ld a, [OverworldDelay]
ld c, a
ld a, 30
sub c
ld c, a
ld b, $3
callba Function10062d
jr c, .asm_1022f3
xor a
ret
.asm_1022f3
scf
ret
; 1022f5
Jumptable_1022f5: ; 1022f5
dw Function10234b
dw Function102361
dw Function10236e
dw Function102387
dw Function1023a1
dw Function1025c7
dw Function1025dc
dw Function1024f6
dw Function10250c
dw Function1024a8
dw Function102591
dw Function1024a8
dw Function1025b0
dw Function1025bd
dw Function102814
dw Function10283c
dw Function102862
dw Function10286f
dw Function1024a8
dw Function1028a5
dw Function1028ab
dw Function1023b5
dw Function1023c6
dw Function1024af
dw Function102416
dw Function102423
dw Function10244b
dw Function1024af
dw Function10246a
dw Function102652
dw Function10266b
dw Function1025e9
dw Function1025ff
dw Function102738
dw Function102754
dw Function1026b7
dw Function1026c8
dw Function1028bf
dw Function1028c6
dw Function1028d3
dw Function1028da
dw Function1024a8
dw Function10248d
; 10234b
Function10234b: ; 10234b
call Function102d9a
call Function102dd3
call Function102dec
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 102361
Function102361: ; 102361
ld a, $cc
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10236e
Function10236e: ; 10236e
call Function1028fc
ret nc
ld a, [wcd51]
cp $cc
jr z, .asm_10237f
ld a, $f2
ld [wcd2b], a
ret
.asm_10237f
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 102387
Function102387: ; 102387
ld hl, wcd4b
set 6, [hl]
xor a
ld [wdc5f], a
ld de, MUSIC_ROUTE_30
call PlayMusic
call Function102d9a
call Function102dd3
ld a, $1
ld [wMenuCursorY], a
Function1023a1: ; 1023a1
call Function102283
call Function102db7
call Function102dec
ld hl, wcd4b
set 1, [hl]
ld a, $1d
ld [wcd49], a
ret
; 1023b5
Function1023b5: ; 1023b5
call Function10228e
call Function102a3b
call Function102b12
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1023c6
Function1023c6: ; 1023c6
call Function102c48
call Function102c87
ld a, [wcd4c]
dec a
ld [CurPartyMon], a
xor a
ld [wd10b], a
callba RemoveMonFromPartyOrBox
ld hl, PartyCount
inc [hl]
ld a, [hli]
ld c, a
ld b, 0
add hl, bc
ld [hl], $ff
ld a, [PartyCount]
ld [wcd4c], a
call Function102c07
call Function102d48
call Function102b32
call Function102f50
ld hl, wcd4b
set 1, [hl]
ld a, $14
ld [wcd4e], a
ld a, 0
ld [wcd4f], a
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 102416
Function102416: ; 102416
ld a, $aa
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 102423
Function102423: ; 102423
call Function102921
ret nc
callba Function14a58
callba MobileFn_1060af
callba BackupMobileEventIndex
ld hl, wcd4b
set 1, [hl]
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10244b
Function10244b: ; 10244b
call Function102f32
ld hl, wcd4b
set 1, [hl]
ld a, $19
ld [wcd4e], a
ld a, 0
ld [wcd4f], a
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10246a
Function10246a: ; 10246a
call Function102d9a
ld hl, wcd29
set 3, [hl]
call Function102e07
ld hl, wcd4b
set 1, [hl]
ld a, $2a
ld [wcd49], a
ret
; 102480
Function102480: ; 102480
ld c, $32
call DelayFrames
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10248d
Function10248d: ; 10248d
ld a, [wcd49]
set 7, a
ld [wcd49], a
ret
; 102496
Function102496: ; 102496
ld hl, wcd4e
dec [hl]
ret nz
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1024a8
Function1024a8: ; 1024a8
callba Function1009f3
ret c
Function1024af: ; 1024af
call GetJoypad
ld a, [wcd4a]
ld hl, Jumptable_1024ba
rst JumpTable
ret
; 1024ba
Jumptable_1024ba: ; 1024ba
dw Function1024c0
dw Function1024cb
dw Function1024de
; 1024c0
Function1024c0: ; 1024c0
ld hl, wcd4e
inc [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
Function1024cb: ; 1024cb
ld hl, wcd4e
dec [hl]
ret nz
ld a, [wcd4f]
inc a
ld [wcd4e], a
ld a, [wcd4a]
inc a
ld [wcd4a], a
Function1024de: ; 1024de
ld hl, wcd4e
dec [hl]
jr z, .asm_1024e9
ld a, [hJoyPressed]
and A_BUTTON | B_BUTTON
ret z
.asm_1024e9
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1024f6
Function1024f6: ; 1024f6
call Function1bee
ld hl, wcd4b
set 1, [hl]
ld a, [wcd4c]
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10250c
Function10250c: ; 10250c
call Function1028fc
ret nc
ld a, [wcd51]
cp $f
jr z, .asm_10254b
and a
jr z, .asm_102572
cp $aa
jr z, .asm_102572
cp $7
jr nc, .asm_102572
ld [wcd4d], a
dec a
ld [wd003], a
ld a, [wcd4c]
dec a
ld [wd002], a
call Function102b9c
call Function102bdc
jr c, .asm_10256d
callba Functionfb5dd
jr c, .asm_102568
ld hl, wcd4b
set 1, [hl]
ld a, $e
ld [wcd49], a
ret
.asm_10254b
call Function103021
ld hl, wcd4b
set 1, [hl]
ld a, 0
ld [wcd4a], a
ld a, $1e
ld [wcd4e], a
ld a, $1e
ld [wcd4f], a
ld a, $29
ld [wcd49], a
ret
.asm_102568
call Function102ff5
jr .asm_102577
.asm_10256d
call Function102f85
jr .asm_102577
.asm_102572
call Function102fce
jr .asm_102577
.asm_102577
ld hl, wcd4b
set 1, [hl]
ld a, 0
ld [wcd4a], a
ld a, $1e
ld [wcd4e], a
ld a, $3c
ld [wcd4f], a
ld a, $9
ld [wcd49], a
ret
; 102591
Function102591: ; 102591
call Function102ee7
ld hl, wcd4b
set 1, [hl]
ld a, 0
ld [wcd4a], a
ld a, $1e
ld [wcd4e], a
ld a, $3c
ld [wcd4f], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1025b0
Function1025b0: ; 1025b0
ld a, $9
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1025bd
Function1025bd: ; 1025bd
call Function1028fc
ret nc
ld a, $4
ld [wcd49], a
ret
; 1025c7
Function1025c7: ; 1025c7
call Function102f6d
ld hl, wcd4b
set 1, [hl]
ld a, $f
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1025dc
Function1025dc: ; 1025dc
call Function1028fc
ret nc
ld a, [wcd49]
set 7, a
ld [wcd49], a
ret
; 1025e9
Function1025e9: ; 1025e9
nop
ld hl, wcd4b
set 6, [hl]
call Function102b4e
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1025ff
Function1025ff: ; 1025ff
ld hl, wcd4b
set 2, [hl]
callba Function1009f3
ret c
callba MobileMenuJoypad
ld a, [wcfa8]
and c
ret z
bit 0, c
jr nz, .asm_102623
bit 6, c
jr nz, .asm_10262e
bit 7, c
jr nz, .asm_102646
ret
.asm_102623
ld hl, wcd4b
set 3, [hl]
ld a, $27
ld [wcd49], a
ret
.asm_10262e
ld a, [wMenuCursorY]
ld b, a
ld a, [OTPartyCount]
cp b
ret nz
call Function1bf7
ld a, [PartyCount]
ld [wMenuCursorY], a
ld a, $1d
ld [wcd49], a
ret
.asm_102646
ld a, [wMenuCursorY]
cp $1
ret nz
ld a, $23
ld [wcd49], a
ret
; 102652
Function102652: ; 102652
nop
ld hl, wcd4b
set 6, [hl]
nop
call Function102b7b
nop
ld hl, wcd4b
set 1, [hl]
nop
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10266b
Function10266b: ; 10266b
ld hl, wcd4b
set 2, [hl]
callba Function1009f3
ret c
callba MobileMenuJoypad
ld a, [wcfa8]
and c
ret z
bit 0, c
jr nz, .asm_10268f
bit 7, c
jr nz, .asm_10269a
bit 6, c
jr nz, .asm_1026a8
ret
.asm_10268f
ld hl, wcd4b
set 3, [hl]
ld a, $21
ld [wcd49], a
ret
.asm_10269a
ld a, [wMenuCursorY]
dec a
ret nz
call Function1bf7
ld a, $1f
ld [wcd49], a
ret
.asm_1026a8
ld a, [wMenuCursorY]
ld b, a
ld a, [PartyCount]
cp b
ret nz
ld a, $23
ld [wcd49], a
ret
; 1026b7
Function1026b7: ; 1026b7
ld hl, wcd4b
set 6, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ld a, 0
ld [wcd4a], a
Function1026c8: ; 1026c8
call GetJoypad
callba Function1009f3
ret c
ld a, [wcd4a]
ld hl, Jumptable_1026da
rst JumpTable
ret
; 1026da
Jumptable_1026da: ; 1026da
dw Function1026de
dw Function1026f3
; 1026de
Function1026de: ; 1026de
call Function1bf7
hlcoord 9, 17
ld [hl], $ed
ld a, [wcd4a]
inc a
ld [wcd4a], a
ld hl, wcd4b
set 1, [hl]
ret
; 1026f3
Function1026f3: ; 1026f3
ld a, [hJoyPressed]
bit 0, a
jr nz, .asm_102723
bit 6, a
jr nz, .asm_102712
bit 7, a
jr nz, .asm_102702
ret
.asm_102702
hlcoord 9, 17
ld [hl], $7f
ld a, $1
ld [wMenuCursorY], a
ld a, $1d
ld [wcd49], a
ret
.asm_102712
hlcoord 9, 17
ld [hl], $7f
ld a, [OTPartyCount]
ld [wMenuCursorY], a
ld a, $1f
ld [wcd49], a
ret
.asm_102723
hlcoord 9, 17
ld [hl], $ec
ld hl, wcd4b
set 3, [hl]
ld hl, wcd4b
set 2, [hl]
ld a, $5
ld [wcd49], a
ret
; 102738
Function102738: ; 102738
ld hl, wcd4b
set 6, [hl]
call Function1bee
call Function1027eb
ld hl, wcd4b
set 1, [hl]
ld a, [wcd49]
inc a
ld [wcd49], a
ld a, 0
ld [wcd4a], a
Function102754: ; 102754
call GetJoypad
callba Function1009f3
ret c
ld a, [wcd4a]
ld hl, Jumptable_102766
rst JumpTable
ret
; 102766
Jumptable_102766: ; 102766
dw Function102770
dw Function102775
dw Function10278c
dw Function1027a0
dw Function1027b7
; 102770
Function102770: ; 102770
ld a, $1
ld [wcd4a], a
Function102775: ; 102775
hlcoord 1, 16
ld [hl], $ed
hlcoord 11, 16
ld [hl], $7f
ld hl, wcd4b
set 2, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
ret
; 10278c
Function10278c: ; 10278c
ld a, [hJoyPressed]
bit 0, a
jr nz, asm_1027c6
bit 1, a
jr nz, asm_1027e2
bit 4, a
jr nz, .asm_10279b
ret
.asm_10279b
ld a, $3
ld [wcd4a], a
Function1027a0: ; 1027a0
hlcoord 1, 16
ld [hl], $7f
hlcoord 11, 16
ld [hl], $ed
ld hl, wcd4b
set 2, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
ret
Function1027b7: ; 1027b7
ld a, [hJoyPressed]
bit 0, a
jr nz, asm_1027d1
bit 1, a
jr nz, asm_1027e2
bit 5, a
jr nz, Function102770
ret
asm_1027c6:
ld hl, wcd4b
set 3, [hl]
ld a, $25
ld [wcd49], a
ret
asm_1027d1:
ld hl, wcd4b
set 3, [hl]
ld a, [wMenuCursorY]
ld [wcd4c], a
ld a, $7
ld [wcd49], a
ret
asm_1027e2:
call Function102db7
ld a, $1d
ld [wcd49], a
ret
; 1027eb
Function1027eb: ; 1027eb
hlcoord 0, 14
ld b, $2
ld c, $12
ld d, h
ld e, l
callba _LinkTextbox
ld de, String_102804
hlcoord 2, 16
call PlaceString
ret
; 102804
String_102804: ; 102804
db "STATS TRADE@"
; 102814
Function102814: ; 102814
ld a, [wMenuCursorY]
ld [wcd52], a
ld a, [wcd4c]
dec a
ld [wd002], a
ld a, [wcd4d]
dec a
ld [wd003], a
call Function102ea8
ld a, [wcd49]
inc a
ld [wcd49], a
ld a, 0
ld [wcd4a], a
ld hl, wcd4b
set 1, [hl]
Function10283c: ; 10283c
ld hl, wcd4b
set 2, [hl]
call Function1029c3
ret z
jr c, .asm_102852
ld a, $10
ld [wcd49], a
ld hl, wcd4b
set 1, [hl]
ret
.asm_102852
ld a, $14
ld [wcd49], a
ld hl, wcd4b
set 3, [hl]
ld hl, wcd4b
set 1, [hl]
ret
; 102862
Function102862: ; 102862
ld a, $8
call Function1028e8
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 10286f
Function10286f: ; 10286f
call Function1028fc
ret nc
ld a, [wcd52]
ld [wMenuCursorY], a
ld a, [wcd51]
cp $8
jr nz, .asm_102886
ld a, $15
ld [wcd49], a
ret
.asm_102886
call Function102ee7
ld hl, wcd4b
set 1, [hl]
ld a, $1e
ld [wcd4e], a
ld a, $3c
ld [wcd4f], a
ld a, 0
ld [wcd4a], a
ld a, [wcd49]
inc a
ld [wcd49], a
ret
; 1028a5
Function1028a5: ; 1028a5
ld a, $4
ld [wcd49], a
ret
; 1028ab
Function1028ab: ; 1028ab
ld a, [wcd52]
ld [wMenuCursorY], a
call Function102f15
ld hl, wcd4b
set 1, [hl]
ld a, $c
ld [wcd49], a
ret
; 1028bf
Function1028bf: ; 1028bf
ld a, [wcd49]
inc a
ld [wcd49], a
Function1028c6: ; 1028c6
xor a
ld [MonType], a
call Function102bac
ld a, $1d
ld [wcd49], a
ret
; 1028d3
Function1028d3: ; 1028d3
ld a, [wcd49]
inc a
ld [wcd49], a
Function1028da: ; 1028da
ld a, $1
ld [MonType], a
call Function102bac
ld a, $1f
ld [wcd49], a
ret
; 1028e8
Function1028e8: ; 1028e8
ld hl, wcd4b
res 6, [hl]
ld [wcd50], a
callba Function100641
ld a, 0
ld [wcd4a], a
ret
; 1028fc
Function1028fc: ; 1028fc
call GetJoypad
callba Function1009f3
jr nc, .asm_102909
and a
ret
.asm_102909
ld a, [wcd4a]
ld hl, Jumptable_102917
rst JumpTable
ret nc
ld a, 0
ld [wcd4a], a
ret
; 102917
Jumptable_102917: ; 102917
dw Function102933
dw Function10294f
dw Function10295d
dw Function10296e
dw Function102996
; 102921
Function102921: ; 102921
ld a, [wcd4a]
ld hl, Jumptable_10292f
rst JumpTable
ret nc
ld a, 0
ld [wcd4a], a
ret
; 10292f
Jumptable_10292f: ; 10292f
dw Function10295d
dw Function102984
; 102933
Function102933: ; 102933
ld hl, MenuDataHeader_1029bb
call LoadMenuDataHeader
call Function102e07
ld a, $32
ld [TextDelayFrames], a
ld hl, wcd4b
set 1, [hl]
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
; 10294f
Function10294f: ; 10294f
ld a, [TextDelayFrames]
and a
ret nz
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
; 10295d
Function10295d: ; 10295d
call Function10299e
ld a, 0
ld [wcd27], a
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
; 10296e
Function10296e: ; 10296e
callba Function100382
and a
ld a, [wcd27]
bit 7, a
ret z
ld a, [wcd4a]
inc a
ld [wcd4a], a
and a
ret
; 102984
Function102984: ; 102984
callba Function100382
and a
ld a, [wcd27]
bit 7, a
ret z
call Function1029af
scf
ret
; 102996
Function102996: ; 102996
call Function1029af
call ExitMenu
scf
ret
; 10299e
Function10299e: ; 10299e
ld a, $1
ld [wccb4], a
ld a, [wcd50]
ld [wccb5], a
ld a, $aa
ld [wcd51], a
ret
; 1029af
Function1029af: ; 1029af
ld hl, wcd4b
res 7, [hl]
ld a, [wcc61]
ld [wcd51], a
ret
; 1029bb
MenuDataHeader_1029bb: ; 1029bb
db $40 ; flags
db 10, 3 ; start coords
db 12, 15 ; end coords
dw NULL
db 1 ; default option
; 1029c3
Function1029c3: ; 1029c3
ld a, [wcd4a]
ld hl, Jumptable_1029cb
rst JumpTable
ret
; 1029cb
Jumptable_1029cb: ; 1029cb
dw Function1029cf
dw Function1029fe
; 1029cf
Function1029cf: ; 1029cf
call LoadStandardMenuDataHeader
hlcoord 10, 7
ld b, 3
ld c, 8
ld d, h
ld e, l
callba _LinkTextbox
ld de, String_102a26
hlcoord 12, 8
call PlaceString
ld hl, wcd4b
set 1, [hl]
ld de, MenuData3_102a33
call InitMenu3
ld a, [wcd4a]
inc a
ld [wcd4a], a
xor a
ret
; 1029fe
Function1029fe: ; 1029fe
callba Function1009f3
ret c
callba MobileMenuJoypad
ld a, c
ld hl, w2DMenuFlags4
and [hl]
ret z
push af
call ExitMenu
pop af
ld a, [wMenuCursorY]
cp $1
jr nz, .asm_102a21
ld a, $1
and a
ret
.asm_102a21
ld a, $1
and a
scf
ret
; 102a26
String_102a26: ; 102a26
db "TRADE"
next "CANCEL"
db "@"
; 102a33
MenuData3_102a33:
db 8, 11
db 2, 1
db $80, $00, $20, $01
Function102a3b: ; 102a3b
ld a, [wcd30]
ld [wc74e], a
ld hl, PlayerName
ld de, wc6e7
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4c]
dec a
ld c, a
ld b, 0
ld hl, PartySpecies
add hl, bc
ld a, [hl]
ld [wPlayerTrademonSpecies], a
ld a, [wcd4c]
dec a
ld hl, PartyMonOT
call SkipNames
ld de, wPlayerTrademonOTName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4c]
dec a
ld hl, PartyMon1ID
call GetPartyLocation
ld a, [hli]
ld [wPlayerTrademonID], a
ld a, [hl]
ld [wPlayerTrademonID + 1], a
ld a, [wcd4c]
dec a
ld hl, PartyMon1DVs
call GetPartyLocation
ld a, [hli]
ld [wPlayerTrademonDVs], a
ld a, [hl]
ld [wPlayerTrademonDVs + 1], a
ld a, [wcd4c]
dec a
ld hl, PartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
callba GetCaughtGender
ld a, c
ld [wPlayerTrademonCaughtData], a
ld hl, OTPlayerName
ld de, wOTTrademonSenderName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4d]
dec a
ld c, a
ld b, 0
ld hl, OTPartySpecies
add hl, bc
ld a, [hl]
ld [wOTTrademonSpecies], a
ld a, [wcd4d]
dec a
ld hl, OTPartyMonOT
call SkipNames
ld de, wOTTrademonOTName
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wcd4d]
dec a
ld hl, OTPartyMon1ID
call GetPartyLocation
ld a, [hli]
ld [wOTTrademonID], a
ld a, [hl]
ld [wOTTrademonID + 1], a
ld a, [wcd4d]
dec a
ld hl, OTPartyMon1DVs
call GetPartyLocation
ld a, [hli]
ld [wOTTrademonDVs], a
ld a, [hl]
ld [wOTTrademonDVs + 1], a
ld a, [wcd4d]
dec a
ld hl, OTPartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
callba GetCaughtGender
ld a, c
ld [wOTTrademonCaughtData], a
ret
; 102b12
Function102b12: ; 102b12
ld c, 100
call DelayFrames
call Function102d9a
call LoadFontsBattleExtra
ld a, [wcd2f]
and a
jr nz, .asm_102b2b
callba Function108026
jr .asm_102b31
.asm_102b2b
callba Function10802a
.asm_102b31
ret
; 102b32
Function102b32: ; 102b32
ld a, [wcd4c]
dec a
ld [CurPartyMon], a
ld a, $1
ld [wForceEvolution], a
callba EvolvePokemon
call Function102d9a
call Function102dd3
call Function102dec
ret
; 102b4e
Function102b4e: ; 102b4e
ld a, $1
ld [MonType], a
ld a, [wMenuCursorY]
push af
ld de, Unknown_102b73
call InitMenu3
pop af
ld [wMenuCursorY], a
ld a, [OTPartyCount]
ld [wcfa3], a
ret
; 102b68
Function102b68: ; 102b68 ; unreferenced
xor a
ld hl, wWindowStackPointer
ld bc, $10
call ByteFill
ret
; 102b73
Unknown_102b73:
db $9, $6, $ff, $1, $a0, $, $10, $c1
Function102b7b: ; 102b7b
xor a
ld [MonType], a
ld a, [wMenuCursorY]
push af
ld de, Unknown_102b94
call InitMenu3
pop af
ld [wMenuCursorY], a
ld a, [PartyCount]
ld [wcfa3], a
ret
; 102b94
Unknown_102b94:
db $1, $6, $ff, $1, $a0, $, $10, $c1
Function102b9c: ; 102b9c
ld a, [wcd4d]
dec a
hlcoord 6, 9
ld bc, $14
call AddNTimes
ld [hl], $ec
ret
; 102bac
Function102bac: ; 102bac
ld a, [wMenuCursorY]
dec a
ld [CurPartyMon], a
call LowVolume
call ClearSprites
callba Function4dc8f
ld a, [CurPartyMon]
inc a
ld [wMenuCursorY], a
call Function102d9a
call ClearPalettes
call DelayFrame
call MaxVolume
call Function102dd3
call Function102dec
call Function102db7
ret
; 102bdc
Function102bdc: ; 102bdc
ld a, [wcd4d]
dec a
ld hl, OTPartyMon1Species
call GetPartyLocation
push hl
ld a, [wcd4d]
ld c, a
ld b, 0
ld hl, OTPartyCount
add hl, bc
ld a, [hl]
pop hl
cp EGG
jr z, .asm_102bfa
cp [hl]
jr nz, .asm_102c05
.asm_102bfa
ld bc, MON_LEVEL
add hl, bc
ld a, [hl]
cp MAX_LEVEL + 1
jr nc, .asm_102c05
and a
ret
.asm_102c05
scf
ret
; 102c07
Function102c07: ; 102c07
call Function102c14
call Function102c3b
call Function102c21
call Function102c2e
ret
; 102c14
Function102c14: ; 102c14
ld hl, PartySpecies
ld de, OTPartySpecies
ld bc, 1
call Function102c71
ret
; 102c21
Function102c21: ; 102c21
ld hl, PartyMonNicknames
ld de, OTPartyMonNicknames
ld bc, 11
call Function102c71
ret
; 102c2e
Function102c2e: ; 102c2e
ld hl, PartyMonOT
ld de, OTPartyMonOT
ld bc, 11
call Function102c71
ret
; 102c3b
Function102c3b: ; 102c3b
ld hl, PartyMon1
ld de, OTPartyMon1
ld bc, $30
call Function102c71
ret
; 102c48
Function102c48: ; 102c48
callba Function10165a
ld a, 0
call GetSRAMBank
ld hl, $a600
ld de, wc608
ld bc, $2f
call Function102c71
call CloseSRAM
ld hl, wc608
ld de, wda00
ld bc, $1e0
ld a, $5
call FarCopyWRAM
ret
; 102c71
Function102c71: ; 102c71
ld a, [wcd4c]
dec a
call AddNTimes
push hl
ld h, d
ld l, e
ld a, [wcd4d]
dec a
call AddNTimes
pop de
call SwapBytes
ret
; 102c87
Function102c87: ; 102c87
ld a, [wJumptableIndex]
push af
ld a, [wcf64]
push af
ld a, [wcd4c]
ld [wJumptableIndex], a
ld a, [PartyCount]
ld [wcf64], a
ld a, 0
ld hl, $a600
ld de, wc608
ld bc, $11a
call Function102d3e
call Function102cee
ld a, 0
ld hl, wc608
ld de, $a600
ld bc, $11a
call Function102d3e
ld a, [wcd4d]
ld [wJumptableIndex], a
ld a, [OTPartyCount]
ld [wcf64], a
ld a, $5
ld hl, wda00
ld de, wc608
ld bc, $11a
call FarCopyWRAM
call Function102cee
ld a, $5
ld hl, wc608
ld de, wda00
ld bc, $11a
call FarCopyWRAM
pop af
ld [wcf64], a
pop af
ld [wJumptableIndex], a
ret
; 102cee
Function102cee: ; 102cee
ld a, [wJumptableIndex]
dec a
call Function102d34
ld de, wd002
ld bc, $2f
call CopyBytes
ld a, [wJumptableIndex]
ld c, a
ld a, $6
sub c
ret z
ld bc, $2f
ld hl, 0
call AddNTimes
push hl
ld a, [wJumptableIndex]
dec a
call Function102d34
ld d, h
ld e, l
ld hl, $2f
add hl, de
pop bc
call CopyBytes
ld a, [wcf64]
dec a
call Function102d34
ld d, h
ld e, l
ld hl, wd002
ld bc, $2f
call CopyBytes
ret
; 102d34
Function102d34: ; 102d34
ld hl, wc608
ld bc, $2f
call AddNTimes
ret
; 102d3e
Function102d3e: ; 102d3e
call GetSRAMBank
call CopyBytes
call CloseSRAM
ret
; 102d48
Function102d48: ; 102d48
ld a, [wcd4c]
ld e, a
ld d, 0
ld hl, PartyCount
add hl, de
ld a, [hl]
ld [wd265], a
cp EGG
jr z, .asm_102d6d
dec a
call SetSeenAndCaughtMon
ld a, [wcd4c]
dec a
ld bc, PARTYMON_STRUCT_LENGTH
ld hl, PartyMon1Happiness
call AddNTimes
ld [hl], BASE_HAPPINESS
.asm_102d6d
ld a, [wd265]
cp UNOWN
jr nz, .asm_102d98
ld a, [wcd4c]
dec a
ld bc, PARTYMON_STRUCT_LENGTH
ld hl, PartyMon1DVs
call AddNTimes
predef GetUnownLetter
callba UpdateUnownDex
ld a, [wFirstUnownSeen]
and a
jr nz, .asm_102d98
ld a, [UnownLetter]
ld [wFirstUnownSeen], a
.asm_102d98
and a
ret
; 102d9a
Function102d9a: ; 102d9a
ld a, $7f
ld hl, SpritesEnd
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
ld a, $7
hlcoord 0, 0, AttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call ByteFill
callba Function104000
ret
; 102db7
Function102db7: ; 102db7
call Function102e4f
call Function102e3e
ld hl, wcd4b
set 1, [hl]
ret
; 102dc3
Function102dc3: ; 102dc3
hlcoord 0, 12
ld b, $4
ld c, $12
ld d, h
ld e, l
callba _LinkTextbox
ret
; 102dd3
Function102dd3: ; 102dd3
call DisableLCD
ld de, GFX_1032a2
ld hl, VTiles0
lb bc, BANK(GFX_1032a2), 4
call Get2bpp
callba Function16d421
call EnableLCD
ret
; 102dec
Function102dec: ; 102dec
ld hl, Unknown_1032e2
ld de, UnknOBPals
ld bc, $20
ld a, $5
call FarCopyWRAM
callba Function49742
call SetPalettes
call DelayFrame
ret
; 102e07
Function102e07: ; 102e07
hlcoord 3, 10
ld b, $1
ld c, $b
ld a, [wBattleMode]
and a
jr z, .asm_102e19
call TextBox
jr .asm_102e28
.asm_102e19
hlcoord 3, 10
ld b, $1
ld c, $b
ld d, h
ld e, l
callba _LinkTextbox
.asm_102e28
ld de, String_102e32
hlcoord 4, 11
call PlaceString
ret
; 102e32
String_102e32: ; 102e32
db "Waiting...!@"
; 102e3e
Function102e3e: ; 102e3e
ld de, String_102e48
hlcoord 10, 17
call PlaceString
ret
; 102e48
String_102e48: ; 102e48
db "CANCEL@"
; 102e4f
Function102e4f: ; 102e4f
callba Function16d42e
callba Function49797
ld de, PlayerName
hlcoord 4, 0
call PlaceString
ld a, $14
ld [bc], a
ld de, OTPlayerName
hlcoord 4, 8
call PlaceString
ld a, $14
ld [bc], a
hlcoord 7, 1
ld de, PartySpecies
call Function102e86
hlcoord 7, 9
ld de, OTPartySpecies
call Function102e86
ret
; 102e86
Function102e86: ; 102e86
ld c, 0
.asm_102e88
ld a, [de]
cp $ff
ret z
ld [wd265], a
push bc
push hl
push de
push hl
ld a, c
ld [hDividend], a
call GetPokemonName
pop hl
call PlaceString
pop de
inc de
pop hl
ld bc, $14
add hl, bc
pop bc
inc c
jr .asm_102e88
; 102ea8
Function102ea8: ; 102ea8
call Function102dc3
ld a, [wcd4c]
dec a
ld c, a
ld b, 0
ld hl, PartySpecies
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
ld de, StringBuffer2
ld bc, 11
call CopyBytes
ld a, [wcd4d]
dec a
ld c, a
ld b, 0
ld hl, OTPartySpecies
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ld hl, UnknownText_0x102ee2
call PrintTextBoxText
ret
; 102ee2
UnknownText_0x102ee2: ; 102ee2
text_jump UnknownText_0x1bd286
db "@"
Function102ee7: ; 102ee7
call Function102dc3
ld de, String_102ef4
hlcoord 1, 14
call PlaceString
ret
; 102ef4
String_102ef4: ; 102ef4
db "Too bad! The trade"
next "was canceled!"
db "@"
; 102f15
Function102f15: ; 102f15
call Function102dc3
ld de, String_102f22
hlcoord 1, 14
call PlaceString
ret
; 102f22
String_102f22: ; 102f22
db "こうかんを キャンセルしました@"
; 102f32
Function102f32: ; 102f32
call Function102dc3
ld de, String_102f3f
hlcoord 1, 14
call PlaceString
ret
; 102f3f
String_102f3f: ; 102f3f
db "Trade completed!@"
; 102f50
Function102f50: ; 102f50
call Function102dc3
ld de, String_102f5d
hlcoord 1, 14
call PlaceString
ret
; 102f5d
String_102f5d: ; 102f5d
db "しょうしょう おまち ください@"
; 102f6d
Function102f6d: ; 102f6d
call Function102dc3
ld de, String_102f7a
hlcoord 1, 14
call PlaceString
ret
; 102f7a
String_102f7a: ; 102f7a
db "しゅうりょう します@"
; 102f85
Function102f85: ; 102f85
ld a, [wd003]
ld c, a
ld b, 0
ld hl, OTPartySpecies
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
call Function102dc3
ld de, String_102fb2
hlcoord 1, 14
call PlaceString
ld de, StringBuffer1
hlcoord 13, 14
call PlaceString
ld de, String_102fcc
call PlaceString
ret
; 102fb2
String_102fb2: ; 102fb2
db "あいてがわ", $4a, "えらんだ "
next "いじょう", $4a, "あるようです!!"
db "@"
; 102fcc
String_102fcc: ; 102fcc
db "に@"
; 102fce
Function102fce: ; 102fce
call Function102dc3
ld de, String_102fdb
hlcoord 1, 14
call PlaceString
ret
; 102fdb
String_102fdb: ; 102fdb
db "あいてがわ", $25, "せんたくに"
next "いじょう", $4a, "あるようです!!"
done
; 102ff5
Function102ff5: ; 102ff5
call Function102dc3
ld de, String_103002
hlcoord 1, 14
call PlaceString
ret
; 103002
String_103002: ; 103002
db "その#を こうかんすると"
next "せんとう できなく なっちゃうよ!"
db "@"
; 103021
Function103021: ; 103021
call Function102dc3
ld de, String_10302e
hlcoord 1, 14
call PlaceString
ret
; 10302e
String_10302e: ; 10302e
db "あいてが ちゅうしを えらんだので"
next "こうかんを ちゅうし します"
db "@"
; 10304f
Function10304f: ; 10304f
xor a
ld [AttrMapEnd], a
ld [wcf42], a
ld [wcf44], a
ld [wcf45], a
ret
; 10305d
Function10305d: ; 10305d
nop
ld a, [AttrMapEnd]
and a
ret z
call Function10307f
ret c
call Function103094
call Function10306e
ret
; 10306e
Function10306e: ; 10306e
ld a, $1
ld [hOAMUpdate], a
call ClearSprites
ld de, Sprites
call Function1030cd
xor a
ld [hOAMUpdate], a
ret
; 10307f
Function10307f: ; 10307f
ld c, $2
ld hl, wcd4b
bit 7, [hl]
jr z, .asm_10308a
ld c, $1
.asm_10308a
ld hl, wcf45
inc [hl]
ld a, [hl]
cp c
ret c
xor a
ld [hl], a
ret
; 103094
Function103094: ; 103094
ld hl, wcd4b
bit 7, [hl]
jr nz, .asm_1030c0
ld a, [wcf42]
bit 7, a
jr nz, .asm_1030b2
ld a, [wcf44]
inc a
ld [wcf44], a
cp $2c
ret nz
ld hl, wcf42
set 7, [hl]
ret
.asm_1030b2
ld a, [wcf44]
dec a
ld [wcf44], a
ret nz
ld hl, wcf42
res 7, [hl]
ret
.asm_1030c0
ld hl, wcf44
ld a, [hl]
and a
jr z, .asm_1030ca
dec a
ld [hl], a
ret nz
.asm_1030ca
ld [hl], $2c
ret
; 1030cd
Function1030cd: ; 1030cd
ld a, [wcf44]
ld l, a
ld h, 0
rept 3
add hl, hl
endr
ld bc, Unknown_103112
add hl, bc
ld b, $30
ld c, $8
.asm_1030de
push hl
ld hl, wcd4b
bit 7, [hl]
pop hl
ld a, 0
jr z, .asm_1030eb
ld a, $5
.asm_1030eb
add [hl]
inc hl
push hl
rept 2
add a
endr
add Unknown_10327a % $100
ld l, a
ld a, Unknown_10327a / $100
adc 0
ld h, a
ld a, b
add [hl]
inc hl
ld [de], a
inc de
ld a, $a
add [hl]
inc hl
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
ld a, [hli]
ld [de], a
inc de
pop hl
ld a, b
add $8
ld b, a
dec c
jr nz, .asm_1030de
ret
; 103112
Unknown_103112: ; 103112
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $1, $, $, $, $, $, $, $
db $2, $1, $, $, $, $, $, $
db $3, $2, $1, $, $, $, $, $
db $4, $3, $2, $1, $, $, $, $
db $4, $4, $3, $2, $1, $, $, $
db $4, $4, $4, $3, $2, $1, $, $
db $4, $4, $4, $4, $3, $2, $1, $
db $4, $4, $4, $4, $4, $3, $2, $1
db $4, $4, $4, $4, $4, $4, $3, $2
db $4, $4, $4, $4, $4, $4, $4, $3
db $4, $4, $4, $4, $4, $4, $4, $4
db $4, $4, $4, $4, $4, $4, $4, $4
db $4, $4, $4, $4, $4, $4, $4, $4
db $4, $4, $4, $4, $4, $4, $4, $4
db $4, $4, $4, $4, $4, $4, $4, $4
db $4, $4, $4, $4, $4, $4, $4, $4
db $4, $4, $4, $4, $4, $4, $4, $4
db $4, $4, $4, $4, $4, $4, $4, $4
db $3, $4, $4, $4, $4, $4, $4, $4
db $2, $3, $4, $4, $4, $4, $4, $4
db $1, $2, $3, $4, $4, $4, $4, $4
db $, $1, $2, $3, $4, $4, $4, $4
db $, $, $1, $2, $3, $4, $4, $4
db $, $, $, $1, $2, $3, $4, $4
db $, $, $, $, $1, $2, $3, $4
db $, $, $, $, $, $1, $2, $3
db $, $, $, $, $, $, $1, $2
db $, $, $, $, $, $, $, $1
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
db $, $, $, $, $, $, $, $
; 10327a
Unknown_10327a: ; 10327a
db $, $, $, $
db $, $, $1, $
db $, $, $2, $
db $, $, $3, $
db $, $, $1, $1
db $, $, $, $
db $, $, $1, $2
db $, $, $2, $2
db $, $, $3, $2
db $, $, $1, $3
GFX_1032a2:
INCBIN "gfx/unknown/1032a2.2bpp"
Unknown_1032e2:
db $, $, $ff, $1f
db $f4, $1b, $8d, $42
db $, $, $67, $45
db $, $, $, $
db $, $, $1f, $13
db $99, $1, $ff, $10
db $, $, $19, $
db $, $, $, $
; 103302
Function103302: ; 103302
call Function103309
call Function103362
ret
; 103309
Function103309: ; 103309
xor a
ld [hBGMapMode], a
ld hl, Buffer1
ld bc, 10
xor a
call ByteFill
ld a, $4
call GetSRAMBank
ld a, [wdc41]
ld [$a60c], a
ld [Buffer1], 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
callba Function104000
ld a, $1
ld [wd1f0], a
call Function10339a
ret
; 103362
Function103362: ; 103362
.asm_103362
ld a, [wd1f0]
ld [wd1f1], a
call Function1033af
call Function10339a
call Function10342c
callba Function10402d
ld a, [Buffer2]
bit 7, a
jr z, .asm_103362
ld hl, Buffer2
bit 6, [hl]
jr z, .asm_103398
ld a, $4
call GetSRAMBank
ld a, [Buffer1]
ld [$a60c], a
ld [wdc41], a
call CloseSRAM
xor a
ret
.asm_103398
scf
ret
; 10339a
Function10339a: ; 10339a
ld a, [wd1f0]
ld [wd1f2], a
ld c, a
ld b, 0
ld hl, wd1ec
ld a, [hli]
ld h, [hl]
ld l, a
add hl, bc
ld a, [hl]
ld [wd1f3], a
ret
; 1033af
Function1033af: ; 1033af
call GetJoypad
ld a, [hJoyPressed]
bit 5, a
jr nz, .left
bit 4, a
jr nz, .right
bit 1, a
jr nz, .b
bit 0, a
jr nz, .a
bit 6, a
jr nz, .up
bit 7, a
jr nz, .down
ret
.up
ld a, [wd1f0]
dec a
ld [wd1f0], a
cp $1
ret nc
ld a, [wd1ee]
ld [wd1f0], a
ret
.down
ld a, [wd1f0]
inc a
ld [wd1f0], a
ld c, a
ld a, [wd1ee]
cp c
ret nc
ld a, $1
ld [wd1f0], a
ret
.b
call PlayClickSFX
ld hl, Buffer2
set 7, [hl]
ret
.a
ld a, [wd1f3]
cp $3
jr nz, .asm_103412
ld de, SFX_TRANSACTION
call PlaySFX
ld hl, Buffer2
set 7, [hl]
ld hl, Buffer2
set 6, [hl]
ret
.left
.right
.asm_103412
ld a, [wd1f3]
cp $3
ret z
ld de, SFX_PUSH_BUTTON
call PlaySFX
ld bc, 8
call Function10350f
ld a, [Buffer1]
xor e
ld [Buffer1], a
ret
; 10342c
Function10342c: ; 10342c
ld a, [wd1f0]
ld [wd1f2], a
call Function103490
call Function10343c
call Function1034a7
ret
; 10343c
Function10343c: ; 10343c
ld a, [wd1f3]
cp $2
jr nz, .asm_103452
ld bc, 1
call Function1034f7
ld c, $12
ld b, $1
call Function1034e0
jr .asm_10345f
.asm_103452
ld bc, $ffed
call Function1034f7
ld c, $12
ld b, $2
call Function1034e0
.asm_10345f
ld bc, 0
call Function10350f
ld bc, 1
call Function103487
ld bc, 8
call Function10350f
ld a, [Buffer1]
and e
ld bc, 2
jr z, .asm_10347d
ld bc, 4
.asm_10347d
call Function10350f
ld bc, 11
call Function103487
ret
; 103487
Function103487: ; 103487
push de
call Function1034f7
pop de
call PlaceString
ret
; 103490
Function103490: ; 103490
hlcoord 0, 15
ld c, $14
ld b, $3
call Function1034e0
ld bc, 6
call Function10350f
hlcoord 1, 16
call PlaceString
ret
; 1034a7
Function1034a7: ; 1034a7
ld a, [wd1f1]
ld [wd1f2], a
ld bc, 10
call Function1034f7
ld [hl], $7f
ld bc, 10
call Function1034f1
ld [hl], $ed
ret
; 1034be
Function1034be: ; 1034be
ld a, $1
ld [wd1f2], a
ld hl, wd1ec
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hli]
.asm_1034ca
push af
ld a, [hli]
push hl
ld [wd1f3], a
call Function10343c
ld hl, wd1f2
inc [hl]
pop hl
pop af
dec a
jr nz, .asm_1034ca
call Function103490
ret
; 1034e0
Function1034e0: ; 1034e0
push bc
push hl
call ClearBox
pop hl
ld bc, AttrMap - TileMap
add hl, bc
pop bc
ld a, $6
call FillBoxWithByte
ret
; 1034f1
Function1034f1: ; 1034f1
ld a, [wd1f0]
ld [wd1f2], a
Function1034f7: ; 10134f7
hlcoord 0, 0
add hl, bc
ld a, [wd1ef]
ld bc, SCREEN_WIDTH
call AddNTimes
ld a, [wd1f2]
dec a
ld bc, 40
call AddNTimes
ret
; 10350f
Function10350f: ; 10350f
ld a, [wd1f3]
push bc
ld hl, Unknown_103522
ld bc, 9
call AddNTimes
pop bc
add hl, bc
ld a, [hli]
ld d, [hl]
ld e, a
ret
; 103522
Unknown_103522: ; 103522
dw String_103546
dw String_103598
dw String_1035a0
dw String_10355f
db $1
dw String_10354f
dw String_1035a8
dw String_1035b1
dw String_103571
db $2
dw String_103557
dw String_1035ba
dw String_1035bd
dw String_103585
db $4
dw String_103545
dw String_1035c1
dw String_1035c1
dw String_103545
String_103545: db "@"
String_103546: db "せんとう アニメ@"
String_10354f: db "でんわばんごう@"
String_103557: db "めいしこうかん@"
String_10355f: db "でんわを かけるひとが きめられる@"
String_103571: db "でんわばんごうの にゅうりょくのしかた@"
String_103585: db "あたらしいめいしが あれば こうかん@"
String_103598: db "とばして みる@"
String_1035a0: db "じっくり みる@"
String_1035a8: db "めいしからえらぶ@"
String_1035b1: db "すうじで いれる@"
String_1035ba: db "する@"
String_1035bd: db "しない@"
String_1035c1: db "けってい@"
; 1035c6
Function1035c6: ; 1035c6
callba Function10138b
ld b, 0
ld hl, Unknown_1035d7
rept 2
add hl, bc
endr
ld a, [hli]
ld h, [hl]
ld l, a
ret
; 1035d7
Unknown_1035d7: ; 1035d7
dw Unknown_1035e7
dw Unknown_1035f3
dw Unknown_103608
dw Unknown_103608
dw Unknown_1035fe
dw AskMobileOrCable
dw AskMobileOrCable
dw AskMobileOrCable
Unknown_1035e7: ; 1035e7
dwcoord 0, 6
db $12, $7, $7
dw .this
.this
db 4, 2, 1, 0, 3
Unknown_1035f3: ; 1035f3
dwcoord 0, 7
db $12, $6, $9
dw .this
.this
db 3, 2, 1, 3
Unknown_1035fe: ; 1035fe
dwcoord 0, 9
db $12, $4, $b
dw .this
.this
db 2, 0, 3
Unknown_103608: ; 103608
dwcoord 0, 9
db $12, $4, $b
dw .this
.this
db 2, 2, 3
; 103612
AskMobileOrCable: ; 103612
ld hl, MenuDataHeader_103640
call LoadMenuDataHeader
ld a, [wdc40]
and $f
jr z, .skip_load
ld [wMenuCursorBuffer], a
.skip_load
call VerticalMenu
call WriteBackup
jr c, .pressed_b
ld a, [wMenuCursorY]
ld [ScriptVar], a
ld c, a
ld a, [wdc40]
and $f0
or c
ld [wdc40], a
ret
.pressed_b
xor a
ld [ScriptVar], a
ret
; 103640
MenuDataHeader_103640: ; 103640
db $40 ; flags
db 6, 13 ; start coords
db 11, 19 ; end coords
dw MenuData2_103648
db 1 ; default option
MenuData2_103648: ; 103648
db $80 ; flags
db 2
db "モバイル@"
db "ケーブル@"
; 103654
Function103654: ; 103654
callba Function10632f
bit 7, c
jr nz, .asm_103666
ld hl, wcd2a
res 5, [hl]
ld c, $2
ret
.asm_103666
ld hl, wcd2a
set 5, [hl]
ld c, $1
ret
; 10366e
Mobile_SelectThreeMons: ; 10366e
callba Function10632f
bit 7, c
jr z, .asm_10369b
ld hl, UnknownText_0x10375d
call PrintText
call YesNoBox
jr c, .asm_103696
callba Function8b1e1
jr nc, .asm_103690
call JoyWaitAorB
jr .asm_103696
.asm_103690
ld a, $1
ld [ScriptVar], a
ret
.asm_103696
xor a
ld [ScriptVar], a
ret
.asm_10369b
ld hl, wdc40
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, MenuDataHeader_103747
call LoadMenuDataHeader
call VerticalMenu
call ExitMenu
jr c, .asm_1036f4
ld a, [wMenuCursorY]
cp $1
jr z, .asm_1036d9
cp $2
jr z, .asm_1036f4
cp $3
jr z, .asm_1036ec
jr .asm_1036b5
.asm_1036d9
callba Function8b1e1
jr nc, .asm_1036e6
call JoyWaitAorB
jr .asm_1036f4
.asm_1036e6
ld a, $1
ld [ScriptVar], a
ret
.asm_1036ec
call Function1036f9
call JoyWaitAorB
jr .asm_1036b5
.asm_1036f4
xor a
ld [ScriptVar], a
ret
; 1036f9
Function1036f9: ; 1036f9
ld hl, UnknownText_0x103767
call PrintText
ret
; 103700
Function103700: ; 103700
ld c, $a
ld hl, SwarmFlags
bit 4, [hl]
jr z, .asm_10370f
callba Function1008a6
.asm_10370f
ld a, c
ld [StringBuffer2], a
ld a, [StringBuffer2]
cp $5
jr nc, .asm_103724
cp $2
jr nc, .asm_10372c
cp $1
jr nc, .asm_103734
jr .asm_10373c
.asm_103724
ld hl, UnknownText_0x10376c
call PrintText
and a
ret
.asm_10372c
ld hl, UnknownText_0x103771
call PrintText
and a
ret
.asm_103734
ld hl, UnknownText_0x103776
call PrintText
and a
ret
.asm_10373c
ld hl, UnknownText_0x10377b
call PrintText
call JoyWaitAorB
scf
ret
; 103747
MenuDataHeader_103747: ; 103747
db $40 ; flags
db 5, 13 ; start coords
db 11, 19 ; end coords
dw MenuData2_10374f
db 1 ; default option
MenuData2_10374f: ; 10374f
db $c0 ; flags
db 3
db "はい@"
db "やめる@"
db "せつめい@"
; 10375d
UnknownText_0x10375d: ; 0x10375d
text_jump UnknownText_0x1c422a
db "@"
; 0x103762
UnknownText_0x103762: ; 0x103762
text_jump UnknownText_0x1c4275
db "@"
; 0x103767
UnknownText_0x103767: ; 0x103767
text_jump UnknownText_0x1c4298
db "@"
; 0x10376c
UnknownText_0x10376c: ; 0x10376c
text_jump UnknownText_0x1c439c
db "@"
; 0x103771
UnknownText_0x103771: ; 0x103771
text_jump UnknownText_0x1c43dc
db "@"
; 0x103776
UnknownText_0x103776: ; 0x103776
text_jump UnknownText_0x1c4419
db "@"
; 0x10377b
UnknownText_0x10377b: ; 0x10377b
text_jump UnknownText_0x1c445a
db "@"
; 0x103780
Function103780: ; 103780
ld a, [wd265]
push af
call Function10378c
pop af
ld [wd265], a
ret
; 10378c
Function10378c: ; 10378c
ld c, 0
ld hl, SwarmFlags
bit 4, [hl]
jr nz, .already_set
ld c, $1
ld hl, SwarmFlags
set 4, [hl]
.already_set
push bc
callba Link_SaveGame
pop bc
jr c, .failed_to_save
ld a, $1
ld [ScriptVar], a
ld a, c
and a
ret z
callba Function1006fd
ret
.failed_to_save
xor a
ld [ScriptVar], a
ld a, c
and a
ret z
ld hl, SwarmFlags
res 4, [hl]
ret
; 1037c2
Function1037c2: ; 1037c2
call Function103823
jr c, .nope
ld a, [wdc5f]
and a
jr z, .nope
ld hl, UnknownText_0x1037e6
call PrintText
call YesNoBox
jr c, .nope
ld a, $1
ld [ScriptVar], a
ret
.nope
xor a
ld [wdc5f], a
ld [ScriptVar], a
ret
; 1037e6
UnknownText_0x1037e6: ; 0x1037e6
text_jump UnknownText_0x1c449c
db "@"
; 0x1037eb
Function1037eb: ; 1037eb
call Function103823
jr nc, .asm_103807
ld hl, UnknownText_0x103819
call PrintText
call JoyWaitAorB
ld hl, UnknownText_0x10381e
call PrintText
call JoyWaitAorB
xor a
ld [ScriptVar], a
ret
.asm_103807
ld a, [wdc60]
and a
jr nz, .asm_103813
ld a, $1
ld [ScriptVar], a
ret
.asm_103813
ld a, $2
ld [ScriptVar], a
ret
; 103819
UnknownText_0x103819: ; 0x103819
text_jump UnknownText_0x1c44c0
db "@"
; 0x10381e
UnknownText_0x10381e: ; 0x10381e
text_jump UnknownText_0x1c44e7
db "@"
; 0x103823
Function103823: ; 103823
callba Function10632f
bit 7, c
jr nz, .asm_103838
callba Function1008a6
ld a, c
cp $1
jr c, .asm_10383a
.asm_103838
xor a
ret
.asm_10383a
scf
ret
; 10383c
Function10383c: ; 10383c
ld a, $1
ld [wdc60], a
xor a
ld hl, wdc5c
rept 2
ld [hli], a
endr
ld [hl], a
ld hl, UnknownText_0x103876
call PrintText
call JoyWaitAorB
callba Script_reloadmappart
callba Function4a94e
jr c, .asm_103870
ld hl, wd002
ld de, wdc5c
ld bc, 3
call CopyBytes
xor a
ld [ScriptVar], a
ret
.asm_103870
ld a, $1
ld [ScriptVar], a
ret
; 103876
UnknownText_0x103876: ; 0x103876
text_jump UnknownText_0x1c4508
db "@"
; 0x10387b
Function10387b: ; 10387b
callba Function10632f
bit 7, c
ret nz
callba Function1008a6
ld a, c
ld [StringBuffer2], a
ld hl, UnknownText_0x103898
call PrintText
call JoyWaitAorB
ret
; 103898
UnknownText_0x103898: ; 0x103898
text_jump UnknownText_0x1c4525
db "@"
; 0x10389d