pokecrystal/engine/link/link.asm

2665 lines
45 KiB
NASM

LinkCommunications:
call ClearBGPalettes
ld c, 80
call DelayFrames
call ClearScreen
call ClearSprites
call UpdateSprites
xor a
ldh [hSCX], a
ldh [hSCY], a
ld c, 80
call DelayFrames
call ClearScreen
call UpdateSprites
call LoadStandardFont
call LoadFontsBattleExtra
farcall LinkComms_LoadPleaseWaitTextboxBorderGFX
call WaitBGMap2
hlcoord 3, 8
ld b, 2
ld c, 12
ld d, h
ld e, l
farcall LinkTextbox2
hlcoord 4, 10
ld de, String_PleaseWait
call PlaceString
call SetTradeRoomBGPals
call WaitBGMap2
ld hl, wLinkByteTimeout
assert LOW(SERIAL_LINK_BYTE_TIMEOUT) == 0
xor a ; LOW(SERIAL_LINK_BYTE_TIMEOUT)
ld [hli], a
ld [hl], HIGH(SERIAL_LINK_BYTE_TIMEOUT)
ld a, [wLinkMode]
cp LINK_TIMECAPSULE
jp nz, Gen2ToGen2LinkComms
Gen2ToGen1LinkComms:
call ClearLinkData
call Link_PrepPartyData_Gen1
call FixDataForLinkTransfer
xor a
ld [wPlayerLinkAction], a
call WaitLinkTransfer
ldh a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
jr nz, .player_1
ld c, 3
call DelayFrames
xor a
ldh [hSerialSend], a
ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
call DelayFrame
xor a
ldh [hSerialSend], a
ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
.player_1
ld de, MUSIC_NONE
call PlayMusic
vc_patch Wireless_net_delay_5
if DEF(_CRYSTAL11_VC)
ld c, 26
else
ld c, 3
endc
vc_patch_end
call DelayFrames
xor a
ldh [rIF], a
ld a, 1 << SERIAL
ldh [rIE], a
ld hl, wLinkBattleRNPreamble
ld de, wEnemyMon
ld bc, SERIAL_RN_PREAMBLE_LENGTH + SERIAL_RNS_LENGTH
vc_hook Wireless_ExchangeBytes_1
call Serial_ExchangeBytes
ld a, SERIAL_NO_DATA_BYTE
ld [de], a
ld hl, wLinkData
ld de, wOTPartyData
ld bc, SERIAL_PREAMBLE_LENGTH + NAME_LENGTH + 1 + PARTY_LENGTH + 1 + (REDMON_STRUCT_LENGTH + NAME_LENGTH * 2) * PARTY_LENGTH + 3
vc_hook Wireless_ExchangeBytes_2
call Serial_ExchangeBytes
ld a, SERIAL_NO_DATA_BYTE
ld [de], a
ld hl, wPlayerPatchLists
ld de, wOTPatchLists
ld bc, 200
vc_hook Wireless_ExchangeBytes_3_Gen2toGen1Fix
call Serial_ExchangeBytes
xor a
ldh [rIF], a
ld a, (1 << JOYPAD) | (1 << SERIAL) | (1 << TIMER) | (1 << VBLANK)
ldh [rIE], a
call Link_CopyRandomNumbers
ld hl, wOTPartyData
call Link_FindFirstNonControlCharacter_SkipZero
push hl
ld bc, NAME_LENGTH
add hl, bc
ld a, [hl]
pop hl
and a
jp z, ExitLinkCommunications
cp $7
jp nc, ExitLinkCommunications
ld de, wLinkData
ld bc, NAME_LENGTH + 1 + PARTY_LENGTH + 1 + (REDMON_STRUCT_LENGTH + NAME_LENGTH * 2) * PARTY_LENGTH + 3
call Link_CopyOTData
ld de, wOTPatchLists
ld hl, wLinkPatchList1
ld c, 2
.loop
ld a, [de]
inc de
and a
jr z, .loop
cp SERIAL_PREAMBLE_BYTE
jr z, .loop
cp SERIAL_NO_DATA_BYTE
jr z, .loop
cp SERIAL_PATCH_LIST_PART_TERMINATOR
jr z, .next
push hl
push bc
ld b, 0
dec a
ld c, a
add hl, bc
ld a, SERIAL_NO_DATA_BYTE
ld [hl], a
pop bc
pop hl
jr .loop
.next
ld hl, wLinkPatchList2
dec c
jr nz, .loop
ld hl, wLinkPlayerName
ld de, wOTPlayerName
ld bc, NAME_LENGTH
call CopyBytes
ld de, wOTPartyCount
ld a, [hli]
ld [de], a
inc de
.party_loop
ld a, [hli]
cp -1
jr z, .done_party
ld [wTempSpecies], a
push hl
push de
callfar ConvertMon_1to2
pop de
pop hl
ld a, [wTempSpecies]
ld [de], a
inc de
jr .party_loop
.done_party
ld [de], a
ld hl, wTimeCapsulePlayerData
call Link_ConvertPartyStruct1to2
ld a, LOW(wOTPartyMonOTs)
ld [wUnusedNamesPointer], a
ld a, HIGH(wOTPartyMonOTs)
ld [wUnusedNamesPointer + 1], a
ld de, MUSIC_NONE
call PlayMusic
ldh a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
ld c, 66
call z, DelayFrames
ld de, MUSIC_ROUTE_30
call PlayMusic
jp InitTradeMenuDisplay
Gen2ToGen2LinkComms:
call ClearLinkData
call Link_PrepPartyData_Gen2
call FixDataForLinkTransfer
call CheckLinkTimeout_Gen2
ld a, [wScriptVar]
and a
jp z, LinkTimeout
ldh a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
jr nz, .player_1
ld c, 3
call DelayFrames
xor a
ldh [hSerialSend], a
ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
call DelayFrame
xor a
ldh [hSerialSend], a
ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
.player_1
ld de, MUSIC_NONE
call PlayMusic
vc_patch Wireless_net_delay_8
if DEF(_CRYSTAL11_VC)
ld c, 26
else
ld c, 3
endc
vc_patch_end
call DelayFrames
xor a
ldh [rIF], a
ld a, 1 << SERIAL
ldh [rIE], a
ld hl, wLinkBattleRNPreamble
ld de, wEnemyMon
ld bc, SERIAL_RN_PREAMBLE_LENGTH + SERIAL_RNS_LENGTH
vc_hook Wireless_ExchangeBytes_4
call Serial_ExchangeBytes
ld a, SERIAL_NO_DATA_BYTE
ld [de], a
ld hl, wLinkData
ld de, wOTPartyData
ld bc, SERIAL_PREAMBLE_LENGTH + NAME_LENGTH + 1 + PARTY_LENGTH + 1 + 2 + (PARTYMON_STRUCT_LENGTH + NAME_LENGTH * 2) * PARTY_LENGTH + 3
vc_hook Wireless_ExchangeBytes_5
call Serial_ExchangeBytes
ld a, SERIAL_NO_DATA_BYTE
ld [de], a
ld hl, wPlayerPatchLists
ld de, wOTPatchLists
ld bc, 200
vc_hook Wireless_ExchangeBytes_6
call Serial_ExchangeBytes
ld a, [wLinkMode]
cp LINK_TRADECENTER
jr nz, .not_trading
ld hl, wLinkPlayerMail
ld de, wLinkOTMail
ld bc, wLinkPlayerMailEnd - wLinkPlayerMail
vc_hook Wireless_ExchangeBytes_7
call ExchangeBytes
.not_trading
xor a
ldh [rIF], a
ld a, (1 << JOYPAD) | (1 << SERIAL) | (1 << TIMER) | (1 << VBLANK)
ldh [rIE], a
ld de, MUSIC_NONE
call PlayMusic
call Link_CopyRandomNumbers
ld hl, wOTPartyData
call Link_FindFirstNonControlCharacter_SkipZero
ld de, wLinkData
ld bc, NAME_LENGTH + 1 + PARTY_LENGTH + 1 + 2 + (PARTYMON_STRUCT_LENGTH + NAME_LENGTH * 2) * PARTY_LENGTH
call Link_CopyOTData
ld de, wPlayerTrademon
ld hl, wLinkPatchList1
ld c, 2
.loop1
ld a, [de]
inc de
and a
jr z, .loop1
cp SERIAL_PREAMBLE_BYTE
jr z, .loop1
cp SERIAL_NO_DATA_BYTE
jr z, .loop1
cp SERIAL_PATCH_LIST_PART_TERMINATOR
jr z, .next1
push hl
push bc
ld b, 0
dec a
ld c, a
add hl, bc
ld a, SERIAL_NO_DATA_BYTE
ld [hl], a
pop bc
pop hl
jr .loop1
.next1
ld hl, wLinkPatchList2
dec c
jr nz, .loop1
ld a, [wLinkMode]
cp LINK_TRADECENTER
jp nz, .skip_mail
ld hl, wLinkOTMail
.loop2
ld a, [hli]
cp SERIAL_MAIL_PREAMBLE_BYTE
jr nz, .loop2
.loop3
ld a, [hli]
cp SERIAL_NO_DATA_BYTE
jr z, .loop3
cp SERIAL_MAIL_PREAMBLE_BYTE
jr z, .loop3
dec hl
ld de, wLinkOTMail
ld bc, wLinkDataEnd - wLinkOTMail ; should be wLinkOTMailEnd - wLinkOTMail
call CopyBytes
ld hl, wLinkOTMail
ld bc, (MAIL_MSG_LENGTH + 1) * PARTY_LENGTH
.loop4
ld a, [hl]
cp SERIAL_MAIL_REPLACEMENT_BYTE
jr nz, .okay1
ld [hl], SERIAL_NO_DATA_BYTE
.okay1
inc hl
dec bc
ld a, b
or c
jr nz, .loop4
ld de, wOTPlayerMailPatchSet
.loop5
ld a, [de]
inc de
cp SERIAL_PATCH_LIST_PART_TERMINATOR
jr z, .start_copying_mail
ld hl, wLinkOTMailMetadata
dec a
ld b, 0
ld c, a
add hl, bc
ld [hl], SERIAL_NO_DATA_BYTE
jr .loop5
.start_copying_mail
ld hl, wLinkOTMail
ld de, wLinkReceivedMail
ld b, PARTY_LENGTH
.copy_mail_loop
push bc
ld bc, MAIL_MSG_LENGTH + 1
call CopyBytes
ld a, LOW(MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1))
add e
ld e, a
ld a, HIGH(MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1))
adc d
ld d, a
pop bc
dec b
jr nz, .copy_mail_loop
ld de, wLinkReceivedMail
ld b, PARTY_LENGTH
.copy_author_loop
push bc
ld a, LOW(MAIL_MSG_LENGTH + 1)
add e
ld e, a
ld a, HIGH(MAIL_MSG_LENGTH + 1)
adc d
ld d, a
ld bc, MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1)
call CopyBytes
pop bc
dec b
jr nz, .copy_author_loop
ld b, PARTY_LENGTH
ld de, wLinkReceivedMail
.fix_mail_loop
push bc
push de
farcall IsMailEuropean
ld a, c
or a
jr z, .next
sub $3
jr nc, .skip
farcall ConvertEnglishMailToFrenchGerman
jr .next
.skip
cp $2
jr nc, .next
farcall ConvertEnglishMailToSpanishItalian
.next
pop de
ld hl, MAIL_STRUCT_LENGTH
add hl, de
ld d, h
ld e, l
pop bc
dec b
jr nz, .fix_mail_loop
ld de, wLinkReceivedMailEnd
xor a
ld [de], a
.skip_mail
ld hl, wLinkPlayerName
ld de, wOTPlayerName
ld bc, NAME_LENGTH
call CopyBytes
ld de, wOTPartyCount
ld bc, 1 + PARTY_LENGTH + 1
call CopyBytes
ld de, wOTPlayerID
ld bc, 2
call CopyBytes
ld de, wOTPartyMons
ld bc, wOTPartyDataEnd - wOTPartyMons
call CopyBytes
ld a, LOW(wOTPartyMonOTs)
ld [wUnusedNamesPointer], a
ld a, HIGH(wOTPartyMonOTs)
ld [wUnusedNamesPointer + 1], a
ld de, MUSIC_NONE
call PlayMusic
ldh a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
ld c, 66
call z, DelayFrames
ld a, [wLinkMode]
cp LINK_COLOSSEUM
jr nz, .ready_to_trade
ld a, CAL
ld [wOtherTrainerClass], a
call ClearScreen
farcall Link_WaitBGMap
ld hl, wOptions
ld a, [hl]
push af
and 1 << STEREO
or TEXT_DELAY_MED
ld [hl], a
ld hl, wOTPlayerName
ld de, wOTClassName
ld bc, NAME_LENGTH
call CopyBytes
call ReturnToMapFromSubmenu
ld a, [wDisableTextAcceleration]
push af
ld a, 1
ld [wDisableTextAcceleration], a
ldh a, [rIE]
push af
ldh a, [rIF]
push af
xor a
ldh [rIF], a
ldh a, [rIE]
set LCD_STAT, a
ldh [rIE], a
pop af
ldh [rIF], a
; LET'S DO THIS
predef StartBattle
ldh a, [rIF]
ld h, a
xor a
ldh [rIF], a
pop af
ldh [rIE], a
ld a, h
ldh [rIF], a
pop af
ld [wDisableTextAcceleration], a
pop af
ld [wOptions], a
farcall LoadPokemonData
jp ExitLinkCommunications
.ready_to_trade
ld de, MUSIC_ROUTE_30
call PlayMusic
jp InitTradeMenuDisplay
LinkTimeout:
ld de, .LinkTimeoutText
ld b, 10
.loop
call DelayFrame
call LinkDataReceived
dec b
jr nz, .loop
xor a
ld [hld], a
ld [hl], a
ldh [hVBlank], a
push de
hlcoord 0, 12
ld b, 4
ld c, 18
push de
ld d, h
ld e, l
farcall LinkTextbox2
pop de
pop hl
bccoord 1, 14
call PlaceHLTextAtBC
call RotateThreePalettesRight
call ClearScreen
ld b, SCGB_DIPLOMA
call GetSGBLayout
call WaitBGMap2
ret
.LinkTimeoutText:
text_far _LinkTimeoutText
text_end
ExchangeBytes:
; This is similar to Serial_ExchangeBytes,
; but without a SERIAL_PREAMBLE_BYTE check.
ld a, TRUE
ldh [hSerialIgnoringInitialData], a
.loop
ld a, [hl]
ldh [hSerialSend], a
call Serial_ExchangeByte
push bc
ld b, a
inc hl
ld a, 48
.wait
dec a
jr nz, .wait
ldh a, [hSerialIgnoringInitialData]
and a
ld a, b
pop bc
jr z, .load
dec hl
xor a
ldh [hSerialIgnoringInitialData], a
jr .loop
.load
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .loop
ret
String_PleaseWait:
db "PLEASE WAIT!@"
ClearLinkData:
ld hl, wLinkData
ld bc, wLinkDataEnd - wLinkData
.loop
xor a
ld [hli], a
dec bc
ld a, b
or c
jr nz, .loop
ret
FixDataForLinkTransfer:
ld hl, wLinkBattleRNPreamble
ld a, SERIAL_PREAMBLE_BYTE
ld b, SERIAL_RN_PREAMBLE_LENGTH
.preamble_loop
ld [hli], a
dec b
jr nz, .preamble_loop
assert wLinkBattleRNPreamble + SERIAL_RN_PREAMBLE_LENGTH == wLinkBattleRNs
ld b, SERIAL_RNS_LENGTH
.rn_loop
call Random
cp SERIAL_PREAMBLE_BYTE
jr nc, .rn_loop
ld [hli], a
dec b
jr nz, .rn_loop
ld hl, wPlayerPatchLists
ld a, SERIAL_PREAMBLE_BYTE
ld [hli], a
ld [hli], a
ld [hli], a
ld b, 200
xor a
.loop1
ld [hli], a
dec b
jr nz, .loop1
ld hl, (wLinkData + SERIAL_PREAMBLE_LENGTH + NAME_LENGTH + 1 + PARTY_LENGTH + 1) - 1
ld de, wPlayerPatchLists + 10 ; ???
lb bc, 0, 0
.loop2
inc c
ld a, c
cp SERIAL_PATCH_LIST_LENGTH + 1
jr z, .next1
ld a, b
dec a
jr nz, .next2
push bc
ld a, [wLinkMode]
cp LINK_TIMECAPSULE
ld b, REDMON_STRUCT_LENGTH * PARTY_LENGTH - SERIAL_PATCH_LIST_LENGTH + 1
jr z, .got_value
ld b, 2 + PARTYMON_STRUCT_LENGTH * PARTY_LENGTH - SERIAL_PATCH_LIST_LENGTH + 1
.got_value
ld a, c
cp b
pop bc
jr z, .done
.next2
inc hl
ld a, [hl]
cp SERIAL_NO_DATA_BYTE
jr nz, .loop2
ld a, c
ld [de], a
inc de
ld [hl], SERIAL_PATCH_REPLACEMENT_BYTE
jr .loop2
.next1
ld a, SERIAL_PATCH_LIST_PART_TERMINATOR
ld [de], a
inc de
lb bc, 1, 0
jr .loop2
.done
ld a, SERIAL_PATCH_LIST_PART_TERMINATOR
ld [de], a
ret
Link_PrepPartyData_Gen1:
ld de, wLinkData
ld a, SERIAL_PREAMBLE_BYTE
ld b, SERIAL_PREAMBLE_LENGTH
.loop1
ld [de], a
inc de
dec b
jr nz, .loop1
ld hl, wPlayerName
ld bc, NAME_LENGTH
call CopyBytes
push de
ld hl, wPartyCount
ld a, [hli]
ld [de], a
inc de
.loop2
ld a, [hli]
cp -1
jr z, .done_party
ld [wTempSpecies], a
push hl
push de
callfar ConvertMon_2to1
pop de
pop hl
ld a, [wTempSpecies]
ld [de], a
inc de
jr .loop2
.done_party
ld [de], a
pop de
ld hl, 1 + PARTY_LENGTH + 1
add hl, de
ld d, h
ld e, l
ld hl, wPartyMon1Species
ld c, PARTY_LENGTH
.mon_loop
push bc
call .ConvertPartyStruct2to1
ld bc, PARTYMON_STRUCT_LENGTH
add hl, bc
pop bc
dec c
jr nz, .mon_loop
ld hl, wPartyMonOTs
call .copy_ot_nicks
ld hl, wPartyMonNicknames
.copy_ot_nicks
ld bc, PARTY_LENGTH * NAME_LENGTH
jp CopyBytes
.ConvertPartyStruct2to1:
ld b, h
ld c, l
push de
push bc
ld a, [hl]
ld [wTempSpecies], a
callfar ConvertMon_2to1
pop bc
pop de
ld a, [wTempSpecies]
ld [de], a
inc de
ld hl, MON_HP
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, MON_STATUS
add hl, bc
ld a, [hl]
ld [de], a
inc de
ld a, [bc]
cp MAGNEMITE
jr z, .steel_type
cp MAGNETON
jr nz, .skip_steel
.steel_type
ld a, ELECTRIC
ld [de], a
inc de
ld [de], a
inc de
jr .done_steel
.skip_steel
push bc
dec a
ld hl, BaseData + BASE_TYPES
ld bc, BASE_DATA_SIZE
call AddNTimes
ld bc, BASE_CATCH_RATE - BASE_TYPES
ld a, BANK(BaseData)
call FarCopyBytes
pop bc
.done_steel
push bc
ld hl, MON_ITEM
add hl, bc
ld bc, MON_HAPPINESS - MON_ITEM
call CopyBytes
pop bc
ld hl, MON_LEVEL
add hl, bc
ld a, [hl]
ld [de], a
ld [wCurPartyLevel], a
inc de
push bc
ld hl, MON_MAXHP
add hl, bc
ld bc, MON_SAT - MON_MAXHP
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 [wBaseSpecialAttack], a
pop bc
ld hl, MON_STAT_EXP - 1
add hl, bc
ld c, STAT_SATK
ld b, TRUE
predef CalcMonStatC
pop bc
pop de
ldh a, [hQuotient + 2]
ld [de], a
inc de
ldh a, [hQuotient + 3]
ld [de], a
inc de
ld h, b
ld l, c
ret
Link_PrepPartyData_Gen2:
ld de, wLinkData
ld a, SERIAL_PREAMBLE_BYTE
ld b, SERIAL_PREAMBLE_LENGTH
.loop1
ld [de], a
inc de
dec b
jr nz, .loop1
ld hl, wPlayerName
ld bc, NAME_LENGTH
call CopyBytes
ld hl, wPartyCount
ld bc, 1 + PARTY_LENGTH + 1
call CopyBytes
ld hl, wPlayerID
ld bc, 2
call CopyBytes
ld hl, wPartyMon1Species
ld bc, PARTY_LENGTH * PARTYMON_STRUCT_LENGTH
call CopyBytes
ld hl, wPartyMonOTs
ld bc, PARTY_LENGTH * NAME_LENGTH
call CopyBytes
ld hl, wPartyMonNicknames
ld bc, PARTY_LENGTH * MON_NAME_LENGTH
call CopyBytes
; Okay, we did all that. Now, are we in the trade center?
ld a, [wLinkMode]
cp LINK_TRADECENTER
ret nz
; Fill 5 bytes at wLinkPlayerMailPreamble with $20
ld de, wLinkPlayerMailPreamble
ld a, SERIAL_MAIL_PREAMBLE_BYTE
call Link_CopyMailPreamble
; Copy all the mail messages to wLinkPlayerMailMessages
ld a, BANK(sPartyMail)
call OpenSRAM
ld hl, sPartyMail
ld b, PARTY_LENGTH
.loop2
push bc
ld bc, MAIL_MSG_LENGTH + 1
call CopyBytes
ld bc, MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1)
add hl, bc
pop bc
dec b
jr nz, .loop2
; Copy the mail data to wLinkPlayerMailMetadata
ld hl, sPartyMail
ld b, PARTY_LENGTH
.loop3
push bc
ld bc, MAIL_MSG_LENGTH + 1
add hl, bc
ld bc, MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1)
call CopyBytes
pop bc
dec b
jr nz, .loop3
ld b, PARTY_LENGTH
ld de, sPartyMail
ld hl, wLinkPlayerMailMessages
.loop4
push bc
push hl
push de
push hl
farcall IsMailEuropean
pop de
ld a, c
or a
jr z, .next
sub $3
jr nc, .italian_spanish
farcall ConvertFrenchGermanMailToEnglish
jr .next
.italian_spanish
cp $2
jr nc, .next
farcall ConvertSpanishItalianMailToEnglish
.next
pop de
ld hl, MAIL_STRUCT_LENGTH
add hl, de
ld d, h
ld e, l
pop hl
ld bc, MAIL_MSG_LENGTH + 1
add hl, bc
pop bc
dec b
jr nz, .loop4
call CloseSRAM
ld hl, wLinkPlayerMailMessages
ld bc, (MAIL_MSG_LENGTH + 1) * PARTY_LENGTH
.loop5
ld a, [hl]
cp SERIAL_NO_DATA_BYTE
jr nz, .skip2
ld [hl], SERIAL_MAIL_REPLACEMENT_BYTE
.skip2
inc hl
dec bc
ld a, b
or c
jr nz, .loop5
ld hl, wLinkPlayerMailMetadata
ld de, wLinkPlayerMailPatchSet
ld b, (MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1)) * PARTY_LENGTH
ld c, 0
.loop6
inc c
ld a, [hl]
cp SERIAL_NO_DATA_BYTE
jr nz, .skip3
ld [hl], SERIAL_PATCH_REPLACEMENT_BYTE
ld a, c
ld [de], a
inc de
.skip3
inc hl
dec b
jr nz, .loop6
ld a, SERIAL_PATCH_LIST_PART_TERMINATOR
ld [de], a
ret
Link_CopyMailPreamble:
; fill 5 bytes with the value of a, starting at de
ld c, SERIAL_MAIL_PREAMBLE_LENGTH
.loop
ld [de], a
inc de
dec c
jr nz, .loop
ret
Link_ConvertPartyStruct1to2:
push hl
ld d, h
ld e, l
ld bc, wLinkOTPartyMonTypes
ld hl, wCurLinkOTPartyMonTypePointer
ld a, c
ld [hli], a
ld [hl], b
ld hl, wOTPartyMon1Species
ld c, PARTY_LENGTH
.loop
push bc
call .ConvertToGen2
pop bc
dec c
jr nz, .loop
pop hl
ld bc, PARTY_LENGTH * REDMON_STRUCT_LENGTH
add hl, bc
ld de, wOTPartyMonOTs
ld bc, PARTY_LENGTH * NAME_LENGTH
call CopyBytes
ld de, wOTPartyMonNicknames
ld bc, PARTY_LENGTH * MON_NAME_LENGTH
jp CopyBytes
.ConvertToGen2:
ld b, h
ld c, l
ld a, [de]
inc de
push bc
push de
ld [wTempSpecies], a
callfar ConvertMon_1to2
pop de
pop bc
ld a, [wTempSpecies]
ld [bc], a
ld [wCurSpecies], a
ld hl, MON_HP
add hl, bc
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hl], a
inc de
ld hl, MON_STATUS
add hl, bc
ld a, [de]
inc de
ld [hl], a
ld hl, wCurLinkOTPartyMonTypePointer
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 [wCurLinkOTPartyMonTypePointer], a
ld a, h
ld [wCurLinkOTPartyMonTypePointer + 1], a
push bc
ld hl, MON_ITEM
add hl, bc
push hl
ld h, d
ld l, e
pop de
push bc
ld a, [hli]
ld b, a
call TimeCapsule_ReplaceTeruSama
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 [wCurPartyLevel], 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, MON_STAT_EXP - 1
add hl, bc
ld c, STAT_SATK
ld b, TRUE
predef CalcMonStatC
pop bc
pop hl
ldh a, [hQuotient + 2]
ld [hli], a
ldh a, [hQuotient + 3]
ld [hli], a
push hl
push bc
ld hl, MON_STAT_EXP - 1
add hl, bc
ld c, STAT_SDEF
ld b, TRUE
predef CalcMonStatC
pop bc
pop hl
ldh a, [hQuotient + 2]
ld [hli], a
ldh a, [hQuotient + 3]
ld [hli], a
push hl
ld hl, $1b
add hl, bc
ld a, $46
ld [hli], a
xor a
ld [hli], a
ld [hli], a
ld [hl], a
pop hl
inc de
inc de
ret
TimeCapsule_ReplaceTeruSama:
ld a, b
and a
ret z
push hl
ld hl, TimeCapsule_CatchRateItems
.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
INCLUDE "data/items/catch_rate_items.asm"
Link_CopyOTData:
.loop
ld a, [hli]
cp SERIAL_NO_DATA_BYTE
jr z, .loop
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .loop
ret
Link_CopyRandomNumbers:
ldh a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
ret z
ld hl, wEnemyMonSpecies
call Link_FindFirstNonControlCharacter_AllowZero
ld de, wLinkBattleRNs
ld c, 10
.loop
ld a, [hli]
cp SERIAL_NO_DATA_BYTE
jr z, .loop
cp SERIAL_PREAMBLE_BYTE
jr z, .loop
ld [de], a
inc de
dec c
jr nz, .loop
ret
Link_FindFirstNonControlCharacter_SkipZero:
.loop
ld a, [hli]
and a
jr z, .loop
cp SERIAL_PREAMBLE_BYTE
jr z, .loop
cp SERIAL_NO_DATA_BYTE
jr z, .loop
dec hl
ret
Link_FindFirstNonControlCharacter_AllowZero:
.loop
ld a, [hli]
cp SERIAL_PREAMBLE_BYTE
jr z, .loop
cp SERIAL_NO_DATA_BYTE
jr z, .loop
dec hl
ret
InitTradeMenuDisplay:
call ClearScreen
call LoadTradeScreenBorderGFX
farcall InitTradeSpeciesList
xor a
ld hl, wOtherPlayerLinkMode
ld [hli], a
ld [hli], a
ld [hli], a
ld [hl], a
ld a, 1
ld [wMenuCursorY], a
inc a
ld [wPlayerLinkAction], a
jp LinkTrade_PlayerPartyMenu
LinkTrade_OTPartyMenu:
ld a, OTPARTYMON
ld [wMonType], a
ld a, A_BUTTON | D_UP | D_DOWN
ld [wMenuJoypadFilter], a
ld a, [wOTPartyCount]
ld [w2DMenuNumRows], a
ld a, 1
ld [w2DMenuNumCols], a
ld a, 9
ld [w2DMenuCursorInitY], a
ld a, 6
ld [w2DMenuCursorInitX], a
ld a, 1
ld [wMenuCursorX], a
ln a, 1, 0
ld [w2DMenuCursorOffsets], a
ld a, MENU_UNUSED_3
ld [w2DMenuFlags1], a
xor a
ld [w2DMenuFlags2], a
LinkTradeOTPartymonMenuLoop:
farcall LinkTradeMenu
ld a, d
and a
jp z, LinkTradePartiesMenuMasterLoop
bit A_BUTTON_F, a
jr z, .not_a_button
ld a, INIT_ENEMYOT_LIST
ld [wInitListType], a
callfar InitList
ld hl, wOTPartyMon1Species
farcall LinkMonStatsScreen
jp LinkTradePartiesMenuMasterLoop
.not_a_button
bit D_UP_F, a
jr z, .not_d_up
ld a, [wMenuCursorY]
ld b, a
ld a, [wOTPartyCount]
cp b
jp nz, LinkTradePartiesMenuMasterLoop
xor a
ld [wMonType], a
call HideCursor
push hl
push bc
ld bc, NAME_LENGTH
add hl, bc
ld [hl], " "
pop bc
pop hl
ld a, [wPartyCount]
ld [wMenuCursorY], a
jr LinkTrade_PlayerPartyMenu
.not_d_up
bit D_DOWN_F, a
jp z, LinkTradePartiesMenuMasterLoop
jp LinkTradeOTPartymonMenuCheckCancel
LinkTrade_PlayerPartyMenu:
farcall InitMG_Mobile_LinkTradePalMap
xor a
ld [wMonType], a
ld a, A_BUTTON | D_UP | D_DOWN
ld [wMenuJoypadFilter], a
ld a, [wPartyCount]
ld [w2DMenuNumRows], a
ld a, 1
ld [w2DMenuNumCols], a
ld a, 1
ld [w2DMenuCursorInitY], a
ld a, 6
ld [w2DMenuCursorInitX], a
ld a, 1
ld [wMenuCursorX], a
ln a, 1, 0
ld [w2DMenuCursorOffsets], a
ld a, MENU_UNUSED_3
ld [w2DMenuFlags1], a
xor a
ld [w2DMenuFlags2], a
call WaitBGMap2
LinkTradePartymonMenuLoop:
farcall LinkTradeMenu
ld a, d
and a
jr nz, .check_joypad
jp LinkTradePartiesMenuMasterLoop
.check_joypad
bit A_BUTTON_F, a
jr z, .not_a_button
jp LinkTrade_TradeStatsMenu
.not_a_button
bit D_DOWN_F, a
jr z, .not_d_down
ld a, [wMenuCursorY]
dec a
jp nz, LinkTradePartiesMenuMasterLoop
ld a, OTPARTYMON
ld [wMonType], a
call HideCursor
push hl
push bc
ld bc, NAME_LENGTH
add hl, bc
ld [hl], " "
pop bc
pop hl
ld a, 1
ld [wMenuCursorY], a
jp LinkTrade_OTPartyMenu
.not_d_down
bit D_UP_F, a
jr z, LinkTradePartiesMenuMasterLoop
ld a, [wMenuCursorY]
ld b, a
ld a, [wPartyCount]
cp b
jr nz, LinkTradePartiesMenuMasterLoop
call HideCursor
push hl
push bc
ld bc, NAME_LENGTH
add hl, bc
ld [hl], " "
pop bc
pop hl
jp LinkTradePartymonMenuCheckCancel
LinkTradePartiesMenuMasterLoop:
ld a, [wMonType]
and a
jp z, LinkTradePartymonMenuLoop ; PARTYMON
jp LinkTradeOTPartymonMenuLoop ; OTPARTYMON
LinkTrade_TradeStatsMenu:
call LoadTilemapToTempTilemap
ld a, [wMenuCursorY]
push af
hlcoord 0, 15
ld b, 1
ld c, 18
call LinkTextboxAtHL
hlcoord 2, 16
ld de, .String_Stats_Trade
call PlaceString
farcall Link_WaitBGMap
.joy_loop
ld a, " "
ldcoord_a 11, 16
ld a, A_BUTTON | B_BUTTON | D_RIGHT
ld [wMenuJoypadFilter], a
ld a, 1
ld [w2DMenuNumRows], a
ld a, 1
ld [w2DMenuNumCols], a
ld a, 16
ld [w2DMenuCursorInitY], a
ld a, 1
ld [w2DMenuCursorInitX], a
ld a, 1
ld [wMenuCursorY], a
ld [wMenuCursorX], a
ln a, 2, 0
ld [w2DMenuCursorOffsets], a
xor a
ld [w2DMenuFlags1], a
ld [w2DMenuFlags2], a
call ScrollingMenuJoypad
bit D_RIGHT_F, a
jr nz, .d_right
bit B_BUTTON_F, a
jr z, .show_stats
.b_button
pop af
ld [wMenuCursorY], a
call SafeLoadTempTilemapToTilemap
jp LinkTrade_PlayerPartyMenu
.d_right
ld a, " "
ldcoord_a 1, 16
ld a, A_BUTTON | B_BUTTON | D_LEFT
ld [wMenuJoypadFilter], a
ld a, 1
ld [w2DMenuNumRows], a
ld a, 1
ld [w2DMenuNumCols], a
ld a, 16
ld [w2DMenuCursorInitY], a
ld a, 11
ld [w2DMenuCursorInitX], a
ld a, 1
ld [wMenuCursorY], a
ld [wMenuCursorX], a
ln a, 2, 0
ld [w2DMenuCursorOffsets], a
xor a
ld [w2DMenuFlags1], a
ld [w2DMenuFlags2], a
call ScrollingMenuJoypad
bit D_LEFT_F, a
jp nz, .joy_loop
bit B_BUTTON_F, a
jr nz, .b_button
jr .try_trade
.show_stats
pop af
ld [wMenuCursorY], a
ld a, INIT_PLAYEROT_LIST
ld [wInitListType], a
callfar InitList
farcall LinkMonStatsScreen
call SafeLoadTempTilemapToTilemap
hlcoord 6, 1
lb bc, 6, 1
ld a, " "
call LinkEngine_FillBox
hlcoord 17, 1
lb bc, 6, 1
ld a, " "
call LinkEngine_FillBox
jp LinkTrade_PlayerPartyMenu
.try_trade
call PlaceHollowCursor
pop af
ld [wMenuCursorY], a
dec a
ld [wCurTradePartyMon], a
ld [wPlayerLinkAction], a
farcall PrintWaitingTextAndSyncAndExchangeNybble
ld a, [wOtherPlayerLinkMode]
cp $f
jp z, InitTradeMenuDisplay
ld [wCurOTTradePartyMon], a
call LinkTradePlaceArrow
ld c, 100
call DelayFrames
farcall ValidateOTTrademon
jr c, .abnormal
farcall CheckAnyOtherAliveMonsForTrade
jp nc, LinkTrade
xor a
ld [wUnusedLinkAction], a
ld [wOtherPlayerLinkAction], a
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
farcall Link_WaitBGMap
ld hl, .LinkTradeCantBattleText
bccoord 1, 14
call PlaceHLTextAtBC
jr .cancel_trade
.abnormal
xor a
ld [wUnusedLinkAction], a
ld [wOtherPlayerLinkAction], a
ld a, [wCurOTTradePartyMon]
ld hl, wOTPartySpecies
ld c, a
ld b, 0
add hl, bc
ld a, [hl]
ld [wNamedObjectIndex], a
call GetPokemonName
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
farcall Link_WaitBGMap
ld hl, .LinkAbnormalMonText
bccoord 1, 14
call PlaceHLTextAtBC
.cancel_trade
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
hlcoord 1, 14
ld de, String_TooBadTheTradeWasCanceled
call PlaceString
ld a, $1
ld [wPlayerLinkAction], a
farcall PrintWaitingTextAndSyncAndExchangeNybble
ld c, 100
call DelayFrames
jp InitTradeMenuDisplay
.LinkTradeCantBattleText:
text_far _LinkTradeCantBattleText
text_end
.String_Stats_Trade:
db "STATS TRADE@"
.LinkAbnormalMonText:
text_far _LinkAbnormalMonText
text_end
LinkTradeOTPartymonMenuCheckCancel:
ld a, [wMenuCursorY]
cp 1
jp nz, LinkTradePartiesMenuMasterLoop
call HideCursor
push hl
push bc
ld bc, NAME_LENGTH
add hl, bc
ld [hl], " "
pop bc
pop hl
; fallthrough
LinkTradePartymonMenuCheckCancel:
.loop1
ld a, "▶"
ldcoord_a 9, 17
.loop2
call JoyTextDelay
ldh a, [hJoyLast]
and a
jr z, .loop2
bit A_BUTTON_F, a
jr nz, .a_button
push af
ld a, " "
ldcoord_a 9, 17
pop af
bit D_UP_F, a
jr z, .d_up
ld a, [wOTPartyCount]
ld [wMenuCursorY], a
jp LinkTrade_OTPartyMenu
.d_up
ld a, $1
ld [wMenuCursorY], a
jp LinkTrade_PlayerPartyMenu
.a_button
ld a, "▷"
ldcoord_a 9, 17
ld a, $f
ld [wPlayerLinkAction], a
farcall PrintWaitingTextAndSyncAndExchangeNybble
ld a, [wOtherPlayerLinkMode]
cp $f
jr nz, .loop1
; fallthrough
ExitLinkCommunications:
call RotateThreePalettesRight
call ClearScreen
ld b, SCGB_DIPLOMA
call GetSGBLayout
call WaitBGMap2
xor a
ld [wUnusedLinkCommunicationByte], a
xor a
ldh [rSB], a
ldh [hSerialSend], a
ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
vc_hook ExitLinkCommunications_ret
ret
GSPlaceTradeScreenFooter: ; unreferenced
; Fill the screen footer with pattern tile
hlcoord 0, 16
ld a, $7e
ld bc, 2 * SCREEN_WIDTH
call ByteFill
; Clear out area for cancel string
hlcoord 1, 16
ld a, " "
ld bc, SCREEN_WIDTH - 2
call ByteFill
; Place the string
hlcoord 2, 16
ld de, .CancelString
jp PlaceString
.CancelString:
db "CANCEL@"
LinkTradePlaceArrow:
; Indicates which pokemon the other player has selected to trade
ld a, [wOtherPlayerLinkMode]
hlcoord 6, 9
ld bc, SCREEN_WIDTH
call AddNTimes
ld [hl], "▷"
ret
LinkEngine_FillBox:
.row
push bc
push hl
.col
ld [hli], a
dec c
jr nz, .col
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .row
ret
LinkTrade:
xor a
ld [wUnusedLinkAction], a
ld [wOtherPlayerLinkAction], a
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
farcall Link_WaitBGMap
ld a, [wCurTradePartyMon]
ld hl, wPartySpecies
ld c, a
ld b, 0
add hl, bc
ld a, [hl]
ld [wNamedObjectIndex], a
call GetPokemonName
ld hl, wStringBuffer1
ld de, wBufferTrademonNickname
ld bc, MON_NAME_LENGTH
call CopyBytes
ld a, [wCurOTTradePartyMon]
ld hl, wOTPartySpecies
ld c, a
ld b, 0
add hl, bc
ld a, [hl]
ld [wNamedObjectIndex], a
call GetPokemonName
ld hl, LinkAskTradeForText
bccoord 1, 14
call PlaceHLTextAtBC
call LoadStandardMenuHeader
hlcoord 10, 7
ld b, 3
ld c, 7
call LinkTextboxAtHL
ld de, String_TradeCancel
hlcoord 12, 8
call PlaceString
ld a, 8
ld [w2DMenuCursorInitY], a
ld a, 11
ld [w2DMenuCursorInitX], a
ld a, 1
ld [w2DMenuNumCols], a
ld a, 2
ld [w2DMenuNumRows], a
xor a
ld [w2DMenuFlags1], a
ld [w2DMenuFlags2], a
ld a, $20
ld [w2DMenuCursorOffsets], a
ld a, A_BUTTON | B_BUTTON
ld [wMenuJoypadFilter], a
ld a, 1
ld [wMenuCursorY], a
ld [wMenuCursorX], a
farcall Link_WaitBGMap
call ScrollingMenuJoypad
push af
call Call_ExitMenu
call WaitBGMap2
pop af
bit 1, a
jr nz, .canceled
ld a, [wMenuCursorY]
dec a
jr z, .try_trade
.canceled
ld a, $1
ld [wPlayerLinkAction], a
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
hlcoord 1, 14
ld de, String_TooBadTheTradeWasCanceled
call PlaceString
farcall PrintWaitingTextAndSyncAndExchangeNybble
jp InitTradeMenuDisplay_Delay
.try_trade
ld a, $2
ld [wPlayerLinkAction], a
farcall PrintWaitingTextAndSyncAndExchangeNybble
ld a, [wOtherPlayerLinkMode]
dec a
jr nz, .do_trade
; If we're here, the other player canceled the trade
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
hlcoord 1, 14
ld de, String_TooBadTheTradeWasCanceled
call PlaceString
jp InitTradeMenuDisplay_Delay
.do_trade
ld hl, sPartyMail
ld a, [wCurTradePartyMon]
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld a, BANK(sPartyMail)
call OpenSRAM
ld d, h
ld e, l
ld bc, MAIL_STRUCT_LENGTH
add hl, bc
ld a, [wCurTradePartyMon]
ld c, a
.copy_mail
inc c
ld a, c
cp PARTY_LENGTH
jr z, .copy_player_data
push bc
ld bc, MAIL_STRUCT_LENGTH
call CopyBytes
pop bc
jr .copy_mail
.copy_player_data
ld hl, sPartyMail
ld a, [wPartyCount]
dec a
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
push hl
ld hl, wLinkPlayerMail
ld a, [wCurOTTradePartyMon]
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
pop de
ld bc, MAIL_STRUCT_LENGTH
call CopyBytes
call CloseSRAM
; Buffer player data
; nickname
ld hl, wPlayerName
ld de, wPlayerTrademonSenderName
ld bc, NAME_LENGTH
call CopyBytes
; species
ld a, [wCurTradePartyMon]
ld hl, wPartySpecies
ld b, 0
ld c, a
add hl, bc
ld a, [hl]
ld [wPlayerTrademonSpecies], a
push af
; OT name
ld a, [wCurTradePartyMon]
ld hl, wPartyMonOTs
call SkipNames
ld de, wPlayerTrademonOTName
ld bc, NAME_LENGTH
call CopyBytes
; ID
ld hl, wPartyMon1ID
ld a, [wCurTradePartyMon]
call GetPartyLocation
ld a, [hli]
ld [wPlayerTrademonID], a
ld a, [hl]
ld [wPlayerTrademonID + 1], a
; DVs
ld hl, wPartyMon1DVs
ld a, [wCurTradePartyMon]
call GetPartyLocation
ld a, [hli]
ld [wPlayerTrademonDVs], a
ld a, [hl]
ld [wPlayerTrademonDVs + 1], a
; caught data
ld a, [wCurTradePartyMon]
ld hl, wPartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
farcall GetCaughtGender
ld a, c
ld [wPlayerTrademonCaughtData], a
; Buffer other player data
; nickname
ld hl, wOTPlayerName
ld de, wOTTrademonSenderName
ld bc, NAME_LENGTH
call CopyBytes
; species
ld a, [wCurOTTradePartyMon]
ld hl, wOTPartySpecies
ld b, 0
ld c, a
add hl, bc
ld a, [hl]
ld [wOTTrademonSpecies], a
; OT name
ld a, [wCurOTTradePartyMon]
ld hl, wOTPartyMonOTs
call SkipNames
ld de, wOTTrademonOTName
ld bc, NAME_LENGTH
call CopyBytes
; ID
ld hl, wOTPartyMon1ID
ld a, [wCurOTTradePartyMon]
call GetPartyLocation
ld a, [hli]
ld [wOTTrademonID], a
ld a, [hl]
ld [wOTTrademonID + 1], a
; DVs
ld hl, wOTPartyMon1DVs
ld a, [wCurOTTradePartyMon]
call GetPartyLocation
ld a, [hli]
ld [wOTTrademonDVs], a
ld a, [hl]
ld [wOTTrademonDVs + 1], a
; caught data
ld a, [wCurOTTradePartyMon]
ld hl, wOTPartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
farcall GetCaughtGender
ld a, c
ld [wOTTrademonCaughtData], a
ld a, [wCurTradePartyMon]
ld [wCurPartyMon], a
ld hl, wPartySpecies
ld b, 0
ld c, a
add hl, bc
ld a, [hl]
ld [wCurTradePartyMon], a
xor a ; REMOVE_PARTY
ld [wPokemonWithdrawDepositParameter], a
callfar RemoveMonFromPartyOrBox
ld a, [wPartyCount]
dec a
ld [wCurPartyMon], a
ld a, TRUE
ld [wForceEvolution], a
ld a, [wCurOTTradePartyMon]
push af
ld hl, wOTPartySpecies
ld b, 0
ld c, a
add hl, bc
ld a, [hl]
ld [wCurOTTradePartyMon], a
ld c, 100
call DelayFrames
call ClearTilemap
call LoadFontsBattleExtra
ld b, SCGB_DIPLOMA
call GetSGBLayout
ldh a, [hSerialConnectionStatus]
cp USING_EXTERNAL_CLOCK
jr z, .player_2
predef TradeAnimation
jr .done_animation
.player_2
predef TradeAnimationPlayer2
.done_animation
pop af
ld c, a
ld [wCurPartyMon], a
ld hl, wOTPartySpecies
ld d, 0
ld e, a
add hl, de
ld a, [hl]
ld [wCurPartySpecies], a
ld hl, wOTPartyMon1Species
ld a, c
call GetPartyLocation
ld de, wTempMonSpecies
ld bc, PARTYMON_STRUCT_LENGTH
call CopyBytes
predef AddTempmonToParty
ld a, [wPartyCount]
dec a
ld [wCurPartyMon], a
callfar EvolvePokemon
call ClearScreen
call LoadTradeScreenBorderGFX
call SetTradeRoomBGPals
farcall Link_WaitBGMap
; Check if either of the Pokémon sent was a Mew or Celebi, and send a different
; byte depending on that. Presumably this would've been some prevention against
; illicit trade machines, but it doesn't seem like a very effective one.
; Removing this code breaks link compatibility with the vanilla gen2 games, but
; has otherwise no consequence.
ld b, 1
pop af
ld c, a
cp MEW
jr z, .send_checkbyte
ld a, [wCurPartySpecies]
cp MEW
jr z, .send_checkbyte
ld b, 2
ld a, c
cp CELEBI
jr z, .send_checkbyte
ld a, [wCurPartySpecies]
cp CELEBI
jr z, .send_checkbyte
; Send the byte in a loop until the desired byte has been received.
ld b, 0
.send_checkbyte
ld a, b
ld [wPlayerLinkAction], a
push bc
call Serial_PrintWaitingTextAndSyncAndExchangeNybble
pop bc
ld a, [wLinkMode]
cp LINK_TIMECAPSULE
jr z, .save
ld a, b
and a
jr z, .save
ld a, [wOtherPlayerLinkAction]
cp b
jr nz, .send_checkbyte
.save
farcall SaveAfterLinkTrade
farcall StubbedTrainerRankings_Trades
farcall BackupMobileEventIndex
ld c, 40
call DelayFrames
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
hlcoord 1, 14
ld de, String_TradeCompleted
call PlaceString
farcall Link_WaitBGMap
vc_hook Trade_save_game_end
ld c, 50
call DelayFrames
ld a, [wLinkMode]
cp LINK_TIMECAPSULE
jp z, Gen2ToGen1LinkComms
jp Gen2ToGen2LinkComms
InitTradeMenuDisplay_Delay:
ld c, 100
call DelayFrames
jp InitTradeMenuDisplay
String_TradeCancel:
db "TRADE"
next "CANCEL@"
LinkAskTradeForText:
text_far _LinkAskTradeForText
text_end
String_TradeCompleted:
db "Trade completed!@"
String_TooBadTheTradeWasCanceled:
db "Too bad! The trade"
next "was canceled!@"
LinkTextboxAtHL:
ld d, h
ld e, l
farcall LinkTextbox
ret
LoadTradeScreenBorderGFX:
farcall _LoadTradeScreenBorderGFX
ret
SetTradeRoomBGPals:
farcall LoadTradeRoomBGPals ; just a nested farcall; so wasteful
call SetPalettes
ret
PlaceTradeScreenTextbox: ; unreferenced
hlcoord 0, 0
ld b, 6
ld c, 18
call LinkTextboxAtHL
hlcoord 0, 8
ld b, 6
ld c, 18
call LinkTextboxAtHL
farcall PlaceTradePartnerNamesAndParty
ret
INCLUDE "engine/movie/trade_animation.asm"
CheckTimeCapsuleCompatibility:
; Checks to see if your party is compatible with the Gen 1 games.
; Returns the following in wScriptVar:
; 0: Party is okay
; 1: At least one Pokémon was introduced in Gen 2
; 2: At least one Pokémon has a move that was introduced in Gen 2
; 3: At least one Pokémon is holding mail
; If any party Pokémon was introduced in the Gen 2 games, don't let it in.
ld hl, wPartySpecies
ld b, PARTY_LENGTH
.loop
ld a, [hli]
cp -1
jr z, .checkitem
cp JOHTO_POKEMON
jr nc, .mon_too_new
dec b
jr nz, .loop
; If any party Pokémon is holding mail, don't let it in.
.checkitem
ld a, [wPartyCount]
ld b, a
ld hl, wPartyMon1Item
.itemloop
push hl
push bc
ld d, [hl]
farcall 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 Pokémon has a move that was introduced in the Gen 2 games, don't let it in.
ld hl, wPartyMon1Moves
ld a, [wPartyCount]
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, PARTYMON_STRUCT_LENGTH - NUM_MOVES
add hl, de
dec b
jr nz, .move_loop
xor a
jr .done
.mon_too_new
ld [wNamedObjectIndex], a
call GetPokemonName
ld a, $1
jr .done
.move_too_new
push bc
ld [wNamedObjectIndex], a
call GetMoveName
call CopyName1
pop bc
call GetIncompatibleMonName
ld a, $2
jr .done
.mon_has_mail
call GetIncompatibleMonName
ld a, $3
.done
ld [wScriptVar], a
ret
GetIncompatibleMonName:
; Calulate which pokemon is incompatible, and get that pokemon's name
ld a, [wPartyCount]
sub b
ld c, a
inc c
ld b, 0
ld hl, wPartyCount
add hl, bc
ld a, [hl]
ld [wNamedObjectIndex], a
call GetPokemonName
ret
EnterTimeCapsule:
vc_patch Wireless_net_delay_6
if DEF(_CRYSTAL11_VC)
ld c, 26
else
ld c, 10
endc
vc_patch_end
call DelayFrames
ld a, $4
call Link_EnsureSync
ld c, 40
call DelayFrames
xor a
ldh [hVBlank], a
inc a ; LINK_TIMECAPSULE
ld [wLinkMode], a
ret
WaitForOtherPlayerToExit:
ld c, 3
call DelayFrames
ld a, CONNECTION_NOT_ESTABLISHED
ldh [hSerialConnectionStatus], a
xor a
ldh [rSB], a
ldh [hSerialReceive], a
ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
ld c, 3
call DelayFrames
xor a
ldh [rSB], a
ldh [hSerialReceive], a
ld a, (0 << rSC_ON) | (0 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (0 << rSC_CLOCK)
ldh [rSC], a
ld c, 3
call DelayFrames
xor a
ldh [rSB], a
ldh [hSerialReceive], a
ldh [rSC], a
ld c, 3
call DelayFrames
ld a, CONNECTION_NOT_ESTABLISHED
ldh [hSerialConnectionStatus], a
ldh a, [rIF]
push af
xor a
ldh [rIF], a
ld a, IE_DEFAULT
ldh [rIE], a
pop af
ldh [rIF], a
ld hl, wLinkTimeoutFrames
xor a
ld [hli], a
ld [hl], a
ldh [hVBlank], a
ld [wLinkMode], a
vc_hook Wireless_term_exit
ret
SetBitsForLinkTradeRequest:
ld a, LINK_TRADECENTER - 1
ld [wPlayerLinkAction], a
ld [wChosenCableClubRoom], a
ret
SetBitsForBattleRequest:
ld a, LINK_COLOSSEUM - 1
ld [wPlayerLinkAction], a
ld [wChosenCableClubRoom], a
ret
SetBitsForTimeCapsuleRequest:
ld a, USING_INTERNAL_CLOCK
ldh [rSB], a
xor a
ldh [hSerialReceive], a
ld a, (0 << rSC_ON) | (0 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (0 << rSC_CLOCK)
ldh [rSC], a
xor a ; LINK_TIMECAPSULE - 1
ld [wPlayerLinkAction], a
ld [wChosenCableClubRoom], a
ret
WaitForLinkedFriend:
ld a, [wPlayerLinkAction]
and a
jr z, .no_link_action
ld a, USING_INTERNAL_CLOCK
ldh [rSB], a
xor a
ldh [hSerialReceive], a
ld a, (0 << rSC_ON) | (0 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (0 << rSC_CLOCK)
ldh [rSC], a
call DelayFrame
call DelayFrame
call DelayFrame
.no_link_action
ld a, $2
ld [wLinkTimeoutFrames + 1], a
ld a, $ff
ld [wLinkTimeoutFrames], a
.loop
ldh a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
jr z, .connected
cp USING_EXTERNAL_CLOCK
jr z, .connected
ld a, CONNECTION_NOT_ESTABLISHED
ldh [hSerialConnectionStatus], a
ld a, USING_INTERNAL_CLOCK
ldh [rSB], a
xor a
ldh [hSerialReceive], a
ld a, (0 << rSC_ON) | (0 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (0 << rSC_CLOCK)
; This vc_hook causes the Virtual Console to set [hSerialConnectionStatus] to
; USING_INTERNAL_CLOCK, which allows the player to proceed past the link
; receptionist's "Please wait." It assumes that hSerialConnectionStatus is at
; its original address.
vc_hook Link_fake_connection_status
vc_assert hSerialConnectionStatus == $ffcb, \
"hSerialConnectionStatus is no longer located at 00:ffcb."
vc_assert USING_INTERNAL_CLOCK == $02, \
"USING_INTERNAL_CLOCK is no longer equal to $02."
ldh [rSC], a
ld a, [wLinkTimeoutFrames]
dec a
ld [wLinkTimeoutFrames], a
jr nz, .not_done
ld a, [wLinkTimeoutFrames + 1]
dec a
ld [wLinkTimeoutFrames + 1], a
jr z, .done
.not_done
ld a, USING_EXTERNAL_CLOCK
ldh [rSB], a
ld a, (0 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
ld a, (1 << rSC_ON) | (1 << rSC_CLOCK)
ldh [rSC], a
call DelayFrame
jr .loop
.connected
call LinkDataReceived
call DelayFrame
call LinkDataReceived
ld c, 50
call DelayFrames
ld a, $1
ld [wScriptVar], a
ret
.done
xor a
ld [wScriptVar], a
ret
CheckLinkTimeout_Receptionist:
ld a, $1
ld [wPlayerLinkAction], a
ld hl, wLinkTimeoutFrames
ld a, 3
ld [hli], a
xor a
ld [hl], a
call WaitBGMap
ld a, $2
ldh [hVBlank], a
call DelayFrame
call DelayFrame
call Link_CheckCommunicationError
xor a
ldh [hVBlank], a
ld a, [wScriptVar]
and a
ret nz
jp Link_ResetSerialRegistersAfterLinkClosure
CheckLinkTimeout_Gen2:
; if wScriptVar = 0 on exit, link connection is closed
ld a, $5
ld [wPlayerLinkAction], a
ld hl, wLinkTimeoutFrames
ld a, 3
ld [hli], a
xor a
ld [hl], a
call WaitBGMap
ld a, $2
ldh [hVBlank], a
call DelayFrame
call DelayFrame
call Link_CheckCommunicationError
ld a, [wScriptVar]
and a
jr z, .exit
; Wait for ~$70000 cycles to give the other GB time to be ready
ld bc, $ffff
.wait
dec bc
ld a, b
or c
jr nz, .wait
; If other GB is not ready at this point, disconnect due to timeout
ld a, [wOtherPlayerLinkMode]
cp $5
jr nz, .timeout
; Another check to increase reliability
ld a, $6
ld [wPlayerLinkAction], a
ld hl, wLinkTimeoutFrames
vc_patch Wireless_net_delay_9
if DEF(_CRYSTAL11_VC)
ld a, $3
else
ld a, 1
endc
vc_patch_end
ld [hli], a
ld [hl], 50
call Link_CheckCommunicationError
ld a, [wOtherPlayerLinkMode]
cp $6
jr z, .exit
.timeout
xor a
ld [wScriptVar], a
ret
.exit
xor a
ldh [hVBlank], a
ret
Link_CheckCommunicationError:
xor a
ldh [hSerialReceivedNewData], a
vc_hook Wireless_prompt
ld a, [wLinkTimeoutFrames]
ld h, a
ld a, [wLinkTimeoutFrames + 1]
ld l, a
push hl
call .CheckConnected
pop hl
jr nz, .load_true
call .AcknowledgeSerial
call .ConvertDW
call .CheckConnected
jr nz, .load_true
call .AcknowledgeSerial
xor a ; FALSE
jr .done
.load_true
ld a, TRUE
.done
ld [wScriptVar], a
ld hl, wLinkTimeoutFrames
xor a
ld [hli], a
ld [hl], a
ret
.CheckConnected:
call WaitLinkTransfer
ld hl, wLinkTimeoutFrames
vc_hook Wireless_net_recheck
ld a, [hli]
inc a
ret nz
ld a, [hl]
inc a
ret
.AcknowledgeSerial:
vc_patch Wireless_net_delay_7
if DEF(_CRYSTAL11_VC)
ld b, 26
else
ld b, 10
endc
vc_patch_end
.loop
call DelayFrame
call LinkDataReceived
dec b
jr nz, .loop
ret
.ConvertDW:
; [wLinkTimeoutFrames] = ((hl - $100) / 4) + $100
; = (hl / 4) + $c0
dec h
srl h
rr l
srl h
rr l
inc h
ld a, h
ld [wLinkTimeoutFrames], a
ld a, l
ld [wLinkTimeoutFrames + 1], a
ret
TryQuickSave:
ld a, [wChosenCableClubRoom]
push af
farcall Link_SaveGame
vc_hook Wireless_TryQuickSave_block_input_1
ld a, TRUE
jr nc, .return_result
vc_hook Wireless_TryQuickSave_block_input_2
xor a ; FALSE
.return_result
ld [wScriptVar], a
ld c, 30
call DelayFrames
pop af
ld [wChosenCableClubRoom], a
ret
CheckBothSelectedSameRoom:
ld a, [wChosenCableClubRoom]
call Link_EnsureSync
push af
call LinkDataReceived
call DelayFrame
call LinkDataReceived
pop af
ld b, a
ld a, [wChosenCableClubRoom]
cp b
jr nz, .fail
ld a, [wChosenCableClubRoom]
inc a
ld [wLinkMode], a
xor a
ldh [hVBlank], a
ld a, TRUE
ld [wScriptVar], a
ret
.fail
xor a ; FALSE
ld [wScriptVar], a
ret
TimeCapsule:
vc_hook Wireless_TimeCapsule
ld a, LINK_TIMECAPSULE
ld [wLinkMode], a
call DisableSpriteUpdates
callfar LinkCommunications
call EnableSpriteUpdates
xor a
ldh [hVBlank], a
ret
TradeCenter:
vc_hook Wireless_TradeCenter
ld a, LINK_TRADECENTER
ld [wLinkMode], a
call DisableSpriteUpdates
callfar LinkCommunications
call EnableSpriteUpdates
xor a
ldh [hVBlank], a
ret
Colosseum:
vc_hook Wireless_Colosseum
ld a, LINK_COLOSSEUM
ld [wLinkMode], a
call DisableSpriteUpdates
callfar LinkCommunications
call EnableSpriteUpdates
xor a
ldh [hVBlank], a
ret
CloseLink:
xor a
ld [wLinkMode], a
ld c, 3
call DelayFrames
vc_hook Wireless_room_check
jp Link_ResetSerialRegistersAfterLinkClosure
FailedLinkToPast:
ld c, 40
call DelayFrames
ld a, $e
jp Link_EnsureSync
Link_ResetSerialRegistersAfterLinkClosure:
ld c, 3
call DelayFrames
ld a, CONNECTION_NOT_ESTABLISHED
ldh [hSerialConnectionStatus], a
ld a, USING_INTERNAL_CLOCK
ldh [rSB], a
xor a
ldh [hSerialReceive], a
ldh [rSC], a
ret
Link_EnsureSync:
add $d0
ld [wLinkPlayerSyncBuffer], a
ld [wLinkPlayerSyncBuffer + 1], a
ld a, $2
ldh [hVBlank], a
call DelayFrame
call DelayFrame
.receive_loop
call Serial_ExchangeSyncBytes
ld a, [wLinkReceivedSyncBuffer]
ld b, a
and $f0
cp $d0
jr z, .done
ld a, [wLinkReceivedSyncBuffer + 1]
ld b, a
and $f0
cp $d0
jr nz, .receive_loop
.done
xor a
ldh [hVBlank], a
ld a, b
and $f
ret
CableClubCheckWhichChris:
ldh a, [hSerialConnectionStatus]
cp USING_EXTERNAL_CLOCK
ld a, TRUE
jr z, .yes
dec a ; FALSE
.yes
ld [wScriptVar], a
ret
GSLinkCommsBorderGFX: ; unreferenced
INCBIN "gfx/trade/unused_gs_border_tiles.2bpp"
CheckSRAM0Flag: ; unreferenced
; input: hl = unknown flag array in "SRAM Bank 0"
ld a, BANK("SRAM Bank 0")
call OpenSRAM
ld d, 0
ld b, CHECK_FLAG
predef SmallFarFlagAction
call CloseSRAM
ld a, c
and a
ret