Regenbogenstein Quest

----------------------------------
--   Regenbogenstein Quest by bjoern.ebert17
--		(c) by DarkSide 2010
----------------------------------
quest regenbogen begin
	state start begin
			when 50512.use begin
			
				say_title ( "Regenbogenstein" )
				say ( "Hiermit kannst du eine" ) 
				say ( "Fertigkeit perfektionieren." ) 
				say ( "" ) 
				wait ( ) 
				say_title ( "Regenbogenstein" ) 
				local result = BuildSkillList(pc.get_job(), pc.get_skill_group())

				local vnum_list = result[1]
				local name_list = result[2]

				if table.getn(vnum_list) < 2 then
				say("Es gibt keine Fertigkeiten!")
				say("")
				return
				end
				say("Welche Fertigkeit willst du auf P bringen?")
				say("")

				local i = select_table(name_list)

				if table.getn(name_list) == i then
				return
				end

				local name = name_list[i]
				local vnum = vnum_list[i]

				say_title("Regenbogenstein:")
				say_reward("Dieser Stein ermöglicht es dir,")
				say_reward("deine Fertigkeit auf P zu bringen!")
				say(string.format("%s auf Perfekten Meister?", name))
				say("")

				local s = select("Ja", "Nein")
				if 2 == s then
				return
				end

				if 1 == s then
				say_title("Regenbogenstein:")
				say("Einmal benutzt, ist dies nicht mehr Rückgängig zu machen.")
				say("Trotzdem benutzen?")
				say("")

				local c = select("Ja", "Nein")

				if 2 == c then
				return
				end


				if 1 == c then
				pc.set_skill_level((vnum) ,59) 
				say_reward("Deine Fertigkeit wurde auf P gesetzt.")
				say_reward("Viel Spaß.")
				pc.removeitem("50512", 1)
				end
			end
		end