[SERVICE] Die Questerstellung

quest killdrop begin
	state start begin
		function perc_chance(i)
			return math.random() <= (i/100)
		end
		when kill with not npc.is_pc() begin
			--[[
				remove the '--' below if you want to drop the items by 1 specific mob
				replace 'mobvnum' with the vnum
			]]
			-- if npc.get_race() == mobvnum then
				local items = {--itemvnum, count, chance
					{19, 1, 100},
					{29, 1, 50},
					{39, 1, 1},
					{27001, 50, 1}
				}
				for k,v in pairs(items) do
					if killdrop.perc_chance(v[3]) then
						game.drop_item_with_ownership(v[1], v[2])
						chat("hum..well done!")
					end
				end
			--[[
				replace the '--' below if you did it above
			]]
			--end
		end
	end
end

quest steinupp begin
	state start begin
		when npcvnum.take begin
			local itemvnum = item.get_vnum()
			local resultvnum = itemvnum+100
			local uppchance = 50
			if not steinupp.in_list(itemvnum, {HIER_ALLE_VNUMS_VON_PLUS_3ER_STEINEN_EINTRAGEN}) then
				return chat("Ich kann leider nur Steine von +3 auf +4 verbessern ...")
			end
			say("Möchtest du "..item_name(itemvnum).." wirklich zu")
			say(item_name(resultvnum).." verbessern?")
			say("")
			say("Der Versuch kann fehlschlagen!")
			if select("Fortfahren", "Abbrechen") == 2 then return end
			pc.remove_item(itemvnum)
			if steinupp.perc_chance(uppchance) then
				pc.give_item2(resultvnum)
				chat("Die Verbesserung war erfolgreich!")
			else
				chat("Dein Stein wurde bei der Verbesserung zerstört ...")
			end
		end
		function in_list(compare, list)
			for _,v in pairs(list) do
				if compare == v then return true end
			end
			return false
		end
		function perc_chance(i)
			return math.random() <= (i/100)
		end
	end
end

quest dBWbarpkaZEr begin
	state start begin
		when x.chat."Steinstücke tauschen" begin
			local steinstueck = 100 -- WIe viele
			local Monster = { 101, 102, 103 } -- die VNums der Monster
			say_title(mob_name(npc.get_race()))
			say("")
			say("Du möchtest deine Steinstücke gegen")
			say("Verwandlungskugel tauschen?")
			say("")
			say_reward("Du brauchst "..steinstueck.."!")
			if select("Ja","Nein")==2 then return end
			say_title(mob_name(npc.get_race()))
			say("")
			say("Was für eine willste?")
			s = select(mob_name(Monster[1]).." - VWK", mob_name(Monster[2]).." - VWK", mob_name(Monster[3]).." - VWK", "Abbrechen")
			if s==4 then return end
			if pc.count_item(27990)<steinstueck then
				say_title(mob_name(npc.get_race()))
				say("")
				say("Du hast zuwenig Steinstücke!")
			else
				pc.remove_item(27990, steinstueck)
				pc.give_item2_select(70104, 1)
				item.set_socket(0, Monster[s])
				say_title(mob_name(npc.get_race()))
				say("")
				say("Okay, hier hast du deine")
				say(mob_name(Monster[s]).." - VWK")
			end
		end
	end
end

quest metinkill begin
	state start begin
		when login or levelup with pc.get_level() >= 5 begin
			send_letter("Metin des Kummers")
		end
		when button or info with pc.get_level() >= 5 begin
			say_title("Töte Metin des Kummers")
			say("Du musst 5x Metin des Kummers töten.")
			say_reward("Töte 5x Metin des Kummers")
			wait()
			pc.setqf("count", 5)
			clear_letter()
			set_state(quest)
		end
	end
	state quest begin
		when login or enter begin
			send_letter("Metin des Kummers")
			q.set_count("Metin d. Kummers", pc.getqf("count"))
		end
		when button or info begin
			say_title("BEISPIELTITEL")
			say("TEXT")
			say("TEXT")
			say("TEXT")
			say("Zerstöre 5x Metin des Kummers") --gelb gibt es standardmäßig nicht
			say("")
			say("Du musst noch "..pc.getqf("count").." Metin des Kummers töten.")
		end
		when kill with npc.get_race() == VNUM_VOM_METIN begin
			local newqf = pc.getqf("count")-1
			pc.setqf("count", newqf)
			if newqf < 1 then
				say("Du hast es geschafft!")
				pc.give_item2(({52010, 52011, 52012})[select("Löwe", "Keiler", "Wolf")])
				clear_letter()
				set_state(_COMPLETE_)
			end
		end
	end
	state _COMPLETE_ begin
	end
end