Muss da net if sel == 1 then hin weil du ja die Variablen so genannt hast man musste des zurück dann wieder Aus der table entfernen wenn man wieder i == 1 erreicht hat :D aber das schafft ihr echt selbst xd
[SERVICE] Die Questkontrolle
04/25/2012 06:58
Fear *_*#5611
04/25/2012 16:54
Kingnyze3#5612
hey leute,
ich wollt grad mein erstes quest schreiben naja eher abklatschen oder neu schreiben ^^
aber bekomme immer den error occured on compile abendessen.quest
bitte helft mir =(
ich wollt grad mein erstes quest schreiben naja eher abklatschen oder neu schreiben ^^
aber bekomme immer den error occured on compile abendessen.quest
bitte helft mir =(
Code:
quest abendessen begin
state start begin
when login or levelup with pc.get_level()>= 7 begin
set_state(info)
end
end
state info begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("target1", v, "Gemischtwarenhändlerin")
end
end
when button or info begin
say_title("Abendessen")
say("Geh zur Gemischtwarenhändlerin!")
say("Sie benötigt deine Hilfe!")
end
when target1.target.click or 9003.chat."Abendessen" begin
target.delete("target1")
say_title("Gemischtwarenhändlerin")
say("Hallo "..pc.get_name())
say("")
say("würdest du mir bitte kurz helfen?")
say("Ich möchte das Abendessen für mich und meinen Vater zubereiten,")
say("frag ihn bitte ob er auch:")
say("Gekochte Wildhundeingeweide mit")
say("Blutpudding und gedämpften Kartoffeln,")
say("in Vanille Soße")
say("essen möchte!)
delay_s(5)
local main_set = select("Wüüürrrgg, ich glaube ich mus kotzen","Ok, mache ich!")
if main_set == 1 then
return
end
if main_set == 2 then
say_title("Abendessen")
say("Sehr gut!")
say("Dann geh zu meinem Vater dem Rüstungshändler.")
Say("Komm danach wieder zu mir!")
clear_letter()
set_state(befragung)
end
end
end
state befragung begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9002)
if v != 0 then
target.vid("target2", v, "Rüstungshändler")
end
end
when button or befragung begin
say_title("Abendessen")
say("Geh zum Rüstungshändler und befrage Ihn!"
end
when target2.target.click or 9002.chat."Abendessen" begin
target.delete("target2")
say_title("Rüstungshändler")
say("Hey"..pc.get_name())
say("")
say("was ist den los, du siehst so grün aus?")
local main_set = select("Ich glaube, Ihre Tochter will sie umbringen!","Lieber nicht!")
if main_set == 2 then
return
end
if main_set == 1 then
say_title("Rüstungshändler")
say("Igitt!!!")
say("Ich glaube meine Tochter verbringt zuviel")
say("Zeit mit dem Schmied!")
say("Richte ihr aus:"Sie kann sich Ihre Giftbrühe")
say("in die Haare schmieren!")
say("Ich möchte einen Schweinebraten!")
local main_set = select("wird gemacht, Cheff!","Ich bin doch kein Laufbursche!")
end
if main_set == 2 then
return
end
if main_set == 1 then
clear_letter()
set_state(bericht)
end
end
end
state bericht begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("target3", v, "Gemischtwarenhändlerin")
end
end
end
when button or bericht begin
say_title("Abendessen")
say("Geh zur Gemischtwarenhändlerin"
say("und erstatte ihr Bericht!")
end
when target3.target.click or 9003.chat."Abendessen" begin
target.delete("target3")
say_title("Gemischtwarenhändlerin")
say("Hallo "..pc.get_name())
say("")
say("und wie sieht es aus?")
local main_set = select("Ich soll Ihnen ausrichten...","Ich sags Ihr besser nicht.")
if main_set == 2 then
return
end
if main_set == 1 then
say_title("Gemischtwarenhändlerin")
say("Das war ja soo klar!")
say("Der Mann hat einfach keinen Geschmack!")
local main_set = select("Ja genau... das wird es sein..","Würrrgg")
end
if main_set == 1 or 2 then
say_title("Gemischwarenhändlerin")
say("Stell dich mal nicht so an!")
say("Trotzdem danke für deine Hilfe")
delay(2)
say("du darfst gehen?")
local main_set = select("WAS!?","Nix da! Was ist mit meiner Belohnung?")
end
if main_set == 1 or 2 then
say_title("Gemischtwarenhändlerin")
say(" Oh, du erwartest eine belohnung...")
say("Nagut hier!")
end
local item_vnum = 59
local item_vnum2 = 11229
if pc.get_job() == 1 then
item_vnum = 1029
item_vnum2 = 11419
elseif pc.get_job() == 2
item_vnum = 59
item_vnum2 = 11619
elseif pc.get_job() == 3
item_vnum = 5029
item_vnum2 = 11819
end
pc.give_exp(2000)
pc.give_money(10000)
pc.give_item2(item_vnum)
pc.gibe_item2(item_vnum2)
clear_letter()
set_state(complete)
end
end
state complete begin
end
end
04/25/2012 17:42
DasKuchen#5613
Gibt es überhaupt delay_s(5) ?Quote:
hey leute,
ich wollt grad mein erstes quest schreiben naja eher abklatschen oder neu schreiben ^^
aber bekomme immer den error occured on compile abendessen.quest
bitte helft mir =(
Code:quest abendessen begin state start begin when login or levelup with pc.get_level()>= 7 begin set_state(info) end end state info begin when letter begin send_letter("Abendessen") local v = find_npc_by_vnum(9003) if v != 0 then target.vid("target1", v, "Gemischtwarenhändlerin") end end when button or info begin say_title("Abendessen") say("Geh zur Gemischtwarenhändlerin!") say("Sie benötigt deine Hilfe!") end when target1.target.click or 9003.chat."Abendessen" begin target.delete("target1") say_title("Gemischtwarenhändlerin") say("Hallo "..pc.get_name()) say("") say("würdest du mir bitte kurz helfen?") say("Ich möchte das Abendessen für mich und meinen Vater zubereiten,") say("frag ihn bitte ob er auch:") say("Gekochte Wildhundeingeweide mit") say("Blutpudding und gedämpften Kartoffeln,") say("in Vanille Soße") say("essen möchte!) delay_s(5) local main_set = select("Wüüürrrgg, ich glaube ich mus kotzen","Ok, mache ich!") if main_set == 1 then return end if main_set == 2 then say_title("Abendessen") say("Sehr gut!") say("Dann geh zu meinem Vater dem Rüstungshändler.") Say("Komm danach wieder zu mir!") clear_letter() set_state(befragung) end end end state befragung begin when letter begin send_letter("Abendessen") local v = find_npc_by_vnum(9002) if v != 0 then target.vid("target2", v, "Rüstungshändler") end end when button or befragung begin say_title("Abendessen") say("Geh zum Rüstungshändler und befrage Ihn!" end when target2.target.click or 9002.chat."Abendessen" begin target.delete("target2") say_title("Rüstungshändler") say("Hey"..pc.get_name()) say("") say("was ist den los, du siehst so grün aus?") local main_set = select("Ich glaube, Ihre Tochter will sie umbringen!","Lieber nicht!") if main_set == 2 then return end if main_set == 2 then return end if main_set == 1 then say_title("Rüstungshändler") say("Igitt!!!") say("Ich glaube meine Tochter verbringt zuviel") say("Zeit mit dem Schmied!") say("Richte ihr aus:"Sie kann sich Ihre Giftbrühe") say("in die Haare schmieren!") say("Ich möchte einen Schweinebraten!") local main_set = select("wird gemacht, Cheff!","Ich bin doch kein Laufbursche!") end if main_set == 2 then return end if main_set == 1 then clear_letter() set_state(bericht) end end end state bericht begin when letter begin send_letter("Abendessen") local v = find_npc_by_vnum(9003) if v != 0 then target.vid("target3", v, "Gemischtwarenhändlerin") end end end when button or bericht begin say_title("Abendessen") say("Geh zur Gemischtwarenhändlerin" say("und erstatte ihr Bericht!") end when target3.target.click or 9003.chat."Abendessen" begin target.delete("target3") say_title("Gemischtwarenhändlerin") say("Hallo "..pc.get_name()) say("") say("und wie sieht es aus?") local main_set = select("Ich soll Ihnen ausrichten...","Ich sags Ihr besser nicht.") if main_set == 2 then return end if main_set == 1 then say_title("Gemischtwarenhändlerin") say("Das war ja soo klar!") say("Der Mann hat einfach keinen Geschmack!") local main_set = select("Ja genau... das wird es sein..","Würrrgg") end if main_set == 1 or 2 then say_title("Gemischwarenhändlerin") say("Stell dich mal nicht so an!") say("Trotzdem danke für deine Hilfe") delay(2) say("du darfst gehen?") local main_set = select("WAS!?","Nix da! Was ist mit meiner Belohnung?") end if main_set == 1 or 2 then say_title("Gemischtwarenhändlerin") say(" Oh, du erwartest eine belohnung...") say("Nagut hier!") end local item_vnum = 59 local item_vnum2 = 11229 if pc.get_job() == 1 then item_vnum = 1029 item_vnum2 = 11419 elseif pc.get_job() == 2 item_vnum = 59 item_vnum2 = 11619 elseif pc.get_job() == 3 item_vnum = 5029 item_vnum2 = 11819 end pc.give_exp(2000) pc.give_money(10000) pc.give_item2(item_vnum) pc.gibe_item2(item_vnum2) clear_letter() set_state(complete) end end state complete begin end end
Wenn nicht entfern das mal habe mir die Quest nicht weiter angeschaut.
04/25/2012 18:05
Stylo@Magic-mt3#5614
Immer noch
Help??Quote:
[Only registered and activated users can see links. Click Here To Register...]PHP Code:quest warptest begin
state start begin
when 70042.use begin
local warptab = {
--[[ Möglich:
empire
minlvl
maxlvl
minalign
maxalign
is_gm (true)
eventflag
]]
["Reiche"] = {
["subs"] = {
["Map 1"] = {
["subs"] = {
["Shinsoo"] = {["x"] = 4096+646, ["y"] = 8960+585},
["Chunjo"] = {["x"] = 0+635, ["y"] = 1024+640},
["Jinno"] = {["x"] = 9216+382, ["y"] = 2048+643},
},
},
["Map 2"] = {
["subs"] = {
["Shinsoo"] = {["x"] = 3072, ["y"] = 8192},
["Chunjo"] = {["x"] = 1024+430, ["y"] = 2048+351},
["Jinno"] = {["x"] = 8192, ["y"] = 2048},
},
},
["Gildenmap#1"] = {["x"] = 1285, ["y"] = 10, ["empire"] = 1},
["Gildenmap#2"] = {["x"] = 1795, ["y"] = 10, ["empire"] = 2},
["Gildenmap#3"] = {["x"] = 2718, ["y"] = 130, ["empire"] = 3},
},
},
["Standardmaps"] = {
["subs"] = {
["Farmmap"] = {["x"] = 26431, ["y"] = 26943,
["Lvlmap"] = {["x"] = 9772, ["y"] = 1850,
["Handelsmap"] = {["x"] = 9551, ["y"] = 9551,
["Tal von Seungryong#1"] = {["x"] = 4021, ["y"] = 6739, ["empire"] = 1},
["Tal von Seungryong#2"] = {["x"] = 2704, ["y"] = 7399, ["empire"] = 2},
["Tal von Seungryong#3"] = {["x"] = 3213, ["y"] = 8080, ["empire"] = 3},
["Wueste#1"] = {["x"] = 2718, ["y"] = 6272, ["empire"] = 1},
["Wueste#2"] = {["x"] = 2219, ["y"] = 5027, ["empire"] = 2},
["Wueste#3"] = {["x"] = 3440, ["y"] = 5025, ["empire"] = 3},
["Berg Sohan#1"] = {["x"] = 4342, ["y"] = 2906, ["empire"] = 1},
["Berg Sohan#2"] = {["x"] = 3752, ["y"] = 1749, ["empire"] = 2},
["Berg Sohan#3"] = {["x"] = 4918, ["y"] = 1736, ["empire"] = 3},
},
},
["Dungeons"] = {
["minlvl"] = 40,
["subs"] = {
["Doyyumhwaji#1"] = {["x"] = 5994, ["y"] = 7563, ["empire"] = 1},
["Doyyumhwaji#2"] = {["x"] = 5978, ["y"] = 6222, ["empire"] = 2},
["Doyyumhwaji#3"] = {["x"] = 7307, ["y"] = 6898, ["empire"] = 3},
["Geisterwald"] = {["x"] = 2887, ["y"] = 57, ["minlvl"] = 60},
["Roter Wald"] = {["x"] = 11199, ["y"] = 708, ["minlvl"] = 80},
["Land der Riesen"] = {["x"] = 8451, ["y"] = 7459},
["Daemonenturm"] = {["x"] = 5905, ["y"] = 1105, ["empire"] = 3},
["Spinnendungeon"] = {["x"] = 600, ["y"] = 4960},
},
},
}
-- Ab hier nichts mehr Ändern.
local wp = {}
-- Kategorien
local function create_list(nm,index)
table.foreach((index or warptab),
function(i,l)
local x = (nm or '')..'#/'..i
--print(i,x)
if l.subs ~= nil then
create_list(x,l.subs)
wp[x] = {["type"] = "kat"}
else
wp[x] = l
wp[x]["type"] = "warp"
wp[x]["kat"] = (nm or '')
end
end
)
end
--Erstelle Liste der vorhandenen Warps
create_list()
local function show_menu(id,kat)
local index = id or 1
-- Funktionen START
local function count(str,del)
local out = 0
for i in string.gfind(str,del) do
out = out+1
end
return out
end
local function trim(str)
str = string.gsub(str,'.-#/','',index)
return str
end
-- Funktionen ENDE
-- Erstellen der Warpliste f??elect2
local wl,co = {
["list"] = {},
["data"] = {},
},1
table.sort(wp)
table.foreach(wp,
function(i,l)
if count(i,'.-#/') == index then
local function cc()
-- Da es viele If's sind, nicht extra eingerückt
if l.empire == nil or l.empire == pc.get_empire() then
if l.maxlvl == nil or pc.get_level() <= 255.maxlvl then
if l.minlvl == nil or pc.get_level() >= l.minlvl then
if l.minalign == nil or pc.get_real_alignment() >= l.minalign then
if l.maxalign == nil or pc.get_real_alignment() <= l.maxalign then
if l.eventflag == nil or game.get_event_flag(l.eventflag) == 1 then
if l.is_gm == nil or pc.is_gm() == l.is_gm then
if l.type == "kat" then
local str = '> '..(string.gsub(trim(i),'#%d+',''))..' <'
wl.list[co] = str
wl.data[str] = l
wl.data[str]["name"] = i
else
local str = (string.gsub(trim(i),'#%d+',''))
wl.list[co] = str
wl.data[str] = l
end
co = co+1
end -- gamemaster
end -- eventflag
end -- maxalign
end -- minalign
end -- minlvl
end -- maxlvl
end -- empire
-- if Block ende
end
if index == 1 then
cc()
elseif kat ~= nil and string.sub(i,1,string.len(kat)) == kat then
cc()
end
end
end
)
-- Ausgabe
table.sort(wl.list)
table.insert(wl.list,1,8)
if index ~= 1 then
table.insert(wl.list,'Zurück')
end
table.insert(wl.list,'Abbrechen')
local sel = select2(wl.list)
if sel == table.getn(wl.list) then return end
if index ~= 1 and sel == table.getn(wl.list)-1 then
local nextkat = function()
local t,out = split(kat,'#/'),''
table.foreach(t,
function(i,l)
if i < table.getn(t) and i > 1 then
out = out..'#/'..l
end
end
)
return out
end
show_menu(index-1,nextkat())
return
end
if wl.data[wl.list[sel]]["type"] == "kat" then
show_menu(index+1, wl.data[wl.list[sel]]["name"],kat or nil)
return
else
pc.warp(wl.data[wl.list[sel]]["x"]*100,wl.data[wl.list[sel]]["y"]*100)
end
end
show_menu()
end
end
end
what ist faltsch i flipp aus :(
04/25/2012 18:05
Kingnyze3#5615
Code:
quest abendessen begin
state start begin
when login or levelup with pc.get_level()>= 7 begin
set_state(info)
end
end
state info begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("target1", v, "Gemischtwarenhändlerin")
end
end
when button or info begin
say_title("Abendessen")
say("Geh zur Gemischtwarenhändlerin!")
say("Sie benötigt deine Hilfe!")
end
when target1.target.click or 9003.chat."Abendessen" begin
target.delete("target1")
say_title("Gemischtwarenhändlerin")
say("Hallo "..pc.get_name())
say("")
say("würdest du mir bitte kurz helfen?")
say("Ich möchte das Abendessen für mich und meinen Vater zubereiten,")
say("frag ihn bitte ob er auch:")
say("Gekochte Wildhundeingeweide mit")
say("Blutpudding und gedämpften Kartoffeln,")
say("in Vanille Soße")
say("essen möchte!)
delay_s(5)
local main_set = select("Wüüürrrgg, ich glaube ich mus kotzen","Ok, mache ich!")
if main_set == 1 then
return
end
if main_set == 2 then
say_title("Abendessen")
say("Sehr gut!")
say("Dann geh zu meinem Vater dem Rüstungshändler.")
Say("Komm danach wieder zu mir!")
clear_letter()
set_state(befragung)
end
end
end
state befragung begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9002)
if v != 0 then
target.vid("target2", v, "Rüstungshändler")
end
end
when button or befragung begin
say_title("Abendessen")
say("Geh zum Rüstungshändler und befrage Ihn!"
end
when target2.target.click or 9002.chat."Abendessen" begin
target.delete("target2")
say_title("Rüstungshändler")
say("Hey"..pc.get_name())
say("")
say("was ist den los, du siehst so grün aus?")
local main_set = select("Ich glaube, Ihre Tochter will sie umbringen!","Lieber nicht!")
if main_set == 2 then
return
end
if main_set == 1 then
say_title("Rüstungshändler")
say("Igitt!!!")
say("Ich glaube meine Tochter verbringt zuviel")
say("Zeit mit dem Schmied!")
say("Richte ihr aus:"Sie kann sich Ihre Giftbrühe")
say("in die Haare schmieren!")
say("Ich möchte einen Schweinebraten!")
local main_set = select("wird gemacht, Cheff!","Ich bin doch kein Laufbursche!")
end
if main_set == 2 then
return
end
if main_set == 1 then
clear_letter()
set_state(bericht)
end
end
end
state bericht begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("target3", v, "Gemischtwarenhändlerin")
end
end
end
when button or bericht begin
say_title("Abendessen")
say("Geh zur Gemischtwarenhändlerin"
say("und erstatte ihr Bericht!")
end
when target3.target.click or 9003.chat."Abendessen" begin
target.delete("target3")
say_title("Gemischtwarenhändlerin")
say("Hallo "..pc.get_name())
say("")
say("und wie sieht es aus?")
local main_set = select("Ich soll Ihnen ausrichten...","Ich sags Ihr besser nicht.")
if main_set == 2 then
return
end
if main_set == 1 then
say_title("Gemischtwarenhändlerin")
say("Das war ja soo klar!")
say("Der Mann hat einfach keinen Geschmack!")
local main_set = select("Ja genau... das wird es sein..","Würrrgg")
end
if main_set == 1 or 2 then
say_title("Gemischwarenhändlerin")
say("Stell dich mal nicht so an!")
say("Trotzdem danke für deine Hilfe")
delay(2)
say("du darfst gehen?")
local main_set = select("WAS!?","Nix da! Was ist mit meiner Belohnung?")
end
if main_set == 1 or 2 then
say_title("Gemischtwarenhändlerin")
say(" Oh, du erwartest eine belohnung...")
say("Nagut hier!")
end
local item_vnum = 59
local item_vnum2 = 11229
if pc.get_job() == 1 then
item_vnum = 1029
item_vnum2 = 11419
elseif pc.get_job() == 2
item_vnum = 59
item_vnum2 = 11619
elseif pc.get_job() == 3
item_vnum = 5029
item_vnum2 = 11819
end
pc.give_exp(2000)
pc.give_money(10000)
pc.give_item2(item_vnum)
pc.gibe_item2(item_vnum2)
clear_letter()
set_state(complete)
end
end
state complete begin
end
end
jo ist ne lib erweiterungQuote:
Wenn nicht entfern das mal habe mir die Quest nicht weiter angeschaut.
04/25/2012 18:20
.Shiraka™#5616
wo liegt der fehler? >.<
da wo die sternchen sind, ist eigentlich meine story die habe ich aber mal rausgenommen :)
bitte mal drüber schauen :/
da wo die sternchen sind, ist eigentlich meine story die habe ich aber mal rausgenommen :)
bitte mal drüber schauen :/
04/25/2012 18:24
.KenShy##5617
Versuch es mal so.
PHP Code:
quest starterset begin
state start begin
when login with pc.getqf("starterset") == 0 begin
say_title("***")
say("***")
say("***")
say("***")
say("***")
say("***")
say("***")
say("***")
wait()
say("***")
say("***")
say("")
say("***")
local klasse
if pc.job == 0 then
pc.give_item2(19, 1)
pc.give_item2(11209, 1)
pc.give_item2(12209, 1)
pc.give_item2(13009, 1)
pc.give_item2(16009, 1)
pc.give_item2(17009, 1)
pc.give_item2(27003, 200)
pc.give_item2(14009, 1)
pc.give_item2(15009, 1)
pc.give_item2(27006, 200)
pc.give_item2(27112, 200)
pc.give_item2(71050, 200)
pc.give_item2(72701, 1)
pc.give_item2(70038, 200)
klasse = "Krieger"
elseif pc.job == 1 then
pc.give_item2(1009, 1)
pc.give_item2(11409, 1)
pc.give_item2(12349, 1)
pc.give_item2(13009, 1)
pc.give_item2(15009, 1)
pc.give_item2(17009, 1)
pc.give_item2(14009, 1)
pc.give_item2(27003, 200)
pc.give_item2(27006, 200)
pc.give_item2(16009, 1)
pc.give_item2(27112, 200)
pc.give_item2(71050, 200)
pc.give_item2(72701, 1)
pc.give_item2(70038, 200)
klasse = "Ninja"
elseif pc.job == 2 then
pc.give_item2(19, 1)
pc.give_item2(12489, 1)
pc.give_item2(11609, 1)
pc.give_item2(17009, 1)
pc.give_item2(15009, 1)
pc.give_item2(13009, 1)
pc.give_item2(14009, 1)
pc.give_item2(27003, 200)
pc.give_item2(16009, 1)
pc.give_item2(27006, 200)
pc.give_item2(27112, 200)
pc.give_item2(71050, 200)
pc.give_item2(72701, 1)
pc.give_item2(70038, 200)
klasse = "Sura"
elseif pc.job == 3 then
pc.give_item2(7009, 1)
pc.give_item2(5009, 1)
pc.give_item2(12629, 1)
pc.give_item2(14009, 1)
pc.give_item2(15009, 1)
pc.give_item2(16009, 1)
pc.give_item2(17009, 1)
pc.give_item2(13009, 1)
pc.give_item2(11809, 1)
pc.give_item2(27003, 200)
pc.give_item2(27006, 200)
pc.give_item2(27112, 200)
pc.give_item2(71050, 200)
pc.give_item2(72701, 1)
pc.give_item2(70038, 200)
klasse = "Schamanen"
say("")
say("")
pc.setqf("starterset", 1)
set_state(__complete)
end
end
end
state __complete begin
end
end
04/25/2012 18:44
Kingnyze3#5618
Ich brauch immernoch Hilfe =( bitte
Error occured on compile
v1
V2
Error occured on compile
v1
Code:
quest abendessen begin
state start begin
when login or levelup with pc.get_level()>= 7 begin
set_state(info)
end
end
state info begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("target1", v, "Gemischtwarenhändlerin")
end
end
when button or info begin
say_title("Abendessen")
say("Geh zur Gemischtwarenhändlerin!")
say("Sie benötigt deine Hilfe!")
end
when target1.target.click or 9003.chat."Abendessen" begin
target.delete("target1")
say_title("Gemischtwarenhändlerin")
say("Hallo "..pc.get_name())
say("")
say("würdest du mir bitte kurz helfen?")
say("Ich möchte das Abendessen für mich und meinen Vater zubereiten,")
say("frag ihn bitte ob er auch:")
say("Gekochte Wildhundeingeweide mit")
say("Blutpudding und gedämpften Kartoffeln,")
say("in Vanille Soße")
say("essen möchte!)
delay_s(5)
local main_set = select("Wüüürrrgg, ich glaube ich mus kotzen","Ok, mache ich!")
if main_set == 1 then
return
end
if main_set == 2 then
say_title("Abendessen")
say("Sehr gut!")
say("Dann geh zu meinem Vater dem Rüstungshändler.")
Say("Komm danach wieder zu mir!")
clear_letter()
set_state(befragung)
end
end
end
state befragung begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9002)
if v != 0 then
target.vid("target2", v, "Rüstungshändler")
end
end
when button or befragung begin
say_title("Abendessen")
say("Geh zum Rüstungshändler und befrage Ihn!"
end
when target2.target.click or 9002.chat."Abendessen" begin
target.delete("target2")
say_title("Rüstungshändler")
say("Hey"..pc.get_name())
say("")
say("was ist den los, du siehst so grün aus?")
local main_set = select("Ich glaube, Ihre Tochter will sie umbringen!","Lieber nicht!")
if main_set == 2 then
return
end
if main_set == 1 then
say_title("Rüstungshändler")
say("Igitt!!!")
say("Ich glaube meine Tochter verbringt zuviel")
say("Zeit mit dem Schmied!")
say("Richte ihr aus:"Sie kann sich Ihre Giftbrühe")
say("in die Haare schmieren!")
say("Ich möchte einen Schweinebraten!")
local main_set = select("wird gemacht, Cheff!","Ich bin doch kein Laufbursche!")
end
if main_set == 2 then
return
end
if main_set == 1 then
clear_letter()
set_state(bericht)
end
end
end
state bericht begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("target3", v, "Gemischtwarenhändlerin")
end
end
end
when button or bericht begin
say_title("Abendessen")
say("Geh zur Gemischtwarenhändlerin"
say("und erstatte ihr Bericht!")
end
when target3.target.click or 9003.chat."Abendessen" begin
target.delete("target3")
say_title("Gemischtwarenhändlerin")
say("Hallo "..pc.get_name())
say("")
say("und wie sieht es aus?")
local main_set = select("Ich soll Ihnen ausrichten...","Ich sags Ihr besser nicht.")
if main_set == 2 then
return
end
if main_set == 1 then
say_title("Gemischtwarenhändlerin")
say("Das war ja soo klar!")
say("Der Mann hat einfach keinen Geschmack!")
local main_set = select("Ja genau... das wird es sein..","Würrrgg")
end
if main_set == 1 or 2 then
say_title("Gemischwarenhändlerin")
say("Stell dich mal nicht so an!")
say("Trotzdem danke für deine Hilfe")
delay(2)
say("du darfst gehen?")
local main_set = select("WAS!?","Nix da! Was ist mit meiner Belohnung?")
end
if main_set == 1 or 2 then
say_title("Gemischtwarenhändlerin")
say(" Oh, du erwartest eine belohnung...")
say("Nagut hier!")
end
local item_vnum = 59
local item_vnum2 = 11229
if pc.get_job() == 1 then
item_vnum = 1029
item_vnum2 = 11419
elseif pc.get_job() == 2
item_vnum = 59
item_vnum2 = 11619
elseif pc.get_job() == 3
item_vnum = 5029
item_vnum2 = 11819
end
pc.give_exp(2000)
pc.give_money(10000)
pc.give_item2(item_vnum)
pc.gibe_item2(item_vnum2)
clear_letter()
set_state(complete)
end
end
state complete begin
end
end
V2
Code:
quest abendessen begin
state start begin
when login or levelup with pc.get_level()>= 7 begin
set_state(info)
end
end
state info begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("target1", v, "Gemischtwarenhändlerin")
end
end
when button or info begin
say_title("Abendessen")
say("Geh zur Gemischtwarenhändlerin!")
say("Sie benötigt deine Hilfe!")
end
when target1.target.click or 9003.chat."Abendessen" begin
target.delete("target1")
say_title("Gemischtwarenhändlerin")
say("Hallo "..pc.get_name())
say("")
say("würdest du mir bitte kurz helfen?")
say("Ich möchte das Abendessen für mich und meinen Vater zubereiten,")
say("frag ihn bitte ob er auch:")
say("Gekochte Wildhundeingeweide mit")
say("Blutpudding und gedämpften Kartoffeln,")
say("in Vanille Soße")
say("essen möchte!)
local main_set = select("Wüüürrrgg, ich glaube ich mus kotzen","Ok, mache ich!")
if main_set == 1 then
return
end
if main_set == 2 then
say_title("Abendessen")
say("Sehr gut!")
say("Dann geh zu meinem Vater dem Rüstungshändler.")
Say("Komm danach wieder zu mir!")
clear_letter()
set_state(befragung)
local s = select(weiter)
if s == 1
return
end
end
end
end
state befragung begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9002)
if v != 0 then
target.vid("target2", v, "Rüstungshändler")
end
end
when button or befragung begin
say_title("Abendessen")
say("Geh zum Rüstungshändler und befrage Ihn!"
end
when target2.target.click or 9002.chat."Abendessen" begin
target.delete("target2")
say_title("Rüstungshändler")
say("Hey"..pc.get_name())
say("")
say("was ist den los, du siehst so grün aus?")
local main_set = select("Ich glaube, Ihre Tochter will sie umbringen!","Lieber nicht!")
if main_set == 2 then
return
end
if main_set == 1 then
say_title("Rüstungshändler")
say("Igitt!!!")
say("Ich glaube meine Tochter verbringt zuviel")
say("Zeit mit dem Schmied!")
say("Richte ihr aus: Sie kann sich Ihre Giftbrühe")
say("in die Haare schmieren!")
say("Ich möchte einen Schweinebraten!")
local main_set = select("wird gemacht, Cheff!","Ich bin doch kein Laufbursche!")
if main_set == 2 then
return
end
if main_set == 1 then
clear_letter()
set_state(bericht)
return
end
end
end
end
state bericht begin
when letter begin
send_letter("Abendessen")
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("target3", v, "Gemischtwarenhändlerin")
end
end
end
when button or bericht begin
say_title("Abendessen")
say("Geh zur Gemischtwarenhändlerin"
say("und erstatte ihr Bericht!")
end
when target3.target.click or 9003.chat."Abendessen" begin
target.delete("target3")
say_title("Gemischtwarenhändlerin")
say("Hallo "..pc.get_name())
say("")
say("und wie sieht es aus?")
local main_set = select("Ich soll Ihnen ausrichten...","Ich sags Ihr besser nicht.")
if main_set == 2 then
return
end
if main_set == 1 then
say_title("Gemischtwarenhändlerin")
say("Das war ja soo klar!")
say("Der Mann hat einfach keinen Geschmack!")
local main_set = select("Ja genau... das wird es sein..","Würrrgg")
if main_set == 1 or 2 then
say_title("Gemischwarenhändlerin")
say("Stell dich mal nicht so an!")
say("Trotzdem danke für deine Hilfe")
say("du darfst gehen?")
local main_set = select("WAS!?","Nix da! Was ist mit meiner Belohnung?")
if main_set == 1 or 2 then
say_title("Gemischtwarenhändlerin")
say(" Oh, du erwartest eine belohnung...")
say("Nagut hier!")
local s = select(weiter)
if s == 1 then
local item_vnum = 59
local item_vnum2 = 11229
if pc.get_job() == 1 then
item_vnum = 1029
item_vnum2 = 11419
elseif pc.get_job() == 2
item_vnum = 59
item_vnum2 = 11619
elseif pc.get_job() == 3
item_vnum = 5029
item_vnum2 = 11819
pc.give_exp(2000)
pc.give_money(10000)
pc.give_item2(item_vnum)
pc.gibe_item2(item_vnum2)
clear_letter()
set_state(complete)
return
end
end
end
end
end
end
end
state complete begin
end
end
04/25/2012 19:01
.KenShy##5619
Ich habe auch einen kleinen fehler in meiner Quest.
Die Quest:
Syserr Fehler:
Danke im vorraus.
Die Quest:
PHP Code:
----------------------------------------------------
--Lenova2 ~ Quest Lv. 30
----------------------------------------------------
quest lv30 begin
state start begin
when login with pc.get_level() >= 30 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Der Zorn der Metin Steine Teil 1")
end
when info or button begin
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast es geschafft, du bist nun stark genug")
say("um an der ersten Prüfung auf Lenova2 teil zunehmen.")
say("")
say("")
wait()
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast nun die aufgabe 30x denn Lv. 35 Metin Stein")
say("zuerledigen.")
say("Am schnellsten findest du sie auf unserer Farmmap.")
say("Es gibt keine zeitbegrenzung!")
say("Du hast es selbst in der hand an dieser Quest teilzunehmen")
say("")
say("")
say("Möchtest du die Quest bezwingen?")
local lv30 = select ("Yes Baby!, No Chance!")
if lv30 == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das du dieser Aufgabe nicht gewachsen bist!")
clear_letter()
set_state(__COMPLETE__)
elseif lv30 == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das in dir ein wahrer Kämpfer steckt!")
say("Ich wünsche dir viel Glück!")
pc.setqf("state", 30)
q.set_counter("Metin der Eifersucht", 30)
end
when 8007.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Metin der Eifersucht", count)
end
if count == 0 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("")
say("")
say("Nun wähle deine Belohnung aus.")
local belohnung = select ("10 Vit, 10 Int, 10 Str, 10 Dex")
if belohnung == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Vit)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.CON,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Int)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.INT,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 3 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Str)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.STR,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 4 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Dex)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.DEX,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
end
end
state __COMPLETE__ begin
end
end
Syserr Fehler:
PHP Code:
syntax error : [string "information"]:29: unexpected symbol near `when'
lv30.quest:101:Error occured on compile lv30.quest
04/25/2012 19:11
Kingnyze3#5620
Quote:
Die Quest:
PHP Code:----------------------------------------------------
--Lenova2 ~ Quest Lv. 30
----------------------------------------------------
quest lv30 begin
state start begin
when login or levelup with pc.get_level() >= 30 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Der Zorn der Metin Steine Teil 1")
end
when info or button begin
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast es geschafft, du bist nun stark genug")
say("um an der ersten Prüfung auf Lenova2 teil zunehmen.")
say("")
say("")
wait()
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast nun die aufgabe 30x denn Lv. 35 Metin Stein")
say("zuerledigen.")
say("Am schnellsten findest du sie auf unserer Farmmap.")
say("Es gibt keine zeitbegrenzung!")
say("Du hast es selbst in der hand an dieser Quest teilzunehmen")
say("")
say("")
say("Möchtest du die Quest bezwingen?")
local lv30 = select ("Yes Baby!, No Chance!")
if lv30 == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das du dieser Aufgabe nicht gewachsen bist!")
clear_letter()
set_state(__COMPLETE__)
elseif lv30 == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das in dir ein wahrer Kämpfer steckt!")
say("Ich wünsche dir viel Glück!")
pc.setqf("state", 30)
q.set_counter("Metin der Eifersucht", 30)
end
when 8007.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Metin der Eifersucht", count)
end
if count == 0 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("")
say("")
say("Nun wähle deine Belohnung aus.")
local belohnung = select ("10 Vit, 10 Int, 10 Str, 10 Dex")
if belohnung == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Vit)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.CON,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Int)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.INT,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 3 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Str)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.STR,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 4 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Dex)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.DEX,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
end
end
state __COMPLETE__ begin
end
end
Syserr Fehler:
Danke im vorraus.PHP Code:syntax error : [string "information"]:29: unexpected symbol near `when'
lv30.quest:101:Error occured on compile lv30.quest
versuchs mal so
Code:
----------------------------------------------------
--Lenova2 ~ Quest Lv. 30
----------------------------------------------------
quest lv30 begin
state start begin
when login with pc.get_level() >= 30 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Der Zorn der Metin Steine Teil 1")
end
when info or button begin
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast es geschafft, du bist nun stark genug")
say("um an der ersten Prüfung auf Lenova2 teil zunehmen.")
say("")
say("")
wait()
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast nun die aufgabe 30x denn Lv. 35 Metin Stein")
say("zuerledigen.")
say("Am schnellsten findest du sie auf unserer Farmmap.")
say("Es gibt keine zeitbegrenzung!")
say("Du hast es selbst in der hand an dieser Quest teilzunehmen")
say("")
say("")
say("Möchtest du die Quest bezwingen?")
local lv30 = select ("Yes Baby!, No Chance!")
if lv30 == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das du dieser Aufgabe nicht gewachsen bist!")
clear_letter()
set_state(__COMPLETE__)
elseif lv30 == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das in dir ein wahrer Kämpfer steckt!")
say("Ich wünsche dir viel Glück!")
pc.setqf("state", 30)
q.set_counter("Metin der Eifersucht", 30)
end
when 8007.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Metin der Eifersucht", count)
end
if count == 0 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("")
say("")
say("Nun wähle deine Belohnung aus.")
local belohnung = select ("10 Vit, 10 Int, 10 Str, 10 Dex")
if belohnung == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Vit)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.CON,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Int)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.INT,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 3 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Str)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.STR,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 4 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Dex)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.DEX,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
end
end
state __COMPLETE__ begin
end
end
04/25/2012 19:17
.KenShy##5621
Hat sich nix geändert?Quote:
Code:---------------------------------------------------- --Lenova2 ~ Quest Lv. 30 ---------------------------------------------------- quest lv30 begin state start begin when login with pc.get_level() >= 30 begin set_state(information) end end state information begin when letter begin send_letter("Der Zorn der Metin Steine Teil 1") end when info or button begin say_title("Der Zorn der Metin Steine Teil 1") say("Du hast es geschafft, du bist nun stark genug") say("um an der ersten Prüfung auf Lenova2 teil zunehmen.") say("") say("") wait() say_title("Der Zorn der Metin Steine Teil 1") say("Du hast nun die aufgabe 30x denn Lv. 35 Metin Stein") say("zuerledigen.") say("Am schnellsten findest du sie auf unserer Farmmap.") say("Es gibt keine zeitbegrenzung!") say("Du hast es selbst in der hand an dieser Quest teilzunehmen") say("") say("") say("Möchtest du die Quest bezwingen?") local lv30 = select ("Yes Baby!, No Chance!") if lv30 == 2 then say_title("Der Zorn der Metin Steine Teil 1") say("Ich wusste das du dieser Aufgabe nicht gewachsen bist!") clear_letter() set_state(__COMPLETE__) elseif lv30 == 1 then say_title("Der Zorn der Metin Steine Teil 1") say("Ich wusste das in dir ein wahrer Kämpfer steckt!") say("Ich wünsche dir viel Glück!") pc.setqf("state", 30) q.set_counter("Metin der Eifersucht", 30) end when 8007.kill begin local count = pc.getqf("state") - 1 if count <= 30 then pc.setqf("state", count) q.set_counter("Metin der Eifersucht", count) end if count == 0 then say_title("Der Zorn der Metin Steine Teil 1") say("Du hast die Quest erfolgreich abgeschlossen!") say("") say("") say("Nun wähle deine Belohnung aus.") local belohnung = select ("10 Vit, 10 Int, 10 Str, 10 Dex") if belohnung == 1 then say_title("Der Zorn der Metin Steine Teil 1") say("Du hast deine Belohnung (Permanent 10 Vit)") say("erhalten.") say("Der nächste Teil beginnt mit Level 50.") say("") say("Mach dich bereit!") affect.add_collect(apply.CON,10,60*60*24*365*60) clear_letter() set_state(__COMPLETE__) end elseif belohnung == 2 then say_title("Der Zorn der Metin Steine Teil 1") say("Du hast deine Belohnung (Permanent 10 Int)") say("erhalten.") say("Der nächste Teil beginnt mit Level 50.") say("") say("Mach dich bereit!") affect.add_collect(apply.INT,10,60*60*24*365*60) clear_letter() set_state(__COMPLETE__) end elseif belohnung == 3 then say_title("Der Zorn der Metin Steine Teil 1") say("Du hast deine Belohnung (Permanent 10 Str)") say("erhalten.") say("Der nächste Teil beginnt mit Level 50.") say("") say("Mach dich bereit!") affect.add_collect(apply.STR,10,60*60*24*365*60) clear_letter() set_state(__COMPLETE__) end elseif belohnung == 4 then say_title("Der Zorn der Metin Steine Teil 1") say("Du hast deine Belohnung (Permanent 10 Dex)") say("erhalten.") say("Der nächste Teil beginnt mit Level 50.") say("") say("Mach dich bereit!") affect.add_collect(apply.DEX,10,60*60*24*365*60) clear_letter() set_state(__COMPLETE__) end end end state __COMPLETE__ begin end end
Fals doch besteht immernoch genau der gleiche fehler.
Die Quest:
PHP Code:
----------------------------------------------------
--Lenova2 ~ Quest Lv. 30
----------------------------------------------------
quest lv30 begin
state start begin
when login with pc.get_level() >= 30 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Der Zorn der Metin Steine Teil 1")
end
when info or button begin
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast es geschafft, du bist nun stark genug")
say("um an der ersten Prüfung auf Lenova2 teil zunehmen.")
say("")
say("")
wait()
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast nun die aufgabe 30x denn Lv. 35 Metin Stein")
say("zuerledigen.")
say("Am schnellsten findest du sie auf unserer Farmmap.")
say("Es gibt keine zeitbegrenzung!")
say("Du hast es selbst in der hand an dieser Quest teilzunehmen")
say("")
say("")
say("Möchtest du die Quest bezwingen?")
local lv30 = select ("Yes Baby!, No Chance!")
if lv30 == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das du dieser Aufgabe nicht gewachsen bist!")
clear_letter()
set_state(__COMPLETE__)
elseif lv30 == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das in dir ein wahrer Kämpfer steckt!")
say("Ich wünsche dir viel Glück!")
pc.setqf("state", 30)
q.set_counter("Metin der Eifersucht", 30)
end
when 8007.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Metin der Eifersucht", count)
end
if count == 0 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("")
say("")
say("Nun wähle deine Belohnung aus.")
local belohnung = select ("10 Vit, 10 Int, 10 Str, 10 Dex")
if belohnung == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Vit)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.CON,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Int)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.INT,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 3 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Str)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.STR,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 4 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Dex)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.DEX,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
end
end
state __COMPLETE__ begin
end
end
Syserr Fehler:
PHP Code:
syntax error : [string "information"]:29: unexpected symbol near `when'
lv30.quest:101:Error occured on compile lv30.quest
04/25/2012 20:00
Kingnyze3#5622
Quote:
Fals doch besteht immernoch genau der gleiche fehler.
Die Quest:
PHP Code:----------------------------------------------------
--Lenova2 ~ Quest Lv. 30
----------------------------------------------------
quest lv30 begin
state start begin
when login with pc.get_level() >= 30 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Der Zorn der Metin Steine Teil 1")
end
when info or button begin
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast es geschafft, du bist nun stark genug")
say("um an der ersten Prüfung auf Lenova2 teil zunehmen.")
say("")
say("")
wait()
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast nun die aufgabe 30x denn Lv. 35 Metin Stein")
say("zuerledigen.")
say("Am schnellsten findest du sie auf unserer Farmmap.")
say("Es gibt keine zeitbegrenzung!")
say("Du hast es selbst in der hand an dieser Quest teilzunehmen")
say("")
say("")
say("Möchtest du die Quest bezwingen?")
local lv30 = select ("Yes Baby!, No Chance!")
if lv30 == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das du dieser Aufgabe nicht gewachsen bist!")
clear_letter()
set_state(__COMPLETE__)
elseif lv30 == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das in dir ein wahrer Kämpfer steckt!")
say("Ich wünsche dir viel Glück!")
pc.setqf("state", 30)
q.set_counter("Metin der Eifersucht", 30)
end
when 8007.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Metin der Eifersucht", count)
end
if count == 0 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("")
say("")
say("Nun wähle deine Belohnung aus.")
local belohnung = select ("10 Vit, 10 Int, 10 Str, 10 Dex")
if belohnung == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Vit)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.CON,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Int)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.INT,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 3 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Str)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.STR,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
elseif belohnung == 4 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Dex)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.DEX,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
end
end
end
state __COMPLETE__ begin
end
end
Syserr Fehler:
PHP Code:syntax error : [string "information"]:29: unexpected symbol near `when'
lv30.quest:101:Error occured on compile lv30.quest
sag mal du unterteilst die selects nur mit komma ohne "" das geht doch dan garnicht oder?
04/25/2012 21:08
.KenShy##5623
Habe die Quest nun etwas verändert nun kommt folgender fehler.
Quest:
Syserr:
Quest:
PHP Code:
----------------------------------------------------
--Lenova2 ~ Quest Lv. 30
----------------------------------------------------
quest lv30 begin
state start begin
when login with pc.get_level() >= 30 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Der Zorn der Metin Steine Teil 1")
end
when info or button begin
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast es geschafft, du bist nun stark genug")
say("um an der ersten Prüfung auf Lenova2 teil zunehmen.")
say("")
say("")
wait()
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast nun die aufgabe 30x denn Lv. 35 Metin Stein")
say("zuerledigen.")
say("Am schnellsten findest du sie auf unserer Farmmap.")
say("Es gibt keine zeitbegrenzung!")
say("Du hast es selbst in der hand an dieser Quest teilzunehmen")
say("")
say("")
say("Möchtest du die Quest bezwingen?")
local lv30 = select ("Yes Baby!", "No Chance!")
if lv30 == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das du dieser Aufgabe nicht gewachsen bist!")
clear_letter()
set_state(__COMPLETE__)
elseif lv30 == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Ich wusste das in dir ein wahrer Kämpfer steckt!")
say("Ich wünsche dir viel Glück!")
pc.setqf("state", 30)
q.set_counter("Metin der Eifersucht", 30)
end
when 8007.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Metin der Eifersucht", count)
end
if count == 0 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("")
say("")
say("Nun wähle deine Belohnung aus.")
local belohnung = select ("10 Vit", "10 Int", "10 Str", "10 Dex")
if belohnung == 1 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Vit)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.CON,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
return
elseif belohnung == 2 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Int)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.INT,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
return
elseif belohnung == 3 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Str)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.STR,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
return
elseif belohnung == 4 then
say_title("Der Zorn der Metin Steine Teil 1")
say("Du hast deine Belohnung (Permanent 10 Dex)")
say("erhalten.")
say("Der nächste Teil beginnt mit Level 50.")
say("")
say("Mach dich bereit!")
affect.add_collect(apply.DEX,10,60*60*24*365*60)
clear_letter()
set_state(__COMPLETE__)
return
end
end
state __COMPLETE__ begin
end
end
PHP Code:
QUEST : lv30
STATE : start
WHEN : login
with pc . get_level ( ) >= 30
STATE : information
WHEN : letter
WHEN : info or
WHEN : button
qc in malloc(): error: allocation failed
Error occured on compile lv30.quest
04/26/2012 17:05
.Shiraka™#5624
funzt nicht, kommt das hier:Quote:
PHP Code:quest starterset begin
state start begin
when login with pc.getqf("starterset") == 0 begin
say_title("***")
say("***")
say("***")
say("***")
say("***")
say("***")
say("***")
say("***")
wait()
say("***")
say("***")
say("")
say("***")
local klasse
if pc.job == 0 then
pc.give_item2(19, 1)
pc.give_item2(11209, 1)
pc.give_item2(12209, 1)
pc.give_item2(13009, 1)
pc.give_item2(16009, 1)
pc.give_item2(17009, 1)
pc.give_item2(27003, 200)
pc.give_item2(14009, 1)
pc.give_item2(15009, 1)
pc.give_item2(27006, 200)
pc.give_item2(27112, 200)
pc.give_item2(71050, 200)
pc.give_item2(72701, 1)
pc.give_item2(70038, 200)
klasse = "Krieger"
elseif pc.job == 1 then
pc.give_item2(1009, 1)
pc.give_item2(11409, 1)
pc.give_item2(12349, 1)
pc.give_item2(13009, 1)
pc.give_item2(15009, 1)
pc.give_item2(17009, 1)
pc.give_item2(14009, 1)
pc.give_item2(27003, 200)
pc.give_item2(27006, 200)
pc.give_item2(16009, 1)
pc.give_item2(27112, 200)
pc.give_item2(71050, 200)
pc.give_item2(72701, 1)
pc.give_item2(70038, 200)
klasse = "Ninja"
elseif pc.job == 2 then
pc.give_item2(19, 1)
pc.give_item2(12489, 1)
pc.give_item2(11609, 1)
pc.give_item2(17009, 1)
pc.give_item2(15009, 1)
pc.give_item2(13009, 1)
pc.give_item2(14009, 1)
pc.give_item2(27003, 200)
pc.give_item2(16009, 1)
pc.give_item2(27006, 200)
pc.give_item2(27112, 200)
pc.give_item2(71050, 200)
pc.give_item2(72701, 1)
pc.give_item2(70038, 200)
klasse = "Sura"
elseif pc.job == 3 then
pc.give_item2(7009, 1)
pc.give_item2(5009, 1)
pc.give_item2(12629, 1)
pc.give_item2(14009, 1)
pc.give_item2(15009, 1)
pc.give_item2(16009, 1)
pc.give_item2(17009, 1)
pc.give_item2(13009, 1)
pc.give_item2(11809, 1)
pc.give_item2(27003, 200)
pc.give_item2(27006, 200)
pc.give_item2(27112, 200)
pc.give_item2(71050, 200)
pc.give_item2(72701, 1)
pc.give_item2(70038, 200)
klasse = "Schamanen"
say("")
say("")
pc.setqf("starterset", 1)
set_state(__complete)
end
end
end
state __complete begin
end
end
[Only registered and activated users can see links. Click Here To Register...]
wenn ich dann auf weiter klicke passiert nichts, ich kann zwar rumlaufen aber ich sehe unten die skillreihe usw alles nich halt wie wenn ne quest offen is in dem sinne..
04/26/2012 18:24
Stylo@Magic-mt3#5625
Immer noch
Help??Quote:
[Only registered and activated users can see links. Click Here To Register...]PHP Code:quest warptest begin
state start begin
when 70042.use begin
local warptab = {
--[[ Möglich:
empire
minlvl
maxlvl
minalign
maxalign
is_gm (true)
eventflag
]]
["Reiche"] = {
["subs"] = {
["Map 1"] = {
["subs"] = {
["Shinsoo"] = {["x"] = 4096+646, ["y"] = 8960+585},
["Chunjo"] = {["x"] = 0+635, ["y"] = 1024+640},
["Jinno"] = {["x"] = 9216+382, ["y"] = 2048+643},
},
},
["Map 2"] = {
["subs"] = {
["Shinsoo"] = {["x"] = 3072, ["y"] = 8192},
["Chunjo"] = {["x"] = 1024+430, ["y"] = 2048+351},
["Jinno"] = {["x"] = 8192, ["y"] = 2048},
},
},
["Gildenmap#1"] = {["x"] = 1285, ["y"] = 10, ["empire"] = 1},
["Gildenmap#2"] = {["x"] = 1795, ["y"] = 10, ["empire"] = 2},
["Gildenmap#3"] = {["x"] = 2718, ["y"] = 130, ["empire"] = 3},
},
},
["Standardmaps"] = {
["subs"] = {
["Farmmap"] = {["x"] = 26431, ["y"] = 26943,
["Lvlmap"] = {["x"] = 9772, ["y"] = 1850,
["Handelsmap"] = {["x"] = 9551, ["y"] = 9551,
["Tal von Seungryong#1"] = {["x"] = 4021, ["y"] = 6739, ["empire"] = 1},
["Tal von Seungryong#2"] = {["x"] = 2704, ["y"] = 7399, ["empire"] = 2},
["Tal von Seungryong#3"] = {["x"] = 3213, ["y"] = 8080, ["empire"] = 3},
["Wueste#1"] = {["x"] = 2718, ["y"] = 6272, ["empire"] = 1},
["Wueste#2"] = {["x"] = 2219, ["y"] = 5027, ["empire"] = 2},
["Wueste#3"] = {["x"] = 3440, ["y"] = 5025, ["empire"] = 3},
["Berg Sohan#1"] = {["x"] = 4342, ["y"] = 2906, ["empire"] = 1},
["Berg Sohan#2"] = {["x"] = 3752, ["y"] = 1749, ["empire"] = 2},
["Berg Sohan#3"] = {["x"] = 4918, ["y"] = 1736, ["empire"] = 3},
},
},
["Dungeons"] = {
["minlvl"] = 40,
["subs"] = {
["Doyyumhwaji#1"] = {["x"] = 5994, ["y"] = 7563, ["empire"] = 1},
["Doyyumhwaji#2"] = {["x"] = 5978, ["y"] = 6222, ["empire"] = 2},
["Doyyumhwaji#3"] = {["x"] = 7307, ["y"] = 6898, ["empire"] = 3},
["Geisterwald"] = {["x"] = 2887, ["y"] = 57, ["minlvl"] = 60},
["Roter Wald"] = {["x"] = 11199, ["y"] = 708, ["minlvl"] = 80},
["Land der Riesen"] = {["x"] = 8451, ["y"] = 7459},
["Daemonenturm"] = {["x"] = 5905, ["y"] = 1105, ["empire"] = 3},
["Spinnendungeon"] = {["x"] = 600, ["y"] = 4960},
},
},
}
-- Ab hier nichts mehr Ändern.
local wp = {}
-- Kategorien
local function create_list(nm,index)
table.foreach((index or warptab),
function(i,l)
local x = (nm or '')..'#/'..i
--print(i,x)
if l.subs ~= nil then
create_list(x,l.subs)
wp[x] = {["type"] = "kat"}
else
wp[x] = l
wp[x]["type"] = "warp"
wp[x]["kat"] = (nm or '')
end
end
)
end
--Erstelle Liste der vorhandenen Warps
create_list()
local function show_menu(id,kat)
local index = id or 1
-- Funktionen START
local function count(str,del)
local out = 0
for i in string.gfind(str,del) do
out = out+1
end
return out
end
local function trim(str)
str = string.gsub(str,'.-#/','',index)
return str
end
-- Funktionen ENDE
-- Erstellen der Warpliste f??elect2
local wl,co = {
["list"] = {},
["data"] = {},
},1
table.sort(wp)
table.foreach(wp,
function(i,l)
if count(i,'.-#/') == index then
local function cc()
-- Da es viele If's sind, nicht extra eingerückt
if l.empire == nil or l.empire == pc.get_empire() then
if l.maxlvl == nil or pc.get_level() <= 255.maxlvl then
if l.minlvl == nil or pc.get_level() >= l.minlvl then
if l.minalign == nil or pc.get_real_alignment() >= l.minalign then
if l.maxalign == nil or pc.get_real_alignment() <= l.maxalign then
if l.eventflag == nil or game.get_event_flag(l.eventflag) == 1 then
if l.is_gm == nil or pc.is_gm() == l.is_gm then
if l.type == "kat" then
local str = '> '..(string.gsub(trim(i),'#%d+',''))..' <'
wl.list[co] = str
wl.data[str] = l
wl.data[str]["name"] = i
else
local str = (string.gsub(trim(i),'#%d+',''))
wl.list[co] = str
wl.data[str] = l
end
co = co+1
end -- gamemaster
end -- eventflag
end -- maxalign
end -- minalign
end -- minlvl
end -- maxlvl
end -- empire
-- if Block ende
end
if index == 1 then
cc()
elseif kat ~= nil and string.sub(i,1,string.len(kat)) == kat then
cc()
end
end
end
)
-- Ausgabe
table.sort(wl.list)
table.insert(wl.list,1,8)
if index ~= 1 then
table.insert(wl.list,'Zurück')
end
table.insert(wl.list,'Abbrechen')
local sel = select2(wl.list)
if sel == table.getn(wl.list) then return end
if index ~= 1 and sel == table.getn(wl.list)-1 then
local nextkat = function()
local t,out = split(kat,'#/'),''
table.foreach(t,
function(i,l)
if i < table.getn(t) and i > 1 then
out = out..'#/'..l
end
end
)
return out
end
show_menu(index-1,nextkat())
return
end
if wl.data[wl.list[sel]]["type"] == "kat" then
show_menu(index+1, wl.data[wl.list[sel]]["name"],kat or nil)
return
else
pc.warp(wl.data[wl.list[sel]]["x"]*100,wl.data[wl.list[sel]]["y"]*100)
end
end
show_menu()
end
end
end
what ist faltsch i flipp aus :(