quest eimer begin
state start begin
when 20095.chat."Mülleimer" begin
say_title("Mülleimer")
say("Bei uns gibt es auch einen Mülleimer")
say("bei diesem Mülleimer könnt ihr alle Sachen zerstören lassen.")
say("Zieh einfach das Item auf mich drauf !.")
end
when 20095.take begin
local vnum = item.get_vnum()
say_title("Mülleimer")
say_item_vnum(vnum)
say("Willst du wirklich "..item_name(vnum).." zerstören?")
local a = select("Ja","Nein")
if a == 2 then
return
else
item.remove()
end
end
end
end
quest eimer begin
state start begin
when 20095.chat."Mülleimer" begin
say_title("Mülleimer")
say("Bei uns gibt es auch einen Mülleimer")
say("bei diesem Mülleimer könnt ihr alle Sachen zerstören lassen.")
say("Zieh einfach das Item auf mich drauf !.")
end
when 20095.take begin
local vnum = item.get_vnum()
say_title("Mülleimer")
say_item_vnum(vnum)
say("Willst du wirklich "..item_name(vnum).." zerstören?")
local a = select("Ja","Nein")
if a == 2 then
return
else
item.remove(vnum)
end
end
end
end
--------------------------------------------------------------
--------------------------------------------------------------
quest eigenernpc begin
state start begin
when login or levelup with pc.get_level() <= 1 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when button or info begin
say("Gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 1 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
say("")
end
when levelup begin
if pc.count_item(88894) ==0 then
say("Du bist ein Level Up gekommen,")
say("obwohl du kein Stein gedroppt hast.")
say("Die Quest wird jetzt beendet")
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info2)
end
end
end
state info2 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when __TARGET__.target.click or
28955.chat."Greneta" begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein, besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_2)
end
end
state abgebrochen begin
end
-----------------------------------------------------------
--Quest 2
-----------------------------------------------------------
state lvl_2 begin
when login or levelup with pc.get_level() == 2 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 2 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info3)
end
end
end
state info3 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 2 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_3)
end
end
state abgebrochen begin
end
--------------------------------------------------------------
--Lvl 3
--------------------------------------------------------------
state lvl_3 begin
when login or levelup with pc.get_level() == 3 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 3 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info4)
end
end
end
state info4 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 3 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_4)
end
end
state abgebrochen begin
end
------------------------------------------------------------------
--Lvl4
------------------------------------------------------------------
state lvl_4 begin
when login or levelup with pc.get_level() == 4 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 4 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info5)
end
end
end
state info5 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 4 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_5)
end
end
state abgebrochen begin
end
--------------------------------------------------------------------
--Lvl 5
--------------------------------------------------------------------
state lvl_5 begin
when login or levelup with pc.get_level() == 5 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 5 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info6)
end
end
end
state info6 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 5 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_6)
end
end
state abgebrochen begin
end
---------------------------------------------------------------
--Lvl 6
---------------------------------------------------------------
state lvl_6 begin
when login or levelup with pc.get_level() == 6 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 6 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info7)
end
end
end
state info7 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 6 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_7)
end
end
state abgebrochen begin
end
----------------------------------------------------------------------------------
--Quest 7
----------------------------------------------------------------------------------
state lvl_7 begin
when login or levelup with pc.get_level() == 7 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 7 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info8)
end
end
end
state info8 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 7 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_8)
end
end
state abgebrochen begin
end
---------------------------------------------------------------------------
--Quest 8
---------------------------------------------------------------------------
state lvl_8 begin
when login or levelup with pc.get_level() == 8 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 8 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info9)
end
end
end
state info9 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 8 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_9)
end
end
state abgebrochen begin
end
-----------------------------------------------------------------
--lvl 9
-----------------------------------------------------------------
state lvl_9 begin
when login or levelup with pc.get_level() == 9 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 9 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info10)
end
end
end
state info10 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 9 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_10)
end
end
state abgebrochen begin
end
-----------------------------------------------------------------------
--Quest 10
-----------------------------------------------------------------------
state lvl_10 begin
when login or levelup with pc.get_level() == 10 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 10 begin
target.delete("__TARGET__")
say("So du musst jetzt den letzten")
say("Stein abgeben Viel Glueck!")
say("Denk dran wenn du dich ueber levelst")
say("die quest wird abgebrochen und du")
say("kannst sie nicht mehr weiter machen")
say("")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info11)
end
end
end
state info11 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 10 begin
say("Glueckwunsch!")
say("Du hast den letzten stein gefunden.")
say("So ich nehme dir jetzt den stein ab.")
say("und du bekommst deine belohnung!")
pc.remove_item(88894)
set_state(__complete)
end
end
state abgebrochen begin
end
state __complete begin
end
end
quest sonderschein begin
state start begin
when 9009.chat."Sonderschein Event verwalten" with pc.is_gm() and pc.get_name() == "Ave" begin
say_title("Sonderschein Event verwalten")
say()
say("Was möchtest du tun?")
if select("Event"..({"starten","stoppen"}[game.get_event_flag("ticket_event")+1], "Nichts") == 2 then return end
if game.get_event_flag("ticket_event") == 0 then
game.set_event_flag("ticket_event", 1)
else
game.set_event_flag("ticket_event", 0)
end
notice_all("Das Sonderschein Event wurde "..({"aktiviert","deaktiviert"}[game.get_event_flag("ticket_event")+1]))
return
end
when 9009.chat."Sonderschein kaufen" with game.get_event_flag("ticket_event") == 1 begin
local price_tab = {19,29,39,49,59}
say_title("Sonderschein kaufen")
say()
say("Möchtest du einen Schein kaufen?")
if select("Ja","Nein") == 2 then return end
ticket.give(price_tab[number(1, table.getn(price_tab))])
setskin(NOWINDOW)
chat("Du hast erfolgreich ein Ticket gekauft, du kannst dieses bei mir öffnen!")
end
when 9009.chat."Sonderschein öffnen" begin
say_title("Sonderschein öffnen")
say()
say("Such dir einen Schein aus!")
local a = mysql_query("SELECT id, pid, price, status FROM quest.ticket_table WHERE pid = "..pc.get_player_id()..";")
if a == 0 then return chat("Du hast leider keine Scheine!") end
local tab_price = {5}
for b = 1 table.getn(a) do
table.insert(tab_price, "Schein "..b)
end
local d = select2(tab_price, "Such dir einen Schein aus")
if d == 0 then return end
pc.give_item2(a[2][d], 1)
mysql_query("UPDATE quest.ticket_table SET status = 1 WHERE id = "..a[1][d]..";")
chat("Du hast ein "..item_name(a[3][d]).." erhalten!")
end
end
end
syntax error : [string "startpc . is_gm ( ) and pc . get_name ( ) == "Ave""]:4: `)' expected near `['
sonderschein.quest:15:Error occured on compile sonderschein.quest
quest selfmade_quest begin
state start begin
when login or levelup with pc.level >= 10 begin
set_state(blub)
end
end
state blub begin
when letter begin
send_letter("Mein Onkel")
end
when info or button begin
say_title("Mein Onkel")
say("Hallo, dürfte ich dich um einen Gefallen bitten?")
say("Mein Onkel ging vor einigen Tagen Wildhunde jagen")
say("und er wollte eigentlich schon lange zurück sein.")
say("Ich mache mir nun Sorgen um ihn.")
say("Könntest du nicht nach ihm suchen?")
local s = select("Natürlich", "Nein, leider keine Zeit")
if s == 2 then
say("Anscheinend bist du doch kein Held.")
clear_letter()
set_state(beenden)
else
say("Du scheinst sehr mutig zu sein.")
say("Ich denke, du kannst es schaffen!")
say_reward("Du musst einen Wildhund töten!")
pc.setqf("state1", 0)
q.set_counter("101", 5)
set_state(kill)
end
end
end
state kill begin
when letter begin
send_letter("Töte den Wildhund!")
end
when info or button begin
say_title("Tötung des Wildhundes")
say("Status:")
say_reward("Du hast schon "..pc.getqf("state1").." von 5x Wildhund")
end
when 101.kill begin
local count1 = pc.getqf("state1") + 1
if count1 <= 5 then
pc.setqf("state1", count1)
q.set_counter("101", count1)
elseif count1 == 1 then
set_state(fertig)
end
end
state fertig begin -- hier soll irgendwo der fehler sein ??
when letter begin
send_letter("Auftrag abgeschlossen!")
end
when info or button begin
say_title("Auftrag abgeschlossen!")
say("Du hast es tatsächlich geschafft!!")
say("Das hätte ich dir fast nicht zugetraut")
say("aber anscheinend bist du doch ein grosser Held!")
wait()
say("Willst du wirklich deine Belohnung?")
say("Ansonsten behalt ich sie gerne")
local s = select("Hmmmm, ja gerne", "Nein nein, behalt du sie")
if s == 2 then
clear_letter()
set_state(beenden)
else
say_reward("Hier hast du deine Belohnung!")
say_reward("Du erhältst 10 Yang!!")
pc.change_money(10)
clear_letter
set_state(beenden)
end
end
state beenden begin
say("Ende")
end
end
quest multiring begin
state start begin
when 70007.use begin
say_title("Warpring:")
local main=select("Warpring-Funktion", "Lager-Funktion", "Shopping-Funktion", "GM.Chat-Funktion", "Tastensperre")
if 1==main then
say_title("Warpring-Funktion:")
local s=select("Map1", "Map2", "Orktal (Mitte)", "Eisland (Mitte)", "Wüste (Oase)", "Weitere", "Beenden")
if 1==s then
say_title("Warpring-Funktion:")
local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
if 1==a then
pc.warp(474086, 954540)
elseif 2==a then
pc.warp(63098, 166617)
elseif 3==a then
pc.warp(960054, 268807)
elseif 4==a then
return
end
elseif 2==s then
say_title("Warpring-Funktion:")
local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
if 1==a then
pc.warp(353003, 882460)
elseif 2==a then
pc.warp(145582, 240227)
elseif 3==a then
pc.warp(863589, 246139)
elseif 4==a then
return
end
elseif 3==s then
pc.warp(332885, 745737)
elseif 4==s then
pc.warp(435705, 215084)
elseif 5==s then
pc.warp(296758, 547724)
elseif 6==s then
if pc.get_level() < 75 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
return
end
elseif pc.get_level() < 90 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Seelengrotte", "Areal der Steine", "Königsraum", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
return
end
elseif pc.get_level() < 110 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Seelengrotte", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
say_title("Warpring-Funktion:")
local c=select ("Verkommenes Land", "Beenden")
if 1==c then
pc.warp(2206207, 2231958)
elseif 2==c then
return
end
elseif 7==a then
return
end
elseif pc.get_level() >= 110 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnenmaps", "Dämonenturm", "Seelengrotte", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
say_title("Warpring-Funktion:")
local c=select ("Verkommenes Land", "Orkberg", "Beenden")
if 1==c then
pc.warp(2206207, 2231958)
elseif 2==c then
pc.warp(35039765, 35085766)
elseif 3==c then
return
end
elseif 8==a then
return
end
end
elseif 7==s then
return
end
elseif 2==main then
say_title("Lager-Funktion")
say("Hallo und Herzlich Willkomen!")
say("Ich bin deine Mobile Lager-Funktion.")
say("Ich kann dir überall dein Lager öffnen.")
say_reward("Möchtest du dein Lager öffnen?")
local lager=select("Ja", "Nein")
if 1==lager then
say_title("Lager-Funktion:")
say("Welches Lager möchtest du denn öffnen?")
local a=select("Normales Lager", "Itemshop Lager", "Beenden")
if 1==a then
game.open_safebox()
elseif 2==a then
game.open_mall()
elseif 3==a then
return
end
elseif 2==lager then
return
end
elseif 3==main then
say_title("Shopping-Funktion:")
say("Mit dieser Funktion kannst einen")
say("Multishop herbeirufen.")
say("Dieser Shop hat das zu bieten ,was du bestellst")
say("Also probier es einfach mal aus!")
say()
say("Aber denk dran:")
say()
say("Der Shop muss einmal geöffnet werden!")
say_reward("Sonst funktioniert das Handy nichtmehr!")
local s=select("Ok", "Nein")
if 1==s then
say("Shopping-Funktion:")
say_reward("Welchen Shop möchtes du öffnen?")
local shop=select("Waffenhandel", "Specialshop", "Rüstungshandel", "Gemischtwarenhandel", "Schmuckhandel", "Mehr Anzeigen", "Beenden")
if 1==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(waffen)
elseif 2==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(special)
elseif 3==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(rüstung)
elseif 4==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(gemi)
elseif 5==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(schmuck)
elseif 6==shop then
say_title("Shopping-Funktion")
say_reward("Welchen Shop möchtest du öffnen?")
local shop2=select("Pfeilhandel", "Beenden")
if 1==shop2 then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(pfeil)
elseif 2==shop2 then
return
end
elseif 7==shop then
return
end
elseif 2==s then
return
end
elseif 4==main then
if get_time() > pc.getqf("duration") then
say_title("GM.Chat-Funktion:")
say("Hallo ".. pc.get_name() .." ich bin die GM.Chat-Funktion und")
say("ich kann deine Nachrichten in andere Reiche")
say("vermitteln. Es kostet dich auch nichts.")
say("Das einzigste was du beachten musst, sind die")
say("Regeln.")
say("")
say_reward("Klicke auf Weiter um die Regeln zu lesen.")
wait()
say_title("GM.Chat-Funktion:")
say("Durch diese Funktion, könnt ihr in dem so-")
say("gennanten GM - Chat eure Nachrichten vermitteln.")
say("Ihr könnt damit durch alle 3. Reiche handeln")
say("oder Fragen rund um den Server Fragen.")
say("")
say_title("Beachte bitte diese Regeln:")
say_reward("- Du darfst / kannst maximal. 1 Nachricht")
say_reward(" innerhalb einer Minute schreiben.")
say_reward("- Keine Beleidigungen oder Drohungen.")
say_reward("- Sinnloses Spamen führt zum Account Bann.")
say_reward("- Keine rassistischen Wörter/Sprüche.")
say("")
wait()
say_title("GM.Chat-Funktion:")
say("Hast du die Regeln gelesen, so kannst du hier")
say("deine Nachricht eingeben, die der ganze Server")
say("lesen soll.")
say("")
say_reward("Bitte gebe deine Nachricht jetzt ein!")
local y = input( )
say_title("GM.Chat-Funktion:")
say("Möchtest du deine Nachricht wirklich senden?")
local main_set = select("Nachricht senden.","Abbrechen.")
if main_set == 2 then
say_title("GM.Chat-Funktion:")
say("Deine Nachricht wurde nicht versendet.")
elseif main_set == 1 then
notice_all("".. pc.get_name() ..":".. y .."")
say_title("GM.Chat-Funktion:")
say("Deine Nachricht wurde gesendet.")
pc.setqf("duration",get_time()+60)
end
else
say("Du hast in dieser Minute erst eine Nachricht geschrieben.")
say("Warte noch ein wenig.")
end
elseif 5==main then
return
end
end
end
state waffen begin
when 20024.chat."Waffenhandel" begin
npc.open_shop(1)
setskin(NOWINDOW)
npc.purge()
set_state(start)
end
end
state special begin
when 20024.chat."Spezialhandel" begin
npc.open_shop(41)
setskin(NOWINDOW)
npc.purge()
set_state(start)
end
end
state rüstung begin
when 20024.chat."Rüstungshandel" begin
npc.open_shop(16)
setskin(NOWINDOW)
npc.purge()
set_state(start)
end
end
state gemi begin
when 20024.chat."Gemischtwarenhandel" begin
npc.open_shop(3)
setskin(NOWINDOW)
npc.purge()
set_state(start)
end
end
state schmuck begin
when 20024.chat."Schmuckhandel" begin
npc.open_shop(17)
setskin(NOWINDOW)
npc.purge()
set_state(start)
end
end
state pfeil begin
when 20024.chat."Pfeilhandel" begin
npc.open_shop(15)
setskin(NOWINDOW)
npc.purge()
set_state(start)
end
end
end
quest gmonline begin
state start begin
when login with pc.is_gm() begin
game.set_event_flag(pc.get_name(), 1)
end
when logout with pc.is_gm() begin
game.set_event_flag(pc.get_name(), 0)
end
when 20086.chat."Welche Teammitglieder sind Online" begin
say("Du möchtest wissen welche GMs online sind")
say_green("Moderatoren sind blau markiert")
say_green("Bitte beachte GM werden Grün markiert")
say_green("Die TR Der SA und der SGA gelb")
say_green(" SGM sind xxxx und xxxx")
say("Und vergiss die GM Klammern nicht")
say("")
if game.get_event_flag("[GM]xxxx") == 1 then
say_green("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_green("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[SGM]xxxx") == 1 then
say_green("SGM xxxx: Online")
else
say_red("SGM xxxx: Offline")
end
if game.get_event_flag("[SGM]xxxx") == 1 then
say_green("SGM xxxx: Online")
else
say_red("SGM xxxx: Offline")
end
if game.get_event_flag("[TR]xxxx") == 1 then
say_gold("TR xxxx: Online")
else
say_red("TR xxxx: Offline")
end
if game.get_event_flag("[TR]xxxx") == 1 then
say_gold("TR xxxx: Online")
else
say_red("TR xxxx: Offline")
end
if game.get_event_flag("[SGA]xxxx") == 1 then
say_gold("SGA xxxx: Online")
else
say_red("SGA xxxx: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_green("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_gold("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[TGM]xxxx") == 1 then
say_green("TGM xxxx: Online")
else
say_red("TGM xxxx: Offline")
end
if game.get_event_flag("[MOD]xxxx") == 1 then
say_blue("MOD xxxx: Online")
else
say_red("MOD xxxx: Offline")
end
end
end
end
Geht immer noch nicht -.-Quote:
probier es mal mit der es muss ja auch irgentei item zerstört werden und nicht nichts:DPHP Code:quest eimer begin
state start begin
when 20095.chat."Mülleimer" begin
say_title("Mülleimer")
say("Bei uns gibt es auch einen Mülleimer")
say("bei diesem Mülleimer könnt ihr alle Sachen zerstören lassen.")
say("Zieh einfach das Item auf mich drauf !.")
end
when 20095.take begin
local vnum = item.get_vnum()
say_title("Mülleimer")
say_item_vnum(vnum)
say("Willst du wirklich "..item_name(vnum).." zerstören?")
local a = select("Ja","Nein")
if a == 2 then
return
else
item.remove()
end
end
end
end
PHP Code:quest eimer begin
state start begin
when 20095.chat."Mülleimer" begin
say_title("Mülleimer")
say("Bei uns gibt es auch einen Mülleimer")
say("bei diesem Mülleimer könnt ihr alle Sachen zerstören lassen.")
say("Zieh einfach das Item auf mich drauf !.")
end
when 20095.take begin
local vnum = item.get_vnum()
say_title("Mülleimer")
say_item_vnum(vnum)
say("Willst du wirklich "..item_name(vnum).." zerstören?")
local a = select("Ja","Nein")
if a == 2 then
return
else
item.remove(vnum)
end
end
end
end
Soooo jetzt zu meiner Quest!
hey in meiner quest funktioniert eigentlich alles aber wenn ich den npc anklicke kommt der normale quest text und wenn ich nochmal draufklicke kommt 10x der button
PHP Code:--------------------------------------------------------------
--------------------------------------------------------------
quest eigenernpc begin
state start begin
when login or levelup with pc.get_level() <= 1 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when button or info begin
say("Gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 1 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
say("")
end
when levelup begin
if pc.count_item(88894) ==0 then
say("Du bist ein Level Up gekommen,")
say("obwohl du kein Stein gedroppt hast.")
say("Die Quest wird jetzt beendet")
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info2)
end
end
end
state info2 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when __TARGET__.target.click or
28955.chat."Greneta" begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein, besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_2)
end
end
state abgebrochen begin
end
-----------------------------------------------------------
--Quest 2
-----------------------------------------------------------
state lvl_2 begin
when login or levelup with pc.get_level() == 2 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 2 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info3)
end
end
end
state info3 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 2 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_3)
end
end
state abgebrochen begin
end
--------------------------------------------------------------
--Lvl 3
--------------------------------------------------------------
state lvl_3 begin
when login or levelup with pc.get_level() == 3 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 3 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info4)
end
end
end
state info4 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 3 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_4)
end
end
state abgebrochen begin
end
------------------------------------------------------------------
--Lvl4
------------------------------------------------------------------
state lvl_4 begin
when login or levelup with pc.get_level() == 4 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 4 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info5)
end
end
end
state info5 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 4 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_5)
end
end
state abgebrochen begin
end
--------------------------------------------------------------------
--Lvl 5
--------------------------------------------------------------------
state lvl_5 begin
when login or levelup with pc.get_level() == 5 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 5 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info6)
end
end
end
state info6 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 5 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_6)
end
end
state abgebrochen begin
end
---------------------------------------------------------------
--Lvl 6
---------------------------------------------------------------
state lvl_6 begin
when login or levelup with pc.get_level() == 6 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 6 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info7)
end
end
end
state info7 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 6 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_7)
end
end
state abgebrochen begin
end
----------------------------------------------------------------------------------
--Quest 7
----------------------------------------------------------------------------------
state lvl_7 begin
when login or levelup with pc.get_level() == 7 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 7 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info8)
end
end
end
state info8 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 7 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_8)
end
end
state abgebrochen begin
end
---------------------------------------------------------------------------
--Quest 8
---------------------------------------------------------------------------
state lvl_8 begin
when login or levelup with pc.get_level() == 8 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 8 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info9)
end
end
end
state info9 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 8 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_9)
end
end
state abgebrochen begin
end
-----------------------------------------------------------------
--lvl 9
-----------------------------------------------------------------
state lvl_9 begin
when login or levelup with pc.get_level() == 9 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 9 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info10)
end
end
end
state info10 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 9 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_10)
end
end
state abgebrochen begin
end
-----------------------------------------------------------------------
--Quest 10
-----------------------------------------------------------------------
state lvl_10 begin
when login or levelup with pc.get_level() == 10 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 10 begin
target.delete("__TARGET__")
say("So du musst jetzt den letzten")
say("Stein abgeben Viel Glueck!")
say("Denk dran wenn du dich ueber levelst")
say("die quest wird abgebrochen und du")
say("kannst sie nicht mehr weiter machen")
say("")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info11)
end
end
end
state info11 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 10 begin
say("Glueckwunsch!")
say("Du hast den letzten stein gefunden.")
say("So ich nehme dir jetzt den stein ab.")
say("und du bekommst deine belohnung!")
pc.remove_item(88894)
set_state(__complete)
end
end
state abgebrochen begin
end
state __complete begin
end
end
Hier mal meine mit deiner Kombieniert.Quote:
quest loschen begin
state start begin
when 20095.chat."Mülleimer" begni
say_title("Mülleimer")
say("Bei uns gibt es auch einen Mülleimer")
say("bei diesem Mülleimer könnt ihr alle Sachen zerstören lassen.")
say("Zieh einfach das Item auf mich drauf !.")
end
when 20095.take begin
local i = item.get_vnum()
local checkit = pc.count_item(i)
say_title("Mülltonne")
say("Möchtest du das Item wirklich zerstören?")
say("Item: "..item.get_name())
local a = select("Zerstören", "Abbrechen")
if a == 2 then return end
if pc.count_item(i) != checkit then
item.remove()
else
say("Fehler!")
say("Du hast das Item möglicherweise")
say("nicht mehr im Besitz.")
end
end
end
end
quest eigenernpc begin
state start begin
when login or levelup with pc.get_level() <= 1 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when button or info begin
say("Gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 1 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
say("")
end
when levelup begin
if pc.count_item(88894) ==0 then
say("Du bist ein Level Up gekommen,")
say("obwohl du kein Stein gedroppt hast.")
say("Die Quest wird jetzt beendet")
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info2)
end
end
end
state info2 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when __TARGET__.target.click or
28955.chat."Greneta" begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein, besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_2)
end
end
state abgebrochen begin
end
-----------------------------------------------------------
--Quest 2
-----------------------------------------------------------
state lvl_2 begin
when login or levelup with pc.get_level() == 2 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 2 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info3)
end
end
end
state info3 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 2 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_3)
end
end
state abgebrochen begin
end
--------------------------------------------------------------
--Lvl 3
--------------------------------------------------------------
state lvl_3 begin
when login or levelup with pc.get_level() == 3 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 3 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info4)
end
end
end
state info4 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 3 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_4)
end
end
state abgebrochen begin
end
------------------------------------------------------------------
--Lvl4
------------------------------------------------------------------
state lvl_4 begin
when login or levelup with pc.get_level() == 4 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 4 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info5)
end
end
end
state info5 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 4 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_5)
end
end
state abgebrochen begin
end
--------------------------------------------------------------------
--Lvl 5
--------------------------------------------------------------------
state lvl_5 begin
when login or levelup with pc.get_level() == 5 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 5 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info6)
end
end
end
state info6 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 5 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_6)
end
end
state abgebrochen begin
end
---------------------------------------------------------------
--Lvl 6
---------------------------------------------------------------
state lvl_6 begin
when login or levelup with pc.get_level() == 6 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 6 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info7)
end
end
end
state info7 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 6 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_7)
end
end
state abgebrochen begin
end
----------------------------------------------------------------------------------
--Quest 7
----------------------------------------------------------------------------------
state lvl_7 begin
when login or levelup with pc.get_level() == 7 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 7 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info8)
end
end
end
state info8 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 7 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_8)
end
end
state abgebrochen begin
end
---------------------------------------------------------------------------
--Quest 8
---------------------------------------------------------------------------
state lvl_8 begin
when login or levelup with pc.get_level() == 8 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 8 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info9)
end
end
end
state info9 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 8 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_9)
end
end
state abgebrochen begin
end
-----------------------------------------------------------------
--lvl 9
-----------------------------------------------------------------
state lvl_9 begin
when login or levelup with pc.get_level() == 9 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 9 begin
target.delete("__TARGET__")
say("Ich bin Greneta.")
say("Du weisst ja jetzt wer ich bin.")
say("Also will ich jetzt mal nicht")
say("so daher reden und komme jetzt zur")
say("Sache!")
say("Du dropst von Level 1-10 jeweils")
say("einen Stein den du bei mir abgeben")
say("musst! Wenn du dich ueberlevelst, also")
say("in irgendeinem Level den Stein nicht")
say("abgibst, ist ")
say("die Quest abgebrochen und du kannst")
say("sie nicht mehr weiter machen!")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info10)
end
end
end
state info10 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 9 begin
say("So ich nehme dir jetzt den stein ab.")
say("So danke fuer den stein besorg mir mehr!")
pc.remove_item(88894)
set_state(lvl_10)
end
end
state abgebrochen begin
end
-----------------------------------------------------------------------
--Quest 10
-----------------------------------------------------------------------
state lvl_10 begin
when login or levelup with pc.get_level() == 10 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(28955)
if v != 0 then
target.vid("__TARGET__", v, "Greneta")
end
send_letter("Greneta")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 10 begin
target.delete("__TARGET__")
say("So du musst jetzt den letzten")
say("Stein abgeben Viel Glueck!")
say("Denk dran wenn du dich ueber levelst")
say("die quest wird abgebrochen und du")
say("kannst sie nicht mehr weiter machen")
say("")
end
when levelup begin
if pc.count_item(88894) ==0 then
set_state(abgebrochen)
end
end
when kill begin
if pc.count_item(88894) ==0 then
pc.give_item2(88894)
set_state(info11)
end
end
end
state info11 begin
when letter begin
local z = find_npc_by_vnum(28955)
if z != 0 then
target.vid("__TARGET__", z, "!")
end
end
when button or info begin
say("Greneta")
say("gehe zu Greneta!")
end
when __TARGET__.target.click or
28955.chat."Greneta" with pc.get_level() == 10 begin
say("Glueckwunsch!")
say("Du hast den letzten stein gefunden.")
say("So ich nehme dir jetzt den stein ab.")
say("und du bekommst deine belohnung!")
pc.remove_item(88894)
set_state(__complete)
end
end
state abgebrochen begin
end
state __complete begin
end
end
quest deviltower_zone begin
state start begin
when login begin
if pc.get_map_index() == 66 then
if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
pc.warp((5376+532)*100, (512+596+4)*100, 65)
end
pc.set_warp_location(65, 5376+532, 512+596+4)
elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
pc.set_warp_location(65, 5376+532, 512+596+4)
end
end
when deviltower_man.chat.locale.deviltower_man_chat begin
if pc.get_level() < 40 then
say_title(""..mob_name(20348).."")
say("")
say("Du bist unter level 40")
else
say_title(""..mob_name(20348).."")
say("")
say("Der Daemonenturm..")
say("In diesem Turm leben hunderte von Untoten")
say("Sehr viel Mut und Geschick braucht man,")
say("um in diesem Turm vorran zu kommen")
say("Du musst aber Level 40 sein.")
say("Möhctest du ihn betreten?")
local s = select("Ja", "Nein")
if s == 1 then
pc.warp(216500,727000)
end
end
end
when 8015.kill with pc.get_map_index() == 66 begin
timer("devil_stone1_1", 6)
notice_in_map("Ihr werdet in die nächste Etage gebracht")
end
when devil_ebene1.timer begin
d.notice("Vernichtet alle Monster um in die Nächste Etage zu kommen")
end
when devil_stone1_1.timer begin
local mapto7= pc.count_item(30302)
pc.remove_item(30302,mapto7)
local boxto7= pc.count_item(30300)
pc.remove_item(30300,boxto7)
d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
d.regen_file("data/dungeon/deviltower2_regen.txt")
d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
timer("devil_ebene1",2)
end
when 1091.kill begin
d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
d.check_eliminated()
end
function get_4floor_stone_pos()
local positions = {
{368, 629},
{419, 630},
{428, 653},
{422, 679},
{395, 689},
{369, 679},
{361, 658},
}
for i = 1, 6 do
local j = number(i, 7)
if i != j then
local t = positions[i];
positions[i] = positions[j];
positions[j] = t;
end
end
return positions
end
when 8016.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.notice("Findet den richtigen Metinstein um in die nächste Etage zu kommen")
d.setf("level", 4)
local positions = deviltower_zone.get_4floor_stone_pos()
for i = 1, 6 do
chat(positions[i][1], positions[i][2])
d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
end
chat(positions[7][1], positions[7][2])
local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
chat(vid)
d.set_unique("real", vid)
server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())
end
when devil_stone4_fail1.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 4 then
d.notice("Verbleibende Zeit: 10 Minuten")
server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
end
end
when devil_stone4_fail2.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 4 then
d.notice("Verbleibende Zeit: 5 Minuten")
server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
end
end
when devil_stone4_fail.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 4 then
d.notice("Die Zeit ist abgelaufen. Ihr werdet nun nach draußen teleportiert")
d.exit_all()
clear_server_timer('devil_stone4_update', get_server_timer_arg())
end
end
when devil_stone4_update.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 4 then
if not d.is_unique_dead("real") then
for i = 1, 6 do
if d.getf("fakedead" .. i) == 0 then
if d.unique_get_hp_perc("fake" .. i) < 50 then
d.purge_unique("fake" .. i)
d.setf("fakedead" .. i, 1)
d.notice("Der Falsche Metinstein verschwindet..");
end
end
end
else
server_timer("devil_stone4_end", 5, get_server_timer_arg())
d.notice("Ihr habt den richtigen Metinstein zerstört. Ihr werdet nun in die nächste Etage teleportiert")
d.setf("level", 5)
clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
clear_server_timer('devil_stone4_fail', get_server_timer_arg())
end
else
server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
end
end
when devil_stone4_stop_timer.server_timer begin
clear_server_timer('devil_stone4_update', get_server_timer_arg())
end
when devil_stone4_end.server_timer begin
if d.select(get_server_timer_arg()) then
d.setf("level", 5)
d.setf("stone_count", 5)
d.notice("Du bist nun in der 4. Ebene ")
d.notice("Öffne alle Alten Siegel um in die nächste Ebene zu gelangen.")
d.notice("Du hast 20 Minuten Zeit um alle Siegel zu öffnen.")
d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
clear_server_timer('devil_stone4_update', get_server_timer_arg())
d.set_regen_file("data/dungeon/deviltower5_regen.txt")
d.spawn_mob(20073, 421, 452)
d.spawn_mob(20073, 380, 460)
d.spawn_mob(20073, 428, 414)
d.spawn_mob(20073, 398, 392)
d.spawn_mob(20073, 359, 426)
end
end
when devil_stone5_fail1.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 5 then
d.notice("Verbleibende Zeit: 15 Minuten")
server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
end
end
when devil_stone5_fail2.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 5 then
d.notice("Verbleibende Zeit: 10 Minuten")
server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
end
end
when devil_stone5_fail3.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 5 then
d.notice("Verbleibende Zeit: 5 Minuten")
server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
end
end
when devil_stone5_fail.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 5 then
d.notice("Die Zeit ist abgelaufen")
d.notice("Ihr werdet nun nach draußen teleportiert")
d.exit_all()
end
end
when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin
local KILL_COUNT_FOR_DROP_KEY = 50
local n =d.getf("count") + 1
d.setf("count", n)
if n == KILL_COUNT_FOR_DROP_KEY then
game.drop_item(50084, 1)
d.setf("count", 0)
end
end
when devil_stone5.take with item.vnum == 50084 begin
npc.purge()
item.remove()
d.setf("stone_count", d.getf("stone_count") - 1)
if d.getf("stone_count") <= 0 then
d.setf("level", 6)
d.clear_regen()
d.regen_file("data/dungeon/deviltower6_regen.txt")
d.notice("Ihr habt alle alten Siegel geöffnet. Ihr werdet nun in die 5. Ebene teleportiert.")
d.notice("Vernichtet alle Monster und anschließend den "..mob_name(1092).."")
d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
clear_server_timer('devil_stone5_fail', get_server_timer_arg())
else
d.notice("Es verbleibt eine Anzahl von "..d.getf("stone_count").." Siegeln")
end
end
when devil_stone6.kill begin
d.kill_all()
d.check_eliminated()
local reward_alchemist = {20074, 20075, 20076}
d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
d.setqf("can_refine", 1)
if d.getf("can_refine") == 1 then
d.notice("Herzlichen Glückwunsch, nun dürft ihr 1 Gegenstand auf den Schmied aufwerten")
end
end
when 20074.chat."Die höheren Etagen.." or 20075.chat."Die höheren Etagen.." or 20076.chat."Die höheren Etagen.." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
if game.get_event_flag("dtgm") == 1 and not pc.is_gm() then
say_title("Dämonenturmschmied:")
say("")
say("Ihr macht gerade einen Speedrun mit einem GM")
say("Nur ein GM kann euch hochbringen.")
return
end
say_title("Dämonenturmschmied:")
say("")
say("Ihr möchtet in die 7.Etage?")
say("Ihr haben Glück! Heute erlaube ich es ihnen vielleicht!")
say("")
say("Aber voher muss ich euch noch prüfen..")
say("Mal sehen..")
wait()
if pc.level >=75 then
say("Ich erlaube euch weiterzugehen!")
say("Viel Glück und passt auf euch auf da oben!")
timer("devil_jump_7", 6)
return
end
say_reward("Betreten der 6.Etage nicht erlaubt!")
say("")
say("Ihr seid nicht qualifiziert genug!")
say("Erreicht LvL 75 oder höher,")
say("damit ihr eure Fertigkeiten steigern könnt")
say("und kommt dann wieder!")
say("")
wait()
pc.warp(590500, 110500)
return
end
when devil_jump_7.timer begin
d.clear_regen()
d.spawn_mob(8018, 639, 658)
d.spawn_mob(8018, 611, 637)
d.spawn_mob(8018, 596, 674)
d.spawn_mob(8018, 629, 670)
d.setf("level", 7)
d.jump_all(2048+590, 6656+638)
d.notice("Ihr seit in der 6.Etage nun zerstört die Metin Steine")
end
when 8018.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
local cont = d.getf("7_stone_kill") + 1
d.setf("7_stone_kill", cont)
if cont >= 4 then
d.setf("7_stone_kill", 0)
d.set_regen_file("data/dungeon/deviltower7_regen.txt")
end
end
when 8019.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
game.drop_item(30300, 1)
end
when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
pc.remove_item("30300", 1)
local pct = number(1,10)
if pct == 1 then
game.drop_item(30302, 1)
d.clear_regen()
else
game.drop_item(30301, 1)
end
end
when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
say("Die Karte wird euch alle in die nächste Ebene des Dämonenturms bringen.")
d.notice("Die Karte wurde aktiviert, ihr werdet nun in die Nächste Ebene gebracht")
pc.remove_item("30302", 1)
timer("devil_jump_8", 6)
d.clear_regen()
end
when devil_jump_8.timer begin
d.setf("level", 8)
d.jump_all(2048+590, 6656+403)
d.set_regen_file("data/dungeon/deviltower8_regen.txt")
d.spawn_mob(20366, 640, 460)
local _count= pc.count_item(30302)
pc.remove_item(30302,_count)
d.notice("Vernichtet die Monster und holt euch den "..item_name(30304).." und gebt ihn ab aufn Siegel")
end
when 1040.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
local pct1 = number(1, 5)
if pct1 == 1 then
local pct2 = number(1, 10)
if pct2 == 1 then
game.drop_item(30304, 1)
else
game.drop_item(30303, 1)
end
else
return
end
end
when 20366.take with item.vnum == 30304 begin
npc.purge()
item.remove()
timer("devil_jump_9", 6)
d.notice("Der "..item_name(30304).." wurde abgegeben, nun Viel Spass mit dem Sensemann!")
end
when devil_jump_9.timer begin
d.setf("level", 9)
d.jump_all(2048+590, 6656+155)
d.regen_file("data/dungeon/deviltower9_regen.txt")
end
when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.kill_all()
d.notice("Herzlichen Glückwunsch, ihr habt den Senseman getötet.");
d.notice("Ihr werdet alle in 1 Minute vorm Dämonenturm teleportiert.");
d.kill_all()
timer("devil_end_jump", 60)
end
when devil_end_jump.timer begin
d.exit_all()
end
Quote:
Ich kann i wie nur das erste Wählen also nur des 100kk Yangspeicher kaufen und das bekomme ich auch,
wenn ich aber auf 250kk, 500kk, 1kkk klicke verschwinden das Fenster, bekomme aber nix.
Wäre dankbar für jede schnelle Antwort. :D
quest mobile_bank begin
state start begin
when 90013.use begin
say_title("Mobile Bank")
say("Hier kannst du Yangspeicher kaufen.")
say("Du kannst sowohl 100kk und 250kk,")
say("als auch 500kk und 1kkk Yangspeicher kaufen.")
say("Das heißt, du musst nicht immer extra")
say("in die Stadt laufen, falls du am Leveln bist.")
say("Was willst du kaufen?")
local a = select("100kk Yangspeicher", "250kk Yangspeicher", "500kk Yangspeicher", "1kkk Yangspecher", "Nichts")
if a == 5 then
return
elseif a == 1 then
if pc.get_gold() >=100000000 then
pc.changemoney(-100000000)
pc.give_item2(30250, 1)
else
say("Du hast zu wenig")
return
end
elseif a == 2 then
if pc.get_gold() >=250000000 then
pc.changemoney(-250000000)
pc.give_item2(30251, 1)
else
say("Du hast zu wenig")
return
end
elseif a == 3 then
if pc.get_gold() >=500000000 then
pc.changemoney(-500000000)
pc.give_item2(30252, 1)
else
say("Du hast zu wenig")
return
end
elseif a == 4 then
if pc.get_gold() >= 1000000000 then
pc.changemoney(-1000000000)
pc.give_item2(30253, 1)
else
say("Du hast zu wenig")
return
end
end
end
end
end
pc.get_go
quest multiring begin
state start begin
when login with pc.is_gm() begin
game.set_event_flag(pc.get_name(), 1)
end
when logout with pc.is_gm() begin
game.set_event_flag(pc.get_name(), 0)
end
when 70007.use begin
say_title("Warpring:")
local main=select("Warpring-Funktion", "Lager-Funktion", "Shopping-Funktion", "GM.Chat-Funktion", "Tastensperre","Welche Teammitglieder sind Online")
if 1==main then
say_title("Warpring-Funktion:")
local s=select("Map1", "Map2", "Orktal (Mitte)", "Eisland (Mitte)", "Wüste (Oase)", "Weitere", "Beenden")
if 1==s then
say_title("Warpring-Funktion:")
local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
if 1==a then
pc.warp(474086, 954540)
elseif 2==a then
pc.warp(63098, 166617)
elseif 3==a then
pc.warp(960054, 268807)
elseif 4==a then
return
end
elseif 2==s then
say_title("Warpring-Funktion:")
local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
if 1==a then
pc.warp(353003, 882460)
elseif 2==a then
pc.warp(145582, 240227)
elseif 3==a then
pc.warp(863589, 246139)
elseif 4==a then
return
end
elseif 3==s then
pc.warp(332885, 745737)
elseif 4==s then
pc.warp(435705, 215084)
elseif 5==s then
pc.warp(296758, 547724)
elseif 6==s then
if pc.get_level() < 75 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
return
end
elseif pc.get_level() < 90 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Seelengrotte", "Areal der Steine", "Königsraum", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
return
end
elseif pc.get_level() < 110 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Seelengrotte", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
say_title("Warpring-Funktion:")
local c=select ("Verkommenes Land", "Beenden")
if 1==c then
pc.warp(2206207, 2231958)
elseif 2==c then
return
end
elseif 7==a then
return
end
elseif pc.get_level() >= 110 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnenmaps", "Dämonenturm", "Seelengrotte", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
say_title("Warpring-Funktion:")
local c=select ("Verkommenes Land", "Orkberg", "Beenden")
if 1==c then
pc.warp(2206207, 2231958)
elseif 2==c then
pc.warp(35039765, 35085766)
elseif 3==c then
return
end
elseif 8==a then
return
end
end
elseif 7==s then
return
end
elseif 2==main then
say_title("Lager-Funktion")
say("Hallo und Herzlich Willkomen!")
say("Ich bin deine Mobile Lager-Funktion.")
say("Ich kann dir überall dein Lager öffnen.")
say_reward("Möchtest du dein Lager öffnen?")
local lager=select("Ja", "Nein")
if 1==lager then
say_title("Lager-Funktion:")
say("Welches Lager möchtest du denn öffnen?")
local a=select("Normales Lager", "Itemshop Lager", "Beenden")
if 1==a then
game.open_safebox()
elseif 2==a then
game.open_mall()
elseif 3==a then
return
end
elseif 2==lager then
return
end
elseif 3==main then
say_title("Shopping-Funktion:")
say("Mit dieser Funktion kannst einen")
say("Multishop herbeirufen.")
say("Dieser Shop hat das zu bieten ,was du bestellst")
say("Also probier es einfach mal aus!")
say()
say("Aber denk dran:")
say()
say("Der Shop muss einmal geöffnet werden!")
say_reward("Sonst funktioniert das Handy nichtmehr!")
local s=select("Ok", "Nein")
if 1==s then
say("Shopping-Funktion:")
say_reward("Welchen Shop möchtes du öffnen?")
local shop=select("Waffenhandel", "Specialshop", "Rüstungshandel", "Gemischtwarenhandel", "Schmuckhandel", "Mehr Anzeigen", "Beenden")
if 1==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(waffen)
elseif 2==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(special)
elseif 3==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(rüstung)
elseif 4==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(gemi)
elseif 5==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(schmuck)
elseif 6==shop then
say_title("Shopping-Funktion")
say_reward("Welchen Shop möchtest du öffnen?")
local shop2=select("Pfeilhandel", "Beenden")
if 1==shop2 then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(pfeil)
elseif 2==shop2 then
return
end
elseif 7==shop then
return
end
elseif 2==s then
return
end
elseif 4==main then
if get_time() > pc.getqf("duration") then
say_title("GM.Chat-Funktion:")
say("Hallo ".. pc.get_name() .." ich bin die GM.Chat-Funktion und")
say("ich kann deine Nachrichten in andere Reiche")
say("vermitteln. Es kostet dich auch nichts.")
say("Das einzigste was du beachten musst, sind die")
say("Regeln.")
say("")
say_reward("Klicke auf Weiter um die Regeln zu lesen.")
wait()
say_title("GM.Chat-Funktion:")
say("Durch diese Funktion, könnt ihr in dem so-")
say("gennanten GM - Chat eure Nachrichten vermitteln.")
say("Ihr könnt damit durch alle 3. Reiche handeln")
say("oder Fragen rund um den Server Fragen.")
say("")
say_title("Beachte bitte diese Regeln:")
say_reward("- Du darfst / kannst maximal. 1 Nachricht")
say_reward(" innerhalb einer Minute schreiben.")
say_reward("- Keine Beleidigungen oder Drohungen.")
say_reward("- Sinnloses Spamen führt zum Account Bann.")
say_reward("- Keine rassistischen Wörter/Sprüche.")
say("")
wait()
say_title("GM.Chat-Funktion:")
say("Hast du die Regeln gelesen, so kannst du hier")
say("deine Nachricht eingeben, die der ganze Server")
say("lesen soll.")
say("")
say_reward("Bitte gebe deine Nachricht jetzt ein!")
local y = input( )
say_title("GM.Chat-Funktion:")
say("Möchtest du deine Nachricht wirklich senden?")
local main_set = select("Nachricht senden.","Abbrechen.")
if main_set == 2 then
say_title("GM.Chat-Funktion:")
say("Deine Nachricht wurde nicht versendet.")
elseif main_set == 1 then
notice_all("".. pc.get_name() ..":".. y .."")
say_title("GM.Chat-Funktion:")
say("Deine Nachricht wurde gesendet.")
pc.setqf("duration",get_time()+60)
end
else
say("Du hast in dieser Minute erst eine Nachricht geschrieben.")
say("Warte noch ein wenig.")
end
elseif 5==main then
return
else
say("Du möchtest wissen welche GMs online sind")
say_green("Moderatoren sind blau markiert")
say_green("Bitte beachte GM werden Grün markiert")
say_green("Die TR Der SA und der SGA gelb")
say_green(" SGM sind xxxx und xxxx")
say("Und vergiss die GM Klammern nicht")
say("")
if game.get_event_flag("[SA]Max") == 1 then
say_green("[SA]Max: Online")
else
say_red("[SA]Max: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_green("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[SGM]xxxx") == 1 then
say_green("SGM xxxx: Online")
else
say_red("SGM xxxx: Offline")
end
if game.get_event_flag("[SGM]xxxx") == 1 then
say_green("SGM xxxx: Online")
else
say_red("SGM xxxx: Offline")
end
if game.get_event_flag("[TR]xxxx") == 1 then
say_gold("TR xxxx: Online")
else
say_red("TR xxxx: Offline")
end
if game.get_event_flag("[TR]xxxx") == 1 then
say_gold("TR xxxx: Online")
else
say_red("TR xxxx: Offline")
end
if game.get_event_flag("[SGA]xxxx") == 1 then
say_gold("SGA xxxx: Online")
else
say_red("SGA xxxx: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_green("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_gold("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[TGM]xxxx") == 1 then
say_green("TGM xxxx: Online")
else
say_red("TGM xxxx: Offline")
end
if game.get_event_flag("[MOD]xxxx") == 1 then
say_blue("MOD xxxx: Online")
else
say_red("MOD xxxx: Offline")
end
end
end
end
quest warpring begin
state start begin
when 70007.use begin
say_title("Warpring:")
say("Guten Tag")
say("Ich bin ein Verzauberter Ring")
say("Ich bringe dich kostenlos überall hin wo du willst")
local main_set = select("Ja","Nein")
if main_set == 2 then
return
end
local sub_set = select("Blaues Reich","Rotes Reich","Gelbes Reich","Weitere Gebiete","Abbrechen")
if sub_set == 1 then
say_title("Warpring:")
say("Viel spaß im Blauen Reich!")
wait()
pc.warp(959900,268800)
elseif sub_set == 2 then
say_title("Warpring:")
say("Viel spaß im Roten Reich!")
wait()
pc.warp(474200,954200)
elseif sub_set == 3 then
say_title("Warpring:")
say("Viel spaß im Gelben Reich!")
wait()
pc.warp(63300,166400)
elseif sub_set == 4 then
local sub2 = select("Orktal", "Wüste", "Berg Sohan", "Abbrechen")
if sub2 == 1 then
say_title("Warpring:")
say("Viel Spaß im Orktal")
wait()
pc.warp(333000,745000)
elseif sub2 == 2 then
say_title("Warpring:")
say("Viel spaß in der Wüste!")
wait()
pc.warp(296600,547000)
elseif sub2 == 3 then
say_title("Warpring:")
say("Viel spaß auf dem Berg Sohan!")
wait()
pc.warp(436400,215600)
elseif sub2 == 3 then
say("Dann halt nicht")
end
elseif sub_set == 5 then
return
end
end
end
end
quest multiring begin
state start begin
when login with pc.is_gm() begin
game.set_event_flag(pc.get_name(), 1)
end
when logout with pc.is_gm() begin
game.set_event_flag(pc.get_name(), 0)
end
when 70007.use begin
say_title("Warpring:")
local main=select("Warpring-Funktion", "Lager-Funktion", "Shopping-Funktion", "GM.Chat-Funktion", "Tastensperre","Welche Teammitglieder sind Online")
if 1==main then
say_title("Warpring-Funktion:")
local s=select("Map1", "Map2", "Orktal (Mitte)", "Eisland (Mitte)", "Wüste (Oase)", "Weitere", "Beenden")
if 1==s then
say_title("Warpring-Funktion:")
local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
if 1==a then
pc.warp(474086, 954540)
elseif 2==a then
pc.warp(63098, 166617)
elseif 3==a then
pc.warp(960054, 268807)
elseif 4==a then
return
end
elseif 2==s then
say_title("Warpring-Funktion:")
local a=select ("Rotes", "Gelbes", "Blaues", "Beenden")
if 1==a then
pc.warp(353003, 882460)
elseif 2==a then
pc.warp(145582, 240227)
elseif 3==a then
pc.warp(863589, 246139)
elseif 4==a then
return
end
elseif 3==s then
pc.warp(332885, 745737)
elseif 4==s then
pc.warp(435705, 215084)
elseif 5==s then
pc.warp(296758, 547724)
elseif 6==s then
if pc.get_level() < 75 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
return
end
elseif pc.get_level() < 90 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Seelengrotte", "Areal der Steine", "Königsraum", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
return
end
elseif pc.get_level() < 110 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnendungeon", "Dämonenturm", "Seelengrotte", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
say_title("Warpring-Funktion:")
local c=select ("Verkommenes Land", "Beenden")
if 1==c then
pc.warp(2206207, 2231958)
elseif 2==c then
return
end
elseif 7==a then
return
end
elseif pc.get_level() >= 110 then
say_title("Weitere Maps:")
local a=select ("Feuerland (Teleporter)", "Spinnenmaps", "Dämonenturm", "Seelengrotte", "Beenden")
if 1==a then
pc.warp(600813, 687144)
elseif 2==a then
say_title("Warping-Funktion:")
local sd = select ("Spinnendungeon 1", "Spinnendungeon 2", "Beenden")
if 1==sd then
pc.warp(51200, 486400)
elseif 2==sd then
pc.warp(665600, 435200)
elseif 3==sd then
return
end
elseif 3==a then
pc.warp(590516, 110606)
elseif 4==a then
say_reward("In welche Seelengrotte möchtest du denn?")
local b=select ("Seelengrotte 1", "Seelengrotte 2", "Beenden")
if 1==b then
pc.warp(10086, 1213190)
elseif 2==b then
pc.warp(241682, 1275028)
elseif 3==b then
return
end
say_title("Warpring-Funktion:")
local c=select ("Verkommenes Land", "Orkberg", "Beenden")
if 1==c then
pc.warp(2206207, 2231958)
elseif 2==c then
pc.warp(35039765, 35085766)
elseif 3==c then
return
end
elseif 8==a then
return
end
end
elseif 7==s then
return
end
elseif 2==main then
say_title("Lager-Funktion")
say("Hallo und Herzlich Willkomen!")
say("Ich bin deine Mobile Lager-Funktion.")
say("Ich kann dir überall dein Lager öffnen.")
say_reward("Möchtest du dein Lager öffnen?")
local lager=select("Ja", "Nein")
if 1==lager then
say_title("Lager-Funktion:")
say("Welches Lager möchtest du denn öffnen?")
local a=select("Normales Lager", "Itemshop Lager", "Beenden")
if 1==a then
game.open_safebox()
elseif 2==a then
game.open_mall()
elseif 3==a then
return
end
elseif 2==lager then
return
end
elseif 3==main then
say_title("Shopping-Funktion:")
say("Mit dieser Funktion kannst einen")
say("Multishop herbeirufen.")
say("Dieser Shop hat das zu bieten ,was du bestellst")
say("Also probier es einfach mal aus!")
say()
say("Aber denk dran:")
say()
say("Der Shop muss einmal geöffnet werden!")
say_reward("Sonst funktioniert das Handy nichtmehr!")
local s=select("Ok", "Nein")
if 1==s then
say("Shopping-Funktion:")
say_reward("Welchen Shop möchtes du öffnen?")
local shop=select("Waffenhandel", "Specialshop", "Rüstungshandel", "Gemischtwarenhandel", "Schmuckhandel", "Mehr Anzeigen", "Beenden")
if 1==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(waffen)
elseif 2==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(special)
elseif 3==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(rüstung)
elseif 4==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(gemi)
elseif 5==shop then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(schmuck)
elseif 6==shop then
say_title("Shopping-Funktion")
say_reward("Welchen Shop möchtest du öffnen?")
local shop2=select("Pfeilhandel", "Beenden")
if 1==shop2 then
mob.spawn(20024, pc.get_local_x(), pc.get_local_y(), 1, 1, 1)
set_state(pfeil)
elseif 2==shop2 then
return
end
elseif 7==shop then
return
end
elseif 2==s then
return
end
elseif 4==main then
if get_time() > pc.getqf("duration") then
say_title("GM.Chat-Funktion:")
say("Hallo ".. pc.get_name() .." ich bin die GM.Chat-Funktion und")
say("ich kann deine Nachrichten in andere Reiche")
say("vermitteln. Es kostet dich auch nichts.")
say("Das einzigste was du beachten musst, sind die")
say("Regeln.")
say("")
say_reward("Klicke auf Weiter um die Regeln zu lesen.")
wait()
say_title("GM.Chat-Funktion:")
say("Durch diese Funktion, könnt ihr in dem so-")
say("gennanten GM - Chat eure Nachrichten vermitteln.")
say("Ihr könnt damit durch alle 3. Reiche handeln")
say("oder Fragen rund um den Server Fragen.")
say("")
say_title("Beachte bitte diese Regeln:")
say_reward("- Du darfst / kannst maximal. 1 Nachricht")
say_reward(" innerhalb einer Minute schreiben.")
say_reward("- Keine Beleidigungen oder Drohungen.")
say_reward("- Sinnloses Spamen führt zum Account Bann.")
say_reward("- Keine rassistischen Wörter/Sprüche.")
say("")
wait()
say_title("GM.Chat-Funktion:")
say("Hast du die Regeln gelesen, so kannst du hier")
say("deine Nachricht eingeben, die der ganze Server")
say("lesen soll.")
say("")
say_reward("Bitte gebe deine Nachricht jetzt ein!")
local y = input( )
say_title("GM.Chat-Funktion:")
say("Möchtest du deine Nachricht wirklich senden?")
local main_set = select("Nachricht senden.","Abbrechen.")
if main_set == 2 then
say_title("GM.Chat-Funktion:")
say("Deine Nachricht wurde nicht versendet.")
elseif main_set == 1 then
notice_all("".. pc.get_name() ..":".. y .."")
say_title("GM.Chat-Funktion:")
say("Deine Nachricht wurde gesendet.")
pc.setqf("duration",get_time()+60)
end
else
say("Du hast in dieser Minute erst eine Nachricht geschrieben.")
say("Warte noch ein wenig.")
end
elseif 5==main then
return
else
say("Du möchtest wissen welche GMs online sind")
say_green("Moderatoren sind blau markiert")
say_green("Bitte beachte GM werden Grün markiert")
say_green("Die TR Der SA und der SGA gelb")
say_green(" SGM sind xxxx und xxxx")
say("Und vergiss die GM Klammern nicht")
say("")
if game.get_event_flag("[SA]Max") == 1 then
say_green("[SA]Max: Online")
else
say_red("[SA]Max: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_green("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[SGM]xxxx") == 1 then
say_green("SGM xxxx: Online")
else
say_red("SGM xxxx: Offline")
end
if game.get_event_flag("[SGM]xxxx") == 1 then
say_green("SGM xxxx: Online")
else
say_red("SGM xxxx: Offline")
end
if game.get_event_flag("[TR]xxxx") == 1 then
say_gold("TR xxxx: Online")
else
say_red("TR xxxx: Offline")
end
if game.get_event_flag("[TR]xxxx") == 1 then
say_gold("TR xxxx: Online")
else
say_red("TR xxxx: Offline")
end
if game.get_event_flag("[SGA]xxxx") == 1 then
say_gold("SGA xxxx: Online")
else
say_red("SGA xxxx: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_green("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[GM]xxxx") == 1 then
say_gold("GM xxxx: Online")
else
say_red("GM xxxx: Offline")
end
if game.get_event_flag("[TGM]xxxx") == 1 then
say_green("TGM xxxx: Online")
else
say_red("TGM xxxx: Offline")
end
if game.get_event_flag("[MOD]xxxx") == 1 then
say_blue("MOD xxxx: Online")
else
say_red("MOD xxxx: Offline")
end
end
end
end