First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/events/npc_trade.asm

@@ -0,0 +1,544 @@
+NPCTrade::
+	ld a, e
+	ld [wJumptableIndex], a
+
+	ld e, NPCTRADE_GIVEMON
+	call GetTradeAttr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call GetPokemonIDFromIndex
+	ld l, LOCKED_MON_ID_TRADE_SEND
+	call LockPokemonID
+
+	ld e, NPCTRADE_GETMON
+	call GetTradeAttr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call GetPokemonIDFromIndex
+	ld l, LOCKED_MON_ID_TRADE_RECEIVE
+	call LockPokemonID
+
+	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 a, LOCKED_MON_ID_TRADE_SEND
+	call GetLockedPokemonID
+	ld hl, 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
+
+	xor a
+	ld l, LOCKED_MON_ID_TRADE_SEND
+	call LockPokemonID
+	ld l, LOCKED_MON_ID_TRADE_RECEIVE
+	jp LockPokemonID
+
+.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 a, LOCKED_MON_ID_TRADE_SEND
+	call GetLockedPokemonID
+	ld [wPlayerTrademonSpecies], a
+
+	ld a, LOCKED_MON_ID_TRADE_RECEIVE
+	call GetLockedPokemonID
+	ld [wOTTrademonSpecies], a
+
+	ld a, [wPlayerTrademonSpecies]
+	ld de, wPlayerTrademonSpeciesName
+	call GetTradeMonName
+	ld c, MON_NAME_LENGTH
+	call CopyStringWithTerminator
+
+	ld a, [wOTTrademonSpecies]
+	ld de, wOTTrademonSpeciesName
+	call GetTradeMonName
+	ld c, MON_NAME_LENGTH
+	call CopyStringWithTerminator
+
+	ld hl, wPartyMonOTs
+	ld bc, NAME_LENGTH
+	call Trade_GetAttributeOfCurrentPartymon
+	ld de, wPlayerTrademonOTName
+	ld c, NAME_LENGTH
+	call CopyStringWithTerminator
+
+	ld hl, wPlayerName
+	ld de, wPlayerTrademonSenderName
+	ld c, NAME_LENGTH
+	call CopyStringWithTerminator
+
+	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
+	ld c, MON_NAME_LENGTH
+	call CopyStringWithTerminator
+
+	ld hl, wPartyMonNicknames
+	ld bc, MON_NAME_LENGTH
+	call Trade_GetAttributeOfLastPartymon
+	ld hl, wOTTrademonNickname
+	ld c, MON_NAME_LENGTH
+	call CopyStringWithTerminator
+
+	ld e, NPCTRADE_OT_NAME
+	call GetTradeAttr
+	push hl
+	ld de, wOTTrademonOTName
+	ld c, NAME_LENGTH
+	call CopyStringWithTerminator
+	pop hl
+	ld de, wOTTrademonSenderName
+	ld c, NAME_LENGTH
+	call CopyStringWithTerminator
+
+	ld hl, wPartyMonOTs
+	ld bc, NAME_LENGTH
+	call Trade_GetAttributeOfLastPartymon
+	ld hl, wOTTrademonOTName
+	ld c, NAME_LENGTH
+	call CopyStringWithTerminator
+
+	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
+
+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 a, LOCKED_MON_ID_TRADE_RECEIVE
+	call GetLockedPokemonID
+	call GetTradeMonName
+
+	ld de, wStringBuffer2
+	ld c, MON_NAME_LENGTH
+	call CopyStringWithTerminator
+
+	ld a, LOCKED_MON_ID_TRADE_SEND
+	call GetLockedPokemonID
+	call GetTradeMonName
+
+	ld de, wMonOrItemNameBuffer
+	ld c, MON_NAME_LENGTH
+	call CopyStringWithTerminator
+
+	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