[SERVICE] Die Questkontrolle

quest changename begin
state start begin
when 71055.use begin
say_title("Namensänderung:")
say("")
say("Mithilfe dieses Items kannst du deinen Namen")
say("einmalig ändern, also überlege es dir gut, ob")
say("du deinen Namen wirklich ändern möchtest!")
say("")
say_reward("Möchtest du deinen wirklich Namen ändern?")
say("")
local change = select("Ja", "Nein")
if change == 1 then
say_title("Namensänderung:")
say("")
say("Also du möchtest wirklich deinen Namen ändern!")
say("Bevor du deinen Namen ändern kannst, müssen wir")
say("erst prüfen ob dieser Name eigentlich noch frei")
say("ist.")
say("")
say_reward("Gib deinen neuen Namen hier ein:")
say("")
local c_name = input()
local c_search = find_pc_by_name(c_name)

if c_search==0 then 
say_title("Namensänderung:")
say("")
say("Dieser Name ist noch frei. Bist du dir sicher, dass")
say("du dich "..c_name.." nennen möchtest?")
say("")
local secure = select("Ja", "Nein")
if secure == 1 then
say_title("Namensänderung:")
say("")
say("Herzlichen Glückwunsch!")
say("")
say("Deine Name wurde in "..c_name.." geändert!")
say("")
say_reward("Bitte einmal relog machen, damit die Änderung")
say_reward("gültig wird!")
say("")
pc.change_name(c_name)
pc.remove_item(71055, 1)
else
say_title("Namensänderung:")
say("")
say("Schade, dass du dich doch anders entschieden hast,")
say("aber vielleicht möchtest du deinen Namen ja ein")
say("andermal ändern!")
say("")
end
else
say_title("Namensänderung:")
say("")
say("Dieser Name ist leider schon vergeben, bitte suche")
say("dir einen anderen Namen, den du verwenden kannst!")
say("")
end
else
return
end
end
end
end

