[PACK] Questuri pentru serverele PvP

Deconectat
Avatar utilizator
El Raton Magnifico
Nivel 2
Nivel 2
Mesaje: 159
Membru din: 10 Ian 2015
Status: Boalfa
Server Metin2: Restoria2
Regat: Chunjo
Mulțumiri acordate: 0
Mulțumiri primite: 0
Contact:

[PACK] Questuri pentru serverele PvP

Mesajde El Raton Magnifico » 19 Feb 2015, 01:23

Quest marmura binecuvantata

Cod: Selectaţi tot

quest marmura begin
   state start begin
      when 20091.chat."Cumpara Marmura Binecuvantata" begin
         say_title("Marmura binecuvantata")
         say(" ")
         say("Buna cavalere, ai auzit de Marmura Binecuvanta ?")
         say("Cu ea poti sa-ti mai adaugi un bonus la item")
         say("dar cu o conditie, acel item sa aiba deja 4 bonusuri")
         say("Vrei si tu 50 bucati de marmura ?")
         say("")
         say_reward("Te costa: 100.000 Yang.")
         say("")
         say("")
         s = select("Da","Nu")
         if s == 2 then
            return
         elseif pc.get_gold()<100000 then
            say_title("Seon-Pyeong")
            say("")
            say("Hm...")
            say("Nu iti pot da marmura")
            say("pe gratis..vino la mine cand ai 100.000 yang.")
            say("O zi buna!")
            return
         end
            pc.give_item2(70024, 50)
            pc.change_gold(-100000)
            syschat("Tocmai ai cumparat Marmura Binecuvantata cu 100.000 Yang.")
      end
   end
end

Quest cand este creat un caracter nou

Cod: Selectaţi tot

quest mesajjucatornou begin
   state start begin
      when login  with pc.get_level() == 1 begin
      if pc.getqf("jucator_nou") == 0 then
         notice_all("Jucatorul "..pc.get_name().." este nou pe (SERVER)! Sa-i uram bun venit  !")
         pc.setqf("jucator_nou", 1)
      else
         return
                end
   end
end
end

Quest YANG

Cod: Selectaţi tot

quest yang begin
   state start   begin
      when 20091.chat."Salut, vrei Yang?" begin
         say("Salut tinere razboinic !")
         say("Chiar doresti sa imprumuti niste yang")
         say("de la mine?")
         local s = select("Desigur, am nevoie..", "Nu")
         if s == 1 and pc.get_gold()<=999999999 then
         pc.change_money(999999999)
         elseif s == 1 and pc.get_gold()>=999999999 then
         say("Ai prea mult yang in inventar !")
         say("Poti purta la tine doar 2kkk (2 miliarde)!")
         say("Vino cand ai mai putin yang !")
         elseif s == 1 and pc.get_gold()>=999999999 then
         say("Poftim yangul!")
         say("Nu ezita .. poti veni oricand la mine.")
         end
         if s == 2 then
         return
         end
      end
   end
end   

Quest EXP

Cod: Selectaţi tot

quest level begin
   state start begin
      when login with pc.get_level() <= 54 begin
         local lvl = 55
         if pc.get_level() <= 55 then
         while pc.get_level() < lvl do
         pc.give_exp2(pc.get_next_exp())
              end
         end
      end
   end
end

Quest Piatra curcubeu

