[SERVICE] Die Questkontrolle

quest javito begin
	state start begin
		function attr_list ( bonus )
            local attr = {
                [1] = "Max. TP",
                [2] = "Max. MP",
                [3] = "Vitalität",
                [4] = "Intelligenz",
                [5] = "Stärke",
                [6] = "Beweglichkeit",
                [7] = "Angriffsgeschwindigkeit",
                [8] = "Bewegungsgeschw.",
                [9] = "Zaubergeschwindigkeit",
                [10] = "TP-Regeneration",
                [11] = "MP-Regeneration",
                [12] = "Vergiftungschance ",
                [13] = "Ohnmachtschance ",
                [14] = "Verlangsamungschance ",
                [15] = "Chance auf krit. Treffer +",
                [16] = "Chance auf durchbohrenden Treffer",
                [17] = "Stark gegen Halbmenschen +",
                [18] = "Stark gegen Tiere +",
                [19] = "Stark gegen Orks +",
                [20] = "Stark gegen Esoterische +",
                [21] = "Stark gegen Untote +",
                [22] = "Stark gegen Teufel +",
                [23] = "Schaden wird von TP absorbiert",
                [24] = "Schaden wird von MP absorbiert",
                [25] = "Chance auf Manaraub",
                [27] = "Chance, Nahkampf-Angriff abzublocken ",
                [28] = "Chance, Pfeilangriff auszuweichen",
                [29] = "Schwertverteidigung ",
                [30] = "Zweihänderverteidigung ",
                [31] = "Dolchverteidigung ",
                [32] = "Glockenverteidigung ",
                [33] = "Fächerverteidigung ",
                [34] = "Pfeilwiderstand ",
                [35] = "Feuerwiderstand ",
                [36] = "Blitzwiderstand ",
                [37] = "Magiewiderstand ",
                [38] = "Windwiderstand ",
                [39] = "Chance, Nahkampftreffer zu reflektieren",
                [40] = "Giftwiderstand",
                [41] = "Chance, MP wiederherzustellen",
                [42] = "Chance auf EXP-Bonus",
                [43] = "Chance, eine doppelte Menge Yang fallen zu lassen.",
                [44] = "Chance, eine doppelte Menge von Gegenständen fallen zu lassen.",
                [45] = "Chance, TP wiederherzustellen",
                [46] = "Abwehr gegen Ohnmacht",
                [47] = "Abwehr gegen Verlangsamen",
                [48] = "Angriffswert",
                [49] = "Stark gegen Monster",
                [50] = "Fertigkeitsschaden ",
                [51] = "Durchschn. Schaden ",
                [52] = "Widerstand gegen Fertigkeitsschaden ",
                [53] = "Durchschn. Schadenswiderstand ",
                [71] = "Fertigkeitsschaden",
                [72] = "Durchschn. Schaden",
            }
            return tostring(attr[bonus])
		end
		
		when 9011.take begin
			say_title(mob_name(9011))
			local itemid = mysql_query("SELECT vnum FROM player.item WHERE owner_id="..pc.get_account_id().." and window='SAFEBOX' and pos='0';")
			local itemid = item.get_id()
			local itemname = item.get_name()
			local bonuszok = mysql_select("SELECT attrtype0, attrvalue0, attrtype1, attrvalue1, attrtype2, attrvalue2, attrtype3, attrvalue3, attrtype4, attrvalue4, attrtype5, attrvalue5, attrtype6, attrvalue6 FROM player.item WHERE id ='"..itemid.."'")
			say_title(item.get_name())
			say("Bónuszok:")
			if tonumber(bonuszok.attrtype0[1]) > 0 then
                say_reward(javito.attr_list(tonumber(bonuszok.attrtype0[1])).." : "..bonuszok.attrvalue0[1])
            else
                say(" Üres")
            end
            if tonumber(bonuszok.attrtype1[1]) > 0 then
                say_reward(javito.attr_list(tonumber(bonuszok.attrtype1[1])).." : "..bonuszok.attrvalue1[1])
            else
                say(" Üres")
            end
            if tonumber(bonuszok.attrtype2[1]) > 0 then
                say_reward(javito.attr_list(tonumber(bonuszok.attrtype2[1])).." : "..bonuszok.attrvalue2[1])
            else
                say(" Üres")
            end
            if tonumber(bonuszok.attrtype3[1]) > 0  then
                say_reward(javito.attr_list(tonumber(bonuszok.attrtype3[1])).." : "..bonuszok.attrvalue3[1])
            else
                say(" Üres")
            end
			if tonumber(bonuszok.attrtype4[1]) > 0  then
                say_reward(javito.attr_list(tonumber(bonuszok.attrtype4[1])).." : "..bonuszok.attrvalue4[1])
            else
                say(" Üres")
            end
			if tonumber(bonuszok.attrtype5[1]) > 0  then
                say_reward(javito.attr_list(tonumber(bonuszok.attrtype5[1])).." : "..bonuszok.attrvalue5[1])
            else
                say(" Üres")
            end
			if tonumber(bonuszok.attrtype6[1]) > 0  then
                say_reward(javito.attr_list(tonumber(bonuszok.attrtype6[1])).." : "..bonuszok.attrvalue6[1])
            else
                say(" Üres")
            end
			if 1 == select("Javítás", "Mégse") then
				say_title("Javítás")
				say("")
				say("Javításhoz szükséges: "..item.get_name(70001))
				if 1 == select("Javít", "Mégse") then
				if  pc.countitem(70001) > 0 then
					local player = pc.get_account_id()
					local bon0 = bonuszok.attrvalue0[1] * 1.2
					local bon1 = bonuszok.attrvalue1[1] * 1.2
					local bon2 = bonuszok.attrvalue2[1] * 1.2
					local bon3 = bonuszok.attrvalue3[1] * 1.2
					local bon4 = bonuszok.attrvalue4[1] * 1.2
					local bon5 = bonuszok.attrvalue5[1] * 1.2
					local bon6 = bonuszok.attrvalue6[1] * 1.2
					mysql_query("UPDATE player.item SET attrvalue0='"..bon0.."', attrvalue1='"..bon1.."', attrvalue2='"..bon2.."', attrvalue3='"..bon3.."', attrvalue4='"..bon4.."', attrvalue5='"..bon5.."', attrvalue6='"..bon6.."' WHERE id = '"..itemid.."' LIMIT 1")
					say("A tárgy bónuszai javítva")
					end
				end
			end
		end
	end
