[SERVICE] Die Questerstellung

quest sensemannkill begin 
	state start begin 
		when login or levelup with pc.get_level() >= 70 begin 
			set_state( killmonster ) 
		end 
	end 
	state killmonster begin 
		when letter begin 
			send_letter("Töte Sensemann!") 
			pc.setqf("state", 0) 
			q.set_counter("Verbleibend",1) 
		end 
		when info or button begin 
			say_title("Töte 1 Sensemann!") 
			say_reward( "Es fehlen noch ".." "..1 - pc.getqf("state").." Sensemann .") 
			say("") 
		end 
		when kill with npc.get_race()==1093 begin 
			local count = pc.getqf("state") + 1 
			if count > 0 then 
				pc.setqf("state", count) 
				q.set_counter("Verbleibend", (1 - count)) 
				if count == 1 then 
					say_title("Aufgabe abgeschlossen!") 
					say("1 Sensemann wurde vernichtet.") 
					say("Erhalte deine Belohnung:") 
					say_reward("1x King Rüstung")
					king = ({ 11971, 11972, 11973, 11974 })[pc.get_job()+1]
					pc.give_item2(king, 1) 
					set_state(__COMPLETE__)
				end 
			end 
		end 
	end 
	state __COMPLETE__ begin 
	end 
end

quest zombiekoening begin
	state start begin
		when 2591.click begin
			say_title("Zombiekönig")
			say("")
			say("Möchtest du hinein?")
			if select("Ja!","Nein!")==2 then return end
			pc.warp(8192*100, 7168*100)
		end
	end
end

quest sensemannkill begin 
	state start begin 
		when login or levelup with pc.get_level() >= 70 begin 
			set_state( killmonster ) 
		end 
	end 
	state killmonster begin 
		when letter begin 
			send_letter("Töte Sensemann!") 
			pc.setqf("state", 0) 
			q.set_counter("Verbleibend",1) 
		end 
		when info or button begin 
			say_title("Töte 1 Sensemann!") 
			say_reward( "Es fehlen noch ".." "..1 - pc.getqf("state").." Sensemann .") 
			say("") 
		end 
		when kill with npc.get_race()==1093 begin 
			local count = pc.getqf("state") + 1 
			if count > 0 then 
				pc.setqf("state", count) 
				q.set_counter("Verbleibend", (1 - count)) 
				if count == 1 then 
					say_title("Aufgabe abgeschlossen!") 
					say("1 Sensemann wurde vernichtet.") 
					say("Erhalte deine Belohnung:") 
					say_reward("1x King Rüstung")
					king = ({ 11971, 11972, 11973, 11974 })[pc.get_job()+1]
					pc.give_item2(king, 1) 
					set_state(__COMPLETE__)
				end 
			end 
		end 
	end 
	state __COMPLETE__ begin 
	end 
end

quest upp_npc begin
	state start begin
		when npcvnum.take begin -- NPC ID eintragen
			vnum = item.get_vnum()
			zulass = {14229, 0, 0, 0} -- Eintragen welche Items zugelassen sind.
			is_in = 0
			for i=1, table.getn(zulass), 1 do
				if vnum == zulass[i] then
					is_in = 1
					break
				end
			end
			if is_in == 0 then
				syschat("Dieses Item kannst du nicht 'weiteruppen'!")
				return
			end
			local vnum = item.get_vnum()
			local boni = {{item2.get_attr(0)}, {item2.get_attr(1)}, {item2.get_attr(2)}, {item2.get_attr(3)}, {item2.get_attr(4)}, {item2.get_attr(5)}, {item2.get_attr(6)}}
			local stones = {item.get_socket(0), item.get_socket(1), item.get_socket(2)}
			local name = { } -- leer lassen
			local newr ={ 
								[14229]={ 14509, 14529, 14549, 14569 },  -- Uppmöglichkeiten eintragen
								[0]={ 0, 0 },
								[0]={ 0, 0 },
								[0]={ 0, 0 } --Letzte Tabelle bekommt kein Komma, behalte diese Muster bei.
							}
			say_title(mob_name(npc.get_race())..":")
			say("")
			say("Such dir eine aus!")
			say("")
			for i=1, table.getn(newr[vnum]), 1 do
				table.insert(name, item_name(newr[vnum][i]))
			end
			table.insert(name, "Abbrechen")
			local a = select_table(name)
			if a == table.getn(name) then
				say_title(mob_name(npc.get_race())..":")
				say("")
				say("Okay, vielleicht ein anderes Mal!")
				say("")
				return
			end
			say_title(mob_name(npc.get_race())..":")
			say("")
			say(item_name(vnum).." wirklich zu ")
			say(name[a].." uppen?")
			say("")
			if select("Ja", "Nein")==2 then return end
			if pc.count_item(vnum) == 0 then
				say_title(mob_name(npc.get_race())..":")
				say("")
				say("Du besitzt keine "..item_name(vnum)..".")
				say("")
				return
			end
			say_title(mob_name(npc.get_race())..":")
			say("")
			say("Gut, da haste das Ding.")
			say("...")
			say("...")
			item.remove()
			pc2.give_or_drop_item_and_select(newr[vnum][a]) -- GIBT RÜSSI und selected sie
			for b = 1, table.getn(boni) do 
				if tonumber(boni[b][1]) > 0 then
					item2.set_attr(b-1, boni[b][1], boni[b][2]) -- setzt boni
				end
			end
			for c = 1, table.getn(stones) do
				if tonumber(stones[c]) > 0 then
					item.set_socket(c-1, stones[c]) -- setzt steine
				end
			end
		end
	end
end

item.get_attr_type(int index)
item.get_attr_value(int index)
item.set_attr(int ApplyType, int ApplyValue[, int index])