Version=2
:if:<register.registered(elmcallplant)>=False <and> <register.registered(powerplanton)>=True
@player.move(0)
@Text.Show(Pokégear: Prof. Elm~Receiving call.......)
@Text.show(Hello, <player.name>?*There seems to be~a strange radio message~coming from Kanto.*I am to far away~to hear it clearly~but I am reminded of~Team Rocket's attack on~the Johto Radio Tower!*Could you visit the~Kanto Radio Tower in~Lavender Town to look~into that signal?*Thanks!)
@register.register(elmcallplant)
:endif
:if:<register.registered(battlezapdos)>=false <and> <register.registered(earthbadge_obtain)>=true <and> <player.position(x)><20
	:if:<register.registered(shinyzapdos)>=false
		@register.register(shinyzapdos,bool,false)
		:if:<system.random(1,<math.floor(<pokemon.mastershinyrate>/2)>)>=1
			@register.change(shinyzapdos,true)
		:endif
	:endif
	:if:<register.value(shinyzapdos)>=true
		@npc.wearskin(3,[POKEMON|S]145)
	:endif
:endif
:end