end

quest map_warp begin
	state start begin
		when 9012.chat."Para onde queres ir?"  begin
			say_title("Teleportador:")
			say("A vila é um bom lugar para se passar")
			say("mas aqui nada acontece.. é muito pacato.")
			say("Se queres perigos para outras regiões")
			say("te deves dirigir.")
			say("Há diversos destinos interessantes")
			say("para onde podes viajar, no entanto, como")
			say("hoje em dia, nada é de graça!")
			say("Terás de pagar um certo valor monetário")
			say("se quiseres viajar para uma outra terra.")
			say("Queres ser teleportado?")
			local main_set = select("Sim","Não")
			if main_set == 2 then
			return
		end
			local map = pc.get_map_index()
			local empire = pc.get_empire()
			local level = pc.get_level()
			local cost = 10000
			local second_cost = cost*2
			local final_cost = cost*50
				say_title("Teleportador:")
				say("Para onde queres ser teleportado?")
				say_reward("Vai-te custar "..cost.." Yang.")
			if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
			local guild_map_names = {
					"Jungrang - Zona de Guilds",
					"Waryong - Zona de Guilds",
					"Imha - Zona de Guilds",
			}
			guild_map_name = guild_map_names[empire]
			local warp_coords = {
				--Zona_de_Guilds
				{
					{ 128500, 1000 },
					{ 179500, 1000 },
					{ 271800, 13000 },
				},
				--Vale_Seungryong
				{
					{ 402100, 673900 },
					{ 270400, 739900 },
					{ 321300, 808000 },
				},
				--Deserto_Yongbi
				{
					{ 217800, 627200 },
					{ 221900, 502700 },
					{ 344000, 502500 },
				},
				--Montanha_Sohan
				{
					{ 434200, 290600 },
					{ 375200, 174900 },
					{ 491800, 173600 },
				},
				--Doyyumhwan_Terra_do_Fogo
				{
					{ 599400, 756300 },
					{ 597800, 622200 },
					{ 730700, 689800 },
				},
				--Torre_Gumsan
				{
					{ 590500, 110500 },
					{ 590500, 110500 },
					{ 590500, 110500 },
				},
				--Cave_das_Aranhas
				{
					{ 60000, 496000 },
					{ 60000, 496000 },
					{ 60000, 496000 },
				},
				--Floresta_Fantasma
				{
					{ 288700, 5700 },
					{ 288700, 5700 },
					{ 288700, 5700 },
				},
				--Bosque_Rubro
				{
					{ 1119900, 70800 },
					{ 1119900, 70800 },
					{ 1119900, 70800 },
				},
				--Jotunheim
				{
					{ 845100, 745900 },
					{ 845100, 745900 },
					{ 845100, 745900 },
				},
				--Ilha_Misteriosa
				{
					{ xxx00, xxx00 },
					{ xxx00, xxx00 },
					{ xxx00, xxx00 },
				},
				--Montanha_Arida
				{
					{ 1191000, 1655300 },
					{ 1191000, 1655300 },
					{ 1191000, 1655300 },
				},
			}
				if level < 95 then
				local option = select(guild_map_name, "Vale Seungryong", "Deserto Yongbi", "Montanha Sohan", "Doyyumhwan - Terra do Fogo", "Outras Áreas")
					if option != 6 then
						if pc.gold < cost then
							say_title("Teleportador:")
							say("Não tens yang suficiente.")
							return
						end
							pc.change_gold(-cost)
							say_title("Teleportador:")
							say("Estás a ser teleportado...")
							wait()
							pc.warp(warp_coords[option][empire][1], warp_coords[option][empire][2])
					else
				say_title("Teleportador:")
				say("Para onde queres ser teleportado?")
				say_reward("Vai-te custar "..second_cost.." Yang.")
				local second_option = select("Torre do Demónio", "Cave das Aranhas", "Floresta Fantasma", "Bosque Rubro", "Jotunheim", "Sair")
					if second_option != 6 then
						if pc.gold < second_cost then
							say_title("Teleportador:")
							say("Não tens yang suficiente.")
							return
						end
							pc.change_gold(-second_cost)
							say_title("Teleportador:")
							say("Estás a ser teleportado...")
							wait()
							pc.warp(warp_coords[second_option+5][empire][1], warp_coords[second_option+5][empire][2])
						return
					else
					end
				end
			end
				else
					local option = select(guild_map_name, "Vale Seungryong", "Deserto Yongbi", "Montanha Sohan", "Doyyumhwan - Terra do Fogo", "Outras Áreas")
					if option != 6 then
						if pc.gold < cost then
							say_title("Teleportador:")
							say("Não tens yang suficiente.")
							return
						end
							pc.change_gold(-cost)
							say_title("Teleportador:")
							say("Estás a ser teleportado...")
							wait()
							pc.warp(warp_coords[option][empire][1], warp_coords[option][empire][2])
					else
				say_title("Teleportador:")
				say("Para onde queres ser teleportado?")
				say_reward("Vai-te custar "..second_cost.." Yang.")
				local second_option = select("Torre do Demónio", "Cave das Aranhas", "Floresta Fantasma", "Bosque Rubro", "Jotunheim", "Continuar")
					if second_option != 6 then
						if pc.gold < second_cost then
							say_title("Teleportador:")
							say("Não tens yang suficiente.")
							return
						end
							pc.change_gold(-second_cost)
							say_title("Teleportador:")
							say("Estás a ser teleportado...")
							wait()
							pc.warp(warp_coords[second_option+5][empire][1], warp_coords[second_option+5][empire][2])
						return
					else
				say_title("Teleportador:")
				say("Para onde queres ser teleportado?")
				say_reward("Vai-te custar "..final_cost.." Yang.")
				local final_option("Ilha Misteriosa","Naalong - Montanha Árida","Sair")
					if final_option != 3 then
						if pc.gold < final then
							say_title("Teleportador:")
							say("Não tens yang suficiente.")
							return
						end
							pc.change_gold(-final_cost)
							say_title("Teleportador:")
							say("Estás a ser teleportado...")
							wait()
							pc.warp(warp_coords[second_option+10][empire][1], warp_coords[second_option+10][empire][2])
						return
					end
				end
			end
		end
			else
				if empire == 1 then
					local city = select("Yongan","Jayang","Cancelar")
				elseif empire == 2 then
					local city = select("Joan","Bokjung","Cancelar")
				elseif empire == 3 then
					local city = select("Pyungmoo","Bakra","Cancelar")
				end
				if city != 3 then
					if pc.gold < cost then
						say_title("Teleportador:")
						say("Não tens yang suficiente.")
						return
					end
				else
					if city == 1 then
						pc.change_gold(-cost)
						say_title("Teleportador:")
						say("Estás a ser teleportado...")
						wait()
						if empire == 1 then
								pc.warp(474300,954800)
							elseif empire == 2 then
								pc.warp(63800,166400)
							elseif empire == 3 then
								pc.warp(959900,269200)
						end
					elseif city == 2 then
						pc.change_gold(-cost)
						say_title("Teleportador:")
						say("Estás a ser teleportado...")
						wait()
						if empire == 1 then
								pc.warp(353100,882900)
							elseif empire == 2 then
								pc.warp(145500,240000)
							elseif empire == 3 then
								pc.warp(863900,246000)
						return
					end
				end
			end
		end
	end
