[SERVICE] Die Questkontrolle

Page 825 of 845

825

07/07/2016 00:52 "Sh4Xx"#12361

Code:

			if s == 1 then
				pc.remove_item(70058, 1)
				pc.setqf("core_vip", 1)
				affect.add_collect(apply.ATT_SPEED,3,60*60*24*365*60)
				affect.add_collect(apply.ATT_BONUS_TO_MONSTER,5,60*60*24*365*60)
				affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60)
				affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60)
				affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60)


				else
				return
			end
		end
	end
end

Ganze quest geht nur die Belohnung , also Attribute werden nicht Verteilt hab ich da was Falsch eingeben? :o

07/07/2016 23:37 xXT4fuXx#12362

Spoiler

Wenn ich die Quest einf�ge taucht immer dieser Fehler auf

must start with 'quest'
itemshop2.quest:1:Error occured on compile itemshop2.quest

07/08/2016 08:57 andii#12363

Quote:

Originally Posted by ScarosHD

Spoiler

quest ingame_itemshop begin
state start begin

function select_from_big_table(big_table)
local max_per_page = 5
local count = table.getn(big_table)
local n = 1

while true do
local table_part = {}
local m = n + max_per_page - 1
local end_reached = false
if m >= count then
m = count
end_reached = true
end

for i = n, m do
table.insert(table_part, big_table[i])
end

if not end_reached then
table.insert(table_part, "Weiter")
end

table.insert(table_part, "Abbrechen")

local s = select_table(table_part)
local count_table_part = table.getn(table_part)

if s == count_table_part then -- Abbrechen
return nil
elseif s == count_table_part - 1 and not end_reached then -- Weiter
n = n + max_per_page
else
return n + s - 1
end
end

return nil
end

when 30122.chat."Itemshop" begin
local coin_vnum = HIER DIE VNUM VON DEM ITEM WELCHES DER INGAME-COIN SEIN SOLL
local categories = {"ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE" }
local shop = {
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
},
-- ITEM_KATEGORIE
{
{ITEM_VNUM, KOSTEN(in Coins)},
{ITEM_VNUM, KOSTEN(in Coins)}
}
}

local categorie = ingame_itemshop.select_from_big_table(categories)

if categorie == nil then
return
end

local item_select = {}

for i = 1, table.getn(shop[categorie]) do
table.insert(item_select, item_name(shop[categorie][i][1]) .. " (" .. shop[categorie][i][2] .. ")")
end

local item = ingame_itemshop.select_from_big_table(item_select)

if item == nil then
return
end

local item_obj = shop[categorie][item]
local item_vnum = item_obj[1]
local item_cost = item_obj[2]
local item_name = item_name(item_vnum)

say_title("Itemshop:")
say("M�chtest du")
say_item(item_name, item_vnum, "")
say("f�r " .. item_cost .. " Coins kaufen?")
say("")
if select("Kaufen", "Abbrechen") == 1 then
if pc.count_item(coin_vnum) >= item_cost then
pc.give_item2(item_vnum)
pc.remove_item(coin_vnum, item_cost)
say_title("Itemshop:")
say("Du hast " .. item_name .. " erfolgreich gekauft.")
say("")
else
say_title("Itemshop:")
say("Du besitzt nicht gen�gend Coins.")
say("")
end
end
end

when NPC.chat."IngameCoins bekommen" begin
local coin_vnum = HIER DIE VNUM VON DEM ITEM WELCHES DER INGAME-COIN SEIN SOLL
local factor = 1
local sql = mysql_query("SELECT coins FROM account.account WHERE id = "..pc.get_account_id())
if sql == "ERROR" then
say("Fehler beim Auslesen deiner Coins.")
say("")
return
end
local coins = sql.coins[1]
local allowed = math.floor(coins * factor)
local cost = allowed / factor
say_reward("Du besitzt momentan "..coins.." Coins.")
say("")
say("Davon kannst du dir "..allowed.." IG-Coins kaufen.")
say("")
say("")
say_reward("M�chtest du "..allowed.." IG-Coins f�r "..cost.." Coins kaufen?")
say("")
if select("Kaufen", "Abbrechen") == 1 then
mysql_query("UPDATE account.account SET coins = "..(coins-cost).." WHERE id = "..pc.get_account_id())
while allowed > 0 do
local packet = 200
if packet > allowed then
packet = allowed
end
allowed = allowed - packet
pc.give_item2(coin_vnum, packet)
end
end
end
end
end

Wenn ich die Quest einf�ge taucht immer dieser Fehler auf

must start with 'quest'
itemshop2.quest:1:Error occured on compile itemshop2.quest

Pr�f mal, ob du ein "end" zu viel bzw. zu wenig hast

07/09/2016 19:14 TommyH99#12364

Was stimmt da nicht dass der Stein nicht anklicken geht? Ja hab ihn bei Type auf 18...

Code:

quest regenbogen begin
    state start begin
            when 50512.use  begin
                
                say_title("Regenbogenstein:")
                say("Du m�chtest also deine Skills ")
                say("Perfektionieren?")
                
                if pc.job ==0 then
                say("W�hle deine Lehre aus")
                
                local s=select("K�rper","Mental")
                
                if s==1 then
                pc.set_skill_group(1)
                pc.set_skill_level(1 ,59)
                pc.set_skill_level(2 ,59)
                pc.set_skill_level(3 ,59)
                pc.set_skill_level(4 ,59)
                pc.set_skill_level(5 ,59)
                pc.set_skill_level(124 ,50)
                pc.set_skill_level(131 ,50)
                pc.set_skill_level(121 ,50)
                pc.set_skill_level(129 ,50)
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(137 ,20)
                pc.set_skill_level(138 ,20)
                pc.set_skill_level(139 ,20)
                pc.set_skill_level(140 ,20)
                pc.set_skill_level(125 ,59)
	            pc.set_skill_level(130 ,59)				
                say("Alle deine Skills sind nun Perfekt! Viel Spa�")
                end
                
                if s==2 then               
                pc.set_skill_group(2)
                pc.set_skill_level(16 ,59)
                pc.set_skill_level(17 ,59)
                pc.set_skill_level(18 ,59)
                pc.set_skill_level(19 ,59)
                pc.set_skill_level(20 ,59)
                pc.set_skill_level(124 ,50)
                pc.set_skill_level(131 ,50)
                pc.set_skill_level(121 ,50)
                pc.set_skill_level(129 ,50)
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(137 ,20)
                pc.set_skill_level(138 ,20)
                pc.set_skill_level(139 ,20)
                pc.set_skill_level(140 ,20)
                pc.set_skill_level(125 ,59)
	            pc.set_skill_level(130 ,59)				
                say("Alle deine Skills sind nun Perfekt! Viel Spa�")
                end
                
                elseif pc.job ==1 then
                say("W�hle deine Lehre aus")
                
                local s=select("Nahkampf","Fernkampf")
                
                if s==1 then               
                pc.set_skill_group(3)
                pc.set_skill_level(31 ,59)
                pc.set_skill_level(32 ,59)
                pc.set_skill_level(33 ,59)
                pc.set_skill_level(34 ,59)
                pc.set_skill_level(35 ,59)
                pc.set_skill_level(124 ,50)
                pc.set_skill_level(131 ,50)
                pc.set_skill_level(121 ,50)
                pc.set_skill_level(129 ,50)
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(137 ,20)
                pc.set_skill_level(138 ,20)
                pc.set_skill_level(139 ,20)
                pc.set_skill_level(140 ,20)
                pc.set_skill_level(125 ,59)
	            pc.set_skill_level(130 ,59)				
                say("Alle deine Skills sind nun Perfekt! Viel Spa�")
                end
                
                if s==2 then
                pc.set_skill_group(4)
                pc.set_skill_level(46 ,59)
                pc.set_skill_level(47 ,59)
                pc.set_skill_level(48 ,59)
                pc.set_skill_level(49 ,59)
                pc.set_skill_level(50 ,59)
                pc.set_skill_level(124 ,50)
                pc.set_skill_level(131 ,50)
                pc.set_skill_level(121 ,50)
                pc.set_skill_level(129 ,50)
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(137 ,20)
                pc.set_skill_level(138 ,20)
                pc.set_skill_level(139 ,20)
                pc.set_skill_level(140 ,20)
                pc.set_skill_level(125 ,59)
	            pc.set_skill_level(130 ,59)				
                say("Alle deine Skills sind nun Perfekt! Viel Spa�")
                end
                
                elseif pc.job ==2 then
                say("W�hle deine Lehre aus")
                local s=select("Magie","Waffe")
                
                if s==1 then
                pc.set_skill_group(5)
                pc.set_skill_level(76 ,59)
                pc.set_skill_level(77 ,59)
                pc.set_skill_level(78 ,59)
                pc.set_skill_level(79 ,59)
                pc.set_skill_level(80 ,59)
                pc.set_skill_level(81, 59)
                pc.set_skill_level(124 ,50)
                pc.set_skill_level(131 ,50)
                pc.set_skill_level(121 ,50)
                pc.set_skill_level(129 ,50)
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(137 ,20)
                pc.set_skill_level(138 ,20)
                pc.set_skill_level(139 ,20)
                pc.set_skill_level(140 ,20)
                pc.set_skill_level(125 ,59)
	            pc.set_skill_level(130 ,59)				
                say("Alle deine Skills sind nun Perfekt! Viel Spa�")
                end
                
                if s==2 then
                --Waffe
                pc.set_skill_group(6)
                pc.set_skill_level(61 ,59)
                pc.set_skill_level(62 ,59)
                pc.set_skill_level(63 ,59)
                pc.set_skill_level(64 ,59)
                pc.set_skill_level(65 ,59)
                pc.set_skill_level(66 ,59)
                pc.set_skill_level(124 ,50)
                pc.set_skill_level(131 ,50)
                pc.set_skill_level(121 ,50)
                pc.set_skill_level(129 ,50)
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(137 ,20)
                pc.set_skill_level(138 ,20)
                pc.set_skill_level(139 ,20)
                pc.set_skill_level(140 ,20)
                pc.set_skill_level(125 ,59)
	            pc.set_skill_level(130 ,59)				
                say("Alle deine Skills sind nun Perfekt! Viel Spa�")
                end
                
                elseif pc.job ==3 then
                say("W�hle deine Lehre aus")
                local s=select("Heilung","Drache")
                
                if s==1 then
                pc.set_skill_group(7)
                pc.set_skill_level(106 ,59)
                pc.set_skill_level(107 ,59)
                pc.set_skill_level(108 ,59)
                pc.set_skill_level(109 ,59)
                pc.set_skill_level(110 ,59)
                pc.set_skill_level(111 ,59)
                pc.set_skill_level(124 ,50)
                pc.set_skill_level(131 ,50)
                pc.set_skill_level(121 ,50)
                pc.set_skill_level(129 ,50)
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(137 ,20)
                pc.set_skill_level(138 ,20)
                pc.set_skill_level(139 ,20)
                pc.set_skill_level(140 ,20)
                pc.set_skill_level(125 ,59)
	            pc.set_skill_level(130 ,59)				
                say("Alle deine Skills sind nun Perfekt! Viel Spa�")
                end
                
                if s==2 then
                pc.set_skill_group(8)
                pc.set_skill_level(91 ,59)
                pc.set_skill_level(92 ,59)
                pc.set_skill_level(93 ,59)
                pc.set_skill_level(94 ,59)
                pc.set_skill_level(95 ,59)
                pc.set_skill_level(96 ,59)
                pc.set_skill_level(124 ,50)
                pc.set_skill_level(131 ,50)
                pc.set_skill_level(121 ,50)
                pc.set_skill_level(129 ,50)
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(137 ,20)
                pc.set_skill_level(138 ,20)
                pc.set_skill_level(139 ,20)
                pc.set_skill_level(140 ,20)
                pc.set_skill_level(125 ,59)
	            pc.set_skill_level(130 ,59)				
                say("Alle deine Skills sind nun Perfekt! Viel Spa�")
                end
            end
        end
    end
end

07/10/2016 18:12 Timau#12365

~Quest nimmt kein Ende~

Ich hab ein problem mit der Quest ... im Spioler... sie nimmt einfach kein Ende.
Sobald man eben die ganze Quest fertig hat wiederholt sie sich bei Orkzahn

was wiederum nicht sein soll... evtl wei� einer von euch das Problem.

Spoiler

Code:

quest biologen_quest begin 

	---------------------------------- 
	-- LvL 30 / Orkz�hne 
	---------------------------------- 
	state start begin 
		when login or levelup with pc.level>29 begin 
			set_state(talk_to_disciple_lv30) 
		end		
	end 
	state talk_to_disciple_lv30 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Die Forschung des Biologen") 
		end 
		when button or info begin 
			say_title("Die Forschung des Biologen") 
			say("") 
			say("Der Biologe ben�tigt deine Hilfe.") 
			say("Sprich mit ihm.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Orkz�hne" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("") 
			say("Oh, du hilfst mir?") 
			say("Gut ...") 
			say("Ich bin �brings der Biologe") 
			say("und studiere zahlreiches aus der Pflanzenwelt.") 
			say("Wenn du mir bei meinen Forschungen hilfst,") 
			say("werde ich dich reich belohnen.") 
			say("") 
			wait() 
			say("Biologe:") 
			say("Ich habe vor kurzem wieder angefangen ...") 
			say("Ich Forsche an einer Legende ...") 
			say("Doch habe ich derzeit viel zu tun,") 
			say("es w�hre also nett, wenn du mir hilfst ...") 
			say("") 
			wait() 
			say("Biologe:") 
			say("Ich ben�tige zehn Orkz�hne f�r meine Forschungen.") 
			say("Diese sind jedoch sehr zerbrechlich,") 
			say("es kann also sein, dass einige bei") 
			say("meinen Untersuchungen kaputt gehen.") 
			say("Ich ben�tige alle zehn,") 
			say("um meine Forschungen vollenden zu k�nnen.") 
			say("") 
			set_state(collect_orcteeth) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_orcteeth begin 
		when letter begin 
			send_letter("Die Forschung des Biologen") 
		end 
		when button or info begin 
			say_title("Orkz�hne") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("zehn Orkz�hne zu sammeln.") 
			say("Sammelt und bringt sie dem Biologen.") 
			say("") 
			say_item_vnum(30006)  
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."Orkz�hne" with pc.count_item(30006)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Zahn in Ordnung ist ...") 
				say("") 
				pc.remove_item("30006", 1) 
				pc.setqf("duration",get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend, dieser Zahn ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 10 St�ck gebracht...") 
						say("Nun bitte ich dich noch, mir den") 
						say("Jinunggyis Seelenstein zu bringen.") 
						say("Du bekommst ihn von Stolzen Orks ...")		
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_jinunggyis) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, aber der Zahn ist bei") 
					say("den Untersuchungen zerbrochen.") 
					say("Bitte hol mir einen neuen Orkzahn!") 
					say("") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir den Zahn sp�ter.") 
				say("") 
			end 
		end 
	end 
	state collect_jinunggyis begin 
		when letter begin 
			send_letter("Jinunggyis Seelenstein") 
		end 
		when button or info begin 
			say_title("Jinunggyis Seelenstein") 
			say("") 
			say("Ihr habt alle zehn Orkz�hne gesammelt.") 
			say("Nun m�sst ihr Jinunggyis Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30220) 
			say("Ob dieser Stein tats�chlich eine Seele enth�lt?") 
			say("") 
		end 
		when 635.kill or 636.kill or 637.kill begin 
			if pc.count_item(30220)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30220, 1) 
				end 
			end		
		end 
		when 20084.chat."Jinunggyis Seelenstein" begin 
			if pc.count_item(30220)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Jinunggyis Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30220,1) 
				set_state(jinunggyis_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 10 St�ck gebracht...") 
				say("Nun bitte ich dich noch, mir den") 
				say("Jinunggyis Seelenstein zu bringen.") 
				say("Du bekommst ihn von Stolzen Orks ...")		
				say("Ich denke, daf�r bist du stark genug.") 
				say("")			
			end 
		end 
	end		
	state jinunggyis_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say("Um die Belohnung des Biologen zu erhalten") 
			say("suche mit den Informationen der") 
			say("Orkz�hne und des Seelensteins Baek-Go auf.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) 
			set_state(collect_quest_lv40) 
		end 
	end 

	---------------------------------- 
	-- LvL 40 / Fluchsammlung 
	---------------------------------- 
	state collect_quest_lv40 begin 
		when login or levelup with pc.level>39 begin 
			set_state(talk_to_disciple_lv40) 
		end		
	end 
	state talk_to_disciple_lv40 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 2") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 2") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Fluchb�cher" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Orkz�hne") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte die Fluchb�cher untersuchen.") 
			say("Davon ben�tige ich 15 St�ck.") 
			say("Die B�cher sind jedoch ziemlich alt,") 
			say("manchmal zerfallen sie einfach!") 
			say("")																																							  
			set_state(collect_cursebook) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_cursebook begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 2") 
		end 
		when button or info begin 
			say_title("Fluchsammlungen") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("15 Fluchsammlungen zu besorgen.") 
			say("Diese kannst du bei den Dunklen- und") 
			say("Hohen Peinigern erbeuten.") 
			say("") 
			say_item_vnum(30047)  
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."Fluchsammlungen" with pc.count_item(30047)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Zahn in Ordnung ist ...") 
				say("") 
				pc.remove_item("30047", 1) 
				pc.setqf("duration",get_time()+1) 
				wait() 

				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend, diese Fluchsammlung ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 15 Sammlungen gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige den Tempelseelenstein,") 
						say("den du von Stolzen dunklen Fanatikern,") 
						say("K�mpfern, sowie Obersten erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0) 
						set_state(collect_templekey) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, die Fluchsammlung") 
					say("ist bei den Untersuchungen zerfallen.") 
					say("Bitte hol mir eine neue Fluchsammlung.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir die Fluchsammmlung sp�ter.") 
			end 
		end 
	end 
	state collect_templekey begin 
		when letter begin 
			send_letter("Tempelseelenstein") 
		end 
		when button or info begin 
			say_title("Tempelseelenstein") 
			say("") 
			say("Ihr habt alle 15 Fluchsammlungen abgegeben.") 
			say("Nun m�sst ihr den Tempelseelenstein erbeuten.") 
			say("") 
			say_item_vnum(30221) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("der Tempelanh�nger enth�lt?") 
			say("") 
		end 
		when 635.kill or 636.kill or 637.kill begin 
			if pc.count_item(30221)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30221, 1) 
				end 
			end		
		end 
		when 20084.chat."Tempelseelenstein" begin 
			if pc.count_item(30221)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um den Tempelseelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30221,1) 
				set_state(templekey_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 15 Sammlungen gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige den Tempelseelenstein,") 
				say("den du von Stolzen dunklen Fanatikern,") 
				say("K�mpfern, sowie Obersten erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")			
			end 
		end 
	end 
	state templekey_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Fluchsammlungen und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
			set_state(collect_quest_lv50) 
		end 
	end 

	---------------------------------- 
	-- LvL 50 / D�monenandenken 
	---------------------------------- 
	state collect_quest_lv50 begin 
		when login or levelup with pc.level>49 begin 
			set_state(talk_to_disciple_lv50) 
		end		
	end 
	state talk_to_disciple_lv50 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 3") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 3") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."D�monenandenken" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Fluchsammlungen") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte die D�monenandenken untersuchen.") 
			say("Davon ben�tige ich 15 St�ck.") 
			say("Diese sind jedoch ziemlich zerbrechlich,") 
			say("es kann also sein, dass einige bei") 
			say("meinen Untersuchungen kaputt gehen.") 
			say("")																																							  
			set_state(collect_deamonitem) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_deamonitem begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 3") 
		end 
		when button or info begin 
			say_title("D�monenandenken") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("15 D�monenandenken zu besorgen.") 
			say("Diese kannst du bei den Monstern im") 
			say("D�monenturm erbeuten.") 
			say("") 
			say_item_vnum(30015) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."D�monenandenken" with pc.count_item(30015)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Zahn in Ordnung ist ...") 
				say("") 
				pc.remove_item("30015", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("dieses D�monenandenken ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 15 Andenken gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige Sagyis Seelenstein,") 
						say("den du von den Monstern im D�monenturm,") 
						say("erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_sagyis) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, das Andenken") 
					say("ist bei den Untersuchungen zerbrochen.") 
					say("Bitte hol mir ein Neues.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir das Andenken sp�ter.") 
			end 
		end 
	end 
	state collect_sagyis begin 
		when letter begin 
			send_letter("Sagyis Seelenstein") 
		end 
		when button or info begin 
			say_title("Sagyis Seelenstein") 
			say("") 
			say("Ihr habt alle 15 D�monenandenken abgegeben.") 
			say("Nun m�sst ihr Sagyis Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30222) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("von Sagyis Adligen enth�lt?") 
			say("") 
		end 
		when 1031.kill or 1032.kill or 1033.kill or 1034.kill  begin 
			if pc.count_item(30222)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30222, 1) 
				end 
			end		
		end 
		when 20084.chat."Sagyis Seelenstein" begin 
			target.delete("__TARGET__") 
			if pc.count_item(30222)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Sagyis Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30222,1) 
				set_state(sagyis_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 15 Andenken gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige Sagyis Seelenstein,") 
				say("den du von den Monstern im D�monenturm,") 
				say("erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")		
			end 
		end 
	end 
	state sagyis_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("D�monenandenken und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Verteidigung +60 (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60) 
			set_state(collect_quest_lv60) 
		end 
	end 

	---------------------------------- 
	-- LvL 60 / Eiskugeln 
	---------------------------------- 
	state collect_quest_lv60 begin 
		when login or levelup with pc.level>59 begin 
			set_state(talk_to_disciple_lv60) 
		end		
	end 
	state talk_to_disciple_lv60 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 4") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 4") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Eiskugeln" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der D�monenandenken") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte die Eiskugeln untersuchen.") 
			say("Davon ben�tige ich 15 St�ck.") 
			say("Diese sind jedoch ziemlich zerbrechlich,") 
			say("es kann also sein, dass einige bei") 
			say("meinen Untersuchungen kaputt gehen.") 
			say("")																																							  
			set_state(collect_scoops) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_scoops begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 4") 
		end 
		when button or info begin 
			say_title("Eiskugeln") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("15 Eiskugeln zu besorgen.") 
			say("Diese kannst du bei den Eisgolems auf") 
			say("dem Berg Sohan erbeuten.") 
			say("") 
			say_item_vnum(30050) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."D�monenandenken" with pc.count_item(30050)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Zahn in Ordnung ist ...") 
				say("") 
				pc.remove_item("30050", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("diese Eiskugel ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 15 Eiskugeln gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige Aurtumryus Seelenstein,") 
						say("den du von den Eismonstern auf dem Berg Sohan,") 
						say("erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_aurtumryus) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, die Eiskugel") 
					say("ist bei den Untersuchungen zerbrochen.") 
					say("Bitte hol mir eine Neue.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir die Eiskugel sp�ter.") 
			end 
		end 
	end 
	state collect_aurtumryus begin 
		when letter begin 
			send_letter("Aurtumryus Seelenstein") 
		end 
		when button or info begin 
			say_title("Aurtumryus Seelenstein") 
			say("") 
			say("Ihr habt alle 15 Eiskugeln abgegeben.") 
			say("Nun m�sst ihr Aurtumryus Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30223) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("von Aurtumryus Adligen enth�lt?") 
			say("") 
		end 
		when 1101.kill or 1102.kill or 1103.kill or 1104.kill or 1105.kill or 1106.kill or 1107.kill begin 
			if pc.count_item(30223)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30223, 1) 
				end 
			end		
		end 
		when 20084.chat."Aurtumryus Seelenstein" begin 
			if pc.count_item(30223)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Aurtumryus Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30223,1) 
				set_state(aurtumryus_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 15 Eiskugeln gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige Aurtumryus Seelenstein,") 
				say("den du von den Eismonstern auf dem Berg Sohan,") 
				say("erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")				
			end 
		end 
	end 
	state aurtumryus_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Eiskugeln und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Angriffswert +50 (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60) 
			set_state(collect_quest_lv70) 
		end 
	end 

	---------------------------------- 
	-- LvL 70 / Zelkovas Holz�ste 
	---------------------------------- 
	state collect_quest_lv70 begin 
		when login or levelup with pc.level>69 begin 
			set_state(talk_to_disciple_lv70) 
		end		
	end 
	state talk_to_disciple_lv70 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 5") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 5") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Zelkovas Holz�ste" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Eiskugeln") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte Zelkovas Holz�ste untersuchen.") 
			say("Davon ben�tige ich 25 St�ck.") 
			say("Diese welken jedoch ziemlich schnell,") 
			say("es kann also sein, dass einige f�r") 
			say("meine Untersuchungen unbrauchbar sind.") 
			say("")																																							  
			set_state(collect_branches) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_branches begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 5") 
		end 
		when button or info begin 
			say_title("Zelkovas Holz�ste") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("25 von Zelkovas Holz�sten zu besorgen.") 
			say("Diese kannst du bei den Monstern") 
			say("im Geisterwald erbeuten.") 
			say("") 
			say_item_vnum(30165) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."Zelkovas Holz�ste" with pc.count_item(30165)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Holzast in Ordnung ist ...") 
				say("") 
				pc.remove_item("30165", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("dieser Holzast ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 25 Holz�ste gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige Gyimoks Seelenstein,") 
						say("den du ebenfalls von den Monstern") 
						say("im Geisterwald erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_gyimoks) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, der Holzast") 
					say("ist w�hrend des Transports verwelkt.") 
					say("Bitte hol mir einen Neuen.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir den Holzast sp�ter.") 
			end 
		end 
	end 
	state collect_gyimoks begin 
		when letter begin 
			send_letter("Gyimoks Seelenstein") 
		end 
		when button or info begin 
			say_title("Gyimoks Seelenstein") 
			say("") 
			say("Ihr habt alle 15 Eiskugeln abgegeben.") 
			say("Nun m�sst ihr Gyimoks Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30224) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("von Gyimoks Adligen enth�lt?") 
			say("") 
		end 
		when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or	
			 2312.kill or 2313.kill or 2314.kill or 2315.kill or 2306.kill or 2307.kill begin 
			if pc.count_item(30224)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30224, 1) 
				end 
			end		
		end 
		when 20084.chat."Gyimoks Seelenstein" begin 
			target.delete("__TARGET__") 
			if pc.count_item(30224)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Gyimoks Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30224,1) 
				set_state(gyimoks_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 25 Holz�ste gebracht.") 
				say("Nun...ich habe noch eine Bitte.") 
				say("Ich ben�tige Gyimoks Seelenstein,") 
				say("den du ebenfalls von den Monstern") 
				say("im Geisterwald erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")				
			end 
		end 
	end 
	state gyimoks_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Zelkova Holz�ste und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)") 
			say_reward("Schadensreduzierung +10% (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60) 
			affect.add_collect(apply.DEF_GRADE_BONUS,10,60*60*24*365*60) 
			set_state(collect_quest_lv80) 
		end 
	end 

	---------------------------------- 
	-- LvL 80 / Tugyis Tafeln 
	---------------------------------- 
	state collect_quest_lv80 begin 
		when login or levelup with pc.level>79 begin 
			set_state(talk_to_disciple_lv80) 
		end		
	end 
	state talk_to_disciple_lv80 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 6") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 6") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Tugyis Tafeln" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Zelkova Holz�ste") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte Tugyis Tafeln untersuchen.") 
			say("Davon ben�tige ich 30 St�ck.") 
			say("Diese sind jedoch ziemlich zerbrechlich,") 
			say("es kann also sein, dass einige bei") 
			say("meinen Untersuchungen kaputt gehen.") 
			say("")																																							  
			set_state(collect_plates) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_plates begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 6") 
		end 
		when button or info begin 
			say_title("Tugyis Tafeln") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("30 von Tugyis Tafeln zu besorgen.") 
			say("Diese kannst du bei den Monstern") 
			say("im Land der Riesen erbeuten.") 
			say("") 
			say_item_vnum(30166) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin 
			local rand = number(0,99) 
			if rand<5 then pc.give_item2(30166, 1) 
			end 
		end 
		when 20084.chat."Tugyis Tafeln" with pc.count_item(30165)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob diese Tafel in Ordnung ist ...") 
				say("") 
				pc.remove_item("30166", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("diese Tafel ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 30 Tafeln gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige Tugyis Seelenstein,") 
						say("den du ebenfalls von den Monstern") 
						say("im Land der Riesen erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_tugyis) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, die Tafel") 
					say("ist w�hrend der Untersuchung zerbrochen.") 
					say("Bitte hol mir eine Neue.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir die Tafel sp�ter.") 
			end 
		end 
	end 
	state collect_tugyis begin 
		when letter begin 
			send_letter("Tugyis Seelenstein") 
		end 
		when button or info begin 
			say_title("Tugyis Seelenstein") 
			say("") 
			say("Ihr habt alle 30 Tafeln abgegeben.") 
			say("Nun m�sst ihr Tugyis Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30225) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("von Tugyis Adligen enth�lt?") 
			say("") 
		end 
		when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin 
			if pc.count_item(30224)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30225, 1) 
				end 
			end		
		end 
		when 20084.chat."Tugyis Seelenstein" begin 
			if pc.count_item(30225)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Tugyis Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30225,1) 
				set_state(tugyis_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 30 Tafeln gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige Tugyis Seelenstein,") 
				say("den du ebenfalls von den Monstern") 
				say("im Land der Riesen erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")				
			end 
		end 
	end 
	state tugyis_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Tugyis Tafeln und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Schadenserhöhung +10% (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
			affect.add_collect_point(apply.POINT_ATT_BONUS,10,60*60*24*365*60) 
			set_state(collect_quest_lv90) 
		end 
	end 

	---------------------------------- 
	-- LvL 90 / Notiz der Anf�hrer 
	---------------------------------- 
	state collect_quest_lv90 begin 
		when login or levelup with pc.level>79 begin 
			set_state(talk_to_disciple_lv90) 
		end		
	end 
	state talk_to_disciple_lv90 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 7") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 7") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Notiz der Anf�hrer" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Tugyis Tafeln") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte Notizen der Anf�hrer untersuchen.") 
			say("Davon ben�tige ich 50 St�ck.") 
			say("Es kann jedoch sein, dass sich einige") 
			say("Notizen als alt und unlesbar herausstellen.") 
			say("")																																							  
			set_state(collect_notices) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_notices begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 7") 
		end 
		when button or info begin 
			say_title("Notiz der Anf�hrer") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("50 Notizen der Anf�hrer zu besorgen.") 
			say("Diese kannst du von den Bossen") 
			say("wie z.B. Oberork, Königsspinne,") 
			say("Neunschwanz, etc. erbeuten.") 
			say("") 
			say_item_vnum(30168) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or 
			1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or 
			5161.kill or 5162.kill or 5163.kill begin 
			local rand = number(0,99) 
			if rand<5 then pc.give_item2(30168, 1) 
			end 
		end 
		when 20084.chat."Notiz der Anf�hrer" with pc.count_item(30168)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob diese Notiz lesbar ist ...") 
				say("") 
				pc.remove_item("30168", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("diese Notiz ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 50 Notizen gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige den Seelenstein der Anf�hrer,") 
						say("den du ebenfalls von den Bossen") 
						say("erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_bossKey) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, die Notiz") 
					say("hat sich als unlesbar herausgestellt.") 
					say("Bitte hol mir eine Neue.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir die Notiz sp�ter.") 
			end 
		end 
	end 
	state collect_bossKey begin 
		when letter begin 
			send_letter("Seelenstein der Anf�hrer") 
		end 
		when button or info begin 
			say_title("Seelenstein der Anf�hrer") 
			say("") 
			say("Ihr habt alle 50 Notizen abgegeben.") 
			say("Nun m�sst ihr den Seelenstein der Anf�hrer") 
			say("erbeuten.") 
			say("") 
			say_item_vnum(30227) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("der Anf�hrer enth�lt?") 
			say("") 
		end 
		when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or 
			1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or 
			5161.kill or 5162.kill or 5163.kill begin 
			if pc.count_item(30227)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30227, 1) 
				end 
			end		
		end 
		when 20084.chat."Seelenstein der Anf�hrer" begin 
			if pc.count_item(30227)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um den Seelenstein der Anf�hrer.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30227,1) 
				set_state(bossKey_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 50 Notizen gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige den Seelenstein der Anf�hrer,") 
				say("den du ebenfalls von den Bossen") 
				say("erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")			
			end 
		end 
	end 
	state bossKey_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Notizen und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Schadensreduzierung +5% (Dauerhaft)") 
			say_reward("Angriffswert +50 (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.MOV_SPEED, 5, 60*60*24*365*60) 
			affect.add_collect(apply.ATT_SPEED, 5, 60*60*24*365*60) 
			affect.add_collect(apply.ATT_GRADE_BONUS,25,60*60*24*365*60) 
			affect.add_collect(apply.DEF_GRADE_BONUS,5,60*60*24*365*60) 
			set_state(collect_quest_lv100) 
		end 
	end 

	---------------------------------- 
	-- LvL 100 / Tofusteak 
	---------------------------------- 
	state collect_quest_lv100 begin 
		when login or levelup with pc.level>99 begin 
			set_state(talk_to_disciple_lv100) 
		end		
	end 
	state talk_to_disciple_lv100 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Auftrag des Biologen") 
		end 
		when button or info begin 
			say_title("Auftrag des Biologen") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Tofusteak" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Ich habe eine �berraschungsparty f�r") 
			say("die Gemischwarenh�ndlerin vor,") 
			say("da Sie demn�chst 30 Jahre alt wird.") 
			say("") 
			wait() 
			say("Biologe:") 
			say("f�r die G�ste fehlen mir noch 35 Tofusteaks.") 
			say("Tofusteaks bekommt man von Oger Berserker") 
			say("im Land der Riesen.") 
			say("") 
			wait() 
			say("Biologe:") 
			say("Bedenke jedoch, dass Tofusteaks") 
			say("nicht lange haltbar sind.") 
			say("Es kann also sein, dass sich einige") 
			say("bei meinen Untersuchungen als") 
			say("unbrauchbar herausstellen.") 
			say("Ich brauche unbedingt 35 St�ck,") 
			say("da auch 35 G�ste erscheinen werden.") 
			say("") 
			set_state(collect_tofu) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_tofu begin 
		when letter begin 
			send_letter("Auftrag des Biologen") 
		end 
		when button or info begin 
			say_title("Tofusteak") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("35 Tofusteaks zu besorgen.") 
			say("Diese kannst du von Oger Berserkern") 
			say("im Land der Riesen erbeuten.") 
			say("") 
			say_item_vnum(30068) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 1603.kill begin 
			local rand = number(0,99) 
			if rand<5 then pc.give_item2(30068, 1) 
			end 
		end 
		when 20084.chat."Tofusteak" with pc.count_item(30068)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob das Steak verzehrbar ist ...") 
				say("") 
				pc.remove_item("30068", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
						if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("dieses Steak ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Party steigen lassen kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 35 Tofusteaks gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige ein Rezept,") 
						say("um aus den Steaks eine saftige Mahlzeit") 
						say("zu bereiten.") 
						say("Mir ist zu Ohren gekommen, dass Tausendk�mpfer") 
						say("solche Mahlzeiten zubereiten.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_recipe) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, das Steak") 
					say("hat sich als unbrauchbar herausgestellt.") 
					say("Bitte hol mir ein Neues.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe das letzte") 
				say("Steak noch nicht verarbeitet ...") 
				say("Bitte bring mir das Steak sp�ter.") 
			end 
		end 
	end 
	state collect_recipe begin 
		when letter begin 
			send_letter("Rezept") 
		end 
		when button or info begin 
			say_title("Rezept") 
			say("") 
			say("Ihr habt alle 35 Tofusteaks abgegeben.") 
			say("Nun m�sst ihr das Rezept erbeuten.") 
			say("") 
			say_item_vnum(50903) 
		end 
		when 1403.kill begin 
			if pc.count_item(50903)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(50903, 1) 
				end 
			end		
		end 
		when 20084.chat."Rezept" begin 
			if pc.count_item(50903)>0 then 
				say("Biologe:") 
				say("Vielen Dank, nun kann ich die Mahlzeiten") 
				say("endlich zubereiten.") 
				say("Dank dir wird die �berraschungsparty steigen.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(50903,1) 
				set_state(recipe_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 35 Tofusteaks gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige ein Rezept,") 
				say("um aus den Steaks eine saftige Mahlzeit") 
				say("zu bereiten.") 
				say("Mir ist zu Ohren gekommen, dass Tausendk�mpfer") 
				say("solche Mahlzeiten zubereiten.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("") 
			end 
		end 
	end 
	state recipe_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("�berraschungsparty Baek-Go auf.") 
			say("Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Schadensreduzierung +5% (Dauerhaft)") 
			say_reward("MAX. HP +2000 (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.MAX_HP, 2000, 60*60*24*365*60) 
			complete_quest() 
		end
	end
end

07/10/2016 18:40 MaxChri#12366

Quote:

Originally Posted by Timau

Spoiler

Code:

quest biologen_quest begin 

	---------------------------------- 
	-- LvL 30 / Orkz�hne 
	---------------------------------- 
	state start begin 
		when login or levelup with pc.level>29 begin 
			set_state(talk_to_disciple_lv30) 
		end		
	end 
	state talk_to_disciple_lv30 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Die Forschung des Biologen") 
		end 
		when button or info begin 
			say_title("Die Forschung des Biologen") 
			say("") 
			say("Der Biologe ben�tigt deine Hilfe.") 
			say("Sprich mit ihm.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Orkz�hne" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("") 
			say("Oh, du hilfst mir?") 
			say("Gut ...") 
			say("Ich bin �brings der Biologe") 
			say("und studiere zahlreiches aus der Pflanzenwelt.") 
			say("Wenn du mir bei meinen Forschungen hilfst,") 
			say("werde ich dich reich belohnen.") 
			say("") 
			wait() 
			say("Biologe:") 
			say("Ich habe vor kurzem wieder angefangen ...") 
			say("Ich Forsche an einer Legende ...") 
			say("Doch habe ich derzeit viel zu tun,") 
			say("es w�hre also nett, wenn du mir hilfst ...") 
			say("") 
			wait() 
			say("Biologe:") 
			say("Ich ben�tige zehn Orkz�hne f�r meine Forschungen.") 
			say("Diese sind jedoch sehr zerbrechlich,") 
			say("es kann also sein, dass einige bei") 
			say("meinen Untersuchungen kaputt gehen.") 
			say("Ich ben�tige alle zehn,") 
			say("um meine Forschungen vollenden zu k�nnen.") 
			say("") 
			set_state(collect_orcteeth) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_orcteeth begin 
		when letter begin 
			send_letter("Die Forschung des Biologen") 
		end 
		when button or info begin 
			say_title("Orkz�hne") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("zehn Orkz�hne zu sammeln.") 
			say("Sammelt und bringt sie dem Biologen.") 
			say("") 
			say_item_vnum(30006)  
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."Orkz�hne" with pc.count_item(30006)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Zahn in Ordnung ist ...") 
				say("") 
				pc.remove_item("30006", 1) 
				pc.setqf("duration",get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend, dieser Zahn ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 10 St�ck gebracht...") 
						say("Nun bitte ich dich noch, mir den") 
						say("Jinunggyis Seelenstein zu bringen.") 
						say("Du bekommst ihn von Stolzen Orks ...")		
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_jinunggyis) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, aber der Zahn ist bei") 
					say("den Untersuchungen zerbrochen.") 
					say("Bitte hol mir einen neuen Orkzahn!") 
					say("") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir den Zahn sp�ter.") 
				say("") 
			end 
		end 
	end 
	state collect_jinunggyis begin 
		when letter begin 
			send_letter("Jinunggyis Seelenstein") 
		end 
		when button or info begin 
			say_title("Jinunggyis Seelenstein") 
			say("") 
			say("Ihr habt alle zehn Orkz�hne gesammelt.") 
			say("Nun m�sst ihr Jinunggyis Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30220) 
			say("Ob dieser Stein tats�chlich eine Seele enth�lt?") 
			say("") 
		end 
		when 635.kill or 636.kill or 637.kill begin 
			if pc.count_item(30220)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30220, 1) 
				end 
			end		
		end 
		when 20084.chat."Jinunggyis Seelenstein" begin 
			if pc.count_item(30220)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Jinunggyis Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30220,1) 
				set_state(jinunggyis_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 10 St�ck gebracht...") 
				say("Nun bitte ich dich noch, mir den") 
				say("Jinunggyis Seelenstein zu bringen.") 
				say("Du bekommst ihn von Stolzen Orks ...")		
				say("Ich denke, daf�r bist du stark genug.") 
				say("")			
			end 
		end 
	end		
	state jinunggyis_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say("Um die Belohnung des Biologen zu erhalten") 
			say("suche mit den Informationen der") 
			say("Orkz�hne und des Seelensteins Baek-Go auf.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) 
			set_state(collect_quest_lv40) 
		end 
	end 

	---------------------------------- 
	-- LvL 40 / Fluchsammlung 
	---------------------------------- 
	state collect_quest_lv40 begin 
		when login or levelup with pc.level>39 begin 
			set_state(talk_to_disciple_lv40) 
		end		
	end 
	state talk_to_disciple_lv40 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 2") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 2") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Fluchb�cher" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Orkz�hne") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte die Fluchb�cher untersuchen.") 
			say("Davon ben�tige ich 15 St�ck.") 
			say("Die B�cher sind jedoch ziemlich alt,") 
			say("manchmal zerfallen sie einfach!") 
			say("")																																							  
			set_state(collect_cursebook) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_cursebook begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 2") 
		end 
		when button or info begin 
			say_title("Fluchsammlungen") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("15 Fluchsammlungen zu besorgen.") 
			say("Diese kannst du bei den Dunklen- und") 
			say("Hohen Peinigern erbeuten.") 
			say("") 
			say_item_vnum(30047)  
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."Fluchsammlungen" with pc.count_item(30047)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Zahn in Ordnung ist ...") 
				say("") 
				pc.remove_item("30047", 1) 
				pc.setqf("duration",get_time()+1) 
				wait() 

				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend, diese Fluchsammlung ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 15 Sammlungen gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige den Tempelseelenstein,") 
						say("den du von Stolzen dunklen Fanatikern,") 
						say("K�mpfern, sowie Obersten erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0) 
						set_state(collect_templekey) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, die Fluchsammlung") 
					say("ist bei den Untersuchungen zerfallen.") 
					say("Bitte hol mir eine neue Fluchsammlung.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir die Fluchsammmlung sp�ter.") 
			end 
		end 
	end 
	state collect_templekey begin 
		when letter begin 
			send_letter("Tempelseelenstein") 
		end 
		when button or info begin 
			say_title("Tempelseelenstein") 
			say("") 
			say("Ihr habt alle 15 Fluchsammlungen abgegeben.") 
			say("Nun m�sst ihr den Tempelseelenstein erbeuten.") 
			say("") 
			say_item_vnum(30221) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("der Tempelanh�nger enth�lt?") 
			say("") 
		end 
		when 635.kill or 636.kill or 637.kill begin 
			if pc.count_item(30221)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30221, 1) 
				end 
			end		
		end 
		when 20084.chat."Tempelseelenstein" begin 
			if pc.count_item(30221)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um den Tempelseelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30221,1) 
				set_state(templekey_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 15 Sammlungen gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige den Tempelseelenstein,") 
				say("den du von Stolzen dunklen Fanatikern,") 
				say("K�mpfern, sowie Obersten erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")			
			end 
		end 
	end 
	state templekey_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Fluchsammlungen und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
			set_state(collect_quest_lv50) 
		end 
	end 

	---------------------------------- 
	-- LvL 50 / D�monenandenken 
	---------------------------------- 
	state collect_quest_lv50 begin 
		when login or levelup with pc.level>49 begin 
			set_state(talk_to_disciple_lv50) 
		end		
	end 
	state talk_to_disciple_lv50 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 3") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 3") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."D�monenandenken" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Fluchsammlungen") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte die D�monenandenken untersuchen.") 
			say("Davon ben�tige ich 15 St�ck.") 
			say("Diese sind jedoch ziemlich zerbrechlich,") 
			say("es kann also sein, dass einige bei") 
			say("meinen Untersuchungen kaputt gehen.") 
			say("")																																							  
			set_state(collect_deamonitem) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_deamonitem begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 3") 
		end 
		when button or info begin 
			say_title("D�monenandenken") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("15 D�monenandenken zu besorgen.") 
			say("Diese kannst du bei den Monstern im") 
			say("D�monenturm erbeuten.") 
			say("") 
			say_item_vnum(30015) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."D�monenandenken" with pc.count_item(30015)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Zahn in Ordnung ist ...") 
				say("") 
				pc.remove_item("30015", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("dieses D�monenandenken ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 15 Andenken gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige Sagyis Seelenstein,") 
						say("den du von den Monstern im D�monenturm,") 
						say("erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_sagyis) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, das Andenken") 
					say("ist bei den Untersuchungen zerbrochen.") 
					say("Bitte hol mir ein Neues.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir das Andenken sp�ter.") 
			end 
		end 
	end 
	state collect_sagyis begin 
		when letter begin 
			send_letter("Sagyis Seelenstein") 
		end 
		when button or info begin 
			say_title("Sagyis Seelenstein") 
			say("") 
			say("Ihr habt alle 15 D�monenandenken abgegeben.") 
			say("Nun m�sst ihr Sagyis Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30222) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("von Sagyis Adligen enth�lt?") 
			say("") 
		end 
		when 1031.kill or 1032.kill or 1033.kill or 1034.kill  begin 
			if pc.count_item(30222)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30222, 1) 
				end 
			end		
		end 
		when 20084.chat."Sagyis Seelenstein" begin 
			target.delete("__TARGET__") 
			if pc.count_item(30222)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Sagyis Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30222,1) 
				set_state(sagyis_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 15 Andenken gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige Sagyis Seelenstein,") 
				say("den du von den Monstern im D�monenturm,") 
				say("erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")		
			end 
		end 
	end 
	state sagyis_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("D�monenandenken und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Verteidigung +60 (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60) 
			set_state(collect_quest_lv60) 
		end 
	end 

	---------------------------------- 
	-- LvL 60 / Eiskugeln 
	---------------------------------- 
	state collect_quest_lv60 begin 
		when login or levelup with pc.level>59 begin 
			set_state(talk_to_disciple_lv60) 
		end		
	end 
	state talk_to_disciple_lv60 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 4") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 4") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Eiskugeln" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der D�monenandenken") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte die Eiskugeln untersuchen.") 
			say("Davon ben�tige ich 15 St�ck.") 
			say("Diese sind jedoch ziemlich zerbrechlich,") 
			say("es kann also sein, dass einige bei") 
			say("meinen Untersuchungen kaputt gehen.") 
			say("")																																							  
			set_state(collect_scoops) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_scoops begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 4") 
		end 
		when button or info begin 
			say_title("Eiskugeln") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("15 Eiskugeln zu besorgen.") 
			say("Diese kannst du bei den Eisgolems auf") 
			say("dem Berg Sohan erbeuten.") 
			say("") 
			say_item_vnum(30050) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."D�monenandenken" with pc.count_item(30050)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Zahn in Ordnung ist ...") 
				say("") 
				pc.remove_item("30050", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("diese Eiskugel ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 15 Eiskugeln gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige Aurtumryus Seelenstein,") 
						say("den du von den Eismonstern auf dem Berg Sohan,") 
						say("erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_aurtumryus) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, die Eiskugel") 
					say("ist bei den Untersuchungen zerbrochen.") 
					say("Bitte hol mir eine Neue.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir die Eiskugel sp�ter.") 
			end 
		end 
	end 
	state collect_aurtumryus begin 
		when letter begin 
			send_letter("Aurtumryus Seelenstein") 
		end 
		when button or info begin 
			say_title("Aurtumryus Seelenstein") 
			say("") 
			say("Ihr habt alle 15 Eiskugeln abgegeben.") 
			say("Nun m�sst ihr Aurtumryus Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30223) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("von Aurtumryus Adligen enth�lt?") 
			say("") 
		end 
		when 1101.kill or 1102.kill or 1103.kill or 1104.kill or 1105.kill or 1106.kill or 1107.kill begin 
			if pc.count_item(30223)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30223, 1) 
				end 
			end		
		end 
		when 20084.chat."Aurtumryus Seelenstein" begin 
			if pc.count_item(30223)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Aurtumryus Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30223,1) 
				set_state(aurtumryus_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 15 Eiskugeln gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige Aurtumryus Seelenstein,") 
				say("den du von den Eismonstern auf dem Berg Sohan,") 
				say("erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")				
			end 
		end 
	end 
	state aurtumryus_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Eiskugeln und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Angriffswert +50 (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60) 
			set_state(collect_quest_lv70) 
		end 
	end 

	---------------------------------- 
	-- LvL 70 / Zelkovas Holz�ste 
	---------------------------------- 
	state collect_quest_lv70 begin 
		when login or levelup with pc.level>69 begin 
			set_state(talk_to_disciple_lv70) 
		end		
	end 
	state talk_to_disciple_lv70 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 5") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 5") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Zelkovas Holz�ste" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Eiskugeln") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte Zelkovas Holz�ste untersuchen.") 
			say("Davon ben�tige ich 25 St�ck.") 
			say("Diese welken jedoch ziemlich schnell,") 
			say("es kann also sein, dass einige f�r") 
			say("meine Untersuchungen unbrauchbar sind.") 
			say("")																																							  
			set_state(collect_branches) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_branches begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 5") 
		end 
		when button or info begin 
			say_title("Zelkovas Holz�ste") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("25 von Zelkovas Holz�sten zu besorgen.") 
			say("Diese kannst du bei den Monstern") 
			say("im Geisterwald erbeuten.") 
			say("") 
			say_item_vnum(30165) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 20084.chat."Zelkovas Holz�ste" with pc.count_item(30165)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob dieser Holzast in Ordnung ist ...") 
				say("") 
				pc.remove_item("30165", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("dieser Holzast ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 25 Holz�ste gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige Gyimoks Seelenstein,") 
						say("den du ebenfalls von den Monstern") 
						say("im Geisterwald erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_gyimoks) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, der Holzast") 
					say("ist w�hrend des Transports verwelkt.") 
					say("Bitte hol mir einen Neuen.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir den Holzast sp�ter.") 
			end 
		end 
	end 
	state collect_gyimoks begin 
		when letter begin 
			send_letter("Gyimoks Seelenstein") 
		end 
		when button or info begin 
			say_title("Gyimoks Seelenstein") 
			say("") 
			say("Ihr habt alle 15 Eiskugeln abgegeben.") 
			say("Nun m�sst ihr Gyimoks Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30224) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("von Gyimoks Adligen enth�lt?") 
			say("") 
		end 
		when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or	
			 2312.kill or 2313.kill or 2314.kill or 2315.kill or 2306.kill or 2307.kill begin 
			if pc.count_item(30224)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30224, 1) 
				end 
			end		
		end 
		when 20084.chat."Gyimoks Seelenstein" begin 
			target.delete("__TARGET__") 
			if pc.count_item(30224)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Gyimoks Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30224,1) 
				set_state(gyimoks_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 25 Holz�ste gebracht.") 
				say("Nun...ich habe noch eine Bitte.") 
				say("Ich ben�tige Gyimoks Seelenstein,") 
				say("den du ebenfalls von den Monstern") 
				say("im Geisterwald erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")				
			end 
		end 
	end 
	state gyimoks_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Zelkova Holz�ste und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)") 
			say_reward("Schadensreduzierung +10% (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60) 
			affect.add_collect(apply.DEF_GRADE_BONUS,10,60*60*24*365*60) 
			set_state(collect_quest_lv80) 
		end 
	end 

	---------------------------------- 
	-- LvL 80 / Tugyis Tafeln 
	---------------------------------- 
	state collect_quest_lv80 begin 
		when login or levelup with pc.level>79 begin 
			set_state(talk_to_disciple_lv80) 
		end		
	end 
	state talk_to_disciple_lv80 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 6") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 6") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Tugyis Tafeln" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Zelkova Holz�ste") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte Tugyis Tafeln untersuchen.") 
			say("Davon ben�tige ich 30 St�ck.") 
			say("Diese sind jedoch ziemlich zerbrechlich,") 
			say("es kann also sein, dass einige bei") 
			say("meinen Untersuchungen kaputt gehen.") 
			say("")																																							  
			set_state(collect_plates) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_plates begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 6") 
		end 
		when button or info begin 
			say_title("Tugyis Tafeln") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("30 von Tugyis Tafeln zu besorgen.") 
			say("Diese kannst du bei den Monstern") 
			say("im Land der Riesen erbeuten.") 
			say("") 
			say_item_vnum(30166) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin 
			local rand = number(0,99) 
			if rand<5 then pc.give_item2(30166, 1) 
			end 
		end 
		when 20084.chat."Tugyis Tafeln" with pc.count_item(30165)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob diese Tafel in Ordnung ist ...") 
				say("") 
				pc.remove_item("30166", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("diese Tafel ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 30 Tafeln gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige Tugyis Seelenstein,") 
						say("den du ebenfalls von den Monstern") 
						say("im Land der Riesen erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_tugyis) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, die Tafel") 
					say("ist w�hrend der Untersuchung zerbrochen.") 
					say("Bitte hol mir eine Neue.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir die Tafel sp�ter.") 
			end 
		end 
	end 
	state collect_tugyis begin 
		when letter begin 
			send_letter("Tugyis Seelenstein") 
		end 
		when button or info begin 
			say_title("Tugyis Seelenstein") 
			say("") 
			say("Ihr habt alle 30 Tafeln abgegeben.") 
			say("Nun m�sst ihr Tugyis Seelenstein erbeuten.") 
			say("") 
			say_item_vnum(30225) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("von Tugyis Adligen enth�lt?") 
			say("") 
		end 
		when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin 
			if pc.count_item(30224)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30225, 1) 
				end 
			end		
		end 
		when 20084.chat."Tugyis Seelenstein" begin 
			if pc.count_item(30225)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um Tugyis Seelenstein.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30225,1) 
				set_state(tugyis_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 30 Tafeln gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige Tugyis Seelenstein,") 
				say("den du ebenfalls von den Monstern") 
				say("im Land der Riesen erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")				
			end 
		end 
	end 
	state tugyis_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Tugyis Tafeln und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Schadenserhöhung +10% (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
			affect.add_collect_point(apply.POINT_ATT_BONUS,10,60*60*24*365*60) 
			set_state(collect_quest_lv90) 
		end 
	end 

	---------------------------------- 
	-- LvL 90 / Notiz der Anf�hrer 
	---------------------------------- 
	state collect_quest_lv90 begin 
		when login or levelup with pc.level>79 begin 
			set_state(talk_to_disciple_lv90) 
		end		
	end 
	state talk_to_disciple_lv90 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Forschung des Biologen Nr. 7") 
		end 
		when button or info begin 
			say_title("Forschung des Biologen Nr. 7") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Notiz der Anf�hrer" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Die Untersuchung der Tugyis Tafeln") 
			say("habe ich abgeschlossen.") 
			say("Nun habe ich neue Objekte gefunden,") 
			say("die ich gerne untersuchen w�rde.") 
			wait() 
			say("Biologe:") 
			say("Ich w�rde sie ja selber sammeln,") 
			say("aber ich habe zuviel zu tun...") 
			say("Es w�re sehr nett, wenn du dies") 
			say("f�r mich erledigen k�nntest.") 
			wait() 
			say("Biologe:") 
			say("Ich m�chte Notizen der Anf�hrer untersuchen.") 
			say("Davon ben�tige ich 50 St�ck.") 
			say("Es kann jedoch sein, dass sich einige") 
			say("Notizen als alt und unlesbar herausstellen.") 
			say("")																																							  
			set_state(collect_notices) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_notices begin 
		when letter begin 
			send_letter("Forschung des Biologen Nr. 7") 
		end 
		when button or info begin 
			say_title("Notiz der Anf�hrer") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("50 Notizen der Anf�hrer zu besorgen.") 
			say("Diese kannst du von den Bossen") 
			say("wie z.B. Oberork, Königsspinne,") 
			say("Neunschwanz, etc. erbeuten.") 
			say("") 
			say_item_vnum(30168) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or 
			1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or 
			5161.kill or 5162.kill or 5163.kill begin 
			local rand = number(0,99) 
			if rand<5 then pc.give_item2(30168, 1) 
			end 
		end 
		when 20084.chat."Notiz der Anf�hrer" with pc.count_item(30168)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob diese Notiz lesbar ist ...") 
				say("") 
				pc.remove_item("30168", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
					if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("diese Notiz ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Forschungen abschlie�en kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 50 Notizen gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige den Seelenstein der Anf�hrer,") 
						say("den du ebenfalls von den Bossen") 
						say("erbeuten kannst.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_bossKey) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, die Notiz") 
					say("hat sich als unlesbar herausgestellt.") 
					say("Bitte hol mir eine Neue.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe die letzten") 
				say("Studien noch nicht beendet ...") 
				say("Bitte bring mir die Notiz sp�ter.") 
			end 
		end 
	end 
	state collect_bossKey begin 
		when letter begin 
			send_letter("Seelenstein der Anf�hrer") 
		end 
		when button or info begin 
			say_title("Seelenstein der Anf�hrer") 
			say("") 
			say("Ihr habt alle 50 Notizen abgegeben.") 
			say("Nun m�sst ihr den Seelenstein der Anf�hrer") 
			say("erbeuten.") 
			say("") 
			say_item_vnum(30227) 
			say("Ob dieser Stein tats�chlich Seelen") 
			say("der Anf�hrer enth�lt?") 
			say("") 
		end 
		when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or 
			1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or 
			5161.kill or 5162.kill or 5163.kill begin 
			if pc.count_item(30227)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(30227, 1) 
				end 
			end		
		end 
		when 20084.chat."Seelenstein der Anf�hrer" begin 
			if pc.count_item(30227)>0 then 
				say("Biologe:") 
				say("Dank deiner Hilfe verstehe ich nun") 
				say("die Legende um den Seelenstein der Anf�hrer.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(30227,1) 
				set_state(bossKey_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 50 Notizen gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige den Seelenstein der Anf�hrer,") 
				say("den du ebenfalls von den Bossen") 
				say("erbeuten kannst.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("")			
			end 
		end 
	end 
	state bossKey_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("Notizen und des Seelensteins") 
			say("Baek-Go auf. Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Schadensreduzierung +5% (Dauerhaft)") 
			say_reward("Angriffswert +50 (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.MOV_SPEED, 5, 60*60*24*365*60) 
			affect.add_collect(apply.ATT_SPEED, 5, 60*60*24*365*60) 
			affect.add_collect(apply.ATT_GRADE_BONUS,25,60*60*24*365*60) 
			affect.add_collect(apply.DEF_GRADE_BONUS,5,60*60*24*365*60) 
			set_state(collect_quest_lv100) 
		end 
	end 

	---------------------------------- 
	-- LvL 100 / Tofusteak 
	---------------------------------- 
	state collect_quest_lv100 begin 
		when login or levelup with pc.level>99 begin 
			set_state(talk_to_disciple_lv100) 
		end		
	end 
	state talk_to_disciple_lv100 begin 
		when letter begin 
			local v = find_npc_by_vnum(20084) 
			if v != 0 then target.vid("__TARGET__", v, "Biologe") 
			end 
			send_letter("Auftrag des Biologen") 
		end 
		when button or info begin 
			say_title("Auftrag des Biologen") 
			say("") 
			say("Der Biologe ben�tigt ein weiteres Mal Hilfe.") 
			say("Er meinte, er br�uchte Hilfe auf der Suche") 
			say("nach speziellen Gegenst�nden.") 
			say("Sprich mit ihm,") 
			say("um eine genauere Beschreibung zu erhalten.") 
			say("") 
			say_reward("Sprich mit dem Biologen") 
			say("") 
		end 
		when __TARGET__.target.click or 20084.chat."Tofusteak" begin 
			target.delete("__TARGET__") 
			say("Biologe:") 
			say("Gut, dass du gekommen bist...") 
			say("Ich habe eine �berraschungsparty f�r") 
			say("die Gemischwarenh�ndlerin vor,") 
			say("da Sie demn�chst 30 Jahre alt wird.") 
			say("") 
			wait() 
			say("Biologe:") 
			say("f�r die G�ste fehlen mir noch 35 Tofusteaks.") 
			say("Tofusteaks bekommt man von Oger Berserker") 
			say("im Land der Riesen.") 
			say("") 
			wait() 
			say("Biologe:") 
			say("Bedenke jedoch, dass Tofusteaks") 
			say("nicht lange haltbar sind.") 
			say("Es kann also sein, dass sich einige") 
			say("bei meinen Untersuchungen als") 
			say("unbrauchbar herausstellen.") 
			say("Ich brauche unbedingt 35 St�ck,") 
			say("da auch 35 G�ste erscheinen werden.") 
			say("") 
			set_state(collect_tofu) 
			pc.setqf("duration",0) 
			pc.setqf("collect_count",0) 
		end 
	end 
	state collect_tofu begin 
		when letter begin 
			send_letter("Auftrag des Biologen") 
		end 
		when button or info begin 
			say_title("Tofusteak") 
			say("") 
			say("Der Biologe gab euch den Auftrag,") 
			say("35 Tofusteaks zu besorgen.") 
			say("Diese kannst du von Oger Berserkern") 
			say("im Land der Riesen erbeuten.") 
			say("") 
			say_item_vnum(30068) 
			say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
			say("") 
		end 
		when 1603.kill begin 
			local rand = number(0,99) 
			if rand<5 then pc.give_item2(30068, 1) 
			end 
		end 
		when 20084.chat."Tofusteak" with pc.count_item(30068)>0 begin 
			if get_time()>pc.getqf("duration") then 
				say("Einen Moment ...") 
				say("Vielen Dank,") 
				say("lasst mich schnell �berpr�fen") 
				say("ob das Steak verzehrbar ist ...") 
				say("") 
				pc.remove_item("30068", 1) 
				pc.setqf("duration", get_time()+1) 
				wait() 
				local rand = number(0,99) 
				if rand<50 then 
					local count = pc.getqf("collect_count")+1 
						if count<1 then 
						pc.setqf("collect_count", count) 
						say("Biologe:") 
						say("Hervorragend,") 
						say("dieses Steak ist in Ordnung.") 
						say("Bringt mir noch welche, damit ich meine") 
						say("Party steigen lassen kann.") 
						say("") 
						say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
						say("") 
					else  
						say("Biologe:") 
						say("Du hast mir die 35 Tofusteaks gebracht.") 
						say("Nun, ich habe noch eine Bitte.") 
						say("Ich ben�tige ein Rezept,") 
						say("um aus den Steaks eine saftige Mahlzeit") 
						say("zu bereiten.") 
						say("Mir ist zu Ohren gekommen, dass Tausendk�mpfer") 
						say("solche Mahlzeiten zubereiten.") 
						say("Ich denke, daf�r bist du stark genug.") 
						say("") 
						pc.setqf("collect_count",0) 
						pc.setqf("duration",0)	
						set_state(collect_recipe) 
					end 
				else								 
					say("Biologe:") 
					say("Es tut mir leid, das Steak") 
					say("hat sich als unbrauchbar herausgestellt.") 
					say("Bitte hol mir ein Neues.") 
				end 
			else 
				say("Biologe:") 
				say("Entschuldige, ich habe das letzte") 
				say("Steak noch nicht verarbeitet ...") 
				say("Bitte bring mir das Steak sp�ter.") 
			end 
		end 
	end 
	state collect_recipe begin 
		when letter begin 
			send_letter("Rezept") 
		end 
		when button or info begin 
			say_title("Rezept") 
			say("") 
			say("Ihr habt alle 35 Tofusteaks abgegeben.") 
			say("Nun m�sst ihr das Rezept erbeuten.") 
			say("") 
			say_item_vnum(50903) 
		end 
		when 1403.kill begin 
			if pc.count_item(50903)<1 then 
				local rand = number(0,99) 
				if rand<5 then pc.give_item2(50903, 1) 
				end 
			end		
		end 
		when 20084.chat."Rezept" begin 
			if pc.count_item(50903)>0 then 
				say("Biologe:") 
				say("Vielen Dank, nun kann ich die Mahlzeiten") 
				say("endlich zubereiten.") 
				say("Dank dir wird die �berraschungsparty steigen.") 
				say("Du hast hart gek�mpft.") 
				say("Sprich mit Baek-Go, er wird dir helfen,") 
				say("deine inneren Kr�fte zu steigern.") 
				say("") 
				pc.remove_item(50903,1) 
				set_state(recipe_reward) 
			else 
				say("Biologe:") 
				say("Du hast mir die 35 Tofusteaks gebracht.") 
				say("Nun, ich habe noch eine Bitte.") 
				say("Ich ben�tige ein Rezept,") 
				say("um aus den Steaks eine saftige Mahlzeit") 
				say("zu bereiten.") 
				say("Mir ist zu Ohren gekommen, dass Tausendk�mpfer") 
				say("solche Mahlzeiten zubereiten.") 
				say("Ich denke, daf�r bist du stark genug.") 
				say("") 
			end 
		end 
	end 
	state recipe_reward begin 
		when letter begin 
			send_letter("Sprich mit Baek-Go") 
			local v = find_npc_by_vnum(20018) 
			if v != 0 then target.vid("__TARGET__", v, "Doktor") 
			end 
		end 
		when button or info begin 
			say_title("Sprich mit Baek-Go") 
			say("Um die Belohnung des Biologen zu erhalten,") 
			say("suche mit den Informationen der") 
			say("�berraschungsparty Baek-Go auf.") 
			say("Er befindet sich in der Stadt.") 
			say("") 
		end 
		when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
			target.delete("__TARGET__") 
			say_title("Baek-Go:") 
			say("Ich sehe ...") 
			say("Der Biologe hat dich zu mir geschickt.") 
			say("Hier ist deine Belohnung:") 
			say("") 
			say_reward("Du erh�lst:") 
			say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
			say_reward("Schadensreduzierung +5% (Dauerhaft)") 
			say_reward("MAX. HP +2000 (Dauerhaft)") 
			say("") 
			affect.add_collect(apply.MAX_HP, 2000, 60*60*24*365*60) 
			complete_quest() 
		end
	end
end

Du musst auch die Funktion, die von complete_quest() aufgerufen wird,
einbeziehen.

Code:

function __COMPLETE__ begin
end

07/11/2016 14:16 Chris9090909090#12367

quest Ochao begin
state start begin
when 20408.chat."xxxx" begin
say_title ("xxxx")
say ("xxxx?")
local a = select ("Ja", "Nein")
if a == 2 then
return
end
if a == 1 then
pc.warp(000000, 00000)
end
end
end
end

wie bekommt man da eine zeit rein bsi der mob npc verschwindet nach 60sek?

07/11/2016 19:33 xXT4fuXx#12368

#Erledigt

07/12/2016 16:55 IzeBreakzz#12369

Hey Com,

br�uchte dringend Hilfe bei einer Quest.

PHP Code:


			
quest craftingwindow begin
    state start begin
        function getSingleValueCount(t, s)
            local n, r = {}, {}
            table.foreach(t, function(i, p) n[p] = n[p] and n[p]+1 or 1 end)
            for key,value in pairs(n) do table.insert(r, {key, value}) end
            return r
        end
        when login begin
            cmdchat("CraftingSystem index/"..q.getcurrentquestindex())
        end
        when 16091.click begin
            cmdchat("CraftingSystem Open/weapon") 
        end
        
        when 16092.click begin
            cmdchat("CraftingSystem Open/armor") 
        end
        
        when 16093.click begin
            cmdchat("CraftingSystem Open/juwelery") 
        end
        
        when 16090.click begin
            cmdchat("CraftingSystem Open/legendary") 
        end
        
        when button begin
            cmdchat("getinputbegin")
            local INPUT = split(input(cmdchat("CraftingSystem input/")), "/")
            cmdchat("getinputend")
            if INPUT[2] =="-1,-1,-1,-1,-1,-1,-1,-1,-1" then cmdchat("CraftingSystem craftitem/0/0") return end
            local InWindow = split(INPUT[2], ",")
            local CRAFT = ""
            for i=1, table.getn(InWindow), 1 do
                if InWindow[i]!="-1" then
                    if item.select_cell(InWindow[i]) then
                        CRAFT = (i==1 and (item.get_vnum()!=0 and (item.get_vnum()..","..item.get_count()) or ("0,0")) or (CRAFT.."|"..(item.get_vnum()!=0 and (item.get_vnum()..","..item.get_count()) or ("0,0"))))
                    else
                        syschat("Da ist was falsch gelaufen...")
                        cmdchat("CraftingSystem craftitem/0/0")
                        return
                    end
                else
                    CRAFT = (i==1 and ("0,0") or CRAFT.."|0,0")
                end
            end
            -- Aufbau
            -- erste Reihe des Craftfeldes
            -- 0,0,0 (von oben nach unten)
            -- zweite Reihe des Craftfeldes
            -- 0,0,0 (von oben nach unten)
            -- dritte Reihe des Craftfeldes
            -- 0,0,0 (von oben nach unten)
            local CRAFTING_POSSIBILITIES = {
                                            ["3209,1|0,0|0,0|3209,1|0,0|0,0|0,0|0,0|0,0"] = {7479, 1} -- Chu�nqi Klinge-Rohling
                                            ["2379,1|0,0|0,0|2379,1|0,0|0,0|0,0|0,0|0,0"] = {7481, 1} -- Chu�nqi Bogen-Rohling
                                            ["5339,1|0,0|0,0|5339,1|0,0|0,0|0,0|0,0|0,0"] = {7483, 1} -- Chu�nqi Stab-Rohling
                                            ["1349,1|0,0|0,0|1349,1|0,0|0,0|0,0|0,0|0,0"] = {7485, 1} -- Chu�nqi Dolche-Rohling
                                            ["239,1|0,0|0,0|239,1|0,0|0,0|0,0|0,0|0,0"] = {7487, 1} -- Chu�nqi Schwert-Rohling
                                            ["7189,1|0,0|0,0|7189,1|0,0|0,0|0,0|0,0|0,0"] = {7489, 1} -- Chu�nqi F�cher-Rohling
                                            ["269,1|0,0|0,0|269,1|0,0|0,0|0,0|0,0|0,0"] = {7491, 1} -- Chu�nqi Magieschwert-Rohling
                                            ["7409,1|0,0|0,0|7409,1|0,0|0,0|0,0|0,0|0,0"] = {7480, 1} -- Kaiseraxt-Rohling
                                            ["7419,1|0,0|0,0|7419,1|0,0|0,0|0,0|0,0|0,0"] = {7482, 1} -- Kaiserbogen-Rohling
                                            ["7429,1|0,0|0,0|7429,1|0,0|0,0|0,0|0,0|0,0"] = {7484, 1} -- Kaiserstab-Rohling
                                            ["7439,1|0,0|0,0|7439,1|0,0|0,0|0,0|0,0|0,0"] = {7486, 1} -- Kaiserdolche-Rohling
                                            ["7449,1|0,0|0,0|7449,1|0,0|0,0|0,0|0,0|0,0"] = {7488, 1} -- Kaiserschwert-Rohling
                                            ["7459,1|0,0|0,0|7459,1|0,0|0,0|0,0|0,0|0,0"] = {7490, 1} -- Kaiserf�cher-Rohling
                                            ["7469,1|0,0|0,0|7469,1|0,0|0,0|0,0|0,0|0,0"] = {7492, 1} -- Kaisermagieschwert-Rohling
                                            ["42019,1|0,0|0,0|42019,1|0,0|0,0|0,0|0,0|0,0"] = {42050, 1} -- Chu�nqi-Panzer Rohling
                                            ["44019,1|0,0|0,0|44019,1|0,0|0,0|0,0|0,0|0,0"] = {44050, 1} -- Chu�nqi-Anzug Rohling
                                            ["46019,1|0,0|0,0|46019,1|0,0|0,0|0,0|0,0|0,0"] = {46050, 1} -- Chu�nqi-R�stung Rohling
                                            ["48019,1|0,0|0,0|48019,1|0,0|0,0|0,0|0,0|0,0"] = {48050, 1} -- Chu�nqi-Kleidung Rohling
                                            ["42069,1|0,0|0,0|42069,1|0,0|0,0|0,0|0,0|0,0"] = {42051, 1} -- Kaiser-Panzer Rohling
                                            ["44069,1|0,0|0,0|44069,1|0,0|0,0|0,0|0,0|0,0"] = {44051, 1} -- Kaiser-Anzug Rohling
                                            ["46069,1|0,0|0,0|46069,1|0,0|0,0|0,0|0,0|0,0"] = {46051, 1} -- Kaiser-R�stung Rohling
                                            ["48069,1|0,0|0,0|48069,1|0,0|0,0|0,0|0,0|0,0"] = {48051, 1} -- Kaiser-Kleidung Rohling
                                            ["13369,1|0,0|0,0|13369,1|0,0|0,0|0,0|0,0|0,0"] = {13606, 1} -- D�monenJ�gerhelm-Rohling
                                            ["13359,1|0,0|0,0|13359,1|0,0|0,0|0,0|0,0|0,0"] = {13701, 1} -- Jaktohelm-Rohling
                                            ["12909,1|0,0|0,0|12909,1|0,0|0,0|0,0|0,0|0,0"] = {13604, 1} -- Ritterhelm-Rohling
                                            ["12809,1|0,0|0,0|12809,1|0,0|0,0|0,0|0,0|0,0"] = {13602, 1} -- Himmelshelm-Rohling
                                            ["13219,1|0,0|0,0|13219,1|0,0|0,0|0,0|0,0|0,0"] = {13600, 1} -- D�monenk�nighelm-Rohling
                                            ["17119,1|0,0|0,0|17119,1|0,0|0,0|0,0|0,0|0,0"] = {13605, 1} -- Schwarzhelm-Rohling
                                            ["13139,1|0,0|0,0|13139,1|0,0|0,0|0,0|0,0|0,0"] = {13601, 1} -- Capterhelm-Rohling
                                            ["13909,1|0,0|0,0|13909,1|0,0|0,0|0,0|0,0|0,0"] = {13603, 1} -- J�gerhelm-Rohling
                                            ["13209,1|0,0|0,0|13209,1|0,0|0,0|0,0|0,0|0,0"] = {13607, 1} -- Halsblau-Rohling
                                            ["13309,1|0,0|0,0|13309,1|0,0|0,0|0,0|0,0|0,0"] = {13608, 1} -- Armbandblau-Rohling
                                            ["13339,1|0,0|0,0|13339,1|0,0|0,0|0,0|0,0|0,0"] = {13702, 1} -- Ohrringblau-Rohling
                                            ["14449,1|0,0|0,0|14449,1|0,0|0,0|0,0|0,0|0,0"] = {13704, 1} -- SchwarzLederschuhe-Rohling
                                            ["13319,1|0,0|0,0|13319,1|0,0|0,0|0,0|0,0|0,0"] = {13607, 1} -- Halsgr�n-Rohling
                                            ["13399,1|0,0|0,0|13399,1|0,0|0,0|0,0|0,0|0,0"] = {13700, 1} -- Armbandgr�n-Rohling
                                            ["12609,1|0,0|0,0|12609,1|0,0|0,0|0,0|0,0|0,0"] = {13703, 1} -- Ohrringgr�n-Rohling
                                            ["11199,1|0,0|0,0|11199,1|0,0|0,0|0,0|0,0|0,0"] = {13705, 1} -- Metallschuhe-Rohling
            }
            if INPUT[1]=="itemin" then
                if CRAFTING_POSSIBILITIES[CRAFT] then
                    cmdchat("CraftingSystem craftitem/"..CRAFTING_POSSIBILITIES[CRAFT][1].."/"..CRAFTING_POSSIBILITIES[CRAFT][2])
                else
                    cmdchat("CraftingSystem craftitem/0/0")
                end
            elseif INPUT[1]=="WRONG_WEARFLEG" then
                syschat("Das ist nicht der richtige Schmied um diesen Gegenstand zu verbessern") 
                return
            elseif INPUT[1]=="craftplease" then
                if CRAFTING_POSSIBILITIES[CRAFT] then
                    local InWindow, Cells = split(CRAFT, "|"), split(INPUT[2], ",")
                    for i=1, table.getn(InWindow), 1 do InWindow[i] = split(InWindow[i], ",")
                    end
                    for i=1, table.getn(InWindow), 1 do
                        if Cells[i]!="-1" and InWindow[i][1]!="0" and InWindow[i][2]!="0" then
                            if item.select_cell(tonumber(Cells[i])) then
                                if item.get_vnum()!=tonumber(InWindow[i][1]) or item.get_count()!=tonumber(InWindow[i][2]) then
                                    cmdchat("CraftingSystem craftitem/0/0")
                                    syschat("Da ist was falsch gelaufen...")
                                    return
                                end
                            else
                                cmdchat("CraftingSystem craftitem/0/0")
                                syschat("Da ist was falsch gelaufen...")
                                return
                            end
                        end
                    end
                    for i=1, table.getn(InWindow), 1 do
                        if Cells[i]!="-1" and InWindow[i][1]!="0" and InWindow[i][2]!="0" then
                            if item.select_cell(tonumber(Cells[i])) then
                                item.remove() 
                            else
                                cmdchat("CraftingSystem craftitem/0/0")
                                syschat("Wrong!")
                                return
                            end
                        end
                    end
                    pc.give_item2(CRAFTING_POSSIBILITIES[CRAFT][1], CRAFTING_POSSIBILITIES[CRAFT][2])
                    cmdchat("CraftingSystem itemclear/")
                else
                    cmdchat("CraftingSystem craftitem/0/0")
                end
            end
        end
    end
end

Bei der Quest soll man Items per craftingwindow hoch ziehen k�nnen. Wenn ich die Quest aber so einf�ge, zeigt er mir folgenden Fehler:

PHP Code:


			
craftingwindow.quest:141:syntax error : [string "start"]:22: `}' expected (to close `{' at line 20) near `['
Error occured on compile craftingwindow.quest

Zudem ist das Problem dass ich die sachen die eig. nur beim legendary typ geuppt werden sollen auch beim waffen schmied gehen.

W�re echt stark wenn mir jemand bei dem problem helfen k�nnte.

07/14/2016 11:09 IzeBreakzz#12370

Quote:

Originally Posted by IzeBreakzz

Hey Com,

br�uchte dringend Hilfe bei einer Quest.

PHP Code:

quest craftingwindow begin state start begin function getSingleValueCount(t, s) local n, r = {}, {} table.foreach(t, function(i, p) n[p] = n[p] and n[p]+1 or 1 end) for key,value in pairs(n) do table.insert(r, {key, value}) end return r end when login begin cmdchat("CraftingSystem index/"..q.getcurrentquestindex()) end when 16091.click begin cmdchat("CraftingSystem Open/weapon") end when 16092.click begin cmdchat("CraftingSystem Open/armor") end when 16093.click begin cmdchat("CraftingSystem Open/juwelery") end when 16090.click begin cmdchat("CraftingSystem Open/legendary") end when button begin cmdchat("getinputbegin") local INPUT = split(input(cmdchat("CraftingSystem input/")), "/") cmdchat("getinputend") if INPUT[2] =="-1,-1,-1,-1,-1,-1,-1,-1,-1" then cmdchat("CraftingSystem craftitem/0/0") return end local InWindow = split(INPUT[2], ",") local CRAFT = "" for i=1, table.getn(InWindow), 1 do if InWindow[i]!="-1" then if item.select_cell(InWindow[i]) then CRAFT = (i==1 and (item.get_vnum()!=0 and (item.get_vnum()..","..item.get_count()) or ("0,0")) or (CRAFT.."|"..(item.get_vnum()!=0 and (item.get_vnum()..","..item.get_count()) or ("0,0")))) else syschat("Da ist was falsch gelaufen...") cmdchat("CraftingSystem craftitem/0/0") return end else CRAFT = (i==1 and ("0,0") or CRAFT.."|0,0") end end -- Aufbau -- erste Reihe des Craftfeldes -- 0,0,0 (von oben nach unten) -- zweite Reihe des Craftfeldes -- 0,0,0 (von oben nach unten) -- dritte Reihe des Craftfeldes -- 0,0,0 (von oben nach unten) local CRAFTING_POSSIBILITIES = { ["3209,1|0,0|0,0|3209,1|0,0|0,0|0,0|0,0|0,0"] = {7479, 1} -- Chu�nqi Klinge-Rohling ["2379,1|0,0|0,0|2379,1|0,0|0,0|0,0|0,0|0,0"] = {7481, 1} -- Chu�nqi Bogen-Rohling ["5339,1|0,0|0,0|5339,1|0,0|0,0|0,0|0,0|0,0"] = {7483, 1} -- Chu�nqi Stab-Rohling ["1349,1|0,0|0,0|1349,1|0,0|0,0|0,0|0,0|0,0"] = {7485, 1} -- Chu�nqi Dolche-Rohling ["239,1|0,0|0,0|239,1|0,0|0,0|0,0|0,0|0,0"] = {7487, 1} -- Chu�nqi Schwert-Rohling ["7189,1|0,0|0,0|7189,1|0,0|0,0|0,0|0,0|0,0"] = {7489, 1} -- Chu�nqi F�cher-Rohling ["269,1|0,0|0,0|269,1|0,0|0,0|0,0|0,0|0,0"] = {7491, 1} -- Chu�nqi Magieschwert-Rohling ["7409,1|0,0|0,0|7409,1|0,0|0,0|0,0|0,0|0,0"] = {7480, 1} -- Kaiseraxt-Rohling ["7419,1|0,0|0,0|7419,1|0,0|0,0|0,0|0,0|0,0"] = {7482, 1} -- Kaiserbogen-Rohling ["7429,1|0,0|0,0|7429,1|0,0|0,0|0,0|0,0|0,0"] = {7484, 1} -- Kaiserstab-Rohling ["7439,1|0,0|0,0|7439,1|0,0|0,0|0,0|0,0|0,0"] = {7486, 1} -- Kaiserdolche-Rohling ["7449,1|0,0|0,0|7449,1|0,0|0,0|0,0|0,0|0,0"] = {7488, 1} -- Kaiserschwert-Rohling ["7459,1|0,0|0,0|7459,1|0,0|0,0|0,0|0,0|0,0"] = {7490, 1} -- Kaiserf�cher-Rohling ["7469,1|0,0|0,0|7469,1|0,0|0,0|0,0|0,0|0,0"] = {7492, 1} -- Kaisermagieschwert-Rohling ["42019,1|0,0|0,0|42019,1|0,0|0,0|0,0|0,0|0,0"] = {42050, 1} -- Chu�nqi-Panzer Rohling ["44019,1|0,0|0,0|44019,1|0,0|0,0|0,0|0,0|0,0"] = {44050, 1} -- Chu�nqi-Anzug Rohling ["46019,1|0,0|0,0|46019,1|0,0|0,0|0,0|0,0|0,0"] = {46050, 1} -- Chu�nqi-R�stung Rohling ["48019,1|0,0|0,0|48019,1|0,0|0,0|0,0|0,0|0,0"] = {48050, 1} -- Chu�nqi-Kleidung Rohling ["42069,1|0,0|0,0|42069,1|0,0|0,0|0,0|0,0|0,0"] = {42051, 1} -- Kaiser-Panzer Rohling ["44069,1|0,0|0,0|44069,1|0,0|0,0|0,0|0,0|0,0"] = {44051, 1} -- Kaiser-Anzug Rohling ["46069,1|0,0|0,0|46069,1|0,0|0,0|0,0|0,0|0,0"] = {46051, 1} -- Kaiser-R�stung Rohling ["48069,1|0,0|0,0|48069,1|0,0|0,0|0,0|0,0|0,0"] = {48051, 1} -- Kaiser-Kleidung Rohling ["13369,1|0,0|0,0|13369,1|0,0|0,0|0,0|0,0|0,0"] = {13606, 1} -- D�monenJ�gerhelm-Rohling ["13359,1|0,0|0,0|13359,1|0,0|0,0|0,0|0,0|0,0"] = {13701, 1} -- Jaktohelm-Rohling ["12909,1|0,0|0,0|12909,1|0,0|0,0|0,0|0,0|0,0"] = {13604, 1} -- Ritterhelm-Rohling ["12809,1|0,0|0,0|12809,1|0,0|0,0|0,0|0,0|0,0"] = {13602, 1} -- Himmelshelm-Rohling ["13219,1|0,0|0,0|13219,1|0,0|0,0|0,0|0,0|0,0"] = {13600, 1} -- D�monenk�nighelm-Rohling ["17119,1|0,0|0,0|17119,1|0,0|0,0|0,0|0,0|0,0"] = {13605, 1} -- Schwarzhelm-Rohling ["13139,1|0,0|0,0|13139,1|0,0|0,0|0,0|0,0|0,0"] = {13601, 1} -- Capterhelm-Rohling ["13909,1|0,0|0,0|13909,1|0,0|0,0|0,0|0,0|0,0"] = {13603, 1} -- J�gerhelm-Rohling ["13209,1|0,0|0,0|13209,1|0,0|0,0|0,0|0,0|0,0"] = {13607, 1} -- Halsblau-Rohling ["13309,1|0,0|0,0|13309,1|0,0|0,0|0,0|0,0|0,0"] = {13608, 1} -- Armbandblau-Rohling ["13339,1|0,0|0,0|13339,1|0,0|0,0|0,0|0,0|0,0"] = {13702, 1} -- Ohrringblau-Rohling ["14449,1|0,0|0,0|14449,1|0,0|0,0|0,0|0,0|0,0"] = {13704, 1} -- SchwarzLederschuhe-Rohling ["13319,1|0,0|0,0|13319,1|0,0|0,0|0,0|0,0|0,0"] = {13607, 1} -- Halsgr�n-Rohling ["13399,1|0,0|0,0|13399,1|0,0|0,0|0,0|0,0|0,0"] = {13700, 1} -- Armbandgr�n-Rohling ["12609,1|0,0|0,0|12609,1|0,0|0,0|0,0|0,0|0,0"] = {13703, 1} -- Ohrringgr�n-Rohling ["11199,1|0,0|0,0|11199,1|0,0|0,0|0,0|0,0|0,0"] = {13705, 1} -- Metallschuhe-Rohling } if INPUT[1]=="itemin" then if CRAFTING_POSSIBILITIES[CRAFT] then cmdchat("CraftingSystem craftitem/"..CRAFTING_POSSIBILITIES[CRAFT][1].."/"..CRAFTING_POSSIBILITIES[CRAFT][2]) else cmdchat("CraftingSystem craftitem/0/0") end elseif INPUT[1]=="WRONG_WEARFLEG" then syschat("Das ist nicht der richtige Schmied um diesen Gegenstand zu verbessern") return elseif INPUT[1]=="craftplease" then if CRAFTING_POSSIBILITIES[CRAFT] then local InWindow, Cells = split(CRAFT, "|"), split(INPUT[2], ",") for i=1, table.getn(InWindow), 1 do InWindow[i] = split(InWindow[i], ",") end for i=1, table.getn(InWindow), 1 do if Cells[i]!="-1" and InWindow[i][1]!="0" and InWindow[i][2]!="0" then if item.select_cell(tonumber(Cells[i])) then if item.get_vnum()!=tonumber(InWindow[i][1]) or item.get_count()!=tonumber(InWindow[i][2]) then cmdchat("CraftingSystem craftitem/0/0") syschat("Da ist was falsch gelaufen...") return end else cmdchat("CraftingSystem craftitem/0/0") syschat("Da ist was falsch gelaufen...") return end end end for i=1, table.getn(InWindow), 1 do if Cells[i]!="-1" and InWindow[i][1]!="0" and InWindow[i][2]!="0" then if item.select_cell(tonumber(Cells[i])) then item.remove() else cmdchat("CraftingSystem craftitem/0/0") syschat("Wrong!") return end end end pc.give_item2(CRAFTING_POSSIBILITIES[CRAFT][1], CRAFTING_POSSIBILITIES[CRAFT][2]) cmdchat("CraftingSystem itemclear/") else cmdchat("CraftingSystem craftitem/0/0") end end end end end

Bei der Quest soll man Items per craftingwindow hoch ziehen k�nnen. Wenn ich die Quest aber so einf�ge, zeigt er mir folgenden Fehler:

PHP Code:

craftingwindow.quest:141:syntax error : [string "start"]:22: `}' expected (to close `{' at line 20) near `[' Error occured on compile craftingwindow.quest

Zudem ist das Problem dass ich die sachen die eig. nur beim legendary typ geuppt werden sollen auch beim waffen schmied gehen.

W�re echt stark wenn mir jemand bei dem problem helfen k�nnte.

Brauche wirklich dringend Hilfe. Keiner eine Idee?

07/14/2016 13:45 new Account("Undercover")#12371

Quote:

Originally Posted by IzeBreakzz

Brauche wirklich dringend Hilfe. Keiner eine Idee?

Nach jedem Eintrag im Table "CRAFTING_POSSIBILITIES" muss ein Komma

07/15/2016 13:42 IzeBreakzz#12372

Quote:

Originally Posted by new Account("Undercover")

Nach jedem Eintrag im Table "CRAFTING_POSSIBILITIES" muss ein Komma

Habe ich schon probiert. Dann geht zwar die Quest. Aber ingame passiert nichts wenn ich die Items in das Craftingfenster ziehe.

07/17/2016 13:22 .DarthNeno#12373

Wollte eben die Quest einf�gen

Spoiler

PHP Code:


			
quest warpring begin

    state start begin

        when 70058.use begin

            local warp = {--koord Pflicht, rest optional!

                {--Map1

                    name = "Map 1",

                    {--Rotes Reich

                        name = "Rotes Reich",

                        koord = {965784, 275242},

                        minlevel = 1,

                        },

                        goldneed = 1000

                    },

                    {--Gelbes Reich

                        name = "Gelbes Reich",

                        koord = {965784, 275242},

                        minlevel = 1,

                        },

                        goldneed = 1000

                    },

                    {--Blaues Reich

                        name = "Blaues Reich",

                        koord = {965784, 275242},

                        minlevel = 1,

                        },

                        goldneed = 1000

                    },

                },

                {--Levelmaps

                    name = "Levelmaps",

                    {--Spinnendungeon

                        name = "Spinnendungeon",

                        koord = {600, 4970},

                        minlevel = 60,

                        },

                        goldneed = 100000

                    },

                    {--Spinnendungeon 2

                        name = "Spinnendungeon 2",

                        koord = {6656, 4352},

                        minlevel = 80,

                        },

                        goldneed = 200000

                    },

                    {--Grotte

                        name = "Grotte",

                        koord = {1536, 12032},

                        minlevel = 100,

                        },

                        goldneed = 300000

                    },

                    {--Donnerberge

                        name = "Donenrberge",

                        koord = {11345, 16546},

                        minlevel = 120,

                        },

                        goldneed = 400000

                    },

                    {--Nephritbucht

                        name = "Nephritbucht",

                        koord = {10869, 16558},

                        minlevel = 140,

                        },

                        goldneed = 500000

                    },

                    {--Gautamakliff

                        name = "Gautamakliff",

                        koord = {12263, 16811},

                        minlevel = 160,

                        },

                        goldneed = 7500000

                    },

                    {--Kap

                        name = "Kap",

                        koord = {11043, 17885},

                        minlevel = 180,

                        },

                        goldneed = 10000000

                    },

                },

            }

            warpring.showwarps(warp)

        end

        function warp(tbl)

            local level = pc.get_level()

            if tbl.minlevel and level < tbl.minlevel then

                say("Dein Level ist zu niedrig, um diese Map zu betreten.")

                say("Minimal Level: "..tbl.minlevel)

                select("Abbrechen")

                return

            elseif tbl.maxlevel  and level > tbl.maxlevel then

                say("Dein Level ist zu hoch, um diese Map zu betreten.")

                say("Maximal Level: "..tbl.maxlevel)

                select("Abbrechen")

                return

            end

            while not pc.can_warp() do

                say("Du kannst dich noch nicht teleportieren, da du in")

                say("den letzten 10 Sekunden gehandelt hast.")

                if select("Erneut versuchen", "Abbrechen") == 2 then return end

            end

            local warpneedstrings = warpring.get_warpneedstrings(tbl)

            if table.getn(warpneedstrings) > 0 then

                say("Um diese Map zu betreten ben�tigst du folgende")

                say("Dinge:")

                for _,v in ipairs(warpneedstrings) do

                    say(v)

                end

                say("")

                say("M�chtest du trotzdem fortfahren?")

                if select("Teleportieren", "Abbrechen") == 2 then return end

            end

            if not warpring.check_and_remove_warpneeds(tbl) then

                say("Dir fehlt mindestens eins der ben�tigten Dinge.")

                select("Abbrechen")

                return

            end

            pc.warp(tbl.koord[1], tbl.koord[2])

        end

        function get_warpneedstrings(tbl)

            local warpneeds = {}

            if tbl.itemneed and table.getn(tbl.itemneed) > 0 then

                for _,v in ipairs(tbl.itemneed) do

                    table.insert(warpneeds, "- "..v[2].."x "..item_name(v[1]))

                end

            end

            if tbl.goldneed and tbl.goldneed > 0 then

                table.insert(warpneeds, "- "..tbl.goldneed.." Yang")

            end

            return warpneeds

        end

        function check_warpneeds(tbl)

            if tbl.itemneed and table.getn(tbl.itemneed) > 0 then

                for _,v in ipairs(tbl.itemneed) do

                    if pc.count_item(v[1]) < v[2] then

                        return false

                    end

                end

            end

            if tbl.goldneed and tbl.goldneed > 0 then

                if pc.get_gold() < tbl.goldneed then

                    return false

                end

            end

            return true

        end

        function remove_warpneeds(tbl)

            if tbl.itemneed and table.getn(tbl.itemneed) > 0 then

                for _,v in ipairs(tbl.itemneed) do

                    pc.remove_item(v[1], v[2])

                end

            end

            if tbl.goldneed and tbl.goldneed > 0 then

                pc.change_gold(-tbl.goldneed)

            end

        end

        function check_and_remove_warpneeds(tbl)

            if not warpring.check_warpneeds(tbl) then

                return false

            end

            warpring.remove_warpneeds(tbl)

            return true

        end

        function get_warpnames(tbl)

            local level = pc.get_level()

            local names = {}

            for _,v in ipairs(tbl) do

                if v.minlevel and level < v.minlevel then

                    v.name = v.name.." (ab Lv. "..v.minlevel..")"

                elseif v.maxlevel  and level > v.maxlevel then

                    v.name = v.name.." (bis Lv. "..v.maxlevel..")"

                end

                table.insert(names, v.name)

            end

            return names

        end

        function showwarps(tbl)

            local warpnames = warpring.get_warpnames(tbl)

            local s = tbl[select3(warpnames)] or false

            if not s then return end

            if s.koord then

                warpring.warp(s)

                return

            end

            warpring.showwarps(s)

        end

    end