----------------------------------------------------
--COLLECT QUEST_lv92
--METIN2 ¼öÁý Äù½ºÆ®  
----------------------------------------------------
quest collect_quest_lv92 begin
	state start begin
	end

	state run begin
		when login or levelup with pc.level >= 92 begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Seon-Pyeong ")
			end
			send_letter("Seon-Pyeongs Forschung ")
		end

		when button or info begin
			say_title("Seon-Pyeongs Forschung ")
			say("Seon-Pyeong im Tal von Seungryong braucht deine[ENTER]Hilfe. Geh zu ihm und sieh nach, was los ist. ")
		end
		
		when __TARGET__.target.click or 20091.chat."Hilfe bei der Forschung " begin
			target.delete("__TARGET__")
			---                                                   l
			say_title("Seon-Pyeong: ")
			say("Heda, tapferer Krieger! Du kommst mir gerade[ENTER]recht. Ich bin auf der Suche nach einer[ENTER]bestimmten Art von Edelsteinen für meine[ENTER]Waffenforschungen. Könntest du mir damit helfen?[ENTER]Einige Kreaturen in der Grotte der Verbannung[ENTER]besitzen solche Edelsteine. Aber ich bin zu[ENTER]wichtig, um mein Leben an solch einem[ENTER]gefährlichen Ort aufs Spiel zu setzen. ")
			wait()
			say_title("Seon-Pyeong: ")
			say("Im Moment brauche ich die makellosen Juwelen der[ENTER]Missgunst - strahlende Schönheiten, die nur[ENTER]in den Tiefen dieses Berges wachsen. Es sind[ENTER]besondere Diamanten, die lange der mächtigen[ENTER]Ausstrahlung des bösen Gottes Beran-Setaou[ENTER]ausgesetzt waren und einen winzigen Bruchteil[ENTER]seiner Energien in sich aufgenommen haben.[ENTER]Ich benötige 10 perfekte Exemplare.[ENTER]Viel Glück und bis bald! ")
			set_state(go_to_disciple)
			pc.setqf("duration", 0)  
			pc.setqf("collect_count", 0) 
			pc.setqf("drink_drug", 0) 
		end
	end

	state go_to_disciple begin
		when letter begin
			send_letter("Seon-Pyeongs Forschung ")
		end

		when button or info begin
			say_title("Juwelen für Seon-Pyeong ")
			---                                                   l
			say("Der Waffenschmied und Forscher Seon-Pyeong[ENTER]benötigt 10 Juwelen der Missgunst für seine[ENTER]Waffenforschung. Bringe sie ihm einzeln, damit er[ENTER]jedes genau untersuchen kann.[ENTER]Du erhältst sie von den Unterwelt-Eismännern und[ENTER]Unterwelt-Eisgolems. ")
			say_item_vnum(30251) 
			say_reward(string.format("Bis jetzt hast du %s Juwelen abgeliefert. ", pc.getqf("collect_count")))
		end
		
		when 71035.use begin --ÇöȤÀÇ ¹°¾à
			if get_time() < pc.getqf("duration") then
				say("Du kannst das Elixier des Forschers noch nicht[ENTER]benutzen. ")
				return
			end

			if pc.getqf("drink_drug") == 1 then
				say("Du hast bereits ein Elixier benutzt! ")
				return
			end

			if pc.count_item(30251) == 0 then
				say("Du kannst das Elixier benutzen, sobald du ein[ENTER]Juwel gefunden hast. ")
				return
			end

			pc.remove_item(71035, 1)
			pc.setqf("drink_drug",1)
		end

		when 1135.kill or 1137.kill begin
			local s = number(1, 25)
			if s <= 1 then
				pc.give_item2(30251, 1)
				send_letter("Juwel gefunden ")
			end	
		end
		
    	when 20091.chat."Juwelen für die Waffenforschung " with pc.count_item(30251) > 0 begin
			if get_time() < pc.getqf("duration") then
		  		say_title("Seon-Pyeong: ")
				say("Du hier? Es tut mir leid, aber ich habe das[ENTER]Studium des letzten Exemplars noch nicht[ENTER]abgeschlossen. Komm später wieder! ")
				return
			end

			if pc.count_item(30251) <= 0 then
				say_title("Seon-Pyeong: ")
				say("Du hast noch nichts gefunden? Das tut mir leid.[ENTER]Aber warum bist du dann hier? Auf, auf! Komm[ENTER]wieder her, wenn du mir Juwelen bringen kannst! ")
				return
			end

			say_title("Seon-Pyeong: ")
			say("Du hast ein Juwel gefunden? Fantastisch! Warte[ENTER]einen Moment, ich muss mich vergewissern... ")
			pc.remove_item(30251, 1)

			if is_test_server() then 
				pc.setqf("duration", get_time()+10) -- Å×½ºÆ®¼*¹ö 10ÃÊ
			else
				pc.setqf("duration", get_time()+1) -- ÀÏ¹Ý 6½Ã°£
			end

			wait()

			local pass_percent

			if pc.getqf("drink_drug") == 0 then
				pass_percent = 10
			else		
				pass_percent = 60
			end

			local s = number(1, 25)

			if s <= pass_percent then
				local collect_count = pc.getqf("collect_count")
				pc.setqf("collect_count", collect_count + 1) -- Çϳª ±¸ÇßÀ¸´Ï +1 ÇØÁØ´Ù
				pc.setqf("drink_drug", 0) -- ¹°¾à ÃʱâÈ*

				if collect_count < 9 then
					say_title("Seon-Pyeong: ")
					say("Oh ja, das ist gut. Ohne jeden Zweifel einer der[ENTER]schönsten Edelsteine, die ich jemals gesehen[ENTER]habe. Vielen Dank! ")
					say(string.format("Aber wie du weißt, benötige ich noch %s weitere[ENTER]Exemplare dieser Qualität. Gib mir einen Tag[ENTER]Zeit, diesen hier genau zu untersuchen. Dann[ENTER]kannst du mir den nächsten bringen. ", 10-pc.getqf("collect_count")))
					say("Viel Erfolg dabei! ")
				else
					pc.setqf("duration", 0) 

					say_title("Seon-Pyeong: ")
					say("Das war das letzte Juwel, du hast alle 10[ENTER]gesammelt. Ich bin dir zu Dank verpflichtet...[ENTER]und werde bei der Belohnung nicht geizen.[ENTER]Wähle! ")

					local s = select("Trefferpunkte +1500 ", "Verteidigung +150 ", "Angriff +75 ")

					if 1 == s then
						affect.add_collect(1,1500,60*60*24*365*60) -- hp index == 1, hp +1000
						pc.setqf("reward", 1)
					elseif 2 == s then
						affect.add_collect(apply.DEF_GRADE_BONUS, 150, 60*60*24*365*60)
						pc.setqf("reward", 2)
					elseif 3 == s then 
						affect.add_collect(apply.ATT_GRADE_BONUS, 75, 60*60*24*365*60)
						pc.setqf("reward", 3)
					end

					clear_letter()
					set_quest_state("collect_quest_lv94", "run")
					set_state(__complete)
				end

				return
			else								
				pc.setqf("drink_drug", 0)	 --¹°¾à ÃʱâÈ*
				say_title("Seon-Pyeong: ")
				say("Hmm... und dieser Edelstein stammt wirklich aus[ENTER]der Grotte der Verbannung? Er ist schön, aber ihm[ENTER]fehlt das innere Feuer. Ich fürchte er ist für[ENTER]mich unbrauchbar. Ich werde ihn genau untersuchen[ENTER]und du besorgst mir inzwischen einen anderen, ja? ")
				return
			end
	   	end -- end of when 20091.chat."ȫõÀÇ º¸¼®À» °¡Á®¿Â°Ç°¡? " with pc.count_item(30251) > 0 begin
    end -- end of state 'go_to_disciple'
	
	state __complete begin
	end
end