P3D-Legacy/P3D/Content/Data/Scripts/movedeleter.dat

<EFBFBD><EFBFBD>version=2

@text.show(Greetings, here we offer~the Move Deleter service!)

:if:<register.registered(deleter_first)>=false
	@text.show(Um... Oh, yes.~I might be amnesiac,~but I'm the right person~to ask if you need to make~your Pok<00>mon forget any~of its moves, even HMs!)
	@register.register(deleter_first)
:endif

:if:<player.badges><2
	@text.show(Oh, I'm afraid you'll~need at least 2 badges~to use the service.)
	@text.show(We hope to see you~again!)
	@level.wait(5)
	@player.turnto(3)
	:end
:else
	@text.show(Would you like me to make~your Pok<00>mon forget a move?)
	@options.show(Yes,No)
	:when:Yes
		@text.Show(Which Pok<00>mon should~forget one of its moves?)
		@pokemon.select(1)
		:if:<pokemon.selected>>-1
			:if:<pokemon.countattacks(<pokemon.selected>)>=1
				@text.Show(Your <pokemon.name(<pokemon.selected>)> can't~forget its only move...)
				@text.show(We hope to see you~again!)
				@level.wait(5)
				@player.turnto(3)
				:end
			:endif	
			@pokemon.selectmove(<pokemon.selected>,1,1)
			:if:<pokemon.selectedmove>>-1
				@text.show(Should your <pokemon.name(<pokemon.selected>)>~forget the move <pokemon.attackname(<pokemon.selected>,<pokemon.selectedmove>)>?)
				@options.show(Yes,No)
				:when:Yes
					@text.show(Ok, <pokemon.name(<pokemon.selected>)> forgot~the move <pokemon.attackname(<pokemon.selected>,<pokemon.selectedmove>)>!)
					@pokemon.removeattack(<pokemon.selected>,<pokemon.selectedmove>)
					@text.show(We hope to see you~again!)
					@level.wait(5)
					@player.turnto(3)
					:end
				:when:No
					@text.show(We hope to see you~again!)
					@level.wait(5)
					@player.turnto(3)
					:end
				:endwhen
			:else
				@text.show(We hope to see you~again!)
				@level.wait(5)
				@player.turnto(3)
				:end
			:endif
		:else
			@text.show(We hope to see you~again!)
			@level.wait(5)
			@player.turnto(3)
			:end
		:endif
	:when:No
		@text.show(We hope to see you~again!)
		@level.wait(5)
		@player.turnto(3)
		:end
	:endwhen
:endif

:end