pokecrystal-board/engine/events/npc_trade.asm
Rangi 9dec80b07e Add meaningful aliases for wd265
Introduce MONICON_* constants
Introduce BATTLEPLAYERACTION_* constants
2018-07-29 00:25:52 -04:00

541 lines
9.2 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 GetTradeAttribute
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, ConnectLinkCableText
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
ld a, [wcf64]
push af
predef TradeAnimation
pop af
ld [wcf64], a
pop af
ld [wJumptableIndex], a
call ReturnToMapWithSpeechTextbox
ret
CheckTradeGender:
xor a
ld [wMonType], a
ld e, NPCTRADE_GENDER
call GetTradeAttribute
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 GetTradeAttribute
ld a, [hl]
ld [wcf64], a
ret
DoNPCTrade:
ld e, NPCTRADE_GIVEMON
call GetTradeAttribute
ld a, [hl]
ld [wPlayerTrademonSpecies], a
ld e, NPCTRADE_GETMON
call GetTradeAttribute
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, wPartyMonOT
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 GetTradeAttribute
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 GetTradeAttribute
ld a, [hl]
cp TRADE_DIALOG_COMPLETE
ld b, RESET_FLAG
jr c, .incomplete
ld b, SET_FLAG
.incomplete
farcall SetGiftPartyMonCaughtData
ld e, NPCTRADE_NICK
call GetTradeAttribute
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 GetTradeAttribute
push hl
ld de, wOTTrademonOTName
call CopyTradeName
pop hl
ld de, wOTTrademonSenderName
call CopyTradeName
ld hl, wPartyMonOT
ld bc, NAME_LENGTH
call Trade_GetAttributeOfLastPartymon
ld hl, wOTTrademonOTName
call CopyTradeName
ld e, NPCTRADE_DVS
call GetTradeAttribute
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 GetTradeAttribute
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 GetTradeAttribute
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
GetTradeAttribute:
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 [wNamedObjectIndexBuffer], a
call GetBasePokemonName
ld hl, wStringBuffer1
pop de
ret
CopyTradeName:
ld bc, NAME_LENGTH
call CopyBytes
ret
Unreferenced_Functionfcdfb:
ld bc, 4
call CopyBytes
ld a, "@"
ld [de], a
ret
Unreferenced_Functionfce05:
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 GetTradeAttribute
ld a, [hl]
call GetTradeMonName
ld de, wStringBuffer2
call CopyTradeName
ld e, NPCTRADE_GIVEMON
call GetTradeAttribute
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 GetTradeAttribute
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, [wcf64]
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 TradeIntroText1
dw TradeIntroText2
dw TradeIntroText3
dw TradeIntroText4
; TRADE_DIALOG_CANCEL
dw TradeCancelText1
dw TradeCancelText2
dw TradeCancelText3
dw TradeCancelText4
; TRADE_DIALOG_WRONG
dw TradeWrongText1
dw TradeWrongText2
dw TradeWrongText3
dw TradeWrongText4
; TRADE_DIALOG_COMPLETE
dw TradeCompleteText1
dw TradeCompleteText2
dw TradeCompleteText3
dw TradeCompleteText4
; TRADE_DIALOG_AFTER
dw TradeAfterText1
dw TradeAfterText2
dw TradeAfterText3
dw TradeAfterText4
ConnectLinkCableText:
; OK, connect the Game Link Cable.
text_jump UnknownText_0x1bd407
db "@"
TradedForText:
; traded givemon for getmon
text_jump UnknownText_0x1bd429
start_asm
ld de, MUSIC_NONE
call PlayMusic
call DelayFrame
ld hl, .done
ret
.done
; sound_dex_fanfare_80_109
; interpret_data
text_jump UnknownText_0x1bd445
db "@"
TradeIntroText1:
; I collect #MON. Do you have @ ? Want to trade it for my @ ?
text_jump UnknownText_0x1bd449
db "@"
TradeCancelText1:
; You don't want to trade? Aww…
text_jump UnknownText_0x1bd48c
db "@"
TradeWrongText1:
; Huh? That's not @ . What a letdown…
text_jump UnknownText_0x1bd4aa
db "@"
TradeCompleteText1:
; Yay! I got myself @ ! Thanks!
text_jump UnknownText_0x1bd4d2
db "@"
TradeAfterText1:
; Hi, how's my old @ doing?
text_jump UnknownText_0x1bd4f4
db "@"
TradeIntroText2:
TradeIntroText3:
; Hi, I'm looking for this #MON. If you have @ , would you trade it for my @ ?
text_jump UnknownText_0x1bd512
db "@"
TradeCancelText2:
TradeCancelText3:
; You don't have one either? Gee, that's really disappointing…
text_jump UnknownText_0x1bd565
db "@"
TradeWrongText2:
TradeWrongText3:
; You don't have @ ? That's too bad, then.
text_jump UnknownText_0x1bd5a1
db "@"
TradeCompleteText2:
; Great! Thank you! I finally got @ .
text_jump UnknownText_0x1bd5cc
db "@"
TradeAfterText2:
; Hi! The @ you traded me is doing great!
text_jump UnknownText_0x1bd5f4
db "@"
TradeIntroText4:
; 's cute, but I don't have it. Do you have @ ? Want to trade it for my @ ?
text_jump UnknownText_0x1bd621
db "@"
TradeCancelText4:
; You don't want to trade? Oh, darn…
text_jump UnknownText_0x1bd673
db "@"
TradeWrongText4:
; That's not @ . Please trade with me if you get one.
text_jump UnknownText_0x1bd696
db "@"
TradeCompleteText4:
; Wow! Thank you! I always wanted @ !
text_jump UnknownText_0x1bd6cd
db "@"
TradeAfterText4:
; How is that @ I traded you doing? Your @ 's so cute!
text_jump UnknownText_0x1bd6f5
db "@"
TradeCompleteText3:
; Uh? What happened?
text_jump UnknownText_0x1bd731
db "@"
TradeAfterText3:
; Trading is so odd… I still have a lot to learn about it.
text_jump UnknownText_0x1bd745
db "@"