okay danke..
ich mach immer so sinnlose einzigartige quests
ich mach immer so sinnlose einzigartige quests
----------------------------------
-- Teil einer Karte , ItemID 30128
-- Vergibt King-, Königsrüstungen
----------------------------------
quest give_king begin
state start begin
when 30128.use begin
say_title("Die Könige")
say("")
say("Dieser Teil der Karte wird dich zu den")
say("Königsrüstung führen, die schon vor vielen")
say("Jahren von Kaiser Seon-Hwang versteckt wurden.")
say("Nicht viele kennen den Ort dieser Rüstungen.")
say("Behalten ihn deshalb besser für dich!")
local w=select("Weiter","Abbrechen")
if w == 1 then
say_title("Die Könige")
say("")
say_reward("Obwohl die Karte schon sehr alt und zerrissen ist,")
say_reward("konntest du sie noch lesen. Wähle nun deine Klasse.")
say("")
local c=select("Krieger", "Sura", "Ninja", "Schamane", "Abbrechen")
if c == 1 then
say_title("Die Könige")
say("")
say("Bist du dir sicher dass du die Königsrüstung")
say("für Krieger haben möchtest?")
say_item("Hwang-Rüstung", 11971, "")
say("")
local sub1=select("Ja","Nein")
if sub1 == 1 then
say_title("Die Könige")
say("")
say("Beim aufheben der Königsrüstung ist die Karte")
say("leider zerissen und ist nun nichtmehr brauchbar.")
say("")
say_reward("Königsrüstung für Krieger erhalten.")
pc.give_item2("11971", 1)
pc.removeitem("30128", 1)
elseif sub1 == 2 then
return
end
elseif c == 2 then
say_title("Die Könige")
say("")
say("Bist du dir sicher dass du die Königsrüstung")
say("für Sura haben möchtest?")
say_item("Zin-Hwang Rüstung", 11973, "")
say("")
local sub2=select("Ja","Nein")
if sub2 == 1 then
say_title("Die Könige")
say("")
say("Beim aufheben der Königsrüstung ist die Karte")
say("leider zerissen und ist nun nichtmehr brauchbar.")
say("")
say_reward("Königsrüstung für Sura erhalten.")
pc.give_item2("11973", 1)
pc.removeitem("30128", 1)
elseif sub2 == 2 then
return
end
elseif c == 3 then
say_title("Die Könige")
say("")
say("Bist du dir sicher dass du die Königsrüstung")
say("für Ninja haben möchtest?")
say_item("Rote Hwang-Rüstung", 11972, "")
say("")
local sub3=select("Ja","Nein")
if sub3 == 1 then
say_title("Die Könige")
say("")
say("Beim aufheben der Königsrüstung ist die Karte")
say("leider zerissen und ist nun nichtmehr brauchbar.")
say("")
say_reward("Königsrüstung für Ninja erhalten.")
pc.give_item2("11972", 1)
pc.removeitem("30128", 1)
elseif sub3 == 2 then
return
end
elseif c == 4 then
say_title("Die Könige")
say("")
say("Bist du dir sicher dass du die Königsrüstung")
say("für Schamanen haben möchtest?")
say_item("Sang-Hwang Rüstung", 11974, "")
say("")
local sub4=select("Ja","Nein")
if sub4 == 1 then
say_title("Die Könige")
say("")
say("Beim aufheben der Königsrüstung ist die Karte")
say("leider zerissen und ist nun nichtmehr brauchbar.")
say("")
say_reward("Königsrüstung für Schamanen erhalten.")
pc.give_item2("11974", 1)
pc.removeitem("30128", 1)
elseif sub4 == 2 then
return
end
elseif c == 5 then
return
end
elseif w==2 then
return
end
end
end
end
Quote:
Hilfe pls^^
PHP Code:----------------------------------
-- Teil einer Karte , ItemID 30128
-- Vergibt King-, Königsrüstungen
----------------------------------
quest give_king begin
state start begin
when 30128.use begin
say_title("Die Könige")
say("")
say("Dieser Teil der Karte wird dich zu den")
say("Königsrüstung führen, die schon vor vielen")
say("Jahren von Kaiser Seon-Hwang versteckt wurden.")
say("Nicht viele kennen den Ort dieser Rüstungen.")
say("Behalten ihn deshalb besser für dich!")
local w=select("Weiter","Abbrechen")
if w == 1 then
say_title("Die Könige")
say("")
say_reward("Obwohl die Karte schon sehr alt und zerrissen ist,")
say_reward("konntest du sie noch lesen. Wähle nun deine Klasse.")
say("")
local c=select("Krieger", "Sura", "Ninja", "Schamane", "Abbrechen")
if c == 1 then
say_title("Die Könige")
say("")
say("Bist du dir sicher dass du die Königsrüstung")
say("für Krieger haben möchtest?")
say_item("Hwang-Rüstung", 11971, "")
say("")
local sub1=select("Ja","Nein")
if sub1 == 1 then
say_title("Die Könige")
say("")
say("Beim aufheben der Königsrüstung ist die Karte")
say("leider zerissen und ist nun nichtmehr brauchbar.")
say("")
say_reward("Königsrüstung für Krieger erhalten.")
pc.give_item2("11971", 1)
pc.removeitem("30128", 1)
elseif sub1 == 2 then
return
end
elseif c == 2 then
say_title("Die Könige")
say("")
say("Bist du dir sicher dass du die Königsrüstung")
say("für Sura haben möchtest?")
say_item("Zin-Hwang Rüstung", 11973, "")
say("")
local sub2=select("Ja","Nein")
if sub2 == 1 then
say_title("Die Könige")
say("")
say("Beim aufheben der Königsrüstung ist die Karte")
say("leider zerissen und ist nun nichtmehr brauchbar.")
say("")
say_reward("Königsrüstung für Sura erhalten.")
pc.give_item2("11973", 1)
pc.removeitem("30128", 1)
elseif sub2 == 2 then
return
end
elseif c == 3 then
say_title("Die Könige")
say("")
say("Bist du dir sicher dass du die Königsrüstung")
say("für Ninja haben möchtest?")
say_item("Rote Hwang-Rüstung", 11972, "")
say("")
local sub3=select("Ja","Nein")
if sub3 == 1 then
say_title("Die Könige")
say("")
say("Beim aufheben der Königsrüstung ist die Karte")
say("leider zerissen und ist nun nichtmehr brauchbar.")
say("")
say_reward("Königsrüstung für Ninja erhalten.")
pc.give_item2("11972", 1)
pc.removeitem("30128", 1)
elseif sub3 == 2 then
return
end
elseif c == 4 then
say_title("Die Könige")
say("")
say("Bist du dir sicher dass du die Königsrüstung")
say("für Schamanen haben möchtest?")
say_item("Sang-Hwang Rüstung", 11974, "")
say("")
local sub4=select("Ja","Nein")
if sub4 == 1 then
say_title("Die Könige")
say("")
say("Beim aufheben der Königsrüstung ist die Karte")
say("leider zerissen und ist nun nichtmehr brauchbar.")
say("")
say_reward("Königsrüstung für Schamanen erhalten.")
pc.give_item2("11974", 1)
pc.removeitem("30128", 1)
elseif sub4 == 2 then
return
end
elseif c == 5 then
return
end
elseif w==2 then
return
end
end
end
end
quest gmverwaltung begin
state start begin
when 9008.chat."GM-Zentrale" begin
say_title("GM Komando Zentrale")
say("Möchtest du OX Starten?")
local ox = select("Ja", "Nein")
if ox == 2 then
return
end
if ox == 1 then
oxevent.open()
command("go ox")
end
say("Möchtest du ein Spawn event starten?")
locale sp = select("Ja", "Nein")
if "..sp.." = 2 then
return
end
if "..sp.." = 1 then
say("Welches Monster Soll Gespawnt werden?")
local how = input()
say("Wie oft? bei 0 wird 1 monster gespwnt")
locale many = input()
say(" Jetzt Spawn event beginnen?")
local bes = select("Ja", "Nein")
if "..bes.." = 2 then
return
end
if "..bes.." = 1 then
mob.spawn("..how..", "..many..")
end
say(" Server Boni Event")
say("")
say("Was Soll Erhöht werden?")
locale eboni = select("Item", "Yang", "Exp", "Nichts")
say("um Wv %?")
local emuch = input()
say("Wie lange")
local elong = input()
if "..eboni.." = 4 then
return
end
if "..eboni.." = 1 then
command("priv_empire 0 1:item_drop "..emuch.." "..elong.."")
end
if "..eboni.." = 2 then
command("priv_empire 0 2:gold_drop "..emuch.." "..elong.."")
end
if "..eboni.." = 3 then
command("priv_empire 0 4:exp "..emuch.." "..elong.."")
end
end
end
end
quest funkill begin
state start begin
when 9008.chat."Kill 4 Fun" begin
if pc.getqf("kill") == 1 then
say("Du musst 10 Sekunden warten..")
return
end
else
if pc.getqf("kill") == 0 then
say("Das Töten kostet dich 3.000.000 Yang.")
say("Zudem brauchst du mindestens Level 30.")
say("Möchtest du jemanden töten?")
local abfrage = select("Weiter", "Abbrechen")
if abfrage == 2 then
return
end
if abfrage == 1 then
if pc.get_level() => 30
if pc.get_gold() => 3000000 then
say("Gib die den Spieler namen hier ein:")
pc.give_gold(-3000000)
local z=input()
if z == "" then
say("Der Spieler existiert nicht") end
else
if "z" == pc.is_gm()
say("Du Kannst Keinen GameMaster töten!")
mob.spawn(2291)
notice(" Der Spieler "b" wollte einen GameMaster Töten!")
notice("Folge dessen ist, Das Ein Roter Drache Gespawnt wurde")
notice("Solltet ihr durch den Roten Drachen sterben, bedankt")
notice(" bei spieler "b" Ende Der Durchsage! ")
end
return
end
else
d.kill_all(z)
say("Der Spieler Wurde Erfolgreich Umgebarcht")
pc.setqf("kill", 1)
timer("killdelay", 10)
end
else
if pc.get_gold() <= 2999999 then
say("Du hast nicht genug Yang.")
return
end
else
if pc.get_level() <= 29 then
say("Dein Level reicht nicht aus.")
return
end
when "kill".timer begin
pc.setqf("kill", 2)
end
when login with pc.getqf("kill") == 1 then
timer("killdelay", 10)
end
end
end
quest Kuerbis begin
state start begin
when 50095.use begin
if pc.countitem("50095")>=1 then
pc.removeitem("50095", 1)
end
end
end
end
end
quest level_quest35 begin
state start begin
when login an levelup with pc.level >= 35 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Level 35 Quest")
end
when info or button begin
say_titel("Level 35 Quest")
say("Du mein starker Kämpfer / Kämpferin, ")
say("hast den Auftrag Monster zu töten ")
say("und bekommt dafür eine große belohnung")
say_reward("Töte 10 Stolze Orks und 1 Schwarzer Ork")
say("")
pc.setqf("state", )
q.set_counter("", )
end
when 3234.kill begin
local count = pc.getqf("state") - 1
if count <= then
pc.setqf("state", count)
q.set_counter("", count)
end
if count == 0 then
say_title("Level 35 Quest")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("Du erhälst:")
say_reward("Außerdem:")
say_reward("1000000 Yang")
say_reward("10000000 Erfahrung")
pc.change_money(1000000)
pc.give_exp2(10000000)
set_state(__COMPLETE__)
end
end
end
state __COMPLETE__ begin
end
end
quest dieb begin
state start begin
when login or levelup with pc.get_level() >= 82 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter ("Notfall bei der Gemi!")
when button or info begin
say ("Hallo "..pc.get_name().."! ")
say ("Es ist ein dringender Notfall!")
say ("du sollst so schnell wie möglich")
say ("zur Gemischtwarenhändlerin gehen, ")
say ("es ist etwas schreckliches passiert!")
say (" ")
say_reward ("Beeil dich!")
set_state(gotogemi)
end
end
state gotogemi begin
when 9003.chat."Der Dieb" begin
say_title ("Gemi:")
say ("Ohh da bist du ja, hilf mir bitte.")
say ("Mir ist gerade was schreckliches passiert... ")
say ("Ein Dieb hat gerade meine Geldtasche geklaut")
say ("und von dem Geld muss ich ausgerechnet morgen")
say ("meine Miete bezahlen, meine Kinder ernähren")
say ("und sämtliche Versicherungen abbezahlen.."
say ("und in der Tasche waren gerade lockere")
say ("32Millionen Yang drin..das würde 3 Monate zum")
say ("leben reichen. ")
say ("Kannst du mir bitte helfen und mir die Tasche")
say ("zurückbringen? Ich werde dich dafür reich belohnen.")
local a = select ("Ja, ich helfe dir!", "Nein keine Zeit.")
if a == 2 then
say ("Na toll..das wars wohl")
say ("du kannst es dir ja nochmal überlegen")
return
end
if a == 1 then
say_title (""..pc.get_name()..": ")
say_reward ("Wohin ist der Dieb jetzt?")
say_title ("Gemi: "
say ("Er ist in den experten Affendungeon gerannt")
say_title (""..pc.get_name()..": ")
say_reward ("Dann werde ich dort ersteinmal suchen")
say_reward ("und melde mich wenn ich was neues habe")
say_title ("Gemi: ")
say ("In Ordnung! Ich danke dir, das du mir hilfst.")
say_reward ("Finde den Affenboss im Exp. Affendungeon")
say_reward ("und hol die Tasche..egal wie!")
set_state(suche)
end
end
end
state suche begin
when 5163.kill begin
say_title (""..pc.get_name()..": ")
say ("Ich muss jetzt so schnell wie möglich raus hier")
say ("bevor man den Ausgang sperrt.")
say (" ")
say_reward ("Du hast die Tasche und den Los erhalten.")
say_reward ("Bringe sie der Gemi")
pc.give_item2(50027)
set_state(back)
end
end
state back begin
when 9003.chat."Habe deine Tasche gefunden" begin
say_title ("Gemi: VIELEN DANK!!")
say ("Ohh "..pc.get_name().." was würde ich nur ")
say ("ohne dich tun?! Naja hier deine Belohnung")
say (" ")
say_reward ("Du hast dein Auftrag erfüllt.")
clear_letter()
set_state(finish)
pc.give_exp2(150000000)
pc.give_item2(28643)
pc.give_item2(28642)
pc.give_item2(28641)
end
end
state finish begin
end
end
in zeile 20 is da i wo ein fehlerQuote:
meine neue Quest funktioniert mal wieder nicht.. und diesmal hab ich keine Ahnung..wo der
Fehler ist.. vllt seht ihr des..aber ich weiss nicht wo da einer ist..laut VPC.
ich gebe Thanks wenn mir jemand hilft..
syntax error : [string "information"]:2: unexpected symbol near `when´PHP Code:quest dieb begin
state start begin
when login or levelup with pc.get_level() >= 82 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter ("Notfall bei der Gemi!")
when button or info begin
say ("Hallo "..pc.get_name().."! ")
say ("Es ist ein dringender Notfall!")
say ("du sollst so schnell wie möglich")
say ("zur Gemischtwarenhändlerin gehen, ")
say ("es ist etwas schreckliches passiert!")
say (" ")
say_reward ("Beeil dich!")
set_state(gotogemi)
end
end
state gotogemi begin
when 9003.chat."Der Dieb" begin
say_title ("Gemi:")
say ("Ohh da bist du ja, hilf mir bitte.")
say ("Mir ist gerade was schreckliches passiert... ")
say ("Ein Dieb hat gerade meine Geldtasche geklaut")
say ("und von dem Geld muss ich ausgerechnet morgen")
say ("meine Miete bezahlen, meine Kinder ernähren")
say ("und sämtliche Versicherungen abbezahlen.."
say ("und in der Tasche waren gerade lockere")
say ("32Millionen Yang drin..das würde 3 Monate zum")
say ("leben reichen. ")
say ("Kannst du mir bitte helfen und mir die Tasche")
say ("zurückbringen? Ich werde dich dafür reich belohnen.")
local a = select ("Ja, ich helfe dir!", "Nein keine Zeit.")
if a == 2 then
say ("Na toll..das wars wohl")
say ("du kannst es dir ja nochmal überlegen")
return
end
if a == 1 then
say_title (""..pc.get_name()..": ")
say_reward ("Wohin ist der Dieb jetzt?")
say_title ("Gemi: "
say ("Er ist in den experten Affendungeon gerannt")
say_title (""..pc.get_name()..": ")
say_reward ("Dann werde ich dort ersteinmal suchen")
say_reward ("und melde mich wenn ich was neues habe")
say_title ("Gemi: ")
say ("In Ordnung! Ich danke dir, das du mir hilfst.")
say_reward ("Finde den Affenboss im Exp. Affendungeon")
say_reward ("und hol die Tasche..egal wie!")
set_state(suche)
end
end
end
state suche begin
when 5163.kill begin
say_title (""..pc.get_name()..": ")
say ("Ich muss jetzt so schnell wie möglich raus hier")
say ("bevor man den Ausgang sperrt.")
say (" ")
say_reward ("Du hast die Tasche und den Los erhalten.")
say_reward ("Bringe sie der Gemi")
pc.give_item2(50027)
set_state(back)
end
end
state back begin
when 9003.chat."Habe deine Tasche gefunden" begin
say_title ("Gemi: VIELEN DANK!!")
say ("Ohh "..pc.get_name().." was würde ich nur ")
say ("ohne dich tun?! Naja hier deine Belohnung")
say (" ")
say_reward ("Du hast dein Auftrag erfüllt.")
clear_letter()
set_state(finish)
pc.give_exp2(150000000)
pc.give_item2(28643)
pc.give_item2(28642)
pc.give_item2(28641)
end
end
state finish begin
end
end
dieb.quest:20:Abort trap (core dumped)
was ist denn da los?>.<