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

<EFBFBD><EFBFBD>version=2

	:if:<register.registered(pokedex_national)>=false
		@storage.set(str,pokedex_options,Johto Dex,Quit)
		@options.setcancelindex(1)
	:else
		@storage.set(str,pokedex_options,Johto Dex,National Dex,Quit)
		@options.setcancelindex(2)
	:endif


	@text.show(Hello, <Player.name>!*How's your Pok<00>dex~coming along?)
	@options.show(<storage.get(str,pokedex_options)>)
		:when:Johto Dex
			@text.show(Hmm, let's see...~You've seen <math.int(<pokedex.dexseen(0)>+<pokedex.dexcaught(0)>)> Pok<00>mon,~and caught <pokedex.dexcaught(0)> Pok<00>mon!~I see!)
			@script.start(pallet\evaljohtext)
			:if:<register.registered(johtodexcomplete)>=true
				:if:<register.registered(Ovalpickedup)>=false
					#Checks if the script got called from Prof. Oak's NPC script:
					:if:<storage.get(str,pallet_oak_scriptcaller)>=flag
						@text.show(As a token of my~gratitude I would like to~give you a small gift.)
						@item.give(241,1)
						@item.messagegive(241,1)
						@register.register(Ovalpickedup)
					:else
						@text.show(As a token of my~gratitude I would like to~give you a small gift.~Please come visit me!)
					:endif
				:endif
				:end
			:else
				@text.show(Show me your Pok<00>dex~again anytime!)
				:end
			:endif
		:when:National Dex
			@text.show(Hmm, let's see...~You've seen <math.int(<pokedex.seen>+<pokedex.caught>)> Pok<00>mon,~and caught <pokedex.caught> Pok<00>mon!~I see!)
			@script.start(pallet\evalnattext)
			:if:<register.registered(dexcomplete)>=true
				:if:<register.registered(Shinypickedup)>=false
					#Checks if the script got called from Prof. Oak's NPC script:
					:if:<storage.get(str,pallet_oak_scriptcaller)>=flag
						@text.show(As a token of my~gratitude I would like to~give you a small gift.)
						@item.give(242,1)
						@item.messagegive(242,1)
						@register.register(Shinypickedup)
					:else
						@text.show(As a token of my~gratitude I would like to~give you a small gift.~Please come visit me!)
					:endif
				:endif
				:end
			:else
				@text.show(Show me your Pok<00>dex~again anytime!)
				:end
			:endif
		:when:Quit
			:end
	:endwhen

:end