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

<EFBFBD><EFBFBD>version=2
:if:<register.registered(kantostart0)>=true <and> <register.registered(kantostart1)>=false
	@screen.showpokemon(1,0,1)
	@Text.show(Oak: So, you want to go with~the Grass Pok<00>mon Bulbasaur?)
	@Options.show(Yes,No)
		:when:Yes
			:if:<pokemon.freeplaceinparty>=True
				@NPC.remove(11)
				@NPC.register(pallet/oaklab.dat|11|remove|1)
				@Register.register(kstarter1)
				@Text.show(This pokemon is really quite~energetic!)
				@pokemon.add(1,5,As a gift from Prof. Oak,5,at Pallet Town,0,<player.name>,534)
				@sound.play(success,1)
				@Text.show(<player.name> received~Bulbasaur!)
				@pokemon.rename(last)
			
				@Player.Turn(1)
				@Player.Move(3)
				@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