end

----------------------------------------------------
--COLLECT QUEST_lv60
--METIN2 Collect Quest  
----------------------------------------------------
quest collect_quest_lv60  begin
	state start begin
		when login or levelup with pc.level >= 60 and pc.level <= 99 begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20084)
			if v != 0 then
				target.vid("__TARGET__", v, "Biologenquest")
			end
			send_letter("Die Forschungen des Biologen 4")
		end

		when button or info begin
			say_title("Die Forschungen des Biologen 4")
			say("")
			say("Der Biologe sucht nach Dir!")
			say("Begib Dich zu ihm.")
			say("Er sagt er braucht Deine Hilfe.")
			say("")
		end
		
		when __TARGET__.target.click or
			20084.chat."Eiskugeln" begin
			target.delete("__TARGET__")
			say("Biologe:")
			---                                                   l
			say("Hallo, schön dass Du gekommen bist.")
			say("Ich habe die Fluchbücher untersucht.")
			say("Mun habe ich neue Objekte gefunden,")
			say("die ich gerne untersuchen würde...")
			say("Ich würde es ja selber machen, aber")
			say("ich habe zu viel zu tun.")
			say("Kannst Du mir helfen?")
			wait()
			say("Biologe:")
			say("Es handelt sich um Eiskugeln.")
			say("Du findest sie im Eistal.")
			say("Für meine Untersuchungen benötige")
			say("ich 20 Eiskugeln.")
			say("Aber Du musst Dich beeilen,")
			say("die Eiskugeln schmelzen schnell.")
			say("Dann kann ich sie nicht verwenden.")
			say("")																																				  
			set_state(go_to_disciple)
			pc.setqf("duration",0)  -- Dauer der Quest
			pc.setqf("collect_count",0) -- Fortschritt der Quest
		end
		when button or info begin
			say_title("Die Forschungen des Biologen 4")
			---                                                   l
			say("")
			say("Der Biologe benötigt 20 Eiskugeln.")
			say("Du bekommst sie von den Eisgolems")
			say("im Eistal")
			say("Bringe sie dem Biologen.")
			say("Pass auf, dass sie nicht schmelzen!")
			say("")
			say_item_vnum(30047) 
			say_reward("Du hast".." "..pc.getqf("collect_count").."abgegeben.")
			say("")
		end
		
		when 71035.use begin --°g´bÃĤô
			if get_time() < pc.getqf("duration") then
				say("")
				say("Ich bin noch nicht fertig!")
				say("")
				return
			end
			if pc.getqf("drink_drug")==1 then
				say("")
				say("¤w¸g¨Ï¥Î¤F1¦¸")
				say("")

				return
			end
			if pc.count_item(30047)==0 then
				say("Du hast keine Eiskugeln")
				say("Bitte komm wieder,")
				say("Du Eiskugeln hast.")
				say("")
				return
			end
			item.remove()	
			pc.setqf("drink_drug",1)
		end



		
    	when 20084.chat."Eiskugeln" with pc.count_item(30006) >0   begin
			if get_time() > pc.getqf("duration") then
				say("Kleinen Moment...")
				---                                                   l
				say("Vielen Dank,")
				say("ich prüfe ob Eiskugel")
				say("in Ordnung ist.")
				say("")
				pc.remove_item("30047", 1)
				pc.setqf("duration",get_time()+60*60*0) -----------------------------------0??
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=60
				else		
					pass_percent=90
				end
				
				local s= number(1,100)
				if s<= pass_percent  then
				   if pc.getqf("collect_count")< 19 then     --20 Eiskugeln
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)     --¨ú±o¤@* +1 
						say(pass_percent)
						say("Biologe:")
						say("Sehr schön, diese Eiskugel ist in Ordnung.")
						say("Ich benötige noch".." "..20-pc.getqf("collect_count").. " weitere")
						say("Bitte bring sie mir.")
						say("")
						pc.setqf("drink_drug",0)	 --ÃĤôªì©l¤Æ
						return
					end
					say("Biologe:")
					say("Du hast mir alle 20 gebracht")
					say("Nun habe ich noch eine Bitte")
					say("an Dich:")
					say("Ich benötige noch Aurtumryus Seelenstein")	
					say("Du findest ihn im Eistal")
					say("")
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)	
					pc.setqf("duration",0) 
					set_state(key_item)
					return
				else								
				say("Biologe:")
				say("Tut mir leid,")
				say("aber diese Eiskugel ist")
				say("leider geschmolzen")
				pc.setqf("drink_drug",0)	 --ÃĤôªì©l¤Æ
				return
				end
	    else
		  say("Biologe:")
		  say("Tut mir leid,")
		  say("aber meine Forschung ist noch ")
		  say("nicht beendet.")
		  say("")
		  return
		end

	end
