mirror of https://github.com/pret/pokecrystal.git
2598 lines
36 KiB
NASM
Executable File
2598 lines
36 KiB
NASM
Executable File
LinkCommunications: ; 28000
|
|
call ClearBGPalettes
|
|
ld c, 80
|
|
call DelayFrames
|
|
call ClearScreen
|
|
call ClearSprites
|
|
call UpdateSprites
|
|
xor a
|
|
ld [hSCX], a
|
|
ld [hSCY], a
|
|
ld c, 80
|
|
call DelayFrames
|
|
call ClearScreen
|
|
call UpdateSprites
|
|
call LoadStandardFont
|
|
call LoadFontsBattleExtra
|
|
callba Function16d69a
|
|
call Function3200
|
|
hlcoord 3, 8
|
|
ld b, $2
|
|
ld c, $c
|
|
ld d, h
|
|
ld e, l
|
|
callba Function4d35b
|
|
hlcoord 4, 10
|
|
ld de, String28419
|
|
call PlaceString
|
|
call Function28eff
|
|
call Function3200
|
|
ld hl, wcf5d
|
|
xor a
|
|
ld [hli], a
|
|
ld [hl], $50
|
|
ld a, [wLinkMode]
|
|
cp LINK_TIMECAPSULE
|
|
jp nz, Function28177
|
|
|
|
Function2805d: ; 2805d
|
|
call Function28426
|
|
call Function28499
|
|
call Function28434
|
|
xor a
|
|
ld [wPlayerLinkAction], a
|
|
call Function87d
|
|
ld a, [hLinkPlayerNumber]
|
|
cp $2
|
|
jr nz, .asm_28091
|
|
ld c, $3
|
|
call DelayFrames
|
|
xor a
|
|
ld [hSerialSend], a
|
|
ld a, $1
|
|
ld [rSC], a
|
|
ld a, $81
|
|
ld [rSC], a
|
|
call DelayFrame
|
|
xor a
|
|
ld [hSerialSend], a
|
|
ld a, $1
|
|
ld [rSC], a
|
|
ld a, $81
|
|
ld [rSC], a
|
|
|
|
.asm_28091
|
|
ld de, MUSIC_NONE
|
|
call PlayMusic
|
|
ld c, $3
|
|
call DelayFrames
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $8
|
|
ld [rIE], a
|
|
ld hl, wd1f3
|
|
ld de, EnemyMonSpecies
|
|
ld bc, $11
|
|
call Function75f
|
|
ld a, $fe
|
|
ld [de], a
|
|
ld hl, OverworldMap
|
|
ld de, wd26b
|
|
ld bc, $1a8
|
|
call Function75f
|
|
ld a, $fe
|
|
ld [de], a
|
|
ld hl, wc608
|
|
ld de, wPlayerTrademonSpecies
|
|
ld bc, wPlayerTrademonSpecies - wc608
|
|
call Function75f
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $1d
|
|
ld [rIE], a
|
|
call Function287ab
|
|
ld hl, wd26b
|
|
call Function287ca
|
|
push hl
|
|
ld bc, NAME_LENGTH
|
|
add hl, bc
|
|
ld a, [hl]
|
|
pop hl
|
|
and a
|
|
jp z, Function28b22
|
|
cp $7
|
|
jp nc, Function28b22
|
|
ld de, OverworldMap
|
|
ld bc, $1a2
|
|
call Function2879e
|
|
ld de, wPlayerTrademonSpecies
|
|
ld hl, wc813
|
|
ld c, $2
|
|
.asm_280fe
|
|
ld a, [de]
|
|
inc de
|
|
and a
|
|
jr z, .asm_280fe
|
|
cp $fd
|
|
jr z, .asm_280fe
|
|
cp $fe
|
|
jr z, .asm_280fe
|
|
cp $ff
|
|
jr z, .asm_2811d
|
|
push hl
|
|
push bc
|
|
ld b, $0
|
|
dec a
|
|
ld c, a
|
|
add hl, bc
|
|
ld a, $fe
|
|
ld [hl], a
|
|
pop bc
|
|
pop hl
|
|
jr .asm_280fe
|
|
|
|
.asm_2811d
|
|
ld hl, wc90f
|
|
dec c
|
|
jr nz, .asm_280fe
|
|
ld hl, OverworldMap
|
|
ld de, wd26b
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ld de, OTPartyCount
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
.asm_28135
|
|
ld a, [hli]
|
|
cp $ff
|
|
jr z, .asm_2814e
|
|
ld [wd265], a
|
|
push hl
|
|
push de
|
|
callab ConvertMon_1to2
|
|
pop de
|
|
pop hl
|
|
ld a, [wd265]
|
|
ld [de], a
|
|
inc de
|
|
jr .asm_28135
|
|
|
|
.asm_2814e
|
|
ld [de], a
|
|
ld hl, wc813
|
|
call Function2868a
|
|
ld a, OTPartyMonOT % $100
|
|
ld [wd102], a
|
|
ld a, OTPartyMonOT / $100
|
|
ld [wd103], a
|
|
ld de, MUSIC_NONE
|
|
call PlayMusic
|
|
ld a, [hLinkPlayerNumber]
|
|
cp $2
|
|
ld c, 66
|
|
call z, DelayFrames
|
|
ld de, MUSIC_ROUTE_30
|
|
call PlayMusic
|
|
jp Function287e3
|
|
; 28177
|
|
|
|
Function28177: ; 28177
|
|
call Function28426
|
|
call Function28595
|
|
call Function28434
|
|
call Function29dba
|
|
ld a, [ScriptVar]
|
|
and a
|
|
jp z, Function283b2
|
|
ld a, [hLinkPlayerNumber]
|
|
cp $2
|
|
jr nz, .asm_281ae
|
|
ld c, $3
|
|
call DelayFrames
|
|
xor a
|
|
ld [hSerialSend], a
|
|
ld a, $1
|
|
ld [rSC], a
|
|
ld a, $81
|
|
ld [rSC], a
|
|
call DelayFrame
|
|
xor a
|
|
ld [hSerialSend], a
|
|
ld a, $1
|
|
ld [rSC], a
|
|
ld a, $81
|
|
ld [rSC], a
|
|
|
|
.asm_281ae
|
|
ld de, MUSIC_NONE
|
|
call PlayMusic
|
|
ld c, $3
|
|
call DelayFrames
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $8
|
|
ld [rIE], a
|
|
ld hl, wd1f3
|
|
ld de, EnemyMonSpecies
|
|
ld bc, $11
|
|
call Function75f
|
|
ld a, $fe
|
|
ld [de], a
|
|
ld hl, OverworldMap
|
|
ld de, wd26b
|
|
ld bc, $1c2
|
|
call Function75f
|
|
ld a, $fe
|
|
ld [de], a
|
|
ld hl, wc608
|
|
ld de, wPlayerTrademonSpecies
|
|
ld bc, $c8
|
|
call Function75f
|
|
ld a, [wLinkMode]
|
|
cp LINK_TRADECENTER
|
|
jr nz, .asm_281fd
|
|
ld hl, wc9f4
|
|
ld de, wcb84
|
|
ld bc, $186
|
|
call Function283f2
|
|
|
|
.asm_281fd
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $1d
|
|
ld [rIE], a
|
|
ld de, MUSIC_NONE
|
|
call PlayMusic
|
|
call Function287ab
|
|
ld hl, wd26b
|
|
call Function287ca
|
|
ld de, OverworldMap
|
|
ld bc, $1b9
|
|
call Function2879e
|
|
ld de, wPlayerTrademonSpecies
|
|
ld hl, wc813
|
|
ld c, $2
|
|
.asm_28224
|
|
ld a, [de]
|
|
inc de
|
|
and a
|
|
jr z, .asm_28224
|
|
cp $fd
|
|
jr z, .asm_28224
|
|
cp $fe
|
|
jr z, .asm_28224
|
|
cp $ff
|
|
jr z, .asm_28243
|
|
push hl
|
|
push bc
|
|
ld b, $0
|
|
dec a
|
|
ld c, a
|
|
add hl, bc
|
|
ld a, $fe
|
|
ld [hl], a
|
|
pop bc
|
|
pop hl
|
|
jr .asm_28224
|
|
|
|
.asm_28243
|
|
ld hl, wc90f
|
|
dec c
|
|
jr nz, .asm_28224
|
|
ld a, [wLinkMode]
|
|
cp LINK_TRADECENTER
|
|
jp nz, .asm_282fe
|
|
ld hl, wcb84
|
|
.asm_28254
|
|
ld a, [hli]
|
|
cp $20
|
|
jr nz, .asm_28254
|
|
.asm_28259
|
|
ld a, [hli]
|
|
cp $fe
|
|
jr z, .asm_28259
|
|
cp $20
|
|
jr z, .asm_28259
|
|
dec hl
|
|
ld de, wcb84
|
|
ld bc, $190
|
|
call CopyBytes
|
|
ld hl, wcb84
|
|
ld bc, $c6
|
|
.asm_28272
|
|
ld a, [hl]
|
|
cp $21
|
|
jr nz, .asm_28279
|
|
ld [hl], $fe
|
|
|
|
.asm_28279
|
|
inc hl
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .asm_28272
|
|
ld de, wcc9e
|
|
.asm_28282
|
|
ld a, [de]
|
|
inc de
|
|
cp $ff
|
|
jr z, .asm_28294
|
|
ld hl, wcc4a
|
|
dec a
|
|
ld b, $0
|
|
ld c, a
|
|
add hl, bc
|
|
ld [hl], $fe
|
|
jr .asm_28282
|
|
|
|
.asm_28294
|
|
ld hl, wcb84
|
|
ld de, wc9f4
|
|
ld b, $6
|
|
.asm_2829c
|
|
push bc
|
|
ld bc, $21
|
|
call CopyBytes
|
|
ld a, $e
|
|
add e
|
|
ld e, a
|
|
ld a, $0
|
|
adc d
|
|
ld d, a
|
|
pop bc
|
|
dec b
|
|
jr nz, .asm_2829c
|
|
ld de, wc9f4
|
|
ld b, $6
|
|
.asm_282b4
|
|
push bc
|
|
ld a, $21
|
|
add e
|
|
ld e, a
|
|
ld a, $0
|
|
adc d
|
|
ld d, a
|
|
ld bc, $e
|
|
call CopyBytes
|
|
pop bc
|
|
dec b
|
|
jr nz, .asm_282b4
|
|
ld b, $6
|
|
ld de, wc9f4
|
|
.asm_282cc
|
|
push bc
|
|
push de
|
|
callba IsMailEuropean
|
|
ld a, c
|
|
or a
|
|
jr z, .next
|
|
sub $3
|
|
jr nc, .skip
|
|
callba DeutenEnglischenPost
|
|
jr .next
|
|
|
|
.skip
|
|
cp $2
|
|
jr nc, .next
|
|
callba HandleSpanishItalianMail
|
|
|
|
.next
|
|
pop de
|
|
ld hl, MAIL_STRUCT_LENGTH
|
|
add hl, de
|
|
ld d, h
|
|
ld e, l
|
|
pop bc
|
|
dec b
|
|
jr nz, .asm_282cc
|
|
ld de, wcb0e
|
|
xor a
|
|
ld [de], a
|
|
|
|
.asm_282fe
|
|
ld hl, OverworldMap
|
|
ld de, wd26b
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ld de, OTPartyCount
|
|
ld bc, 8
|
|
call CopyBytes
|
|
ld de, wd276
|
|
ld bc, 2
|
|
call CopyBytes
|
|
ld de, OTPartyMon1Species
|
|
ld bc, $1a4
|
|
call CopyBytes
|
|
ld a, OTPartyMonOT % $100
|
|
ld [wd102], a
|
|
ld a, OTPartyMonOT / $100
|
|
ld [wd103], a
|
|
ld de, MUSIC_NONE
|
|
call PlayMusic
|
|
ld a, [hLinkPlayerNumber]
|
|
cp $2
|
|
ld c, 66
|
|
call z, DelayFrames
|
|
ld a, [wLinkMode]
|
|
cp LINK_COLOSSEUM
|
|
jr nz, .asm_283a9
|
|
ld a, CAL
|
|
ld [OtherTrainerClass], a
|
|
call ClearScreen
|
|
callba Function4d354
|
|
ld hl, Options
|
|
ld a, [hl]
|
|
push af
|
|
and $20
|
|
or $3
|
|
ld [hl], a
|
|
ld hl, wd26b
|
|
ld de, OTName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
call ReturnToMapFromSubmenu
|
|
ld a, [wc2d7]
|
|
push af
|
|
ld a, $1
|
|
ld [wc2d7], a
|
|
ld a, [rIE]
|
|
push af
|
|
ld a, [rIF]
|
|
push af
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, [rIE]
|
|
set 1, a
|
|
ld [rIE], a
|
|
pop af
|
|
ld [rIF], a
|
|
predef StartBattle
|
|
ld a, [rIF]
|
|
ld h, a
|
|
xor a
|
|
ld [rIF], a
|
|
pop af
|
|
ld [rIE], a
|
|
ld a, h
|
|
ld [rIF], a
|
|
pop af
|
|
ld [wc2d7], a
|
|
pop af
|
|
ld [Options], a
|
|
callba LoadPokemonData
|
|
jp Function28b22
|
|
|
|
.asm_283a9
|
|
ld de, MUSIC_ROUTE_30
|
|
call PlayMusic
|
|
jp Function287e3
|
|
; 283b2
|
|
|
|
Function283b2: ; 283b2
|
|
ld de, UnknownText_0x283ed
|
|
ld b, $a
|
|
.asm_283b7
|
|
call DelayFrame
|
|
call LinkDataReceived
|
|
dec b
|
|
jr nz, .asm_283b7
|
|
xor a
|
|
ld [hld], a
|
|
ld [hl], a
|
|
ld [hVBlank], a
|
|
push de
|
|
hlcoord 0, 12
|
|
ld b, $4
|
|
ld c, $12
|
|
push de
|
|
ld d, h
|
|
ld e, l
|
|
callba Function4d35b
|
|
pop de
|
|
pop hl
|
|
bccoord 1, 14
|
|
call PlaceWholeStringInBoxAtOnce
|
|
call RotateThreePalettesRight
|
|
call ClearScreen
|
|
ld b, SCGB_08
|
|
call GetSGBLayout
|
|
call Function3200
|
|
ret
|
|
; 283ed
|
|
|
|
UnknownText_0x283ed: ; 0x283ed
|
|
; Too much time has elapsed. Please try again.
|
|
text_jump UnknownText_0x1c4183
|
|
db "@"
|
|
; 0x283f2
|
|
|
|
Function283f2: ; 283f2
|
|
ld a, $1
|
|
ld [hFFCC], a
|
|
.asm_283f6
|
|
ld a, [hl]
|
|
ld [hSerialSend], a
|
|
call Function78a
|
|
push bc
|
|
ld b, a
|
|
inc hl
|
|
ld a, $30
|
|
.asm_28401
|
|
dec a
|
|
jr nz, .asm_28401
|
|
ld a, [hFFCC]
|
|
and a
|
|
ld a, b
|
|
pop bc
|
|
jr z, .asm_28411
|
|
dec hl
|
|
xor a
|
|
ld [hFFCC], a
|
|
jr .asm_283f6
|
|
|
|
.asm_28411
|
|
ld [de], a
|
|
inc de
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .asm_283f6
|
|
ret
|
|
; 28419
|
|
|
|
String28419: ; 28419
|
|
db "PLEASE WAIT!@"
|
|
; 28426
|
|
|
|
Function28426: ; 28426
|
|
ld hl, OverworldMap
|
|
lb bc, 5, SCREEN_WIDTH
|
|
.asm_2842c
|
|
xor a
|
|
ld [hli], a
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .asm_2842c
|
|
ret
|
|
; 28434
|
|
|
|
Function28434: ; 28434
|
|
ld hl, wd1f3
|
|
ld a, $fd
|
|
ld b, $7
|
|
.asm_2843b
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .asm_2843b
|
|
ld b, $a
|
|
.asm_28441
|
|
call Random
|
|
cp $fd
|
|
jr nc, .asm_28441
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .asm_28441
|
|
ld hl, wc608
|
|
ld a, $fd
|
|
rept 3
|
|
ld [hli], a
|
|
endr
|
|
ld b, $c8
|
|
xor a
|
|
.asm_28457
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .asm_28457
|
|
ld hl, wc818
|
|
ld de, wc608 + 10
|
|
ld bc, 0
|
|
.asm_28464
|
|
inc c
|
|
ld a, c
|
|
cp $fd
|
|
jr z, .asm_2848c
|
|
ld a, b
|
|
dec a
|
|
jr nz, .asm_2847f
|
|
push bc
|
|
ld a, [wLinkMode]
|
|
cp LINK_TIMECAPSULE
|
|
ld b, $d
|
|
jr z, .asm_2847a
|
|
ld b, $27
|
|
|
|
.asm_2847a
|
|
ld a, c
|
|
cp b
|
|
pop bc
|
|
jr z, .asm_28495
|
|
|
|
.asm_2847f
|
|
inc hl
|
|
ld a, [hl]
|
|
cp $fe
|
|
jr nz, .asm_28464
|
|
ld a, c
|
|
ld [de], a
|
|
inc de
|
|
ld [hl], $ff
|
|
jr .asm_28464
|
|
|
|
.asm_2848c
|
|
ld a, $ff
|
|
ld [de], a
|
|
inc de
|
|
lb bc, 1, 0
|
|
jr .asm_28464
|
|
|
|
.asm_28495
|
|
ld a, $ff
|
|
ld [de], a
|
|
ret
|
|
; 28499
|
|
|
|
Function28499: ; 28499
|
|
ld de, OverworldMap
|
|
ld a, $fd
|
|
ld b, $6
|
|
.asm_284a0
|
|
ld [de], a
|
|
inc de
|
|
dec b
|
|
jr nz, .asm_284a0
|
|
ld hl, PlayerName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
push de
|
|
ld hl, PartyCount
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
.asm_284b5
|
|
ld a, [hli]
|
|
cp $ff
|
|
jr z, .asm_284ce
|
|
ld [wd265], a
|
|
push hl
|
|
push de
|
|
callab ConvertMon_2to1
|
|
pop de
|
|
pop hl
|
|
ld a, [wd265]
|
|
ld [de], a
|
|
inc de
|
|
jr .asm_284b5
|
|
|
|
.asm_284ce
|
|
ld [de], a
|
|
pop de
|
|
ld hl, $8
|
|
add hl, de
|
|
ld d, h
|
|
ld e, l
|
|
ld hl, PartyMon1Species
|
|
ld c, $6
|
|
.asm_284db
|
|
push bc
|
|
call Function284f6
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .asm_284db
|
|
ld hl, PartyMonOT
|
|
call .asm_284f0
|
|
ld hl, PartyMonNicknames
|
|
.asm_284f0
|
|
ld bc, $42
|
|
jp CopyBytes
|
|
; 284f6
|
|
|
|
Function284f6: ; 284f6
|
|
ld b, h
|
|
ld c, l
|
|
push de
|
|
push bc
|
|
ld a, [hl]
|
|
ld [wd265], a
|
|
callab ConvertMon_2to1
|
|
pop bc
|
|
pop de
|
|
ld a, [wd265]
|
|
ld [de], a
|
|
inc de
|
|
ld hl, $22
|
|
add hl, bc
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
ld a, [hl]
|
|
ld [de], a
|
|
inc de
|
|
xor a
|
|
ld [de], a
|
|
inc de
|
|
ld hl, $20
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [de], a
|
|
inc de
|
|
ld a, [bc]
|
|
cp $51
|
|
jr z, .asm_28528
|
|
cp $52
|
|
jr nz, .asm_28530
|
|
|
|
.asm_28528
|
|
ld a, $17
|
|
ld [de], a
|
|
inc de
|
|
ld [de], a
|
|
inc de
|
|
jr .asm_28544
|
|
|
|
.asm_28530
|
|
push bc
|
|
dec a
|
|
ld hl, BaseData + 7 ; type
|
|
ld bc, BaseData1 - BaseData0
|
|
call AddNTimes
|
|
ld bc, 2
|
|
ld a, BANK(BaseData)
|
|
call FarCopyBytes
|
|
pop bc
|
|
|
|
.asm_28544
|
|
push bc
|
|
ld hl, $1
|
|
add hl, bc
|
|
ld bc, $1a
|
|
call CopyBytes
|
|
pop bc
|
|
|
|
ld hl, $1f
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [de], a
|
|
ld [CurPartyLevel], a
|
|
inc de
|
|
|
|
push bc
|
|
ld hl, $24
|
|
add hl, bc
|
|
ld bc, 8
|
|
call CopyBytes
|
|
pop bc
|
|
|
|
push de
|
|
push bc
|
|
|
|
ld a, [bc]
|
|
dec a
|
|
push bc
|
|
ld b, 0
|
|
ld c, a
|
|
ld hl, KantoMonSpecials
|
|
add hl, bc
|
|
ld a, BANK(KantoMonSpecials)
|
|
call GetFarByte
|
|
ld [BaseSpecialAttack], a
|
|
pop bc
|
|
|
|
ld hl, $a
|
|
add hl, bc
|
|
ld c, $5
|
|
ld b, $1
|
|
predef CalcPkmnStatC
|
|
|
|
pop bc
|
|
pop de
|
|
|
|
ld a, [$ffb5]
|
|
ld [de], a
|
|
inc de
|
|
ld a, [$ffb6]
|
|
ld [de], a
|
|
inc de
|
|
ld h, b
|
|
ld l, c
|
|
ret
|
|
; 28595
|
|
|
|
Function28595: ; 28595
|
|
ld de, wc800
|
|
ld a, EGG
|
|
ld b, PARTY_LENGTH
|
|
.loop1
|
|
ld [de], a
|
|
inc de
|
|
dec b
|
|
jr nz, .loop1
|
|
; de = $c806
|
|
ld hl, PlayerName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
; de = $c811
|
|
ld hl, PartyCount
|
|
ld bc, 1 + PARTY_LENGTH + 1
|
|
call CopyBytes
|
|
; de = $c819
|
|
ld hl, PlayerID
|
|
ld bc, 2
|
|
call CopyBytes
|
|
; de = $c81b
|
|
ld hl, PartyMon1Species
|
|
ld bc, PARTY_LENGTH * PARTYMON_STRUCT_LENGTH
|
|
call CopyBytes
|
|
; de = $c93b
|
|
ld hl, PartyMonOT
|
|
ld bc, PARTY_LENGTH * NAME_LENGTH
|
|
call CopyBytes
|
|
; de = $c97d
|
|
ld hl, PartyMonNicknames
|
|
ld bc, PARTY_LENGTH * PKMN_NAME_LENGTH
|
|
call CopyBytes
|
|
; de = $c9bf
|
|
|
|
; Okay, we did all that. Now, are we in the trade center?
|
|
ld a, [wLinkMode]
|
|
cp LINK_TRADECENTER
|
|
ret nz
|
|
|
|
; Fill 5 bytes at wc9f4 with $20
|
|
ld de, wc9f4
|
|
ld a, $20
|
|
call Function28682
|
|
|
|
; Copy all the mail messages to wc9f9
|
|
ld a, BANK(sPartyMail)
|
|
call GetSRAMBank
|
|
ld hl, sPartyMail
|
|
ld b, PARTY_LENGTH
|
|
.loop2
|
|
push bc
|
|
ld bc, MAIL_MSG_LENGTH + 1
|
|
call CopyBytes
|
|
ld bc, sPartyMon1MailEnd - sPartyMon1MailAuthor
|
|
add hl, bc
|
|
pop bc
|
|
dec b
|
|
jr nz, .loop2
|
|
; Copy the mail metadata to wcabf
|
|
ld hl, sPartyMail
|
|
ld b, PARTY_LENGTH
|
|
.loop3
|
|
push bc
|
|
ld bc, MAIL_MSG_LENGTH + 1
|
|
add hl, bc
|
|
ld bc, sPartyMon1MailEnd - sPartyMon1MailAuthor
|
|
call CopyBytes
|
|
pop bc
|
|
dec b
|
|
jr nz, .loop3
|
|
|
|
ld b, PARTY_LENGTH
|
|
ld de, sPartyMail
|
|
ld hl, wc9f9
|
|
.loop4
|
|
push bc
|
|
push hl
|
|
push de
|
|
push hl
|
|
callba IsMailEuropean
|
|
pop de
|
|
ld a, c
|
|
or a
|
|
jr z, .next
|
|
sub $3
|
|
jr nc, .italian_spanish
|
|
callba HandleFrenchGermanMail
|
|
jr .next
|
|
|
|
.italian_spanish
|
|
cp $2
|
|
jr nc, .next
|
|
callba HandleSpanishItalianMail
|
|
|
|
.next
|
|
pop de
|
|
ld hl, MAIL_STRUCT_LENGTH
|
|
add hl, de
|
|
ld d, h
|
|
ld e, l
|
|
pop hl
|
|
ld bc, sPartyMon1MailAuthor - sPartyMon1Mail
|
|
add hl, bc
|
|
pop bc
|
|
dec b
|
|
jr nz, .loop4
|
|
call CloseSRAM
|
|
ld hl, wc9f9
|
|
ld bc, PARTY_LENGTH * (sPartyMon1MailAuthor - sPartyMon1Mail)
|
|
.loop5
|
|
ld a, [hl]
|
|
cp $fe
|
|
jr nz, .skip2
|
|
ld [hl], sPartyMon1MailAuthor - sPartyMon1Mail
|
|
|
|
.skip2
|
|
inc hl
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .loop5
|
|
ld hl, wcabf
|
|
ld de, wcb13
|
|
ld b, PARTY_LENGTH * (sPartyMon1MailEnd - sPartyMon1MailAuthor)
|
|
ld c, $0
|
|
.loop6
|
|
inc c
|
|
ld a, [hl]
|
|
cp $fe
|
|
jr nz, .skip3
|
|
ld [hl], $ff
|
|
ld a, c
|
|
ld [de], a
|
|
inc de
|
|
|
|
.skip3
|
|
inc hl
|
|
dec b
|
|
jr nz, .loop6
|
|
ld a, $ff
|
|
ld [de], a
|
|
ret
|
|
; 28682
|
|
|
|
Function28682: ; 28682
|
|
ld c, $5
|
|
.loop
|
|
ld [de], a
|
|
inc de
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 2868a
|
|
|
|
Function2868a: ; 2868a
|
|
push hl
|
|
ld d, h
|
|
ld e, l
|
|
ld bc, wcbea
|
|
ld hl, wcbe8
|
|
ld a, c
|
|
ld [hli], a
|
|
ld [hl], b
|
|
ld hl, OTPartyMon1Species
|
|
ld c, $6
|
|
.loop
|
|
push bc
|
|
call Function286ba
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop
|
|
pop hl
|
|
lb bc, 1, 8
|
|
add hl, bc
|
|
ld de, OTPartyMonOT
|
|
ld bc, $42
|
|
call CopyBytes
|
|
ld de, OTPartyMonNicknames
|
|
ld bc, $42
|
|
jp CopyBytes
|
|
; 286ba
|
|
|
|
Function286ba: ; 286ba
|
|
ld b, h
|
|
ld c, l
|
|
ld a, [de]
|
|
inc de
|
|
push bc
|
|
push de
|
|
ld [wd265], a
|
|
callab ConvertMon_1to2
|
|
pop de
|
|
pop bc
|
|
ld a, [wd265]
|
|
ld [bc], a
|
|
ld [CurSpecies], a
|
|
ld hl, $22
|
|
add hl, bc
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
ld a, [de]
|
|
inc de
|
|
ld [hl], a
|
|
inc de
|
|
ld hl, $20
|
|
add hl, bc
|
|
ld a, [de]
|
|
inc de
|
|
ld [hl], a
|
|
ld hl, wcbe8
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, [de]
|
|
ld [hli], a
|
|
inc de
|
|
ld a, [de]
|
|
ld [hli], a
|
|
inc de
|
|
ld a, l
|
|
ld [wcbe8], a
|
|
ld a, h
|
|
ld [wcbe9], a
|
|
push bc
|
|
ld hl, $1
|
|
add hl, bc
|
|
push hl
|
|
ld h, d
|
|
ld l, e
|
|
pop de
|
|
push bc
|
|
ld a, [hli]
|
|
ld b, a
|
|
call Function28771
|
|
ld a, b
|
|
ld [de], a
|
|
inc de
|
|
pop bc
|
|
ld bc, $19
|
|
call CopyBytes
|
|
pop bc
|
|
ld d, h
|
|
ld e, l
|
|
ld hl, $1f
|
|
add hl, bc
|
|
ld a, [de]
|
|
inc de
|
|
ld [hl], a
|
|
ld [CurPartyLevel], a
|
|
push bc
|
|
ld hl, $24
|
|
add hl, bc
|
|
push hl
|
|
ld h, d
|
|
ld l, e
|
|
pop de
|
|
ld bc, 8
|
|
call CopyBytes
|
|
pop bc
|
|
call GetBaseData
|
|
push de
|
|
push bc
|
|
ld d, h
|
|
ld e, l
|
|
ld hl, $a
|
|
add hl, bc
|
|
ld c, $5
|
|
ld b, $1
|
|
predef CalcPkmnStatC
|
|
pop bc
|
|
pop hl
|
|
ld a, [$ffb5]
|
|
ld [hli], a
|
|
ld a, [$ffb6]
|
|
ld [hli], a
|
|
push hl
|
|
push bc
|
|
ld hl, $a
|
|
add hl, bc
|
|
ld c, $6
|
|
ld b, $1
|
|
predef CalcPkmnStatC
|
|
pop bc
|
|
pop hl
|
|
ld a, [$ffb5]
|
|
ld [hli], a
|
|
ld a, [$ffb6]
|
|
ld [hli], a
|
|
push hl
|
|
ld hl, $1b
|
|
add hl, bc
|
|
ld a, $46
|
|
ld [hli], a
|
|
xor a
|
|
rept 2
|
|
ld [hli], a
|
|
endr
|
|
ld [hl], a
|
|
pop hl
|
|
rept 2
|
|
inc de
|
|
endr
|
|
ret
|
|
; 28771
|
|
|
|
Function28771: ; 28771
|
|
ld a, b
|
|
and a
|
|
ret z
|
|
push hl
|
|
ld hl, .TimeCapsuleAlt
|
|
.loop
|
|
ld a, [hli]
|
|
and a
|
|
jr z, .end
|
|
cp b
|
|
jr z, .found
|
|
inc hl
|
|
jr .loop
|
|
|
|
.found
|
|
ld b, [hl]
|
|
|
|
.end
|
|
pop hl
|
|
ret
|
|
|
|
.TimeCapsuleAlt ; 28785
|
|
; Pokémon traded from RBY do not have held items, so GSC usually interprets the
|
|
; catch rate as an item. However, if the catch rate appears in this table, the
|
|
; item associated with the table entry is used instead.
|
|
db ITEM_19, LEFTOVERS
|
|
db ITEM_2D, BITTER_BERRY
|
|
db ITEM_32, GOLD_BERRY
|
|
db ITEM_5A, BERRY
|
|
db ITEM_64, BERRY
|
|
db ITEM_78, BERRY
|
|
db ITEM_87, BERRY
|
|
db ITEM_BE, BERRY
|
|
db ITEM_C3, BERRY
|
|
db ITEM_DC, BERRY
|
|
db HM_08, BERRY
|
|
db $ff, BERRY
|
|
db $00
|
|
; 2879e
|
|
|
|
Function2879e: ; 2879e
|
|
.asm_2879e
|
|
ld a, [hli]
|
|
cp $fe
|
|
jr z, .asm_2879e
|
|
ld [de], a
|
|
inc de
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .asm_2879e
|
|
ret
|
|
; 287ab
|
|
|
|
Function287ab: ; 287ab
|
|
ld a, [hLinkPlayerNumber]
|
|
cp $2
|
|
ret z
|
|
ld hl, EnemyMonSpecies
|
|
call Function287d8
|
|
ld de, LinkBattleRNs
|
|
ld c, $a
|
|
.asm_287bb
|
|
ld a, [hli]
|
|
cp $fe
|
|
jr z, .asm_287bb
|
|
cp $fd
|
|
jr z, .asm_287bb
|
|
ld [de], a
|
|
inc de
|
|
dec c
|
|
jr nz, .asm_287bb
|
|
ret
|
|
; 287ca
|
|
|
|
Function287ca: ; 287ca
|
|
.asm_287ca
|
|
ld a, [hli]
|
|
and a
|
|
jr z, .asm_287ca
|
|
cp $fd
|
|
jr z, .asm_287ca
|
|
cp $fe
|
|
jr z, .asm_287ca
|
|
dec hl
|
|
ret
|
|
; 287d8
|
|
|
|
Function287d8: ; 287d8
|
|
.asm_287d8
|
|
ld a, [hli]
|
|
cp $fd
|
|
jr z, .asm_287d8
|
|
cp $fe
|
|
jr z, .asm_287d8
|
|
dec hl
|
|
ret
|
|
; 287e3
|
|
|
|
Function287e3: ; 287e3
|
|
call ClearScreen
|
|
call Function28ef8
|
|
callba Function16d673
|
|
xor a
|
|
ld hl, wOtherPlayerLinkMode
|
|
rept 3
|
|
ld [hli], a
|
|
endr
|
|
ld [hl], a
|
|
ld a, $1
|
|
ld [MenuSelection2], a
|
|
inc a
|
|
ld [wPlayerLinkAction], a
|
|
jp Function2888b
|
|
; 28803
|
|
|
|
Function28803: ; 28803
|
|
ld a, $1
|
|
ld [MonType], a
|
|
ld a, $c1
|
|
ld [wcfa8], a
|
|
ld a, [OTPartyCount]
|
|
ld [wcfa3], a
|
|
ld a, $1
|
|
ld [wcfa4], a
|
|
ld a, $9
|
|
ld [wcfa1], a
|
|
ld a, $6
|
|
ld [wcfa2], a
|
|
ld a, $1
|
|
ld [wcfaa], a
|
|
ld a, $10
|
|
ld [wcfa7], a
|
|
ld a, $20
|
|
ld [wcfa5], a
|
|
xor a
|
|
ld [wcfa6], a
|
|
|
|
Function28835: ; 28835
|
|
callba Function16d70c
|
|
ld a, d
|
|
and a
|
|
jp z, Function2891c
|
|
bit 0, a
|
|
jr z, .asm_2885b
|
|
ld a, $1
|
|
ld [wd263], a
|
|
callab Function50db9
|
|
ld hl, OTPartyMon1Species
|
|
callba Function4d319
|
|
jp Function2891c
|
|
|
|
.asm_2885b
|
|
bit 6, a
|
|
jr z, .asm_28883
|
|
ld a, [MenuSelection2]
|
|
ld b, a
|
|
ld a, [OTPartyCount]
|
|
cp b
|
|
jp nz, Function2891c
|
|
xor a
|
|
ld [MonType], a
|
|
call Function1bf7
|
|
push hl
|
|
push bc
|
|
ld bc, NAME_LENGTH
|
|
add hl, bc
|
|
ld [hl], $7f
|
|
pop bc
|
|
pop hl
|
|
ld a, [PartyCount]
|
|
ld [MenuSelection2], a
|
|
jr Function2888b
|
|
|
|
.asm_28883
|
|
bit 7, a
|
|
jp z, Function2891c
|
|
jp Function28ac9
|
|
; 2888b
|
|
|
|
Function2888b: ; 2888b
|
|
callba Function49856
|
|
xor a
|
|
ld [MonType], a
|
|
ld a, $c1
|
|
ld [wcfa8], a
|
|
ld a, [PartyCount]
|
|
ld [wcfa3], a
|
|
ld a, $1
|
|
ld [wcfa4], a
|
|
ld a, $1
|
|
ld [wcfa1], a
|
|
ld a, $6
|
|
ld [wcfa2], a
|
|
ld a, $1
|
|
ld [wcfaa], a
|
|
ld a, $10
|
|
ld [wcfa7], a
|
|
ld a, $20
|
|
ld [wcfa5], a
|
|
xor a
|
|
ld [wcfa6], a
|
|
call Function3200
|
|
|
|
Function288c5: ; 288c5
|
|
callba Function16d70c
|
|
ld a, d
|
|
and a
|
|
jr nz, .asm_288d2
|
|
jp Function2891c
|
|
|
|
.asm_288d2
|
|
bit 0, a
|
|
jr z, .asm_288d9
|
|
jp Function28926
|
|
|
|
.asm_288d9
|
|
bit 7, a
|
|
jr z, .asm_288fe
|
|
ld a, [MenuSelection2]
|
|
dec a
|
|
jp nz, Function2891c
|
|
ld a, $1
|
|
ld [MonType], a
|
|
call Function1bf7
|
|
push hl
|
|
push bc
|
|
ld bc, NAME_LENGTH
|
|
add hl, bc
|
|
ld [hl], $7f
|
|
pop bc
|
|
pop hl
|
|
ld a, $1
|
|
ld [MenuSelection2], a
|
|
jp Function28803
|
|
|
|
.asm_288fe
|
|
bit 6, a
|
|
jr z, Function2891c
|
|
ld a, [MenuSelection2]
|
|
ld b, a
|
|
ld a, [PartyCount]
|
|
cp b
|
|
jr nz, Function2891c
|
|
call Function1bf7
|
|
push hl
|
|
push bc
|
|
ld bc, NAME_LENGTH
|
|
add hl, bc
|
|
ld [hl], $7f
|
|
pop bc
|
|
pop hl
|
|
jp Function28ade
|
|
; 2891c
|
|
|
|
Function2891c: ; 2891c
|
|
ld a, [MonType]
|
|
and a
|
|
jp z, Function288c5
|
|
jp Function28835
|
|
; 28926
|
|
|
|
Function28926: ; 28926
|
|
call LoadTileMapToTempTileMap
|
|
ld a, [MenuSelection2]
|
|
push af
|
|
hlcoord 0, 15
|
|
ld b, $1
|
|
ld c, $12
|
|
call Predef_LinkTextbox
|
|
hlcoord 2, 16
|
|
ld de, String28ab4
|
|
call PlaceString
|
|
callba Function4d354
|
|
|
|
.asm_28946
|
|
ld a, $7f
|
|
ldcoord_a 11, 16
|
|
ld a, $13
|
|
ld [wcfa8], a
|
|
ld a, $1
|
|
ld [wcfa3], a
|
|
ld a, $1
|
|
ld [wcfa4], a
|
|
ld a, $10
|
|
ld [wcfa1], a
|
|
ld a, $1
|
|
ld [wcfa2], a
|
|
ld a, $1
|
|
ld [MenuSelection2], a
|
|
ld [wcfaa], a
|
|
ld a, $20
|
|
ld [wcfa7], a
|
|
xor a
|
|
ld [wcfa5], a
|
|
ld [wcfa6], a
|
|
call Function1bd3
|
|
bit 4, a
|
|
jr nz, .asm_2898d
|
|
bit 1, a
|
|
jr z, .asm_289cd
|
|
.asm_28983
|
|
pop af
|
|
ld [MenuSelection2], a
|
|
call Call_LoadTempTileMapToTileMap
|
|
jp Function2888b
|
|
|
|
.asm_2898d
|
|
ld a, $7f
|
|
ldcoord_a 1, 16
|
|
ld a, $23
|
|
ld [wcfa8], a
|
|
ld a, $1
|
|
ld [wcfa3], a
|
|
ld a, $1
|
|
ld [wcfa4], a
|
|
ld a, $10
|
|
ld [wcfa1], a
|
|
ld a, $b
|
|
ld [wcfa2], a
|
|
ld a, $1
|
|
ld [MenuSelection2], a
|
|
ld [wcfaa], a
|
|
ld a, $20
|
|
ld [wcfa7], a
|
|
xor a
|
|
ld [wcfa5], a
|
|
ld [wcfa6], a
|
|
call Function1bd3
|
|
bit 5, a
|
|
jp nz, .asm_28946
|
|
bit 1, a
|
|
jr nz, .asm_28983
|
|
jr .asm_289fe
|
|
|
|
.asm_289cd
|
|
pop af
|
|
ld [MenuSelection2], a
|
|
ld a, $4
|
|
ld [wd263], a
|
|
callab Function50db9
|
|
callba Function4d319
|
|
call Call_LoadTempTileMapToTileMap
|
|
hlcoord 6, 1
|
|
lb bc, 6, 1
|
|
ld a, " "
|
|
call Function28b77
|
|
hlcoord 17, 1
|
|
lb bc, 6, 1
|
|
ld a, " "
|
|
call Function28b77
|
|
jp Function2888b
|
|
|
|
.asm_289fe
|
|
call Function1bee
|
|
pop af
|
|
ld [MenuSelection2], a
|
|
dec a
|
|
ld [wd002], a
|
|
ld [wPlayerLinkAction], a
|
|
callba Function16d6ce
|
|
ld a, [wOtherPlayerLinkMode]
|
|
cp $f
|
|
jp z, Function287e3
|
|
ld [wd003], a
|
|
call Function28b68
|
|
ld c, $64
|
|
call DelayFrames
|
|
callba Functionfb57e
|
|
jr c, .asm_28a58
|
|
callba Functionfb5dd
|
|
jp nc, Function28b87
|
|
xor a
|
|
ld [wcf57], a
|
|
ld [wOtherPlayerLinkAction], a
|
|
hlcoord 0, 12
|
|
ld b, $4
|
|
ld c, $12
|
|
call Predef_LinkTextbox
|
|
callba Function4d354
|
|
ld hl, UnknownText_0x28aaf
|
|
bccoord 1, 14
|
|
call PlaceWholeStringInBoxAtOnce
|
|
jr .asm_28a89
|
|
|
|
.asm_28a58
|
|
xor a
|
|
ld [wcf57], a
|
|
ld [wOtherPlayerLinkAction], a
|
|
ld a, [wd003]
|
|
ld hl, OTPartySpecies
|
|
ld c, a
|
|
ld b, $0
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
hlcoord 0, 12
|
|
ld b, $4
|
|
ld c, $12
|
|
call Predef_LinkTextbox
|
|
callba Function4d354
|
|
ld hl, UnknownText_0x28ac4
|
|
bccoord 1, 14
|
|
call PlaceWholeStringInBoxAtOnce
|
|
|
|
.asm_28a89
|
|
hlcoord 0, 12
|
|
ld b, $4
|
|
ld c, $12
|
|
call Predef_LinkTextbox
|
|
hlcoord 1, 14
|
|
ld de, String28ece
|
|
call PlaceString
|
|
ld a, $1
|
|
ld [wPlayerLinkAction], a
|
|
callba Function16d6ce
|
|
ld c, $64
|
|
call DelayFrames
|
|
jp Function287e3
|
|
; 28aaf
|
|
|
|
|
|
UnknownText_0x28aaf: ; 0x28aaf
|
|
; If you trade that #MON, you won't be able to battle.
|
|
text_jump UnknownText_0x1c41b1
|
|
db "@"
|
|
; 0x28ab4
|
|
|
|
String28ab4: ; 28ab4
|
|
db "STATS TRADE@"
|
|
|
|
UnknownText_0x28ac4: ; 0x28ac4
|
|
; Your friend's @ appears to be abnormal!
|
|
text_jump UnknownText_0x1c41e6
|
|
db "@"
|
|
; 0x28ac9
|
|
|
|
|
|
Function28ac9: ; 28ac9
|
|
ld a, [MenuSelection2]
|
|
cp $1
|
|
jp nz, Function2891c
|
|
call Function1bf7
|
|
push hl
|
|
push bc
|
|
ld bc, NAME_LENGTH
|
|
add hl, bc
|
|
ld [hl], $7f
|
|
pop bc
|
|
pop hl
|
|
|
|
Function28ade: ; 28ade
|
|
.asm_28ade
|
|
ld a, $ed
|
|
ldcoord_a 9, 17
|
|
.asm_28ae3
|
|
call JoyTextDelay
|
|
ld a, [hJoyLast]
|
|
and a
|
|
jr z, .asm_28ae3
|
|
bit 0, a
|
|
jr nz, .asm_28b0b
|
|
push af
|
|
ld a, " "
|
|
ldcoord_a 9, 17
|
|
pop af
|
|
bit 6, a
|
|
jr z, .asm_28b03
|
|
ld a, [OTPartyCount]
|
|
ld [MenuSelection2], a
|
|
jp Function28803
|
|
|
|
.asm_28b03
|
|
ld a, $1
|
|
ld [MenuSelection2], a
|
|
jp Function2888b
|
|
|
|
.asm_28b0b
|
|
ld a, $ec
|
|
ldcoord_a 9, 17
|
|
ld a, $f
|
|
ld [wPlayerLinkAction], a
|
|
callba Function16d6ce
|
|
ld a, [wOtherPlayerLinkMode]
|
|
cp $f
|
|
jr nz, .asm_28ade
|
|
|
|
Function28b22: ; 28b22
|
|
call RotateThreePalettesRight
|
|
call ClearScreen
|
|
ld b, SCGB_08
|
|
call GetSGBLayout
|
|
call Function3200
|
|
xor a
|
|
ld [wcfbb], a
|
|
xor a
|
|
ld [rSB], a
|
|
ld [hSerialSend], a
|
|
ld a, $1
|
|
ld [rSC], a
|
|
ld a, $81
|
|
ld [rSC], a
|
|
ret
|
|
; 28b42
|
|
|
|
Function28b42: ; 28b42
|
|
hlcoord 0, 16
|
|
ld a, "┘"
|
|
ld bc, 2 * SCREEN_WIDTH
|
|
call ByteFill
|
|
hlcoord 1, 16
|
|
ld a, " "
|
|
ld bc, SCREEN_WIDTH - 2
|
|
call ByteFill
|
|
hlcoord 2, 16
|
|
ld de, String_28b61
|
|
jp PlaceString
|
|
; 28b61
|
|
|
|
String_28b61: ; 28b61
|
|
db "CANCEL@"
|
|
; 28b68
|
|
|
|
Function28b68: ; 28b68
|
|
ld a, [wOtherPlayerLinkMode]
|
|
hlcoord 6, 9
|
|
ld bc, SCREEN_WIDTH
|
|
call AddNTimes
|
|
ld [hl], $ec
|
|
ret
|
|
; 28b77
|
|
|
|
Function28b77: ; 28b77
|
|
.asm_28b77
|
|
push bc
|
|
push hl
|
|
.asm_28b79
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_28b79
|
|
pop hl
|
|
ld bc, SCREEN_WIDTH
|
|
add hl, bc
|
|
pop bc
|
|
dec b
|
|
jr nz, .asm_28b77
|
|
ret
|
|
; 28b87
|
|
|
|
Function28b87: ; 28b87
|
|
xor a
|
|
ld [wcf57], a
|
|
ld [wOtherPlayerLinkAction], a
|
|
hlcoord 0, 12
|
|
ld b, $4
|
|
ld c, $12
|
|
call Predef_LinkTextbox
|
|
callba Function4d354
|
|
ld a, [wd002]
|
|
ld hl, PartySpecies
|
|
ld c, a
|
|
ld b, $0
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ld hl, StringBuffer1
|
|
ld de, wd004
|
|
ld bc, PKMN_NAME_LENGTH
|
|
call CopyBytes
|
|
ld a, [wd003]
|
|
ld hl, OTPartySpecies
|
|
ld c, a
|
|
ld b, $0
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ld hl, UnknownText_0x28eb8
|
|
bccoord 1, 14
|
|
call PlaceWholeStringInBoxAtOnce
|
|
call LoadStandardMenuDataHeader
|
|
hlcoord 10, 7
|
|
ld b, $3
|
|
ld c, $7
|
|
call Predef_LinkTextbox
|
|
ld de, String28eab
|
|
hlcoord 12, 8
|
|
call PlaceString
|
|
ld a, $8
|
|
ld [wcfa1], a
|
|
ld a, $b
|
|
ld [wcfa2], a
|
|
ld a, $1
|
|
ld [wcfa4], a
|
|
ld a, $2
|
|
ld [wcfa3], a
|
|
xor a
|
|
ld [wcfa5], a
|
|
ld [wcfa6], a
|
|
ld a, $20
|
|
ld [wcfa7], a
|
|
ld a, $3
|
|
ld [wcfa8], a
|
|
ld a, $1
|
|
ld [MenuSelection2], a
|
|
ld [wcfaa], a
|
|
callba Function4d354
|
|
call Function1bd3
|
|
push af
|
|
call Call_ExitMenu
|
|
call Function3200
|
|
pop af
|
|
bit 1, a
|
|
jr nz, .asm_28c33
|
|
ld a, [MenuSelection2]
|
|
dec a
|
|
jr z, .asm_28c54
|
|
|
|
.asm_28c33
|
|
ld a, $1
|
|
ld [wPlayerLinkAction], a
|
|
hlcoord 0, 12
|
|
ld b, 4
|
|
ld c, 18
|
|
call Predef_LinkTextbox
|
|
hlcoord 1, 14
|
|
ld de, String28ece
|
|
call PlaceString
|
|
callba Function16d6ce
|
|
jp Function28ea3
|
|
|
|
.asm_28c54
|
|
ld a, $2
|
|
ld [wPlayerLinkAction], a
|
|
callba Function16d6ce
|
|
ld a, [wOtherPlayerLinkMode]
|
|
dec a
|
|
jr nz, .asm_28c7b
|
|
hlcoord 0, 12
|
|
ld b, 4
|
|
ld c, 18
|
|
call Predef_LinkTextbox
|
|
hlcoord 1, 14
|
|
ld de, String28ece
|
|
call PlaceString
|
|
jp Function28ea3
|
|
|
|
.asm_28c7b
|
|
ld hl, sPartyMail
|
|
ld a, [wd002]
|
|
ld bc, MAIL_STRUCT_LENGTH
|
|
call AddNTimes
|
|
ld a, BANK(sPartyMail)
|
|
call GetSRAMBank
|
|
ld d, h
|
|
ld e, l
|
|
ld bc, MAIL_STRUCT_LENGTH
|
|
add hl, bc
|
|
ld a, [wd002]
|
|
ld c, a
|
|
.asm_28c96
|
|
inc c
|
|
ld a, c
|
|
cp $6
|
|
jr z, .asm_28ca6
|
|
push bc
|
|
ld bc, MAIL_STRUCT_LENGTH
|
|
call CopyBytes
|
|
pop bc
|
|
jr .asm_28c96
|
|
|
|
.asm_28ca6
|
|
ld hl, sPartyMail
|
|
ld a, [PartyCount]
|
|
dec a
|
|
ld bc, MAIL_STRUCT_LENGTH
|
|
call AddNTimes
|
|
push hl
|
|
ld hl, wc9f4
|
|
ld a, [wd003]
|
|
ld bc, MAIL_STRUCT_LENGTH
|
|
call AddNTimes
|
|
pop de
|
|
ld bc, MAIL_STRUCT_LENGTH
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ld hl, PlayerName
|
|
ld de, wPlayerTrademonSenderName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ld a, [wd002]
|
|
ld hl, PartySpecies
|
|
ld b, $0
|
|
ld c, a
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wPlayerTrademonSpecies], a
|
|
push af
|
|
ld a, [wd002]
|
|
ld hl, PartyMonOT
|
|
call SkipNames
|
|
ld de, wPlayerTrademonOTName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ld hl, PartyMon1ID
|
|
ld a, [wd002]
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wPlayerTrademonID], a
|
|
ld a, [hl]
|
|
ld [wPlayerTrademonID + 1], a
|
|
ld hl, PartyMon1DVs
|
|
ld a, [wd002]
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wPlayerTrademonDVs], a
|
|
ld a, [hl]
|
|
ld [wPlayerTrademonDVs + 1], a
|
|
ld a, [wd002]
|
|
ld hl, PartyMon1Species
|
|
call GetPartyLocation
|
|
ld b, h
|
|
ld c, l
|
|
callba GetCaughtGender
|
|
ld a, c
|
|
ld [wPlayerTrademonCaughtData], a
|
|
ld hl, wd26b
|
|
ld de, wOTTrademonSenderName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ld a, [wd003]
|
|
ld hl, OTPartySpecies
|
|
ld b, $0
|
|
ld c, a
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wOTTrademonSpecies], a
|
|
ld a, [wd003]
|
|
ld hl, OTPartyMonOT
|
|
call SkipNames
|
|
ld de, wOTTrademonOTName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ld hl, OTPartyMon1ID
|
|
ld a, [wd003]
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wOTTrademonID], a
|
|
ld a, [hl]
|
|
ld [wOTTrademonID + 1], a
|
|
ld hl, OTPartyMon1DVs
|
|
ld a, [wd003]
|
|
call GetPartyLocation
|
|
ld a, [hli]
|
|
ld [wOTTrademonDVs], a
|
|
ld a, [hl]
|
|
ld [wOTTrademonDVs + 1], a
|
|
ld a, [wd003]
|
|
ld hl, OTPartyMon1Species
|
|
call GetPartyLocation
|
|
ld b, h
|
|
ld c, l
|
|
callba GetCaughtGender
|
|
ld a, c
|
|
ld [wOTTrademonCaughtData], a
|
|
ld a, [wd002]
|
|
ld [CurPartyMon], a
|
|
ld hl, PartySpecies
|
|
ld b, $0
|
|
ld c, a
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wd002], a
|
|
xor a
|
|
ld [wPokemonWithdrawDepositParameter], a
|
|
callab Functione039
|
|
ld a, [PartyCount]
|
|
dec a
|
|
ld [CurPartyMon], a
|
|
ld a, $1
|
|
ld [wForceEvolution], a
|
|
ld a, [wd003]
|
|
push af
|
|
ld hl, OTPartySpecies
|
|
ld b, $0
|
|
ld c, a
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wd003], a
|
|
ld c, 100
|
|
call DelayFrames
|
|
call ClearTileMap
|
|
call LoadFontsBattleExtra
|
|
ld b, SCGB_08
|
|
call GetSGBLayout
|
|
ld a, [hLinkPlayerNumber]
|
|
cp $1
|
|
jr z, .player_2
|
|
predef TradeAnimation
|
|
jr .done_animation
|
|
|
|
.player_2
|
|
predef TradeAnimationPlayer2
|
|
|
|
.done_animation
|
|
pop af
|
|
ld c, a
|
|
ld [CurPartyMon], a
|
|
ld hl, OTPartySpecies
|
|
ld d, $0
|
|
ld e, a
|
|
add hl, de
|
|
ld a, [hl]
|
|
ld [CurPartySpecies], a
|
|
ld hl, OTPartyMon1Species
|
|
ld a, c
|
|
call GetPartyLocation
|
|
ld de, TempMonSpecies
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
call CopyBytes
|
|
predef AddTempmonToParty
|
|
ld a, [PartyCount]
|
|
dec a
|
|
ld [CurPartyMon], a
|
|
callab EvolvePokemon
|
|
call ClearScreen
|
|
call Function28ef8
|
|
call Function28eff
|
|
callba Function4d354
|
|
ld b, $1
|
|
pop af
|
|
ld c, a
|
|
cp MEW
|
|
jr z, .asm_28e49
|
|
ld a, [CurPartySpecies]
|
|
cp MEW
|
|
jr z, .asm_28e49
|
|
ld b, $2
|
|
ld a, c
|
|
cp CELEBI
|
|
jr z, .asm_28e49
|
|
ld a, [CurPartySpecies]
|
|
cp CELEBI
|
|
jr z, .asm_28e49
|
|
ld b, $0
|
|
|
|
.asm_28e49
|
|
ld a, b
|
|
ld [wPlayerLinkAction], a
|
|
push bc
|
|
call Function862
|
|
pop bc
|
|
ld a, [wLinkMode]
|
|
cp LINK_TIMECAPSULE
|
|
jr z, .asm_28e63
|
|
ld a, b
|
|
and a
|
|
jr z, .asm_28e63
|
|
ld a, [wOtherPlayerLinkAction]
|
|
cp b
|
|
jr nz, .asm_28e49
|
|
|
|
.asm_28e63
|
|
callba Function14a58
|
|
callba MobileFn_1060af
|
|
callba BackupMobileEventIndex
|
|
ld c, 40
|
|
call DelayFrames
|
|
hlcoord 0, 12
|
|
ld b, 4
|
|
ld c, 18
|
|
call Predef_LinkTextbox
|
|
hlcoord 1, 14
|
|
ld de, String28ebd
|
|
call PlaceString
|
|
callba Function4d354
|
|
ld c, 50
|
|
call DelayFrames
|
|
ld a, [wLinkMode]
|
|
cp LINK_TIMECAPSULE
|
|
jp z, Function2805d
|
|
jp Function28177
|
|
; 28ea3
|
|
|
|
Function28ea3: ; 28ea3
|
|
ld c, 100
|
|
call DelayFrames
|
|
jp Function287e3
|
|
; 28eab
|
|
|
|
String28eab: ; 28eab
|
|
db "TRADE"
|
|
next "CANCEL@"
|
|
|
|
UnknownText_0x28eb8: ; 0x28eb8
|
|
; Trade @ for @ ?
|
|
text_jump UnknownText_0x1c4212
|
|
db "@"
|
|
; 0x28ebd
|
|
|
|
String28ebd: ; 28ebd
|
|
db "Trade completed!@"
|
|
|
|
String28ece: ; 28ece
|
|
db "Too bad! The trade"
|
|
next "was canceled!@"
|
|
|
|
|
|
Predef_LinkTextbox: ; 28eef
|
|
ld d, h
|
|
ld e, l
|
|
callba LinkTextbox
|
|
ret
|
|
; 28ef8
|
|
|
|
Function28ef8: ; 28ef8
|
|
callba Function16d696
|
|
ret
|
|
; 28eff
|
|
|
|
Function28eff: ; 28eff
|
|
callba Function16d6a7
|
|
call SetPalettes
|
|
ret
|
|
; 28f09
|
|
|
|
Function28f09: ; 28f09
|
|
hlcoord 0, 0
|
|
ld b, 6
|
|
ld c, 18
|
|
call Predef_LinkTextbox
|
|
hlcoord 0, 8
|
|
ld b, 6
|
|
ld c, 18
|
|
call Predef_LinkTextbox
|
|
callba Functionfb60d
|
|
ret
|
|
; 28f24
|
|
|
|
INCLUDE "engine/trade/animation.asm"
|
|
|
|
Special_CheckTimeCapsuleCompatibility: ; 29bfb
|
|
; Checks to see if your Party is compatible with the generation 1 games. Returns the following in ScriptVar:
|
|
; 0: Party is okay
|
|
; 1: At least one Pokemon was introduced in GS
|
|
; 2: At least one Pokemon has a move that was introduced in GS
|
|
; 3: At least one Pokemon is holding mail
|
|
|
|
; If any party Pokemon was introduced in the generation 2 games, don't let it in.
|
|
ld hl, PartySpecies
|
|
ld b, PARTY_LENGTH ; 6
|
|
.loop
|
|
ld a, [hli]
|
|
cp $ff
|
|
jr z, .checkitem
|
|
cp CHIKORITA ; MEW + 1 ; 151 + 1
|
|
jr nc, .mon_too_new
|
|
dec b
|
|
jr nz, .loop
|
|
|
|
; If any party Pokemon is holding mail, don't let it in.
|
|
.checkitem
|
|
ld a, [PartyCount]
|
|
ld b, a
|
|
ld hl, PartyMon1Item
|
|
.itemloop
|
|
push hl
|
|
push bc
|
|
ld d, [hl]
|
|
callba ItemIsMail
|
|
pop bc
|
|
pop hl
|
|
jr c, .mon_has_mail
|
|
ld de, PARTYMON_STRUCT_LENGTH
|
|
add hl, de
|
|
dec b
|
|
jr nz, .itemloop
|
|
|
|
; If any party Pokemon has a move that was introduced in the generation 2 games, don't let it in.
|
|
ld hl, PartyMon1Moves
|
|
ld a, [PartyCount]
|
|
ld b, a
|
|
.move_loop
|
|
ld c, NUM_MOVES
|
|
.move_next
|
|
ld a, [hli]
|
|
cp STRUGGLE + 1
|
|
jr nc, .move_too_new
|
|
dec c
|
|
jr nz, .move_next
|
|
ld de, PartyMon2 - (PartyMon1 + NUM_MOVES)
|
|
add hl, de
|
|
dec b
|
|
jr nz, .move_loop
|
|
xor a
|
|
jr .done
|
|
|
|
.mon_too_new
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ld a, $1
|
|
jr .done
|
|
|
|
.move_too_new
|
|
push bc
|
|
ld [wd265], a
|
|
call GetMoveName
|
|
call CopyName1
|
|
pop bc
|
|
call Function29c67
|
|
ld a, $2
|
|
jr .done
|
|
|
|
.mon_has_mail
|
|
call Function29c67
|
|
ld a, $3
|
|
|
|
.done
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 29c67
|
|
|
|
Function29c67: ; 29c67
|
|
ld a, [PartyCount]
|
|
sub b
|
|
ld c, a
|
|
inc c
|
|
ld b, $0
|
|
ld hl, PartyCount
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ret
|
|
; 29c7b
|
|
|
|
Special_EnterTimeCapsule: ; 29c7b
|
|
ld c, 10
|
|
call DelayFrames
|
|
ld a, $4
|
|
call Function29f17
|
|
ld c, 40
|
|
call DelayFrames
|
|
xor a
|
|
ld [hVBlank], a
|
|
inc a
|
|
ld [wLinkMode], a
|
|
ret
|
|
; 29c92
|
|
|
|
Special_AbortLink: ; 29c92
|
|
ld c, $3
|
|
call DelayFrames
|
|
ld a, -1
|
|
ld [hLinkPlayerNumber], a
|
|
xor a
|
|
ld [rSB], a
|
|
ld [hSerialReceive], a
|
|
ld a, $1
|
|
ld [rSC], a
|
|
ld a, $81
|
|
ld [rSC], a
|
|
ld c, $3
|
|
call DelayFrames
|
|
xor a
|
|
ld [rSB], a
|
|
ld [hSerialReceive], a
|
|
ld a, $0
|
|
ld [rSC], a
|
|
ld a, $80
|
|
ld [rSC], a
|
|
ld c, $3
|
|
call DelayFrames
|
|
xor a
|
|
ld [rSB], a
|
|
ld [hSerialReceive], a
|
|
ld [rSC], a
|
|
ld c, $3
|
|
call DelayFrames
|
|
ld a, -1
|
|
ld [hLinkPlayerNumber], a
|
|
ld a, [rIF]
|
|
push af
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $f
|
|
ld [rIE], a
|
|
pop af
|
|
ld [rIF], a
|
|
ld hl, wcf5b
|
|
xor a
|
|
ld [hli], a
|
|
ld [hl], a
|
|
ld [hVBlank], a
|
|
ld [wLinkMode], a
|
|
ret
|
|
; 29ce8
|
|
|
|
Special_SetBitsForLinkTradeRequest: ; 29ce8
|
|
ld a, LINK_TRADECENTER - 1
|
|
ld [wPlayerLinkAction], a
|
|
ld [wd265], a
|
|
ret
|
|
; 29cf1
|
|
|
|
Special_SetBitsForBattleRequest: ; 29cf1
|
|
ld a, LINK_COLOSSEUM - 1
|
|
ld [wPlayerLinkAction], a
|
|
ld [wd265], a
|
|
ret
|
|
; 29cfa
|
|
|
|
Special_SetBitsForTimeCapsuleRequest: ; 29cfa
|
|
ld a, $2
|
|
ld [rSB], a
|
|
xor a
|
|
ld [hSerialReceive], a
|
|
ld a, $0
|
|
ld [rSC], a
|
|
ld a, $80
|
|
ld [rSC], a
|
|
xor a ; LINK_TIMECAPSULE - 1
|
|
ld [wPlayerLinkAction], a
|
|
ld [wd265], a
|
|
ret
|
|
; 29d11
|
|
|
|
Special_WaitForLinkedFriend: ; 29d11
|
|
ld a, [wPlayerLinkAction]
|
|
and a
|
|
jr z, .asm_29d2f
|
|
ld a, $2
|
|
ld [rSB], a
|
|
xor a
|
|
ld [hSerialReceive], a
|
|
ld a, $0
|
|
ld [rSC], a
|
|
ld a, $80
|
|
ld [rSC], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
call DelayFrame
|
|
|
|
.asm_29d2f
|
|
ld a, $2
|
|
ld [wcf5c], a
|
|
ld a, $ff
|
|
ld [wcf5b], a
|
|
.asm_29d39
|
|
ld a, [hLinkPlayerNumber]
|
|
cp $2
|
|
jr z, .asm_29d79
|
|
cp $1
|
|
jr z, .asm_29d79
|
|
ld a, -1
|
|
ld [hLinkPlayerNumber], a
|
|
ld a, $2
|
|
ld [rSB], a
|
|
xor a
|
|
ld [hSerialReceive], a
|
|
ld a, $0
|
|
ld [rSC], a
|
|
ld a, $80
|
|
ld [rSC], a
|
|
ld a, [wcf5b]
|
|
dec a
|
|
ld [wcf5b], a
|
|
jr nz, .asm_29d68
|
|
ld a, [wcf5c]
|
|
dec a
|
|
ld [wcf5c], a
|
|
jr z, .asm_29d8d
|
|
|
|
.asm_29d68
|
|
ld a, $1
|
|
ld [rSB], a
|
|
ld a, $1
|
|
ld [rSC], a
|
|
ld a, $81
|
|
ld [rSC], a
|
|
call DelayFrame
|
|
jr .asm_29d39
|
|
|
|
.asm_29d79
|
|
call LinkDataReceived
|
|
call DelayFrame
|
|
call LinkDataReceived
|
|
ld c, $32
|
|
call DelayFrames
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_29d8d
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 29d92
|
|
|
|
Special_CheckLinkTimeout: ; 29d92
|
|
ld a, $1
|
|
ld [wPlayerLinkAction], a
|
|
ld hl, wcf5b
|
|
ld a, $3
|
|
ld [hli], a
|
|
xor a
|
|
ld [hl], a
|
|
call WaitBGMap
|
|
ld a, $2
|
|
ld [hVBlank], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
call Function29e0c
|
|
xor a
|
|
ld [hVBlank], a
|
|
ld a, [ScriptVar]
|
|
and a
|
|
ret nz
|
|
jp Function29f04
|
|
; 29dba
|
|
|
|
Function29dba: ; 29dba
|
|
ld a, $5
|
|
ld [wPlayerLinkAction], a
|
|
ld hl, wcf5b
|
|
ld a, $3
|
|
ld [hli], a
|
|
xor a
|
|
ld [hl], a
|
|
call WaitBGMap
|
|
ld a, $2
|
|
ld [hVBlank], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
call Function29e0c
|
|
ld a, [ScriptVar]
|
|
and a
|
|
jr z, .asm_29e08
|
|
ld bc, rIE
|
|
.asm_29de0
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .asm_29de0
|
|
ld a, [wOtherPlayerLinkMode]
|
|
cp $5
|
|
jr nz, .asm_29e03
|
|
ld a, $6
|
|
ld [wPlayerLinkAction], a
|
|
ld hl, wcf5b
|
|
ld a, $1
|
|
ld [hli], a
|
|
ld [hl], $32
|
|
call Function29e0c
|
|
ld a, [wOtherPlayerLinkMode]
|
|
cp $6
|
|
jr z, .asm_29e08
|
|
|
|
.asm_29e03
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.asm_29e08
|
|
xor a
|
|
ld [hVBlank], a
|
|
ret
|
|
; 29e0c
|
|
|
|
Function29e0c: ; 29e0c
|
|
xor a
|
|
ld [hFFCA], a
|
|
ld a, [wcf5b]
|
|
ld h, a
|
|
ld a, [wcf5c]
|
|
ld l, a
|
|
push hl
|
|
call Function29e3b
|
|
pop hl
|
|
jr nz, .asm_29e2f
|
|
call Function29e47
|
|
call Function29e53
|
|
call Function29e3b
|
|
jr nz, .asm_29e2f
|
|
call Function29e47
|
|
xor a
|
|
jr .asm_29e31
|
|
|
|
.asm_29e2f
|
|
ld a, $1
|
|
|
|
.asm_29e31
|
|
ld [ScriptVar], a
|
|
ld hl, wcf5b
|
|
xor a
|
|
ld [hli], a
|
|
ld [hl], a
|
|
ret
|
|
; 29e3b
|
|
|
|
Function29e3b: ; 29e3b
|
|
call Function87d
|
|
ld hl, wcf5b
|
|
ld a, [hli]
|
|
inc a
|
|
ret nz
|
|
ld a, [hl]
|
|
inc a
|
|
ret
|
|
; 29e47
|
|
|
|
Function29e47: ; 29e47
|
|
ld b, $a
|
|
.asm_29e49
|
|
call DelayFrame
|
|
call LinkDataReceived
|
|
dec b
|
|
jr nz, .asm_29e49
|
|
ret
|
|
; 29e53
|
|
|
|
Function29e53: ; 29e53
|
|
dec h
|
|
srl h
|
|
rr l
|
|
srl h
|
|
rr l
|
|
inc h
|
|
ld a, h
|
|
ld [wcf5b], a
|
|
ld a, l
|
|
ld [wcf5c], a
|
|
ret
|
|
; 29e66
|
|
|
|
Special_TryQuickSave: ; 29e66
|
|
ld a, [wd265]
|
|
push af
|
|
callba Link_SaveGame
|
|
ld a, $1
|
|
jr nc, .asm_29e75
|
|
xor a
|
|
|
|
.asm_29e75
|
|
ld [ScriptVar], a
|
|
ld c, $1e
|
|
call DelayFrames
|
|
pop af
|
|
ld [wd265], a
|
|
ret
|
|
; 29e82
|
|
|
|
Special_CheckBothSelectedSameRoom: ; 29e82
|
|
ld a, [wd265]
|
|
call Function29f17
|
|
push af
|
|
call LinkDataReceived
|
|
call DelayFrame
|
|
call LinkDataReceived
|
|
pop af
|
|
ld b, a
|
|
ld a, [wd265]
|
|
cp b
|
|
jr nz, .fail
|
|
ld a, [wd265]
|
|
inc a
|
|
ld [wLinkMode], a
|
|
xor a
|
|
ld [hVBlank], a
|
|
ld a, $1
|
|
ld [ScriptVar], a
|
|
ret
|
|
|
|
.fail
|
|
xor a
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 29eaf
|
|
|
|
Special_TimeCapsule: ; 29eaf
|
|
ld a, LINK_TIMECAPSULE
|
|
ld [wLinkMode], a
|
|
call DisableSpriteUpdates
|
|
callab LinkCommunications
|
|
call EnableSpriteUpdates
|
|
xor a
|
|
ld [hVBlank], a
|
|
ret
|
|
; 29ec4
|
|
|
|
Special_TradeCenter: ; 29ec4
|
|
ld a, LINK_TRADECENTER
|
|
ld [wLinkMode], a
|
|
call DisableSpriteUpdates
|
|
callab LinkCommunications
|
|
call EnableSpriteUpdates
|
|
xor a
|
|
ld [hVBlank], a
|
|
ret
|
|
; 29ed9
|
|
|
|
Special_Colosseum: ; 29ed9
|
|
ld a, LINK_COLOSSEUM
|
|
ld [wLinkMode], a
|
|
call DisableSpriteUpdates
|
|
callab LinkCommunications
|
|
call EnableSpriteUpdates
|
|
xor a
|
|
ld [hVBlank], a
|
|
ret
|
|
; 29eee
|
|
|
|
Special_CloseLink: ; 29eee
|
|
xor a
|
|
ld [wLinkMode], a
|
|
ld c, $3
|
|
call DelayFrames
|
|
jp Function29f04
|
|
; 29efa
|
|
|
|
Special_FailedLinkToPast: ; 29efa
|
|
ld c, 40
|
|
call DelayFrames
|
|
ld a, $e
|
|
jp Function29f17
|
|
; 29f04
|
|
|
|
Function29f04: ; 29f04
|
|
ld c, 3
|
|
call DelayFrames
|
|
ld a, -1
|
|
ld [hLinkPlayerNumber], a
|
|
ld a, $2
|
|
ld [rSB], a
|
|
xor a
|
|
ld [hSerialReceive], a
|
|
ld [rSC], a
|
|
ret
|
|
; 29f17
|
|
|
|
Function29f17: ; 29f17
|
|
add $d0
|
|
ld [wPlayerLinkAction], a
|
|
ld [wcf57], a
|
|
ld a, $2
|
|
ld [hVBlank], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
.receive_loop
|
|
call Function83b
|
|
ld a, [wOtherPlayerLinkMode]
|
|
ld b, a
|
|
and $f0
|
|
cp $d0
|
|
jr z, .done
|
|
ld a, [wOtherPlayerLinkAction]
|
|
ld b, a
|
|
and $f0
|
|
cp $d0
|
|
jr nz, .receive_loop
|
|
|
|
.done
|
|
xor a
|
|
ld [hVBlank], a
|
|
ld a, b
|
|
and $f
|
|
ret
|
|
; 29f47
|
|
|
|
Special_CableClubCheckWhichChris: ; 29f47
|
|
ld a, [hLinkPlayerNumber]
|
|
cp $1
|
|
ld a, $1
|
|
jr z, .yes
|
|
dec a
|
|
|
|
.yes
|
|
ld [ScriptVar], a
|
|
ret
|
|
; 29f54
|
|
|
|
GFX_29f54: ; 29f54
|
|
INCBIN "gfx/unknown/029f54.2bpp"
|
|
; 29fe4
|