4en3rgY Romania
[QUEST-URI]Cateva quest-uri folositoare pentru orice server! 2z8bv910
Welcome To 4EN3RGY Romania
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. If you already have an account, login here - otherwise create an account for free today!

4en3rgY Romania


Nu sunteti conectat. Conectați-vă sau înregistrați-vă

[QUEST-URI]Cateva quest-uri folositoare pentru orice server!

Vezi subiectul anterior Vezi subiectul urmator In jos  Mesaj [Pagina 1 din 1]

B.Marian

B.MarianMembru

Generalul Setou.
Cu acest quest setati dropul generalului:
Cod:
quest General_Setaou begin
    state start begin
      when 2492.kill with pc.get_map_index()==73 begin
         game.drop_item(30179, 1)
         game.drop_item(30179, 1)
         game.drop_item(30179, 1)
         notice("Ai invins General Setaou acum poti trece!")
           notice("In camera de cristal!")
      end     
    end
end


Event de paste: Activarea se face de la iepuras.(30129)

Cod:
quest easter_event begin
   state start begin
      when 30129.chat."GM: Deschide event-ul de Paste" with pc.is_gm() and game.get_event_flag("easter_start") == 0 begin
         say_title(""..mob_name(30129).."")
         say_reward("Vrei sa deschizi event-ul de Paste?")
         start_event = select("Da", "Nu")
         if start_event == 2 then
            return;
         end
         game.set_event_flag("easter_start", 1)
         game.set_event_flag("easter_eggs_count", 0)
         game.set_event_flag("easter_empty_baskets_count", 0)
         game.set_event_flag("easter_egg_baskets_count", 0)
         notice("Evenimentul de Paste s-a deschis! Vorbeste cu Iepurasul de Paste!")
      end
   
      when 30129.chat."Ouale de Paste" with game.get_event_flag("easter_start") == 1 begin
         say_title(""..mob_name(30129).."")
         say("Salut!")
         say("Se stie in randul nostru ca Iepurasii de Paste")
         say("sunt din ce in ce mai putin crezuti de catre")
         say("copiii din cele trei regate. De aceea, eu am")
         say("fost trimit pentru a va dovedi ca Iepurasii")
         say("de Paste exista!")
         say_reward("Drept consecinta, am venit cu o armata de pietre")
         say_reward("Metin, ca sa ma razbun pe necredinta oamenilor!")
         
         wait()
         
         say_pc_name()
            say("")
            say("Ma gandesc ca poate Iepurasul s-ar mai linisti")
            say("daca oamenii de pretutindeni i-ar aduce oua,")
            say("luand exemplu de la el, care in fiecare an")
            say("munceste pe rupte ca sa vopseasca ouale")
            say("si sa le dea copiiilor...")
         
         wait()
         
         set_state(give_eggs)
      end
   end

   state give_eggs begin
      when 30129.chat."Am adus oua de Paste" with game.get_event_flag("easter_start") == 1 begin
         say_title(""..mob_name(30129).."")
         say("Ai adus oua de Paste? Vai... ce frumos! Si eu")
         say("care credeam ca trebuie sa recurg la forta")
         say("pentru a convinge oamenii ca exist si eu pe")
         say("lume...")
         
         if pc.count_item(50160) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50160)
         elseif pc.count_item(50161) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50161)
         elseif pc.count_item(50162) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50162)
         elseif pc.count_item(50163) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50163)
         elseif pc.count_item(50164) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50164)
         elseif pc.count_item(50165) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50165)
         elseif pc.count_item(50166) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50166)
         elseif pc.count_item(50167) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50167)
         elseif pc.count_item(50168) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50168)
         elseif pc.count_item(50169) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50169)
         elseif pc.count_item(50170) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50170)
         elseif pc.count_item(50171) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50171)
         elseif pc.count_item(50172) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50172)
         elseif pc.count_item(50173) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50173)
         elseif pc.count_item(50174) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50174)
         elseif pc.count_item(50175) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50175)
         elseif pc.count_item(50176) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50176)
         elseif pc.count_item(50177) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50177)
         elseif pc.count_item(50178) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50178)
         elseif pc.count_item(50179) != 0 then
            say_reward("Multumesc, iti voi da un cadou pentru")
            say_reward("acest fapt!")
            pc.setqf("easter_egg_vnum", 50179)
         else
            say_reward("Of... Nu ai oua??? Eram sigur ca")
            say_reward("e prea frumos ca sa fie adevarat...")
            return;
         end
         
         wait()
         
         say_title(""..mob_name(30129).."")
         say("Vrei sa imi dai acest ou in schimbul unui")
         say("cadou?")
         
         say_item("Ou de Paste", pc.getqf("easter_egg_vnum"), "")
         
         select_egg = select("Da", "Nu")
         
         if select_egg == 2 then
            say_title(""..mob_name(30129).."")
            say("Asta e... In viata nu faci doar lucruri care")
            say("iti plac...")
            return;
         else
            pc.remove_item(pc.getqf("easter_egg_vnum"), 1)
            pc.setqf("easter_egg_vnum", 0)
            game.set_event_flag("easter_eggs_count", game.get_event_flag("easter_eggs_count")+1)
            say_title(""..mob_name(30129).."")
            say("Uite cadoul tau...")
            local s = number(1, 43)
                if 1 <= s and 5 >= s then
               say_item("Elixirul Cercetatorului - 1 buc.", 71035, "")
               pc.give_item2(71035,1)
                elseif 5 >= s and 10 <= s then
               say_item("Medalia Dragonului - 5 buc.", 71004, "")
               pc.give_item2(71004,5)
                elseif 10 >= s and 5 <= s then
               say_item("Coada Scorpion + - 1 buc.", 30081, "")
               pc.give_item2(30081,1)
                elseif 20 >= s and 10 <= s then
               say_item("Busola Pietrelor Metin - 1 buc.", 27989, "")
               pc.give_item2(27989,1)
                elseif 21 == s then
               say_item("Metal Magic - 1 buc.", 25041, "")
               pc.give_item2(25041,1)
                elseif 22 == s then
               say_item("Colier de Lacrima Cer+0 - 1 buc.", 16200, "")
               pc.give_item2(16200,1)
                elseif 23 == s then
               say_item("Cercei de Lacrima Cer+0 - 1 buc.", 17200, "")
               pc.give_item2(17200,1)
                elseif 24 == s then
               say_item("Bratara Lacrima Cer+0 - 1 buc.", 14200, "")
               pc.give_item2(14200,1)
                elseif 25 == s then
               say_item("Papuci de Phoenix+0 - 1 buc.", 15200, "")
               pc.give_item2(15200,1)
                elseif 26 == s then
               say_item("Scut Vultur+0 - 1 buc.", 13060, "")
               pc.give_item2(13060,1)
                elseif 27 == s then
               say_item("Scut Tigru+0 - 1 buc.", 13080, "")
               pc.give_item2(13080,1)
                elseif 28 == s then
               say_item("Scut Leu+0 - 1 buc.", 13100, "")
               pc.give_item2(13100,1)
                elseif 29 == s then
               say_item("Scut Solzi de Dragon+0 - 1 buc.", 13120, "")
               pc.give_item2(13120,1)
                elseif 30 == s then
               say_item("Cartea Comandantului - 1 buc.", 70003, "")
               pc.give_item2(70003,1)
            elseif 31 == s then
                    say_item("Lingou 97kk - 1 buc.", 30600, "")
                pc.give_item2(30600,1)
                elseif 32 == s then
                    say_item("Perla alba - 1 buc.", 27992, "")
                pc.give_item2(27992,1)
                elseif 33 == s then
                    say_item("Perla Albastra - 1 buc.", 27993, "")
                pc.give_item2(27993,1)
                elseif 34 == s then
                    say_item("Perla Visinie - 1 buc.", 27994, "")
                pc.give_item2(27994,1)
                elseif 35 == s then
                    say_item("Binecuvantarea Vietii - 10 buc.", 71018, "")
                pc.give_item2(71018,10)   
                elseif 36 == s then
                    say_item("Binecuvantarea Magiei - 15 buc.", 71019, "")
                pc.give_item2(71019,15)   
              elseif 37 == s then
                    say_item("Binecuvantarea Dragon - 10 buc.", 71020, "")
                pc.give_item2(71020,10)
              elseif 38 == s then
                    say_item("Lingou 243kk - 1 buc.", 30601, "")
                pc.give_item2(30601,1)   
              elseif 39 == s then
                    say_item("Pho-Hwan De Atac Negru - 1 buc.", 436, "")
                pc.give_item2(436,1)
              elseif 40 == s then
                    say_item("Otel de war - 1 buc.", 11290, "")
                pc.give_item2(11290,1)   
              elseif 41 == s then
                    say_item("Otel de ninja - 1 buc.", 11290, "")
                pc.give_item2(11490,1)   
              elseif 42 == s then
                    say_item("Otel de Sura - 1 buc.", 11690, "")
                pc.give_item2(11690,1)   
              elseif 43 == s then
                    say_item("Otel de Shaman - 1 buc.", 11890, "")
                pc.give_item2(11890,1)                  
            end
         end
      end
      
      when 30129.chat."Am un cos gol" with pc.count_item(50180) >= 1 and game.get_event_flag("easter_start") == 1 begin
         say_title(""..mob_name(30129).."")
         say("Ai un cos gol? Daca vrei sa pui oua in el,")
         say("da-mi cosul, iar apoi da-mi ouale, le voi")
         say("pune eu in cos.")
         
         give_basket = select("Da cosul", "Nu da cosul")
         
         if give_basket == 2 then
            return;
         else
            pc.remove_item(50180, 1)
            game.set_event_flag("easter_empty_baskets_count", game.get_event_flag("easter_empty_baskets_count")+1)
            say_title("Informatii:")
            say("Pentru a-i da ouale Iepurasului de Paste, trage")
            say("ouale pe el.")
            pc.setqf("easter_make_basket_active", 1)
            pc.setqf("easter_make_basket_needed_eggs", 3)
         end
      end
      
      when 30129.take with pc.getqf("easter_make_basket_active") == 1 and game.get_event_flag("easter_start") == 1 begin
         if item.vnum >= 50160 and item.vnum <= 50179 then
            if pc.getqf("easter_make_basket_needed_eggs") >= 1 then
               pc.setqf("easter_make_basket_needed_eggs", pc.getqf("easter_make_basket_needed_eggs")-1)
               pc.remove_item(item.vnum, 1)
               game.set_event_flag("easter_eggs_count", game.get_event_flag("easter_eggs_count")+1)
               say_title(""..mob_name(30129).."")
               if pc.getqf("easter_make_basket_needed_eggs") == 0 then
                  say("Multumesc! Se pare ca am terminat cosul.")
                  say("Poftim!")
                  pc.setqf("easter_make_basket_active", 0)
                  pc.give_item2(50181,1)
                  return;
               end
               say("Multumesc! Mai am nevoie de "..pc.getqf("easter_make_basket_needed_eggs").." oua pentru")
               say("a realiza cosul.")
            else
               say_title(""..mob_name(30129).."")
               say("Multumesc! Se pare ca am terminat cosul.")
               say("Poftim!")
               pc.setqf("easter_make_basket_active", 0)
               pc.give_item2(50181,1)
            end
         else
            say_title(""..mob_name(30129).."")
            say("Acest obiect nu este un ou. Nu il pot pune in cos.")
         end
      end
      
      when 30129.chat."Am un cos cu Oua de Paste" with pc.count_item(50181) >= 1 and game.get_event_flag("easter_start") == 1 begin
         say_title(""..mob_name(30129).."")
         say("Ai un cos cu oua? Ce frumos ar fi")
         say("daca mi-ai da acest cos! Iti voi da o recompensa")
         say("frumoasa in schimbul lui!")
         
         give_basket = select("Da cosul", "Nu da cosul")
         
         if give_basket == 2 then
            return;
         else
            pc.remove_item(50181, 1)
            game.set_event_flag("easter_egg_baskets_count", game.get_event_flag("easter_egg_baskets_count")+1)
            say_title(""..mob_name(30129).."")
            say("Uite cadoul tau...")
            local s = number(1, 43)
                if 1 <= s and 5 >= s then
               say_item("Elixirul Cercetatorului - 1 buc.", 71035, "")
               pc.give_item2(71035,1)
                elseif 5 >= s and 10 <= s then
               say_item("Medalia Dragonului - 5 buc.", 71004, "")
               pc.give_item2(71004,5)
                elseif 10 >= s and 5 <= s then
               say_item("Coada Scorpion + - 1 buc.", 30081, "")
               pc.give_item2(30081,1)
                elseif 20 >= s and 10 <= s then
               say_item("Busola Pietrelor Metin - 1 buc.", 27989, "")
               pc.give_item2(27989,1)
                elseif 21 == s then
               say_item("Metal Magic - 1 buc.", 25041, "")
               pc.give_item2(25041,1)
                elseif 22 == s then
               say_item("Colier de Lacrima Cer+0 - 1 buc.", 16200, "")
               pc.give_item2(16200,1)
                elseif 23 == s then
               say_item("Cercei de Lacrima Cer+0 - 1 buc.", 17200, "")
               pc.give_item2(17200,1)
                elseif 24 == s then
               say_item("Bratara Lacrima Cer+0 - 1 buc.", 14200, "")
               pc.give_item2(14200,1)
                elseif 25 == s then
               say_item("Papuci de Phoenix+0 - 1 buc.", 15200, "")
               pc.give_item2(15200,1)
                elseif 26 == s then
               say_item("Scut Vultur+0 - 1 buc.", 13060, "")
               pc.give_item2(13060,1)
                elseif 27 == s then
               say_item("Scut Tigru+0 - 1 buc.", 13080, "")
               pc.give_item2(13080,1)
                elseif 28 == s then
               say_item("Scut Leu+0 - 1 buc.", 13100, "")
               pc.give_item2(13100,1)
                elseif 29 == s then
               say_item("Scut Solzi de Dragon+0 - 1 buc.", 13120, "")
               pc.give_item2(13120,1)
                elseif 30 == s then
               say_item("Cartea Comandantului - 1 buc.", 70003, "")
               pc.give_item2(70003,1)
            elseif 31 == s then
                    say_item("Lingou 97kk - 1 buc.", 30600, "")
                pc.give_item2(30600,1)
                elseif 32 == s then
                    say_item("Perla alba - 1 buc.", 27992, "")
                pc.give_item2(27992,1)
                elseif 33 == s then
                    say_item("Perla Albastra - 1 buc.", 27993, "")
                pc.give_item2(27993,1)
                elseif 34 == s then
                    say_item("Perla Visinie - 1 buc.", 27994, "")
                pc.give_item2(27994,1)
                elseif 35 == s then
                    say_item("Binecuvantarea Vietii - 10 buc.", 71018, "")
                pc.give_item2(71018,10)   
                elseif 36 == s then
                    say_item("Binecuvantarea Magiei - 15 buc.", 71019, "")
                pc.give_item2(71019,15)   
              elseif 37 == s then
                    say_item("Binecuvantarea Dragon - 10 buc.", 71020, "")
                pc.give_item2(71020,10)
              elseif 38 == s then
                    say_item("Lingou 243kk - 1 buc.", 30601, "")
                pc.give_item2(30601,1)   
              elseif 39 == s then
                    say_item("Pho-Hwan De Atac Negru - 1 buc.", 436, "")
                pc.give_item2(436,1)
              elseif 40 == s then
                    say_item("Otel de war - 1 buc.", 11290, "")
                pc.give_item2(11290,1)   
              elseif 41 == s then
                    say_item("Otel de ninja - 1 buc.", 11290, "")
                pc.give_item2(11490,1)   
              elseif 42 == s then
                    say_item("Otel de Sura - 1 buc.", 11690, "")
                pc.give_item2(11690,1)   
              elseif 43 == s then
                    say_item("Otel de Shaman - 1 buc.", 11890, "")
                pc.give_item2(11890,1)
            end
         end
      end
      
      when 30129.chat."GM: Statistici Event de Paste" with pc.is_gm() and game.get_event_flag("easter_start") == 1 begin
         local eggs = game.get_event_flag("easter_eggs_count")
         local empty_baskets = game.get_event_flag("easter_empty_baskets_count")
         local egg_baskets = game.get_event_flag("easter_egg_baskets_count")
         say_title(""..mob_name(30129).."")
         say_reward("Pana acum, "..eggs.." oua au fost duse la iepuras!")
         say("")
         say_reward("Pana acum, "..empty_baskets.." cosuri goale au fost duse la iepuras!")
         say("")
         say_reward("Pana acum, "..egg_baskets.." cosuri cu oua au fost duse la iepuras!")
         return;
      end
      
      when 30129.chat."GM: Inchide event-ul de Paste" with pc.is_gm() and game.get_event_flag("easter_start") == 1 begin
         say_title(""..mob_name(30129).."")
         say_reward("Vrei sa inchizi event-ul de Paste?")
         close_event = select("Da", "Nu")
         if close_event == 2 then
            return;
         end
         say_title(""..mob_name(30129).."")
         say_reward("Sigur vrei sa faci acest lucru?")
         say_reward("Este ultima sansa de a te razgandi!!!")
         close = select("Da", "Nu")
         if close_event == 2 then
            return;
         end
         game.set_event_flag("easter_start", 0)
         game.set_event_flag("easter_eggs_count", 0)
         game.set_event_flag("easter_empty_baskets_count", 0)
         game.set_event_flag("easter_egg_baskets_count", 0)
         notice_all("Evenimentul de Paste s-a incheiat!")
         notice_all("Ouale si cosurile le puteti distruge la Cetateanul Turmentat!")
      end
      
      when login with game.get_event_flag("easter_start") == 0 begin
         pc.setqf("easter_make_basket_active", 0)
         pc.setqf("easter_make_basket_needed_eggs", 0)
         set_state(start)
      end
   end
