[SERVICE] Die Questerstellung

quest itemtausch begin
	state start begin
		when xxx.chat."Itemtausch" begin
			local items = {
				["to_trade"] = {
					{30003, 10},
					{30022, 20},
					{50050, 5},
					{30033, 5},
					{affenkraut, 5}
				},
				["items"] = {
					{item1, anzahl_item1},
					{item2, anzahl_item2},
					{item3, anzahl_item3},
					{item4, anzahl_item4},
					{item5, anzahl_item5}
				}
			}
			for _, tbl in pairs(items["to_trade"]) do
				if pc.count_item(tbl[1]) < tbl[2] then
					say("Du hast nicht genügend Items für einen Tausch.")
					say("Du benötigst folgende Items für einen Tausch:")
					say("")
					for _, item in pairs(items["to_trade"]) do
						say(item[2].."x "..item_name(item[1]))
					end
					return
				end
			end
			local item_names = {}
			for _, tbl in pairs(items["items"]) do
				table.insert(item_names, item_name(tbl[1]))
			end
			say("Gut ... du hast alle benötigten Items.")
			say("Gegen welches Dieser Items möchtest du sie tauschen?")
			local select_item = items["items"][select3(item_names)] or false
			if select_item then
				say("Möchtest du wirklich folgende Items:")
				for _, item in pairs(items["to_trade"]) do
					say(item[2].."x "..item_name(item[1]))
				end
				say("gegen "..select_item[2].."x "..item_name(select_item[1]))
				say("tauschen?")
				if select("Ja", "Nein") == 2 then return end
				for _, tbl in pairs(items["to_trade"]) do
					if pc.count_item(tbl[1]) < tbl[2] then
						say("Versuch nicht zu verarschen!")
						return
					end
					pc.remove_item(tbl[1], tbl[2])
				end
				pc.give_item2(select_item[1], select_item[2])
			end
		end
	end
end

quest horselv begin
	state start begin
		-- Funktion
		function next_horselv()
			local horselv = ({1, 11, 21})[pc.get_level() >= 5 and pc.get_level() >= 35 and pc.get_level() >= 45 and 3 or 2 or 1]
			if pc.get_horse_level() < horselv then
				return horselv
			end
			return false
		end
		function check_horseskilllevel()
			local skill_ids = {}
			for i = 138, 140 do
				if pc.get_skill_level(i) < 20 then
					table.insert(skill_ids, i)
				end
			end
			if table.getn(skill_ids) >= 1 then
				return skill_ids
			end
			return false
		end
		-- #####
		-- Quest
		-- #####
		when login with horselv.check_horseskilllevel() begin
			for _, tbl in pairs(horselv.check_horseskilllevel()) do
				pc.set_skill_level(tbl, 20)
			end
		end
		when login or levelup with horselv.next_horselv() then
			send_letter("Das Pferd")
		end
		when button or info with horselv.next_horselv() then
			say("Möchtest du das Level deines Pferdes auf "..horselv.next_horselv().." steigern?")
			if select("Ja", "Nein") == 2 then return end
			horse.set_level(horselv.next_horselv())
		end
	end
end

quest kaito begin
	state start begin
		when login or levelup with pc.get_level() >= 5 begin
			local tab = {
				{1},
				{50051}
			}
			for anfänger,pferd in pairs(tab) do
				horse.set_level(pferd[1])
				pc.give_item2(pferd[2],1)
				chat("Du hast das Anfänger-Pferd bekommen!")
			end
		end
		when login or levelup with pc.get_level() == 35 begin
			local tab2 = {
				{11},
				{50052}
			}
			for mittel,pferd in pairs(tab2) do
				horse.set_level(pferd[1])
				pc.give_item2(pferd[2],1)
				chat("Du hast das Kampf-Pferd bekommen!")
			end
		end
		when login or levelup with pc.get_level() == 45 begin
			local tab3 = {
				{20},
				{137,138,139},
				{59},
				{50053}
			}
			for militar,pferd in pairs(tab3) do
				horse.set_level(pferd[1])
				pc.set_skill_level(pferd[2],pferd[3])
				pc.give_item2(pferd[4],1)
				chat("Du hast das Kampf-Pferd bekommen!")
			end
		end
	end
end

quest horselv begin
	state start begin
		-- Funktion
		function next_horselv()
			local horselv = ({1, 11, 21})[pc.get_level() >= 45 and 3 or pc.get_level() >= 35 and 2 or pc.get_level() >= 5 and 1 or 0] or false
			if pc.get_horse_level() < horselv then
				return horselv
			end
			return false
		end
		function check_horseskilllevel()
			local skill_ids = {}
			for i = 138, 140 do
				if pc.get_skill_level(i) < 20 then
					table.insert(skill_ids, i)
				end
			end
			if table.getn(skill_ids) >= 1 then
				return skill_ids
			end
			return false
		end
		-- Quest
		when login with horselv.check_horseskilllevel() begin
			for _, tbl in pairs(horselv.check_horseskilllevel()) do
				pc.set_skill_level(tbl, 20)
			end
		end
		when login or levelup with horselv.next_horselv() then
			send_letter("Das Pferd")
		end
		when button or info with horselv.next_horselv() then
			say("Möchtest du das Level deines Pferdes auf "..horselv.next_horselv().." steigern?")
			if select("Ja", "Nein") == 2 then return end
			horse.set_level(horselv.next_horselv())
			local itemvnum = pc.get_horse_level() >= 21 and 50053 or pc.get_horse_level() >= 11 and 50052 or pc.get_horse_level() >= 1 and 50051 or false
			local removevnum = itemvnum == 50051 and false or itemvnum-1
			if itemvnum then
				pc.give_item2(itemvnum, 1)
				if removevnum then
					pc.remove_item(removevnum, 1)
				end
			end
		end
	end
end

quest horselv begin
	state start begin
		-- Funktion
		function next_horselv()
			local horselv = ({1, 11, 21})[pc.get_level() >= 45 and 3 or pc.get_level() >= 35 and 2 or pc.get_level() >= 5 and 1 or 0] or false
			if pc.get_horse_level() < horselv then
				return horselv
			end
			return false
		end
		function check_horseskilllevel()
			local skill_ids = {}
			for i = 138, 140 do
				if pc.get_skill_level(i) < 20 then
					table.insert(skill_ids, i)
				end
			end
			if table.getn(skill_ids) >= 1 then
				return skill_ids
			end
			return false
		end
		-- Quest
		when login with horselv.check_horseskilllevel() begin
			for _, tbl in pairs(horselv.check_horseskilllevel()) do
				pc.set_skill_level(tbl, 20)
			end
		end
		when login or levelup with horselv.next_horselv() begin
			send_letter("Das Pferd")
		end
		when button or info with horselv.next_horselv() begin
			say("Möchtest du das Level deines Pferdes auf "..horselv.next_horselv().." steigern?")
			if select("Ja", "Nein") == 2 then return end
			horse.set_level(horselv.next_horselv())
			local itemvnum = pc.get_horse_level() >= 21 and 50053 or pc.get_horse_level() >= 11 and 50052 or pc.get_horse_level() >= 1 and 50051 or false
			local removevnum = itemvnum == 50051 and false or itemvnum-1
			if itemvnum then
				pc.give_item2(itemvnum, 1)
				if removevnum then
					pc.remove_item(removevnum, 1)
				end
			end
		end
	end
end