P3D-Legacy/P3D/Content/Data/Scripts/pallet/squirtle.dat

<EFBFBD><EFBFBD>version=2
:if:<register.registered(kantostart0)>=true <and> <register.registered(kantostart1)>=false
	@screen.showpokemon(7,0,1)
	@Text.show(Oak: So, you've decided on the~Water Pok<00>mon Squirtle?)
	@Options.show(Yes,No)
		:when:Yes
			:if:<pokemon.freeplaceinparty>=True
				@NPC.remove(13)
				@NPC.register(pallet\oaklab.dat|13|remove|1)
				@Register.register(kstarter3)
				@Text.show(This pokemon is really quite~energetic!)
				@pokemon.add(7,5,As a gift from Prof. Oak,5,at Pallet Town,0,<player.name>,514)
				@sound.play(success,1)
				@Text.show(<player.name> received~Squirtle!)
				@pokemon.rename(last)
			
				@Player.Turn(1)
				@Player.Move(2)
				@Player.Turn(3)
				@Player.Move(1)

				@Text.show(If a wild Pok<00>mon appears,~your Pok<00>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<00>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<00>mon may hold, your~Pok<00>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<00>mon caught by~Prof. Oak.)
:endif
:end