end

Dann kommt aber dieser Fehler:

warpring.quest:86:syntax error : [string "start"]:26: unexpected symbol near `='
Abort trap (core dumped)

07/17/2016 17:31 .Delta#12374

Deine } Setzung schaut komisch aus, die w�rde ich an deiner Stelle mal �berarbeiten ;)

f�r mich hast du zuviele schlie�ende Klammern drin.

Quote:

Originally Posted by .DarthNeno

Wollte eben die Quest einf�gen

Spoiler

PHP Code:

quest warpring begin state start begin when 70058.use begin local warp = {--koord Pflicht, rest optional! {--Map1 name = "Map 1", {--Rotes Reich name = "Rotes Reich", koord = {965784, 275242}, minlevel = 1, }, goldneed = 1000 }, {--Gelbes Reich name = "Gelbes Reich", koord = {965784, 275242}, minlevel = 1, }, goldneed = 1000 }, {--Blaues Reich name = "Blaues Reich", koord = {965784, 275242}, minlevel = 1, }, goldneed = 1000 }, }, {--Levelmaps name = "Levelmaps", {--Spinnendungeon name = "Spinnendungeon", koord = {600, 4970}, minlevel = 60, }, goldneed = 100000 }, {--Spinnendungeon 2 name = "Spinnendungeon 2", koord = {6656, 4352}, minlevel = 80, }, goldneed = 200000 }, {--Grotte name = "Grotte", koord = {1536, 12032}, minlevel = 100, }, goldneed = 300000 }, {--Donnerberge name = "Donenrberge", koord = {11345, 16546}, minlevel = 120, }, goldneed = 400000 }, {--Nephritbucht name = "Nephritbucht", koord = {10869, 16558}, minlevel = 140, }, goldneed = 500000 }, {--Gautamakliff name = "Gautamakliff", koord = {12263, 16811}, minlevel = 160, }, goldneed = 7500000 }, {--Kap name = "Kap", koord = {11043, 17885}, minlevel = 180, }, goldneed = 10000000 }, }, } warpring.showwarps(warp) end function warp(tbl) local level = pc.get_level() if tbl.minlevel and level < tbl.minlevel then say("Dein Level ist zu niedrig, um diese Map zu betreten.") say("Minimal Level: "..tbl.minlevel) select("Abbrechen") return elseif tbl.maxlevel and level > tbl.maxlevel then say("Dein Level ist zu hoch, um diese Map zu betreten.") say("Maximal Level: "..tbl.maxlevel) select("Abbrechen") return end while not pc.can_warp() do say("Du kannst dich noch nicht teleportieren, da du in") say("den letzten 10 Sekunden gehandelt hast.") if select("Erneut versuchen", "Abbrechen") == 2 then return end end local warpneedstrings = warpring.get_warpneedstrings(tbl) if table.getn(warpneedstrings) > 0 then say("Um diese Map zu betreten ben�tigst du folgende") say("Dinge:") for _,v in ipairs(warpneedstrings) do say(v) end say("") say("M�chtest du trotzdem fortfahren?") if select("Teleportieren", "Abbrechen") == 2 then return end end if not warpring.check_and_remove_warpneeds(tbl) then say("Dir fehlt mindestens eins der ben�tigten Dinge.") select("Abbrechen") return end pc.warp(tbl.koord[1], tbl.koord[2]) end function get_warpneedstrings(tbl) local warpneeds = {} if tbl.itemneed and table.getn(tbl.itemneed) > 0 then for _,v in ipairs(tbl.itemneed) do table.insert(warpneeds, "- "..v[2].."x "..item_name(v[1])) end end if tbl.goldneed and tbl.goldneed > 0 then table.insert(warpneeds, "- "..tbl.goldneed.." Yang") end return warpneeds end function check_warpneeds(tbl) if tbl.itemneed and table.getn(tbl.itemneed) > 0 then for _,v in ipairs(tbl.itemneed) do if pc.count_item(v[1]) < v[2] then return false end end end if tbl.goldneed and tbl.goldneed > 0 then if pc.get_gold() < tbl.goldneed then return false end end return true end function remove_warpneeds(tbl) if tbl.itemneed and table.getn(tbl.itemneed) > 0 then for _,v in ipairs(tbl.itemneed) do pc.remove_item(v[1], v[2]) end end if tbl.goldneed and tbl.goldneed > 0 then pc.change_gold(-tbl.goldneed) end end function check_and_remove_warpneeds(tbl) if not warpring.check_warpneeds(tbl) then return false end warpring.remove_warpneeds(tbl) return true end function get_warpnames(tbl) local level = pc.get_level() local names = {} for _,v in ipairs(tbl) do if v.minlevel and level < v.minlevel then v.name = v.name.." (ab Lv. "..v.minlevel..")" elseif v.maxlevel and level > v.maxlevel then v.name = v.name.." (bis Lv. "..v.maxlevel..")" end table.insert(names, v.name) end return names end function showwarps(tbl) local warpnames = warpring.get_warpnames(tbl) local s = tbl[select3(warpnames)] or false if not s then return end if s.koord then warpring.warp(s) return end warpring.showwarps(s) end end end

Dann kommt aber dieser Fehler:

warpring.quest:86:syntax error : [string "start"]:26: unexpected symbol near `='
Abort trap (core dumped)