end


Elibereaza camera dragonului:
Cod:
quest protect_dragon begin
    state start begin
      when letter with pc.is_gm() begin
         send_letter("Elibereaza Camera Dragonului")
      end
      when info or button with pc.is_gm() begin
            game.set_event_flag("dragontemple_used",0)
            game.set_event_flag("dragontemple_block",0)
         chat("Camera eliberata!")
         send_letter("Elibereaza Camera Dragonului")
        end
   end
end

Sterge item de la cetateanul turmentat:
Cod:
quest sterge_item begin
   state start begin
      when 20041.take begin
         say_title("Cetateanul Turmentat:")
         say("Vrei sa distrugi acest obiect?")
         
         say_item(item.get_name(item.vnum), item.vnum, "")
         
         say("")
         say("")
         say("")
         say("")
         say("")
         say("")


         local destroy = select("Da","Nu")
         if destroy == 2 then
            return
         else
            local s = number(1, 200)
            say_title("Cetateanul Turmentat:")
            say("Pentru siguranta, introdu codul de mai jos:")
            say_reward(s)
            
            local code = tonumber(input(""))
            
               if code == s then
                  item.remove()

                  say_title("Cetateanul Turmentat:")
                  say("Obiectul a fost distrus cu succes!")
                  
                  wait()

                  return
               else
                  say_title("Cetateanul Turmentat:")
                  say("Codul este incorect!")
               end               
         end
      end
    end
