| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331 |
- DoInGameTradeDialogue:
- ; trigger the trade offer/action specified by wWhichTrade
- call SaveScreenTilesToBuffer2
- ld hl, TradeMons
- ld a, [wWhichTrade]
- ld b, a
- swap a
- sub b
- sub b
- ld c, a
- ld b, 0
- add hl, bc
- ld a, [hli]
- ld [wInGameTradeGiveMonSpecies], a
- ld a, [hli]
- ld [wInGameTradeReceiveMonSpecies], a
- ld a, [hli]
- push af
- ld de, wInGameTradeMonNick
- ld bc, NAME_LENGTH
- call CopyData
- pop af
- ld l, a
- ld h, 0
- ld de, InGameTradeTextPointers
- add hl, hl
- add hl, de
- ld a, [hli]
- ld [wInGameTradeTextPointerTablePointer], a
- ld a, [hl]
- ld [wInGameTradeTextPointerTablePointer + 1], a
- ld a, [wInGameTradeGiveMonSpecies]
- ld de, wInGameTradeGiveMonName
- call InGameTrade_GetMonName
- ld a, [wInGameTradeReceiveMonSpecies]
- ld de, wInGameTradeReceiveMonName
- call InGameTrade_GetMonName
- ld hl, wCompletedInGameTradeFlags
- ld a, [wWhichTrade]
- ld c, a
- ld b, FLAG_TEST
- predef FlagActionPredef
- ld a, c
- and a
- ld a, $4
- ld [wInGameTradeTextPointerTableIndex], a
- jr nz, .printText
- ; if the trade hasn't been done yet
- xor a
- ld [wInGameTradeTextPointerTableIndex], a
- call .printText
- ld a, $1
- ld [wInGameTradeTextPointerTableIndex], a
- call YesNoChoice
- ld a, [wCurrentMenuItem]
- and a
- jr nz, .printText
- call InGameTrade_DoTrade
- jr c, .printText
- ld hl, TradedForText
- call PrintText
- .printText
- ld hl, wInGameTradeTextPointerTableIndex
- ld a, [hld] ; wInGameTradeTextPointerTableIndex
- ld e, a
- ld d, 0
- ld a, [hld] ; wInGameTradeTextPointerTablePointer + 1
- ld l, [hl] ; wInGameTradeTextPointerTablePointer
- ld h, a
- add hl, de
- add hl, de
- ld a, [hli]
- ld h, [hl]
- ld l, a
- jp PrintText
- ; copies name of species a to hl
- InGameTrade_GetMonName:
- push de
- ld [wd11e], a
- call GetMonName
- ld hl, wcd6d
- pop de
- ld bc, NAME_LENGTH
- jp CopyData
- INCLUDE "data/trades.asm"
- InGameTrade_DoTrade:
- xor a ; NORMAL_PARTY_MENU
- ld [wPartyMenuTypeOrMessageID], a
- dec a
- ld [wUpdateSpritesEnabled], a
- call DisplayPartyMenu
- push af
- call InGameTrade_RestoreScreen
- pop af
- ld a, $1
- jp c, .tradeFailed ; jump if the player didn't select a pokemon
- ld a, [wInGameTradeGiveMonSpecies]
- ld b, a
- ld a, [wcf91]
- cp b
- ld a, $2
- jr nz, .tradeFailed ; jump if the selected mon's species is not the required one
- ld a, [wWhichPokemon]
- ld hl, wPartyMon1Level
- ld bc, wPartyMon2 - wPartyMon1
- call AddNTimes
- ld a, [hl]
- ld [wCurEnemyLVL], a
- ld hl, wCompletedInGameTradeFlags
- ld a, [wWhichTrade]
- ld c, a
- ld b, FLAG_SET
- predef FlagActionPredef
- ld hl, ConnectCableText
- call PrintText
- ld a, [wWhichPokemon]
- push af
- ld a, [wCurEnemyLVL]
- push af
- call LoadHpBarAndStatusTilePatterns
- call InGameTrade_PrepareTradeData
- predef InternalClockTradeAnim
- pop af
- ld [wCurEnemyLVL], a
- pop af
- ld [wWhichPokemon], a
- ld a, [wInGameTradeReceiveMonSpecies]
- ld [wcf91], a
- xor a
- ld [wMonDataLocation], a ; not used
- ld [wRemoveMonFromBox], a
- call RemovePokemon
- ld a, $80 ; prevent the player from naming the mon
- ld [wMonDataLocation], a
- call AddPartyMon
- call InGameTrade_CopyDataToReceivedMon
- callab EvolveTradeMon
- call ClearScreen
- call InGameTrade_RestoreScreen
- callba RedrawMapView
- and a
- ld a, $3
- jr .tradeSucceeded
- .tradeFailed
- scf
- .tradeSucceeded
- ld [wInGameTradeTextPointerTableIndex], a
- ret
- InGameTrade_RestoreScreen:
- call GBPalWhiteOutWithDelay3
- call RestoreScreenTilesAndReloadTilePatterns
- call ReloadTilesetTilePatterns
- call LoadScreenTilesFromBuffer2
- call Delay3
- call LoadGBPal
- ld c, 10
- call DelayFrames
- jpba LoadWildData
- InGameTrade_PrepareTradeData:
- ld hl, wTradedPlayerMonSpecies
- ld a, [wInGameTradeGiveMonSpecies]
- ld [hli], a ; wTradedPlayerMonSpecies
- ld a, [wInGameTradeReceiveMonSpecies]
- ld [hl], a ; wTradedEnemyMonSpecies
- ld hl, wPartyMonOT
- ld bc, NAME_LENGTH
- ld a, [wWhichPokemon]
- call AddNTimes
- ld de, wTradedPlayerMonOT
- ld bc, NAME_LENGTH
- call InGameTrade_CopyData
- ld hl, InGameTrade_TrainerString
- ld de, wTradedEnemyMonOT
- call InGameTrade_CopyData
- ld de, wLinkEnemyTrainerName
- call InGameTrade_CopyData
- ld hl, wPartyMon1OTID
- ld bc, wPartyMon2 - wPartyMon1
- ld a, [wWhichPokemon]
- call AddNTimes
- ld de, wTradedPlayerMonOTID
- ld bc, $2
- call InGameTrade_CopyData
- call Random
- ld hl, hRandomAdd
- ld de, wTradedEnemyMonOTID
- jp CopyData
- InGameTrade_CopyData:
- push hl
- push bc
- call CopyData
- pop bc
- pop hl
- ret
- InGameTrade_CopyDataToReceivedMon:
- ld hl, wPartyMonNicks
- ld bc, NAME_LENGTH
- call InGameTrade_GetReceivedMonPointer
- ld hl, wInGameTradeMonNick
- ld bc, NAME_LENGTH
- call CopyData
- ld hl, wPartyMonOT
- ld bc, NAME_LENGTH
- call InGameTrade_GetReceivedMonPointer
- ld hl, InGameTrade_TrainerString
- ld bc, NAME_LENGTH
- call CopyData
- ld hl, wPartyMon1OTID
- ld bc, wPartyMon2 - wPartyMon1
- call InGameTrade_GetReceivedMonPointer
- ld hl, wTradedEnemyMonOTID
- ld bc, $2
- jp CopyData
- ; the received mon's index is (partyCount - 1),
- ; so this adds bc to hl (partyCount - 1) times and moves the result to de
- InGameTrade_GetReceivedMonPointer:
- ld a, [wPartyCount]
- dec a
- call AddNTimes
- ld e, l
- ld d, h
- ret
- InGameTrade_TrainerString:
- ; "TRAINER@@@@@@@@@@"
- db $5d, "@@@@@@@@@@"
- InGameTradeTextPointers:
- dw TradeTextPointers1
- dw TradeTextPointers2
- dw TradeTextPointers3
- TradeTextPointers1:
- dw WannaTrade1Text
- dw NoTrade1Text
- dw WrongMon1Text
- dw Thanks1Text
- dw AfterTrade1Text
- TradeTextPointers2:
- dw WannaTrade2Text
- dw NoTrade2Text
- dw WrongMon2Text
- dw Thanks2Text
- dw AfterTrade2Text
- TradeTextPointers3:
- dw WannaTrade3Text
- dw NoTrade3Text
- dw WrongMon3Text
- dw Thanks3Text
- dw AfterTrade3Text
- ConnectCableText:
- TX_FAR _ConnectCableText
- db "@"
- TradedForText:
- TX_FAR _TradedForText
- TX_SFX_KEY_ITEM
- TX_DELAY
- db "@"
- WannaTrade1Text:
- TX_FAR _WannaTrade1Text
- db "@"
- NoTrade1Text:
- TX_FAR _NoTrade1Text
- db "@"
- WrongMon1Text:
- TX_FAR _WrongMon1Text
- db "@"
- Thanks1Text:
- TX_FAR _Thanks1Text
- db "@"
- AfterTrade1Text:
- TX_FAR _AfterTrade1Text
- db "@"
- WannaTrade2Text:
- TX_FAR _WannaTrade2Text
- db "@"
- NoTrade2Text:
- TX_FAR _NoTrade2Text
- db "@"
- WrongMon2Text:
- TX_FAR _WrongMon2Text
- db "@"
- Thanks2Text:
- TX_FAR _Thanks2Text
- db "@"
- AfterTrade2Text:
- TX_FAR _AfterTrade2Text
- db "@"
- WannaTrade3Text:
- TX_FAR _WannaTrade3Text
- db "@"
- NoTrade3Text:
- TX_FAR _NoTrade3Text
- db "@"
- WrongMon3Text:
- TX_FAR _WrongMon3Text
- db "@"
- Thanks3Text:
- TX_FAR _Thanks3Text
- db "@"
- AfterTrade3Text:
- TX_FAR _AfterTrade3Text
- db "@"
|
