pokecrystal/engine/phone/scripts/elm.asm

102 lines
2.1 KiB
NASM

ElmPhoneCalleeScript:
readvar VAR_SPECIALPHONECALL
ifequal SPECIALCALL_POKERUS, .pokerus
checkevent EVENT_SHOWED_TOGEPI_TO_ELM
iftrue .discovery
checkevent EVENT_GOT_TOGEPI_EGG_FROM_ELMS_AIDE
iffalse .next
checkevent EVENT_TOGEPI_HATCHED
iftrue .egghatched
.next
checkevent EVENT_GOT_TOGEPI_EGG_FROM_ELMS_AIDE
iftrue .eggunhatched
checkevent EVENT_ELMS_AIDE_IN_LAB
iftrue .assistant
checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
iftrue .checkingegg
checkevent EVENT_ELM_CALLED_ABOUT_STOLEN_POKEMON
iftrue .stolen
checkevent EVENT_GOT_MYSTERY_EGG_FROM_MR_POKEMON
iftrue .sawmrpokemon
farwritetext ElmPhoneStartText
end
.sawmrpokemon
farwritetext ElmPhoneSawMrPokemonText
end
.stolen
farwritetext ElmPhonePokemonStolenText
end
.checkingegg
farwritetext ElmPhoneCheckingEggText
end
.assistant
farwritetext ElmPhoneAssistantText
end
.eggunhatched
farwritetext ElmPhoneEggUnhatchedText
end
.egghatched
farwritetext ElmPhoneEggHatchedText
setevent EVENT_TOLD_ELM_ABOUT_TOGEPI_OVER_THE_PHONE
end
.discovery
random 2
ifequal 0, .nextdiscovery
farwritetext ElmPhoneDiscovery1Text
end
.nextdiscovery
farwritetext ElmPhoneDiscovery2Text
end
.pokerus
farwritetext ElmPhonePokerusText
specialphonecall SPECIALCALL_NONE
end
ElmPhoneCallerScript:
readvar VAR_SPECIALPHONECALL
ifequal SPECIALCALL_ROBBED, .disaster
ifequal SPECIALCALL_ASSISTANT, .assistant
ifequal SPECIALCALL_WEIRDBROADCAST, .rocket
ifequal SPECIALCALL_SSTICKET, .gift
ifequal SPECIALCALL_MASTERBALL, .gift
farwritetext ElmPhonePokerusText
specialphonecall SPECIALCALL_NONE
end
.disaster
farwritetext ElmPhoneDisasterText
specialphonecall SPECIALCALL_NONE
setevent EVENT_ELM_CALLED_ABOUT_STOLEN_POKEMON
end
.assistant
farwritetext ElmPhoneEggAssistantText
specialphonecall SPECIALCALL_NONE
clearevent EVENT_ELMS_AIDE_IN_VIOLET_POKEMON_CENTER
setevent EVENT_ELMS_AIDE_IN_LAB
end
.rocket
farwritetext ElmPhoneRocketText
specialphonecall SPECIALCALL_NONE
end
.gift
farwritetext ElmPhoneGiftText
specialphonecall SPECIALCALL_NONE
end
.unused
farwritetext ElmPhoneUnusedText
specialphonecall SPECIALCALL_NONE
end