shithub: pokecrystal

ref: d08199c79d8168368aeac0381427d533e09f073d
dir: /misc/mobile_40.asm/

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, w2DMenuFlags1
	set 7, [hl]
	ret
; 100522

Function100522: ; 100522
	ld a, [wcd28]
	ld hl, Jumptable_10052a
	rst JumpTable
	ret
; 10052a

Jumptable_10052a: ; 10052a
	dw Function100534
	dw Function100545
	dw Function100545
	dw Function100545
	dw Function10054d
; 100534

Function100534: ; 100534
	call Function100513
	call UpdateSprites
	call ApplyTilemap
	ld a, [wcd28]
	inc a
	ld [wcd28], a
	ret
; 100545

Function100545: ; 100545
	ld a, [wcd28]
	inc a
	ld [wcd28], a
	ret
; 10054d

Function10054d: ; 10054d
	callba MobileMenuJoypad
	ld a, c
	ld hl, wMenuJoypadFilter
	and [hl]
	ret z
	call MenuClickSound
	bit 0, a
	jr nz, .asm_100565
	bit 1, a
	jr nz, .asm_10056f
	ret

.asm_100565
	ld a, [wcd28]
	set 7, a
	ld [wcd28], a
	and a
	ret

.asm_10056f
	ld a, [wcd28]
	set 7, a
	ld [wcd28], a
	scf
	ret
; 100579

Function100579: ; 100579
	ld a, [wcd26]
	ld hl, Jumptable_100581
	rst JumpTable
	ret
; 100581

Jumptable_100581: ; 100581
	dw Function100585
	dw Function100597
; 100585

Function100585: ; 100585
	ld hl, 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, [wMenuJoypadFilter]
	and c
	jr z, .asm_100b48
	callba Mobile_GetMenuSelection
	ret

.asm_100b6b
	ld a, [w2DMenuNumCols]
	ld c, a
	ld a, [w2DMenuNumRows]
	call SimpleMultiply
	ld [wMenuCursorBuffer], a
	and a
	ret
; 100b7a

Function100b7a: ; 100b7a
	ld hl, CopyMenuData2
	ld a, [wcf94]
	rst FarCall
	callba Draw2DMenu
	callba MobileTextBorder
	call UpdateSprites
	call ApplyTilemap
	callba Init2DMenuCursorPosition
	ld hl, w2DMenuFlags1
	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, [wMenuJoypadFilter]
	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 [w2DMenuNumRows], 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, w2DMenuFlags1
	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, [wMenuJoypadFilter]
	and c
	jr z, .asm_100cc0
	call PlaceHollowCursor
	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, w2DMenuFlags1
	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, [wMenuJoypadFilter]
	and c
	jr nz, .asm_100d56
	jr .asm_100d30

.asm_100d54
	scf
	ret

.asm_100d56
	push af
	ld de, SFX_READ_TEXT_2
	call PlaySFX
	pop af
	bit 1, a
	jr z, .asm_100d65
	ret z
	scf
	ret

.asm_100d65
	and a
	ret
; 100d67

Function100d67: ; 100d67
	ld hl, MenuDataHeader_100d88
	call CopyMenuDataHeader
	xor a
	ld [hBGMapMode], a
	call MenuBox
	call UpdateSprites
	call PlaceVerticalMenuItems
	call WaitBGMap
	call CopyMenuData2
	call InitVerticalMenuCursor
	ld hl, w2DMenuFlags1
	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 ReloadTilesetAndPalettes
	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 PlaceHollowCursor
	ld hl, wcd4b
	set 1, [hl]
	ld a, [wcd4c]
	call Function1028e8
	ld a, [wcd49]
	inc a
	ld [wcd49], a
	ret
; 10250c

Function10250c: ; 10250c
	call Function1028fc
	ret nc
	ld a, [wcd51]
	cp $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, [wMenuJoypadFilter]
	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 HideCursor
	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, [wMenuJoypadFilter]
	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 HideCursor
	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 HideCursor
	hlcoord 9, 17
	ld [hl], $ed
	ld a, [wcd4a]
	inc a
	ld [wcd4a], a
	ld hl, wcd4b
	set 1, [hl]
	ret
; 1026f3

Function1026f3: ; 1026f3
	ld a, [hJoyPressed]
	bit 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 PlaceHollowCursor
	call Function1027eb
	ld hl, wcd4b
	set 1, [hl]
	ld a, [wcd49]
	inc a
	ld [wcd49], a
	ld a, 0
	ld [wcd4a], a

Function102754: ; 102754
	call GetJoypad
	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, wMenuJoypadFilter
	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 [w2DMenuNumRows], 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 [w2DMenuNumRows], 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 __LoadTradeScreenBorder
	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 _InitMG_Mobile_LinkTradePalMap
	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 CheckForMobileBattleRules
	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 CheckForMobileBattleRules
	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