[SERVICE] Die Questerstellung

quest geon552 begin
	state start begin
		when letter begin
			local v = find_npc_by_vnum(20016)
			if v != 0 then
				target.vid("Target1", v, "Blacksmith")
			end
			send_letter("Go to Blacksmith!")
		end
		when button or info begin
			say_title(pc.get_name())
			say("")
			say("Go to Blacksmith!")
		end
		when Target1.target.click or 20016.chat."Go to Blacksmith!") begin
			target.delete("Target1")
			say_title(mob_name(npc.get_race()))
			say("")
			say("Go to old lady and bring her")
			say("2 x perfume")
			set_state(bringperfume)
		end
	end
	state bringperfume begin
		when letter begin
			local v = find_npc_by_vnum(9006)
			if v != 0 then
				target.vid("Target1", v, "old lady")
			end
			send_letter("Old lady's perfume!")
		end
		when button or info begin
			say_title(pc.get_name())
			say("")
			say("Bring 2x perfume to the old")
			say("lady!")
		end
		when Target1.target.click or 20016.chat."Your perfume!") begin
			target.delete("Target1")
			say_title(mob_name(npc.get_race()))
			say("")
			say("Thanks for the perfume.")
			say("byebye")
			set_state(complete)
		end
	end
	state complete begin
	end
end

quest gugul23 begin
	state start begin
		when login or levelup with pc.get_level()>=100 begin
			pc.setqf("pvp_kill_100", 0)
			set_state(infos)
		end
	end
	state infos begin
		when letter begin
			send_letter("Töte 100 Spieler!")
		end
		when button or info begin
			say_title(pc.get_name().."!")
			say("")
			say("Töte 100 Spieler und suche")
			say("dir dann von 4 Items, eines")
			say("davon als Belohnung aus.")
			say("")
			say("Fortschritt: "..pc.getqf("pvp_kill_100").." getötete Spieler")
		end
		when kill with npc.is_pc() begin
			if pc.get_empire() != npc.get_empire() then
				pc.setqf("pvp_kill_100", pc.getqf("pvp_kill_100")+1)
				if pc.getqf("pvp_kill_100")>=100 then
					set_state(reward)
				end
			end
		end
	end
	state reward begin
		when letter begin
			send_letter("100 Spieler erledigt!")
		end
		when button or info begin
			say_title(pc.get_name().."!")
			say("")
			say("Du hast es geschafft, nun gut")
			say("such dir ein Item aus.")
			say("")
			say("Du musst dich jetzt entscheiden!")
			items = {19, 29, 39, 49} -- Add Item ID here.
			s = select(item_name(items[1]), item_name(items[2]), item_name(items[3]), item_name(items[4]))
			pc.give_item2(items[s], 1)
			set_state(complete)
		end
	end
	state complete begin
	end
end

quest spawnmob begin
	state start begin
		when Truhe.use begin -- Truhen ID
			Monster = {101, 102, 101, 105, 106, 101, 101, 101}
			i = number(1, table.getn(Monster))
			mob.spawn(Monster[i], pc.get_local_x(), pc.get_local_y(), 0, 0)
			pc.remove_item(Truhe, 1) -- Truhen ID
		end
	end
end

quest spawnpoint begin
	state start begin
		when login with pc.getqf("First_Login")==0 begin
			pc.setqf("First_Login", 1)
			pc.warp(60000, 496400) -- Spinnendungeon Warpcode
		end
		when login with pc.getqf("First_Login")==1 begin
			pc.setqf("First_Login", 2)
			while pc.get_level() < 50 do
				pc.give_exp2(pc.get_next_exp())
			end
			say_title(pc.get_name().."!")
			say("Viel Spaß auf Servername.")
			say("")
			say("Dein Startlevel ist 50, das Endlevel ist 225")
			say("")
			say("Du musst auf dieser Map leveln")
			say("bis du das Level 80 erreicht hast,")
			say("erst dann kannst du hier raus, um in")
			say("dein Reich zu gehen.")
			-- Start EQ ab hier

		end
	end
end

quest daspferd begin
	state start begin
		function has_enough_item(item, count)
			if pc.count_item(item)>=count then
				return true
			else
				return false
			end
		end
		when 20349.chat."Das Pferd" begin
			say_title(mob_name(npc.get_race()))
			say("")
			say("Was für ein Pferd möchtest du haben?")
			say("Pferd - 10 Pferdemedaillen")
			say("Kampfgaul - 20 Pferdemedaillen")
			say("Millitärpferd - 30 Pferdemedaillen")
			s = (select("Pferd", "Kampfgaul", "Millitärpferd", "Keines.")*10)
			if s==40 then return end
			if horse.get_level()>(s-9) then syschat("Du besitzt schon ein "..({"Pferd.", "Kampfgaul.", "Millitärpferd."})[(s/10)]) return end
			if daspferd.has_enough_item(50050, s) then
				pc.remove_item(50050, s)
				pc.give_item2(({50051, 50052, 50053})[(s/10)], 1)
				horse.unride()
				horse.set_level((s-9))
				horse.ride()
			else
				say_title(mob_name(npc.get_race()))
				say("")
				say("Du besitzt keine "..s.." Pferdemedaillen, um")
				say("dir ein "..({"Pferd", "Kampfgaul", "Millitärpferd"})[(s/10)].." zu holen.")
				say("")
			end
		end
	end
end