mirror of https://github.com/pret/pokecrystal.git
8122 lines
108 KiB
NASM
8122 lines
108 KiB
NASM
|
|
SECTION "bank40", ROMX, BANK[$40]
|
|
|
|
Function100000: ; 100000
|
|
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 [CreditsTimer], a
|
|
ld a, c
|
|
ld [wcd23], a
|
|
ld a, b
|
|
ld [wcd24], a
|
|
callba Function10127e
|
|
callba Function106462
|
|
callba Function106464
|
|
callba Function11615a
|
|
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, $0065
|
|
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 [hFFC9], a
|
|
ld [hMobile], a
|
|
ei
|
|
ret
|
|
; 0x1000a4
|
|
|
|
Function1000a4: ; 1000a4
|
|
di
|
|
xor a
|
|
ld [hFFC9], 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
|
|
.asm_1000ba
|
|
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, [CreditsTimer]
|
|
call GetFarHalfword
|
|
ld a, [CreditsTimer]
|
|
rst FarCall
|
|
call Function1000e8
|
|
call Function1000fa
|
|
call Function100144
|
|
call Function100163
|
|
ld a, [wcd2b]
|
|
and a
|
|
jr z, .asm_1000ba
|
|
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 [hFFC9], 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, $0002
|
|
jr .asm_1001d7
|
|
|
|
.asm_1001cb
|
|
ld a, $d1
|
|
ld de, $0001
|
|
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 RotatePalettesRightPalettes
|
|
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 Function49409
|
|
callba Function96a4
|
|
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, $0054
|
|
ld a, $3
|
|
call FarCopyWRAM
|
|
ret
|
|
; 1003ab
|
|
|
|
Function1003ab: ; 1003ab
|
|
ld hl, w3_d000
|
|
ld de, wcc60
|
|
ld bc, $0054
|
|
ld a, $3
|
|
call FarCopyWRAM
|
|
ret
|
|
; 1003ba
|
|
|
|
Function1003ba: ; 1003ba
|
|
ld hl, wccb4
|
|
ld de, w3_d080
|
|
ld bc, $0054
|
|
ld a, $3
|
|
call FarCopyWRAM
|
|
ret
|
|
; 1003c9
|
|
|
|
Function1003c9: ; 1003c9
|
|
ld hl, w3_d080
|
|
ld de, wccb4
|
|
ld bc, $0054
|
|
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 Function1c89
|
|
call Function1c10
|
|
ld hl, wcfa5
|
|
set 7, [hl]
|
|
ret
|
|
; 100522
|
|
|
|
Function100522: ; 100522
|
|
ld a, [wcd28]
|
|
ld hl, Jumptable_10052a
|
|
rst JumpTable
|
|
ret
|
|
; 10052a
|
|
|
|
Jumptable_10052a: ; 10052a
|
|
dw Function100534
|
|
dw Function100545
|
|
dw Function100545
|
|
dw Function100545
|
|
dw Function10054d
|
|
; 100534
|
|
|
|
Function100534: ; 100534
|
|
call Function100513
|
|
call UpdateSprites
|
|
call Function321c
|
|
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 Function241ba
|
|
ld a, c
|
|
ld hl, wcfa8
|
|
and [hl]
|
|
ret z
|
|
call Function1ff8
|
|
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 [MenuSelection2], 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 [MenuSelection2], 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
|
|
|
|
Function100a09: ; 100a09
|
|
call Function100a2e
|
|
ld [wd431], a
|
|
callba Function4000
|
|
ld a, [wLinkMode]
|
|
cp LINK_MOBILE
|
|
jr nz, .asm_100a2a
|
|
|
|
call Function100a87
|
|
call Function100da5
|
|
callba FinishBattleAnim
|
|
jr .asm_100a2d
|
|
|
|
.asm_100a2a
|
|
call Function100a53
|
|
|
|
.asm_100a2d
|
|
ret
|
|
; 100a2e
|
|
|
|
Function100a2e: ; 100a2e
|
|
ld a, [wd0ec]
|
|
and a
|
|
jr nz, .asm_100a48
|
|
ld a, [CurPlayerMove]
|
|
ld b, $e
|
|
cp STRUGGLE
|
|
jr z, .asm_100a4f
|
|
ld b, $d
|
|
cp $ff
|
|
jr z, .asm_100a4f
|
|
ld a, [CurMoveNum]
|
|
jr .asm_100a50
|
|
|
|
.asm_100a48
|
|
ld a, [CurPartyMon]
|
|
add $4
|
|
jr .asm_100a50
|
|
|
|
.asm_100a4f
|
|
ld a, b
|
|
|
|
.asm_100a50
|
|
and $f
|
|
ret
|
|
; 100a53
|
|
|
|
Function100a53: ; 100a53
|
|
ld a, [wd431]
|
|
ld [wcf56], a
|
|
ld a, $ff
|
|
ld [wcf52], a
|
|
.asm_100a5e
|
|
call Function8c1
|
|
call DelayFrame
|
|
ld a, [wcf52]
|
|
inc a
|
|
jr z, .asm_100a5e
|
|
ld b, $a
|
|
.asm_100a6c
|
|
call DelayFrame
|
|
call Function8c1
|
|
dec b
|
|
jr nz, .asm_100a6c
|
|
ld b, $a
|
|
.asm_100a77
|
|
call DelayFrame
|
|
call Function908
|
|
dec b
|
|
jr nz, .asm_100a77
|
|
ld a, [wcf52]
|
|
ld [wd430], 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 Function241ba
|
|
push bc
|
|
callba Function10402d
|
|
call Function100e2d
|
|
pop bc
|
|
jr c, .asm_100b6b
|
|
ld a, [wcfa8]
|
|
and c
|
|
jr z, .asm_100b48
|
|
callba Function24098
|
|
ret
|
|
|
|
.asm_100b6b
|
|
ld a, [wcfa4]
|
|
ld c, a
|
|
ld a, [wcfa3]
|
|
call SimpleMultiply
|
|
ld [wMenuCursorBuffer], a
|
|
and a
|
|
ret
|
|
; 100b7a
|
|
|
|
Function100b7a: ; 100b7a
|
|
ld hl, CopyMenuData2
|
|
ld a, [wcf94]
|
|
rst FarCall
|
|
callba Function24085
|
|
callba MobileTextBorder
|
|
call UpdateSprites
|
|
call Function321c
|
|
callba Function2411a
|
|
ld hl, wcfa5
|
|
set 7, [hl]
|
|
ret
|
|
; 100b9f
|
|
|
|
Function100b9f: ; 100b9f
|
|
xor a
|
|
ld [wd0e3], a
|
|
callba Function3e786
|
|
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 Function241ba
|
|
push bc
|
|
callba Function10402d
|
|
call Function100e2d
|
|
pop bc
|
|
jr c, .asm_100c25
|
|
ld a, [wcfa8]
|
|
and c
|
|
bit 6, a
|
|
jp nz, .asm_100bff
|
|
bit 7, a
|
|
jp nz, .asm_100c10
|
|
bit 0, a
|
|
jr nz, .asm_100c30
|
|
bit 1, a
|
|
jr nz, .asm_100c25
|
|
jr .asm_100bd1
|
|
|
|
.asm_100bff
|
|
ld a, [MenuSelection2]
|
|
and a
|
|
jp nz, .asm_100bcb
|
|
ld a, [wd0eb]
|
|
inc a
|
|
ld [MenuSelection2], a
|
|
jp .asm_100bcb
|
|
|
|
.asm_100c10
|
|
ld a, [MenuSelection2]
|
|
ld b, a
|
|
ld a, [wd0eb]
|
|
rept 2
|
|
inc a
|
|
endr
|
|
cp b
|
|
jp nz, .asm_100bcb
|
|
ld a, $1
|
|
ld [MenuSelection2], a
|
|
jp .asm_100bcb
|
|
|
|
.asm_100c25
|
|
ld a, [MenuSelection2]
|
|
dec a
|
|
ld [CurMoveNum], a
|
|
ld a, $1
|
|
and a
|
|
ret
|
|
|
|
.asm_100c30
|
|
ld a, [MenuSelection2]
|
|
dec a
|
|
ld [CurMoveNum], a
|
|
ld a, [MenuSelection2]
|
|
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, [MenuSelection2]
|
|
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, [wd0eb]
|
|
inc a
|
|
ld [wcfa3], a
|
|
ld a, [CurMoveNum]
|
|
inc a
|
|
ld [MenuSelection2], a
|
|
ret
|
|
; 100cad
|
|
|
|
Unknown_100cad: ; 100cad
|
|
db $0a, $01, $ff, $01, $a0, $00, $20, $c3
|
|
|
|
Function100cb5: ; 100cb5
|
|
call Function100dd8
|
|
ret c
|
|
ld hl, wcfa5
|
|
set 7, [hl]
|
|
res 6, [hl]
|
|
.asm_100cc0
|
|
call Function100dd2
|
|
callba Function241ba
|
|
push bc
|
|
callba Function8cf69
|
|
callba Function10402d
|
|
call Function100dfd
|
|
pop bc
|
|
jr c, .asm_100d17
|
|
ld a, [wcfa8]
|
|
and c
|
|
jr z, .asm_100cc0
|
|
call Function1bee
|
|
ld a, [PartyCount]
|
|
inc a
|
|
ld b, a
|
|
ld a, [MenuSelection2]
|
|
cp b
|
|
jr z, .asm_100d17
|
|
ld [wd0d8], a
|
|
ld a, [hJoyLast]
|
|
ld b, a
|
|
bit 1, b
|
|
jr nz, .asm_100d17
|
|
ld a, [MenuSelection2]
|
|
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
|
|
|
|
Function100d22: ; 100d22
|
|
call Function100dd8
|
|
ret c
|
|
call Function100d67
|
|
ld hl, wcfa5
|
|
set 7, [hl]
|
|
res 6, [hl]
|
|
.asm_100d30
|
|
call Function100dd2
|
|
callba Function241ba
|
|
push bc
|
|
callba Function8cf69
|
|
callba Function10402d
|
|
call Function100dfd
|
|
pop bc
|
|
jr c, .asm_100d54
|
|
ld a, [wcfa8]
|
|
and c
|
|
jr nz, .asm_100d56
|
|
jr .asm_100d30
|
|
|
|
.asm_100d54
|
|
scf
|
|
ret
|
|
|
|
.asm_100d56
|
|
push af
|
|
ld de, SFX_READ_TEXT_2
|
|
call PlaySFX
|
|
pop af
|
|
bit 1, a
|
|
jr z, .asm_100d65
|
|
ret z
|
|
scf
|
|
ret
|
|
|
|
.asm_100d65
|
|
and a
|
|
ret
|
|
; 100d67
|
|
|
|
Function100d67: ; 100d67
|
|
ld hl, MenuDataHeader_100d88
|
|
call CopyMenuDataHeader
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
call MenuBox
|
|
call UpdateSprites
|
|
call Function1c89
|
|
call WaitBGMap
|
|
call CopyMenuData2
|
|
call Function1c10
|
|
ld hl, wcfa5
|
|
set 6, [hl]
|
|
ret
|
|
; 100d88
|
|
|
|
MenuDataHeader_100d88: ; 100d88
|
|
db 0 ; flags
|
|
db 11, 11 ; start coords
|
|
db 17, 19 ; end coords
|
|
dw MenuData2_100d90
|
|
db 1 ; default option
|
|
|
|
MenuData2_100d90: ; 100d90
|
|
db $c0 ; flags
|
|
db 3
|
|
db "いれかえる@"
|
|
db "つよさをみる@"
|
|
db "キャンセル@"
|
|
; 100da5
|
|
|
|
Function100da5: ; 100da5
|
|
ld hl, wcd2a
|
|
res 3, [hl]
|
|
ld hl, wcd29
|
|
res 0, [hl]
|
|
ret
|
|
; 100db0
|
|
|
|
Function100db0: ; 100db0
|
|
ld hl, wcd2a
|
|
bit 3, [hl]
|
|
jr nz, .asm_100dbe
|
|
ld hl, wcd2a
|
|
set 3, [hl]
|
|
scf
|
|
ret
|
|
|
|
.asm_100dbe
|
|
xor a
|
|
ret
|
|
; 100dc0
|
|
|
|
|
|
|
|
Function100dc0: ; 100dc0
|
|
ld a, [wLinkMode]
|
|
cp $4
|
|
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 Function96a4
|
|
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, $0007
|
|
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 $00, 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 $04, $a603, 8, NULL
|
|
dbwww $04, $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, $01b3
|
|
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, $01b5
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ret
|
|
; 10107d
|
|
|
|
Function10107d: ; 10107d
|
|
xor a
|
|
ld hl, wc608
|
|
ld bc, $01b5
|
|
call ByteFill
|
|
ld hl, wd26b
|
|
ld de, wc608
|
|
ld bc, $000b
|
|
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, $000b
|
|
call Function1010cd
|
|
ld hl, OTPartyMonOT
|
|
ld de, wc656 + 1
|
|
ld bc, $000b
|
|
call Function1010cd
|
|
ld hl, OTPartyMon1Species
|
|
ld de, wc68a + 15
|
|
ld bc, $0030
|
|
call Function1010cd
|
|
ld a, $50
|
|
ld [wc7b9], a
|
|
ld a, $33
|
|
ld [wc7ba], a
|
|
ret
|
|
; 1010cd
|
|
|
|
Function1010cd: ; 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
|
|
.asm_1010e3
|
|
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_1010e3
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
; 1010f2
|
|
|
|
Function1010f2: ; 1010f2
|
|
xor a
|
|
ld hl, StringBuffer2
|
|
ld bc, $0009
|
|
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, $0003
|
|
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, $0030
|
|
jr asm_101184
|
|
|
|
Function101181: ; 101181
|
|
ld bc, $000b
|
|
|
|
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, .asm_101210
|
|
ld hl, wdc41
|
|
set 4, [hl]
|
|
|
|
.asm_101210
|
|
call Function10209c
|
|
xor a
|
|
ld [wdc5f], a
|
|
ld [wdc60], a
|
|
ld a, $4
|
|
ld [wLinkMode], a
|
|
ret
|
|
; 101220
|
|
|
|
Function101220: ; 101220
|
|
xor a
|
|
ld [wLinkMode], a
|
|
ret
|
|
; 101225
|
|
|
|
Function101225: ; 101225
|
|
ld d, 1
|
|
ld e, BANK(Jumptable_101297)
|
|
ld bc, Jumptable_101297
|
|
call Function100000
|
|
jr Function10123d
|
|
|
|
Function101231: ; 101231
|
|
ld d, 2
|
|
ld e, BANK(Jumptable_101297)
|
|
ld bc, Jumptable_101297
|
|
call Function100000
|
|
jr Function10123d
|
|
|
|
Function10123d: ; 10123d
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ld a, c
|
|
ld hl, Jumptable_101247
|
|
rst JumpTable
|
|
ret
|
|
; 101247
|
|
|
|
Jumptable_101247: ; 101247
|
|
dw Function101251
|
|
dw Function10127d
|
|
dw Function10127c
|
|
dw Function10126c
|
|
dw Function101265
|
|
; 101251
|
|
|
|
Function101251: ; 101251
|
|
call UpdateSprites
|
|
call ResetWindow
|
|
ld hl, UnknownText_0x1021f4
|
|
call Function1021e0
|
|
call Function1020ea
|
|
ret c
|
|
call Function102142
|
|
ret
|
|
; 101265
|
|
|
|
Function101265: ; 101265
|
|
ld hl, UnknownText_0x1021ef
|
|
call Function1021e0
|
|
ret
|
|
; 10126c
|
|
|
|
Function10126c: ; 10126c
|
|
call UpdateSprites
|
|
callba Script_reloadmappart
|
|
ld hl, UnknownText_0x1021f4
|
|
call Function1021e0
|
|
ret
|
|
; 10127c
|
|
|
|
Function10127c: ; 10127c
|
|
ret
|
|
; 10127d
|
|
|
|
Function10127d: ; 10127d
|
|
ret
|
|
; 10127e
|
|
|
|
Function10127e: ; 10127e
|
|
ld a, [wdc5f]
|
|
and a
|
|
jr z, .asm_101290
|
|
cp $1
|
|
ld c, $27
|
|
jr z, .asm_101292
|
|
cp $2
|
|
ld c, $37
|
|
jr z, .asm_101292
|
|
|
|
.asm_101290
|
|
ld c, $0
|
|
|
|
.asm_101292
|
|
ld a, c
|
|
ld [wcd25], a
|
|
ret
|
|
; 101297
|
|
|
|
Jumptable_101297: ; 101297
|
|
dw Function101a97
|
|
dw Function101ab4
|
|
dw Function101475
|
|
dw Function101b0f
|
|
dw Function101438
|
|
dw Function101b2b
|
|
dw Function101b59
|
|
dw Function101475
|
|
dw Function101b70
|
|
dw Function101438
|
|
dw Function101b8f
|
|
dw Function101d7b
|
|
dw Function101d95
|
|
dw Function101475
|
|
dw Function101db2
|
|
dw Function101e4f
|
|
dw Function101475
|
|
dw Function101e64
|
|
dw Function101e4f
|
|
dw Function101475
|
|
dw Function101e64
|
|
dw Function101d95
|
|
dw Function101475
|
|
dw Function101db2
|
|
dw Function101dd0
|
|
dw Function101de3
|
|
dw Function101e39
|
|
dw Function101e09
|
|
dw Function101e4f
|
|
dw Function101475
|
|
dw Function101e64
|
|
dw Function101d95
|
|
dw Function101475
|
|
dw Function101db2
|
|
dw Function101e09
|
|
dw Function101e31
|
|
dw Function101bc8
|
|
dw Function101438
|
|
dw Function101be5
|
|
dw Function101ac6
|
|
dw Function101ab4
|
|
dw Function101475
|
|
dw Function101c11
|
|
dw Function1014f4
|
|
dw Function101cc8
|
|
dw Function1014e2
|
|
dw Function1014e2
|
|
dw Function101d10
|
|
dw Function101d2a
|
|
dw Function101d2a
|
|
dw Function101507
|
|
dw Function10156d
|
|
dw Function101557
|
|
dw Function10158a
|
|
dw Function101c42
|
|
dw Function101aed
|
|
dw Function101ab4
|
|
dw Function101475
|
|
dw Function101c2b
|
|
dw Function1014f4
|
|
dw Function101cdf
|
|
dw Function1014e2
|
|
dw Function1014e2
|
|
dw Function101d1e
|
|
dw Function101d2a
|
|
dw Function101d2a
|
|
dw Function101507
|
|
dw Function10156d
|
|
dw Function101544
|
|
dw Function10158a
|
|
dw Function101c42
|
|
dw Function101c50
|
|
dw Function1014ce
|
|
dw Function101cf6
|
|
dw Function101826
|
|
dw Function1017e4
|
|
dw Function1017f1
|
|
dw Function1018a8
|
|
dw Function1018d6
|
|
dw Function1017e4
|
|
dw Function1017f1
|
|
dw Function1018e1
|
|
dw Function1015df
|
|
dw Function10167d
|
|
dw Function10168a
|
|
dw Function10162a
|
|
dw Function1015be
|
|
dw Function10167d
|
|
dw Function10168a
|
|
dw Function10161f
|
|
dw Function10159d
|
|
dw Function10167d
|
|
dw Function10168a
|
|
dw Function101600
|
|
dw Function101d03
|
|
dw Function101d6b
|
|
dw Function10159d
|
|
dw Function1014ce
|
|
dw Function10168e
|
|
dw Function101600
|
|
dw Function101913
|
|
dw Function10194b
|
|
dw Function10196d
|
|
dw Function1017e4
|
|
dw Function1017f5
|
|
dw Function1019ab
|
|
dw Function101537
|
|
dw Function101571
|
|
dw Function101c92
|
|
dw Function10152a
|
|
dw Function101571
|
|
dw Function101a4f
|
|
dw Function101cbc
|
|
dw Function101c62
|
|
dw Function101537
|
|
dw Function101571
|
|
dw Function101c92
|
|
dw Function10152a
|
|
dw Function101571
|
|
dw Function101ca0
|
|
dw Function101475
|
|
dw Function101cbc
|
|
; 10138b
|
|
|
|
Function10138b: ; 10138b
|
|
callba Function8adcc
|
|
ld c, $0
|
|
jr c, .asm_101396
|
|
inc c
|
|
|
|
.asm_101396
|
|
sla c
|
|
ld a, [wcd2f]
|
|
and a
|
|
jr z, .asm_10139f
|
|
inc c
|
|
|
|
.asm_10139f
|
|
sla c
|
|
ld a, [wcd21]
|
|
cp $1
|
|
jr z, .asm_1013a9
|
|
inc c
|
|
|
|
.asm_1013a9
|
|
ret
|
|
; 1013aa
|
|
|
|
Function1013aa: ; 1013aa
|
|
call ClearBGPalettes
|
|
call Call_ExitMenu
|
|
call Function2bae
|
|
callba Function106464
|
|
call UpdateSprites
|
|
call Function2b5c
|
|
ret
|
|
; 1013c0
|
|
|
|
Function1013c0: ; 1013c0
|
|
callba Function8000
|
|
callba Function106462
|
|
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, $0040
|
|
ld bc, $0040
|
|
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, $01e0
|
|
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, $01e0
|
|
call FarCopyWRAM
|
|
ret
|
|
; 10163f
|
|
|
|
Function10163f: ; 10163f
|
|
ld hl, wc608
|
|
ld bc, $01e0
|
|
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, $0054
|
|
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, $09, $13, "trade_crystal"
|
|
.end db 0
|
|
|
|
Unknown_101882:
|
|
db .end - @
|
|
db $19, $67, $10, $01, "free__crystal"
|
|
.end db 0
|
|
|
|
Unknown_101895:
|
|
db .end - @
|
|
db $19, $67, $10, $01, "limit_crystal"
|
|
.end db 0
|
|
; 1018a8
|
|
|
|
|
|
SECTION "bank40_3", ROMX, 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, $000a
|
|
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 Function8000
|
|
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, $0003
|
|
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 Function8000
|
|
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, wd26b
|
|
ld de, wc656
|
|
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 SendOutFirstMons
|
|
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, $0003
|
|
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, [MenuSelection2]
|
|
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, [MenuSelection2]
|
|
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, [MenuSelection2]
|
|
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, $0c, $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, $0008
|
|
call CopyBytes
|
|
pop de
|
|
ret
|
|
; 10209c
|
|
|
|
Function10209c: ; 10209c
|
|
ld a, $ff
|
|
ld hl, wdc42
|
|
ld bc, $0008
|
|
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, $0025
|
|
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, $0025
|
|
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, $000b
|
|
call CopyBytes
|
|
ret
|
|
; 10218d
|
|
|
|
Function10218d: ; 10218d
|
|
ld hl, wdc00
|
|
ld de, wc608
|
|
ld bc, $0026
|
|
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, $000a
|
|
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, $0008
|
|
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 [MenuSelection2], 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 Functione039
|
|
ld hl, PartyCount
|
|
inc [hl]
|
|
ld a, [hli]
|
|
ld c, a
|
|
ld b, $0
|
|
add hl, bc
|
|
ld [hl], $ff
|
|
ld a, [PartyCount]
|
|
ld [wcd4c], a
|
|
call Function102c07
|
|
call Function102d48
|
|
call Function102b32
|
|
call Function102f50
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $14
|
|
ld [wcd4e], a
|
|
ld a, $0
|
|
ld [wcd4f], a
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 102416
|
|
|
|
Function102416: ; 102416
|
|
ld a, $aa
|
|
call Function1028e8
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 102423
|
|
|
|
Function102423: ; 102423
|
|
call Function102921
|
|
ret nc
|
|
callba Function14a58
|
|
callba MobileFn_1060af
|
|
callba BackupMobileEventIndex
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 10244b
|
|
|
|
Function10244b: ; 10244b
|
|
call Function102f32
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $19
|
|
ld [wcd4e], a
|
|
ld a, $0
|
|
ld [wcd4f], a
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 10246a
|
|
|
|
Function10246a: ; 10246a
|
|
call Function102d9a
|
|
ld hl, wcd29
|
|
set 3, [hl]
|
|
call Function102e07
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $2a
|
|
ld [wcd49], a
|
|
ret
|
|
; 102480
|
|
|
|
Function102480: ; 102480
|
|
ld c, $32
|
|
call DelayFrames
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 10248d
|
|
|
|
Function10248d: ; 10248d
|
|
ld a, [wcd49]
|
|
set 7, a
|
|
ld [wcd49], a
|
|
ret
|
|
; 102496
|
|
|
|
Function102496: ; 102496
|
|
ld hl, wcd4e
|
|
dec [hl]
|
|
ret nz
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 1024a8
|
|
|
|
Function1024a8: ; 1024a8
|
|
callba Function1009f3
|
|
ret c
|
|
|
|
Function1024af: ; 1024af
|
|
call GetJoypad
|
|
ld a, [wcd4a]
|
|
ld hl, Jumptable_1024ba
|
|
rst JumpTable
|
|
ret
|
|
; 1024ba
|
|
|
|
Jumptable_1024ba: ; 1024ba
|
|
dw Function1024c0
|
|
dw Function1024cb
|
|
dw Function1024de
|
|
; 1024c0
|
|
|
|
Function1024c0: ; 1024c0
|
|
ld hl, wcd4e
|
|
inc [hl]
|
|
ld a, [wcd4a]
|
|
inc a
|
|
ld [wcd4a], a
|
|
|
|
Function1024cb: ; 1024cb
|
|
ld hl, wcd4e
|
|
dec [hl]
|
|
ret nz
|
|
ld a, [wcd4f]
|
|
inc a
|
|
ld [wcd4e], a
|
|
ld a, [wcd4a]
|
|
inc a
|
|
ld [wcd4a], a
|
|
|
|
Function1024de: ; 1024de
|
|
ld hl, wcd4e
|
|
dec [hl]
|
|
jr z, .asm_1024e9
|
|
ld a, [hJoyPressed]
|
|
and A_BUTTON | B_BUTTON
|
|
ret z
|
|
|
|
.asm_1024e9
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 1024f6
|
|
|
|
Function1024f6: ; 1024f6
|
|
call Function1bee
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, [wcd4c]
|
|
call Function1028e8
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 10250c
|
|
|
|
Function10250c: ; 10250c
|
|
call Function1028fc
|
|
ret nc
|
|
ld a, [wcd51]
|
|
cp $f
|
|
jr z, .asm_10254b
|
|
and a
|
|
jr z, .asm_102572
|
|
cp $aa
|
|
jr z, .asm_102572
|
|
cp $7
|
|
jr nc, .asm_102572
|
|
ld [wcd4d], a
|
|
dec a
|
|
ld [wd003], a
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld [wd002], a
|
|
call Function102b9c
|
|
call Function102bdc
|
|
jr c, .asm_10256d
|
|
callba Functionfb5dd
|
|
jr c, .asm_102568
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $e
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_10254b
|
|
call Function103021
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
ld a, $1e
|
|
ld [wcd4e], a
|
|
ld a, $1e
|
|
ld [wcd4f], a
|
|
ld a, $29
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_102568
|
|
call Function102ff5
|
|
jr .asm_102577
|
|
|
|
.asm_10256d
|
|
call Function102f85
|
|
jr .asm_102577
|
|
|
|
.asm_102572
|
|
call Function102fce
|
|
jr .asm_102577
|
|
|
|
.asm_102577
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
ld a, $1e
|
|
ld [wcd4e], a
|
|
ld a, $3c
|
|
ld [wcd4f], a
|
|
ld a, $9
|
|
ld [wcd49], a
|
|
ret
|
|
; 102591
|
|
|
|
Function102591: ; 102591
|
|
call Function102ee7
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
ld a, $1e
|
|
ld [wcd4e], a
|
|
ld a, $3c
|
|
ld [wcd4f], a
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 1025b0
|
|
|
|
Function1025b0: ; 1025b0
|
|
ld a, $9
|
|
call Function1028e8
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 1025bd
|
|
|
|
Function1025bd: ; 1025bd
|
|
call Function1028fc
|
|
ret nc
|
|
ld a, $4
|
|
ld [wcd49], a
|
|
ret
|
|
; 1025c7
|
|
|
|
Function1025c7: ; 1025c7
|
|
call Function102f6d
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, $f
|
|
call Function1028e8
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 1025dc
|
|
|
|
Function1025dc: ; 1025dc
|
|
call Function1028fc
|
|
ret nc
|
|
ld a, [wcd49]
|
|
set 7, a
|
|
ld [wcd49], a
|
|
ret
|
|
; 1025e9
|
|
|
|
Function1025e9: ; 1025e9
|
|
nop
|
|
ld hl, wcd4b
|
|
set 6, [hl]
|
|
call Function102b4e
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ret
|
|
; 1025ff
|
|
|
|
Function1025ff: ; 1025ff
|
|
ld hl, wcd4b
|
|
set 2, [hl]
|
|
callba Function1009f3
|
|
ret c
|
|
callba Function241ba
|
|
ld a, [wcfa8]
|
|
and c
|
|
ret z
|
|
bit 0, c
|
|
jr nz, .asm_102623
|
|
bit 6, c
|
|
jr nz, .asm_10262e
|
|
bit 7, c
|
|
jr nz, .asm_102646
|
|
ret
|
|
|
|
.asm_102623
|
|
ld hl, wcd4b
|
|
set 3, [hl]
|
|
ld a, $27
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_10262e
|
|
ld a, [MenuSelection2]
|
|
ld b, a
|
|
ld a, [OTPartyCount]
|
|
cp b
|
|
ret nz
|
|
call Function1bf7
|
|
ld a, [PartyCount]
|
|
ld [MenuSelection2], a
|
|
ld a, $1d
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_102646
|
|
ld a, [MenuSelection2]
|
|
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 Function241ba
|
|
ld a, [wcfa8]
|
|
and c
|
|
ret z
|
|
bit 0, c
|
|
jr nz, .asm_10268f
|
|
bit 7, c
|
|
jr nz, .asm_10269a
|
|
bit 6, c
|
|
jr nz, .asm_1026a8
|
|
ret
|
|
|
|
.asm_10268f
|
|
ld hl, wcd4b
|
|
set 3, [hl]
|
|
ld a, $21
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_10269a
|
|
ld a, [MenuSelection2]
|
|
dec a
|
|
ret nz
|
|
call Function1bf7
|
|
ld a, $1f
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_1026a8
|
|
ld a, [MenuSelection2]
|
|
ld b, a
|
|
ld a, [PartyCount]
|
|
cp b
|
|
ret nz
|
|
ld a, $23
|
|
ld [wcd49], a
|
|
ret
|
|
; 1026b7
|
|
|
|
Function1026b7: ; 1026b7
|
|
ld hl, wcd4b
|
|
set 6, [hl]
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
|
|
Function1026c8: ; 1026c8
|
|
call GetJoypad
|
|
callba Function1009f3
|
|
ret c
|
|
ld a, [wcd4a]
|
|
ld hl, Jumptable_1026da
|
|
rst JumpTable
|
|
ret
|
|
; 1026da
|
|
|
|
Jumptable_1026da: ; 1026da
|
|
dw Function1026de
|
|
dw Function1026f3
|
|
; 1026de
|
|
|
|
Function1026de: ; 1026de
|
|
call Function1bf7
|
|
hlcoord 9, 17
|
|
ld [hl], $ed
|
|
ld a, [wcd4a]
|
|
inc a
|
|
ld [wcd4a], a
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ret
|
|
; 1026f3
|
|
|
|
Function1026f3: ; 1026f3
|
|
ld a, [hJoyPressed]
|
|
bit 0, a
|
|
jr nz, .asm_102723
|
|
bit 6, a
|
|
jr nz, .asm_102712
|
|
bit 7, a
|
|
jr nz, .asm_102702
|
|
ret
|
|
|
|
.asm_102702
|
|
hlcoord 9, 17
|
|
ld [hl], $7f
|
|
ld a, $1
|
|
ld [MenuSelection2], a
|
|
ld a, $1d
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_102712
|
|
hlcoord 9, 17
|
|
ld [hl], $7f
|
|
ld a, [OTPartyCount]
|
|
ld [MenuSelection2], a
|
|
ld a, $1f
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_102723
|
|
hlcoord 9, 17
|
|
ld [hl], $ec
|
|
ld hl, wcd4b
|
|
set 3, [hl]
|
|
ld hl, wcd4b
|
|
set 2, [hl]
|
|
ld a, $5
|
|
ld [wcd49], a
|
|
ret
|
|
; 102738
|
|
|
|
Function102738: ; 102738
|
|
ld hl, wcd4b
|
|
set 6, [hl]
|
|
call Function1bee
|
|
call Function1027eb
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld a, [wcd49]
|
|
inc a
|
|
ld [wcd49], a
|
|
ld a, $0
|
|
ld [wcd4a], a
|
|
|
|
Function102754: ; 102754
|
|
call GetJoypad
|
|
callba Function1009f3
|
|
ret c
|
|
ld a, [wcd4a]
|
|
ld hl, Jumptable_102766
|
|
rst JumpTable
|
|
ret
|
|
; 102766
|
|
|
|
Jumptable_102766: ; 102766
|
|
dw Function102770
|
|
dw Function102775
|
|
dw Function10278c
|
|
dw Function1027a0
|
|
dw Function1027b7
|
|
; 102770
|
|
|
|
Function102770: ; 102770
|
|
ld a, $1
|
|
ld [wcd4a], a
|
|
|
|
Function102775: ; 102775
|
|
hlcoord 1, 16
|
|
ld [hl], $ed
|
|
hlcoord 11, 16
|
|
ld [hl], $7f
|
|
ld hl, wcd4b
|
|
set 2, [hl]
|
|
ld a, [wcd4a]
|
|
inc a
|
|
ld [wcd4a], a
|
|
ret
|
|
; 10278c
|
|
|
|
Function10278c: ; 10278c
|
|
ld a, [hJoyPressed]
|
|
bit 0, a
|
|
jr nz, asm_1027c6
|
|
bit 1, a
|
|
jr nz, asm_1027e2
|
|
bit 4, a
|
|
jr nz, .asm_10279b
|
|
ret
|
|
|
|
.asm_10279b
|
|
ld a, $3
|
|
ld [wcd4a], a
|
|
|
|
Function1027a0: ; 1027a0
|
|
hlcoord 1, 16
|
|
ld [hl], $7f
|
|
hlcoord 11, 16
|
|
ld [hl], $ed
|
|
ld hl, wcd4b
|
|
set 2, [hl]
|
|
ld a, [wcd4a]
|
|
inc a
|
|
ld [wcd4a], a
|
|
ret
|
|
|
|
Function1027b7: ; 1027b7
|
|
ld a, [hJoyPressed]
|
|
bit 0, a
|
|
jr nz, asm_1027d1
|
|
bit 1, a
|
|
jr nz, asm_1027e2
|
|
bit 5, a
|
|
jr nz, Function102770
|
|
ret
|
|
|
|
asm_1027c6:
|
|
ld hl, wcd4b
|
|
set 3, [hl]
|
|
ld a, $25
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
asm_1027d1:
|
|
ld hl, wcd4b
|
|
set 3, [hl]
|
|
ld a, [MenuSelection2]
|
|
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 Function16d61d
|
|
ld de, String_102804
|
|
hlcoord 2, 16
|
|
call PlaceString
|
|
ret
|
|
; 102804
|
|
|
|
String_102804: ; 102804
|
|
db "STATS TRADE@"
|
|
; 102814
|
|
|
|
Function102814: ; 102814
|
|
ld a, [MenuSelection2]
|
|
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 [MenuSelection2], 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 [MenuSelection2], 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 Function16d61d
|
|
ld de, String_102a26
|
|
hlcoord 12, 8
|
|
call PlaceString
|
|
ld hl, wcd4b
|
|
set 1, [hl]
|
|
ld de, Unknown_102a33
|
|
call InitMenu3
|
|
ld a, [wcd4a]
|
|
inc a
|
|
ld [wcd4a], a
|
|
xor a
|
|
ret
|
|
; 1029fe
|
|
|
|
Function1029fe: ; 1029fe
|
|
callba Function1009f3
|
|
ret c
|
|
callba Function241ba
|
|
ld a, c
|
|
ld hl, wcfa8
|
|
and [hl]
|
|
ret z
|
|
push af
|
|
call ExitMenu
|
|
pop af
|
|
ld a, [MenuSelection2]
|
|
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
|
|
|
|
Unknown_102a33:
|
|
db $08, $0b, $02, $01, $80, $00, $20, $01
|
|
|
|
Function102a3b: ; 102a3b
|
|
ld a, [wcd30]
|
|
ld [wc74e], a
|
|
ld hl, PlayerName
|
|
ld de, wc6e7
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld c, a
|
|
ld b, $0
|
|
ld hl, PartySpecies
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wc6d0], a
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld hl, PartyMonOT
|
|
call SkipNames
|
|
ld de, wc6f2
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld hl, PartyMon1ID
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wc6ff], a
|
|
ld a, [hl]
|
|
ld [wc700], a
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld hl, PartyMon1DVs
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wc6fd], a
|
|
ld a, [hl]
|
|
ld [wc6fe], a
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld hl, PartyMon1Species
|
|
call GetPartyLocation
|
|
ld b, h
|
|
ld c, l
|
|
callba GetCaughtGender
|
|
ld a, c
|
|
ld [wc701], a
|
|
ld hl, wd26b
|
|
ld de, wc719
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ld a, [wcd4d]
|
|
dec a
|
|
ld c, a
|
|
ld b, $0
|
|
ld hl, OTPartySpecies
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wc702], a
|
|
ld a, [wcd4d]
|
|
dec a
|
|
ld hl, OTPartyMonOT
|
|
call SkipNames
|
|
ld de, wc724
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ld a, [wcd4d]
|
|
dec a
|
|
ld hl, OTPartyMon1ID
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wEnemyWrapCount], a
|
|
ld a, [hl]
|
|
ld [wPlayerCharging], a
|
|
ld a, [wcd4d]
|
|
dec a
|
|
ld hl, OTPartyMon1DVs
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wEnemyTrappingMove], a
|
|
ld a, [hl]
|
|
ld [wPlayerWrapCount], a
|
|
ld a, [wcd4d]
|
|
dec a
|
|
ld hl, OTPartyMon1Species
|
|
call GetPartyLocation
|
|
ld b, h
|
|
ld c, l
|
|
callba GetCaughtGender
|
|
ld a, c
|
|
ld [wEnemyCharging], a
|
|
ret
|
|
; 102b12
|
|
|
|
Function102b12: ; 102b12
|
|
ld c, $64
|
|
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 [wd1e9], a
|
|
callba EvolvePokemon
|
|
call Function102d9a
|
|
call Function102dd3
|
|
call Function102dec
|
|
ret
|
|
; 102b4e
|
|
|
|
Function102b4e: ; 102b4e
|
|
ld a, $1
|
|
ld [MonType], a
|
|
ld a, [MenuSelection2]
|
|
push af
|
|
ld de, Unknown_102b73
|
|
call InitMenu3
|
|
pop af
|
|
ld [MenuSelection2], a
|
|
ld a, [OTPartyCount]
|
|
ld [wcfa3], a
|
|
ret
|
|
; 102b68
|
|
|
|
Function102b68: ; 102b68 ; unreferenced
|
|
xor a
|
|
ld hl, wcf71
|
|
ld bc, $0010
|
|
call ByteFill
|
|
ret
|
|
; 102b73
|
|
|
|
Unknown_102b73:
|
|
db $09, $06, $ff, $01, $a0, $00, $10, $c1
|
|
|
|
Function102b7b: ; 102b7b
|
|
xor a
|
|
ld [MonType], a
|
|
ld a, [MenuSelection2]
|
|
push af
|
|
ld de, Unknown_102b94
|
|
call InitMenu3
|
|
pop af
|
|
ld [MenuSelection2], a
|
|
ld a, [PartyCount]
|
|
ld [wcfa3], a
|
|
ret
|
|
; 102b94
|
|
|
|
Unknown_102b94:
|
|
db $01, $06, $ff, $01, $a0, $00, $10, $c1
|
|
|
|
Function102b9c: ; 102b9c
|
|
ld a, [wcd4d]
|
|
dec a
|
|
hlcoord 6, 9
|
|
ld bc, $0014
|
|
call AddNTimes
|
|
ld [hl], $ec
|
|
ret
|
|
; 102bac
|
|
|
|
Function102bac: ; 102bac
|
|
ld a, [MenuSelection2]
|
|
dec a
|
|
ld [CurPartyMon], a
|
|
call LowVolume
|
|
call ClearSprites
|
|
callba Function4dc8f
|
|
ld a, [CurPartyMon]
|
|
inc a
|
|
ld [MenuSelection2], 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, $0001
|
|
call Function102c71
|
|
ret
|
|
; 102c21
|
|
|
|
Function102c21: ; 102c21
|
|
ld hl, PartyMonNicknames
|
|
ld de, OTPartyMonNicknames
|
|
ld bc, $000b
|
|
call Function102c71
|
|
ret
|
|
; 102c2e
|
|
|
|
Function102c2e: ; 102c2e
|
|
ld hl, PartyMonOT
|
|
ld de, OTPartyMonOT
|
|
ld bc, $000b
|
|
call Function102c71
|
|
ret
|
|
; 102c3b
|
|
|
|
Function102c3b: ; 102c3b
|
|
ld hl, PartyMon1
|
|
ld de, OTPartyMon1
|
|
ld bc, $0030
|
|
call Function102c71
|
|
ret
|
|
; 102c48
|
|
|
|
Function102c48: ; 102c48
|
|
callba Function10165a
|
|
ld a, $0
|
|
call GetSRAMBank
|
|
ld hl, $a600
|
|
ld de, wc608
|
|
ld bc, $002f
|
|
call Function102c71
|
|
call CloseSRAM
|
|
ld hl, wc608
|
|
ld de, wda00
|
|
ld bc, $01e0
|
|
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, $011a
|
|
call Function102d3e
|
|
call Function102cee
|
|
ld a, $0
|
|
ld hl, wc608
|
|
ld de, $a600
|
|
ld bc, $011a
|
|
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, $011a
|
|
call FarCopyWRAM
|
|
call Function102cee
|
|
ld a, $5
|
|
ld hl, wc608
|
|
ld de, wda00
|
|
ld bc, $011a
|
|
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, $002f
|
|
call CopyBytes
|
|
ld a, [wJumptableIndex]
|
|
ld c, a
|
|
ld a, $6
|
|
sub c
|
|
ret z
|
|
ld bc, $002f
|
|
ld hl, 0
|
|
call AddNTimes
|
|
push hl
|
|
ld a, [wJumptableIndex]
|
|
dec a
|
|
call Function102d34
|
|
ld d, h
|
|
ld e, l
|
|
ld hl, $002f
|
|
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, $002f
|
|
call CopyBytes
|
|
ret
|
|
; 102d34
|
|
|
|
Function102d34: ; 102d34
|
|
ld hl, wc608
|
|
ld bc, $002f
|
|
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, [wdef4]
|
|
and a
|
|
jr nz, .asm_102d98
|
|
ld a, [UnownLetter]
|
|
ld [wdef4], 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 Function16d61d
|
|
ret
|
|
; 102dd3
|
|
|
|
Function102dd3: ; 102dd3
|
|
call DisableLCD
|
|
ld de, GFX_1032a2
|
|
ld hl, VTiles0
|
|
lb bc, BANK(GFX_1032a2), 4
|
|
call Get2bpp
|
|
callba Function16d421
|
|
call EnableLCD
|
|
ret
|
|
; 102dec
|
|
|
|
Function102dec: ; 102dec
|
|
ld hl, Unknown_1032e2
|
|
ld de, Unkn2Pals
|
|
ld bc, $0020
|
|
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 Function16d61d
|
|
|
|
.asm_102e28
|
|
ld de, String_102e32
|
|
hlcoord 4, 11
|
|
call PlaceString
|
|
ret
|
|
; 102e32
|
|
|
|
String_102e32: ; 102e32
|
|
db "Waiting...!@"
|
|
; 102e3e
|
|
|
|
Function102e3e: ; 102e3e
|
|
ld de, String_102e48
|
|
hlcoord 10, 17
|
|
call PlaceString
|
|
ret
|
|
; 102e48
|
|
|
|
String_102e48: ; 102e48
|
|
db "CANCEL@"
|
|
; 102e4f
|
|
|
|
Function102e4f: ; 102e4f
|
|
callba Function16d42e
|
|
callba Function49797
|
|
ld de, PlayerName
|
|
hlcoord 4, 0
|
|
call PlaceString
|
|
ld a, $14
|
|
ld [bc], a
|
|
ld de, wd26b
|
|
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, $0014
|
|
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, $000b
|
|
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 $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $01, $00, $00, $00, $00, $00, $00, $00
|
|
db $02, $01, $00, $00, $00, $00, $00, $00
|
|
db $03, $02, $01, $00, $00, $00, $00, $00
|
|
db $04, $03, $02, $01, $00, $00, $00, $00
|
|
db $04, $04, $03, $02, $01, $00, $00, $00
|
|
db $04, $04, $04, $03, $02, $01, $00, $00
|
|
db $04, $04, $04, $04, $03, $02, $01, $00
|
|
db $04, $04, $04, $04, $04, $03, $02, $01
|
|
db $04, $04, $04, $04, $04, $04, $03, $02
|
|
db $04, $04, $04, $04, $04, $04, $04, $03
|
|
db $04, $04, $04, $04, $04, $04, $04, $04
|
|
db $04, $04, $04, $04, $04, $04, $04, $04
|
|
db $04, $04, $04, $04, $04, $04, $04, $04
|
|
db $04, $04, $04, $04, $04, $04, $04, $04
|
|
db $04, $04, $04, $04, $04, $04, $04, $04
|
|
db $04, $04, $04, $04, $04, $04, $04, $04
|
|
db $04, $04, $04, $04, $04, $04, $04, $04
|
|
db $04, $04, $04, $04, $04, $04, $04, $04
|
|
db $03, $04, $04, $04, $04, $04, $04, $04
|
|
db $02, $03, $04, $04, $04, $04, $04, $04
|
|
db $01, $02, $03, $04, $04, $04, $04, $04
|
|
db $00, $01, $02, $03, $04, $04, $04, $04
|
|
db $00, $00, $01, $02, $03, $04, $04, $04
|
|
db $00, $00, $00, $01, $02, $03, $04, $04
|
|
db $00, $00, $00, $00, $01, $02, $03, $04
|
|
db $00, $00, $00, $00, $00, $01, $02, $03
|
|
db $00, $00, $00, $00, $00, $00, $01, $02
|
|
db $00, $00, $00, $00, $00, $00, $00, $01
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $00, $00, $00, $00, $00, $00, $00, $00
|
|
; 10327a
|
|
|
|
Unknown_10327a: ; 10327a
|
|
db $00, $00, $00, $00
|
|
db $00, $00, $01, $00
|
|
db $00, $00, $02, $00
|
|
db $00, $00, $03, $00
|
|
db $00, $00, $01, $01
|
|
db $00, $00, $00, $00
|
|
db $00, $00, $01, $02
|
|
db $00, $00, $02, $02
|
|
db $00, $00, $03, $02
|
|
db $00, $00, $01, $03
|
|
|
|
GFX_1032a2:
|
|
INCBIN "gfx/unknown/1032a2.2bpp"
|
|
|
|
Unknown_1032e2:
|
|
db $00, $00, $ff, $1f
|
|
db $f4, $1b, $8d, $42
|
|
db $00, $00, $67, $45
|
|
db $00, $00, $00, $00
|
|
db $00, $00, $1f, $13
|
|
db $99, $01, $ff, $10
|
|
db $00, $00, $19, $00
|
|
db $00, $00, $00, $00
|
|
; 103302
|
|
|
|
Function103302: ; 103302
|
|
call Function103309
|
|
call Function103362
|
|
ret
|
|
; 103309
|
|
|
|
Function103309: ; 103309
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
ld hl, Buffer1
|
|
ld bc, $000a
|
|
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, $0008
|
|
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, $0001
|
|
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, $0001
|
|
call Function103487
|
|
ld bc, $0008
|
|
call Function10350f
|
|
ld a, [Buffer1]
|
|
and e
|
|
ld bc, $0002
|
|
jr z, .asm_10347d
|
|
ld bc, $0004
|
|
|
|
.asm_10347d
|
|
call Function10350f
|
|
ld bc, $000b
|
|
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, $0006
|
|
call Function10350f
|
|
hlcoord 1, 16
|
|
call PlaceString
|
|
ret
|
|
; 1034a7
|
|
|
|
Function1034a7: ; 1034a7
|
|
ld a, [wd1f1]
|
|
ld [wd1f2], a
|
|
ld bc, $000a
|
|
call Function1034f7
|
|
ld [hl], $7f
|
|
ld bc, $000a
|
|
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, $0009
|
|
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, $07, $07
|
|
dw .this
|
|
.this
|
|
db 4, 2, 1, 0, 3
|
|
|
|
Unknown_1035f3: ; 1035f3
|
|
dwcoord 0, 7
|
|
db $12, $06, $09
|
|
dw .this
|
|
.this
|
|
db 3, 2, 1, 3
|
|
|
|
Unknown_1035fe: ; 1035fe
|
|
dwcoord 0, 9
|
|
db $12, $04, $0b
|
|
dw .this
|
|
.this
|
|
db 2, 0, 3
|
|
|
|
Unknown_103608: ; 103608
|
|
dwcoord 0, 9
|
|
db $12, $04, $0b
|
|
dw .this
|
|
.this
|
|
db 2, 2, 3
|
|
; 103612
|
|
|
|
AskMobileOrCable: ; 103612
|
|
ld hl, MenuDataHeader_103640
|
|
call LoadMenuDataHeader
|
|
ld a, [wdc40]
|
|
and $f
|
|
jr z, .skip_load
|
|
ld [wMenuCursorBuffer], a
|
|
|
|
.skip_load
|
|
call InterpretMenu2
|
|
call WriteBackup
|
|
jr c, .pressed_b
|
|
ld a, [MenuSelection2]
|
|
ld [ScriptVar], a
|
|
ld c, a
|
|
ld a, [wdc40]
|
|
and $f0
|
|
or c
|
|
ld [wdc40], a
|
|
ret
|
|
|
|
.pressed_b
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 103640
|
|
|
|
MenuDataHeader_103640: ; 103640
|
|
db $40 ; flags
|
|
db 6, 13 ; start coords
|
|
db 11, 19 ; end coords
|
|
dw MenuData2_103648
|
|
db 1 ; default option
|
|
|
|
MenuData2_103648: ; 103648
|
|
db $80 ; flags
|
|
db 2
|
|
db "モバイル@"
|
|
db "ケーブル@"
|
|
; 103654
|
|
|
|
Function103654: ; 103654
|
|
callba Function10632f
|
|
bit 7, c
|
|
jr nz, .asm_103666
|
|
ld hl, wcd2a
|
|
res 5, [hl]
|
|
ld c, $2
|
|
ret
|
|
|
|
.asm_103666
|
|
ld hl, wcd2a
|
|
set 5, [hl]
|
|
ld c, $1
|
|
ret
|
|
; 10366e
|
|
|
|
Mobile_SelectThreeMons: ; 10366e
|
|
callba Function10632f
|
|
bit 7, c
|
|
jr z, .asm_10369b
|
|
ld hl, UnknownText_0x10375d
|
|
call PrintText
|
|
call YesNoBox
|
|
jr c, .asm_103696
|
|
callba Function8b1e1
|
|
jr nc, .asm_103690
|
|
call JoyWaitAorB
|
|
jr .asm_103696
|
|
|
|
.asm_103690
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_103696
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_10369b
|
|
ld hl, wdc40
|
|
bit 7, [hl]
|
|
set 7, [hl]
|
|
jr nz, .asm_1036b5
|
|
ld hl, UnknownText_0x103762
|
|
call PrintText
|
|
call YesNoBox
|
|
jr c, .asm_1036b5
|
|
call Function1036f9
|
|
call JoyWaitAorB
|
|
|
|
.asm_1036b5
|
|
call Function103700
|
|
jr c, .asm_1036f4
|
|
ld hl, MenuDataHeader_103747
|
|
call LoadMenuDataHeader
|
|
call InterpretMenu2
|
|
call ExitMenu
|
|
jr c, .asm_1036f4
|
|
ld a, [MenuSelection2]
|
|
cp $1
|
|
jr z, .asm_1036d9
|
|
cp $2
|
|
jr z, .asm_1036f4
|
|
cp $3
|
|
jr z, .asm_1036ec
|
|
jr .asm_1036b5
|
|
|
|
.asm_1036d9
|
|
callba Function8b1e1
|
|
jr nc, .asm_1036e6
|
|
call JoyWaitAorB
|
|
jr .asm_1036f4
|
|
|
|
.asm_1036e6
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_1036ec
|
|
call Function1036f9
|
|
call JoyWaitAorB
|
|
jr .asm_1036b5
|
|
|
|
.asm_1036f4
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 1036f9
|
|
|
|
Function1036f9: ; 1036f9
|
|
ld hl, UnknownText_0x103767
|
|
call PrintText
|
|
ret
|
|
; 103700
|
|
|
|
Function103700: ; 103700
|
|
ld c, $a
|
|
ld hl, SwarmFlags
|
|
bit 4, [hl]
|
|
jr z, .asm_10370f
|
|
callba Function1008a6
|
|
|
|
.asm_10370f
|
|
ld a, c
|
|
ld [StringBuffer2], a
|
|
ld a, [StringBuffer2]
|
|
cp $5
|
|
jr nc, .asm_103724
|
|
cp $2
|
|
jr nc, .asm_10372c
|
|
cp $1
|
|
jr nc, .asm_103734
|
|
jr .asm_10373c
|
|
|
|
.asm_103724
|
|
ld hl, UnknownText_0x10376c
|
|
call PrintText
|
|
and a
|
|
ret
|
|
|
|
.asm_10372c
|
|
ld hl, UnknownText_0x103771
|
|
call PrintText
|
|
and a
|
|
ret
|
|
|
|
.asm_103734
|
|
ld hl, UnknownText_0x103776
|
|
call PrintText
|
|
and a
|
|
ret
|
|
|
|
.asm_10373c
|
|
ld hl, UnknownText_0x10377b
|
|
call PrintText
|
|
call JoyWaitAorB
|
|
scf
|
|
ret
|
|
; 103747
|
|
|
|
MenuDataHeader_103747: ; 103747
|
|
db $40 ; flags
|
|
db 5, 13 ; start coords
|
|
db 11, 19 ; end coords
|
|
dw MenuData2_10374f
|
|
db 1 ; default option
|
|
|
|
MenuData2_10374f: ; 10374f
|
|
db $c0 ; flags
|
|
db 3
|
|
db "はい@"
|
|
db "やめる@"
|
|
db "せつめい@"
|
|
; 10375d
|
|
|
|
UnknownText_0x10375d: ; 0x10375d
|
|
text_jump UnknownText_0x1c422a
|
|
db "@"
|
|
; 0x103762
|
|
UnknownText_0x103762: ; 0x103762
|
|
text_jump UnknownText_0x1c4275
|
|
db "@"
|
|
; 0x103767
|
|
UnknownText_0x103767: ; 0x103767
|
|
text_jump UnknownText_0x1c4298
|
|
db "@"
|
|
; 0x10376c
|
|
UnknownText_0x10376c: ; 0x10376c
|
|
text_jump UnknownText_0x1c439c
|
|
db "@"
|
|
; 0x103771
|
|
UnknownText_0x103771: ; 0x103771
|
|
text_jump UnknownText_0x1c43dc
|
|
db "@"
|
|
; 0x103776
|
|
UnknownText_0x103776: ; 0x103776
|
|
text_jump UnknownText_0x1c4419
|
|
db "@"
|
|
; 0x10377b
|
|
UnknownText_0x10377b: ; 0x10377b
|
|
text_jump UnknownText_0x1c445a
|
|
db "@"
|
|
; 0x103780
|
|
|
|
Function103780: ; 103780
|
|
ld a, [wd265]
|
|
push af
|
|
call Function10378c
|
|
pop af
|
|
ld [wd265], a
|
|
ret
|
|
; 10378c
|
|
|
|
Function10378c: ; 10378c
|
|
ld c, $0
|
|
ld hl, SwarmFlags
|
|
bit 4, [hl]
|
|
jr nz, .asm_10379c
|
|
ld c, $1
|
|
ld hl, SwarmFlags
|
|
set 4, [hl]
|
|
|
|
.asm_10379c
|
|
push bc
|
|
callba Link_SaveGame
|
|
pop bc
|
|
jr c, .asm_1037b5
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ld a, c
|
|
and a
|
|
ret z
|
|
callba Function1006fd
|
|
ret
|
|
|
|
.asm_1037b5
|
|
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, .asm_1037de
|
|
ld a, [wdc5f]
|
|
and a
|
|
jr z, .asm_1037de
|
|
ld hl, UnknownText_0x1037e6
|
|
call PrintText
|
|
call YesNoBox
|
|
jr c, .asm_1037de
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_1037de
|
|
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, $0003
|
|
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
|