pokecrystal-board/engine/events/npc_trade.asm

519 lines
8.4 KiB
NASM
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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 PrintText1bpp
call DoNPCTrade
call .TradeAnimation
call GetTradeMonNames
ld hl, TradedForText
call PrintText1bpp
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 PrintText1bpp
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