end

Activare rate:
Cod:
uest activare_rate begin
   state start begin
      when letter with pc.is_gm() begin
         send_letter("Activeaza Ratele")
      end
      when info or button with pc.is_gm() begin
         command("priv_empire 0 1 400 10000")
         command("priv_empire 0 2 400 10000")
         command("priv_empire 0 3 400 10000")
         command("n Ratele au fost activate!")
         command("priv_empire 0 4 400 10000")
         send_letter("Activeaza Ratele")
      end
   end
end

Piatra curcubeu:

Cod:
quest piatracurcubeu begin
    state start begin
            when 50512.use begin
               
                say_title("Piatra curcubeu:")
                say("Vrei sa-ti ridici toate abilitatile la")
                say("gradul perfect?")
                say("Selecteaza skilurile care vrei sa le")
                say("dobandesti.")
               
                if pc.job ==0 then
                say("Selecteaza tipul abilitatilor detinute:.")
               
                local s=select("Corp","Mental")
               
                if s==1 then
                pc.set_skill_group(1)
                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.remove_item(50512, 1)
                say("Toate magiile ti-au fost facute perfect!")
                end
               
                if s==2 then               
                pc.set_skill_group(2)
                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.remove_item(50512, 1)
                say("Toate magiile ti-au fost facute perfect!")
                end
               
                elseif pc.job ==1 then
                say("Selecteaza tipul abilitatilor detinute:.")
               
                local s=select("Lupta aproape","Lupta cu arcul")
               
                if s==1 then               
                pc.set_skill_group(3)
                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(36 ,59)
                pc.remove_item(50512, 1)
                say("Toate magiile ti-au fost facute perfect!")
                end
               
                if s==2 then
                pc.set_skill_group(4)
                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(51 ,59)
                pc.remove_item(50512, 1)
                say("Toate magiile ti-au fost facute perfect!")
                end
               
                elseif pc.job ==2 then
                say("Selecteaza tipul abilitatilor detinute:.")
                local s=select("Magie neagra","Arme magice")
               
                if s==1 then
                pc.set_skill_group(5)
                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.remove_item(50512, 1)
                say("Toate magiile ti-au fost facute perfect!")
                end
               
                if s==2 then
                --Waffe
                pc.set_skill_group(6)
                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.remove_item(50512, 1)
                say("Toate magiile ti-au fost facute perfect!")
                end
               
                elseif pc.job ==3 then
                say("Selecteaza tipul abilitatilor detinute:.")
                local s=select("Vindecare","Dragon")
               
                if s==1 then
                pc.set_skill_group(7)
                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.remove_item(50512, 1)
                say("Toate magiile ti-au fost facute perfect!")
                end
               
                if s==2 then
                pc.set_skill_group(8)
                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(96 ,59)
                pc.remove_item(50512, 1)
                say("Toate magiile ti-au fost facute perfect!")
                end
            end
        end
    end
