PHP Code:
quest setaoumonster begin
state start begin
when login or levelup with pc.level >= 85 begin
set_state (information)
end
end
state information begin
when letter begin
send_letter("Informationen der Grotte")
local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("__TARGET__", v, "Die Setaomonster")
end
when info or button begin
say_title("Das Geheimniss der Setaos")
say("Starker Kämpfer ich brauche dich...")
say("eine alte Weisheit besagt das es nur du schaffen kannst!")
say("")
say_reward("Gehe zu Uriel und helfe ihm!")
end
when __TARGET__.target.click or 20011.chat."Das Geheimniss der Setaomonster" with pc.level >=85 begin
say_title("Informationen über die Setaos")
say("Hallo junger Krieger,")
say("ich war vor kurzem in der Grotte der Verbannung")
say("Man sagt am Ende dieses Ortes befinde sich ein")
say("Zettel mit Informationen um diese Grotte")
say("erfolgreich zu bezwingen und zu bekämpfen.")
say("Doch je tiefer ich ging umso schauerlicher und")
say("angsteinflößender wurden die Monster auf die")
say("ich dort antrafen tat.")
say("Es wurde irgendwann so angsteinflößend und")
say("gefährlich das ich mich nicht mehr weitertraute")
say("meinen Weg durch die Grotte der Verbannung")
say("zu vollenden")
say("Ich bitte dich, gehe für mich in die Grotte")
say("der Verbannung und suche nach den Informationen")
say("Du bist unsere einzige Rettung!")
say("")
wait()
say_title("Das Geheimniss der Setaos")
say("Die Zeit wartet nicht auf dich geh!")
say("")
say_reward("Bist du stark genug um dein Weg des Kämpfers zu beschreiten?")
local s=select("Ja","Nein")
if s == 2 then
say("Oh... sehr Schade.")
clear_letter()
set_state(ende)
else
say_title("Das Geheimniss der Setaos")
say("Vielen Dank das du mir helfen wilst!")
say("Jedoch wird der Weg die Kreaturen zu bezwingen nicht einfach")
say("du musst dir eine gute Strategie ausdenken wie du es schaffst!")
say_reward("Sorge für Ordnung begib dich in die Seelengrotte!")
set_state(main)
end
end
end
state main begin
when letter begin
send_letter("Das Geheimniss der Setaos")
end
when info or button begin
say_title("Die Setaos")
say("Du hast von Uriel die Aufgabe erhalten die Setaos nieder zustrecken")
say("Geh und bezwinge sie!")
say_reward("Geh in die Seelengrotte und bezwinge sie")
end
when 2401.kill begin
local n = number(1,0)
if n== 1 then
pc.give_item2(30001,1)
say("Du hast es geschafft und ein Beweis gefunden!")
say_reward("Gehe nun wieder zu Uriel und berichte ihn von deiner Heldentat!")
set_state(main2)
end
end
end
state main2 begin
when letter begin
send_letter("Du hast sie bezwungen")
local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("__TARGET__", v, "Du hast sie bezwungen")
end
end
when info or button begin
say_title("Die Setaos")
say("Du hast sie getötet!")
say("Gehe wieder zu Uriel")
end
when __TARGET__.target.click or 20011.chat."Die Seatos" with pc.level >=85 begin
if pc.count_item(30001) <= 0 then
say_title("Du hast es nicht geschafft?")
say("Bist du zu schwach?")
say("Gehe erneut los und versuche es!")
set_state(main)
end
say_title("Die Setaomonster")
say("Oh! Danke!")
say("Endlich kann ich wieder ruhig schlafen dank dir ist das böse vernichtet!")
pc.remove_item(30001,1)
say("")
say_reward("Du erhälst:")
say_reward("30.000.000Yang")
say_reward("50.000.000Erfahrung")
say_reward("Wertvolle Gegenstände")
say("")
pc.change_money(30000000)
pc.give_exp2(50000000)
pc.give_item2(70039,3)
clear_letter()
set_state(ende)
end
end
state ende begin
end
end
@lautloserton, woher hast du dieses benhero tool?
Will auch ö.ö
