Eingebaute questen gehen nicht

----------------------------------------------------
--Eine neue Quest 
--erstellt mit dem Biologen Quest Editor 
--Made by _DownTime from elitepvpers.com
----------------------------------------------------
quest Ketten Herstellung   begin
	state start begin
        when login or levelup with pc.get_level() >=29  begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20364)
			if v != 0 then
				target.vid("__TARGET__", v, "Quest")
			end
			send_letter("Ketten Herstellung ")
		end

		when button or info begin
			say_title("Ketten Herstellung ")
			say("")
			say("Bring mir bitte 30 Kriegsbeute.")
			say("")
		end

		when __TARGET__.target.click or
			20364.chat."Quest" begin
			target.delete("__TARGET__")
			say("Nakajima:")
			---                                                   l
			say("Hallo ich suche Kriegsbeute ,")
			say("ich brauche die Kriegsbeute")
			say("um meiner Tocher eine hüpsche ")
			say("Kette zu machen .")
			say("Kannst du mir bitte ")
			say("30 Kriegsbeute bringen .")
			say("")	
			set_state(go_to_disciple)
			pc.setqf("collect_count",0)
			pc.setqf("drink_drug",0) 
		end
	end

	state go_to_disciple begin
		when letter begin
			send_letter("Auftrag von Nakajima")

		end
		when button or info begin
			say_title("Quest")
			---                                                   l
			say("")
			say("Nakajima gab euch den Auftrag")
			say("30 Kriegsbeute zu sammeln!")
			say("Das Item bekommt ihr von Wilder General.")
			say("Viel Glueck!")
			say("")
			say_item_vnum(30092)
			say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
			say("")
		end

		when 71035.use begin --°g´bÃĤô
			if pc.getqf("drink_drug")==1 then
				say("")
				say("Bessere Droppchance!")
				say("")

				return
			end
			if pc.count_item(30092)==0 then
				say("")
				say("Du hast keine!")
				say("Lauf los und besorg mir welche!")
				say("")
				return
			end
			item.remove()	
			pc.setqf("drink_drug",1)
		end


		when 504.kill begin
			if pc.count_item(30092)<30-pc.getqf("collect_count") then
				pc.give_item2(30092, 1)
			end
		end

    	when 20364.chat."Quest" with pc.count_item(30092) >0   begin
				say("Einen Moment!")
				---                                                   l
				say("Ich werde das Item")
				say("schnell mal ueberpruefen.")
				say("Hoffentlich klappt alles!")
				say("")
				pc.remove_item(30092, 1)
				wait()

				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=17106
				else		
					pass_percent=17106
				end

				local s= number(1,100)
			if s<= pass_percent  then
			   if pc.getqf("collect_count")< 29 then     --5*Ó¥H¤U 
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)     --¨ú±o¤@* +1
						say("Nakajima:")
						say("Perfekt! Das Item ist in Ordnung")
						say("Du hast bis jetzt ".." "..30-pc.getqf("collect_count").. " abgegeben!")
						say("Bring mir die restlichen!")
						say("")
						pc.setqf("drink_drug",0)	 --ÃĤôªì©l¤Æ
						return
					end
					say("Nakajima:")
					say("Yuhu! Du hast mir")
					say("alles gebracht!")
					say("Dafür werde ich dich wie versprochen")
				    say("belohnen!")
					say("")
					say_reward("Du bekommst ein Ebenholzohrringe!")
					say_reward("Du bekommst ein Ebenholzarmband!")
					say_reward("Du bekommst ein Ebenholzhalskette!")
					say_reward("Du bekommst 5000000 Yang!")
					say_reward("Du bekommst 1000000 Erfahrung!")
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)
					clear_letter()
					set_state(__complete)

					pc.give_item2(17106)
					pc.give_item2(14106)
					pc.give_item2(16106)
					pc.change_money(5000000)
					pc.give_exp2(1000000)
					set_quest_state("levelup","run")


					return
				else								
				say("Nakajima:")
				say("Dieses Item ist von schlechter Qualität!")
				say("Es kann nicht verwendet werden.")
				say("Hole mir ein neues!")
				say("")
				pc.setqf("drink_drug",0)	 --ÃĤôªì©l¤Æ
				return
				end
	end
end


		
	state __complete begin
	end
end