end

Bonusuri frizuri:

Cod:
quest hair begin
   state start begin
      function My_hair_item(vnum,index)   
         hair_list={}
             --  vnum    /hair/ option  /  howmuch / duration
         hair_list [74001] = {1001, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74002] = {1002, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74003] = {1003, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74004] = {1004, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [74005] = {1005, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74006] = {1006, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74007] = {1007, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74008] = {1008, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [74009] = {1009, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74010] = {1010, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74011] = {1011, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74012] = {1012, apply.ATTBONUS_SHAMAN,   10, 2592000}   
      
         hair_list [74251] = {2001, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74252] = {2002, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74253] = {2003, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74254] = {2004, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [74255] = {2005, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74256] = {2006, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74257] = {2007, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74258] = {2008, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [74259] = {2009, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74260] = {2010, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74261] = {2011, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74262] = {2012, apply.ATTBONUS_SHAMAN,   10, 2592000}   
 
         hair_list [74501] = {3001,  apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74502] = {3002,  apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74503] = {3003,  apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74504] = {3004,  apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [74505] = {3005,  apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74506] = {3006,  apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74507] = {3007,  apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74508] = {3008,  apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [74509] = {3009,  apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74510] = {3010, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74511] = {3011, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74512] = {3012, apply.ATTBONUS_SHAMAN,   10, 2592000}   

         hair_list [74751] = {4001, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74752] = {4002, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74753] = {4003, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74754] = {4004, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [74755] = {4005, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74756] = {4006, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74757] = {4007, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74758] = {4008, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [74759] = {4009, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [74760] = {4010, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [74761] = {4011, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [74762] = {4012, apply.ATTBONUS_SHAMAN,   10, 2592000}   

      
         hair_list [75001] = {1001, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75002] = {1002, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75003] = {1003, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75004] = {1004, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [75005] = {1005, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75006] = {1006, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75007] = {1007, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75008] = {1008, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [75009] = {1009, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75010] = {1010, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75011] = {1011, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75012] = {1012, apply.ATTBONUS_SHAMAN,   10, 2592000}   
      
         hair_list [75201] = {2001, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75202] = {2002, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75203] = {2003, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75204] = {2004, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [75205] = {2005, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75206] = {2006, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75207] = {2007, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75208] = {2008, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [75209] = {2009, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75210] = {2010, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75211] = {2011, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75212] = {2012, apply.ATTBONUS_SHAMAN,   10, 2592000}   
 
         hair_list [75401] = {3001,  apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75402] = {3002,  apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75403] = {3003,  apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75404] = {3004,  apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [75405] = {3005,  apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75406] = {3006,  apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75407] = {3007,  apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75408] = {3008,  apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [75409] = {3009,  apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75410] = {3010, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75411] = {3011, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75412] = {3012, apply.ATTBONUS_SHAMAN,   10, 2592000}   

         hair_list [75601] = {4001, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75602] = {4002, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75603] = {4003, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75604] = {4004, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [75605] = {4005, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75606] = {4006, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75607] = {4007, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75608] = {4008, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         hair_list [75609] = {4009, apply.ATTBONUS_WARRIOR,   10, 2592000}   
         hair_list [75610] = {4010, apply.ATTBONUS_ASSASSIN,   10, 2592000}   
         hair_list [75611] = {4011, apply.ATTBONUS_SURA,      10, 2592000}   
         hair_list [75612] = {4012, apply.ATTBONUS_SHAMAN,   10, 2592000}   
         return hair_list[vnum][index]
      end
      
      function leave_log(item_vnum)
         
         char_log(0, "CHANGE_HAIR", string.format("USE_ITEM(%d)",item_vnum)) -- Set Item log

         --char_log(0, "CHANGE_HAIR", string.format("SET_HAIR(%d)",item_vnum)) --Set Item log

         char_log(0, "CHANGE_HAIR", string.format("END_SEC(%d)",get_time()+ hair.My_hair_item(item_vnum,4)) ) -- Duration log

         --char_log(0, "CHANGE_HAIR", string.format("AFFECT(%s), DURATION:%d)",hair.My_hair_item(item_vnum,2),get_time()+ hair.My_hair_item(item_vnum,4))) -- Effect set log

         char_log(0, "CHANGE_HAIR", "CHANGE_HAIR_END") -- End log

      end
                                                            
   
      when  74001.use or
           74002.use or
           74003.use or
           74004.use or
           74005.use or
           74006.use or
           74007.use or
           74008.use or
           74009.use or
           74010.use or
           74011.use or
           74012.use or
           75001.use or
           75002.use or
           75003.use or
           75004.use or
           75005.use or
           75006.use or
           75007.use or
           75008.use or
           75009.use or
           75010.use or
           75011.use or
           75012.use with pc.get_job()==0 begin
         
         pc.set_part(PART_HAIR, hair.My_hair_item(item.vnum,1))
         affect.remove_hair()
         affect.add_hair(hair.My_hair_item(item.vnum,2),hair.My_hair_item(item.vnum,3) , hair.My_hair_item(item.vnum,4))

         pc.setqf("limit_time",get_time()+ hair.My_hair_item(item.vnum,4))
         hair.leave_log(item.vnum)
         item.remove()
      end
   
      when  74251.use or
           74252.use or
           74253.use or
           74254.use or
           74255.use or
           74256.use or
           74257.use or
           74258.use or
           74259.use or
           74260.use or
           74261.use or
           74262.use or
           75201.use or
           75202.use or
           75203.use or
           75204.use or
           75205.use or
           75206.use or
           75207.use or
           75208.use or
           75209.use or
           75210.use or
           75211.use or
           75212.use with pc.get_job()==1 begin
      
         pc.set_part(PART_HAIR, hair.My_hair_item(item.vnum,1))
         affect.remove_hair()
         affect.add_hair(hair.My_hair_item(item.vnum,2),hair.My_hair_item(item.vnum,3) , hair.My_hair_item(item.vnum,4))

         pc.setqf("limit_time",get_time()+hair.My_hair_item(item.vnum,4))

         hair.leave_log(item.vnum)
         item.remove()
      end

      when  74501.use or
           74502.use or
           74503.use or
           74504.use or
           74505.use or
           74506.use or
           74507.use or
           74508.use or
           74509.use or
           74510.use or
           74511.use or
           74512.use or
           75401.use or
           75402.use or
           75403.use or
           75404.use or
           75405.use or
           75406.use or
           75407.use or
           75408.use or
           75409.use or
           75410.use or
           75411.use or
           75412.use with pc.get_job()==2 begin
          
         
          pc.set_part(PART_HAIR, hair.My_hair_item(item.vnum,1))
         affect.remove_hair()
         affect.add_hair(hair.My_hair_item(item.vnum,2),hair.My_hair_item(item.vnum,3) , hair.My_hair_item(item.vnum,4))

         pc.setqf("limit_time",get_time()+hair.My_hair_item(item.vnum,4))

         hair.leave_log(item.vnum)
         item.remove()
      end
   
      when  74751.use or
           74752.use or
           74753.use or
           74754.use or
           74755.use or
           74756.use or
           74757.use or
           74758.use or
           74759.use or
           74760.use or
           74761.use or
           74762.use or
           75601.use or
           75602.use or
           75603.use or
           75604.use or
           75605.use or
           75606.use or
           75607.use or
           75608.use or
           75609.use or
           75610.use or
           75611.use or
           75612.use with pc.get_job()==3 begin
          
         
         pc.set_part(PART_HAIR, hair.My_hair_item(item.vnum,1))
         affect.remove_hair()
         affect.add_hair(hair.My_hair_item(item.vnum,2),hair.My_hair_item(item.vnum,3) , hair.My_hair_item(item.vnum,4))

         pc.setqf("limit_time",get_time()+ hair.My_hair_item(item.vnum,4))

         hair.leave_log(item.vnum)
         item.remove()
      end

   end
end

Teleportarea jucatorului(Permite cu ajutorul unui item sa te teleportezi la un jucator odata pe ora):

Cod:
quest teleportarea_jucatorului begin
state start begin
when 40004.use begin
  local ramas = pc.getqf("next_time") - get_time()
  local ramas_min = ramas / 60
  if get_time() < pc.getqf("next_time")then
    say_title("Teleportarea jucatorului:")
    say("Trebuie sa mai astepti "..ramas_min.." minute[ENTER]pentru a te putea teleporta din nou!")
  else
    say_title("Teleportarea jucatorului:")
    say("Acest obiect iti permite sa te teleportezi la un[ENTER]jucator.")
    say_reward("Vrei sa te teleportezi?")
    local a = select("Da","Nu am timp!")
    if a == 1 then
      say_title("Teleportarea jucatorului:")
      say_reward("Scrie numele jucatorului la care vrei sa te[ENTER]teleportezi:")
      local name = input()
      if pc.get_level() < 35 then
        say_title("Teleportarea jucatorului:")
        say("Poti folosi acest item decat dupa nivelul 35!")
      else
        pc.teleport(name)
        pc.remove_item(40004, 1)
        pc.setqf("next_time", get_time() + 3600)
      end
    end   
  end
end
end
end

Voi revenii cu alte quest-uri mult mai interesante... acestea consider ca sunt mai esentiale pentru unele servere.

Vezi subiectul anterior Vezi subiectul urmator Sus  Mesaj [Pagina 1 din 1]

Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum

 

Copyright @ 2010-2024 by 4en3rgY ~> All rights reserved.