ref: e2838892d69c12fdafe3a40bd7386e7b26506282
dir: /engine/events/npc_trade.asm/
NPCTrade:: ld a, e ld [wJumptableIndex], a call Trade_GetDialog ld b, CHECK_FLAG call TradeFlagAction ld a, TRADE_DIALOG_AFTER jr nz, .done ld a, TRADE_DIALOG_INTRO call PrintTradeText call YesNoBox ld a, TRADE_DIALOG_CANCEL jr c, .done ; Select givemon from party ld b, PARTYMENUACTION_GIVE_MON farcall SelectTradeOrDayCareMon ld a, TRADE_DIALOG_CANCEL jr c, .done ld e, NPCTRADE_GIVEMON call GetTradeAttr ld a, [wCurPartySpecies] cp [hl] ld a, TRADE_DIALOG_WRONG jr nz, .done call CheckTradeGender ld a, TRADE_DIALOG_WRONG jr c, .done ld b, SET_FLAG call TradeFlagAction ld hl, NPCTradeCableText call PrintText call DoNPCTrade call .TradeAnimation call GetTradeMonNames ld hl, TradedForText call PrintText call RestartMapMusic ld a, TRADE_DIALOG_COMPLETE .done call PrintTradeText ret .TradeAnimation: call DisableSpriteUpdates ld a, [wJumptableIndex] push af ; wTradeDialog aliases wFrameCounter, which TradeAnimation uses ld a, [wTradeDialog] push af predef TradeAnimation pop af ld [wTradeDialog], a pop af ld [wJumptableIndex], a call ReturnToMapWithSpeechTextbox ret CheckTradeGender: xor a ld [wMonType], a ld e, NPCTRADE_GENDER call GetTradeAttr ld a, [hl] and a ; TRADE_GENDER_EITHER jr z, .matching cp TRADE_GENDER_MALE jr z, .check_male ; TRADE_GENDER_FEMALE farcall GetGender jr nz, .not_matching jr .matching .check_male farcall GetGender jr z, .not_matching .matching and a ret .not_matching scf ret TradeFlagAction: ld hl, wTradeFlags ld a, [wJumptableIndex] ld c, a predef SmallFarFlagAction ld a, c and a ret Trade_GetDialog: ld e, NPCTRADE_DIALOG call GetTradeAttr ld a, [hl] ld [wTradeDialog], a ret DoNPCTrade: ld e, NPCTRADE_GIVEMON call GetTradeAttr ld a, [hl] ld [wPlayerTrademonSpecies], a ld e, NPCTRADE_GETMON call GetTradeAttr ld a, [hl] ld [wOTTrademonSpecies], a ld a, [wPlayerTrademonSpecies] ld de, wPlayerTrademonSpeciesName call GetTradeMonName call CopyTradeName ld a, [wOTTrademonSpecies] ld de, wOTTrademonSpeciesName call GetTradeMonName call CopyTradeName ld hl, wPartyMonOTs ld bc, NAME_LENGTH call Trade_GetAttributeOfCurrentPartymon ld de, wPlayerTrademonOTName call CopyTradeName ld hl, wPlayerName ld de, wPlayerTrademonSenderName call CopyTradeName ld hl, wPartyMon1ID ld bc, PARTYMON_STRUCT_LENGTH call Trade_GetAttributeOfCurrentPartymon ld de, wPlayerTrademonID call Trade_CopyTwoBytes ld hl, wPartyMon1DVs ld bc, PARTYMON_STRUCT_LENGTH call Trade_GetAttributeOfCurrentPartymon ld de, wPlayerTrademonDVs call Trade_CopyTwoBytes ld hl, wPartyMon1Species ld bc, PARTYMON_STRUCT_LENGTH call Trade_GetAttributeOfCurrentPartymon ld b, h ld c, l farcall GetCaughtGender ld a, c ld [wPlayerTrademonCaughtData], a ld e, NPCTRADE_DIALOG call GetTradeAttr ld a, [hl] cp TRADE_DIALOGSET_GIRL ld a, CAUGHT_BY_GIRL jr c, .okay ld a, CAUGHT_BY_BOY .okay ld [wOTTrademonCaughtData], a ld hl, wPartyMon1Level ld bc, PARTYMON_STRUCT_LENGTH call Trade_GetAttributeOfCurrentPartymon ld a, [hl] ld [wCurPartyLevel], a ld a, [wOTTrademonSpecies] ld [wCurPartySpecies], a xor a ld [wMonType], a ; PARTYMON ld [wPokemonWithdrawDepositParameter], a ; REMOVE_PARTY callfar RemoveMonFromPartyOrBox predef TryAddMonToParty ld e, NPCTRADE_DIALOG call GetTradeAttr ld a, [hl] cp TRADE_DIALOGSET_GIRL ld b, CAUGHT_BY_UNKNOWN jr c, .incomplete ld b, CAUGHT_BY_GIRL .incomplete farcall SetGiftPartyMonCaughtData ld e, NPCTRADE_NICKNAME call GetTradeAttr ld de, wOTTrademonNickname call CopyTradeName ld hl, wPartyMonNicknames ld bc, MON_NAME_LENGTH call Trade_GetAttributeOfLastPartymon ld hl, wOTTrademonNickname call CopyTradeName ld e, NPCTRADE_OT_NAME call GetTradeAttr push hl ld de, wOTTrademonOTName call CopyTradeName pop hl ld de, wOTTrademonSenderName call CopyTradeName ld hl, wPartyMonOTs ld bc, NAME_LENGTH call Trade_GetAttributeOfLastPartymon ld hl, wOTTrademonOTName call CopyTradeName ld e, NPCTRADE_DVS call GetTradeAttr ld de, wOTTrademonDVs call Trade_CopyTwoBytes ld hl, wPartyMon1DVs ld bc, PARTYMON_STRUCT_LENGTH call Trade_GetAttributeOfLastPartymon ld hl, wOTTrademonDVs call Trade_CopyTwoBytes ld e, NPCTRADE_OT_ID call GetTradeAttr ld de, wOTTrademonID + 1 call Trade_CopyTwoBytesReverseEndian ld hl, wPartyMon1ID ld bc, PARTYMON_STRUCT_LENGTH call Trade_GetAttributeOfLastPartymon ld hl, wOTTrademonID call Trade_CopyTwoBytes ld e, NPCTRADE_ITEM call GetTradeAttr push hl ld hl, wPartyMon1Item ld bc, PARTYMON_STRUCT_LENGTH call Trade_GetAttributeOfLastPartymon pop hl ld a, [hl] ld [de], a push af push bc push de push hl ld a, [wCurPartyMon] push af ld a, [wPartyCount] dec a ld [wCurPartyMon], a farcall ComputeNPCTrademonStats pop af ld [wCurPartyMon], a pop hl pop de pop bc pop af ret GetTradeAttr: ld d, 0 push de ld a, [wJumptableIndex] and $f swap a ld e, a ld d, 0 ld hl, NPCTrades add hl, de add hl, de pop de add hl, de ret Trade_GetAttributeOfCurrentPartymon: ld a, [wCurPartyMon] call AddNTimes ret Trade_GetAttributeOfLastPartymon: ld a, [wPartyCount] dec a call AddNTimes ld e, l ld d, h ret GetTradeMonName: push de ld [wNamedObjectIndex], a call GetBasePokemonName ld hl, wStringBuffer1 pop de ret CopyTradeName: ld bc, NAME_LENGTH call CopyBytes ret Trade_CopyFourCharString: ; unreferenced ld bc, 4 call CopyBytes ld a, "@" ld [de], a ret Trade_CopyThreeCharString: ; unreferenced ld bc, 3 call CopyBytes ld a, "@" ld [de], a ret Trade_CopyTwoBytes: ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a ret Trade_CopyTwoBytesReverseEndian: ld a, [hli] ld [de], a dec de ld a, [hl] ld [de], a ret GetTradeMonNames: ld e, NPCTRADE_GETMON call GetTradeAttr ld a, [hl] call GetTradeMonName ld de, wStringBuffer2 call CopyTradeName ld e, NPCTRADE_GIVEMON call GetTradeAttr ld a, [hl] call GetTradeMonName ld de, wMonOrItemNameBuffer call CopyTradeName ld hl, wStringBuffer1 .loop ld a, [hli] cp "@" jr nz, .loop dec hl push hl ld e, NPCTRADE_GENDER call GetTradeAttr ld a, [hl] pop hl and a ; TRADE_GENDER_EITHER ret z cp TRADE_GENDER_MALE ld a, "♂" jr z, .done ; TRADE_GENDER_FEMALE ld a, "♀" .done ld [hli], a ld [hl], "@" ret INCLUDE "data/events/npc_trades.asm" PrintTradeText: push af call GetTradeMonNames pop af ld bc, 2 * 4 ld hl, TradeTexts call AddNTimes ld a, [wTradeDialog] ld c, a add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a call PrintText ret TradeTexts: ; entries correspond to TRADE_DIALOG_* × TRADE_DIALOGSET_* constants ; TRADE_DIALOG_INTRO dw NPCTradeIntroText1 dw NPCTradeIntroText2 dw NPCTradeIntroText2 dw NPCTradeIntroText3 ; TRADE_DIALOG_CANCEL dw NPCTradeCancelText1 dw NPCTradeCancelText2 dw NPCTradeCancelText2 dw NPCTradeCancelText3 ; TRADE_DIALOG_WRONG dw NPCTradeWrongText1 dw NPCTradeWrongText2 dw NPCTradeWrongText2 dw NPCTradeWrongText3 ; TRADE_DIALOG_COMPLETE dw NPCTradeCompleteText1 dw NPCTradeCompleteText2 dw NPCTradeCompleteText4 dw NPCTradeCompleteText3 ; TRADE_DIALOG_AFTER dw NPCTradeAfterText1 dw NPCTradeAfterText2 dw NPCTradeAfterText4 dw NPCTradeAfterText3 NPCTradeCableText: text_far _NPCTradeCableText text_end TradedForText: ; traded givemon for getmon text_far Text_NPCTraded text_asm ld de, MUSIC_NONE call PlayMusic call DelayFrame ld hl, .done ret .done text_far _NPCTradeFanfareText text_end NPCTradeIntroText1: text_far _NPCTradeIntroText1 text_end NPCTradeCancelText1: text_far _NPCTradeCancelText1 text_end NPCTradeWrongText1: text_far _NPCTradeWrongText1 text_end NPCTradeCompleteText1: text_far _NPCTradeCompleteText1 text_end NPCTradeAfterText1: text_far _NPCTradeAfterText1 text_end NPCTradeIntroText2: text_far _NPCTradeIntroText2 text_end NPCTradeCancelText2: text_far _NPCTradeCancelText2 text_end NPCTradeWrongText2: text_far _NPCTradeWrongText2 text_end NPCTradeCompleteText2: text_far _NPCTradeCompleteText2 text_end NPCTradeAfterText2: text_far _NPCTradeAfterText2 text_end NPCTradeIntroText3: text_far _NPCTradeIntroText3 text_end NPCTradeCancelText3: text_far _NPCTradeCancelText3 text_end NPCTradeWrongText3: text_far _NPCTradeWrongText3 text_end NPCTradeCompleteText3: text_far _NPCTradeCompleteText3 text_end NPCTradeAfterText3: text_far _NPCTradeAfterText3 text_end NPCTradeCompleteText4: text_far _NPCTradeCompleteText4 text_end NPCTradeAfterText4: text_far _NPCTradeAfterText4 text_end