end


	state key_item begin
		when letter begin
			send_letter("Aurtumryus Seelenstein")
			
			if pc.count_item(30223)>0 then	
				local v = find_npc_by_vnum(20084)
				if v != 0 then
					target.vid("__TARGET__", v, "Bioquest")
				end
			end

		end
		when button or info begin
			if pc.count_item(30220) >0 then
				say_title("Aurtumryus Seelenstein")
				say("")
				---                                                   l
				say("Der Biologe braucht Deine")
				say("Hilfe! Gehe zu ihm.")
				say("")
				return
			end
			say_title("Aurtumryus Seelenstein")
			say("")
			---                                                   l
			say("Du hast es fast geschafft.")
			say("20 Eiskugeln. Nun nur noch")
			say("Aurtumryus Seelenstein!")
			say_item_vnum(30223)----------- ¯u°*±ÚÆF»î¥Û
			say("Der legendäre Stein, der die Seele")
			say("eines Aurtumryus Adligen enthält.")
			say("")
		end
		

	
		when 1102.kill or
			 1103.kill or 
			 1104.kill  begin
			local s = number(1, 500)
			if s == 1 and pc.count_item(30223)==0 then
				pc.give_item2(30223, 1)
				send_letter("Aurtumryus Seelenstein")		
			end	
		end
	
		when __TARGET__.target.click  or
			20084.chat."Aurtumryus Seelenstein" with pc.count_item(30223) > 0  begin
		    target.delete("__TARGET__")
			say("Biologe:")
			say("Du hast hart gekämpft...")
			say("Dafür sollst Du eine besondere")
			say("Belohnung erhalten!")
			say("Ich gebe Dir eine Info mit.")
			say("Gehe zu Baek-Go, er")
			say("wird Dir die Belohnung geben.")
			say("Wir werden uns wiedersehen...")
			say("")
			pc.remove_item(30223,1)
			set_state(__reward)
		end
		
	end
	
	state __reward begin
		when letter begin
			send_letter("Infos des Biologen")
			
			local v = find_npc_by_vnum(20018)
			if v != 0 then
				target.vid("__TARGET__", v, "Doktor")
			end

		end
		when button or info begin
			say_title("Infos des Biologen")
			---                                                   l
			say("Du hast es fast geschafft.")
			say("Nun gehe zu Baek-Go,")
			say("er wird Dir die Belohnung geben.")
			say("Du findest ihn bestimmt")
			say("auf Map1")
			say("")
		end
		
		when __TARGET__.target.click  or
			20018.chat."Belohnung des Biologen"  begin
		    target.delete("__TARGET__")
			say("Baek-Go:")
			say("Ich sehe")
			say("der Biologe hat Dich zu mir geschickt.")
			say("Hier ist Deine Belohnung:")
			say("Dauerhafter Angriffswert +50")
			say("")
			say_reward("Du hast dem Biologen geholfen")
			say_reward("Deine Belohnung ist +50")
			say_reward("Angriffswert")
			
			affect.add_collect(apply.ATT_GRADE_BONUS, 50, 60*60*24*365*60) --60¦~	
			
			clear_letter()
			set_quest_state("collect_quest_lv60", "run")
			set_state(__complete)
		end
			
	end

	state __complete begin
	end
end