07/18/2016 13:02 Rofelmau#12375

Quote:

Originally Posted by .DarthNeno

Wollte eben die Quest einf�gen

Spoiler

PHP Code:

quest warpring begin state start begin when 70058.use begin local warp = {--koord Pflicht, rest optional! {--Map1 name = "Map 1", {--Rotes Reich name = "Rotes Reich", koord = {965784, 275242}, minlevel = 1, }, goldneed = 1000 }, {--Gelbes Reich name = "Gelbes Reich", koord = {965784, 275242}, minlevel = 1, }, goldneed = 1000 }, {--Blaues Reich name = "Blaues Reich", koord = {965784, 275242}, minlevel = 1, }, goldneed = 1000 }, }, {--Levelmaps name = "Levelmaps", {--Spinnendungeon name = "Spinnendungeon", koord = {600, 4970}, minlevel = 60, }, goldneed = 100000 }, {--Spinnendungeon 2 name = "Spinnendungeon 2", koord = {6656, 4352}, minlevel = 80, }, goldneed = 200000 }, {--Grotte name = "Grotte", koord = {1536, 12032}, minlevel = 100, }, goldneed = 300000 }, {--Donnerberge name = "Donenrberge", koord = {11345, 16546}, minlevel = 120, }, goldneed = 400000 }, {--Nephritbucht name = "Nephritbucht", koord = {10869, 16558}, minlevel = 140, }, goldneed = 500000 }, {--Gautamakliff name = "Gautamakliff", koord = {12263, 16811}, minlevel = 160, }, goldneed = 7500000 }, {--Kap name = "Kap", koord = {11043, 17885}, minlevel = 180, }, goldneed = 10000000 }, }, } warpring.showwarps(warp) end function warp(tbl) local level = pc.get_level() if tbl.minlevel and level < tbl.minlevel then say("Dein Level ist zu niedrig, um diese Map zu betreten.") say("Minimal Level: "..tbl.minlevel) select("Abbrechen") return elseif tbl.maxlevel and level > tbl.maxlevel then say("Dein Level ist zu hoch, um diese Map zu betreten.") say("Maximal Level: "..tbl.maxlevel) select("Abbrechen") return end while not pc.can_warp() do say("Du kannst dich noch nicht teleportieren, da du in") say("den letzten 10 Sekunden gehandelt hast.") if select("Erneut versuchen", "Abbrechen") == 2 then return end end local warpneedstrings = warpring.get_warpneedstrings(tbl) if table.getn(warpneedstrings) > 0 then say("Um diese Map zu betreten ben�tigst du folgende") say("Dinge:") for _,v in ipairs(warpneedstrings) do say(v) end say("") say("M�chtest du trotzdem fortfahren?") if select("Teleportieren", "Abbrechen") == 2 then return end end if not warpring.check_and_remove_warpneeds(tbl) then say("Dir fehlt mindestens eins der ben�tigten Dinge.") select("Abbrechen") return end pc.warp(tbl.koord[1], tbl.koord[2]) end function get_warpneedstrings(tbl) local warpneeds = {} if tbl.itemneed and table.getn(tbl.itemneed) > 0 then for _,v in ipairs(tbl.itemneed) do table.insert(warpneeds, "- "..v[2].."x "..item_name(v[1])) end end if tbl.goldneed and tbl.goldneed > 0 then table.insert(warpneeds, "- "..tbl.goldneed.." Yang") end return warpneeds end function check_warpneeds(tbl) if tbl.itemneed and table.getn(tbl.itemneed) > 0 then for _,v in ipairs(tbl.itemneed) do if pc.count_item(v[1]) < v[2] then return false end end end if tbl.goldneed and tbl.goldneed > 0 then if pc.get_gold() < tbl.goldneed then return false end end return true end function remove_warpneeds(tbl) if tbl.itemneed and table.getn(tbl.itemneed) > 0 then for _,v in ipairs(tbl.itemneed) do pc.remove_item(v[1], v[2]) end end if tbl.goldneed and tbl.goldneed > 0 then pc.change_gold(-tbl.goldneed) end end function check_and_remove_warpneeds(tbl) if not warpring.check_warpneeds(tbl) then return false end warpring.remove_warpneeds(tbl) return true end function get_warpnames(tbl) local level = pc.get_level() local names = {} for _,v in ipairs(tbl) do if v.minlevel and level < v.minlevel then v.name = v.name.." (ab Lv. "..v.minlevel..")" elseif v.maxlevel and level > v.maxlevel then v.name = v.name.." (bis Lv. "..v.maxlevel..")" end table.insert(names, v.name) end return names end function showwarps(tbl) local warpnames = warpring.get_warpnames(tbl) local s = tbl[select3(warpnames)] or false if not s then return end if s.koord then warpring.warp(s) return end warpring.showwarps(s) end end end

