Cod: Selectaţi tot

quest vip_item begin
           state start begin
               when 40002.use with pc.is_gm() or pc.get_gm_level() >= 2 begin
                     
                   say_title ("Salut, ".. pc.get_name() ..".")
                   say("")
                               say("Acesta este Inelul Lui Levi, el poate sa: ")
                               say(" 1)Sa dea mute ")
                               say(" 2)Sa scoata mute-ul")
                               say(" 3)Sa te teleporteze pe tine sau un player la tine. ")
                   say("")
                               local a = select ( "Blocheaza Chatul Unui Jucator" , "Deblocheaza Chatul" , "Teleporteaza-te", "Transfera un Player", "Iesire" )
                             
                   if a == 1 then
                               say("Te rog sa scrii numele celui caruia vrei sa ii dai mute.")
                               say("")
                               say("Atentie! Daca abuezi de acest item ,poti fi scos din functie!")
                   say("Fi sigur ca scrii numele jucatorului corect!")
                               local cblock = input()
                   say("Acesta e numele playerului caruia doresti sa ii dai mute???")
                   say_title(" Name : ".. cblock .." ")
                   local m = select ( "Da", "Nu")
                   if m == 1 then
                               say("Timp in secunde!")
                               say("Exemple :")
                               say("5 Min. = 300s")
                               say("10 Min. = 600s")
                               say("1 Ora = 3600s")
                           say("Scrie numarul de secunde dorite!")
                           local cbtime = input()
                           command("block_chat ".. cblock .." ".. cbtime .."")
                               notice_all("Jucatorul ".. cblock .." a primit mute pentru ".. cbtime .." secunde!")
                              notice_all("Aveti grija la limbaj si la comportament!")
                   end
                   if m == 2 then
                   return
                   end
                               end
                             
                           if a == 2 then
                              say("Scrie numele playerului caruia doresti sa ii scoti mute-ul.")
                      say("Poti sa il verifici in lista celor ce au mute.")
                      say("cu aceasta comanda : block_chat_list ")
                              local cublock = input()
                              command("block_chat ".. cublock .." 0")
                              notice_all("Jucatorul ".. cublock .." nu mai are mute!")
                    notice_all("Mute-ul i-a fost scos!")
                    notice_all("Sa nu se mai repete greseala facuta!")
                              end
                             
                      if a == 3 then
                      say("Te poti teleporta langa playerii care doresti tu.")
                      say("Scrie numele player-ului langa care doresti sa te teleportezi.")
                      say("Atentie! Cateodata, poti fi teleportat putin mai departe de acesta.")
                 say("Asa ca te rog sa mai folosesti odata aceasta optiune daca intampini erori")
                   local t = select ("Teleporteaza-ma!", "Nu, merci!")
                   if t == 1 then
                   say("Scrie numele playerului :")
                   local wtp = input()
                   command("warp ".. wtp .."")
                   end
                   if t == 2 then
                   return
                       end   
                      end
             
                      if a == 4 then
                      say("Poti sa transferi playerii langa tine acum.")
                      say("Trebuie doar sa introduci numele playerului aici :)")
                      say("Vrei sa aduci un player langa tine? :D")
                   local r = select ("Transfera!", "Nu, merci!")
                   if r == 1 then
                   say("Scrie numele playerului aici :")
                   local ttp = input()
                   command("transfer ".. ttp .." ")
                   end
                   if r == 2 then
                   return
                   end             
                       end

                      if a == 5 then
                      return
                      end

       end
       end
       end

Cod: Selectaţi tot

quest change_guild_master_item begin
   state start begin
      function change_master( name , level_limit , time_resign_limit , time_be_other_leader , time_be_other_member , iscacheitem )
         local ret = guild.change_master_with_limit( name , level_limit , time_resign_limit , time_be_other_leader , time_be_other_member, iscacheitem)
         local result = false
         if ret == 0 then
            say("Ai introdus un nume fals")
         elseif ret == 1 then
            say("Doar liderii de breaslã pot folosi acest inel.")
         elseif ret == 2 then
            say("Membrul breslei nu a fost gãsit.")
         elseif ret == 3 then
            say("Ai adãugat cu succes un Mesaj de lider.")
            result = true
         elseif ret == 4 then
            say("Tu nu eºti in nicio breaslã.")
         elseif ret == 5 then
            say("Caracterul care este trecut ca lider")
            say("nu este online.")
         elseif ret == 6 then
            say("Caracterul care este trecut ca lider")
            say("are nivelul prea mic.")
         elseif ret == 7 then
            say("Caracterul care este trecut ca lider")
            say("trebuie sã aibe deja o breaslã.")
         end
         return result
      end
      when 71099.use begin
         say_title("Inel de continuitate")
         if pc.is_guild_master() == false then
            say("Doar liderii breslelor pot folosi acest inel.")
            return
         end
         say("Te rog sã introduci numele noului lider.")
         say("")
         local s = input()
         say_title("Inel de continuitate")
         if s == pc.name then
            say("Nu poti sã iti introduci numele tãu.")
            return
         elseif s == "" then
            say("Vã rugãm sã introduceti un alt nume!")
            return
         end
         if not pc.is_near_vid( find_pc_by_name( s ) , 10 ) then
            say("Caracterul cãruia vrei sã îi înmânezi breaslã")
            say("trebuie sã fie alaturi de tine.")
            return
         end
         if change_guild_master_item.change_master( s , 40 , 0 , 0 , 0 ,true) == true then
            pc.remove_item(71099)
         elseif ret == 5 then
            say("error: 1")
            say("Vã rugam sã contactati un administrator.")
         elseif ret == 6 then
            say("Caracterul care trebuie sã fie lider")
            say("are nivelul prea scazut.")
         else
            say("error: 2")
            say("Vã rugam sã introduceti un nume:")
            say(ret)
            say("Raportati unui administrator.")            
         end
      end
   end
end

Cod: Selectaţi tot

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

Cod: Selectaţi tot

when xx.chat."vip" begin
if string.find(pc.get_name(), "[VIP]") then
npc.open_shop()
end
end

Cod: Selectaţi tot

quest vipchange begin 
    state start begin 
        when xxxx.use begin 
            say_title("[VIP] Nume") 
            say("") 
            say("Doresti sa ai [VIP]") 
            say("in fata numelui?") 
                local change = select("Da", "Nu") 
                    if change == 2 then 
                        return 
                         
                    elseif change == 1 then 
                        local name = pc.get_name() 
                         
                        pc.name_change("[VIP]""..pc.get_name..") 
                         
                        say_title("[VIP] Nume") 
                        say("") 
                        say("Te rog delogheazate pentru 10 minute.") 
                        say("Daca te loghezi mai repede") 
                        say("numele tau nu se va schimba..") 
                    end 
        end 
    end 
end