P3D-Legacy/P3D/Content/Data/Scripts/route25/grandpa.dat

<EFBFBD><EFBFBD>version=2
:if:<register.registered(billgrandpa)>=False
	@register.register(billgrandpa,int,0)
:endif
@text.show(Hm?~You know Bill?~He's my grandson.~He's in Johto.~He does something with PCs,~so I'm house-sitting.)
:select:<register.value(billgrandpa)>
	:when:0
		@text.show(My grandson Bill told me~about a Pok<00>mon that~has a long tongue.*If you have that Pok<00>mon,~may I see it please?)
		@options.show(Yes,No)
			:when:Yes
				@text.show(You will show me?~How good of you!)
				@pokemon.select(0)
				:if:<pokemon.number(<pokemon.selected>)>=108
					@text.show(Ah, so that is Lickitung?~Isn't it cute!*That's so kind of you.*Thanks!~This is a token of~my appreciation.)
					@item.give(112,1)
					@item.messagegive(112,1)
					@register.change(billgrandpa,1)
					:endscript
				:else
					@text.show(Hm? That's not the~Pok<00>mon that I was told about.)
					:endscript
				:endif
			:when:No
				@text.show(You don't have it?~That's too bad...)
				:endscript
		:endwhen
	:when:1
		@text.show(Bill told me that this Pok<00>mon~was very loyal to its trainer.*Its supposed to roar well.*If you have that Pok<00>mon,~may I see it please?)
		@options.show(Yes,No)
			:when:Yes
				@text.show(You will show me?~How good of you!)
				@pokemon.select(0)
				:if:<pokemon.number(<pokemon.selected>)>=58
					@text.show(Ah, so that is Growlithe?~Isn't it cute!*That's so kind of you.*Thanks!~This is a token of~my appreciation.)
					@item.give(22,1)
					@item.messagegive(22,1)
					@register.change(billgrandpa,2)
					:endscript
				:else
					@text.show(Hm? That's not the~Pok<00>mon that I was told about.)
					:endscript
				:endif
			:when:No
				@text.show(You don't have it?~That's too bad...)
				:endscript
		:endwhen
	:when:2
		@text.show(Do you know that~hugely popular Pok<00>mon?*The Pok<00>mon that has a~yellow body and red cheeks.*I would love to see what it~looks like before it evolves.*If you have that Pok<00>mon,~may I see it, please?)
		@options.show(Yes,No)
			:when:Yes
				@text.show(You will show me?~How good of you!)
				@pokemon.select(0)
				:if:<pokemon.number(<pokemon.selected>)>=172
					@text.show(Ah, so that is Pichu?~Isn't it cute!*That's so kind of you.*Thanks!~This is a token of~my appreciation.)
					@item.give(23,1)
					@item.messagegive(23,1)
					@register.change(billgrandpa,3)
					:endscript
				:else
					@text.show(Hm? That's not the~Pok<00>mon that I was told about.)
					:endscript
				:endif
			:when:No
				@text.show(You don't have it?~That's too bad...)
				:endscript
		:endwhen
	:when:3
		@text.show(Do you know of a~sea Pok<00>mon that has a~red sphere in its body?*You know, the one~that's shaped like a star?*I heard that it appears at night.*I would surely like to see it.*If you have that Pok<00>mon,~may I see it please?)
		@options.show(Yes,No)
			:when:Yes
				@text.show(You will show me?~How good of you!)
				@pokemon.select(0)
				:if:<pokemon.number(<pokemon.selected>)>=120
					@text.show(Ah, so that is Staryu?~Isn't it cute!*That's so kind of you.*Thanks!~This is a token of~my appreciation.)
					@item.give(24,1)
					@item.messagegive(24,1)
					@register.change(billgrandpa,4)
					:endscript
				:else
					@text.show(Hm? That's not the~Pok<00>mon that I was told about.)
					:endscript
				:endif
			:when:No
				@text.show(You don't have it?~That's too bad...)
				:endscript
		:endwhen
	:when:4
		@text.show(Ah, my grandson mentioned~a round, green Pok<00>mon that has~leaves growing on its head.*If you have that Pok<00>mon,~may I see it please?)
		@options.show(Yes,No)
			:when:Yes
				@text.show(You will show me?~How good of you!)
				@pokemon.select(0)
				:if:<pokemon.number(<pokemon.selected>)>=43
					@text.show(Ah, so that is Oddish?~Isn't it cute!*That's so kind of you.*Thanks!~This is a token of~my appreciation.)
					@item.give(34,1)
					@item.messagegive(34,1)
					@register.change(billgrandpa,5)
					:endscript
				:else
					@text.show(Hm? That's not the~Pok<00>mon that I was told about.)
					:endscript
				:endif
			:when:No
				@text.show(You don't have it?~That's too bad...)
				:endscript
		:endwhen

	:when:5
		@text.show(Thanks for showing me~so many cute Pok<00>mon.*I really enjoyed myself.*I'm glad I've lived~such a long life.)
		:end
:endwhen
:end