ref: 08891da82254aa4051bf594d4abc2db8e4043d8f
dir: /engine/link.asm/
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 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, wcf5d xor a ; LOW($5000) ld [hli], a ld [hl], HIGH($5000) ld a, [wLinkMode] cp LINK_TIMECAPSULE jp nz, Gen2ToGen2LinkComms Gen2ToGen1LinkComms: ; 2805d call ClearLinkData call Link_PrepPartyData_Gen1 call FixDataForLinkTransfer xor a ld [wPlayerLinkAction], a call WaitLinkTransfer ld a, [hSerialConnectionStatus] cp USING_INTERNAL_CLOCK jr nz, .player_1 ld c, 3 call DelayFrames xor a ld [hSerialSend], a ld a, (0 << rSC_ON) | 1 ld [rSC], a ld a, (1 << rSC_ON) | 1 ld [rSC], a call DelayFrame xor a ld [hSerialSend], a ld a, (0 << rSC_ON) | 1 ld [rSC], a ld a, (1 << rSC_ON) | 1 ld [rSC], a .player_1 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 Serial_ExchangeBytes ld a, SERIAL_NO_DATA_BYTE ld [de], a ld hl, wLinkData ld de, OTPlayerName ld bc, $1a8 call Serial_ExchangeBytes ld a, SERIAL_NO_DATA_BYTE ld [de], a ld hl, wMisc ld de, wPlayerTrademonSpecies ld bc, wPlayerTrademonSpecies - wMisc call Serial_ExchangeBytes xor a ld [rIF], a ld a, $1d ld [rIE], a call Link_CopyRandomNumbers ld hl, OTPlayerName call Link_FindFirstNonControlCharacter_SkipZero 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, wLinkData ld bc, $1a2 call Link_CopyOTData ld de, wPlayerTrademonSpecies ld hl, wTimeCapsulePartyMon1Species 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, wc90f dec c jr nz, .loop ld hl, wLinkPlayerName ld de, OTPlayerName ld bc, NAME_LENGTH call CopyBytes ld de, OTPartyCount ld a, [hli] ld [de], a inc de .party_loop ld a, [hli] cp -1 jr z, .done_party ld [wd265], a push hl push de callfar ConvertMon_1to2 pop de pop hl ld a, [wd265] ld [de], a inc de jr .party_loop .done_party ld [de], a ld hl, wTimeCapsulePartyMon1Species call Function2868a ld a, LOW(OTPartyMonOT) ld [wUnusedD102], a ld a, HIGH(OTPartyMonOT) ld [wUnusedD102 + 1], a ld de, MUSIC_NONE call PlayMusic ld a, [hSerialConnectionStatus] cp USING_INTERNAL_CLOCK ld c, 66 call z, DelayFrames ld de, MUSIC_ROUTE_30 call PlayMusic jp InitTradeMenuDisplay ; 28177 Gen2ToGen2LinkComms: ; 28177 call ClearLinkData call Link_PrepPartyData_Gen2 call FixDataForLinkTransfer call Function29dba ld a, [ScriptVar] and a jp z, LinkTimeout ld a, [hSerialConnectionStatus] cp USING_INTERNAL_CLOCK jr nz, .Player1 ld c, 3 call DelayFrames xor a ld [hSerialSend], a ld a, (0 << rSC_ON) | 1 ld [rSC], a ld a, (1 << rSC_ON) | 1 ld [rSC], a call DelayFrame xor a ld [hSerialSend], a ld a, (0 << rSC_ON) | 1 ld [rSC], a ld a, (1 << rSC_ON) | 1 ld [rSC], a .Player1: 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 Serial_ExchangeBytes ld a, SERIAL_NO_DATA_BYTE ld [de], a ld hl, wLinkData ld de, OTPlayerName ld bc, $1c2 call Serial_ExchangeBytes ld a, SERIAL_NO_DATA_BYTE ld [de], a ld hl, wMisc ld de, wPlayerTrademonSpecies ld bc, $c8 call Serial_ExchangeBytes ld a, [wLinkMode] cp LINK_TRADECENTER jr nz, .not_trading ld hl, wc9f4 ld de, wcb84 ld bc, $186 call ExchangeBytes .not_trading xor a ld [rIF], a ld a, $1d ld [rIE], a ld de, MUSIC_NONE call PlayMusic call Link_CopyRandomNumbers ld hl, OTPlayerName call Link_FindFirstNonControlCharacter_SkipZero ld de, wLinkData ld bc, $1b9 call Link_CopyOTData ld de, wPlayerTrademonSpecies ld hl, wLinkPlayerPartyMon1Species 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, wc90f dec c jr nz, .loop1 ld a, [wLinkMode] cp LINK_TRADECENTER jp nz, .skip_mail ld hl, wcb84 .loop2 ld a, [hli] cp MAIL_MSG_LENGTH jr nz, .loop2 .loop3 ld a, [hli] cp SERIAL_NO_DATA_BYTE jr z, .loop3 cp MAIL_MSG_LENGTH jr z, .loop3 dec hl ld de, wcb84 ld bc, $190 ; 400 call CopyBytes ld hl, wcb84 ld bc, $c6 ; 198 .loop4 ld a, [hl] cp MAIL_MSG_LENGTH + 1 jr nz, .okay1 ld [hl], SERIAL_NO_DATA_BYTE .okay1 inc hl dec bc ld a, b or c jr nz, .loop4 ld de, wcc9e .loop5 ld a, [de] inc de cp SERIAL_PATCH_LIST_PART_TERMINATOR jr z, .start_copying_mail ld hl, wcc4a dec a ld b, $0 ld c, a add hl, bc ld [hl], SERIAL_NO_DATA_BYTE jr .loop5 .start_copying_mail ld hl, wcb84 ld de, wc9f4 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, wc9f4 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, wc9f4 .fix_mail_loop push bc push de farcall IsMailEuropean ld a, c or a jr z, .next sub $3 jr nc, .skip farcall DeutenEnglischenPost jr .next .skip cp $2 jr nc, .next farcall HandleSpanishItalianMail .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, wcb0e xor a ld [de], a .skip_mail ld hl, wLinkPlayerName ld de, OTPlayerName ld bc, NAME_LENGTH call CopyBytes ld de, OTPartyCount ld bc, 1 + PARTY_LENGTH + 1 call CopyBytes ld de, OTPlayerID ld bc, 2 call CopyBytes ld de, OTPartyMons ld bc, OTPartyDataEnd - OTPartyMons call CopyBytes ld a, LOW(OTPartyMonOT) ld [wUnusedD102], a ld a, HIGH(OTPartyMonOT) ld [wUnusedD102 + 1], a ld de, MUSIC_NONE call PlayMusic ld 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 [OtherTrainerClass], a call ClearScreen farcall Link_WaitBGMap ld hl, Options ld a, [hl] push af and 1 << STEREO or TEXT_DELAY_MED ld [hl], a ld hl, OTPlayerName ld de, OTClassName ld bc, NAME_LENGTH call CopyBytes call ReturnToMapFromSubmenu ; LET'S DO THIS ld a, [wDisableTextAcceleration] push af ld a, 1 ld [wDisableTextAcceleration], 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 [wDisableTextAcceleration], a pop af ld [Options], a farcall LoadPokemonData jp Function28b22 .ready_to_trade ld de, MUSIC_ROUTE_30 call PlayMusic jp InitTradeMenuDisplay ; 283b2 LinkTimeout: ; 283b2 ld de, .TooMuchTimeHasElapsed ld b, 10 .loop call DelayFrame call LinkDataReceived dec b jr nz, .loop xor a ld [hld], a ld [hl], a ld [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 ; 283ed .TooMuchTimeHasElapsed: ; 0x283ed ; Too much time has elapsed. Please try again. text_jump UnknownText_0x1c4183 db "@" ; 0x283f2 ExchangeBytes: ; 283f2 ld a, TRUE ld [hSerialIgnoringInitialData], a .loop ld a, [hl] ld [hSerialSend], a call Serial_ExchangeByte push bc ld b, a inc hl ld a, 48 .delay_cycles dec a jr nz, .delay_cycles ld a, [hSerialIgnoringInitialData] and a ld a, b pop bc jr z, .load dec hl xor a ld [hSerialIgnoringInitialData], a jr .loop .load ld [de], a inc de dec bc ld a, b or c jr nz, .loop ret ; 28419 String_PleaseWait: ; 28419 db "PLEASE WAIT!@" ; 28426 ClearLinkData: ; 28426 ld hl, wLinkData ld bc, wLinkDataEnd - wLinkData .loop xor a ld [hli], a dec bc ld a, b or c jr nz, .loop ret ; 28434 FixDataForLinkTransfer: ; 28434 ld hl, wd1f3 ld a, SERIAL_PREAMBLE_BYTE ld b, LinkBattleRNs - wd1f3 .loop1 ld [hli], a dec b jr nz, .loop1 ld b, TempEnemyMonSpecies - LinkBattleRNs .loop2 call Random cp SERIAL_PREAMBLE_BYTE jr nc, .loop2 ld [hli], a dec b jr nz, .loop2 ld hl, wMisc ld a, SERIAL_PREAMBLE_BYTE ld [hli], a ld [hli], a ld [hli], a ld b, $c8 xor a .loop3 ld [hli], a dec b jr nz, .loop3 ld hl, wTimeCapsulePartyMon1 - 1 + 6 ld de, wc612 lb bc, 0, 0 .loop4 inc c ld a, c cp SERIAL_PREAMBLE_BYTE jr z, .next1 ld a, b dec a jr nz, .next2 push bc ld a, [wLinkMode] cp LINK_TIMECAPSULE ld b, $d jr z, .got_value ld b, $27 .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, .loop4 ld a, c ld [de], a inc de ld [hl], SERIAL_PATCH_LIST_PART_TERMINATOR jr .loop4 .next1 ld a, SERIAL_PATCH_LIST_PART_TERMINATOR ld [de], a inc de lb bc, 1, 0 jr .loop4 .done ld a, SERIAL_PATCH_LIST_PART_TERMINATOR ld [de], a ret ; 28499 Link_PrepPartyData_Gen1: ; 28499 ld de, wLinkData ld a, SERIAL_PREAMBLE_BYTE ld b, PARTY_LENGTH .loop1 ld [de], a inc de dec b jr nz, .loop1 ld hl, PlayerName ld bc, NAME_LENGTH call CopyBytes push de ld hl, PartyCount ld a, [hli] ld [de], a inc de .loop2 ld a, [hli] cp -1 jr z, .done_party ld [wd265], a push hl push de callfar ConvertMon_2to1 pop de pop hl ld a, [wd265] 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, PartyMon1Species 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, PartyMonOT call .copy_ot_nicks ld hl, PartyMonNicknames .copy_ot_nicks ld bc, PARTY_LENGTH * NAME_LENGTH jp CopyBytes ; 284f6 .ConvertPartyStruct2to1: ; 284f6 ld b, h ld c, l push de push bc ld a, [hl] ld [wd265], a callfar ConvertMon_2to1 pop bc pop de ld a, [wd265] 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 [CurPartyLevel], 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 [BaseSpecialAttack], a pop bc ld hl, MON_STAT_EXP - 1 add hl, bc ld c, STAT_SATK ld b, TRUE predef CalcPkmnStatC pop bc pop de ld a, [hQuotient + 1] ld [de], a inc de ld a, [hQuotient + 2] ld [de], a inc de ld h, b ld l, c ret ; 28595 Link_PrepPartyData_Gen2: ; 28595 ld de, wLinkData ld a, SERIAL_PREAMBLE_BYTE ld b, PARTY_LENGTH .loop1 ld [de], a inc de dec b jr nz, .loop1 ld hl, PlayerName ld bc, NAME_LENGTH call CopyBytes ld hl, PartyCount ld bc, 1 + PARTY_LENGTH + 1 call CopyBytes ld hl, PlayerID ld bc, 2 call CopyBytes ld hl, PartyMon1Species ld bc, PARTY_LENGTH * PARTYMON_STRUCT_LENGTH call CopyBytes ld hl, PartyMonOT ld bc, PARTY_LENGTH * NAME_LENGTH call CopyBytes ld hl, PartyMonNicknames 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 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 data 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 farcall IsMailEuropean pop de ld a, c or a jr z, .next sub $3 jr nc, .italian_spanish farcall HandleFrenchGermanMail jr .next .italian_spanish cp $2 jr nc, .next farcall 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 SERIAL_NO_DATA_BYTE 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 SERIAL_NO_DATA_BYTE jr nz, .skip3 ld [hl], SERIAL_PATCH_LIST_PART_TERMINATOR 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 ; 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, wLinkOTPartyMonTypes ld hl, wcbe8 ld a, c ld [hli], a ld [hl], b ld hl, OTPartyMon1Species 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, OTPartyMonOT ld bc, PARTY_LENGTH * NAME_LENGTH call CopyBytes ld de, OTPartyMonNicknames ld bc, PARTY_LENGTH * MON_NAME_LENGTH jp CopyBytes ; 286ba .ConvertToGen2: ; 286ba ld b, h ld c, l ld a, [de] inc de push bc push de ld [wd265], a callfar ConvertMon_1to2 pop de pop bc ld a, [wd265] ld [bc], a ld [CurSpecies], 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, 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 [wcbe8 + 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 [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, MON_STAT_EXP - 1 add hl, bc ld c, STAT_SATK ld b, TRUE predef CalcPkmnStatC pop bc pop hl ld a, [hQuotient + 1] ld [hli], a ld a, [hQuotient + 2] ld [hli], a push hl push bc ld hl, MON_STAT_EXP - 1 add hl, bc ld c, STAT_SDEF ld b, TRUE predef CalcPkmnStatC pop bc pop hl ld a, [hQuotient + 1] ld [hli], a ld a, [hQuotient + 2] 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 ; 28771 TimeCapsule_ReplaceTeruSama: ; 28771 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: ; 2879e .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 ; 287ab Link_CopyRandomNumbers: ; 287ab ld a, [hSerialConnectionStatus] cp USING_INTERNAL_CLOCK ret z ld hl, EnemyMonSpecies call Link_FindFirstNonControlCharacter_AllowZero ld de, LinkBattleRNs 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 ; 287ca Link_FindFirstNonControlCharacter_SkipZero: ; 287ca .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 ; 287d8 Link_FindFirstNonControlCharacter_AllowZero: ; 287d8 .loop ld a, [hli] cp SERIAL_PREAMBLE_BYTE jr z, .loop cp SERIAL_NO_DATA_BYTE jr z, .loop dec hl ret ; 287e3 InitTradeMenuDisplay: ; 287e3 call ClearScreen call LoadTradeScreenBorder 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 ; 28803 LinkTrade_OTPartyMenu: ; 28803 ld a, OTPARTYMON ld [MonType], a ld a, A_BUTTON | D_UP | D_DOWN ld [wMenuJoypadFilter], a ld a, [OTPartyCount] 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: ; 28835 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, OTPartyMon1Species 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, [OTPartyCount] cp b jp nz, LinkTradePartiesMenuMasterLoop xor a ld [MonType], a call HideCursor push hl push bc ld bc, NAME_LENGTH add hl, bc ld [hl], " " pop bc pop hl ld a, [PartyCount] ld [wMenuCursorY], a jr LinkTrade_PlayerPartyMenu .not_d_up bit D_DOWN_F, a jp z, LinkTradePartiesMenuMasterLoop jp Function28ac9 ; 2888b LinkTrade_PlayerPartyMenu: ; 2888b farcall InitMG_Mobile_LinkTradePalMap xor a ld [MonType], a ld a, A_BUTTON | D_UP | D_DOWN ld [wMenuJoypadFilter], a ld a, [PartyCount] 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: ; 288c5 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 Function28926 .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 [MonType], 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, [PartyCount] 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 Function28ade ; 2891c LinkTradePartiesMenuMasterLoop: ; 2891c ld a, [MonType] and a jp z, LinkTradePartymonMenuLoop ; PARTYMON jp LinkTradeOTPartymonMenuLoop ; OTPARTYMON ; 28926 Function28926: ; 28926 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 Call_LoadTempTileMapToTileMap 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 Call_LoadTempTileMapToTileMap 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 [wd002], a ld [wPlayerLinkAction], a farcall Function16d6ce ld a, [wOtherPlayerLinkMode] cp $f jp z, InitTradeMenuDisplay ld [wd003], a call Function28b68 ld c, 100 call DelayFrames farcall ValidateOTTrademon jr c, .abnormal farcall Functionfb5dd jp nc, LinkTrade xor a ld [wcf57], a ld [wOtherPlayerLinkAction], a hlcoord 0, 12 ld b, 4 ld c, 18 call LinkTextboxAtHL farcall Link_WaitBGMap ld hl, .Text_CantTradeLastMon bccoord 1, 14 call PlaceHLTextAtBC jr .cancel_trade .abnormal 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, 18 call LinkTextboxAtHL farcall Link_WaitBGMap ld hl, .Text_Abnormal 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 Function16d6ce ld c, 100 call DelayFrames jp InitTradeMenuDisplay ; 28aaf .Text_CantTradeLastMon: ; 0x28aaf ; If you trade that #MON, you won't be able to battle. text_jump UnknownText_0x1c41b1 db "@" ; 0x28ab4 .String_Stats_Trade: ; 28ab4 db "STATS TRADE@" .Text_Abnormal: ; 0x28ac4 ; Your friend's @ appears to be abnormal! text_jump UnknownText_0x1c41e6 db "@" ; 0x28ac9 Function28ac9: ; 28ac9 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 Function28ade: ; 28ade .loop1 ld a, "▶" ldcoord_a 9, 17 .loop2 call JoyTextDelay ld 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, [OTPartyCount] 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 Function16d6ce ld a, [wOtherPlayerLinkMode] cp $f jr nz, .loop1 Function28b22: ; 28b22 call RotateThreePalettesRight call ClearScreen ld b, SCGB_DIPLOMA call GetSGBLayout call WaitBGMap2 xor a ld [wcfbb], a xor a ld [rSB], a ld [hSerialSend], a ld a, (0 << rSC_ON) | 1 ld [rSC], a ld a, (1 << rSC_ON) | 1 ld [rSC], a ret ; 28b42 Unreferenced_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, .Cancel jp PlaceString ; 28b61 .Cancel: ; 28b61 db "CANCEL@" ; 28b68 Function28b68: ; 28b68 ld a, [wOtherPlayerLinkMode] hlcoord 6, 9 ld bc, SCREEN_WIDTH call AddNTimes ld [hl], "▷" ret ; 28b77 LinkEngine_FillBox: ; 28b77 .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 ; 28b87 LinkTrade: ; 28b87 xor a ld [wcf57], a ld [wOtherPlayerLinkAction], a hlcoord 0, 12 ld b, 4 ld c, 18 call LinkTextboxAtHL farcall Link_WaitBGMap 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, MON_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 PlaceHLTextAtBC call LoadStandardMenuHeader hlcoord 10, 7 ld b, 3 ld c, 7 call LinkTextboxAtHL ld de, String28eab 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, .asm_28c33 ld a, [wMenuCursorY] dec a jr z, .asm_28c54 .asm_28c33 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 Function16d6ce jp Function28ea3 .asm_28c54 ld a, $2 ld [wPlayerLinkAction], a farcall Function16d6ce ld a, [wOtherPlayerLinkMode] dec a jr nz, .asm_28c7b hlcoord 0, 12 ld b, 4 ld c, 18 call LinkTextboxAtHL hlcoord 1, 14 ld de, String_TooBadTheTradeWasCanceled 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 PARTY_LENGTH 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 farcall GetCaughtGender ld a, c ld [wPlayerTrademonCaughtData], a ld hl, OTPlayerName 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 farcall 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 callfar RemoveMonFromPartyOrBox ld a, [PartyCount] dec a ld [CurPartyMon], a ld a, TRUE 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_DIPLOMA call GetSGBLayout ld 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 [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 callfar EvolvePokemon call ClearScreen call LoadTradeScreenBorder call SetTradeRoomBGPals farcall Link_WaitBGMap ld b, $1 pop af ld c, a cp MEW jr z, .loop ld a, [CurPartySpecies] cp MEW jr z, .loop ld b, $2 ld a, c cp CELEBI jr z, .loop ld a, [CurPartySpecies] cp CELEBI jr z, .loop ld b, $0 .loop 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, .loop .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, String28ebd call PlaceString farcall Link_WaitBGMap ld c, 50 call DelayFrames ld a, [wLinkMode] cp LINK_TIMECAPSULE jp z, Gen2ToGen1LinkComms jp Gen2ToGen2LinkComms ; 28ea3 Function28ea3: ; 28ea3 ld c, 100 call DelayFrames jp InitTradeMenuDisplay ; 28eab String28eab: ; 28eab db "TRADE" next "CANCEL@" UnknownText_0x28eb8: ; 0x28eb8 ; Trade @ for @ ? text_jump UnknownText_0x1c4212 db "@" ; 0x28ebd String28ebd: ; 28ebd db "Trade completed!@" String_TooBadTheTradeWasCanceled: ; 28ece db "Too bad! The trade" next "was canceled!@" LinkTextboxAtHL: ; 28eef ld d, h ld e, l farcall LinkTextbox ret ; 28ef8 LoadTradeScreenBorder: ; 28ef8 farcall _LoadTradeScreenBorder ret ; 28eff SetTradeRoomBGPals: ; 28eff farcall LoadTradeRoomBGPals_ ; just a nested farcall; so wasteful call SetPalettes ret ; 28f09 Unreferenced_Function28f09: ; 28f09 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 ; 28f24 INCLUDE "engine/trade_animation.asm" 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 .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 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] 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 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 EnterTimeCapsule: ; 29c7b ld c, 10 call DelayFrames ld a, $4 call Link_EnsureSync ld c, 40 call DelayFrames xor a ld [hVBlank], a inc a ld [wLinkMode], a ret ; 29c92 WaitForOtherPlayerToExit: ; 29c92 ld c, 3 call DelayFrames ld a, CONNECTION_NOT_ESTABLISHED ld [hSerialConnectionStatus], a xor a ld [rSB], a ld [hSerialReceive], a ld a, (0 << rSC_ON) | 1 ld [rSC], a ld a, (1 << rSC_ON) | 1 ld [rSC], a ld c, 3 call DelayFrames xor a ld [rSB], a ld [hSerialReceive], a ld a, (0 << rSC_ON) | 0 ld [rSC], a ld a, (1 << rSC_ON) | 0 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, CONNECTION_NOT_ESTABLISHED ld [hSerialConnectionStatus], a ld a, [rIF] push af xor a ld [rIF], a ld a, $f ld [rIE], a pop af ld [rIF], a ld hl, wLinkTimeoutFrames xor a ld [hli], a ld [hl], a ld [hVBlank], a ld [wLinkMode], a ret ; 29ce8 SetBitsForLinkTradeRequest: ; 29ce8 ld a, LINK_TRADECENTER - 1 ld [wPlayerLinkAction], a ld [wd265], a ret ; 29cf1 SetBitsForBattleRequest: ; 29cf1 ld a, LINK_COLOSSEUM - 1 ld [wPlayerLinkAction], a ld [wd265], a ret ; 29cfa SetBitsForTimeCapsuleRequest: ; 29cfa ld a, $2 ld [rSB], a xor a ld [hSerialReceive], a ld a, (0 << rSC_ON) | 0 ld [rSC], a ld a, (1 << rSC_ON) | 0 ld [rSC], a xor a ; LINK_TIMECAPSULE - 1 ld [wPlayerLinkAction], a ld [wd265], a ret ; 29d11 WaitForLinkedFriend: ; 29d11 ld a, [wPlayerLinkAction] and a jr z, .no_link_action ld a, $2 ld [rSB], a xor a ld [hSerialReceive], a ld a, (0 << rSC_ON) | 0 ld [rSC], a ld a, (1 << rSC_ON) | 0 ld [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 ld a, [hSerialConnectionStatus] cp USING_INTERNAL_CLOCK jr z, .connected cp USING_EXTERNAL_CLOCK jr z, .connected ld a, CONNECTION_NOT_ESTABLISHED ld [hSerialConnectionStatus], a ld a, $2 ld [rSB], a xor a ld [hSerialReceive], a ld a, (0 << rSC_ON) | 0 ld [rSC], a ld a, (1 << rSC_ON) | 0 ld [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, $1 ld [rSB], a ld a, (0 << rSC_ON) | 1 ld [rSC], a ld a, (1 << rSC_ON) | 1 ld [rSC], a call DelayFrame jr .loop .connected call LinkDataReceived call DelayFrame call LinkDataReceived ld c, 50 call DelayFrames ld a, $1 ld [ScriptVar], a ret .done xor a ld [ScriptVar], a ret ; 29d92 CheckLinkTimeout: ; 29d92 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 ld [hVBlank], a call DelayFrame call DelayFrame call Link_CheckCommunicationError xor a ld [hVBlank], a ld a, [ScriptVar] and a ret nz jp Link_ResetSerialRegistersAfterLinkClosure ; 29dba Function29dba: ; 29dba 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 ld [hVBlank], a call DelayFrame call DelayFrame call Link_CheckCommunicationError ld a, [ScriptVar] and a jr z, .vblank ld bc, -1 .wait dec bc ld a, b or c jr nz, .wait ld a, [wOtherPlayerLinkMode] cp $5 jr nz, .script_var ld a, $6 ld [wPlayerLinkAction], a ld hl, wLinkTimeoutFrames ld a, $1 ld [hli], a ld [hl], $32 call Link_CheckCommunicationError ld a, [wOtherPlayerLinkMode] cp $6 jr z, .vblank .script_var xor a ld [ScriptVar], a ret .vblank xor a ld [hVBlank], a ret ; 29e0c Link_CheckCommunicationError: ; 29e0c xor a ld [hSerialReceivedNewData], a 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 jr .load_scriptvar .load_true ld a, $1 .load_scriptvar ld [ScriptVar], a ld hl, wLinkTimeoutFrames xor a ld [hli], a ld [hl], a ret ; 29e3b .CheckConnected: ; 29e3b call WaitLinkTransfer ld hl, wLinkTimeoutFrames ld a, [hli] inc a ret nz ld a, [hl] inc a ret ; 29e47 .AcknowledgeSerial: ; 29e47 ld b, 10 .loop call DelayFrame call LinkDataReceived dec b jr nz, .loop ret ; 29e53 .ConvertDW: ; 29e53 ; [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 ; 29e66 TryQuickSave: ; 29e66 ld a, [wd265] push af farcall Link_SaveGame ld a, TRUE jr nc, .return_result xor a ; FALSE .return_result ld [ScriptVar], a ld c, 30 call DelayFrames pop af ld [wd265], a ret ; 29e82 CheckBothSelectedSameRoom: ; 29e82 ld a, [wd265] call Link_EnsureSync 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, TRUE ld [ScriptVar], a ret .fail xor a ; FALSE ld [ScriptVar], a ret ; 29eaf TimeCapsule: ; 29eaf ld a, LINK_TIMECAPSULE ld [wLinkMode], a call DisableSpriteUpdates callfar LinkCommunications call EnableSpriteUpdates xor a ld [hVBlank], a ret ; 29ec4 TradeCenter: ; 29ec4 ld a, LINK_TRADECENTER ld [wLinkMode], a call DisableSpriteUpdates callfar LinkCommunications call EnableSpriteUpdates xor a ld [hVBlank], a ret ; 29ed9 Colosseum: ; 29ed9 ld a, LINK_COLOSSEUM ld [wLinkMode], a call DisableSpriteUpdates callfar LinkCommunications call EnableSpriteUpdates xor a ld [hVBlank], a ret ; 29eee CloseLink: ; 29eee xor a ld [wLinkMode], a ld c, 3 call DelayFrames jp Link_ResetSerialRegistersAfterLinkClosure ; 29efa FailedLinkToPast: ; 29efa ld c, 40 call DelayFrames ld a, $e jp Link_EnsureSync ; 29f04 Link_ResetSerialRegistersAfterLinkClosure: ; 29f04 ld c, 3 call DelayFrames ld a, CONNECTION_NOT_ESTABLISHED ld [hSerialConnectionStatus], a ld a, $2 ld [rSB], a xor a ld [hSerialReceive], a ld [rSC], a ret ; 29f17 Link_EnsureSync: ; 29f17 add $d0 ld [wPlayerLinkAction], a ld [wcf57], a ld a, $2 ld [hVBlank], a call DelayFrame call DelayFrame .receive_loop call Serial_ExchangeLinkMenuSelection 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 CableClubCheckWhichChris: ; 29f47 ld a, [hSerialConnectionStatus] cp USING_EXTERNAL_CLOCK ld a, TRUE jr z, .yes dec a ; FALSE .yes ld [ScriptVar], a ret ; 29f54 Unreferenced_Gen1LinkCommsBorderGFX: ; 29f54 INCBIN "gfx/trade/unused_gen_1_border_tiles.2bpp" ; 29fe4 Unreferenced_Function29fe4: ld a, BANK(sPartyMail) call GetSRAMBank ld d, FALSE ld b, CHECK_FLAG predef SmallFarFlagAction call CloseSRAM ld a, c and a ret