mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2025-01-23 09:16:20 -08:00
c8960dd2c8
Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these.
8085 lines
107 KiB
NASM
8085 lines
107 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 Function222a
|
|
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 [$ffde], a
|
|
ld [hLCDStatCustom], a
|
|
ret
|
|
; 100082
|
|
|
|
Function100082: ; 100082
|
|
xor a
|
|
ld hl, OverworldMap
|
|
ld bc, 1300
|
|
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 [$ffde], a
|
|
ld [hLCDStatCustom], a
|
|
ld a, $1
|
|
ld [$ffc9], a
|
|
ld [$ffe9], a
|
|
ei
|
|
ret
|
|
; 0x1000a4
|
|
|
|
Function1000a4: ; 1000a4
|
|
di
|
|
xor a
|
|
ld [$ffc9], a
|
|
ld [$ffe9], 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 [$ffc9], a
|
|
ld [$ffe9], a
|
|
ei
|
|
ld a, [InLinkBattle]
|
|
push af
|
|
xor a
|
|
ld [InLinkBattle], a
|
|
ld a, $4
|
|
ld [wPartyMon1MenuIconAnim + 5], a
|
|
callba Function11619d
|
|
ld hl, wcd29
|
|
set 6, [hl]
|
|
pop af
|
|
ld [InLinkBattle], 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, $0000
|
|
jr .asm_1001d7
|
|
|
|
.asm_1001b6
|
|
ld a, $d5
|
|
ld de, $0000
|
|
jr .asm_1001d7
|
|
|
|
.asm_1001bd
|
|
ld a, $d6
|
|
ld de, $0000
|
|
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, $0000
|
|
|
|
.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 FadeBlackBGMap
|
|
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 Functiona36
|
|
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 Function3f6d0
|
|
callba Function1500c
|
|
ret
|
|
; 1002dc
|
|
|
|
Function1002dc: ; 1002dc
|
|
ld a, $f8
|
|
ld [$ff9f], a
|
|
callba RunMapSetupScript
|
|
xor a
|
|
ld [$ff9f], a
|
|
call Functione51
|
|
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 Functiona36
|
|
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, wd000
|
|
ld bc, $0054
|
|
ld a, $3
|
|
call FarCopyWRAM
|
|
ret
|
|
; 1003ab
|
|
|
|
Function1003ab: ; 1003ab
|
|
ld hl, wd000
|
|
ld de, wcc60
|
|
ld bc, $0054
|
|
ld a, $3
|
|
call FarCopyWRAM
|
|
ret
|
|
; 1003ba
|
|
|
|
Function1003ba: ; 1003ba
|
|
ld hl, wccb4
|
|
ld de, $d080
|
|
ld bc, $0054
|
|
ld a, $3
|
|
call FarCopyWRAM
|
|
ret
|
|
; 1003c9
|
|
|
|
Function1003c9: ; 1003c9
|
|
ld hl, $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, $0000
|
|
.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 [wcfa9], 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 [wcfa9], 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
|
|
ld bc, $8102
|
|
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
|
|
ld bc, $0102
|
|
ld de, StringBuffer2
|
|
call PrintNum
|
|
ld de, SFX_TWO_PC_BEEPS
|
|
call PlaySFX
|
|
callba Function104061
|
|
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 Function104061
|
|
ld c, $78
|
|
call DelayFrames
|
|
ret
|
|
; 10095a
|
|
|
|
.string_10095a ; 10095a
|
|
db "たいせん しゅうりょう@"
|
|
.string_100966 ; 100966
|
|
db "のこり ふん", $e7, "@"
|
|
; 100970
|
|
|
|
|
|
Function100970: ; 100970
|
|
hlcoord 0, 0
|
|
ld de, wdc00
|
|
call Function1009a5
|
|
hlcoord 0, 0, AttrMap
|
|
ld de, $dd68
|
|
call Function1009a5
|
|
call Function1009d2
|
|
call Function1009ae
|
|
ret
|
|
; 100989
|
|
|
|
Function100989: ; 100989
|
|
ld hl, wdc00
|
|
decoord 0, 0
|
|
call Function1009a5
|
|
call Function1009ae
|
|
callba Function104061
|
|
ld hl, $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, $d800
|
|
decoord 0, 0, AttrMap
|
|
ld c, $14
|
|
ld b, $12
|
|
.asm_1009bf
|
|
push bc
|
|
.asm_1009c0
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
dec c
|
|
jr nz, .asm_1009c0
|
|
ld bc, $000c
|
|
add hl, bc
|
|
pop bc
|
|
dec b
|
|
jr nz, .asm_1009bf
|
|
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, $d800
|
|
ld de, VBGMap0
|
|
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, [InLinkBattle]
|
|
cp $4
|
|
jr nz, .asm_100a2a
|
|
call Function100a87
|
|
call Function100da5
|
|
callba Function3ee27
|
|
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 [wcf88], a
|
|
call Function100e72
|
|
call Function100b45
|
|
callba Function8e85
|
|
call Function100ed4
|
|
ld a, [wcf88]
|
|
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 [wcf88], a
|
|
and a
|
|
ret
|
|
; 100b7a
|
|
|
|
Function100b7a: ; 100b7a
|
|
ld hl, Function1c66
|
|
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, Function2ec8
|
|
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, [wcfa9]
|
|
and a
|
|
jp nz, .asm_100bcb
|
|
ld a, [wd0eb]
|
|
inc a
|
|
ld [wcfa9], a
|
|
jp .asm_100bcb
|
|
|
|
.asm_100c10
|
|
ld a, [wcfa9]
|
|
ld b, a
|
|
ld a, [wd0eb]
|
|
rept 2
|
|
inc a
|
|
endr
|
|
cp b
|
|
jp nz, .asm_100bcb
|
|
ld a, $1
|
|
ld [wcfa9], a
|
|
jp .asm_100bcb
|
|
|
|
.asm_100c25
|
|
ld a, [wcfa9]
|
|
dec a
|
|
ld [CurMoveNum], a
|
|
ld a, $1
|
|
and a
|
|
ret
|
|
|
|
.asm_100c30
|
|
ld a, [wcfa9]
|
|
dec a
|
|
ld [CurMoveNum], a
|
|
ld a, [wcfa9]
|
|
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, [wcfa9]
|
|
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_0x80c5b
|
|
jr .asm_100c6b
|
|
|
|
.asm_100c68
|
|
ld hl, BattleText_0x80c39
|
|
|
|
.asm_100c6b
|
|
call StdBattleTextBox
|
|
call Function30b4
|
|
jp Function100bc2
|
|
; 100c74
|
|
|
|
Function100c74: ; 100c74
|
|
hlcoord 0, 8
|
|
ld b, 8
|
|
ld c, 8
|
|
call TextBox
|
|
ld hl, BattleMonMoves
|
|
ld de, wd25e
|
|
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 Function1bb1
|
|
ld a, [wd0eb]
|
|
inc a
|
|
ld [wcfa3], a
|
|
ld a, [CurMoveNum]
|
|
inc a
|
|
ld [wcfa9], 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, [wcfa9]
|
|
cp b
|
|
jr z, .asm_100d17
|
|
ld [wd0d8], a
|
|
ld a, [$ffa9]
|
|
ld b, a
|
|
bit 1, b
|
|
jr nz, .asm_100d17
|
|
ld a, [wcfa9]
|
|
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 Function1cbb
|
|
call UpdateSprites
|
|
call Function1c89
|
|
call WaitBGMap
|
|
call Function1c66
|
|
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, [InLinkBattle]
|
|
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
|
|
ld a, e
|
|
ld [StringBuffer2 + 1], a
|
|
ld a, d
|
|
ld [StringBuffer2 + 2], a
|
|
xor a
|
|
ld [StringBuffer2 + 4], a
|
|
ld [StringBuffer2 + 5], a
|
|
.asm_100f15
|
|
ld a, [hl]
|
|
cp $ff
|
|
jr z, .asm_100f34
|
|
ld [StringBuffer2 + 3], a
|
|
push hl
|
|
inc hl
|
|
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 h, [hl]
|
|
ld l, a
|
|
call Function100f3d
|
|
pop hl
|
|
ld de, $0007
|
|
add hl, de
|
|
jr .asm_100f15
|
|
|
|
.asm_100f34
|
|
ld a, [StringBuffer2 + 4]
|
|
ld c, a
|
|
ld a, [StringBuffer2 + 5]
|
|
ld b, a
|
|
ret
|
|
; 100f3d
|
|
|
|
Function100f3d: ; 100f3d
|
|
ld a, [StringBuffer2]
|
|
cp $2
|
|
jr z, .asm_100f61
|
|
cp $1
|
|
jr z, .asm_100f77
|
|
cp $3
|
|
jr z, .asm_100f4d
|
|
ret
|
|
|
|
.asm_100f4d
|
|
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
|
|
|
|
.asm_100f61
|
|
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
|
|
|
|
.asm_100f77
|
|
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, .asm_100fb6
|
|
and a
|
|
jr nz, .asm_100fb0
|
|
call CopyBytes
|
|
ret
|
|
|
|
.asm_100fb0
|
|
and $7f
|
|
call FarCopyWRAM
|
|
ret
|
|
|
|
.asm_100fb6
|
|
call GetSRAMBank
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ret
|
|
; 100fc0
|
|
|
|
Unknown_100fc0: ; 100fc0
|
|
dbwww $80, PlayerName, NAME_LENGTH, wd26b
|
|
dbwww $80, PartyCount, 1 + PARTY_LENGTH + 1, OTPartyCount
|
|
dbwww $80, PlayerID, 2, wd276
|
|
dbwww $80, PartyMons, $30 * 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, $a600, $2f * 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, wd84a, 2, NULL
|
|
dbwww $80, PlayerGender, 1, NULL
|
|
dbwww $04, $a603, 8, NULL
|
|
dbwww $04, $a007, $30, NULL
|
|
db -1
|
|
|
|
Unknown_10102c: ; 10102c
|
|
dbwww $80, wd26b, 11, NULL
|
|
dbwww $80, wd276, 2, NULL
|
|
dbwww $80, OTPartyMonNicknames, PKMN_NAME_LENGTH * PARTY_LENGTH, NULL
|
|
dbwww $80, OTPartyMonOT, NAME_LENGTH * PARTY_LENGTH, NULL
|
|
dbwww $80, OTPartyMons, $30 * PARTY_LENGTH, NULL
|
|
db -1
|
|
; 10104f
|
|
|
|
Function101050: ; 101050
|
|
call Function10107d
|
|
ld a, [OTPartyCount]
|
|
rept 2
|
|
ld hl, $c608
|
|
endr
|
|
ld bc, $01b3
|
|
call Function1010de
|
|
ld hl, wc7bb
|
|
ld [hl], e
|
|
inc hl
|
|
ld [hl], d
|
|
ld a, $7
|
|
call GetSRAMBank
|
|
ld hl, $c608
|
|
ld de, $a001
|
|
ld bc, $01b5
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ret
|
|
; 10107d
|
|
|
|
Function10107d: ; 10107d
|
|
xor a
|
|
ld hl, $c608
|
|
ld bc, $01b5
|
|
call ByteFill
|
|
ld hl, wd26b
|
|
ld de, $c608
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ld hl, wd271
|
|
ld a, [hli]
|
|
ld [$c608 + 11], a
|
|
ld a, [hl]
|
|
ld [$c608 + 12], a
|
|
ld hl, OTPartyMonNicknames
|
|
ld de, $c608 + 13
|
|
ld bc, $000b
|
|
call Function1010cd
|
|
ld hl, OTPartyMonOT
|
|
ld de, $c656 + 1
|
|
ld bc, $000b
|
|
call Function1010cd
|
|
ld hl, OTPartyMon1Species
|
|
ld de, $c68a + 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, $c608 % $100
|
|
ld [StringBuffer2], a
|
|
ld a, $c608 / $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, $c608
|
|
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 [InLinkBattle], a
|
|
ret
|
|
; 101220
|
|
|
|
Function101220: ; 101220
|
|
xor a
|
|
ld [InLinkBattle], 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 WhiteBGMap
|
|
call Function1d7d
|
|
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, $c608
|
|
callba Function100edf
|
|
ld de, $c608
|
|
ld a, $5
|
|
ld hl, $d800
|
|
call Function10174c
|
|
ld a, $0
|
|
ld [wcd26], a
|
|
ld a, [wcd25]
|
|
inc a
|
|
ld [wcd25], a
|
|
ret
|
|
; 1015be
|
|
|
|
Function1015be: ; 1015be
|
|
ld de, $c608
|
|
callba Function100eed
|
|
ld de, $c608
|
|
ld a, $5
|
|
ld hl, $d800
|
|
call Function10174c
|
|
ld a, $0
|
|
ld [wcd26], a
|
|
ld a, [wcd25]
|
|
inc a
|
|
ld [wcd25], a
|
|
ret
|
|
; 1015df
|
|
|
|
Function1015df: ; 1015df
|
|
ld de, $c608
|
|
callba Function100ef4
|
|
ld de, $c608
|
|
ld a, $5
|
|
ld hl, $d800
|
|
call Function10174c
|
|
ld a, $0
|
|
ld [wcd26], a
|
|
ld a, [wcd25]
|
|
inc a
|
|
ld [wcd25], a
|
|
ret
|
|
; 101600
|
|
|
|
Function101600: ; 101600
|
|
ld hl, $d800
|
|
ld de, $c608
|
|
ld bc, $01e0
|
|
ld a, $5
|
|
call FarCopyWRAM
|
|
ld de, $c608
|
|
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, $c608
|
|
ld bc, $01e0
|
|
call FarCopyWRAM
|
|
ret
|
|
; 10163f
|
|
|
|
Function10163f: ; 10163f
|
|
ld hl, $c608
|
|
ld bc, $01e0
|
|
call FarCopyWRAM
|
|
ret
|
|
; 101649
|
|
|
|
Function101649: ; 101649
|
|
ld a, $5
|
|
ld hl, $d800
|
|
call Function101635
|
|
ld a, $5
|
|
ld de, wda00
|
|
call Function10163f
|
|
ret
|
|
; 10165a
|
|
|
|
Function10165a: ; 10165a
|
|
ld a, $5
|
|
ld hl, wda00
|
|
call Function101635
|
|
ret
|
|
; 101663
|
|
|
|
Function101663: ; 101663
|
|
ld a, $5
|
|
ld hl, $d800
|
|
call Function101635
|
|
ld a, $5
|
|
ld de, wdc00
|
|
call Function10163f
|
|
ret
|
|
; 101674
|
|
|
|
Function101674: ; 101674 ; unreferenced
|
|
ld a, $5
|
|
ld hl, wdc00
|
|
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, $0000
|
|
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 Function2ed3
|
|
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, wdc0d
|
|
ld de, wdc11
|
|
callba Function4e929
|
|
pop af
|
|
ld [rSVBK], a
|
|
ld a, c
|
|
ld [OtherTrainerClass], a
|
|
ld hl, wd26b
|
|
ld de, $c656
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ld a, [wcd2f]
|
|
and a
|
|
ld a, $2
|
|
jr z, .asm_101a1e
|
|
ld a, $1
|
|
|
|
.asm_101a1e
|
|
ld [$ffcb], 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 Function3f4dd
|
|
callba Function3c000
|
|
callba Function3f759
|
|
xor a
|
|
ld [wc2d7], a
|
|
ld a, $ff
|
|
ld [$ffcb], a
|
|
pop af
|
|
ld [Options], a
|
|
ret
|
|
; 101a4f
|
|
|
|
Function101a4f: ; 101a4f
|
|
ld a, $1
|
|
ld [wc2d7], a
|
|
callba Function3f77c
|
|
xor a
|
|
ld [wc2d7], a
|
|
callba Function3f6d0
|
|
callba Function1500c
|
|
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, [wcfa9]
|
|
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, [wcfa9]
|
|
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, [wcfa9]
|
|
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 [wPartyMon1MenuIconAnim], 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 [wPartyMon1MenuIconAnim], 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 [wPartyMon1MenuIconAnim + 1], a
|
|
ld a, [wcd25]
|
|
inc a
|
|
ld [wcd25], a
|
|
ret
|
|
; 101d03
|
|
|
|
Function101d03: ; 101d03
|
|
ld a, $e
|
|
ld [wPartyMon1MenuIconAnim + 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 Function1d6e
|
|
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, $c608
|
|
bit 4, [hl]
|
|
jr z, .asm_102110
|
|
ld hl, $c608
|
|
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, $c60f
|
|
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 Functiona36
|
|
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, $c608 + 1
|
|
ld de, StringBuffer2
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ret
|
|
; 10218d
|
|
|
|
Function10218d: ; 10218d
|
|
ld hl, wdc00
|
|
ld de, $c608
|
|
ld bc, $0026
|
|
ld a, $5
|
|
call FarCopyWRAM
|
|
ld de, $c608 + 1
|
|
ret
|
|
; 10219f
|
|
|
|
Function10219f: ; 10219f
|
|
call FadeToMenu
|
|
call Function10218d
|
|
ld de, $c608 + 1
|
|
callba Function8ac4e
|
|
call Functiona36
|
|
call PlayClickSFX
|
|
call Function1013aa
|
|
ret
|
|
; 1021b8
|
|
|
|
Function1021b8: ; 1021b8
|
|
call FadeToMenu
|
|
call Function10218d
|
|
ld de, $c60f
|
|
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 Functiona36
|
|
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 [wcfa9], 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 Function1060af
|
|
callba Function106187
|
|
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 [DefaultFlypoint], 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, [wcfa9]
|
|
ld b, a
|
|
ld a, [OTPartyCount]
|
|
cp b
|
|
ret nz
|
|
call Function1bf7
|
|
ld a, [PartyCount]
|
|
ld [wcfa9], a
|
|
ld a, $1d
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_102646
|
|
ld a, [wcfa9]
|
|
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, [wcfa9]
|
|
dec a
|
|
ret nz
|
|
call Function1bf7
|
|
ld a, $1f
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_1026a8
|
|
ld a, [wcfa9]
|
|
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 [wcfa9], a
|
|
ld a, $1d
|
|
ld [wcd49], a
|
|
ret
|
|
|
|
.asm_102712
|
|
hlcoord 9, 17
|
|
ld [hl], $7f
|
|
ld a, [OTPartyCount]
|
|
ld [wcfa9], 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, [wcfa9]
|
|
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, [wcfa9]
|
|
ld [wcd52], a
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld [DefaultFlypoint], 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 [wcfa9], 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 [wcfa9], 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 Function1d6e
|
|
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 Function1bb1
|
|
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, [wcfa9]
|
|
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, $c6e7
|
|
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 [$c6d0], a
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld hl, PartyMonOT
|
|
call SkipNames
|
|
ld de, $c6f2
|
|
ld bc, $000b
|
|
call CopyBytes
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld hl, PartyMon1ID
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [$c6ff], a
|
|
ld a, [hl]
|
|
ld [wc700], a
|
|
ld a, [wcd4c]
|
|
dec a
|
|
ld hl, PartyMon1DVs
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [$c6fd], a
|
|
ld a, [hl]
|
|
ld [$c6fe], 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 [wc731], a
|
|
ld a, [hl]
|
|
ld [wc732], a
|
|
ld a, [wcd4d]
|
|
dec a
|
|
ld hl, OTPartyMon1DVs
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wc72f], a
|
|
ld a, [hl]
|
|
ld [wc730], a
|
|
ld a, [wcd4d]
|
|
dec a
|
|
ld hl, OTPartyMon1Species
|
|
call GetPartyLocation
|
|
ld b, h
|
|
ld c, l
|
|
callba GetCaughtGender
|
|
ld a, c
|
|
ld [wc733], a
|
|
ret
|
|
; 102b12
|
|
|
|
Function102b12: ; 102b12
|
|
ld c, $64
|
|
call DelayFrames
|
|
call Function102d9a
|
|
call Functione58
|
|
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 Function421d8
|
|
call Function102d9a
|
|
call Function102dd3
|
|
call Function102dec
|
|
ret
|
|
; 102b4e
|
|
|
|
Function102b4e: ; 102b4e
|
|
ld a, $1
|
|
ld [MonType], a
|
|
ld a, [wcfa9]
|
|
push af
|
|
ld de, Unknown_102b73
|
|
call Function1bb1
|
|
pop af
|
|
ld [wcfa9], 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, [wcfa9]
|
|
push af
|
|
ld de, Unknown_102b94
|
|
call Function1bb1
|
|
pop af
|
|
ld [wcfa9], 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, [wcfa9]
|
|
dec a
|
|
ld [CurPartyMon], a
|
|
call LowVolume
|
|
call ClearSprites
|
|
callba Function4dc8f
|
|
ld a, [CurPartyMon]
|
|
inc a
|
|
ld [wcfa9], 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, OTPartyMon1Level - OTPartyMon1
|
|
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, $c608
|
|
ld bc, $002f
|
|
call Function102c71
|
|
call CloseSRAM
|
|
ld hl, $c608
|
|
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, [wcf63]
|
|
push af
|
|
ld a, [wcf64]
|
|
push af
|
|
ld a, [wcd4c]
|
|
ld [wcf63], a
|
|
ld a, [PartyCount]
|
|
ld [wcf64], a
|
|
ld a, $0
|
|
ld hl, $a600
|
|
ld de, $c608
|
|
ld bc, $011a
|
|
call Function102d3e
|
|
call Function102cee
|
|
ld a, $0
|
|
ld hl, $c608
|
|
ld de, $a600
|
|
ld bc, $011a
|
|
call Function102d3e
|
|
ld a, [wcd4d]
|
|
ld [wcf63], a
|
|
ld a, [OTPartyCount]
|
|
ld [wcf64], a
|
|
ld a, $5
|
|
ld hl, wda00
|
|
ld de, $c608
|
|
ld bc, $011a
|
|
call FarCopyWRAM
|
|
call Function102cee
|
|
ld a, $5
|
|
ld hl, $c608
|
|
ld de, wda00
|
|
ld bc, $011a
|
|
call FarCopyWRAM
|
|
pop af
|
|
ld [wcf64], a
|
|
pop af
|
|
ld [wcf63], a
|
|
ret
|
|
; 102cee
|
|
|
|
Function102cee: ; 102cee
|
|
ld a, [wcf63]
|
|
dec a
|
|
call Function102d34
|
|
ld de, DefaultFlypoint
|
|
ld bc, $002f
|
|
call CopyBytes
|
|
ld a, [wcf63]
|
|
ld c, a
|
|
ld a, $6
|
|
sub c
|
|
ret z
|
|
ld bc, $002f
|
|
ld hl, $0000
|
|
call AddNTimes
|
|
push hl
|
|
ld a, [wcf63]
|
|
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, DefaultFlypoint
|
|
ld bc, $002f
|
|
call CopyBytes
|
|
ret
|
|
; 102d34
|
|
|
|
Function102d34: ; 102d34
|
|
ld hl, $c608
|
|
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, PartyMon2 - PartyMon1
|
|
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, PartyMon2 - PartyMon1
|
|
ld hl, PartyMon1DVs
|
|
call AddNTimes
|
|
predef GetUnownLetter
|
|
callba Functionfba18
|
|
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 Function32f9
|
|
call DelayFrame
|
|
ret
|
|
; 102e07
|
|
|
|
Function102e07: ; 102e07
|
|
hlcoord 3, 10
|
|
ld b, $1
|
|
ld c, $b
|
|
ld a, [IsInBattle]
|
|
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, $0000
|
|
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 Functionfb8
|
|
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 Function103612
|
|
dw Function103612
|
|
dw Function103612
|
|
|
|
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
|
|
|
|
Function103612: ; 103612
|
|
ld hl, MenuDataHeader_103640
|
|
call LoadMenuDataHeader
|
|
ld a, [wdc40]
|
|
and $f
|
|
jr z, .asm_103622
|
|
ld [wcf88], a
|
|
|
|
.asm_103622
|
|
call InterpretMenu2
|
|
call WriteBackup
|
|
jr c, .asm_10363b
|
|
ld a, [wcfa9]
|
|
ld [ScriptVar], a
|
|
ld c, a
|
|
ld a, [wdc40]
|
|
and $f0
|
|
or c
|
|
ld [wdc40], a
|
|
ret
|
|
|
|
.asm_10363b
|
|
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 Functiona36
|
|
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 Functiona36
|
|
|
|
.asm_1036b5
|
|
call Function103700
|
|
jr c, .asm_1036f4
|
|
ld hl, MenuDataHeader_103747
|
|
call LoadMenuDataHeader
|
|
call InterpretMenu2
|
|
call ExitMenu
|
|
jr c, .asm_1036f4
|
|
ld a, [wcfa9]
|
|
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 Functiona36
|
|
jr .asm_1036f4
|
|
|
|
.asm_1036e6
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_1036ec
|
|
call Function1036f9
|
|
call Functiona36
|
|
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 Functiona36
|
|
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 Function14ab2
|
|
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 Functiona36
|
|
ld hl, UnknownText_0x10381e
|
|
call PrintText
|
|
call Functiona36
|
|
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 Functiona36
|
|
callba Script_reloadmappart
|
|
callba Function4a94e
|
|
jr c, .asm_103870
|
|
ld hl, DefaultFlypoint
|
|
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 Functiona36
|
|
ret
|
|
; 103898
|
|
|
|
UnknownText_0x103898: ; 0x103898
|
|
text_jump UnknownText_0x1c4525
|
|
db "@"
|
|
; 0x10389d
|