pokeemerald/data/scripts/gift_pichu.inc
Eduardo Quezada f87d86945f (256/665)
2022-08-17 08:48:38 -04:00

105 lines
2.4 KiB
PHP
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.

MysteryGiftScript_SurfPichu::
setvaddress MysteryGiftScript_SurfPichu
vgoto_if_unset FLAG_MYSTERY_GIFT_DONE, SurfPichu_GiveIfPossible
returnram
SurfPichu_GiveIfPossible:
specialvar VAR_GIFT_PICHU_SLOT, CalculatePlayerPartyCount
vgoto_if_eq VAR_GIFT_PICHU_SLOT, PARTY_SIZE, SurfPichu_FullParty
setflag FLAG_MYSTERY_GIFT_DONE
vcall SurfPichu_GiveEgg
lock
faceplayer
vmessage sText_MysteryGiftEgg
waitmessage
waitbuttonpress
playfanfare MUS_OBTAIN_ITEM
waitfanfare
release
end
SurfPichu_FullParty:
lock
faceplayer
vmessage sText_FullParty
waitmessage
waitbuttonpress
release
end
SurfPichu_GiveEgg:
giveegg SPECIES_PICHU
setmoneventlegal VAR_GIFT_PICHU_SLOT
setmonmetlocation VAR_GIFT_PICHU_SLOT, METLOC_FATEFUL_ENCOUNTER
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 1, SurfPichu_Slot1
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 2, SurfPichu_Slot2
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 3, SurfPichu_Slot3
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 4, SurfPichu_Slot4
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 5, SurfPichu_Slot5
return
SurfPichu_Slot1:
setmonmove 1, 2, MOVE_SURF
return
SurfPichu_Slot2::
setmonmove 2, 2, MOVE_SURF
return
SurfPichu_Slot3:
setmonmove 3, 2, MOVE_SURF
return
SurfPichu_Slot4:
setmonmove 4, 2, MOVE_SURF
return
SurfPichu_Slot5:
setmonmove 5, 2, MOVE_SURF
return
.ifdef ENGLISH
sText_MysteryGiftEgg:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "From the POKéMON CENTER we\n"
.string "have a gift--a POKéMON EGG!\p"
.string "Please raise it with love and\n"
.string "kindness.$"
sText_FullParty:
.string "Oh, your party appears to be full.\p"
.string "Please come see me after storing\n"
.string "a POKéMON on a PC.$"
.else
.ifdef FRENCH
sText_MysteryGiftEgg:
.string "Merci dutiliser le système\n"
.string "CADEAU MYST.\p"
.string "Nous avons un OEUF pour vous!\p"
.string "Elevez-le avec amour et\n"
.string "gentillesse.$"
sText_FullParty:
.string "Oh, léquipe est pleine.\p"
.string "Revenez quand vous aurez rangé\n"
.string "un POKéMON dans votre PC.$"
.else
.ifdef ITALIAN
sText_MysteryGiftEgg:
.string "Grazie per usare il Sistema\n"
.string "DONO SEGRETO.\p"
.string "Abbiamo un regalo per te da un\n"
.string "CENTRO POKéMON, un UOVO POKéMON!\p"
.string "Trattalo con tanto amore!$"
sText_FullParty:
.string "Non hai più posto nella tua\n"
.string "squadra.\p"
.string "Torna a trovarmi dopo aver\n"
.string "depositato uno o più\l"
.string "POKéMON nel PC.$"
.endif
.endif
.endif