Dar niciunul nu este stralucit. Asa ca m-am gandit sa va postez acest quest care include mai multe.(Nu aveti nevoie de iteme modate)
Cod: Selectaţi tot
----------------------------------------------------
--
--GM Item by FIrewall
--
----------------------------------------------------
quest gm_item begin
state start begin
when 70021.chat. "Mapindex" begin
say("")
say("Mapindex dvs.: "..pc.get_map_index().."")
say("Coordonate: "..pc.get_local_x().." "..pc.get_local_y().."")
say("")
end
function text()
say("In cat timp se va opri?")
say("5 Minute = 300 Secunde")
say("10 Minute = 600 Secunde")
say("30 Minute = 1800 Secunde")
say("1 Ora = 3600 Secunde")
say("24 Ore = 86400 Secunde")
say("7 Zile = 604800 Secunde")
end
function seiteeins()
say_title("Urmatoarele bonusuri pe care le puteti seta(Pagina1)")
local i = select("Aparare +", "Aparare impotriva %", "Puternic impotriva %", "Viteza de miscare+", "Viteza de atac+", "Cresterea pagubelor %", "Reducerea efectelor negative.. %", "Pagina Urmatoare", "Renunt")
if 1 == i then --Aparare
say_title("Aparare")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Aparare")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.DEF_GRADE_BONUS,wert,zeit)
chat("Ai "..wert.."+ aparare pentru "..zeit.." secunde.")
end
if 2 == i then --Aparare impotriva
local s = select("Aparare impotriva necunostintei", "Aparare impotriva incetinirii", "Aparare impotriva caderi", "Toate Rasele", "Rezistenta Magie", "Renunta")
if 1 == s then
say_title("Aparare impotriva necunostintei")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.IMMUNE_STUN,100,zeit)
chat("Esti aparat impotriva necunostintei pentru "..zeit.." secunde.")
elseif 2 == s then
say_title("Aparare impotriva incetinirii")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.IMMUNE_SLOW,100,zeit)
chat("Esti aparat impotriva incetinirii pentru "..zeit.." secunde.")
elseif 3 == s then
say_title("Aparare impotriva caderi")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.IMMUNE_FALL,100,zeit)
chat("Esti aparat impotriva caderi pentru "..zeit.." secunde.")
elseif 4 == s then
say_title("Aparare impotriva raselor")
say("Care este valoarea pe care o doresti?")
local wert = tonumber(input("0")) or 0
say_title("Aparare impotriva tuturor raselor")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect_point(POINT_RESIST_WARRIOR,wert,zeit)
affect.add_collect_point(POINT_RESIST_ASSASSIN,wert,zeit)
affect.add_collect_point(POINT_RESIST_SURA,wert,zeit)
affect.add_collect_point(POINT_RESIST_SHAMAN,wert,zeit)
chat("Esti "..wert.."% aparat impotriva Razboinicilor,Ninja,Sura,Saman pentru "..zeit.." secunde.")
elseif 5 == s then
say_title("Aparare Magie")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Aparare Magie")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect_point(POINT_RESIST_MAGIC,wert,zeit)
chat("Esti aparat "..wert.."% impotriva magiei pentru "..zeit.." secundessss.")
end
end
if 3 == i then --Puternic impotrica %
say("Ce bonusuri doresti?")
local s = select("Vampir", "Diavol", "Monstrii", "Semi-oamenilor", "Toate rasele", "Renunt")
if 1 == s then
say_title("Puternic impotriva vampirilor")
say("Ce valoare doriti?")
local wert = tonumber(input("0")) or 0
say_title("Puternic impotriva vampirilor")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.ATTBONUS_UNDEAD,wert,zeit)
chat("Esti "..wert.."% puternic impotriva vampirilor pentru "..zeit.." secunde.")
elseif 2 == s then
say_title("Puternic impotriva Diavolului")
say("Ce valoare doriti?")
local wert = tonumber(input("0")) or 0
say_title("Puternic impotriva Diavolului")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.ATTBONUS_DEVIL,wert,zeit)
chat("Esti "..wert.."% puternic impotriva diavolului pentru "..zeit.." secunde.")
elseif 3 == s then
say_title("Puternic impotriva Monstrilor")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Puternic impotriva Monstrilor")
gm_item.text()
local zeit = tonumber(input("0")) or 0
--affect.add_collect(apply.ATT_BONUS_TO_MONSTER,wert,zeit)
affect.add_collect_point(POINT_ATTBONUS_MONSTER,wert, zeit)
chat("Esti "..wert.."% puternic impotriva monstrilor pentru "..zeit.." secunde.")
elseif 4 == s then
say_title("Puternic impotriva Semi-oamenilor")
say("Ce valoare doriti?")
local wert = tonumber(input("0")) or 0
say_title("Puternic impotriva Semi-oamenilor")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.ATTBONUS_HUMAN,wert,zeit)
chat("Esti "..wert.."% puternic impotriva Semi-oamenilor pentru "..zeit.." secunde.")
elseif 5 == s then
say_title("Puternic impotriva tuturor raselor")
say("Ce valoare doriti?")
local wert = tonumber(input("0")) or 0
say_title("Puternic impotriva tuturor raselor")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.ATTBONUS_WARRIOR,wert,zeit)
affect.add_collect(apply.ATTBONUS_ASSASSIN,wert,zeit)
affect.add_collect(apply.ATTBONUS_SURA,wert,zeit)
affect.add_collect(apply.ATTBONUS_SHAMAN,wert,zeit)
chat("Esti "..wert.."% puternic impotriva Razboinic,Ninja,Sura,Saman pentru "..zeit.." secunde.")
end
end
if 4 == i then --Viteza de miscare
say_title("Viteza de miscare")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Viteza de miscare")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.MOV_SPEED, wert, zeit)
chat("Ai "..wert.."+ viteza de miscare pentru "..zeit.." secunde.")
end
if 5 == i then --Viteza de atac
say_title("Viteza de atac")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Viteza de atac")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.ATT_SPEED, wert, zeit)
chat("Ai "..wert.."+ Viteza de atac pentru "..zeit.." secunde.")
end
if 6 == i then --Cresterea Pagubelor
say_title("Cresterea Pagubelor")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Cresterea Pagubelor")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect_point(POINT_ATT_BONUS,wert,zeit)
chat("Ai "..wert.."% Cresterea Pagubelor pentru "..zeit.." secunde.")
end
if 7 == i then --Reducerea Pagubelor
say_title("Reducerea Pagubelor")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Reducerea Pagubelor (1,2 maini deff, pumnal, sageti si magie)")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.RESIST_SWORD, wert, zeit)
affect.add_collect(apply.RESIST_TWOHAND, wert, zeit)
affect.add_collect(apply.RESIST_DAGGER, wert, zeit)
affect.add_collect(apply.RESIST_BELL, wert, zeit)
affect.add_collect(apply.RESIST_FAN, wert, zeit)
affect.add_collect(apply.RESIST_MAGIC, wert, zeit)
chat("Ai "..wert.."% reducerea pagubelor pentru "..zeit.." secunde.")
end
if 8 == i then --Pagina Urmatoare
say_title("Pagina Urmatoare")
gm_item.seitezwei()
end
end
function seitezwei()
say_title("Urmatoarele bonusuri le poti seta(pagina 2)")
local i = select("HP +", "Atac +", "Reducerea Otrvairii %", "Regenerare HP %", "Viteza Magiei +", "Sansa de a bloca atacul corporal %", "Inapoi", "Stergeti toate bonusurile", "Renunta")
if 1== i then --HP
say_title("HP")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("HP")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect_point(POINT_MAX_HP, wert, zeit)
affect.add_collect_point(POINT_HP, wert, zeit)
chat("Ai + "..wert.."HP pentru "..zeit.." secunde.")
end
if 2 == i then --Atac
say_title("Atac")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Atac")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect(apply.ATT_GRADE_BONUS, wert, zeit)
chat("Ai + "..wert.." atac pentru "..zeit.." secunde.")
end
if 3 == i then --Reducerea Otrvairii
say_title("Reducerea Otrvairii")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Reducerea Otrvairii")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect_point(POINT_POISON_REDUCE,wert,zeit)
chat("Ai "..wert.."% Reducerea Otrvairii pentru "..zeit.." secunde.")
end
if 4 == i then --Regenerare HP
say_title("Regenerare HP")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Regenerare HP")
gm_item.text()
local zeit = tonumber(input("0")) or 0
affect.add_collect_point(POINT_HP_REGEN, wert, zeit)
chat("Ai "..wert.."% Regenerare HP pentru "..zeit.." secunde.")
end
if 5 == i then --Viteza magiei
say_title("Viteza magiei")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Viteza magiei")
gm_item.text()
local zeit = tonumber(input("0")) or 0
--affect.add_collect(apply.CAST_SPEED,wert,Zeit)
chat("Ai + "..wert.."% Viteza magiei pentru "..zeit.." secunde.")
affect.add_collect_point(POINT_CASTING_SPEED, wert, zeit)
end
if 6 == i then --Sansa de a bloca atacul corporal
say_title("Sansa de a bloca atacul corporal")
say("Ce valoare doresti?")
local wert = tonumber(input("0")) or 0
say_title("Sansa de a bloca atacul corporal")
gm_item.text()
local zeit = tonumber(input("0")) or 0
chat("Ai + "..wert.."% Sansa de a bloca atacul corporal pentru "..zeit.." secunde.")
affect.add_collect_point(POINT_BLOCK , wert, zeit)
end
if 7 == i then --Pagina Urmatoare
gm_item.seiteeins()
elseif 8 == i then
say("Toate bonusurile au fost sterse.")
end
end
function tanakas(a,b)
local anzahl = a
i = 1
while i <= anzahl do
mob.spawn(5005,130,130,1)
i = i + 1
end
local anzahl1 = b
o = 0
while o <= anzahl1 do
mob.spawn(5004,130,130,1)
o = o + 1
end
game.set_event_flag("50tanaka",1)
game.set_event_flag("50tanaka_anzahl",b)
notice_all("A inceput eventul Tanaka")
notice_all("Din Tanaka va cadea cate o ureche ...voi veti da click pe ea pentru a primi o recompensa.")
notice_all("Pentur a participa la event duceti-va la "..mob_name(9004).." in Map1")
notice_all("Acolo veti gasi un intrec batalion de "..b.." Tanakas")
end
function skillsett(a,b,c,d)
if a == 99999999999 then
command("setsk 124 50")
command("setsk 131 50")
command("setsk 121 50")
command("setsk 129 50")
command("setsk 126 50")
command("setsk 127 50")
command("setsk 128 50")
command("setsk 137 59")
command("setsk 138 59")
command("setsk 139 59")
command("setsk 140 59")
command("setsk 125 59")
command("setsk 130 59")
say("Minerit P")
say("Cal P")
say("Lider P")
say("Transformare P")
say("Regatu Rosu P")
say("Regatu Galben P")
say("Chemarea Calului P")
say("Calarie P")
return
end
pc.set_skill_group(""..d.."")
i = a
while i <= b do
pc.set_skill_level(""..i.."", ""..c.."")
i = i + 1
end
command("setsk "..a.." "..c.."")
end
function tanakaevent()
if pc.get_map_index() == 63 then
say("Aceasta obtiun va spawn-a Pirati Tanaka")
say("Si va da drumul la dropul la ureche!")
say("")
if game.get_event_flag("50tanaka_back") == 0 then
say_reward("Inapoi in sat portul este dezactivat")
else
say_reward("inapoi portul este activ.")
end
say("")
say("Doresti sa pornesti Tanaka Event?")
local m =select("Da", "Nu", "Sfarsit", "Inapoi in satul Port/off")
if 1==m then
say_reward("Cati Pirati Tanaka doresti sa apara?")
say_reward("#este numarul real Tanaka")
local o =select("50 #1", "100 #2", "150 #3","Specificati informatia")
if 1==o then gm_item.tanakas(50,1)
elseif 2 == o then gm_item.tanakas(100,2)
elseif 3 == o then gm_item.tanakas(150,3)
elseif 4 == o then
say("Cati Pirati Tanaka doresti sa apara?")
local a = tonumber(input("0")) or 0
say("Cati Pirati Tanaka doresti sa apara?")
local b = tonumber(input("0")) or 0
gm_item.tanakas(a,b)
end
elseif 2 == m then
say("50 Tanaka Event nu va porni!")
elseif 3 == m then
game.set_event_flag("50tanaka",0)
say("50 Tanaka Event sa terminat.")
warp_all_to_village( pc.get_map_index() , 5)
elseif 4 == m then
if game.get_event_flag("50tanaka_back") == 0 then
say("50 Tanaka event, portul este activat.")
game.set_event_flag("50tanaka_back",1)
else
say("50 Tanaka event, portul este dezactivat.")
game.set_event_flag("50tanaka_back",0)
end
end
else
say("Trebuie sa te aflii in harta de event.")
end
end
function weihnachtsevent()
say_title("Ce doresti sa pornesti in evenimenul de Craciun?")
local f = select ("Bradul de Craciun", "Zapada", "Muzica de Craciun", "Drop Sosete", "Porneste event Craciun (toate)", "Opreste event Craciun (toate)", "Renunta")
if f == 1 then
local g = select ("Pom de Craciun SUS" , "Pomul de Craciun este departe", "Renunta")
if g == 1 then
command ("e xmas_tree 1")
say("Pomul de Craciun a fost activat!")
elseif g == 2 then
command ("e xmas_tree 0")
say("Pomul de Craciun a fost dezactivat!")
end
elseif f == 2 then
local h = select ("Porneste Zapada" , "Opreste Zapada", "Renunta")
if h == 1 then
command("e xmas_snow 1")
elseif h == 2 then
command ("e xmas_snow 0")
end
elseif f == 3 then
local i = select ("Porneste Muzica de Craciun", "Opreste Muzica", "Renunta")
if i == 1 then
command("e xmas_song 1")
elseif i == 2 then
command("e xmas_song 0")
end
elseif f == 4 then
say("Drop Sosete va fi stabilit")
elseif f == 5 then
say("Chiar vrei sa le activezi pe toate?")
say("Ei bine modul noapte,pomul de craciun,")
say("zapada si muzica de Craciun?")
say("")
local g_sub = select ("Da", "Nu")
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("Toate sunt activate!")
end
elseif f == 6 then
say("Chiar vrei sa le dezactivezi pe toate?")
say("Ei bine modul noapte,pomul de craciun,")
say("zapada si muzica de Craciun?")
say("")
local g_desub = select ("Da", "Nu")
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("Toate sunt dezactivate!")
end
else
return
end
end
function landrates()
say_title("Administratie Server")
say("")
say_reward("Selecteaza domeniul dorit")
local e = select(locale.empire_names[1], locale.empire_names[2], locale.empire_names[3], locale.empire_names[0], "Standard toate regatele","Weekend", locale.cancel)
if 5 == e then
command("priv_empire 0 1:item_drop 1000 24")
command("priv_empire 0 2:gold_drop 1000 24")
command("priv_empire 0 3:gold10_drop 1000 24")
command("priv_empire 0 4:exp 1000 24")
--notice_all("<Anunt> Dropul de obiecte este de 1000%")
--notice_all("<Anunt> Dropul de Yang este 1000%")
--notice_all("<Anunt> Dropul de Dublu-Yang este de 1000%")
--notice_all("<Anunt> Dropul de EXP este de 1000w%")
return
elseif 6 == e then
command("priv_empire 0 1:item_drop 1000 24")
command("priv_empire 0 2:gold_drop 1000 24")
command("priv_empire 0 3:gold10_drop 1000 24")
command("priv_empire 0 4:exp 1000 24")
--notice_all("<Anunt> Dropul de Obiecte este de 1000%")
--notice_all("<Anunt> Dropul de Yang este de 1000%")
--notice_all("<Anunt> Dropul de Dublu-Yang este de 1000%")
--notice_all("<Anunt> Dropul de EXP este de 1000%")
return
elseif 7 == e then
return
elseif 4 == e then
e = 0
end
say_title("Administrare Server")
say(__get_empire_priv_string(e))
say("")
say("Selecteaza ce bonus vrei sa il distribui.")
local t = select(locale.item_drop_pct, locale.gold_drop_pct, locale.tengold_drop_pct, locale.exp_pct, locale.cancel)
if 5 == t then
return
end
say_title("Administrare Server")
local title_list = {locale.item_drop_pct, locale.gold_drop_pct, locale.tengold_drop_pct, locale.exp_pct}
say(string.format("%s : %s ", locale.empire_names[e], title_list[t]))
say("")
say("Ce rate doresti sa bagi?")
local g={0, 5, 10, 15, 20, 25, 30, 1000}
local p = select(g[1]..'%%', g[2]..'%%', g[3]..'%%', g[4]..'%%', g[5]..'%%', g[6]..'%%', g[7]..'%%', g[8]..'%%', 'Renunt')
if p == 7 then
return
end
say_title("Administrare Server")
say(string.format("%s : %s %d%%", locale.empire_names[e], title_list[t], g[p]))
say("")
say("Cat timp vrei sa fie activa aceasta rata?")
local v = 0
local h = select('6 Ore', '12 Ore', '24 Ore', 'Alt timp', 'Renunta')
if 5 == h then
return
elseif 4 == h then
say_title("Administrare Server")
say(string.format("%s : %s %d%%", locale.empire_names[e], title_list[t], g[p]))
say("")
say("Introduceti lungimea dorita in ORE.")
v=input()
if v == "" then
v = 0
else
v=tonumber(v)
end
elseif 3 == h then
v=24
elseif 2 == h then
v=12
elseif 1 == h then
v=6
end
say_title("Administrare Server")
say(string.format("%s : %s %d%% (pentru %d ore)", locale.empire_names[e], title_list[t], g[p], v))
say("")
say("Doresti sa schimi ratele?")
local s = select("Da", "Nu")
if 1 == s then
__give_empire_priv(e, t, g[p], v*60*60)
say("Ratele au fost alese")
say(" Au fost alocate regatelor.")
else
say("Setarea ratelor a fost respinsa")
end
end
function Lotterie()
say_reward("Ce ati dori?")
local g = select("Seteaza numele Loto", "Analiza Loto", "Loto Activat/Dezactivat", "Inchide")
if 1 == g then
local zahl1 = number(1, 49)
local zahl2 = number(1, 49)
local zahl3 = number(1, 49)
local zahl4 = number(1, 49)
local zahl5 = number(1, 49)
local zahl6 = number(1, 49)
local zahl7 = number(1, 100)
local Code = number(1, 999999999)
game.set_event_flag("Lotto_zahl1",zahl1)
game.set_event_flag("Lotto_zahl2",zahl2)
game.set_event_flag("Lotto_zahl3",zahl3)
game.set_event_flag("Lotto_zahl4",zahl4)
game.set_event_flag("Lotto_zahl5",zahl5)
game.set_event_flag("Lotto_zahl6",zahl6)
game.set_event_flag("Lotto_zahl7",zahl7)
game.set_event_flag("Code",Code)
say("Numele loto a fost pus cu succes.")
say("Tragerea la sorti a fost dezactivata.")
game.set_event_flag("Lotto_Aktiviert",1)
game.set_event_flag("Lotto_auslosung",0)
end
if 2 == g then
if game.get_event_flag("Lotto_auslosung") == 1 then
say("Loteria este acum dezactivata")
game.set_event_flag("Lotto_auslosung",0)
else
game.set_event_flag("Lotto_auslosung",1)
say("Loteria este activata")
notice_all("Loterie-Event: A inceput acum.")
end
end
if 3 == g then
if game.get_event_flag("Lotto_Aktiviert") == 1 then
say("Loteria este dezactivata")
game.set_event_flag("Lotto_Aktiviert",0)
else
game.set_event_flag("Lotto_Aktiviert",1)
say("Loteria este activata")
end
end
end
function eventstatus()
say_title("Urmatoarele eventuri sunt On/Off")
say("")
-----------------------------------------------------------
local meldung = "Event Loterie: "
if game.get_event_flag("Lotto_Aktiviert") == 1 then
meldung = meldung.."Activat ON, "
else
meldung = meldung.."Activat OFF, "
end
if game.get_event_flag("Lotto_auslosung") == 1 then
meldung = meldung.."Inchide ON, "
else
meldung = meldung.."Inchide OFF, "
end
say_reward(""..meldung.."")
-----------------------------------------------------------
if game.get_event_flag("50tanaka") == 1 then
say_reward("Tanaka Event este pornit.")
else
say("Tanaka Event nu este pornit.")
end
-----------------------------------------------------------
if game.get_event_flag("drop_moon") == 1 then
say_reward("Event Cufarul-Lunii este pornit.")
else
say("Event Cufarul-Lunii nu este pornit.")
end
-----------------------------------------------------------
if game.get_event_flag("halloween_drop") == 1 then
say_reward("Halloween-Event este pornit.")
else
say("Halloween-Event nu este pornit.")
end
if game.get_event_flag("valentine_drop") == 1 then
say_reward("Valentins-Event este pornit.")
else
say("Valentins-Event nu este pornit.")
end
if game.get_event_flag("icecream_drop") == 1 then
say_reward("Icecream-Event este pornit.")
else
say("Icecream-Event nu este pornit.")
end
if game.get_event_flag("football_drop") == 1 then
say_reward("Football-Event este pornit.")
else
say("Football-Event nu este pornit.")
end
if game.get_event_flag("whiteday_drop ") == 1 then
say_reward("Ziua Alba-Event este pornit.")
else
say("Ziua Alba-Event nu este pornit.")
end
if game.get_event_flag("kids_day_drop_high ") == 1 then
say_reward("Event Ziua copolului este pornit.")
else
say("Event Ziua copolului nu este pornit.")
end
-----------------------------------------------------------
local val=0
local msg = "Event de craciun: "
if game.get_event_flag("xmas_tree") == 1 then
msg = msg.."Brad, "
val = val + 1
end
if game.get_event_flag("xmas_song") == 1 then
val = val + 1
msg = msg.."Muzica, "
end
if game.get_event_flag("xmas_snow") == 1 then
msg = msg.."Zapada, "
val = val + 1
end
if game.get_event_flag("xmas_sock") == 1 then
msg = msg.."Sosete, "
val = val + 1
end
if val == 0 then
say("Nici un eveniment activ de Craciun.")
else
say_reward(""..msg.."")
end
-----------------------------------------------------------
if game.get_event_flag("#wart#") == 1 then
say_reward("Lucrari de intretinere este activat.")
else
say("Lucrari de intretinere nu este activat.")
end
say("")
wait()
end
function gmonline()
say_reward("Ce doriti sa alegeti?")
if pc.getqf("automeld") == 1 then
say("Notificarea automata este activata.")
else
say("Status: Notificarea automata este activata.")
end
local g = select("Anunta GM Online", "Anuntare automata cand intra un GM", "Anunta ce GM este online odata la(timp)", "Renunta")
if 1 == g then
notice_all(""..pc.get_name().." este Online, si disponibil pentru intrebarile voastre.")
elseif 2 == g then
if pc.getqf("automeld") == 1 then
say("Notificarea Automata este dezactivata")
pc.setqf("automeld",0)
else
say("Notificarea automata este activata")
pc.setqf("automeld",1)
end
elseif 3 == g then
say("Introduceti secundele la cat timp vreti sa anunte toti jucatori ca tu esti intrat.")
say("Acum este setat standard 3600 Secunde")
local zeit = tonumber(input("0")) or 0
pc.setqf("abstand",zeit)
say("Odata la "..zeit.." secunde se va anunta ce GM este online.")
pc.setqf("automeld",1)
else
return
end
end
when login with pc.is_gm() begin
affect.add_collect(apply.HP_REGEN, 50000, 3)
affect.add_collect(apply.SP_REGEN, 50000, 3)
local name = pc.get_name()
game.set_event_flag(name, 1)
setskin(NOWINDOW)
syschat("System: Buna Ziua, "..pc.get_name().." acum esti Logat!")
if get_time() > pc.getqf("abgelaufen") and pc.getqf("automeld") == 1 then
notice_all(""..pc.get_name().." este Online, si disponibil pentru intrebarile voastre")
if pc.getqf("abstand") == 0 then
pc.setqf("abgelaufen",get_time()+60*60*1)
else
local zeit = get_time() + pc.getqf("abstand")
pc.setqf("abgelaufen",zeit)
syschat("Presa: Timpul a fost setat la "..zeit.." secunde,va trimite odata la "..get_time()..", un mesaj online.")
end
end
end
when logout with pc.is_gm() begin
local name = pc.get_name()
game.set_event_flag(name, 0)
setskin(NOWINDOW)
syschat("System: La revedere, "..pc.get_name().." Sunteti acum autentificat!")
end
function wartung()
local s = select("Setare Timp", "Activare", "Renunt")
if s == 1 then
say("Ce zi? Ce Numar")
local Tag = tonumber(input("0")) or 00
game.set_event_flag("#Ziua de intretinere",Tag)
say("Ce Luni? Ce numar ")
local monat = tonumber(input("0")) or 00
game.set_event_flag("#Luna de intretinere",monat)
say("Ce an ? Ce Numar? ")
local jahr = tonumber(input("0")) or 00
game.set_event_flag("#Anul de intretinere",jahr)
say("Ce ora?")
local stunde = tonumber(input("0")) or 00
game.set_event_flag("#Ora de intretinere",stunde)
say("Ce minute?")
local minute = tonumber(input("0")) or 00
game.set_event_flag("#Minute de intretinere",minute)
say("Care este durata in minute?")
local dauer = tonumber(input("0")) or 00
game.set_event_flag("#Durata de intretinere",dauer)
say("Timpul de intretinere a fost stabilit")
elseif s == 2 then
if game.get_event_flag("#wart#") == 1 then
command("e #wart# 0")
say("Lucrarile de intretinere au fost dezactivate")
else
command("e #wart# 1")
say("Lucrarile de intretinere au fost activate")
end
end
end
when 70021.use with pc.is_gm() or pc.get_gm_level() >= 2 begin
say("Cum pot eu sa te ajut?")
local s = select("Perfectionare Skiluri", "Teleportare","Event Manager", "Administrare", "Rapoarte Gm Online", "Bonusuri GM","Deschide Depozit", "Inchide")
if s == 1 then
say("Alegeti ce obtiuni doriti sa folositi de aici?")
if pc . job == 0 then
local s = select("Skiluri G1 Mental", "Skiluri P Mental", "Skiluri G1 Corp", "Skiluri P Corp", "Utilizeaza cal", "Schließen")
if s == 1 then gm_item.skillsett(16,21,30,2) say("Skiluri G1")
elseif s == 2 then gm_item.skillsett(16,21,59,2) say("Skiluri P")
elseif s == 3 then gm_item.skillsett(1,6,30,1) say("Skiluri G")
elseif s == 4 then gm_item.skillsett(1,6,59,1) say("Skiluri P")
elseif s == 5 then gm_item.skillsett(99999999999)
else
return
end
elseif pc . job == 1 then
local s = select("Skiluri G1 Lama", "Skiluri P Lama", "Skiluri G1 Arc", "Skiluri P Arc", "Renunta")
if s == 1 then gm_item.skillsett(31,36,30,1) say("Skiluri G1")
elseif s == 2 then gm_item.skillsett(3,36,59,1) say("Skiluri P")
elseif s == 3 then gm_item.skillsett(46,51,30,2) say("Skiluri G1")
elseif s == 4 then gm_item.skillsett(46,51,59,2) say("Skiluri P")
else
return
end
elseif pc . job == 2 then
local s = select("Skiluri G1 Arme Magice", "Skiluri P Arme Magice", "Skiluri G1 Magie Neagra", "Skiluri P Magie Neagra", "Renunta")
if s == 1 then gm_item.skillsett(61,66,30,1) say("Skiluri G1")
elseif s == 2 then gm_item.skillsett(61,6,59,1) say("Skiluri P")
elseif s == 3 then gm_item.skillsett(76,81,30,2) say("Skiluri G1")
elseif s == 4 then gm_item.skillsett(76,81,59,2) say("Skiluri P")
else
return
end
elseif pc . job == 3 then
local s = select("Skiluri G1 Dragon", "Skiluri P Dragon", "Skiluri G1 Vindecare", "Skiluri P Vindecare", "Renunta")
if s == 1 then gm_item.skillsett(91,96,30,1) say("Skiluri G1")
elseif s == 2 then gm_item.skillsett(91,96,59,1) say("Skiluri P")
elseif s == 3 then gm_item.skillsett(106,111,30,2) say("Skiluri G1")
elseif s == 4 then gm_item.skillsett(106,111,59,2) say("Skiluri P")
else
return
end
end
end
if s == 2 then
say("Unde vrei sa te teleportezi?")
local o = select("V2", "Templul Hwang", "Padurea Neagra", "Padurea Rosie", "Valea Orcilor", "V3/V4", "Renunt")
if o == 1 then
say("Spinnendungeon Ebene 2")
local ss = select("Inceput", "Sfarsit", "Renunt")
if ss == 1 then
say("Te voi duce in V2 la inceput")
wait()
pc.warp(704100, 464100)
elseif ss == 2then
say("Te voi duce in la capatul V2")
wait()
pc.warp(704100, 522500)
end
elseif o == 2 then
say("Tempel Hwang")
local ss = select("Inceput", "In fata la DT", "Renunt")
if ss == 1 then
say("Te voi teleporta la inceput in Hwang Tempel.")
wait()
pc.warp(553600, 143600)
elseif ss == 2 then
say("Te voi teleporta langa DT in Hwang Tempel.")
wait()
pc.warp(590400, 111100)
end
elseif o == 3 then
say("Padurea Neagra")
local ss = select("Inceput", "Mijloc", "Sfarsit", "Renunt")
if ss == 1 then
say("Te voi teleporta in Padurea Neagra la inceput")
wait()
pc.warp(289900, 5600)
elseif ss == 2 then
say("Te voi teleporta in Padurea Neagra la mijloc")
wait()
pc.warp(303100, 25600)
elseif ss == 3 then
say("Te voi teleporta in Padurea Neagra la sfarsit")
wait()
pc.warp(286900, 42900)
end
elseif o == 4 then
say("Padurea Rosie")
local ss = select("Inceput", "Level 1", "Level 2", "Renunt")
if ss == 1 then
say("Te voi teleporta in Padurea Rosie la inceput")
wait()
pc.warp(1118100, 69500)
elseif ss == 2 then
say("Te voi teleporta in Padurea Rosie la Level 1")
wait()
pc.warp(1079500, 7300)
elseif ss == 3 then
say("Te voi teleporta in Padurea Rosie la Level 2")
wait()
pc.warp(1119800, 7400)
end
elseif o == 5 then
say("Valea Orcilor")
local ss = select("Galben", "Rosu", "Albastru", ",Level 1", "Level 2,", "In fata Grotei", "Renunt")
if ss == 1 then
say("Te voi teleporta in Valea Orcilor la galbeni")
wait()
pc.warp(269700, 739900)
elseif ss == 2 then
say("Te voi teleporta in Valea Orcilor la rosii")
wait()
pc.warp(401600, 674700)
elseif ss == 3 then
say("Te voi teleporta in Valea Orcilor la albastrii")
wait()
pc.warp(320700, 808300)
elseif ss == 4 then
say("Te voi teleporta in Valea Orcilor la level 1")
wait()
pc.warp(313600, 728400)
elseif ss == 5 then
say("Te voi teleporta in Valea Orcilor la level 2")
wait()
pc.warp(333900, 757700)
elseif ss == 6 then
say("Te voi teleporta in Valea Orcilor in fata Grotei")
wait()
pc.warp(284400, 809900)
end
elseif o == 6 then
local ssf = select("Grota Exilului", "V4","Renunt")
if ssf == 1 then
say("Grota Exilului")
local ss = select("Inceput", "Sfarsit", "Renunta")
if ss == 1 then
say("Te voi duce in Grota Exilului la inceput")
wait()
pc.warp(9900, 1207400)
elseif ss == 2 then
say("Te voi duce in Grota Exilului la sfarsit")
wait()
pc.warp(136500, 1343600)
end
end
if ssf == 2 then
say("V4")
local sss = select("Inceput", "Sfarsit", "Renunta")
if sss == 1 then
say("Te voi duce in V4 la inceput")
wait()
pc.warp(241600, 1274600)
elseif sss == 2 then
say("Te voi duce in V4 la sfarsit")
wait()
pc.warp(180300, 1220700)
end
end
end
end
if s == 3 then --Manager Event
gm_item.eventstatus()
say_title("Ce event doresti sa pornesti/opresti?")
local i = select("Tanaka Event", "Event Craciun", "Cufere Clar de Luna", "Halloween-Event (31 Octombrie)","Valentins-Event# (14 Februarie)","Icecream-Event (Cand este cald afara)", "Fotbal-Event ", "Ziua Alba-Event# (14 Martie)", "Ziua Copilului-Event# (01. Iunie)","Management Loterie", "Lucrari de Intretinere", "Renunta")
if 1 == i then gm_item.tanakaevent() end
if 200 == i then gm_item.weihnachtsevent() end
if 3 == i then
say("Pornesti Event Cufere calr de Luna?")
local f = select ("Porneste" , "Opreste", "Renunta")
if f == 1 then
command ("e drop_moon 1")
say("Eventul Cufere Clar de Luna a inceput")
elseif f == 2 then
command ("e drop_moon 0")
say("Eventul Cufere Clar de Luna s-a terminat")
else
return
end
end
if 4000 == i then
say("Porneste Halloween-Event?")
local f = select ("Start" , "Opreste", "Renunta")
if f == 1 then
command ("e halloween_drop 1")
say("Halloween-Event a inceput")
elseif f == 2 then
command ("e halloween_drop 0")
say("Halloween-Event s-a incheiat")
else
return
end
end
if 5000 == i then
say_title("Ciocolata.trandafiri rosii....")
say("Porneste Valentins-Event?")
local f = select ("Porneste" , "Opreste", "Renunta")
if f == 1 then
command ("e valentine_drop 1")
say("Valentins-Event este pornit")
elseif f == 2 then
command ("e valentine_drop 0")
say("Valentins-Event este oprit")
else
return
end
end
if 6 == i then
say_title("Crema de Inghetata")
say("Porneste Icecream-Event?")
local f = select ("Porneste" , "Opreste", "Renunta")
if f == 1 then
command ("e icecream_drop 1")
say("Icecream-Event este pornit")
elseif f == 2 then
command ("e icecream_drop 0")
say("Icecream-Event este oprit")
else
return
end
end
if 7 == i then
say("Incepe Football-Event?")
local f = select ("Porneste" , "Opreste", "Renunta")
if f == 1 then
command ("e football_drop 1")
say("Football-Event a pornit")
elseif f == 2 then
command ("e football_drop 0")
say("Football-Event s-a incheiat")
else
return
end
end
if 800 == i then
say("Porneste Ziua Alba-Event?")
say("Mmmm ce dulce e inghetata")
local f = select ("Porneste" , "Opreste", "Renunta")
if f == 1 then
command ("e whiteday_drop 1")
say("Ziua Alba-Event a pornit")
elseif f == 2 then
command ("e whiteday_drop 0")
say("Ziua Alba-Event s-a incheiat")
else
return
end
end
if 900 == i then
say("Porneste Event de Ziua Copilului?")
say("Drop Pietre Pretioase")
local f = select ("Porneste" , "Opreste", "Renunta")
if f == 1 then
command ("e kids_day_drop_high 1")
say("Event de Ziua Copilului a pornit")
elseif f == 2 then
command ("e kids_day_drop_high 0")
say("Event de Ziua Copilului s-a oprit")
else
return
end
end
if 10 == i then
gm_item.Lotterie()
end
if 11 == i then
gm_item.wartung()
end
end
if s == 4 then
gm_item.landrates()
end
if s == 5 then
gm_item.gmonline()
end
if s == 6 then
gm_item.seiteeins()
end
if s == 7 then
game.open_safebox()
end
end --when use ende
end --state ende
end --quest ende 
de 
de 
de 
de