version=2
:if:<register.registered(kantostart0)>=true <and> <register.registered(kantostart1)>=false
	@screen.showpokemon(4,0,1)
	@Text.show(Oak: So, you're claiming the~Fire Pokémon Charmander?)
	@Options.show(Yes,No)
		:when:Yes
			:if:<pokemon.freeplaceinparty>=True
				@NPC.remove(12)
				@NPC.register(pallet\oaklab.dat|12|remove|1)
				@Register.register(kstarter2)
				@Text.show(This pokemon is really quite~energetic!)
				@pokemon.add(4,5,As a gift from Prof. Oak,5,at Pallet Town,0,<player.name>,517)
				@sound.play(success,1)
				@Text.show(<player.name> received~Charmander!)
				@pokemon.rename(last)
			
				:if:<player.position>=5,0,2
				:then
					@player.turnto(0)
				:else
					@Player.Turnto(1)
					@Player.Move(1)
					@Player.Turnto(0)
					@Player.Move(1)
				:endif

				@Text.show(If a wild Pokémon appears,~your Pokémon can battle it.*With it at your side, you should~be able to reach the next town.*What am I saying? You already~know all this!*..............~..............)

				@entity.showmessagebulb(1|5|0.8|1)
				
				@Text.show(Wait!*There is another gift I have~got for you.)
				@item.give(576)
				@item.messagegive(576,1)
				
				@Text.show(The Pokémon you just received~from me holds a very special~artifact called Mega Stone.*With the Mega Bracelet I just~gave you and the Mega Stones~that a Pokémon may hold, your~Pokémon will be able to achieve~a powerful boost called Mega~Evolution!*...once it has reached its final~evolved form, of course.)

				@Register.register(kantostart1)
				@Register.register(oak_give_mega_bracelet)
				@player.achieveemblem(mega)
			:else
				@text.show(You don't have~space in your party~for this Pokemon!)
			:endif

		:when:No
			@Text.show(Oak: No need to hurry. Take~your time.)
	:endwhen
:else
	@Text.show(It contains a~Pokémon caught by~Prof. Oak.)
:endif
:end