pokecrystal-board/engine/link/link.asm

2590 lines
40 KiB
NASM
Raw Normal View History

2015-11-09 20:55:39 -08:00
LinkCommunications: ; 28000
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
ld c, 80
2015-11-09 20:55:39 -08:00
call DelayFrames
call ClearScreen
call ClearSprites
call UpdateSprites
xor a
ld [hSCX], a
ld [hSCY], a
2015-11-11 20:38:57 -08:00
ld c, 80
2015-11-09 20:55:39 -08:00
call DelayFrames
call ClearScreen
call UpdateSprites
call LoadStandardFont
call LoadFontsBattleExtra
2017-12-24 09:47:30 -08:00
farcall LinkComms_LoadPleaseWaitTextboxBorderGFX
2015-12-11 13:59:40 -08:00
call WaitBGMap2
2015-11-09 20:55:39 -08:00
hlcoord 3, 8
ld b, 2
ld c, 12
2015-11-09 20:55:39 -08:00
ld d, h
ld e, l
2017-12-24 09:47:30 -08:00
farcall LinkTextbox2
2015-11-09 20:55:39 -08:00
hlcoord 4, 10
ld de, String_PleaseWait
2015-11-09 20:55:39 -08:00
call PlaceString
2016-05-15 18:50:31 -07:00
call SetTradeRoomBGPals
2015-12-11 13:59:40 -08:00
call WaitBGMap2
2015-11-09 20:55:39 -08:00
ld hl, wcf5d
xor a ; LOW($5000)
2015-11-09 20:55:39 -08:00
ld [hli], a
ld [hl], HIGH($5000)
2015-11-09 20:55:39 -08:00
ld a, [wLinkMode]
cp LINK_TIMECAPSULE
jp nz, Gen2ToGen2LinkComms
2015-11-09 20:55:39 -08:00
Gen2ToGen1LinkComms: ; 2805d
call ClearLinkData
call Link_PrepPartyData_Gen1
call FixDataForLinkTransfer
2015-11-09 20:55:39 -08:00
xor a
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2016-05-15 18:50:31 -07:00
call WaitLinkTransfer
ld a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
2015-12-21 11:10:16 -08:00
jr nz, .player_1
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
xor a
ld [hSerialSend], a
ld a, (0 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
2015-11-09 20:55:39 -08:00
call DelayFrame
xor a
ld [hSerialSend], a
ld a, (0 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
2015-12-21 11:10:16 -08:00
.player_1
2015-11-09 20:55:39 -08:00
ld de, MUSIC_NONE
call PlayMusic
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
xor a
ld [rIF], a
ld a, $8
ld [rIE], a
ld hl, wd1f3
2018-01-23 14:39:09 -08:00
ld de, wEnemyMonSpecies
2015-11-09 20:55:39 -08:00
ld bc, $11
call Serial_ExchangeBytes
ld a, SERIAL_NO_DATA_BYTE
2015-11-09 20:55:39 -08:00
ld [de], a
ld hl, wLinkData
2018-01-23 14:39:09 -08:00
ld de, wOTPlayerName
2015-12-21 11:10:16 -08:00
ld bc, $1a8
call Serial_ExchangeBytes
ld a, SERIAL_NO_DATA_BYTE
2015-11-09 20:55:39 -08:00
ld [de], a
ld hl, wLink_c608
ld de, wTrademons
ld bc, wTrademons - wLink_c608
call Serial_ExchangeBytes
2015-11-09 20:55:39 -08:00
xor a
ld [rIF], a
ld a, $1d
ld [rIE], a
call Link_CopyRandomNumbers
2018-01-23 14:39:09 -08:00
ld hl, wOTPlayerName
2015-12-21 11:10:16 -08:00
call Link_FindFirstNonControlCharacter_SkipZero
2015-11-09 20:55:39 -08:00
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
2015-11-09 20:55:39 -08:00
ld bc, $1a2
2015-12-21 11:10:16 -08:00
call Link_CopyOTData
2015-11-22 21:21:21 -08:00
ld de, wPlayerTrademonSpecies
2015-12-21 11:10:16 -08:00
ld hl, wTimeCapsulePartyMon1Species
ld c, 2
2015-12-21 11:10:16 -08:00
.loop
2015-11-09 20:55:39 -08:00
ld a, [de]
inc de
and a
2015-12-21 11:10:16 -08:00
jr z, .loop
cp SERIAL_PREAMBLE_BYTE
2015-12-21 11:10:16 -08:00
jr z, .loop
cp SERIAL_NO_DATA_BYTE
2015-12-21 11:10:16 -08:00
jr z, .loop
cp SERIAL_PATCH_LIST_PART_TERMINATOR
2015-12-21 11:10:16 -08:00
jr z, .next
2015-11-09 20:55:39 -08:00
push hl
push bc
ld b, 0
2015-11-09 20:55:39 -08:00
dec a
ld c, a
add hl, bc
ld a, SERIAL_NO_DATA_BYTE
2015-11-09 20:55:39 -08:00
ld [hl], a
pop bc
pop hl
2015-12-21 11:10:16 -08:00
jr .loop
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.next
2015-11-09 20:55:39 -08:00
ld hl, wc90f
dec c
2015-12-21 11:10:16 -08:00
jr nz, .loop
ld hl, wLinkPlayerName
2018-01-23 14:39:09 -08:00
ld de, wOTPlayerName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
2018-01-23 14:39:09 -08:00
ld de, wOTPartyCount
2015-11-09 20:55:39 -08:00
ld a, [hli]
ld [de], a
inc de
2015-12-21 11:10:16 -08:00
.party_loop
2015-11-09 20:55:39 -08:00
ld a, [hli]
2015-12-21 11:10:16 -08:00
cp -1
jr z, .done_party
2015-11-09 20:55:39 -08:00
ld [wd265], a
push hl
push de
callfar ConvertMon_1to2
2015-11-09 20:55:39 -08:00
pop de
pop hl
ld a, [wd265]
ld [de], a
inc de
2015-12-21 11:10:16 -08:00
jr .party_loop
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.done_party
2015-11-09 20:55:39 -08:00
ld [de], a
2015-12-21 11:10:16 -08:00
ld hl, wTimeCapsulePartyMon1Species
2015-11-09 20:55:39 -08:00
call Function2868a
2018-01-23 14:39:09 -08:00
ld a, LOW(wOTPartyMonOT)
2016-06-13 19:53:33 -07:00
ld [wUnusedD102], a
2018-01-23 14:39:09 -08:00
ld a, HIGH(wOTPartyMonOT)
2016-06-13 19:53:33 -07:00
ld [wUnusedD102 + 1], a
2015-11-09 20:55:39 -08:00
ld de, MUSIC_NONE
call PlayMusic
ld a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
2015-11-09 20:55:39 -08:00
ld c, 66
call z, DelayFrames
ld de, MUSIC_ROUTE_30
call PlayMusic
2015-12-21 11:10:16 -08:00
jp InitTradeMenuDisplay
2015-11-09 20:55:39 -08:00
; 28177
Gen2ToGen2LinkComms: ; 28177
call ClearLinkData
call Link_PrepPartyData_Gen2
call FixDataForLinkTransfer
2015-11-09 20:55:39 -08:00
call Function29dba
2018-01-23 14:39:09 -08:00
ld a, [wScriptVar]
2015-11-09 20:55:39 -08:00
and a
2016-01-04 05:43:55 -08:00
jp z, LinkTimeout
ld a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
jr nz, .Player1
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
xor a
ld [hSerialSend], a
ld a, (0 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
2015-11-09 20:55:39 -08:00
call DelayFrame
xor a
ld [hSerialSend], a
ld a, (0 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
.Player1:
2015-11-09 20:55:39 -08:00
ld de, MUSIC_NONE
call PlayMusic
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
xor a
ld [rIF], a
ld a, $8
ld [rIE], a
ld hl, wd1f3
2018-01-23 14:39:09 -08:00
ld de, wEnemyMonSpecies
2015-11-09 20:55:39 -08:00
ld bc, $11
call Serial_ExchangeBytes
ld a, SERIAL_NO_DATA_BYTE
2015-11-09 20:55:39 -08:00
ld [de], a
ld hl, wLinkData
2018-01-23 14:39:09 -08:00
ld de, wOTPlayerName
2015-11-09 20:55:39 -08:00
ld bc, $1c2
call Serial_ExchangeBytes
ld a, SERIAL_NO_DATA_BYTE
2015-11-09 20:55:39 -08:00
ld [de], a
ld hl, wLink_c608
ld de, wTrademons
ld bc, wTrademons - wLink_c608
call Serial_ExchangeBytes
2015-11-09 20:55:39 -08:00
ld a, [wLinkMode]
cp LINK_TRADECENTER
jr nz, .not_trading
2015-11-09 20:55:39 -08:00
ld hl, wc9f4
ld de, wcb84
ld bc, $186
call ExchangeBytes
2015-11-09 20:55:39 -08:00
.not_trading
2015-11-09 20:55:39 -08:00
xor a
ld [rIF], a
ld a, $1d
ld [rIE], a
ld de, MUSIC_NONE
call PlayMusic
call Link_CopyRandomNumbers
2018-01-23 14:39:09 -08:00
ld hl, wOTPlayerName
2015-12-21 11:10:16 -08:00
call Link_FindFirstNonControlCharacter_SkipZero
ld de, wLinkData
2015-11-09 20:55:39 -08:00
ld bc, $1b9
2015-12-21 11:10:16 -08:00
call Link_CopyOTData
2015-11-22 21:21:21 -08:00
ld de, wPlayerTrademonSpecies
2015-12-21 11:10:16 -08:00
ld hl, wLinkPlayerPartyMon1Species
ld c, 2
.loop1
2015-11-09 20:55:39 -08:00
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
2015-11-09 20:55:39 -08:00
push hl
push bc
ld b, 0
2015-11-09 20:55:39 -08:00
dec a
ld c, a
add hl, bc
ld a, SERIAL_NO_DATA_BYTE
2015-11-09 20:55:39 -08:00
ld [hl], a
pop bc
pop hl
jr .loop1
2015-11-09 20:55:39 -08:00
.next1
2015-11-09 20:55:39 -08:00
ld hl, wc90f
dec c
jr nz, .loop1
2015-11-09 20:55:39 -08:00
ld a, [wLinkMode]
cp LINK_TRADECENTER
jp nz, .skip_mail
2015-11-09 20:55:39 -08:00
ld hl, wcb84
.loop2
2015-11-09 20:55:39 -08:00
ld a, [hli]
cp MAIL_MSG_LENGTH
jr nz, .loop2
.loop3
2015-11-09 20:55:39 -08:00
ld a, [hli]
cp SERIAL_NO_DATA_BYTE
jr z, .loop3
cp MAIL_MSG_LENGTH
jr z, .loop3
2015-11-09 20:55:39 -08:00
dec hl
ld de, wcb84
ld bc, $190 ; 400
2015-11-09 20:55:39 -08:00
call CopyBytes
ld hl, wcb84
ld bc, $c6 ; 198
.loop4
2015-11-09 20:55:39 -08:00
ld a, [hl]
cp MAIL_MSG_LENGTH + 1
jr nz, .okay1
ld [hl], SERIAL_NO_DATA_BYTE
.okay1
2015-11-09 20:55:39 -08:00
inc hl
dec bc
ld a, b
or c
jr nz, .loop4
2015-11-09 20:55:39 -08:00
ld de, wcc9e
.loop5
2015-11-09 20:55:39 -08:00
ld a, [de]
inc de
cp SERIAL_PATCH_LIST_PART_TERMINATOR
jr z, .start_copying_mail
2015-11-09 20:55:39 -08:00
ld hl, wcc4a
dec a
ld b, $0
ld c, a
add hl, bc
ld [hl], SERIAL_NO_DATA_BYTE
jr .loop5
2015-11-09 20:55:39 -08:00
.start_copying_mail
2015-11-09 20:55:39 -08:00
ld hl, wcb84
ld de, wc9f4
ld b, PARTY_LENGTH
.copy_mail_loop
2015-11-09 20:55:39 -08:00
push bc
ld bc, MAIL_MSG_LENGTH + 1
2015-11-09 20:55:39 -08:00
call CopyBytes
ld a, LOW(MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1))
2015-11-09 20:55:39 -08:00
add e
ld e, a
ld a, HIGH(MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1))
2015-11-09 20:55:39 -08:00
adc d
ld d, a
pop bc
dec b
jr nz, .copy_mail_loop
2015-11-09 20:55:39 -08:00
ld de, wc9f4
ld b, PARTY_LENGTH
.copy_author_loop
2015-11-09 20:55:39 -08:00
push bc
ld a, LOW(MAIL_MSG_LENGTH + 1)
2015-11-09 20:55:39 -08:00
add e
ld e, a
ld a, HIGH(MAIL_MSG_LENGTH + 1)
2015-11-09 20:55:39 -08:00
adc d
ld d, a
ld bc, MAIL_STRUCT_LENGTH - (MAIL_MSG_LENGTH + 1)
2015-11-09 20:55:39 -08:00
call CopyBytes
pop bc
dec b
jr nz, .copy_author_loop
ld b, PARTY_LENGTH
2015-11-09 20:55:39 -08:00
ld de, wc9f4
.fix_mail_loop
2015-11-09 20:55:39 -08:00
push bc
push de
2017-12-24 09:47:30 -08:00
farcall IsMailEuropean
2015-11-09 20:55:39 -08:00
ld a, c
or a
2015-11-22 09:01:58 -08:00
jr z, .next
2015-11-09 20:55:39 -08:00
sub $3
2015-11-22 09:01:58 -08:00
jr nc, .skip
2017-12-24 09:47:30 -08:00
farcall DeutenEnglischenPost
2015-11-22 09:01:58 -08:00
jr .next
2015-11-09 20:55:39 -08:00
2015-11-22 09:01:58 -08:00
.skip
2015-11-09 20:55:39 -08:00
cp $2
2015-11-22 09:01:58 -08:00
jr nc, .next
2017-12-24 09:47:30 -08:00
farcall HandleSpanishItalianMail
2015-11-09 20:55:39 -08:00
2015-11-22 09:01:58 -08:00
.next
2015-11-09 20:55:39 -08:00
pop de
2015-11-22 09:01:58 -08:00
ld hl, MAIL_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
add hl, de
ld d, h
ld e, l
pop bc
dec b
jr nz, .fix_mail_loop
2015-11-09 20:55:39 -08:00
ld de, wcb0e
xor a
ld [de], a
.skip_mail
2017-12-09 16:41:03 -08:00
ld hl, wLinkPlayerName
2018-01-23 14:39:09 -08:00
ld de, wOTPlayerName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
2018-01-23 14:39:09 -08:00
ld de, wOTPartyCount
ld bc, 1 + PARTY_LENGTH + 1
2015-11-09 20:55:39 -08:00
call CopyBytes
2018-01-23 14:39:09 -08:00
ld de, wOTPlayerID
2015-11-09 20:55:39 -08:00
ld bc, 2
call CopyBytes
2018-01-23 14:39:09 -08:00
ld de, wOTPartyMons
ld bc, wOTPartyDataEnd - wOTPartyMons
2015-11-09 20:55:39 -08:00
call CopyBytes
2018-01-23 14:39:09 -08:00
ld a, LOW(wOTPartyMonOT)
2016-06-13 19:53:33 -07:00
ld [wUnusedD102], a
2018-01-23 14:39:09 -08:00
ld a, HIGH(wOTPartyMonOT)
2016-06-13 19:53:33 -07:00
ld [wUnusedD102 + 1], a
2015-11-09 20:55:39 -08:00
ld de, MUSIC_NONE
call PlayMusic
ld a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
2015-11-09 20:55:39 -08:00
ld c, 66
call z, DelayFrames
ld a, [wLinkMode]
cp LINK_COLOSSEUM
jr nz, .ready_to_trade
2015-11-09 20:55:39 -08:00
ld a, CAL
2018-01-23 14:39:09 -08:00
ld [wOtherTrainerClass], a
2015-11-09 20:55:39 -08:00
call ClearScreen
2017-12-24 09:47:30 -08:00
farcall Link_WaitBGMap
2018-01-23 14:39:09 -08:00
ld hl, wOptions
2015-11-09 20:55:39 -08:00
ld a, [hl]
push af
and 1 << STEREO
or TEXT_DELAY_MED
2015-11-09 20:55:39 -08:00
ld [hl], a
2018-01-23 14:39:09 -08:00
ld hl, wOTPlayerName
ld de, wOTClassName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
2015-11-11 20:38:57 -08:00
call ReturnToMapFromSubmenu
2016-05-05 12:07:37 -07:00
; LET'S DO THIS
ld a, [wDisableTextAcceleration]
2015-11-09 20:55:39 -08:00
push af
2016-05-05 12:07:37 -07:00
ld a, 1
ld [wDisableTextAcceleration], a
2015-11-09 20:55:39 -08:00
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
2016-05-05 12:07:37 -07:00
predef StartBattle
2016-05-05 12:07:37 -07:00
2015-11-09 20:55:39 -08:00
ld a, [rIF]
ld h, a
xor a
ld [rIF], a
pop af
ld [rIE], a
ld a, h
ld [rIF], a
pop af
2016-05-05 12:07:37 -07:00
ld [wDisableTextAcceleration], a
2015-11-09 20:55:39 -08:00
pop af
2018-01-23 14:39:09 -08:00
ld [wOptions], a
2017-12-24 09:47:30 -08:00
farcall LoadPokemonData
2015-11-09 20:55:39 -08:00
jp Function28b22
.ready_to_trade
2015-11-09 20:55:39 -08:00
ld de, MUSIC_ROUTE_30
call PlayMusic
2015-12-21 11:10:16 -08:00
jp InitTradeMenuDisplay
2015-11-09 20:55:39 -08:00
; 283b2
2016-01-04 05:43:55 -08:00
LinkTimeout: ; 283b2
ld de, .TooMuchTimeHasElapsed
2016-01-04 05:43:55 -08:00
ld b, 10
.loop
2015-11-09 20:55:39 -08:00
call DelayFrame
call LinkDataReceived
2015-11-09 20:55:39 -08:00
dec b
jr nz, .loop
2015-11-09 20:55:39 -08:00
xor a
ld [hld], a
ld [hl], a
ld [hVBlank], a
push de
hlcoord 0, 12
ld b, 4
ld c, 18
2015-11-09 20:55:39 -08:00
push de
ld d, h
ld e, l
2017-12-24 09:47:30 -08:00
farcall LinkTextbox2
2015-11-09 20:55:39 -08:00
pop de
pop hl
bccoord 1, 14
call PlaceHLTextAtBC
2015-11-20 08:47:52 -08:00
call RotateThreePalettesRight
2015-11-09 20:55:39 -08:00
call ClearScreen
2016-06-06 15:23:00 -07:00
ld b, SCGB_DIPLOMA
2015-11-09 20:55:39 -08:00
call GetSGBLayout
2015-12-11 13:59:40 -08:00
call WaitBGMap2
2015-11-09 20:55:39 -08:00
ret
; 283ed
.TooMuchTimeHasElapsed: ; 0x283ed
2015-11-09 20:55:39 -08:00
; Too much time has elapsed. Please try again.
text_jump UnknownText_0x1c4183
db "@"
; 0x283f2
ExchangeBytes: ; 283f2
ld a, TRUE
ld [hSerialIgnoringInitialData], a
.loop
2015-11-09 20:55:39 -08:00
ld a, [hl]
ld [hSerialSend], a
call Serial_ExchangeByte
2015-11-09 20:55:39 -08:00
push bc
ld b, a
inc hl
ld a, 48
.delay_cycles
2015-11-09 20:55:39 -08:00
dec a
jr nz, .delay_cycles
ld a, [hSerialIgnoringInitialData]
2015-11-09 20:55:39 -08:00
and a
ld a, b
pop bc
jr z, .load
2015-11-09 20:55:39 -08:00
dec hl
xor a
ld [hSerialIgnoringInitialData], a
jr .loop
2015-11-09 20:55:39 -08:00
.load
2015-11-09 20:55:39 -08:00
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .loop
2015-11-09 20:55:39 -08:00
ret
; 28419
String_PleaseWait: ; 28419
2015-11-09 20:55:39 -08:00
db "PLEASE WAIT!@"
; 28426
ClearLinkData: ; 28426
ld hl, wLinkData
ld bc, wLinkDataEnd - wLinkData
.loop
2015-11-09 20:55:39 -08:00
xor a
ld [hli], a
dec bc
ld a, b
or c
jr nz, .loop
2015-11-09 20:55:39 -08:00
ret
; 28434
FixDataForLinkTransfer: ; 28434
2015-11-09 20:55:39 -08:00
ld hl, wd1f3
ld a, SERIAL_PREAMBLE_BYTE
2018-01-23 14:39:09 -08:00
ld b, wLinkBattleRNs - wd1f3
2015-12-21 11:10:16 -08:00
.loop1
2015-11-09 20:55:39 -08:00
ld [hli], a
dec b
2015-12-21 11:10:16 -08:00
jr nz, .loop1
2018-01-23 14:39:09 -08:00
ld b, wTempEnemyMonSpecies - wLinkBattleRNs
2015-12-21 11:10:16 -08:00
.loop2
2015-11-09 20:55:39 -08:00
call Random
cp SERIAL_PREAMBLE_BYTE
2015-12-21 11:10:16 -08:00
jr nc, .loop2
2015-11-09 20:55:39 -08:00
ld [hli], a
dec b
2015-12-21 11:10:16 -08:00
jr nz, .loop2
ld hl, wLink_c608
ld a, SERIAL_PREAMBLE_BYTE
2015-11-09 20:55:39 -08:00
ld [hli], a
ld [hli], a
ld [hli], a
2016-01-09 20:41:03 -08:00
ld b, $c8
2015-11-09 20:55:39 -08:00
xor a
2015-12-21 11:10:16 -08:00
.loop3
2015-11-09 20:55:39 -08:00
ld [hli], a
dec b
2015-12-21 11:10:16 -08:00
jr nz, .loop3
ld hl, wTimeCapsulePartyMon1 - 1 + 6
ld de, wc612
2015-12-21 11:10:16 -08:00
lb bc, 0, 0
.loop4
2015-11-09 20:55:39 -08:00
inc c
ld a, c
cp SERIAL_PREAMBLE_BYTE
2015-12-21 11:10:16 -08:00
jr z, .next1
2015-11-09 20:55:39 -08:00
ld a, b
dec a
2015-12-21 11:10:16 -08:00
jr nz, .next2
2015-11-09 20:55:39 -08:00
push bc
ld a, [wLinkMode]
cp LINK_TIMECAPSULE
ld b, $d
2015-12-21 11:10:16 -08:00
jr z, .got_value
2015-11-09 20:55:39 -08:00
ld b, $27
2015-12-21 11:10:16 -08:00
.got_value
2015-11-09 20:55:39 -08:00
ld a, c
cp b
pop bc
2015-12-21 11:10:16 -08:00
jr z, .done
.next2
2015-11-09 20:55:39 -08:00
inc hl
ld a, [hl]
cp SERIAL_NO_DATA_BYTE
2015-12-21 11:10:16 -08:00
jr nz, .loop4
2015-11-09 20:55:39 -08:00
ld a, c
ld [de], a
inc de
ld [hl], SERIAL_PATCH_LIST_PART_TERMINATOR
2015-12-21 11:10:16 -08:00
jr .loop4
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.next1
ld a, SERIAL_PATCH_LIST_PART_TERMINATOR
2015-11-09 20:55:39 -08:00
ld [de], a
inc de
lb bc, 1, 0
2015-12-21 11:10:16 -08:00
jr .loop4
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.done
ld a, SERIAL_PATCH_LIST_PART_TERMINATOR
2015-11-09 20:55:39 -08:00
ld [de], a
ret
; 28499
Link_PrepPartyData_Gen1: ; 28499
ld de, wLinkData
ld a, SERIAL_PREAMBLE_BYTE
ld b, PARTY_LENGTH
.loop1
2015-11-09 20:55:39 -08:00
ld [de], a
inc de
dec b
jr nz, .loop1
2018-01-23 14:39:09 -08:00
ld hl, wPlayerName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
push de
2018-01-23 14:39:09 -08:00
ld hl, wPartyCount
2015-11-09 20:55:39 -08:00
ld a, [hli]
ld [de], a
inc de
.loop2
2015-11-09 20:55:39 -08:00
ld a, [hli]
cp -1
jr z, .done_party
2015-11-09 20:55:39 -08:00
ld [wd265], a
push hl
push de
2017-12-24 09:47:30 -08:00
callfar ConvertMon_2to1
2015-11-09 20:55:39 -08:00
pop de
pop hl
ld a, [wd265]
ld [de], a
inc de
jr .loop2
2015-11-09 20:55:39 -08:00
.done_party
2015-11-09 20:55:39 -08:00
ld [de], a
pop de
ld hl, 1 + PARTY_LENGTH + 1
2015-11-09 20:55:39 -08:00
add hl, de
ld d, h
ld e, l
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Species
ld c, PARTY_LENGTH
.mon_loop
2015-11-09 20:55:39 -08:00
push bc
call .ConvertPartyStruct2to1
2015-11-09 20:55:39 -08:00
ld bc, PARTYMON_STRUCT_LENGTH
add hl, bc
pop bc
dec c
jr nz, .mon_loop
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonOT
call .copy_ot_nicks
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonNicknames
.copy_ot_nicks
ld bc, PARTY_LENGTH * NAME_LENGTH
2015-11-09 20:55:39 -08:00
jp CopyBytes
; 284f6
.ConvertPartyStruct2to1: ; 284f6
2015-11-09 20:55:39 -08:00
ld b, h
ld c, l
push de
push bc
ld a, [hl]
ld [wd265], a
2017-12-24 09:47:30 -08:00
callfar ConvertMon_2to1
2015-11-09 20:55:39 -08:00
pop bc
pop de
ld a, [wd265]
ld [de], a
inc de
ld hl, MON_HP
2015-11-09 20:55:39 -08:00
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
2015-11-09 20:55:39 -08:00
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
2015-11-09 20:55:39 -08:00
.steel_type
ld a, ELECTRIC
2015-11-09 20:55:39 -08:00
ld [de], a
inc de
ld [de], a
inc de
jr .done_steel
2015-11-09 20:55:39 -08:00
.skip_steel
2015-11-09 20:55:39 -08:00
push bc
dec a
ld hl, BaseData + BASE_TYPES
ld bc, BASE_DATA_SIZE
2015-11-09 20:55:39 -08:00
call AddNTimes
ld bc, BASE_CATCH_RATE - BASE_TYPES
2015-11-09 20:55:39 -08:00
ld a, BANK(BaseData)
call FarCopyBytes
pop bc
.done_steel
2015-11-09 20:55:39 -08:00
push bc
ld hl, MON_ITEM
2015-11-09 20:55:39 -08:00
add hl, bc
ld bc, MON_HAPPINESS - MON_ITEM
2015-11-09 20:55:39 -08:00
call CopyBytes
pop bc
ld hl, MON_LEVEL
2015-11-09 20:55:39 -08:00
add hl, bc
ld a, [hl]
ld [de], a
2018-01-23 14:39:09 -08:00
ld [wCurPartyLevel], a
2015-11-09 20:55:39 -08:00
inc de
push bc
ld hl, MON_MAXHP
2015-11-09 20:55:39 -08:00
add hl, bc
ld bc, MON_SAT - MON_MAXHP
2015-11-09 20:55:39 -08:00
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
2018-01-23 14:39:09 -08:00
ld [wBaseSpecialAttack], a
2015-11-09 20:55:39 -08:00
pop bc
2015-12-21 11:10:16 -08:00
ld hl, MON_STAT_EXP - 1
2015-11-09 20:55:39 -08:00
add hl, bc
ld c, STAT_SATK
ld b, TRUE
predef CalcMonStatC
2015-11-09 20:55:39 -08:00
pop bc
pop de
ld a, [hQuotient + 1]
2015-11-09 20:55:39 -08:00
ld [de], a
inc de
ld a, [hQuotient + 2]
2015-11-09 20:55:39 -08:00
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
2015-11-09 20:55:39 -08:00
.loop1
ld [de], a
inc de
dec b
jr nz, .loop1
2018-01-23 14:39:09 -08:00
ld hl, wPlayerName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
2018-01-23 14:39:09 -08:00
ld hl, wPartyCount
2015-11-22 09:01:58 -08:00
ld bc, 1 + PARTY_LENGTH + 1
2015-11-09 20:55:39 -08:00
call CopyBytes
2018-01-23 14:39:09 -08:00
ld hl, wPlayerID
2015-11-09 20:55:39 -08:00
ld bc, 2
call CopyBytes
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Species
2015-11-22 09:01:58 -08:00
ld bc, PARTY_LENGTH * PARTYMON_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
call CopyBytes
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonOT
2015-11-22 09:01:58 -08:00
ld bc, PARTY_LENGTH * NAME_LENGTH
2015-11-09 20:55:39 -08:00
call CopyBytes
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonNicknames
2018-01-20 09:25:55 -08:00
ld bc, PARTY_LENGTH * MON_NAME_LENGTH
2015-11-09 20:55:39 -08:00
call CopyBytes
2015-11-22 09:01:58 -08:00
; Okay, we did all that. Now, are we in the trade center?
2015-11-09 20:55:39 -08:00
ld a, [wLinkMode]
cp LINK_TRADECENTER
ret nz
2015-11-22 09:01:58 -08:00
2015-11-22 21:21:21 -08:00
; Fill 5 bytes at wc9f4 with $20
2015-11-09 20:55:39 -08:00
ld de, wc9f4
ld a, $20
call Function28682
2015-11-22 09:01:58 -08:00
2015-11-22 21:21:21 -08:00
; Copy all the mail messages to wc9f9
2015-11-17 14:56:49 -08:00
ld a, BANK(sPartyMail)
2015-11-09 20:55:39 -08:00
call GetSRAMBank
2015-11-17 14:56:49 -08:00
ld hl, sPartyMail
2015-11-09 20:55:39 -08:00
ld b, PARTY_LENGTH
.loop2
push bc
2015-11-22 09:01:58 -08:00
ld bc, MAIL_MSG_LENGTH + 1
2015-11-09 20:55:39 -08:00
call CopyBytes
2015-11-22 21:21:21 -08:00
ld bc, sPartyMon1MailEnd - sPartyMon1MailAuthor
2015-11-09 20:55:39 -08:00
add hl, bc
pop bc
dec b
jr nz, .loop2
; Copy the mail data to wcabf
2015-11-17 14:56:49 -08:00
ld hl, sPartyMail
2015-11-09 20:55:39 -08:00
ld b, PARTY_LENGTH
.loop3
push bc
2015-11-22 09:01:58 -08:00
ld bc, MAIL_MSG_LENGTH + 1
2015-11-09 20:55:39 -08:00
add hl, bc
2015-11-22 21:21:21 -08:00
ld bc, sPartyMon1MailEnd - sPartyMon1MailAuthor
2015-11-09 20:55:39 -08:00
call CopyBytes
pop bc
dec b
jr nz, .loop3
2015-11-22 09:01:58 -08:00
2015-11-09 20:55:39 -08:00
ld b, PARTY_LENGTH
2015-11-17 14:56:49 -08:00
ld de, sPartyMail
2015-11-09 20:55:39 -08:00
ld hl, wc9f9
.loop4
push bc
push hl
push de
push hl
2017-12-24 09:47:30 -08:00
farcall IsMailEuropean
2015-11-09 20:55:39 -08:00
pop de
ld a, c
or a
jr z, .next
sub $3
2015-11-22 09:01:58 -08:00
jr nc, .italian_spanish
2017-12-24 09:47:30 -08:00
farcall HandleFrenchGermanMail
2015-11-09 20:55:39 -08:00
jr .next
2015-11-22 09:01:58 -08:00
.italian_spanish
2015-11-09 20:55:39 -08:00
cp $2
jr nc, .next
2017-12-24 09:47:30 -08:00
farcall HandleSpanishItalianMail
2015-11-09 20:55:39 -08:00
.next
pop de
2015-11-17 14:56:49 -08:00
ld hl, MAIL_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
add hl, de
ld d, h
ld e, l
pop hl
2015-11-22 21:21:21 -08:00
ld bc, sPartyMon1MailAuthor - sPartyMon1Mail
2015-11-09 20:55:39 -08:00
add hl, bc
pop bc
dec b
jr nz, .loop4
call CloseSRAM
ld hl, wc9f9
2015-11-22 21:21:21 -08:00
ld bc, PARTY_LENGTH * (sPartyMon1MailAuthor - sPartyMon1Mail)
2015-11-09 20:55:39 -08:00
.loop5
ld a, [hl]
cp SERIAL_NO_DATA_BYTE
2015-11-09 20:55:39 -08:00
jr nz, .skip2
2015-11-22 21:21:21 -08:00
ld [hl], sPartyMon1MailAuthor - sPartyMon1Mail
2015-11-09 20:55:39 -08:00
.skip2
inc hl
dec bc
ld a, b
or c
jr nz, .loop5
ld hl, wcabf
ld de, wcb13
2015-11-22 21:21:21 -08:00
ld b, PARTY_LENGTH * (sPartyMon1MailEnd - sPartyMon1MailAuthor)
2015-11-09 20:55:39 -08:00
ld c, $0
.loop6
inc c
ld a, [hl]
cp SERIAL_NO_DATA_BYTE
2015-11-09 20:55:39 -08:00
jr nz, .skip3
ld [hl], SERIAL_PATCH_LIST_PART_TERMINATOR
2015-11-09 20:55:39 -08:00
ld a, c
ld [de], a
inc de
.skip3
inc hl
dec b
jr nz, .loop6
ld a, SERIAL_PATCH_LIST_PART_TERMINATOR
2015-11-09 20:55:39 -08:00
ld [de], a
ret
; 28682
Function28682: ; 28682
ld c, 5
2015-11-09 20:55:39 -08:00
.loop
ld [de], a
inc de
dec c
jr nz, .loop
ret
; 2868a
Function2868a: ; 2868a
push hl
ld d, h
ld e, l
2015-12-21 11:10:16 -08:00
ld bc, wLinkOTPartyMonTypes
2015-11-09 20:55:39 -08:00
ld hl, wcbe8
ld a, c
ld [hli], a
ld [hl], b
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1Species
ld c, PARTY_LENGTH
2015-11-09 20:55:39 -08:00
.loop
push bc
2015-12-21 11:10:16 -08:00
call .ConvertToGen2
2015-11-09 20:55:39 -08:00
pop bc
dec c
jr nz, .loop
pop hl
2015-12-21 11:10:16 -08:00
ld bc, PARTY_LENGTH * REDMON_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
add hl, bc
2018-01-23 14:39:09 -08:00
ld de, wOTPartyMonOT
ld bc, PARTY_LENGTH * NAME_LENGTH
2015-11-09 20:55:39 -08:00
call CopyBytes
2018-01-23 14:39:09 -08:00
ld de, wOTPartyMonNicknames
2018-01-20 09:25:55 -08:00
ld bc, PARTY_LENGTH * MON_NAME_LENGTH
2015-11-09 20:55:39 -08:00
jp CopyBytes
; 286ba
2015-12-21 11:10:16 -08:00
.ConvertToGen2: ; 286ba
2015-11-09 20:55:39 -08:00
ld b, h
ld c, l
ld a, [de]
inc de
push bc
push de
ld [wd265], a
callfar ConvertMon_1to2
2015-11-09 20:55:39 -08:00
pop de
pop bc
ld a, [wd265]
ld [bc], a
2018-01-23 14:39:09 -08:00
ld [wCurSpecies], a
ld hl, MON_HP
2015-11-09 20:55:39 -08:00
add hl, bc
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hl], a
inc de
2015-12-21 11:10:16 -08:00
ld hl, MON_STATUS
2015-11-09 20:55:39 -08:00
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
2015-12-21 11:10:16 -08:00
ld [wcbe8 + 1], a
2015-11-09 20:55:39 -08:00
push bc
2015-12-21 11:10:16 -08:00
ld hl, MON_ITEM
2015-11-09 20:55:39 -08:00
add hl, bc
push hl
ld h, d
ld l, e
pop de
push bc
ld a, [hli]
ld b, a
2015-12-21 11:10:16 -08:00
call TimeCapsule_ReplaceTeruSama
2015-11-09 20:55:39 -08:00
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
2018-01-23 14:39:09 -08:00
ld [wCurPartyLevel], a
2015-11-09 20:55:39 -08:00
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
2015-12-21 11:10:16 -08:00
ld hl, MON_STAT_EXP - 1
2015-11-09 20:55:39 -08:00
add hl, bc
ld c, STAT_SATK
ld b, TRUE
predef CalcMonStatC
2015-11-09 20:55:39 -08:00
pop bc
pop hl
ld a, [hQuotient + 1]
2015-11-09 20:55:39 -08:00
ld [hli], a
ld a, [hQuotient + 2]
2015-11-09 20:55:39 -08:00
ld [hli], a
push hl
push bc
2015-12-21 11:10:16 -08:00
ld hl, MON_STAT_EXP - 1
2015-11-09 20:55:39 -08:00
add hl, bc
ld c, STAT_SDEF
ld b, TRUE
predef CalcMonStatC
2015-11-09 20:55:39 -08:00
pop bc
pop hl
ld a, [hQuotient + 1]
2015-11-09 20:55:39 -08:00
ld [hli], a
ld a, [hQuotient + 2]
2015-11-09 20:55:39 -08:00
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
2015-11-09 20:55:39 -08:00
ld [hl], a
pop hl
inc de
inc de
2015-11-09 20:55:39 -08:00
ret
; 28771
2015-12-21 11:10:16 -08:00
TimeCapsule_ReplaceTeruSama: ; 28771
2015-11-09 20:55:39 -08:00
ld a, b
and a
ret z
push hl
2017-12-11 19:59:30 -08:00
ld hl, TimeCapsule_CatchRateItems
2015-11-09 20:55:39 -08:00
.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
2017-12-11 19:59:30 -08:00
2018-01-02 23:23:54 -08:00
INCLUDE "data/items/catch_rate_items.asm"
2017-12-11 19:59:30 -08:00
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
Link_CopyOTData: ; 2879e
.loop
2015-11-09 20:55:39 -08:00
ld a, [hli]
cp SERIAL_NO_DATA_BYTE
jr z, .loop
2015-11-09 20:55:39 -08:00
ld [de], a
inc de
dec bc
ld a, b
or c
jr nz, .loop
2015-11-09 20:55:39 -08:00
ret
; 287ab
Link_CopyRandomNumbers: ; 287ab
ld a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
2015-11-09 20:55:39 -08:00
ret z
2018-01-23 14:39:09 -08:00
ld hl, wEnemyMonSpecies
2015-12-21 11:10:16 -08:00
call Link_FindFirstNonControlCharacter_AllowZero
2018-01-23 14:39:09 -08:00
ld de, wLinkBattleRNs
2015-12-21 11:10:16 -08:00
ld c, 10
.loop
2015-11-09 20:55:39 -08:00
ld a, [hli]
cp SERIAL_NO_DATA_BYTE
jr z, .loop
cp SERIAL_PREAMBLE_BYTE
jr z, .loop
2015-11-09 20:55:39 -08:00
ld [de], a
inc de
dec c
jr nz, .loop
2015-11-09 20:55:39 -08:00
ret
; 287ca
2015-12-21 11:10:16 -08:00
Link_FindFirstNonControlCharacter_SkipZero: ; 287ca
.loop
2015-11-09 20:55:39 -08:00
ld a, [hli]
and a
jr z, .loop
cp SERIAL_PREAMBLE_BYTE
jr z, .loop
cp SERIAL_NO_DATA_BYTE
jr z, .loop
2015-11-09 20:55:39 -08:00
dec hl
ret
; 287d8
2015-12-21 11:10:16 -08:00
Link_FindFirstNonControlCharacter_AllowZero: ; 287d8
.loop
2015-11-09 20:55:39 -08:00
ld a, [hli]
cp SERIAL_PREAMBLE_BYTE
jr z, .loop
cp SERIAL_NO_DATA_BYTE
jr z, .loop
2015-11-09 20:55:39 -08:00
dec hl
ret
; 287e3
2015-12-21 11:10:16 -08:00
InitTradeMenuDisplay: ; 287e3
2015-11-09 20:55:39 -08:00
call ClearScreen
2015-12-21 11:10:16 -08:00
call LoadTradeScreenBorder
2017-12-24 09:47:30 -08:00
farcall InitTradeSpeciesList
2015-11-09 20:55:39 -08:00
xor a
2015-11-23 13:04:53 -08:00
ld hl, wOtherPlayerLinkMode
2015-11-09 20:55:39 -08:00
ld [hli], a
ld [hli], a
ld [hli], a
2015-11-09 20:55:39 -08:00
ld [hl], a
2015-12-21 11:10:16 -08:00
ld a, 1
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-11-09 20:55:39 -08:00
inc a
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2015-12-21 11:10:16 -08:00
jp LinkTrade_PlayerPartyMenu
2015-11-09 20:55:39 -08:00
; 28803
2015-12-21 11:10:16 -08:00
LinkTrade_OTPartyMenu: ; 28803
ld a, OTPARTYMON
2018-01-23 14:39:09 -08:00
ld [wMonType], a
ld a, A_BUTTON | D_UP | D_DOWN
ld [wMenuJoypadFilter], a
2018-01-23 14:39:09 -08:00
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
2015-12-15 15:59:49 -08:00
ld [wMenuCursorX], a
2015-12-21 11:10:16 -08:00
ln a, 1, 0
ld [w2DMenuCursorOffsets], a
ld a, MENU_UNUSED_3
ld [w2DMenuFlags1], a
2015-11-09 20:55:39 -08:00
xor a
ld [w2DMenuFlags2], a
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
LinkTradeOTPartymonMenuLoop: ; 28835
2017-12-24 09:47:30 -08:00
farcall LinkTradeMenu
2015-11-09 20:55:39 -08:00
ld a, d
and a
2015-12-21 11:10:16 -08:00
jp z, LinkTradePartiesMenuMasterLoop
bit A_BUTTON_F, a
jr z, .not_a_button
ld a, INIT_ENEMYOT_LIST
2016-06-13 19:53:33 -07:00
ld [wInitListType], a
2017-12-24 09:47:30 -08:00
callfar InitList
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1Species
2017-12-24 09:47:30 -08:00
farcall LinkMonStatsScreen
2015-12-21 11:10:16 -08:00
jp LinkTradePartiesMenuMasterLoop
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.not_a_button
bit D_UP_F, a
jr z, .not_d_up
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-11-09 20:55:39 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wOTPartyCount]
2015-11-09 20:55:39 -08:00
cp b
2015-12-21 11:10:16 -08:00
jp nz, LinkTradePartiesMenuMasterLoop
2015-11-09 20:55:39 -08:00
xor a
2018-01-23 14:39:09 -08:00
ld [wMonType], a
2015-12-17 19:31:16 -08:00
call HideCursor
2015-11-09 20:55:39 -08:00
push hl
push bc
ld bc, NAME_LENGTH
add hl, bc
ld [hl], " "
2015-11-09 20:55:39 -08:00
pop bc
pop hl
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-21 11:10:16 -08:00
jr LinkTrade_PlayerPartyMenu
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.not_d_up
bit D_DOWN_F, a
jp z, LinkTradePartiesMenuMasterLoop
2015-11-09 20:55:39 -08:00
jp Function28ac9
; 2888b
2015-12-21 11:10:16 -08:00
LinkTrade_PlayerPartyMenu: ; 2888b
2017-12-24 09:47:30 -08:00
farcall InitMG_Mobile_LinkTradePalMap
2015-11-09 20:55:39 -08:00
xor a
2018-01-23 14:39:09 -08:00
ld [wMonType], a
ld a, A_BUTTON | D_UP | D_DOWN
ld [wMenuJoypadFilter], a
2018-01-23 14:39:09 -08:00
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
2015-12-15 15:59:49 -08:00
ld [wMenuCursorX], a
2015-12-21 11:10:16 -08:00
ln a, 1, 0
ld [w2DMenuCursorOffsets], a
ld a, MENU_UNUSED_3
ld [w2DMenuFlags1], a
2015-11-09 20:55:39 -08:00
xor a
ld [w2DMenuFlags2], a
2015-12-11 13:59:40 -08:00
call WaitBGMap2
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
LinkTradePartymonMenuLoop: ; 288c5
2017-12-24 09:47:30 -08:00
farcall LinkTradeMenu
2015-11-09 20:55:39 -08:00
ld a, d
and a
2015-12-21 11:10:16 -08:00
jr nz, .check_joypad
jp LinkTradePartiesMenuMasterLoop
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.check_joypad
bit A_BUTTON_F, a
jr z, .not_a_button
2015-11-09 20:55:39 -08:00
jp Function28926
2015-12-21 11:10:16 -08:00
.not_a_button
bit D_DOWN_F, a
jr z, .not_d_down
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-11-09 20:55:39 -08:00
dec a
2015-12-21 11:10:16 -08:00
jp nz, LinkTradePartiesMenuMasterLoop
ld a, OTPARTYMON
2018-01-23 14:39:09 -08:00
ld [wMonType], a
2015-12-17 19:31:16 -08:00
call HideCursor
2015-11-09 20:55:39 -08:00
push hl
push bc
ld bc, NAME_LENGTH
add hl, bc
2015-12-21 11:10:16 -08:00
ld [hl], " "
2015-11-09 20:55:39 -08:00
pop bc
pop hl
2015-12-21 11:10:16 -08:00
ld a, 1
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-21 11:10:16 -08:00
jp LinkTrade_OTPartyMenu
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.not_d_down
bit D_UP_F, a
jr z, LinkTradePartiesMenuMasterLoop
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-11-09 20:55:39 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-11-09 20:55:39 -08:00
cp b
2015-12-21 11:10:16 -08:00
jr nz, LinkTradePartiesMenuMasterLoop
2015-12-17 19:31:16 -08:00
call HideCursor
2015-11-09 20:55:39 -08:00
push hl
push bc
ld bc, NAME_LENGTH
add hl, bc
2015-12-21 11:10:16 -08:00
ld [hl], " "
2015-11-09 20:55:39 -08:00
pop bc
pop hl
jp Function28ade
; 2891c
2015-12-21 11:10:16 -08:00
LinkTradePartiesMenuMasterLoop: ; 2891c
2018-01-23 14:39:09 -08:00
ld a, [wMonType]
2015-11-09 20:55:39 -08:00
and a
2015-12-21 11:10:16 -08:00
jp z, LinkTradePartymonMenuLoop ; PARTYMON
jp LinkTradeOTPartymonMenuLoop ; OTPARTYMON
2015-11-09 20:55:39 -08:00
; 28926
Function28926: ; 28926
call LoadTileMapToTempTileMap
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-11-09 20:55:39 -08:00
push af
hlcoord 0, 15
ld b, 1
ld c, 18
call LinkTextboxAtHL
2015-11-09 20:55:39 -08:00
hlcoord 2, 16
2015-12-21 11:10:16 -08:00
ld de, .String_Stats_Trade
2015-11-09 20:55:39 -08:00
call PlaceString
2017-12-24 09:47:30 -08:00
farcall Link_WaitBGMap
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.joy_loop
ld a, " "
2015-11-09 20:55:39 -08:00
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
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
ld [wMenuCursorX], a
2015-12-21 11:10:16 -08:00
ln a, 2, 0
ld [w2DMenuCursorOffsets], a
2015-11-09 20:55:39 -08:00
xor a
ld [w2DMenuFlags1], a
ld [w2DMenuFlags2], a
2015-12-15 15:59:49 -08:00
call ScrollingMenuJoypad
bit D_RIGHT_F, a
2015-12-21 11:10:16 -08:00
jr nz, .d_right
bit B_BUTTON_F, a
2015-12-21 11:10:16 -08:00
jr z, .show_stats
.b_button
2015-11-09 20:55:39 -08:00
pop af
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-11-09 20:55:39 -08:00
call Call_LoadTempTileMapToTileMap
2015-12-21 11:10:16 -08:00
jp LinkTrade_PlayerPartyMenu
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.d_right
ld a, " "
2015-11-09 20:55:39 -08:00
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
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
ld [wMenuCursorX], a
2015-12-21 11:10:16 -08:00
ln a, 2, 0
ld [w2DMenuCursorOffsets], a
2015-11-09 20:55:39 -08:00
xor a
ld [w2DMenuFlags1], a
ld [w2DMenuFlags2], a
2015-12-15 15:59:49 -08:00
call ScrollingMenuJoypad
bit D_LEFT_F, a
2015-12-21 11:10:16 -08:00
jp nz, .joy_loop
bit B_BUTTON_F, a
2015-12-21 11:10:16 -08:00
jr nz, .b_button
jr .try_trade
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.show_stats
2015-11-09 20:55:39 -08:00
pop af
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
ld a, INIT_PLAYEROT_LIST
2016-06-13 19:53:33 -07:00
ld [wInitListType], a
2017-12-24 09:47:30 -08:00
callfar InitList
farcall LinkMonStatsScreen
2015-11-09 20:55:39 -08:00
call Call_LoadTempTileMapToTileMap
hlcoord 6, 1
lb bc, 6, 1
ld a, " "
2015-12-21 11:10:16 -08:00
call LinkEngine_FillBox
2015-11-09 20:55:39 -08:00
hlcoord 17, 1
lb bc, 6, 1
ld a, " "
2015-12-21 11:10:16 -08:00
call LinkEngine_FillBox
jp LinkTrade_PlayerPartyMenu
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.try_trade
2015-12-17 19:31:16 -08:00
call PlaceHollowCursor
2015-11-09 20:55:39 -08:00
pop af
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-11-09 20:55:39 -08:00
dec a
2015-11-10 16:51:13 -08:00
ld [wd002], a
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2017-12-24 09:47:30 -08:00
farcall Function16d6ce
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkMode]
2015-11-09 20:55:39 -08:00
cp $f
2015-12-21 11:10:16 -08:00
jp z, InitTradeMenuDisplay
2015-11-09 20:55:39 -08:00
ld [wd003], a
call Function28b68
2015-12-21 11:10:16 -08:00
ld c, 100
2015-11-09 20:55:39 -08:00
call DelayFrames
2017-12-24 09:47:30 -08:00
farcall ValidateOTTrademon
2015-12-21 11:10:16 -08:00
jr c, .abnormal
2017-12-24 09:47:30 -08:00
farcall Functionfb5dd
2015-12-21 11:10:16 -08:00
jp nc, LinkTrade
2015-11-09 20:55:39 -08:00
xor a
ld [wcf57], a
2015-11-23 13:04:53 -08:00
ld [wOtherPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
2017-12-24 09:47:30 -08:00
farcall Link_WaitBGMap
2015-12-21 11:10:16 -08:00
ld hl, .Text_CantTradeLastMon
2015-11-09 20:55:39 -08:00
bccoord 1, 14
call PlaceHLTextAtBC
2015-12-21 11:10:16 -08:00
jr .cancel_trade
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.abnormal
2015-11-09 20:55:39 -08:00
xor a
ld [wcf57], a
2015-11-23 13:04:53 -08:00
ld [wOtherPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
ld a, [wd003]
2018-01-23 14:39:09 -08:00
ld hl, wOTPartySpecies
2015-11-09 20:55:39 -08:00
ld c, a
ld b, 0
2015-11-09 20:55:39 -08:00
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
hlcoord 0, 12
2015-12-21 11:10:16 -08:00
ld b, 4
ld c, 18
call LinkTextboxAtHL
2017-12-24 09:47:30 -08:00
farcall Link_WaitBGMap
2015-12-21 11:10:16 -08:00
ld hl, .Text_Abnormal
2015-11-09 20:55:39 -08:00
bccoord 1, 14
call PlaceHLTextAtBC
2015-11-09 20:55:39 -08:00
2015-12-21 11:10:16 -08:00
.cancel_trade
2015-11-09 20:55:39 -08:00
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
2015-11-09 20:55:39 -08:00
hlcoord 1, 14
2015-12-21 11:10:16 -08:00
ld de, String_TooBadTheTradeWasCanceled
2015-11-09 20:55:39 -08:00
call PlaceString
ld a, $1
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2017-12-24 09:47:30 -08:00
farcall Function16d6ce
ld c, 100
2015-11-09 20:55:39 -08:00
call DelayFrames
2015-12-21 11:10:16 -08:00
jp InitTradeMenuDisplay
2015-11-09 20:55:39 -08:00
; 28aaf
2015-12-21 11:10:16 -08:00
.Text_CantTradeLastMon: ; 0x28aaf
2015-11-09 20:55:39 -08:00
; If you trade that #MON, you won't be able to battle.
text_jump UnknownText_0x1c41b1
db "@"
; 0x28ab4
2015-12-21 11:10:16 -08:00
.String_Stats_Trade: ; 28ab4
2015-11-09 20:55:39 -08:00
db "STATS TRADE@"
2015-12-21 11:10:16 -08:00
.Text_Abnormal: ; 0x28ac4
2015-11-09 20:55:39 -08:00
; Your friend's @ appears to be abnormal!
text_jump UnknownText_0x1c41e6
db "@"
; 0x28ac9
Function28ac9: ; 28ac9
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-12-21 11:10:16 -08:00
cp 1
jp nz, LinkTradePartiesMenuMasterLoop
2015-12-17 19:31:16 -08:00
call HideCursor
2015-11-09 20:55:39 -08:00
push hl
push bc
ld bc, NAME_LENGTH
add hl, bc
ld [hl], " "
2015-11-09 20:55:39 -08:00
pop bc
pop hl
Function28ade: ; 28ade
.loop1
ld a, "▶"
2015-11-09 20:55:39 -08:00
ldcoord_a 9, 17
.loop2
2015-11-09 20:55:39 -08:00
call JoyTextDelay
ld a, [hJoyLast]
and a
jr z, .loop2
bit A_BUTTON_F, a
jr nz, .a_button
2015-11-09 20:55:39 -08:00
push af
ld a, " "
ldcoord_a 9, 17
pop af
bit D_UP_F, a
jr z, .d_up
2018-01-23 14:39:09 -08:00
ld a, [wOTPartyCount]
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-21 11:10:16 -08:00
jp LinkTrade_OTPartyMenu
2015-11-09 20:55:39 -08:00
.d_up
2015-11-09 20:55:39 -08:00
ld a, $1
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
2015-12-21 11:10:16 -08:00
jp LinkTrade_PlayerPartyMenu
2015-11-09 20:55:39 -08:00
.a_button
ld a, "▷"
2015-11-09 20:55:39 -08:00
ldcoord_a 9, 17
ld a, $f
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2017-12-24 09:47:30 -08:00
farcall Function16d6ce
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkMode]
2015-11-09 20:55:39 -08:00
cp $f
jr nz, .loop1
2015-11-09 20:55:39 -08:00
Function28b22: ; 28b22
2015-11-20 08:47:52 -08:00
call RotateThreePalettesRight
2015-11-09 20:55:39 -08:00
call ClearScreen
2016-06-06 15:23:00 -07:00
ld b, SCGB_DIPLOMA
2015-11-09 20:55:39 -08:00
call GetSGBLayout
2015-12-11 13:59:40 -08:00
call WaitBGMap2
2015-11-09 20:55:39 -08:00
xor a
ld [wcfbb], a
xor a
ld [rSB], a
ld [hSerialSend], a
ld a, (0 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ret
; 28b42
2018-01-02 07:04:21 -08:00
Unreferenced_Function28b42: ; 28b42
2015-11-09 20:55:39 -08:00
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
2015-12-21 11:10:16 -08:00
ld de, .Cancel
2015-11-09 20:55:39 -08:00
jp PlaceString
; 28b61
2015-12-21 11:10:16 -08:00
.Cancel: ; 28b61
2015-11-09 20:55:39 -08:00
db "CANCEL@"
; 28b68
Function28b68: ; 28b68
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkMode]
2015-11-09 20:55:39 -08:00
hlcoord 6, 9
ld bc, SCREEN_WIDTH
call AddNTimes
2015-12-21 11:10:16 -08:00
ld [hl], "▷"
2015-11-09 20:55:39 -08:00
ret
; 28b77
2015-12-21 11:10:16 -08:00
LinkEngine_FillBox: ; 28b77
.row
2015-11-09 20:55:39 -08:00
push bc
push hl
2015-12-21 11:10:16 -08:00
.col
2015-11-09 20:55:39 -08:00
ld [hli], a
dec c
2015-12-21 11:10:16 -08:00
jr nz, .col
2015-11-09 20:55:39 -08:00
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
2015-12-21 11:10:16 -08:00
jr nz, .row
2015-11-09 20:55:39 -08:00
ret
; 28b87
2015-12-21 11:10:16 -08:00
LinkTrade: ; 28b87
2015-11-09 20:55:39 -08:00
xor a
ld [wcf57], a
2015-11-23 13:04:53 -08:00
ld [wOtherPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
2017-12-24 09:47:30 -08:00
farcall Link_WaitBGMap
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2018-01-23 14:39:09 -08:00
ld hl, wPartySpecies
2015-11-09 20:55:39 -08:00
ld c, a
ld b, 0
2015-11-09 20:55:39 -08:00
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer1
2015-11-09 20:55:39 -08:00
ld de, wd004
2018-01-20 09:25:55 -08:00
ld bc, MON_NAME_LENGTH
2015-11-09 20:55:39 -08:00
call CopyBytes
ld a, [wd003]
2018-01-23 14:39:09 -08:00
ld hl, wOTPartySpecies
2015-11-09 20:55:39 -08:00
ld c, a
ld b, 0
2015-11-09 20:55:39 -08:00
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ld hl, UnknownText_0x28eb8
bccoord 1, 14
call PlaceHLTextAtBC
call LoadStandardMenuHeader
2015-11-09 20:55:39 -08:00
hlcoord 10, 7
ld b, 3
ld c, 7
call LinkTextboxAtHL
2015-11-09 20:55:39 -08:00
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
2015-11-09 20:55:39 -08:00
xor a
ld [w2DMenuFlags1], a
ld [w2DMenuFlags2], a
2015-11-09 20:55:39 -08:00
ld a, $20
2015-12-21 11:10:16 -08:00
ld [w2DMenuCursorOffsets], a
ld a, A_BUTTON | B_BUTTON
ld [wMenuJoypadFilter], a
ld a, 1
2015-12-15 15:59:49 -08:00
ld [wMenuCursorY], a
ld [wMenuCursorX], a
2017-12-24 09:47:30 -08:00
farcall Link_WaitBGMap
2015-12-15 15:59:49 -08:00
call ScrollingMenuJoypad
2015-11-09 20:55:39 -08:00
push af
call Call_ExitMenu
2015-12-11 13:59:40 -08:00
call WaitBGMap2
2015-11-09 20:55:39 -08:00
pop af
bit 1, a
jr nz, .asm_28c33
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-11-09 20:55:39 -08:00
dec a
jr z, .asm_28c54
.asm_28c33
ld a, $1
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
2015-11-09 20:55:39 -08:00
hlcoord 1, 14
2015-12-21 11:10:16 -08:00
ld de, String_TooBadTheTradeWasCanceled
2015-11-09 20:55:39 -08:00
call PlaceString
2017-12-24 09:47:30 -08:00
farcall Function16d6ce
2015-11-09 20:55:39 -08:00
jp Function28ea3
.asm_28c54
ld a, $2
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2017-12-24 09:47:30 -08:00
farcall Function16d6ce
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkMode]
2015-11-09 20:55:39 -08:00
dec a
jr nz, .asm_28c7b
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
2015-11-09 20:55:39 -08:00
hlcoord 1, 14
2015-12-21 11:10:16 -08:00
ld de, String_TooBadTheTradeWasCanceled
2015-11-09 20:55:39 -08:00
call PlaceString
jp Function28ea3
.asm_28c7b
2015-11-17 14:56:49 -08:00
ld hl, sPartyMail
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2015-11-17 14:56:49 -08:00
ld bc, MAIL_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
call AddNTimes
2015-11-17 14:56:49 -08:00
ld a, BANK(sPartyMail)
2015-11-09 20:55:39 -08:00
call GetSRAMBank
ld d, h
ld e, l
2015-11-17 14:56:49 -08:00
ld bc, MAIL_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
add hl, bc
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2015-11-09 20:55:39 -08:00
ld c, a
.asm_28c96
inc c
ld a, c
cp PARTY_LENGTH
2015-11-09 20:55:39 -08:00
jr z, .asm_28ca6
push bc
2015-11-17 14:56:49 -08:00
ld bc, MAIL_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
call CopyBytes
pop bc
jr .asm_28c96
.asm_28ca6
2015-11-17 14:56:49 -08:00
ld hl, sPartyMail
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-11-09 20:55:39 -08:00
dec a
2015-11-17 14:56:49 -08:00
ld bc, MAIL_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
call AddNTimes
push hl
ld hl, wc9f4
ld a, [wd003]
2015-11-17 14:56:49 -08:00
ld bc, MAIL_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
call AddNTimes
pop de
2015-11-17 14:56:49 -08:00
ld bc, MAIL_STRUCT_LENGTH
2015-11-09 20:55:39 -08:00
call CopyBytes
call CloseSRAM
2018-01-23 14:39:09 -08:00
ld hl, wPlayerName
2015-11-22 21:21:21 -08:00
ld de, wPlayerTrademonSenderName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2018-01-23 14:39:09 -08:00
ld hl, wPartySpecies
ld b, 0
2015-11-09 20:55:39 -08:00
ld c, a
add hl, bc
ld a, [hl]
2015-11-22 21:21:21 -08:00
ld [wPlayerTrademonSpecies], a
2015-11-09 20:55:39 -08:00
push af
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonOT
2015-11-09 20:55:39 -08:00
call SkipNames
2015-11-22 21:21:21 -08:00
ld de, wPlayerTrademonOTName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1ID
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2015-11-09 20:55:39 -08:00
call GetPartyLocation
ld a, [hli]
2015-11-22 21:21:21 -08:00
ld [wPlayerTrademonID], a
2015-11-09 20:55:39 -08:00
ld a, [hl]
2015-11-22 21:21:21 -08:00
ld [wPlayerTrademonID + 1], a
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1DVs
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2015-11-09 20:55:39 -08:00
call GetPartyLocation
ld a, [hli]
2015-11-22 21:21:21 -08:00
ld [wPlayerTrademonDVs], a
2015-11-09 20:55:39 -08:00
ld a, [hl]
2015-11-22 21:21:21 -08:00
ld [wPlayerTrademonDVs + 1], a
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Species
2015-11-09 20:55:39 -08:00
call GetPartyLocation
ld b, h
ld c, l
2017-12-24 09:47:30 -08:00
farcall GetCaughtGender
2015-11-09 20:55:39 -08:00
ld a, c
2015-11-22 21:21:21 -08:00
ld [wPlayerTrademonCaughtData], a
2018-01-23 14:39:09 -08:00
ld hl, wOTPlayerName
2015-11-22 21:21:21 -08:00
ld de, wOTTrademonSenderName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
ld a, [wd003]
2018-01-23 14:39:09 -08:00
ld hl, wOTPartySpecies
ld b, 0
2015-11-09 20:55:39 -08:00
ld c, a
add hl, bc
ld a, [hl]
2015-11-22 21:21:21 -08:00
ld [wOTTrademonSpecies], a
2015-11-09 20:55:39 -08:00
ld a, [wd003]
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMonOT
2015-11-09 20:55:39 -08:00
call SkipNames
2015-11-22 21:21:21 -08:00
ld de, wOTTrademonOTName
2015-11-09 20:55:39 -08:00
ld bc, NAME_LENGTH
call CopyBytes
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1ID
2015-11-09 20:55:39 -08:00
ld a, [wd003]
call GetPartyLocation
ld a, [hli]
2015-11-22 21:21:21 -08:00
ld [wOTTrademonID], a
2015-11-09 20:55:39 -08:00
ld a, [hl]
2015-11-22 21:21:21 -08:00
ld [wOTTrademonID + 1], a
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1DVs
2015-11-09 20:55:39 -08:00
ld a, [wd003]
call GetPartyLocation
ld a, [hli]
2015-11-22 21:21:21 -08:00
ld [wOTTrademonDVs], a
2015-11-09 20:55:39 -08:00
ld a, [hl]
2015-11-22 21:21:21 -08:00
ld [wOTTrademonDVs + 1], a
2015-11-09 20:55:39 -08:00
ld a, [wd003]
2018-01-23 14:39:09 -08:00
ld hl, wOTPartyMon1Species
2015-11-09 20:55:39 -08:00
call GetPartyLocation
ld b, h
ld c, l
2017-12-24 09:47:30 -08:00
farcall GetCaughtGender
2015-11-09 20:55:39 -08:00
ld a, c
2015-11-22 21:21:21 -08:00
ld [wOTTrademonCaughtData], a
2015-11-10 16:51:13 -08:00
ld a, [wd002]
2018-01-23 14:39:09 -08:00
ld [wCurPartyMon], a
ld hl, wPartySpecies
ld b, 0
2015-11-09 20:55:39 -08:00
ld c, a
add hl, bc
ld a, [hl]
2015-11-10 16:51:13 -08:00
ld [wd002], a
xor a ; REMOVE_PARTY
2015-11-09 20:55:39 -08:00
ld [wPokemonWithdrawDepositParameter], a
2017-12-24 09:47:30 -08:00
callfar RemoveMonFromPartyOrBox
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-11-09 20:55:39 -08:00
dec a
2018-01-23 14:39:09 -08:00
ld [wCurPartyMon], a
ld a, TRUE
ld [wForceEvolution], a
2015-11-09 20:55:39 -08:00
ld a, [wd003]
push af
2018-01-23 14:39:09 -08:00
ld hl, wOTPartySpecies
ld b, 0
2015-11-09 20:55:39 -08:00
ld c, a
add hl, bc
ld a, [hl]
ld [wd003], a
ld c, 100
call DelayFrames
call ClearTileMap
call LoadFontsBattleExtra
2016-06-06 15:23:00 -07:00
ld b, SCGB_DIPLOMA
2015-11-09 20:55:39 -08:00
call GetSGBLayout
ld a, [hSerialConnectionStatus]
cp USING_EXTERNAL_CLOCK
2015-11-22 21:21:21 -08:00
jr z, .player_2
predef TradeAnimation
2015-11-22 21:21:21 -08:00
jr .done_animation
2015-11-09 20:55:39 -08:00
2015-11-22 21:21:21 -08:00
.player_2
predef TradeAnimationPlayer2
2015-11-09 20:55:39 -08:00
2015-11-22 21:21:21 -08:00
.done_animation
2015-11-09 20:55:39 -08:00
pop af
ld c, a
2018-01-23 14:39:09 -08:00
ld [wCurPartyMon], a
ld hl, wOTPartySpecies
ld d, 0
2015-11-09 20:55:39 -08:00
ld e, a
add hl, de
ld a, [hl]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld hl, wOTPartyMon1Species
2015-11-09 20:55:39 -08:00
ld a, c
call GetPartyLocation
2018-01-23 14:39:09 -08:00
ld de, wTempMonSpecies
2015-11-09 20:55:39 -08:00
ld bc, PARTYMON_STRUCT_LENGTH
call CopyBytes
predef AddTempmonToParty
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-11-09 20:55:39 -08:00
dec a
2018-01-23 14:39:09 -08:00
ld [wCurPartyMon], a
2017-12-24 09:47:30 -08:00
callfar EvolvePokemon
2015-11-09 20:55:39 -08:00
call ClearScreen
2015-12-21 11:10:16 -08:00
call LoadTradeScreenBorder
2016-05-15 18:50:31 -07:00
call SetTradeRoomBGPals
2017-12-24 09:47:30 -08:00
farcall Link_WaitBGMap
2015-11-09 20:55:39 -08:00
ld b, $1
pop af
ld c, a
cp MEW
jr z, .loop
2018-01-23 14:39:09 -08:00
ld a, [wCurPartySpecies]
2015-11-09 20:55:39 -08:00
cp MEW
jr z, .loop
2015-11-09 20:55:39 -08:00
ld b, $2
ld a, c
cp CELEBI
jr z, .loop
2018-01-23 14:39:09 -08:00
ld a, [wCurPartySpecies]
2015-11-09 20:55:39 -08:00
cp CELEBI
jr z, .loop
2015-11-09 20:55:39 -08:00
ld b, $0
.loop
2015-11-09 20:55:39 -08:00
ld a, b
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
push bc
call Serial_PrintWaitingTextAndSyncAndExchangeNybble
2015-11-09 20:55:39 -08:00
pop bc
ld a, [wLinkMode]
cp LINK_TIMECAPSULE
jr z, .save
2015-11-09 20:55:39 -08:00
ld a, b
and a
jr z, .save
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkAction]
2015-11-09 20:55:39 -08:00
cp b
jr nz, .loop
2015-11-09 20:55:39 -08:00
.save
2017-12-24 09:47:30 -08:00
farcall SaveAfterLinkTrade
farcall StubbedTrainerRankings_Trades
2017-12-24 09:47:30 -08:00
farcall BackupMobileEventIndex
2015-11-09 20:55:39 -08:00
ld c, 40
call DelayFrames
hlcoord 0, 12
ld b, 4
ld c, 18
call LinkTextboxAtHL
2015-11-09 20:55:39 -08:00
hlcoord 1, 14
ld de, String28ebd
call PlaceString
2017-12-24 09:47:30 -08:00
farcall Link_WaitBGMap
2015-11-09 20:55:39 -08:00
ld c, 50
call DelayFrames
ld a, [wLinkMode]
cp LINK_TIMECAPSULE
jp z, Gen2ToGen1LinkComms
jp Gen2ToGen2LinkComms
2015-11-09 20:55:39 -08:00
; 28ea3
Function28ea3: ; 28ea3
ld c, 100
call DelayFrames
2015-12-21 11:10:16 -08:00
jp InitTradeMenuDisplay
2015-11-09 20:55:39 -08:00
; 28eab
String28eab: ; 28eab
db "TRADE"
next "CANCEL@"
UnknownText_0x28eb8: ; 0x28eb8
; Trade @ for @ ?
text_jump UnknownText_0x1c4212
db "@"
; 0x28ebd
String28ebd: ; 28ebd
db "Trade completed!@"
2015-12-21 11:10:16 -08:00
String_TooBadTheTradeWasCanceled: ; 28ece
2015-11-09 20:55:39 -08:00
db "Too bad! The trade"
next "was canceled!@"
LinkTextboxAtHL: ; 28eef
2015-11-09 20:55:39 -08:00
ld d, h
ld e, l
2017-12-24 09:47:30 -08:00
farcall LinkTextbox
2015-11-09 20:55:39 -08:00
ret
; 28ef8
2015-12-21 11:10:16 -08:00
LoadTradeScreenBorder: ; 28ef8
2017-12-24 09:47:30 -08:00
farcall _LoadTradeScreenBorder
2015-11-09 20:55:39 -08:00
ret
; 28eff
2016-05-15 18:50:31 -07:00
SetTradeRoomBGPals: ; 28eff
2017-12-24 09:47:30 -08:00
farcall LoadTradeRoomBGPals_ ; just a nested farcall; so wasteful
2015-11-09 20:55:39 -08:00
call SetPalettes
ret
; 28f09
2018-01-02 07:04:21 -08:00
Unreferenced_Function28f09: ; 28f09
2015-11-09 20:55:39 -08:00
hlcoord 0, 0
ld b, 6
ld c, 18
call LinkTextboxAtHL
2015-11-09 20:55:39 -08:00
hlcoord 0, 8
ld b, 6
ld c, 18
call LinkTextboxAtHL
2017-12-24 09:47:30 -08:00
farcall PlaceTradePartnerNamesAndParty
2015-11-09 20:55:39 -08:00
ret
; 28f24
INCLUDE "engine/movie/trade_animation.asm"
2015-11-09 20:55:39 -08:00
CheckTimeCapsuleCompatibility: ; 29bfb
Merge branch 'master' of https://github.com/pret/pokecrystal # Conflicts: # audio/engine.asm # constants/gfx_constants.asm # constants/map_data_constants.asm # constants/pokemon_data_constants.asm # constants/sprite_constants.asm # constants/wram_constants.asm # data/maps/data.asm # engine/battle/ai/scoring.asm # engine/battle/core.asm # engine/battle/effect_commands.asm # engine/battle/misc.asm # engine/battle_anims/getpokeballwobble.asm # engine/breeding.asm # engine/buy_sell_toss.asm # engine/decorations.asm # engine/events/battle_tower/battle_tower.asm # engine/events/battle_tower/rules.asm # engine/events/buena.asm # engine/events/bug_contest/contest_2.asm # engine/events/daycare.asm # engine/events/dratini.asm # engine/events/halloffame.asm # engine/events/happiness_egg.asm # engine/events/kurt.asm # engine/events/lucky_number.asm # engine/events/magnet_train.asm # engine/events/overworld.asm # engine/events/pokerus/pokerus.asm # engine/events/print_unown.asm # engine/events/print_unown_2.asm # engine/events/unown_walls.asm # engine/item_effects.asm # engine/link.asm # engine/mon_menu.asm # engine/player_object.asm # engine/routines/playslowcry.asm # engine/scripting.asm # engine/search.asm # engine/search2.asm # engine/specials.asm # engine/start_menu.asm # engine/timeset.asm # home/battle_vars.asm # home/map.asm # maps/GoldenrodUndergroundSwitchRoomEntrances.asm # maps/IlexForest.asm # maps/KrissHouse2F.asm # maps/Route39Barn.asm # mobile/mobile_12_2.asm # mobile/mobile_40.asm # mobile/mobile_5f.asm # wram.asm
2018-02-03 15:21:53 -08:00
; Checks to see if your party is compatible with the Gen 1 games.
; Returns the following in wScriptVar:
2015-11-09 20:55:39 -08:00
; 0: Party is okay
Merge branch 'master' of https://github.com/pret/pokecrystal # Conflicts: # audio/engine.asm # constants/gfx_constants.asm # constants/map_data_constants.asm # constants/pokemon_data_constants.asm # constants/sprite_constants.asm # constants/wram_constants.asm # data/maps/data.asm # engine/battle/ai/scoring.asm # engine/battle/core.asm # engine/battle/effect_commands.asm # engine/battle/misc.asm # engine/battle_anims/getpokeballwobble.asm # engine/breeding.asm # engine/buy_sell_toss.asm # engine/decorations.asm # engine/events/battle_tower/battle_tower.asm # engine/events/battle_tower/rules.asm # engine/events/buena.asm # engine/events/bug_contest/contest_2.asm # engine/events/daycare.asm # engine/events/dratini.asm # engine/events/halloffame.asm # engine/events/happiness_egg.asm # engine/events/kurt.asm # engine/events/lucky_number.asm # engine/events/magnet_train.asm # engine/events/overworld.asm # engine/events/pokerus/pokerus.asm # engine/events/print_unown.asm # engine/events/print_unown_2.asm # engine/events/unown_walls.asm # engine/item_effects.asm # engine/link.asm # engine/mon_menu.asm # engine/player_object.asm # engine/routines/playslowcry.asm # engine/scripting.asm # engine/search.asm # engine/search2.asm # engine/specials.asm # engine/start_menu.asm # engine/timeset.asm # home/battle_vars.asm # home/map.asm # maps/GoldenrodUndergroundSwitchRoomEntrances.asm # maps/IlexForest.asm # maps/KrissHouse2F.asm # maps/Route39Barn.asm # mobile/mobile_12_2.asm # mobile/mobile_40.asm # mobile/mobile_5f.asm # wram.asm
2018-02-03 15:21:53 -08:00
; 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
2015-11-09 20:55:39 -08:00
Merge branch 'master' of https://github.com/pret/pokecrystal # Conflicts: # audio/engine.asm # constants/gfx_constants.asm # constants/map_data_constants.asm # constants/pokemon_data_constants.asm # constants/sprite_constants.asm # constants/wram_constants.asm # data/maps/data.asm # engine/battle/ai/scoring.asm # engine/battle/core.asm # engine/battle/effect_commands.asm # engine/battle/misc.asm # engine/battle_anims/getpokeballwobble.asm # engine/breeding.asm # engine/buy_sell_toss.asm # engine/decorations.asm # engine/events/battle_tower/battle_tower.asm # engine/events/battle_tower/rules.asm # engine/events/buena.asm # engine/events/bug_contest/contest_2.asm # engine/events/daycare.asm # engine/events/dratini.asm # engine/events/halloffame.asm # engine/events/happiness_egg.asm # engine/events/kurt.asm # engine/events/lucky_number.asm # engine/events/magnet_train.asm # engine/events/overworld.asm # engine/events/pokerus/pokerus.asm # engine/events/print_unown.asm # engine/events/print_unown_2.asm # engine/events/unown_walls.asm # engine/item_effects.asm # engine/link.asm # engine/mon_menu.asm # engine/player_object.asm # engine/routines/playslowcry.asm # engine/scripting.asm # engine/search.asm # engine/search2.asm # engine/specials.asm # engine/start_menu.asm # engine/timeset.asm # home/battle_vars.asm # home/map.asm # maps/GoldenrodUndergroundSwitchRoomEntrances.asm # maps/IlexForest.asm # maps/KrissHouse2F.asm # maps/Route39Barn.asm # mobile/mobile_12_2.asm # mobile/mobile_40.asm # mobile/mobile_5f.asm # wram.asm
2018-02-03 15:21:53 -08:00
; If any party Pokémon was introduced in the Gen 2 games, don't let it in.
2018-01-23 14:39:09 -08:00
ld hl, wPartySpecies
ld b, PARTY_LENGTH
2015-11-09 20:55:39 -08:00
.loop
ld a, [hli]
2015-12-21 11:10:16 -08:00
cp -1
2015-11-09 20:55:39 -08:00
jr z, .checkitem
2018-01-14 17:58:49 -08:00
cp JOHTO_POKEMON
2015-11-09 20:55:39 -08:00
jr nc, .mon_too_new
dec b
jr nz, .loop
Merge branch 'master' of https://github.com/pret/pokecrystal # Conflicts: # audio/engine.asm # constants/gfx_constants.asm # constants/map_data_constants.asm # constants/pokemon_data_constants.asm # constants/sprite_constants.asm # constants/wram_constants.asm # data/maps/data.asm # engine/battle/ai/scoring.asm # engine/battle/core.asm # engine/battle/effect_commands.asm # engine/battle/misc.asm # engine/battle_anims/getpokeballwobble.asm # engine/breeding.asm # engine/buy_sell_toss.asm # engine/decorations.asm # engine/events/battle_tower/battle_tower.asm # engine/events/battle_tower/rules.asm # engine/events/buena.asm # engine/events/bug_contest/contest_2.asm # engine/events/daycare.asm # engine/events/dratini.asm # engine/events/halloffame.asm # engine/events/happiness_egg.asm # engine/events/kurt.asm # engine/events/lucky_number.asm # engine/events/magnet_train.asm # engine/events/overworld.asm # engine/events/pokerus/pokerus.asm # engine/events/print_unown.asm # engine/events/print_unown_2.asm # engine/events/unown_walls.asm # engine/item_effects.asm # engine/link.asm # engine/mon_menu.asm # engine/player_object.asm # engine/routines/playslowcry.asm # engine/scripting.asm # engine/search.asm # engine/search2.asm # engine/specials.asm # engine/start_menu.asm # engine/timeset.asm # home/battle_vars.asm # home/map.asm # maps/GoldenrodUndergroundSwitchRoomEntrances.asm # maps/IlexForest.asm # maps/KrissHouse2F.asm # maps/Route39Barn.asm # mobile/mobile_12_2.asm # mobile/mobile_40.asm # mobile/mobile_5f.asm # wram.asm
2018-02-03 15:21:53 -08:00
; If any party Pokémon is holding mail, don't let it in.
2015-11-09 20:55:39 -08:00
.checkitem
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-11-09 20:55:39 -08:00
ld b, a
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Item
2015-11-09 20:55:39 -08:00
.itemloop
push hl
push bc
ld d, [hl]
2017-12-24 09:47:30 -08:00
farcall ItemIsMail
2015-11-09 20:55:39 -08:00
pop bc
pop hl
jr c, .mon_has_mail
ld de, PARTYMON_STRUCT_LENGTH
add hl, de
dec b
jr nz, .itemloop
Merge branch 'master' of https://github.com/pret/pokecrystal # Conflicts: # audio/engine.asm # constants/gfx_constants.asm # constants/map_data_constants.asm # constants/pokemon_data_constants.asm # constants/sprite_constants.asm # constants/wram_constants.asm # data/maps/data.asm # engine/battle/ai/scoring.asm # engine/battle/core.asm # engine/battle/effect_commands.asm # engine/battle/misc.asm # engine/battle_anims/getpokeballwobble.asm # engine/breeding.asm # engine/buy_sell_toss.asm # engine/decorations.asm # engine/events/battle_tower/battle_tower.asm # engine/events/battle_tower/rules.asm # engine/events/buena.asm # engine/events/bug_contest/contest_2.asm # engine/events/daycare.asm # engine/events/dratini.asm # engine/events/halloffame.asm # engine/events/happiness_egg.asm # engine/events/kurt.asm # engine/events/lucky_number.asm # engine/events/magnet_train.asm # engine/events/overworld.asm # engine/events/pokerus/pokerus.asm # engine/events/print_unown.asm # engine/events/print_unown_2.asm # engine/events/unown_walls.asm # engine/item_effects.asm # engine/link.asm # engine/mon_menu.asm # engine/player_object.asm # engine/routines/playslowcry.asm # engine/scripting.asm # engine/search.asm # engine/search2.asm # engine/specials.asm # engine/start_menu.asm # engine/timeset.asm # home/battle_vars.asm # home/map.asm # maps/GoldenrodUndergroundSwitchRoomEntrances.asm # maps/IlexForest.asm # maps/KrissHouse2F.asm # maps/Route39Barn.asm # mobile/mobile_12_2.asm # mobile/mobile_40.asm # mobile/mobile_5f.asm # wram.asm
2018-02-03 15:21:53 -08:00
; If any party Pokémon has a move that was introduced in the Gen 2 games, don't let it in.
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Moves
ld a, [wPartyCount]
2015-11-09 20:55:39 -08:00
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
2018-01-23 14:39:09 -08:00
ld de, wPartyMon2 - (wPartyMon1 + NUM_MOVES)
2015-11-09 20:55:39 -08:00
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
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-09 20:55:39 -08:00
ret
; 29c67
Function29c67: ; 29c67
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-11-09 20:55:39 -08:00
sub b
ld c, a
inc c
ld b, 0
2018-01-23 14:39:09 -08:00
ld hl, wPartyCount
2015-11-09 20:55:39 -08:00
add hl, bc
ld a, [hl]
ld [wd265], a
call GetPokemonName
ret
; 29c7b
EnterTimeCapsule: ; 29c7b
2015-11-23 13:04:53 -08:00
ld c, 10
2015-11-09 20:55:39 -08:00
call DelayFrames
ld a, $4
2016-05-15 18:50:31 -07:00
call Link_EnsureSync
2015-11-23 13:04:53 -08:00
ld c, 40
2015-11-09 20:55:39 -08:00
call DelayFrames
xor a
ld [hVBlank], a
inc a
ld [wLinkMode], a
ret
; 29c92
WaitForOtherPlayerToExit: ; 29c92
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
ld a, CONNECTION_NOT_ESTABLISHED
ld [hSerialConnectionStatus], a
2015-11-09 20:55:39 -08:00
xor a
ld [rSB], a
ld [hSerialReceive], a
ld a, (0 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
xor a
ld [rSB], a
ld [hSerialReceive], a
ld a, (0 << rSC_ON) | 0
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 0
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
xor a
ld [rSB], a
ld [hSerialReceive], a
ld [rSC], a
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
ld a, CONNECTION_NOT_ESTABLISHED
ld [hSerialConnectionStatus], a
2015-11-09 20:55:39 -08:00
ld a, [rIF]
push af
xor a
ld [rIF], a
ld a, $f
ld [rIE], a
pop af
ld [rIF], a
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames
2015-11-09 20:55:39 -08:00
xor a
ld [hli], a
ld [hl], a
ld [hVBlank], a
ld [wLinkMode], a
ret
; 29ce8
SetBitsForLinkTradeRequest: ; 29ce8
2015-11-23 13:04:53 -08:00
ld a, LINK_TRADECENTER - 1
ld [wPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
ld [wd265], a
ret
; 29cf1
SetBitsForBattleRequest: ; 29cf1
2015-11-23 13:04:53 -08:00
ld a, LINK_COLOSSEUM - 1
ld [wPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
ld [wd265], a
ret
; 29cfa
SetBitsForTimeCapsuleRequest: ; 29cfa
2015-11-09 20:55:39 -08:00
ld a, $2
ld [rSB], a
xor a
ld [hSerialReceive], a
ld a, (0 << rSC_ON) | 0
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 0
2015-11-09 20:55:39 -08:00
ld [rSC], a
2015-11-23 13:04:53 -08:00
xor a ; LINK_TIMECAPSULE - 1
ld [wPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
ld [wd265], a
ret
; 29d11
WaitForLinkedFriend: ; 29d11
2015-11-23 13:04:53 -08:00
ld a, [wPlayerLinkAction]
2015-11-09 20:55:39 -08:00
and a
2016-05-15 18:50:31 -07:00
jr z, .no_link_action
2015-11-09 20:55:39 -08:00
ld a, $2
ld [rSB], a
xor a
ld [hSerialReceive], a
ld a, (0 << rSC_ON) | 0
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 0
2015-11-09 20:55:39 -08:00
ld [rSC], a
call DelayFrame
call DelayFrame
call DelayFrame
2016-05-15 18:50:31 -07:00
.no_link_action
2015-11-09 20:55:39 -08:00
ld a, $2
2016-05-15 18:50:31 -07:00
ld [wLinkTimeoutFrames + 1], a
2015-11-09 20:55:39 -08:00
ld a, $ff
2016-05-15 18:50:31 -07:00
ld [wLinkTimeoutFrames], a
.loop
ld a, [hSerialConnectionStatus]
cp USING_INTERNAL_CLOCK
2016-05-15 18:50:31 -07:00
jr z, .connected
cp USING_EXTERNAL_CLOCK
2016-05-15 18:50:31 -07:00
jr z, .connected
ld a, CONNECTION_NOT_ESTABLISHED
ld [hSerialConnectionStatus], a
2015-11-09 20:55:39 -08:00
ld a, $2
ld [rSB], a
xor a
ld [hSerialReceive], a
ld a, (0 << rSC_ON) | 0
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 0
2015-11-09 20:55:39 -08:00
ld [rSC], a
2016-05-15 18:50:31 -07:00
ld a, [wLinkTimeoutFrames]
2015-11-09 20:55:39 -08:00
dec a
2016-05-15 18:50:31 -07:00
ld [wLinkTimeoutFrames], a
jr nz, .not_done
ld a, [wLinkTimeoutFrames + 1]
2015-11-09 20:55:39 -08:00
dec a
2016-05-15 18:50:31 -07:00
ld [wLinkTimeoutFrames + 1], a
jr z, .done
2015-11-09 20:55:39 -08:00
2016-05-15 18:50:31 -07:00
.not_done
2015-11-09 20:55:39 -08:00
ld a, $1
ld [rSB], a
ld a, (0 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
ld a, (1 << rSC_ON) | 1
2015-11-09 20:55:39 -08:00
ld [rSC], a
call DelayFrame
2016-05-15 18:50:31 -07:00
jr .loop
2015-11-09 20:55:39 -08:00
2016-05-15 18:50:31 -07:00
.connected
call LinkDataReceived
2015-11-09 20:55:39 -08:00
call DelayFrame
call LinkDataReceived
2016-05-15 18:50:31 -07:00
ld c, 50
2015-11-09 20:55:39 -08:00
call DelayFrames
ld a, $1
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-09 20:55:39 -08:00
ret
2016-05-15 18:50:31 -07:00
.done
2015-11-09 20:55:39 -08:00
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-09 20:55:39 -08:00
ret
; 29d92
CheckLinkTimeout: ; 29d92
2015-11-09 20:55:39 -08:00
ld a, $1
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames
2015-11-09 20:55:39 -08:00
ld a, $3
ld [hli], a
xor a
ld [hl], a
call WaitBGMap
ld a, $2
ld [hVBlank], a
call DelayFrame
call DelayFrame
2016-05-15 18:50:31 -07:00
call Link_CheckCommunicationError
2015-11-09 20:55:39 -08:00
xor a
ld [hVBlank], a
2018-01-23 14:39:09 -08:00
ld a, [wScriptVar]
2015-11-09 20:55:39 -08:00
and a
ret nz
2016-05-15 18:50:31 -07:00
jp Link_ResetSerialRegistersAfterLinkClosure
2015-11-09 20:55:39 -08:00
; 29dba
Function29dba: ; 29dba
ld a, $5
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames
2015-11-09 20:55:39 -08:00
ld a, $3
ld [hli], a
xor a
ld [hl], a
call WaitBGMap
ld a, $2
ld [hVBlank], a
call DelayFrame
call DelayFrame
2016-05-15 18:50:31 -07:00
call Link_CheckCommunicationError
2018-01-23 14:39:09 -08:00
ld a, [wScriptVar]
2015-11-09 20:55:39 -08:00
and a
jr z, .vblank
2015-12-14 08:12:18 -08:00
ld bc, -1
.wait
2015-11-09 20:55:39 -08:00
dec bc
ld a, b
or c
jr nz, .wait
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkMode]
2015-11-09 20:55:39 -08:00
cp $5
jr nz, .script_var
2015-11-09 20:55:39 -08:00
ld a, $6
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames
2015-11-09 20:55:39 -08:00
ld a, $1
ld [hli], a
ld [hl], $32
2016-05-15 18:50:31 -07:00
call Link_CheckCommunicationError
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkMode]
2015-11-09 20:55:39 -08:00
cp $6
jr z, .vblank
2015-11-09 20:55:39 -08:00
.script_var
2015-11-09 20:55:39 -08:00
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-09 20:55:39 -08:00
ret
.vblank
2015-11-09 20:55:39 -08:00
xor a
ld [hVBlank], a
ret
; 29e0c
2016-05-15 18:50:31 -07:00
Link_CheckCommunicationError: ; 29e0c
2015-11-09 20:55:39 -08:00
xor a
ld [hSerialReceivedNewData], a
2016-05-15 18:50:31 -07:00
ld a, [wLinkTimeoutFrames]
2015-11-09 20:55:39 -08:00
ld h, a
2016-05-15 18:50:31 -07:00
ld a, [wLinkTimeoutFrames + 1]
2015-11-09 20:55:39 -08:00
ld l, a
push hl
call .CheckConnected
2015-11-09 20:55:39 -08:00
pop hl
jr nz, .load_true
call .AcknowledgeSerial
call .ConvertDW
call .CheckConnected
jr nz, .load_true
call .AcknowledgeSerial
2015-11-09 20:55:39 -08:00
xor a
jr .load_scriptvar
2015-11-09 20:55:39 -08:00
.load_true
2015-11-09 20:55:39 -08:00
ld a, $1
.load_scriptvar
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2016-05-15 18:50:31 -07:00
ld hl, wLinkTimeoutFrames
2015-11-09 20:55:39 -08:00
xor a
ld [hli], a
ld [hl], a
ret
; 29e3b
.CheckConnected: ; 29e3b
2016-05-15 18:50:31 -07:00
call WaitLinkTransfer
ld hl, wLinkTimeoutFrames
2015-11-09 20:55:39 -08:00
ld a, [hli]
inc a
ret nz
ld a, [hl]
inc a
ret
; 29e47
.AcknowledgeSerial: ; 29e47
ld b, 10
.loop
2015-11-09 20:55:39 -08:00
call DelayFrame
call LinkDataReceived
2015-11-09 20:55:39 -08:00
dec b
jr nz, .loop
2015-11-09 20:55:39 -08:00
ret
; 29e53
.ConvertDW: ; 29e53
2016-05-15 18:50:31 -07:00
; [wLinkTimeoutFrames] = ((hl - $100) / 4) + $100
; = (hl / 4) + $c0
2015-11-09 20:55:39 -08:00
dec h
srl h
rr l
srl h
rr l
inc h
ld a, h
2016-05-15 18:50:31 -07:00
ld [wLinkTimeoutFrames], a
2015-11-09 20:55:39 -08:00
ld a, l
2016-05-15 18:50:31 -07:00
ld [wLinkTimeoutFrames + 1], a
2015-11-09 20:55:39 -08:00
ret
; 29e66
TryQuickSave: ; 29e66
2015-11-09 20:55:39 -08:00
ld a, [wd265]
push af
2017-12-24 09:47:30 -08:00
farcall Link_SaveGame
ld a, TRUE
2016-05-15 18:50:31 -07:00
jr nc, .return_result
xor a ; FALSE
2016-05-15 18:50:31 -07:00
.return_result
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2016-05-15 18:50:31 -07:00
ld c, 30
2015-11-09 20:55:39 -08:00
call DelayFrames
pop af
ld [wd265], a
ret
; 29e82
CheckBothSelectedSameRoom: ; 29e82
2015-11-09 20:55:39 -08:00
ld a, [wd265]
2016-05-15 18:50:31 -07:00
call Link_EnsureSync
2015-11-09 20:55:39 -08:00
push af
call LinkDataReceived
2015-11-09 20:55:39 -08:00
call DelayFrame
call LinkDataReceived
2015-11-09 20:55:39 -08:00
pop af
ld b, a
ld a, [wd265]
cp b
2015-11-23 13:04:53 -08:00
jr nz, .fail
2015-11-09 20:55:39 -08:00
ld a, [wd265]
inc a
ld [wLinkMode], a
xor a
ld [hVBlank], a
ld a, TRUE
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-09 20:55:39 -08:00
ret
2015-11-23 13:04:53 -08:00
.fail
xor a ; FALSE
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-09 20:55:39 -08:00
ret
; 29eaf
TimeCapsule: ; 29eaf
2015-11-09 20:55:39 -08:00
ld a, LINK_TIMECAPSULE
ld [wLinkMode], a
call DisableSpriteUpdates
2017-12-24 09:47:30 -08:00
callfar LinkCommunications
2015-11-09 20:55:39 -08:00
call EnableSpriteUpdates
xor a
ld [hVBlank], a
ret
; 29ec4
TradeCenter: ; 29ec4
2015-11-09 20:55:39 -08:00
ld a, LINK_TRADECENTER
ld [wLinkMode], a
call DisableSpriteUpdates
2017-12-24 09:47:30 -08:00
callfar LinkCommunications
2015-11-09 20:55:39 -08:00
call EnableSpriteUpdates
xor a
ld [hVBlank], a
ret
; 29ed9
Colosseum: ; 29ed9
2015-11-09 20:55:39 -08:00
ld a, LINK_COLOSSEUM
ld [wLinkMode], a
call DisableSpriteUpdates
2017-12-24 09:47:30 -08:00
callfar LinkCommunications
2015-11-09 20:55:39 -08:00
call EnableSpriteUpdates
xor a
ld [hVBlank], a
ret
; 29eee
CloseLink: ; 29eee
2015-11-09 20:55:39 -08:00
xor a
ld [wLinkMode], a
2016-05-15 18:50:31 -07:00
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
2016-05-15 18:50:31 -07:00
jp Link_ResetSerialRegistersAfterLinkClosure
2015-11-09 20:55:39 -08:00
; 29efa
FailedLinkToPast: ; 29efa
2015-11-23 13:04:53 -08:00
ld c, 40
2015-11-09 20:55:39 -08:00
call DelayFrames
ld a, $e
2016-05-15 18:50:31 -07:00
jp Link_EnsureSync
2015-11-09 20:55:39 -08:00
; 29f04
2016-05-15 18:50:31 -07:00
Link_ResetSerialRegistersAfterLinkClosure: ; 29f04
2015-11-23 13:04:53 -08:00
ld c, 3
2015-11-09 20:55:39 -08:00
call DelayFrames
ld a, CONNECTION_NOT_ESTABLISHED
ld [hSerialConnectionStatus], a
2015-11-09 20:55:39 -08:00
ld a, $2
ld [rSB], a
xor a
ld [hSerialReceive], a
ld [rSC], a
ret
; 29f17
2016-05-15 18:50:31 -07:00
Link_EnsureSync: ; 29f17
2015-11-09 20:55:39 -08:00
add $d0
2015-11-23 13:04:53 -08:00
ld [wPlayerLinkAction], a
2015-11-09 20:55:39 -08:00
ld [wcf57], a
ld a, $2
ld [hVBlank], a
call DelayFrame
call DelayFrame
2015-11-23 13:04:53 -08:00
.receive_loop
call Serial_ExchangeLinkMenuSelection
2015-11-23 13:04:53 -08:00
ld a, [wOtherPlayerLinkMode]
2015-11-09 20:55:39 -08:00
ld b, a
and $f0
cp $d0
2015-11-23 13:04:53 -08:00
jr z, .done
ld a, [wOtherPlayerLinkAction]
2015-11-09 20:55:39 -08:00
ld b, a
and $f0
cp $d0
2015-11-23 13:04:53 -08:00
jr nz, .receive_loop
2015-11-09 20:55:39 -08:00
2015-11-23 13:04:53 -08:00
.done
2015-11-09 20:55:39 -08:00
xor a
ld [hVBlank], a
ld a, b
and $f
ret
; 29f47
CableClubCheckWhichChris: ; 29f47
ld a, [hSerialConnectionStatus]
cp USING_EXTERNAL_CLOCK
ld a, TRUE
2015-11-09 20:55:39 -08:00
jr z, .yes
dec a ; FALSE
2015-11-09 20:55:39 -08:00
.yes
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-09 20:55:39 -08:00
ret
; 29f54
2018-01-02 07:04:21 -08:00
Unreferenced_Gen1LinkCommsBorderGFX: ; 29f54
INCBIN "gfx/trade/unused_gen_1_border_tiles.2bpp"
2015-11-09 20:55:39 -08:00
; 29fe4
2018-01-02 07:04:21 -08:00
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