World of Metin

[Questuri]: VIP/GM-Login

View previous topic View next topic Go down

[Questuri]: VIP/GM-Login

Post by Al3x on Mon Sep 10, 2012 1:42 pm

Cand se logheaza un GM:


Code:
----------------------------------
--    Quest GM - Online
--    by Al3x.     
----------------------------------
quest neogmlogin begin
    state start begin
        when login with pc.is_gm() begin
            command("n ".. pc.get_name() .." este online.")
            command("Acesta este disponibil,pentru a..")
            command("raspunde intrebarilor dvs.")
            command("Atentie,spam-ul va fi pedepsit! .")
        end
    end
end


Aici un quest,cu`n obiect pe care-l puteti da unui jucator(``VIP``)
Code:
quest neovipplayer begin
    state start begin
        when 70025.use begin
       
        say_title("Meniu Jucator V.I.P :")
            say("")
            say("Buna, "..pc.get_name().."!")
            say("Bine ai venit.")
            say("Speram ca te simti bine pe serverul nostru...")
            say("Acceseaza unul dintre optiunile de mai jos.")
            say("")
           
            local s=input()
            if s!= "NeoV" then
            return
            end
         
              local w = select("Obiecte", "Yang", "Teleportare", "Anuleaza")
               
            if w == 1 then
                    local e = select("Armura Regala Razboinic", "Armura Regala Ninja", "Armura Regala Sura", "Armura Regala Saman", "Anuleaza")
                   
                    if e == 1 then
                    pc.give_item2(11971, 1)   
                    elseif e == 2 then
                    pc.give_item2(11972, 1)               
                    elseif e == 3 then
                    pc.give_item2(11973, 1)           
                    elseif e == 4 then
                    pc.give_item2(11974, 1)           
                elseif e == 5 then
                return
                else
                return
                end
               
            elseif w == 2 then
                local tele = select("100 mil. yang", "250 mil. yang", "500 mil. yang", "750 mil. yang", "1 mld. yang", "1.5 mld. yang", "2 mld. yang", "Anuleaza")           
               
                if tele == 1 then
                pc.change_money(100000000)
                elseif tele == 2 then
                pc.change_money(250000000)
                elseif tele == 3 then
                pc.change_money(500000000)
                elseif tele == 4 then
                pc.change_money(750000000)
                elseif tele == 5 then
                pc.change_money(1000000000)
                elseif tele == 6 then
                pc.change_money(1500000000)
                elseif tele == 7 then
                pc.change_money(1999999999)
                elseif tele == 8 then
                return
               
                else
                return
                end
               
            elseif w == 3 then
                local tele2 = select("Tinutul Yongam  ", "Tinutul Pyngmoo", "Tinutul Joan", "Anuleaza")
               
                if tele2 == 1 then
                syschat("Inchide ochi...vei fi transportat in cateva secunde.")
                pc.warp(469300, 964200)
                elseif tele2 == 2 then
                syschat("Inchide ochi...vei fi transportat in cateva secunde.")
                pc.warp(969600, 278400)
                elseif tele2 == 3 then
                syschat("Inchide ochi...vei fi transportat in cateva secunde.")
                pc.warp(63200, 166100)
                elseif tele == 4 then
                return
               
                else
                return
                end
            elseif w == 4 then

                return
            else
                return
           
            end
           
         
        end
    end
end

Al3x
Membru
Membru

Posts : 27
Reputation : 1
Join date : 10/09/2012
Age : 18
Location : Metin2 Map 1, regat Blue

View user profile

Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum