P3D-Legacy/P3D/Content/Data/Scripts/frontier/battletower/challenge/main.dat

<EFBFBD><EFBFBD>version=2

	@Text.Show(Welcome to the Battle Tower!*I oversee trainers' individual~challenges.*This is the~Challenge Mode.~If you would like to enter~the tower, you must have~only 3 Pok<00>mon.*Also, you have to save~your game before entering.*Would you like to~challenge the Tower?)
	@Options.Show(Yes,No)
	:when:Yes
		@player.save
		@sound.play(Save)
		@text.show(<player.name>~saved the game.)
		@storage.set(boolean,thirdperson,<player.thirdperson>)
		
		:if:<pokemon.count>>3
		:then
			@Text.Show(Please remove <system.calcint(<pokemon.count>-3)> Pok<00>mon~from your party.)
			@Screen.StorageSystem
		:else
			:if:<pokemon.count><3
				@text.show(Please add <system.calcint(3-<pokemon.count>)> Pok<00>mon~to your party.)
				@screen.storagesystem
			:endif
		:endif

		:if:<register.registered(frontier_battletower_challenge_values_created)>=false
		:then
			@register.register(battletower_challenge_50_class,INT,0)
			@register.register(battletower_challenge_50_best,INT,0)
			@register.register(battletower_challenge_50_previous_streak,INT,0)
			@register.register(battletower_challenge_100_class,INT,0)
			@register.register(battletower_challenge_100_best,INT,0)
			@register.register(battletower_challenge_100_previous_streak,INT,0)
			@register.register(frontier_battletower_challenge_values_created)
		:endif		

		@storage.set(integer,tower_streak,0)
		@storage.set(boolean,tower_brain,false)

		:if:<pokemon.count>=3 <and> <pokemon.countbattle>=3
		:then
			@text.show(Which challenge do~you want to start?)
			@options.show(Lv. 50,Lv. 100,Cancel)
			:when:Lv. 50
				@storage.set(integer,tower_level,50)
				@storage.set(integer,tower_class,<register.value(battletower_challenge_50_class)>)
			:when:Lv. 100
				@storage.set(integer,tower_level,100)
				@storage.set(integer,tower_class,<register.value(battletower_challenge_100_class)>)
			:when:Cancel
				@Text.Show(Well, come back and see~us again when you have*prepared yourself for~the challenge.)
				:endscript
			:endwhen
			
			@pokemon.heal
			@storage.set(integer,level_0,<pokemon.level(0)>)
			@storage.set(integer,level_1,<pokemon.level(1)>)
			@storage.set(integer,level_2,<pokemon.level(2)>)
			
			@Pokemon.changelevel(0,<storage.get(integer,tower_level)>)
			@Pokemon.changelevel(1,<storage.get(integer,tower_level)>)
			@Pokemon.changelevel(2,<storage.get(integer,tower_level)>)
			
			@pokemon.calcstats(0)
			@pokemon.calcstats(1)
			@pokemon.calcstats(2)
			@pokemon.heal

			@Text.Show(Well, now you are~prepared.)
			@script.start(frontier\battletower\challenge\intro_walk)
		:else
			:if:<pokemon.count>>3 <or> <pokemon.countbattle>>3
				@Text.Show(It seems you have~too many Pok<00>mon.*Please return when you are~prepared to use exactly~3 Pok<00>mon.)
			:else
				@Text.Show(It seems you have~too few Pok<00>mon.*Please return when you are~prepared to use exactly~3 Pok<00>mon.)
			:endif
		:endif
	:when:No
		@Text.Show(Well, come back and see~us again when you have*prepared yourself for~the challenge.)
	:endwhen
:end