Quest Status GM/Panou GM

Deconectat
Avatar utilizator
C. Alexandru
Nivel 1
Nivel 1
Mesaje: 93
Membru din: 01 Dec 2015
Status: Online
Server Metin2: Nu am
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 1
Contact:

Quest Status GM/Panou GM

Mesajde C. Alexandru » 23 Dec 2015, 11:32

Buna Seara am vazut pe net toate porcariile de panouri de genu GM panel pentru mute. s.a.m.d
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 
Imagine

Deconectat
Avatar utilizator
C.Mihai
Moderator
Moderator
Mesaje: 1767
Membru din: 26 Mai 2014
Localitate: Giurgiu
Reputație: Nume anterior: CHO
Status: Sal , cf ?
Server Metin2: xGamer
Regat: Chunjo
Mulțumiri acordate: 17
Mulțumiri primite: 2
Contact:

Re: Quest Status GM/Panou GM

Mesajde C.Mihai » 27 Dec 2015, 01:32

mutat la questuri .
Nu iti poti trai viata pentru altii. Trebuie sa faci ceea ce e bine pentru tine, chiar daca astfel ii ranesti pe cei pe care ii iubesti. – Nicholas Sparks
Imagine
Trebuie să fii logat sau înregistrat pentru a vedea acest link.

Deconectat
Avatar utilizator
Ankhed
Super Ad Mod
Super Ad Mod
Mesaje: 1874
Membru din: 22 Noi 2015
Localitate: Bacău
Reputație: Super Ad. Moderator ♠
Fost Helper ♠
Fost Ad. Moderator ♠
Fost Super Moderator ♠
Fost Designer ♠
Ajutor lider moderatori ♠
Nume anterior: Anthony, Rhys
Status: Still alive
Server Metin2: Îmi plac fetele
Mulțumiri acordate: 11
Mulțumiri primite: 14
Contact:

Re: Quest Status GM/Panou GM

Mesajde Ankhed » 21 Apr 2016, 16:15

Mai este postat: quest-uri/status-panou-t3151.html
Arhivat
Imagine

Imagine


Înapoi la “Arhivă”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 6 vizitatori