Jo teste es mal. wenn du willst kann ich dir per PN auch kur die komplette Quest und nicht nur den Ausschnitt schicken^^
quest login begin
state start begin
when login begin
syschat("Hallo "..pc.get_name())
set_state(_COMPLETE_)
end
state _COMPLETE_ begin
end
end
end
Wenn ich jetzt nicht total daneben bin, sollte sie so gehen :DQuote:
Originally Posted by lama9379Guten Tag,
Also ich bin gaaanz neu im Questschreiben und es geht um meine erste Quest. Eine ganz simple login quest, also dass es angezeigt wird wenn sich jemand einloggt.
Server schmeisst diese Fehlermeldung :
"expecting 'when' or 'function'
login.quest:7:Error occured on compile login.quest"
Ich habe echt 0 ahnung was falsch sein kann... Hier der Code:
quest login begin
state start begin
when login begin
syschat("Hallo "..pc.get_name())
set_state(_COMPLETE_)
end
end
state _COMPLETE_ begin
end
end
quest killtest begin
state start begin
if pc.get_level() >= 3 then
when letter begin
send_letter("Kill quest test1")
end
when button or info begin
say_title("Herzlich Willkommen "..pc.get_name())
say ("")
say ("Jetzt wollen wir aber mal schauen ob ihr denn gegen Wildhunde gewinnt.")
set_state(counter)
end
end
end
state counter begin
pc.setqf("Wildhund", 0)
set_state(kill)
end
state kill begin
when 101.kill begin
local temp = pc.getqf("Wildhund")
local tempb = temp + 1
pc.setqf("Wildhund", tempb)
--pc.setqf("Wildhund") = pc.getqf("Wildhund") + 1 <--- zuerst so probiert, ging nicht
if pc.getqf("Wildhund") == 10 then
set_state(finished)
end
end
end
state finished begin
when letter begin
send_letter("Aufgabe abgeschlossen!")
end
when info or button begin
say_title("Aufgabe abgeschlossen!")
say("Du hast es geschaft.")
say("Ich dachte schon du schaffst es nicht.")
wait()
say("Auf dem weg zum Krieger fehlt dir aber noch viel...")
say("Immerhin schon ein kleiner Anfang")
wait()
say("Ne kleine Belohnung gefällig?")
local s=select("Aufjedenfall","Nein behalt sie")
if s== 2 then
clear_letter()
set_state(aufgeben)
end
if s == 1 then
say("Hier ein Schwert+0")
pc.give_item(10)
set_state(belohnungerhalten)
end
end
end
state aufgeben begin
end
state belohnungerhalten begin
end
end
when login or level up with pc.level>=3 begin
when login or level up with pc.level>=3 begin
set_state(neu)
end
end
state neu begin
when letter begin
....
when button or info begin
say_title("Herzlich Willkommen "..pc.get_name())
say ("")
say ("Jetzt wollen wir aber mal schauen ob ihr denn gegen Wildhunde gewinnt.")
pc.setqf("wildhunde",0)
set_state(counter)
end
quest killtest begin
state start begin
when login or level up with pc.level>=3 begin
set_state(neu)
end
end
state neu begin
when letter begin
send_letter("Kill quest test1")
end
when button or info begin
say_title("Herzlich Willkommen "..pc.get_name())
say ("test")
pc.setqf("Wildhund", 0)
set_state(kill)
end
end
state kill begin
when 101.kill begin
if pc.getqf("Wildhund") < 10 then
local temp = pc.getqf("Wildhund")
local tempb = temp + 1
pc.setqf("Wildhund", tempb)
if pc.getqf("Wildhund") == 10 then
set_state(finished)
end
end
end
state finished begin
when letter begin
send_letter("Aufgabe abgeschlossen!")
end
when button or info begin
say_title("Aufgabe abgeschlossen!")
say("Du hast es geschaft.")
say("blablabla.")
wait()
say("blablabla")
say("Immerhin schon ein kleiner Anfang")
wait()
say("Ne kleine Belohnung gefällig?")
local s=select("Aufjedenfall","Nein behalt sie")
if s== 2 then
clear_letter()
set_state(aufgeben)
end
if s == 1 then
say("Hier ein Schwert+0")
pc.give_item(10)
set_state(belohnungerhalten)
end
end
end
state aufgeben begin
end
state belohnungerhalten begin
end
end
da fehlt ein endQuote:
Habe es geändert.
Neuer Fehler lautet:
"when doesn't have begin-end clause. (up)
killtest.quesrt:3:Error occured on compilie killtest.quest"
Aktueller Code:
Code:quest killtest begin state start begin when login or level up with pc.level>=3 begin set_state(neu) end end state neu begin when letter begin send_letter("Kill quest test1") end when button or info begin say_title("Herzlich Willkommen "..pc.get_name()) say ("test") pc.setqf("Wildhund", 0) set_state(kill) end end state kill begin when 101.kill begin if pc.getqf("Wildhund") < 10 then local temp = pc.getqf("Wildhund") local tempb = temp + 1 pc.setqf("Wildhund", tempb) if pc.getqf("Wildhund") == 10 then set_state(finished) end end end state finished begin when letter begin send_letter("Aufgabe abgeschlossen!") end when button or info begin say_title("Aufgabe abgeschlossen!") say("Du hast es geschaft.") say("blablabla.") wait() say("blablabla") say("Immerhin schon ein kleiner Anfang") wait() say("Ne kleine Belohnung gefällig?") local s=select("Aufjedenfall","Nein behalt sie") if s== 2 then clear_letter() set_state(aufgeben) end if s == 1 then say("Hier ein Schwert+0") pc.give_item(10) set_state(belohnungerhalten) end end end state aufgeben begin end state belohnungerhalten begin end end
when 101.kill begin
if pc.getqf("Wildhund") < 10 then
local temp = pc.getqf("Wildhund")
local tempb = temp + 1
pc.setqf("Wildhund", tempb)
if blabla then
blabla
end
if blabla then
blabla
end
if blabla then
blabla
elseif blabla then
blabla
end
Quote:
Hallo zusammen,
ich versuche mich gerade an einem kleineren Dungeon und scheitere an Laden der Regen.txt
der Pfad ist richtig angegeben und sowohl die Quest wie auch die Regen.txt haben 777 Rechte.
Hier die Quest
Kann mir einer von euch hier bei weiter helfen
Vielen Dank