Code:
quest gm begin
state start begin
when 20095.chat."GameMaster-Shop" with pc.is_gm() begin
say_title("Seon-Hae:")
say("")
say("Ohooo, hoher Besuch!")
say("Einen GameMaster sieht man nicht")
say("jeden Tag. Deshalb moechte ich dir")
say("meine besten Sachen anbieten.")
say("")
say_title("Moechtest du etwas kaufen?")
local s = select("Ja", "Nein")
if s == 1 then
npc.open_shop(6194)
else
return
end
end
when 20095.chat."Dieser Ort" begin
say_title("Seon-Hae:")
say("")
say("Dies ist ein schoener Ort,")
say("findest du nicht auch?")
say("Staendig scheint hier die Sonne")
say("und es ist schoen warm.")
say("")
end
when 20095.chat."Infos" with pc.is_gm() begin
say_title("Seon-Hae:")
say("")
say("Du moechtest also Wichtige Nachrichten senden?")
local g = select ("Server Reboot" , "Server Offline" , "Relog" , "Homepage", "Abbrechen")
if g == 1 then
notice_all ("!!Achtung, Bitte ALLE Ausloggen... Server Reboot!!")
say_title("Seon-Hae:")
say("")
say("Nachricht wurde Gesendet!")
say("")
say("")
return
end
if g == 2 then
notice_all ("!!Achtung, Bitte ALLE Ausloggen... Server geht in 5 Min Offline!!")
say_title("Seon-Hae:")
say("")
say("Nachricht wurde Gesendet")
say("")
say("")
return
end
if g == 3 then
notice_all ("!!Achtung, Bitte ALLE Relog machen!!")
say_title("Seon-Hae:")
say("")
say("Nachricht wurde Gesendet")
say("")
say("")
return
end
if g == 4 then
notice_all ("http://www.imbamt2.de/")
say_title("Seon-Hae:")
say("")
say("Nachricht wurde Gesendet")
say("")
say("")
return
end
if g == 4 then
return
end
end
when 20095.chat."Mob-Spawn Event" with pc.is_gm() begin
say_title("Seon-Hae:")
say("")
say("Bei mir kannst du saemtliche Events starten.")
say("")
say_title("Waehle das zustartende oder zubeendende Event:")
say("")
local e = select("Zombie-Event", "Sensenmann-Event", "Eishexen-Event", "Metin-Event", "Drachen-Event", "Abbrechen")
if e == 1 then
say("Wenn du diese Quest aktivierst wird ein Event")
say("gestartet. Startest du dieses Event kannst du es")
say("nicht mehr abbrechen.")
say("Dieser NPC ist nur für Eventhelfer und Manager gedacht.")
say("Möchtest du das Event nun starten?")
local s = select ("Ja!", "Nein!")
if s == 1 then
notice_all("Zombie-Event gestartet!")
notice_all("Es wurde soeben ein Zombiesensenmann im Orktal vor dem")
notice_all("Tempel gespawnt. Vernichtet ihn und rettet die Orks.")
notice_all("Aber sei gewarnt er ist Stark und könnte so manchen")
notice_all("Kriegern von euch zu schaffen machen.")
notice_all("Und nun geht los und vernichtet diese Kreatur!")
mob.spawn(2525, 769, 805, 1)
else
return
end
end
if e == 2 then
say("Wenn du diese Quest aktivierst wird ein Event")
say("gestartet. Startest du dieses Event kannst du es")
say("nicht mehr abbrechen.")
say("Dieser NPC ist nur für Eventhelfer und Manager gedacht.")
say("Möchtest du das Event nun starten?")
local s = select ("Ja!", "Nein!")
if s == 1 then
pc.setqf("sensenmann_ot", 1)
notice_all("Sensenmann-Event gestartet!")
notice_all("Es wurden soeben 8 Sensenmannänner im Orktal vor dem")
notice_all("Tempel gesichtet. Sucht ihn auf und vernichtet ihn.")
notice_all("Aber sei gewarnt sie sind Stark und könnten so manchen")
notice_all("Kriegern von euch zu schaffen machen.")
notice_all("Und nun geht los und vernichtet diese Kreatur!")
regen_in_map("64", "locale/germany/map/map_n_threeway/sensennmannevent.txt" )
pc.setqf("sensenmann_ot", 0)
else
return
end
end
if e == 3 then
say("Wenn du diese Quest aktivierst wird ein Event")
say("gestartet. Startest du dieses Event kannst du es")
say("nicht mehr abbrechen.")
say("Dieser NPC ist nur für Eventhelfer und Manager gedacht.")
say("Möchtest du das Event nun starten?")
local s = select ("Ja!", "Nein!")
if s == 1 then
pc.setqf("eishexen_ot", 1)
notice_all("Eishexen-Event gestartet!")
notice_all("Es wurden soeben 4 Eishexen im Orktal vor dem")
notice_all("Tempel gesichtet. Sucht sie auf und vernichtet sie.")
notice_all("Aber sei gewarnt sie sind Stark und könnten so manchen")
notice_all("Kriegern von euch zu schaffen machen.")
notice_all("Und nun geht los und vernichtet diese Kreatur!")
regen_in_map("64", "locale/germany/map/map_n_threeway/eishexen.txt" )
pc.setqf("eishexen_ot", 0)
else
return
end
end
if e == 4 then
say("Wenn du diese Quest aktivierst wird ein Event")
say("gestartet. Startest du dieses Event kannst du es")
say("nicht mehr abbrechen.")
say("Dieser NPC ist nur für Eventhelfer und Manager gedacht.")
say("Möchtest du das Event nun starten?")
local s = select ("Ja!", "Nein!")
if s == 1 then
pc.setqf("metin_ot", 1)
notice_all("Metin-Event gestartet!")
notice_all("Es wurden soeben einige Metins im Orktal vor dem")
notice_all("Tempel gesichtet. Sucht sie auf und vernichtet sie.")
notice_all("Aber sei gewarnt sie sind halten viel aus und können")
notice_all("Kriegern von euch zu schaffen machen.")
notice_all("Und nun geht los und vernichtet diese Kreatur!")
regen_in_map("64", "locale/germany/map/map_n_threeway/metinsteine.txt" )
pc.setqf("metin_ot", 0)
else
return
end
end
if e == 5 then
say("Wenn du diese Quest aktivierst wird ein Event")
say("gestartet. Startest du dieses Event kannst du es")
say("nicht mehr abbrechen.")
say("Dieser NPC ist nur für Eventhelfer und Manager gedacht.")
say("Möchtest du das Event nun starten?")
local s = select ("Ja!", "Nein!")
if s == 1 then
notice_all("Drachen-Event gestartet!")
notice_all("Es wurde soeben ein Drache im Orktal vor dem")
notice_all("Tempel gespawnt. Vernichtet ihn und rettet die Orks.")
notice_all("Aber sei gewarnt er ist Stark und könnte so manchen")
notice_all("Kriegern von euch zu schaffen machen.")
notice_all("Und nun geht los und vernichtet diese Kreatur!")
mob.spawn(2291, 769, 805, 1)
else
return
end
end
when 20095.chat."Event Management" with pc.is_gm() begin
say_title("Seon-Hae:")
say("")
say("Bei mir kannst du saemtliche Events starten.")
say("")
say_title("Waehle das zustartende oder zubeendende Event:")
say("")
local e = select("Tag / Nacht", "Weihnachts Events", "Halloween Event", "Rates einstellen", "Abbrechen")
if e == 1 then
say_title("Seon-Hae:")
say("")
say("Du moechtest also zwischen Tag und")
say("Nacht wechseln ?")
local f = select ("Tag" , "Nacht", "Abbrechen")
if f == 1 then
command ("x 2")
elseif f == 2 then
command ("x 1")
elseif f == 3 then
return
end
elseif e == 2 then
say_title("Seon-Hae:")
say("")
say("Du moechtest also die Weihnachts Events Starten?")
local f = select ("Weihnachtsbaum", "Schnee", "Weihnachtsmusik", "Weihnachtsevent starten (Alles)", "Weihnachtsevent stoppen (Alles)", "Abbrechen")
if f == 1 then
local g = select ("Weihnachtsbaum aufstellen" , "Weihnachtsbaum wegraeumen", "Abbrechen")
if g == 1 then
command ("e xmas_tree 1")
notice_all ("Bei Weihnachtlicher Stimmung darf")
notice_all ("ein Weihnachtsbaum nicht fehlen!")
notice_all ("Das ImbaMT2 Team hat diesen geschmueckt")
notice_all ("und in der Mitte Berg Sohans aufgestellt!")
notice_all ("Frohes Fest!")
say_title("Seon-Hae:")
say("")
say("Es ist geschafft!")
say("Der Weihnachtsbaum steht!")
say("")
elseif g == 2 then
command ("e xmas_tree 0")
notice_all ("Weihnachten neigt sich langsam")
notice_all ("dem Ende! Der Weihnachtsbaum wird")
notice_all ("nun nichtmehr benoetigt")
notice_all ("und wir haben ihn deshalb abgebaut.")
say_title("Seon-Hae:")
say("")
say("Es ist geschafft!")
say("Der Weihnachtsbaum ist weg!")
say("")
elseif g == 3 then
return
end
elseif f == 2 then
local h = select ("Schnee an" , "Schnee aus", "Abbrechen")
if h == 1 then
command("e xmas_snow 1")
elseif h == 2 then
command ("e xmas_snow 0")
elseif h == 3 then
return
end
elseif f == 3 then
local i = select ("Musik abspielen", "Musik stoppen", "Abbrechen")
if i == 1 then
command("e xmas_song 1")
elseif i == 2 then
command("e xmas_song 0")
elseif i == 3 then
return
end
elseif f == 4 then
say("Willst du wirklich alles aktivieren?")
say("Also Nachtmodus, den Weihnachtsbaum,")
say("Schnee und die Weihnachtsmusik?")
say("")
local g_sub = select ("Ja", "Nein")
if g_sub == 1 then
command("e xmas_tree 1")
command("e xmas_song 1")
command("e xmas_boom 1")
command("e xmas_snow 1")
say("Alles aktiviert!")
elseif g_sub == 2 then
return
end
elseif f == 5 then
say("Willst du wirklich alles deaktivieren?")
say("Also Nachtmodus, den Weihnachtsbaum,")
say("Schnee und die Weihnachtsmusik?")
say("")
local g_desub = select ("Ja", "Nein")
if g_desub == 1 then
command("e xmas_tree 0")
command("e xmas_song 0")
command("e xmas_boom 0")
command("e xmas_snow 0")
say("Alles deaktiviert!")
elseif g_desub == 2 then
return
end
elseif f == 6 then
return
end
elseif e == 3 then
if game.get_event_flag("kürbisse_drop") == 0 then
say("Das Event ist gerade nicht Aktive.")
say("Willst du es Aktivieren")
local s = select ("Ja", "Nein")
if s == 1 then
say("Halloween Event wurde aktiviert!")
game.set_event_flag("moon_drop", 1)
notice_all("Das Halloween Event wurde aktiviert!")
else
return
end
else
say("Das Halloween Event ist aktiviert")
say("Möchtest du es deaktivieren?")
local s = select("Ja","Nein")
if s == 1 then
say("Das Halloween Event wurde deaktiviert!")
game.set_event_flag("moon_drop", 0)
notice_all("Das Halloween Event wurde deaktiviert!")
else
return
end
end
say_title ("Sei gegrüsst, "..pc.get_name().."!")
say ("Das Halloween-Event hat begonnen und jetzt")
say ("heisst es, dass jeder Spieler die Chance hat,")
say ("etwas Besonderes zu gewinnen.")
say ("Als Alternativ-Drop wurden Kürbisse aktiviert,")
say ("die man von jedem Monster erhalten kann.")
say ("Daher solltest du diese gut aufbewahren, denn")
say ("man bekommt am Ende eine kleine Überraschung.")
say ("Man kann ab 5 Kürbise bis 100 Stück etwas gewinnen")
wait()
say_title ("Ab Bestimmter Anzahl von Kürbissen:")
say ("")
say_reward ("5 = Reittier Siegel")
say_reward ("10 = Frucht des Lebens")
say_reward ("25 = Seelensteine")
say_reward ("50 = 3 Perlen jeder Sorte")
say_reward ("100 = Regenbogenstein")
end
when 20095.chat."Kürbisse tauschen" with pc.count_item(50095) >= 5 begin
say_title (""..pc.get_name()..":")
say ("Ich habe Kürbisse und möchte diese tauschen.")
local a = select ("5 Kürbisse", "10 Kürbisse", "25 Kürbisse", "50 Kürbisse", "100 Kürbisse", "Abbrechen")
if a == 1 then
if pc.count_item(50095) >= 5 then
pc.give_item2(71114, 10)
pc.give_item2(71115, 10)
pc.give_item2(71116, 10)
pc.give_item2(71117, 10)
pc.remove_item(50095, 5)
else
say ("Du hast zu wenig kuerbise")
end
elseif a == 2 then
if pc.count_item(50095) >= 10 then
pc.give_item2(71107)
pc.give_item2(71107)
pc.give_item2(71107)
pc.remove_item(50095, 10)
else
say ("Du hast du wenig kuerbise")
end
elseif a == 3 then
if pc.count_item(50095) >= 25 then
pc.give_item2(50513)
pc.give_item2(50513)
pc.give_item2(50513)
pc.remove_item(50095, 25)
else
say("Du hast zu wenig Kuerbise")
end
elseif a == 4 then
if pc.count_item(50095) >= 50
pc.give_item2(27992)
pc.give_item2(27993)
pc.give_item2(27994)
pc.give_item2(27992)
pc.give_item2(27993)
pc.give_item2(27994)
pc.give_item2(27992)
pc.give_item2(27993)
pc.give_item2(27994)
pc.remove_item(50095, 50)
else
say("Du hast zuwenig kuerbise")
end
elseif a == 5 then
if pc.count_item(50095) >= 100 then
pc.give_item2(50512)
pc.remove_item(50095, 100)
end
return
end
elseif e == 24 then
say_title("Seon-Hae:")
say("")
say("Du moechtest also die Rates einstellen??")
say("")
say_title("Wähle die zu einstellende Rate")
local rateset = select ("EXP","Yang","Max-Yang","Gegenstaende","Abbrechen")
if rateset == 1 then
say_title("Seon-Hae:")
say("")
say("Wie hoch soll die EXP-Rate werden?")
local w =select ("200","300","400","500","600","700","750","800","900","1000","Abbrechen")
if w == 1 then
command("priv_empire 0 4:exp 200 24")
elseif w == 2 then
command("priv_empire 0 4:exp 300 24")
elseif w == 3 then
command("priv_empire 0 4:exp 400 24")
elseif w == 4 then
command("priv_empire 0 4:exp 500 24")
elseif w == 5 then
command("priv_empire 0 4:exp 600 24")
elseif w == 6 then
command("priv_empire 0 4:exp 700 24")
elseif w == 7 then
command("priv_empire 0 4:exp 750 24")
elseif w == 8 then
command("priv_empire 0 4:exp 800 24")
elseif w == 9 then
command("priv_empire 0 4:exp 900 24")
elseif w == 10 then
command("priv_empire 0 4:exp 1000 24")
elseif w == 11 then
return
end
elseif rateset == 2 then
say_title("Seon-Hae:")
say("")
say("Wie hoch soll die Yangdrop-Rate werden?")
local x =select ("200","300","400","500","600","700","750","800","900","1000","Abbrechen")
if x == 1 then
command("priv_empire 0 2:gold_drop 200 24")
elseif x == 2 then
command("priv_empire 0 2:gold_drop 300 24")
elseif x == 3 then
command("priv_empire 0 2:gold_drop 400 24")
elseif x == 4 then
command("priv_empire 0 2:gold_drop 500 24")
elseif x == 5 then
command("priv_empire 0 2:gold_drop 600 24")
elseif x == 6 then
command("priv_empire 0 2:gold_drop 700 24")
elseif x == 7 then
command("priv_empire 0 2:gold_drop 750 24")
elseif x == 8 then
command("priv_empire 0 2:gold_drop 800 24")
elseif x == 9 then
command("priv_empire 0 2:gold_drop 900 24")
elseif x == 10 then
command("priv_empire 0 2:gold_drop 1000 24")
elseif x == 11 then
return
end
elseif rateset == 3 then
say_title("Seon-Hae:")
say("")
say("Wie hoch soll die MaxYang-Drop-Rate werden?")
local y =select ("200","300","400","500","600","700","750","800","900","1000","Abbrechen")
if y == 1 then
command("priv_empire 0 3:gold10_drop 200 24")
elseif y == 2 then
command("priv_empire 0 3:gold10_drop 300 24")
elseif y == 3 then
command("priv_empire 0 3:gold10_drop 400 24")
elseif y == 4 then
command("priv_empire 0 3:gold10_drop 500 24")
elseif y == 5 then
command("priv_empire 0 3:gold10_drop 600 24")
elseif y == 6 then
command("priv_empire 0 3:gold10_drop 700 24")
elseif y == 7 then
command("priv_empire 0 3:gold10_drop 750 24")
elseif y == 8 then
command("priv_empire 0 3:gold10_drop 800 24")
elseif y == 9 then
command("priv_empire 0 3:gold10_drop 900 24")
elseif y == 10 then
command("priv_empire 0 3:gold10_drop 1000 24")
elseif y == 11 then
return
end
elseif rateset == 4 then
say_title("Seon-Hae:")
say("")
say("Wie hoch soll die Gegenstandsdrop-Rate werden?")
local z =select ("200","300","400","500","600","700","750","800","900","1000","Abbrechen")
if z == 1 then
command("priv_empire 0 1:item_drop 200 24")
elseif z == 2 then
command("priv_empire 0 1:item_drop 300 24")
elseif z == 3 then
command("priv_empire 0 1:item_drop 400 24")
elseif z == 4 then
command("priv_empire 0 1:item_drop 500 24")
elseif z == 5 then
command("priv_empire 0 1:item_drop 600 24")
elseif z == 6 then
command("priv_empire 0 1:item_drop 700 24")
elseif z == 7 then
command("priv_empire 0 1:item_drop 750 24")
elseif z == 8 then
command("priv_empire 0 1:item_drop 800 24")
elseif z == 9 then
command("priv_empire 0 1:item_drop 900 24")
elseif z == 10 then
command("priv_empire 0 1:item_drop 1000 24")
elseif z == 11 then
return
end
elseif rateset == 5 then
return
end
elseif e == 4 then
return
end
end
end
end