Dann kommt aber dieser Fehler:

warpring.quest:86:syntax error : [string "start"]:26: unexpected symbol near `='
Abort trap (core dumped)

musst aber noch weiter �berarbeiten, ab deiner warp funktion kommen die functionunktionen nicht mehr die table werte.

Spoiler

PHP Code:


			
quest warpring begin 

    state start begin 

        when 70058.use begin 

            local warp = {--koord Pflicht, rest optional! 

                {--Map1 

                    name = "Map 1", 

                    {--Rotes Reich 

                        name = "Rotes Reich", 

                        koord = {965784, 275242}, 

                        minlevel = 1, 

                        goldneed = 1000 

                    }, 

                    {--Gelbes Reich 

                        name = "Gelbes Reich", 

                        koord = {965784, 275242}, 

                        minlevel = 1, 

                        goldneed = 1000 

                    }, 

                    {--Blaues Reich 

                        name = "Blaues Reich", 

                        koord = {965784, 275242}, 

                        minlevel = 1, 

                        goldneed = 1000 

                    }, 

                }, 

                {--Levelmaps 

                    name = "Levelmaps", 

                    {--Spinnendungeon 

                        name = "Spinnendungeon", 

                        koord = {600, 4970}, 

                        minlevel = 60,

                        goldneed = 100000 

                    }, 

                    {--Spinnendungeon 2 

                        name = "Spinnendungeon 2", 

                        koord = {6656, 4352}, 

                        minlevel = 80, 

                        goldneed = 200000 

                    }, 

                    {--Grotte 

                        name = "Grotte", 

                        koord = {1536, 12032}, 

                        minlevel = 100, 

                        goldneed = 300000 

                    }, 

                    {--Donnerberge 

                        name = "Donenrberge", 

                        koord = {11345, 16546}, 

                        minlevel = 120, 

                        goldneed = 400000 

                    }, 

                    {--Nephritbucht 

                        name = "Nephritbucht", 

                        koord = {10869, 16558}, 

                        minlevel = 140, 

                        goldneed = 500000 

                    }, 

                    {--Gautamakliff 

                        name = "Gautamakliff", 

                        koord = {12263, 16811}, 

                        minlevel = 160, 

                        goldneed = 7500000 

                    }, 

                    {--Kap 

                        name = "Kap", 

                        koord = {11043, 17885}, 

                        minlevel = 180, 

                        goldneed = 10000000 

                    }

                }

            } 

            warpring.showwarps(warp) 

        end 

        function warp(tbl) 

            local level = pc.get_level() 

            if tbl.minlevel and level < tbl.minlevel then 

                say("Dein Level ist zu niedrig, um diese Map zu betreten.") 

                say("Minimal Level: "..tbl.minlevel) 

                select("Abbrechen") 

                return 

            elseif tbl.maxlevel  and level > tbl.maxlevel then 

                say("Dein Level ist zu hoch, um diese Map zu betreten.") 

                say("Maximal Level: "..tbl.maxlevel) 

                select("Abbrechen") 

                return 

            end 

            while not pc.can_warp() do 

                say("Du kannst dich noch nicht teleportieren, da du in") 

                say("den letzten 10 Sekunden gehandelt hast.") 

                if select("Erneut versuchen", "Abbrechen") == 2 then return end 

            end 

            local warpneedstrings = warpring.get_warpneedstrings(tbl) 

            if table.getn(warpneedstrings) > 0 then 

                say("Um diese Map zu betreten ben�tigst du folgende") 

                say("Dinge:") 

                for _,v in ipairs(warpneedstrings) do 

                    say(v) 

                end 

                say("") 

                say("M�chtest du trotzdem fortfahren?") 

                if select("Teleportieren", "Abbrechen") == 2 then return end 

            end 

            if not warpring.check_and_remove_warpneeds(tbl) then 

                say("Dir fehlt mindestens eins der ben�tigten Dinge.") 

                select("Abbrechen") 

                return 

            end 

            pc.warp(tbl.koord[1], tbl.koord[2]) 

        end 

        function get_warpneedstrings(tbl) 

            local warpneeds = {} 

            if tbl.itemneed and table.getn(tbl.itemneed) > 0 then 

                for _,v in ipairs(tbl.itemneed) do 

                    table.insert(warpneeds, "- "..v[2].."x "..item_name(v[1])) 

                end 

            end 

            if tbl.goldneed and tbl.goldneed > 0 then 

                table.insert(warpneeds, "- "..tbl.goldneed.." Yang") 

            end 

            return warpneeds 

        end 

        function check_warpneeds(tbl) 

            if tbl.itemneed and table.getn(tbl.itemneed) > 0 then 

                for _,v in ipairs(tbl.itemneed) do 

                    if pc.count_item(v[1]) < v[2] then 

                        return false 

                    end 

                end 

            end 

            if tbl.goldneed and tbl.goldneed > 0 then 

                if pc.get_gold() < tbl.goldneed then 

                    return false 

                end 

            end 

            return true 

        end 

        function remove_warpneeds(tbl) 

            if tbl.itemneed and table.getn(tbl.itemneed) > 0 then 

                for _,v in ipairs(tbl.itemneed) do 

                    pc.remove_item(v[1], v[2]) 

                end 

            end 

            if tbl.goldneed and tbl.goldneed > 0 then 

                pc.change_gold(-tbl.goldneed) 

            end 

        end 

        function check_and_remove_warpneeds(tbl) 

            if not warpring.check_warpneeds(tbl) then 

                return false 

            end 

            warpring.remove_warpneeds(tbl) 

            return true 

        end 

        function get_warpnames(tbl) 

            local level = pc.get_level() 

            local names = {} 

            for _,v in ipairs(tbl) do 

                if v.minlevel and level < v.minlevel then 

                    v.name = v.name.." (ab Lv. "..v.minlevel..")" 

                elseif v.maxlevel  and level > v.maxlevel then 

                    v.name = v.name.." (bis Lv. "..v.maxlevel..")" 

                end 

                table.insert(names, v.name) 

            end 

            return names 

        end 

        function showwarps(tbl) 

            local warpnames = warpring.get_warpnames(tbl) 

            local s = tbl[select3(warpnames)] or false 

            if not s then return end 

            if s.koord then 

                warpring.warp(s) 

                return 

            end 

            warpring.showwarps(s) 

        end 

    end 

end

Page 825 of 845

825