Cod: Selectaţi tot

   quest regenbogen begin
        state start begin
                when 50512.use  begin
                pc.removeitem("50512", 1)
           
                    say_title("Piatra curcubeu")
                    say("Aceasta piatra va poate face")
                    say("magiile perfecte.")
                   
                    if pc.job ==0 then
                    say("Alegeti competentele dvs.")
                   
                    local s=select("Corp","Mental")
                   
                    if s==1 then
                    --Corp
                    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)
                    say("Competentele dvs. sunt perfecte")
                    end
                   
                    if s==2 then
                    --Mental
                    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)
                    say("Competentele dvs. sunt perfecte")
                    end
                   
                    elseif pc.job ==1 then
                    say("Alegeti competentele dvs.")
                   
                    local s=select("Lame","Arc")
                   
                    if s==1 then
                    --Lame
                    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)
                    say("Competentele dvs. sunt perfecte")
                    end
                   
                    if s==2 then
                    --Arc
                    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)
                    say("Competentele dvs. sunt perfecte")
                    end
                   
                    elseif pc.job ==2 then
                    say("Alegeti competentele dvs.")
                    local s=select("Magie","Arme")
                   
                    if s==1 then
                    --Magie
                    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)
                    say("Competentele dvs. sunt perfecte")
                    end
                   
                    if s==2 then
                    --Arme
                    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)
                    say("Competentele dvs. sunt perfecte")
                    end
                   
                    elseif pc.job ==3 then
                    say("Alegeti competentele dvs.")
                    local s=select("Vindecare","Dragon")
                   
                    if s==1 then
                    --Vindecare
                    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)
                    say("Competentele dvs. sunt perfecte")
                    end
                   
                    if s==2 then
                    --Dragon
                    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)
                    say("Competentele dvs. sunt perfecte")
                    end
                end
            end
        end
    end

Quest Spelluri secundare

Cod: Selectaţi tot

quest secundare begin
   state start begin
   function cruel()
   for i=o,u,1 begin
   pc.set_skill_level(i ,59)
   end
   end
      when 20091.chat."Skill Secundare" begin
      say("Salut,"..pc.name)
      say("doresti sa primesti Skill Secundare?")
      say("")
      local s = select ("Da","Nu")
      if s==1 then
      o = 121
      u = 139
      cruel.cruel()
      end
      end
   end
end

Quest Roua permanenta

Cod: Selectaţi tot

quest roua begin
   state start begin
      when levelup with pc.level >= 54 begin
            say("Salut luptatorule!")
            say("Pentru a evita bugul la roua, am decis sa")
            say("implementam roua permanenta:")
            say("Bonus Viteza de atac +10% (Permanent).")
            say("Valoarea atacului +60% (Permanent).")
            say("Rezistenta la magie +10% (Permanent).")
            say("Aparare +50% (Permanent).")
            say("Sansa de lov. Critica +10% (Permanent).")
            say("Sansa de lov. Patrunzatoare +10% (Permanent).")
            affect.add_collect(apply.ATT_SPEED, 10, 60*60*24*365*60) 
            affect.add_collect(apply.CRITICAL_PCT, 10, 60*60*24*365*60)
            affect.add_collect(apply.PENETRATE_PCT, 10, 60*60*24*365*60)   
            affect.add_collect(apply.ATT_GRADE_BONUS, 60, 60*60*24*365*60)
            affect.add_collect(apply.DEF_GRADE_BONUS, 50, 60*60*24*365*60)
            affect.add_collect(apply.RESIST_MAGIC, 10, 60*60*24*365*60)
      end
   end
end


Tutorial instalare quest:
1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu rasplata.quest .
2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).
3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.
4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc rasplata.quest
5. Intraţi pe server şi scrieţi /reload q .
6. Testaţi quest-ul .

O sa revin cu mai multe cand mai gasesc/fac. Un thanks daca v-am ajutat, multa bafta ;)
Ultima oară modificat 23 Apr 2016, 23:40 de către Ankhed, modificat 1 dată în total.
Motiv: .
Sunt succese care te înjosesc şi înfrângeri care te înalţă.

Cod: Selectaţi tot

If $post = "helpful" Then 
Mouseclick ("left","Buton Multumesc") 
EndIf


Va da fratele vostru Tupac si acadele

Conectat
Avatar utilizator
h u m a n
Super Ad Mod
Super Ad Mod
Mesaje: 1884
Membru din: 03 Sep 2014
Localitate: Bravos
Reputație: Gabor
Nume anterior: IPS Sociopath
Status: NU!
Server Metin2: NU!
Mulțumiri acordate: 17
Mulțumiri primite: 14
Contact:

Re: [PACK] Questuri pentru serverele PvP

Mesajde h u m a n » 07 Iul 2015, 23:38

Mutat în quest-uri!

[ Mesaj scris via Android ] Imagine
Imagine


Înapoi la “Quest-uri”

Cine este conectat

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