pokefirered/data/maps/CeladonCity_GameCorner_PrizeRoom/scripts.inc
2020-08-29 03:11:03 -04:00

395 lines
13 KiB
C++

CeladonCity_GameCorner_PrizeRoom_MapScripts:: @ 816CB75
.byte 0
CeladonCity_GameCorner_PrizeRoom_EventScript_BaldingMan:: @ 816CB76
msgbox CeladonCity_GameCorner_PrizeRoom_Text_FancyThatPorygon, MSGBOX_NPC
end
CeladonCity_GameCorner_PrizeRoom_EventScript_OldMan:: @ 816CB7F
msgbox CeladonCity_GameCorner_PrizeRoom_Text_RakedItInToday, MSGBOX_NPC
end
CeladonCity_GameCorner_PrizeRoom_EventScript_PrizeClerkMons:: @ 816CB88
lock
faceplayer
goto_if_unset FLAG_GOT_COIN_CASE, CeladonCity_GameCorner_PrizeRoom_EventScript_NeedCoinCase
goto_if_questlog EventScript_ReleaseEnd
showcoinsbox 0, 0
msgbox CeladonCity_GameCorner_PrizeRoom_Text_WeExchangeCoinsForPrizes
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeMon:: @ 816CBB2
message CeladonCity_GameCorner_PrizeRoom_Text_WhichPrize
waitmessage
multichoice 11, 0, MULTICHOICE_GAME_CORNER_POKEMON_PRIZES, FALSE
switch VAR_RESULT
case 0, CeladonCity_GameCorner_PrizeRoom_EventScript_Abra
case 1, CeladonCity_GameCorner_PrizeRoom_EventScript_Clefairy
case 2, CeladonCity_GameCorner_PrizeRoom_EventScript_DratiniPinsir
case 3, CeladonCity_GameCorner_PrizeRoom_EventScript_ScytherDratini
case 4, CeladonCity_GameCorner_PrizeRoom_EventScript_Porygon
case 5, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
case 127, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange:: @ 816CC10
hidecoinsbox 0, 0
release
end
CeladonCity_GameCorner_PrizeRoom_EventScript_Abra:: @ 816CC15
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_ABRA
setvar VAR_TEMP_2, 180
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_ABRA
setvar VAR_TEMP_2, 120
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_Clefairy:: @ 816CC25
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_CLEFAIRY
setvar VAR_TEMP_2, 500
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_CLEFAIRY
setvar VAR_TEMP_2, 750
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_DratiniPinsir:: @ 816CC35
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_DRATINI
setvar VAR_TEMP_2, 2800
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_PINSIR
setvar VAR_TEMP_2, 2500
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ScytherDratini:: @ 816CC45
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_SCYTHER
setvar VAR_TEMP_2, 5500
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_DRATINI
setvar VAR_TEMP_2, 4600
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_Porygon:: @ 816CC55
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_PORYGON
setvar VAR_TEMP_2, 9999
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_PORYGON
setvar VAR_TEMP_2, 6500
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon:: @ 816CC65
getspeciesname 0, VAR_TEMP_1
msgbox CeladonCity_GameCorner_PrizeRoom_Text_YouWantPrize, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
checkcoins VAR_RESULT
compare VAR_RESULT, VAR_TEMP_2
goto_if_lt CeladonCity_GameCorner_PrizeRoom_EventScript_NotEnoughCoins
textcolor 3
switch VAR_TEMP_1
case SPECIES_ABRA, CeladonCity_GameCorner_PrizeRoom_EventScript_GiveAbra
case SPECIES_CLEFAIRY, CeladonCity_GameCorner_PrizeRoom_EventScript_GiveClefairy
case SPECIES_DRATINI, CeladonCity_GameCorner_PrizeRoom_EventScript_GiveDratini
case SPECIES_SCYTHER, CeladonCity_GameCorner_PrizeRoom_EventScript_GiveScyther
case SPECIES_PORYGON, CeladonCity_GameCorner_PrizeRoom_EventScript_GivePorygon
case SPECIES_PINSIR, CeladonCity_GameCorner_PrizeRoom_EventScript_GivePinsir
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GiveAbra:: @ 816CCD4
.ifdef FIRERED
givemon VAR_TEMP_1, 9, ITEM_NONE
.else
.ifdef LEAFGREEN
givemon VAR_TEMP_1, 7, ITEM_NONE
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GiveClefairy:: @ 816CCE9
.ifdef FIRERED
givemon VAR_TEMP_1, 8, ITEM_NONE
.else
.ifdef LEAFGREEN
givemon VAR_TEMP_1, 12, ITEM_NONE
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GiveDratini:: @ 816CCFE
.ifdef FIRERED
givemon VAR_TEMP_1, 18, ITEM_NONE
.else
.ifdef LEAFGREEN
givemon VAR_TEMP_1, 24, ITEM_NONE
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GiveScyther:: @ 816CD13
givemon VAR_TEMP_1, 25, ITEM_NONE
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GivePorygon:: @ 816CD28
.ifdef FIRERED
givemon VAR_TEMP_1, 26, ITEM_NONE
.else
.ifdef LEAFGREEN
givemon VAR_TEMP_1, 18, ITEM_NONE
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GivePinsir:: @ 816CD3D
givemon VAR_TEMP_1, 18, ITEM_NONE
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon:: @ 816CD52
compare VAR_RESULT, 0
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_ReceivedMonParty
compare VAR_RESULT, 1
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_ReceivedMonPC
compare VAR_RESULT, 2
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_PartyFull
end
CeladonCity_GameCorner_PrizeRoom_EventScript_PartyFull:: @ 816CD74
textcolor 3
msgbox Text_NoMoreRoomForPokemon
hidecoinsbox 0, 0
release
end
CeladonCity_GameCorner_PrizeRoom_EventScript_NicknamePartyMon:: @ 816CD83
getpartysize
subvar VAR_RESULT, 1
copyvar VAR_0x8004, VAR_RESULT
call EventScript_ChangePokemonNickname
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_NeedCoinCase:: @ 816CD99
textcolor 3
msgbox CeladonCity_GameCorner_PrizeRoom_Text_CoinCaseRequired
release
end
CeladonCity_GameCorner_PrizeRoom_EventScript_NotEnoughCoins:: @ 816CDA5
msgbox CeladonCity_GameCorner_PrizeRoom_Text_NeedMoreCoins
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ReceivedMonParty:: @ 816CDB3
removecoins VAR_TEMP_2
updatecoinsbox 0, 5
getspeciesname 0, VAR_TEMP_1
playfanfare MUS_LEVEL_UP
message Text_PlayerObtainedTheMon
waitmessage
waitfanfare
msgbox Text_GiveNicknameToThisMon, MSGBOX_YESNO
compare VAR_RESULT, YES
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_NicknamePartyMon
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ReceivedMonPC:: @ 816CDE0
removecoins VAR_TEMP_2
updatecoinsbox 0, 5
getspeciesname 0, VAR_TEMP_1
playfanfare MUS_LEVEL_UP
message Text_PlayerObtainedTheMon
waitmessage
waitfanfare
msgbox Text_GiveNicknameToThisMon, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_TransferredToPC
call EventScript_NameReceivedBoxMon
goto CeladonCity_GameCorner_PrizeRoom_EventScript_TransferredToPC
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TransferredToPC:: @ 816CE12
call EventScript_TransferredToPC
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_PrizeClerkTMs:: @ 816CE1D
lock
faceplayer
goto_if_unset FLAG_GOT_COIN_CASE, CeladonCity_GameCorner_PrizeRoom_EventScript_NeedCoinCase
goto_if_questlog EventScript_ReleaseEnd
showcoinsbox 0, 0
msgbox CeladonCity_GameCorner_PrizeRoom_Text_WeExchangeCoinsForPrizes
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeTM:: @ 816CE47
message CeladonCity_GameCorner_PrizeRoom_Text_WhichPrize
waitmessage
multichoice 11, 0, MULTICHOICE_GAME_CORNER_TMPRIZES, FALSE
switch VAR_RESULT
case 0, CeladonCity_GameCorner_PrizeRoom_EventScript_TM13
case 1, CeladonCity_GameCorner_PrizeRoom_EventScript_TM23
case 2, CeladonCity_GameCorner_PrizeRoom_EventScript_TM24
case 3, CeladonCity_GameCorner_PrizeRoom_EventScript_TM30
case 4, CeladonCity_GameCorner_PrizeRoom_EventScript_TM35
case 5, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
case 127, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM13:: @ 816CEA5
setvar VAR_TEMP_1, ITEM_TM13
setvar VAR_TEMP_2, 4000
getmovename 1, MOVE_ICE_BEAM
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM23:: @ 816CEB9
setvar VAR_TEMP_1, ITEM_TM23
setvar VAR_TEMP_2, 3500
getmovename 1, MOVE_IRON_TAIL
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM24:: @ 816CECD
setvar VAR_TEMP_1, ITEM_TM24
setvar VAR_TEMP_2, 4000
getmovename 1, MOVE_THUNDERBOLT
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM30:: @ 816CEE1
setvar VAR_TEMP_1, ITEM_TM30
setvar VAR_TEMP_2, 4500
getmovename 1, MOVE_SHADOW_BALL
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM35:: @ 816CEF5
setvar VAR_TEMP_1, ITEM_TM35
setvar VAR_TEMP_2, 4000
getmovename 1, MOVE_FLAMETHROWER
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM:: @ 816CF09
msgbox CeladonCity_GameCorner_PrizeRoom_Text_YouWantTM, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
goto CeladonCity_GameCorner_PrizeRoom_EventScript_TryGivePrize
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem:: @ 816CF22
getitemname 0, VAR_TEMP_1
msgbox CeladonCity_GameCorner_PrizeRoom_Text_YouWantPrize, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
goto CeladonCity_GameCorner_PrizeRoom_EventScript_TryGivePrize
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TryGivePrize:: @ 816CF3F
getitemname 0, VAR_TEMP_1
checkcoins VAR_RESULT
compare VAR_RESULT, VAR_TEMP_2
goto_if_lt CeladonCity_GameCorner_PrizeRoom_EventScript_NotEnoughCoins
checkitemspace VAR_TEMP_1, 1
compare VAR_RESULT, FALSE
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_BagFull
removecoins VAR_TEMP_2
updatecoinsbox 0, 5
giveitem VAR_TEMP_1
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_BagFull:: @ 816CF79
textcolor 3
msgbox Text_TooBadBagFull
hidecoinsbox 0, 0
release
end
CeladonCity_GameCorner_PrizeRoom_EventScript_PrizeClerkItems:: @ 816CF88
lock
faceplayer
goto_if_unset FLAG_GOT_COIN_CASE, CeladonCity_GameCorner_PrizeRoom_EventScript_NeedCoinCase
goto_if_questlog EventScript_ReleaseEnd
showcoinsbox 0, 0
msgbox CeladonCity_GameCorner_PrizeRoom_Text_WeExchangeCoinsForPrizes
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeItem:: @ 816CFB2
message CeladonCity_GameCorner_PrizeRoom_Text_WhichPrize
waitmessage
multichoice 10, 0, MULTICHOICE_GAME_CORNER_BATTLE_ITEM_PRIZES, FALSE
switch VAR_RESULT
case 0, CeladonCity_GameCorner_PrizeRoom_EventScript_SmokeBall
case 1, CeladonCity_GameCorner_PrizeRoom_EventScript_MiracleSeed
case 2, CeladonCity_GameCorner_PrizeRoom_EventScript_Charcoal
case 3, CeladonCity_GameCorner_PrizeRoom_EventScript_MysticWater
case 4, CeladonCity_GameCorner_PrizeRoom_EventScript_YellowFlute
case 5, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
case 127, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_SmokeBall:: @ 816D010
setvar VAR_TEMP_1, ITEM_SMOKE_BALL
setvar VAR_TEMP_2, 800
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_MiracleSeed:: @ 816D020
setvar VAR_TEMP_1, ITEM_MIRACLE_SEED
setvar VAR_TEMP_2, 1000
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_Charcoal:: @ 816D030
setvar VAR_TEMP_1, ITEM_CHARCOAL
setvar VAR_TEMP_2, 1000
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_MysticWater:: @ 816D040
setvar VAR_TEMP_1, ITEM_MYSTIC_WATER
setvar VAR_TEMP_2, 1000
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_YellowFlute:: @ 816D050
setvar VAR_TEMP_1, ITEM_YELLOW_FLUTE
setvar VAR_TEMP_2, 1600
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end