Code:
quest gmtool begin
state start begin
when 80000.use begin
if pc.is_gm() then
local haupt = select("Info Ansagen", "Charakter-Optionen", "Monster rufen", "GM-Shops für faule", "Unsichtbar AN/AUS", "Abbrechen")
if haupt == 1 then
say_title("Info Ansagen:")
local r = select("GM verfügbar" , "GM nicht verfügbar" , "Kommt noch!" , "ID und PW Sicherheit", "Selbst schreiben", "Abbrechen")
if r == 1 then
say("Hallo, "..pc.get_name() .." !")
say("")
say("Wenn du diese Aktion ausführst wird folgendes gesendet:")
say("")
say(""..pc.get_name() .." steht nun für Fragen und Probleme zur Verfügung!")
say("")
say("")
say("Möchtest du diesen Text an alle Spieler senden?")
local k = select("Ja", "Nein")
if k == 1 then
notice_all(""..pc.get_name() .." steht euch für Fragen und Probleme zur Verfügung!")
elseif k == 2 then
return
end
elseif r == 2 then
say("Hallo, "..pc.get_name() .." !")
say("")
say("Wenn du diese Aktion ausführst wird folgendes gesendet:")
say("")
say(""..pc.get_name() .." geht nun Offline und steht nicht mehr zu Verfügung.")
say(""..pc.get_name() .." : Ich wünsche euch weiterhin Viel Spaß!")
say("")
say("Möchtest du diesen Text an alle Spieler senden?")
local o = select("Ja", "Nein")
if o == 1 then
notice_all(""..pc.get_name() .." geht nun Offline und steht nicht mehr zu Verfügung.")
notice_all(""..pc.get_name() .." : Ich wünsche euch weiterhin Viel Spaß!")
elseif o == 2 then
return
end
elseif r == 3 then
notice_all("Hier wird noch etwas eingefügt.")
notice_all("")
elseif r == 4 then
say("Hallo, "..pc.get_name() .." ! ")
say("")
say("Wenn du diese Aktion ausführst wird folgendes gesendet:")
say("")
say("Achtung!")
say("Ein GameMaster fragt niemals nach euren Login-Daten!")
say("Du erkennst einen GM an den eckigen Klammern [ ] im Namen.")
say("Zudem empfehlen wir eure Daten nicht an Dritte weiterzugeben!")
say("")
say("Möchtest du diesen Text an alle Spieler senden?")
local w = select("Ja", "Nein")
if w == 1 then
notice_all("Achtung!")
notice_all("Ein GameMaster fragt niemals nach euren Login-Daten!")
notice_all("Du erkennst einen [GM] an den eckigen Klammern [ ]")
notice_all("Zudem wird empfohlen eure Daten nicht an Dritte weiterzugeben!")
elseif w == 2 then
return
end
elseif r == 5 then
say("Bitte gib den Text ein:")
local text1 = input()
say("weiter")
local text2 = input()
say("weiter")
local text3 = input()
say("")
say("Text wird ausgegeben.")
notice_all(" "..text1.." "..text2.." "..text3.." ")
elseif r == 6 then
return
end
elseif haupt == 2 then
say_title("Charakter-Optionen:")
say("")
say("Bitte wähle aus:")
say("")
local s = select("Rangpunkte", "Perfekte Fertigkeiten", "Yang holen", "Verwandeln", "Abbrechen")
if s == 1 then
say("")
say("Welche Rangpunkte möchtest du dir geben?")
say("")
say("")
local ra = select("positive Rangpunkte", "negative Rangpunkte", "Auf Neutral setzen", "Abbrechen")
if ra == 1 then
say("")
say("Wie viele Rangpunkte möchtest du dir geben?")
say("")
local t = select("Freundlich (1.000)", "Gut (4.000)", "Edel (8.000)", "Ritterlich (12.000)", "Voll (20.000)", "Abbrechen")
if t == 1 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf 1.000 gesetzt!")
say("")
say("Du bist jetzt Freundlich.")
command("set "..pc.get_name() .." align 10000")
elseif t == 2 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf 4.000 gesetzt!")
say("")
say("Du bist jetzt Gut")
command("set "..pc.get_name() .." align 40000")
elseif t == 3 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf 8.000 gesetzt!")
say("")
say("Du bist jetzt Edel")
command("set "..pc.get_name() .." align 80000")
elseif t == 4 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf 12.000 gesetzt!")
say("")
say("Du bist nun Ritterlich.")
command("set "..pc.get_name() .." align 120000")
elseif t == 5 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf 20.000 gesetzt!")
say("")
say("Du bist nun Ritterlich und besitzt alle möglichen Rangpunkte.")
command("set "..pc.get_name() .." align 200000")
elseif t == 6 then
return
end
elseif ra == 2 then
say("")
say("Wie viele Rangpunkte möchtest du dir abziehen?")
say("")
local ag = select("Aggressiv (-2.000)", "Arglistig (-6.000)", "Bösartig (-10.000)", "Grausam (-14.000)", "Wenigste (-20.000)", "Abbrechen")
if ag == 1 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf -2.000 gesetzt!")
say("")
say("Du bist jetzt Aggressiv.")
command("set "..pc.get_name() .." align -20000")
elseif ag == 2 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf -6.000 gesetzt!")
say("")
say("Du bist nun Arglistig")
command("set "..pc.get_name() .." align -60000")
elseif ag == 3 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf -10.000 gesetzt!")
say("")
say("Du bist jetzt Bösartig")
command("set "..pc.get_name() .." align -100000")
elseif ag == 4 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf -14.000 gesetzt!")
say("")
say("Du bist nun Grausam.")
command("set "..pc.get_name() .." align -140000")
elseif ag == 5 then
say("")
say_reward("Deine Rangpunkte wurden erfolgreich auf -20.000 gesetzt!")
say("")
say("Du bist nun Grausam und besitzt die niedrigste Rangpunktzahl.")
command("set "..pc.get_name() .." align -200000")
elseif ag == 6 then
return
end
elseif ra == 3 then
say_title("Auf Neutral setzen:")
say("")
say("Möchtest du deine Rangpunkte auf Neutral und")
say("somit auf 0 setzen?")
local op = select("Ja", "Nein")
if op == 1 then
say_reward("")
say_reward("Deine Rangpunkte wurden erfolreich auf 0 gesetzt.")
command("set "..pc.get_name() .." align 0")
elseif op == 2 then
return
end
elseif ra == 4 then
return
end
elseif s == 2 then
say_title("Wähle deine Charakterklasse:")
local b = select("Krieger", "Sura", "Ninja", "Schamane", "Abbrechen")
elseif b == 1 then
pc.set_skill_level(1, 59)
pc.set_skill_level(2, 59)
pc.set_skill_level(3, 59)
pc.set_skill_level(4, 59)
pc.set_skill_level(5, 59)
pc.set_skill_level(16, 59)
pc.set_skill_level(17, 59)
pc.set_skill_level(18, 59)
pc.set_skill_level(19, 59)
pc.set_skill_level(20, 59)
pc.set_skill_level(121, 40)
pc.set_skill_level(124, 40)
pc.set_skill_level(129, 40)
pc.set_skill_level(131, 10)
pc.set_skill_level(130, 30)
pc.set_skill_level(128, 20)
pc.set_skill_level(127, 20)
pc.set_skill_level(126, 20)
pc.set_skill_level(137, 20)
pc.set_skill_level(138, 20)
pc.set_skill_level(139, 20)
pc.set_skill_level(140, 20)
elseif b == 2 then
pc.set_skill_level(61, 59)
pc.set_skill_level(62, 59)
pc.set_skill_level(63, 59)
pc.set_skill_level(64, 59)
pc.set_skill_level(65, 59)
pc.set_skill_level(66, 59)
pc.set_skill_level(76, 59)
pc.set_skill_level(77, 59)
pc.set_skill_level(78, 59)
pc.set_skill_level(79, 59)
pc.set_skill_level(80, 59)
pc.set_skill_level(81, 59)
pc.set_skill_level(121, 40)
pc.set_skill_level(124, 40)
pc.set_skill_level(129, 40)
pc.set_skill_level(131, 10)
pc.set_skill_level(130, 30)
pc.set_skill_level(128, 20)
pc.set_skill_level(127, 20)
pc.set_skill_level(126, 20)
pc.set_skill_level(137, 20)
pc.set_skill_level(138, 20)
pc.set_skill_level(139, 20)
pc.set_skill_level(140, 20)
elseif b == 3 then
pc.set_skill_level(31, 59)
pc.set_skill_level(32, 59)
pc.set_skill_level(33, 59)
pc.set_skill_level(34, 59)
pc.set_skill_level(35, 59)
pc.set_skill_level(46, 59)
pc.set_skill_level(47, 59)
pc.set_skill_level(48, 59)
pc.set_skill_level(49, 59)
pc.set_skill_level(50, 59)
pc.set_skill_level(121, 40)
pc.set_skill_level(124, 40)
pc.set_skill_level(129, 40)
pc.set_skill_level(131, 10)
pc.set_skill_level(130, 30)
pc.set_skill_level(128, 20)
pc.set_skill_level(127, 20)
pc.set_skill_level(126, 20)
pc.set_skill_level(137, 20)
pc.set_skill_level(138, 20)
pc.set_skill_level(139, 20)
pc.set_skill_level(140, 20)
elseif b == 4 then
pc.set_skill_level(91, 59)
pc.set_skill_level(92, 59)
pc.set_skill_level(93, 59)
pc.set_skill_level(94, 59)
pc.set_skill_level(95, 59)
pc.set_skill_level(105, 59)
pc.set_skill_level(106, 59)
pc.set_skill_level(107, 59)
pc.set_skill_level(108, 59)
pc.set_skill_level(109, 59)
pc.set_skill_level(110, 59)
pc.set_skill_level(111, 59)
pc.set_skill_level(121, 40)
pc.set_skill_level(124, 40)
pc.set_skill_level(129, 40)
pc.set_skill_level(131, 10)
pc.set_skill_level(130, 30)
pc.set_skill_level(128, 20)
pc.set_skill_level(127, 20)
pc.set_skill_level(126, 20)
pc.set_skill_level(137, 20)
pc.set_skill_level(138, 20)
pc.set_skill_level(139, 20)
pc.set_skill_level(140, 20)
elseif b == 5 then
return
end
elseif s == 3 then
say("Wie viel Yang möchtest du dir geben?")
say("Nichts eingeben zum Abbrechen.")
say("")
say("Gebe eine Zahl von 1 - 900 Milliarden ein.")
say("")
local zu = input()
if zu == "" then
say_reward("Du hast keine Zahl eingegeben. Abbruch.")
return
else
pc.changegold(zu)
say_reward("Deine Yang wurden erfolgreich gutgeschrieben.")
end
elseif s == 4 then
say_title("Verwandeln:")
local vw = select("In mein Charakter (Zurück)", "Monster", "Abbrechen")
if vw == 1 then
pc.polymorph(1)
elseif vw == 2 then
say_title("Monster Verwandlung:")
say("Zum Abbrechen auf OK ohne Eingabe drücken.")
say("")
say("Bitte gib die Monster-ID ein:")
local p = input()
if p == "" then
say_reward("")
say_reward("Du hast keine Monster-ID eingegeben. Abbruch.")
return
else
say_reward("")
say_reward("Du hast dich erfolgreich verwandelt.")
say_reward("Die Abklingzeit der Verwandlung beträgt 1 Stunde.")
say("")
say("Hinweis: Du kannst dich auch früher zurück verwandeln.")
pc.polymorph(p, 3600)
end
elseif s == 5 then
return
end
elseif haupt == 3 then
say("Zum Abbrechen einfach nichts eingeben und OK drücken.")
say("Bitte Gib die Monster-ID ein:")
local kl = input()
if kl == "" then
say_reward("Du hast keine ID eingegeben. Abbruch.")
return
else
say_reward(""..mob_name(kl).." wurde gerufen.")
mob.spawn(kl, 1)
end
elseif haupt == 4 then
local m = select("GM Waffen & Rüstungen", "Uppitems", "Gemischtwaren", "Normale EQ-Items", "Push-Tränke", "Pet-Shop", "Steine und Erze", "Reittiere", "Frisuren", "Abbrechen")
if m == 1 then
npc.open_shop(9010)
elseif m == 2 then
say("Wähle eines der beiden Shops aus:")
say("")
say("Hinweis:")
say("In Uppitems 2 befindet sich nur Fingerknochen,")
say("Quarzsand, Traktat, Drachenschuppe und Drachenkralle.")
say("In Uppitems 1 alles andere!")
local up = select("Uppitems 1", "Uppitems 2", "Abbrechen")
if up == 1 then
npc.open_shop(1)
elseif up == 2 then
npc.open_shop(77)
elseif up == 3 then
return
end
elseif m == 3 then
say("Möchtest du den Gemischtwaren-Shop öffnen?")
say("")
say("Hinweis:")
say("Hier befinden sich Potts, Bonis und mehr.")
say("")
local f = select("Ja", "Nein")
if f == 1 then
npc.open_shop(3)
elseif f == 2 then
return
end
elseif m == 4 then
say_title("Wähl aus digga")
local no = select("Waffen", "Rüstungen & Schilde", "Sonstiges EQ", "Abbrechen")
if no == 1 then
npc.open_shop(5)
elseif no == 2 then
npc.open_shop(6)
elseif no == 3 then
npc.open_shop(4)
elseif no == 4 then
return
end
elseif m == 5 then
say_title("Hallo, "..pc.get_name() .." ! ")
say("")
say("Möchtest du den Push-Tränke-Shop öffnen?")
say("")
say("")
local g = select("Ja", "Nein")
if g == 1 then
npc.open_shop(44)
elseif g == 2 then
return
end
elseif m == 6 then
say("")
say("")
say("Möchtest du den Pet-Shop öffnen?")
say("")
local x = select("Ja", "Nein")
if x == 1 then
npc.open_shop(100)
elseif x == 2 then
return
end
elseif m == 7 then
say("")
say("")
say("Möchtest du den Shop mit Steinen und Erzen öffnen?")
say("")
local l = select("Ja", "Nein")
if l == 1 then
npc.open_shop(8)
elseif l == 2 then
return
end
elseif m == 8 then
say("")
say("Wähle ein Shop aus:")
local c = select("Reittier-Siegel 1", "Reittier-Siegel 2", "Abbrechen")
if c == 1 then
npc.open_shop(20002)
elseif c == 2 then
npc.open_shop(20003)
elseif c == 3 then
return
end
elseif m == 9 then
say_title("Frisuren:")
say("")
say("Welchen Frisuren-Shop möchtest du öffnen?")
say("")
local h = select("Oldschool Frisuren", "Frisuren von 2010/2011", "Neue Frisuren", "Abbrechen")
if h == 1 then
say_title("Oldschool Frisuren:")
local v = select("Krieger", "Ninja", "Sura", "Schamane", "Abbrechen")
if v == 1 then
npc.open_shop(33)
elseif v == 2 then
npc.open_shop(34)
elseif v == 3 then
npc.open_shop(35)
elseif v == 4 then
npc.open_shop(36)
elseif v == 5 then
return
end
elseif h == 2 then
say_title("Frisuren 2010/2011:")
local q = select("Krieger", "Ninja", "Sura", "Schamane", "Abbrechen")
if q == 1 then
npc.open_shop(37)
elseif q == 2 then
npc.open_shop(38)
elseif q == 3 then
npc.open_shop(39)
elseif q == 4 then
npc.open_shop(40)
elseif q == 5 then
return
end
elseif h == 3 then
say_title("Neue Frisuren:")
say("")
say("Wähle:")
say("")
local e = select("Neue Frisuren 1", "Neue Frisuren 2", "Abbrechen")
if e == 1 then
npc.open_shop(41)
elseif e == 2 then
npc.open_shop(42)
elseif e == 3 then
return
end
elseif h == 4 then
return
end
elseif m == 10 then
return
end
elseif haupt == 5 then
command("in")
return
end
elseif haupt == 6 then
return
end
end
end
end