40 lines
915 B
ObjectPascal
40 lines
915 B
ObjectPascal
VermilionCity_House2_MapScripts:: @ 816B5D6
|
|
.byte 0
|
|
|
|
VermilionCity_House2_EventScript_16B5D7:: @ 816B5D7
|
|
lock
|
|
faceplayer
|
|
setvar VAR_0x8008, INGAME_TRADE_FARFETCHD
|
|
call EventScript_GetInGameTradeSpeciesInfo
|
|
goto_if_set FLAG_DID_CH_DING_TRADE, EventScript_16B649
|
|
msgbox gUnknown_81949CB, MSGBOX_YESNO
|
|
compare VAR_RESULT, NO
|
|
goto_if_eq EventScript_16B631
|
|
call EventScript_ChooseMonForInGameTrade
|
|
compare VAR_0x8004, PARTY_SIZE
|
|
goto_if_ge EventScript_16B631
|
|
call EventScript_GetInGameTradeSpecies
|
|
compare VAR_RESULT, VAR_0x8009
|
|
goto_if_ne EventScript_16B63B
|
|
call EventScript_DoInGameTrade
|
|
msgbox gUnknown_8194A44
|
|
setflag FLAG_DID_CH_DING_TRADE
|
|
release
|
|
end
|
|
|
|
EventScript_16B631:: @ 816B631
|
|
msgbox gUnknown_81949FD
|
|
release
|
|
end
|
|
|
|
EventScript_16B63B:: @ 816B63B
|
|
getspeciesname 0, VAR_0x8009
|
|
msgbox gUnknown_8194A0D
|
|
release
|
|
end
|
|
|
|
EventScript_16B649:: @ 816B649
|
|
msgbox gUnknown_8194A4F
|
|
release
|
|
end
|