ref: 3648afda1694fcb4d6fe6625b14f5a3f8bc29c38
dir: /engine/link/link.asm/
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