[2 Regate] [Functional] Tinctura Regatelor

Neconectat
Avatar utilizator
[Bullseye]
Utilizator interzis !
Utilizator interzis !
Mesaje: 202
Membru din: 16 Oct 2017
Status: kingsofpvp2
Server Metin2: KOP2
Regat: Jinno
Mulţumiri acordate: 2  
Mulţumiri primite: 60  

[2 Regate] [Functional] Tinctura Regatelor

Mesaj de [Bullseye] » 01 Aug 2018, 22:21

Nume: Tinctura Regatelor
Descriere: Am cautat si nu am gasit, asa ca m-am decis sa fac eu si sa v-o dau si voua:Tinctura Regatelor cu Regatul Albastru si Rosu
Imagini: -
Quest:
quest change_empire_item begin
       state start begin
          when login with pc.getqf("special_func") == 0 begin
             if pc.get_empire() == 1 then
                affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
                affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
                affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
                pc.setqf("special_func", 1)
             elseif pc.get_empire() == 3 then
                affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
                affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
                affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
                affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
                affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
                pc.setqf("special_func", 2)
             end         
          end     
          when 71054.use begin
             say_title("Tinctura Regatului")
             say("Cu aceasta tinctura poti sa")
             say("îti schimbi regatul cu unul nou")
             say("pe care tu îl doresti.")
             say("")
             if get_time() < pc.getqf("next_use_time") then
                say_reward("Nu puteti schimba regatul.")
                if pc.is_gm() then
                   pc.setqf("next_use_time", 0)
                end
                return
             end
             if change_empire_item.move_pc() == true then
                if pc.getqf("special_func")==1 then
                   affect.remove_collect(apply.GOLD_DOUBLE_BONUS,10)
                   affect.remove_collect(apply.ITEM_DROP_BONUS,10)
                   affect.remove_collect(apply.ATT_BONUS_TO_MONSTER,10)
                elseif pc.getqf("special_func")==2 then   
                   affect.remove_collect(apply.STR,10)
                   affect.remove_collect(apply.CON,10)
                   affect.remove_collect(apply.INT,10)
                   affect.remove_collect(apply.DEX,10)
                   affect.remove_collect(apply.GOLD_DOUBLE_BONUS,10)
                end
                pc.setqf("special_func", 0)
                pc.setqf("next_use_time", get_time() + time_hour_to_sec(24*7))
             end
          end
          function move_pc()
             if pc.is_engaged() then
                say_reward("Esti casatorit/a.")
                say_reward("Nu poti schimba regatul.")
                return false
             end
             if pc.is_married() then
                say_reward("Esti casatorit/a.")
                say_reward("Nu poti schimba regatul.")
                return false
             end
             if pc.is_polymorphed() then
                say_reward("Esti transformat.")
                say_reward("Nu poti schimba regatul.")
                return false
             end
             if pc.has_guild() then
                say_reward("Esti într-o breasla.")
                say_reward("Nu poti schimba regatul.")
                return false
             end
             if pc.money < 500000 then
                say_reward("Nu ai suficient Yang.")
                say_reward("Pentru a schimba regatul ai nevoie de 500.000 Yang.")
                return false
             end
             say_reward("In ce regat vrei sa te muti?")
             local s = select("Regatul Rosu", "Niciunul", "Regatul Albastru")
             if 2==s then
                return false
             end
             say_title("Tinctura Regatelor")
             say("Vrei sa parasesti acest regat?")
             say("Pentru tradare nu exista scuze!")
             local a = select("Schimb Regatul", "Nu mai vreau")
             if 2== a then
                return false
             end
             local ret = pc.change_empire(s)
             local oldempire = pc.get_empire()
             if ret == 999 then
                say_title("Tinctura Regatelor")
                say("Ai schimbat regatul cu succes.")
                say("Daca vei dori sa schimbi din nou regatul")
                say("va trebui sa astepti o saptamâna.")
                say("Va rugam relogati-va.")
                pc.change_gold(-500000)         
                pc.remove_item(71054)         
                return  true
             elseif ret == 1 then
                say("Esti deja în acest regat.")
                say("Te rog sa selectezi alt regat.")
             elseif ret == 2 then
                say("Înca nu poti schimba regatul.")
                say("Nu poti schimba regatul,")
                say("deoarece ai fost într-o bresla recent.")
             elseif ret == 3 then
                say("Nu poti schimba regatul.")
                say("Nu poti schimba regatul,")
                say("deoarece ai fost casatorit recent.")
             end
             return false
          end
       end
    end
Tutorial instalare quest:
  • Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest/.lua
  • Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).
  • Îl puneţi acolo (să fie .quest sau .lua).
  • Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest (depinde ce server aveţi) apoi ./qc nume_quest.quest/.lua
  • Intraţi pe server şi scrieţi /reload q
  • Testaţi quest-ul.
These users thanked the author [Bullseye] for the post (total 2):
rekinueren11
DACĂ TE-AM AJUTAT DĂ-MI UN THX
Imagine

Neconectat
Avatar utilizator
rekinu
Mister Just4Metin
Mister Just4Metin
Mesaje: 443
Membru din: 18 Ian 2014
Status: Sunt bine mersi ^.^
Mulţumiri acordate: 20  
Mulţumiri primite: 19  
Contact:

Re: [2 Regate] [Functional] Tinctura Regatelor

Mesaj de rekinu » 31 Dec 2018, 09:23

mercy .. cautam demult !
Imagine

Neconectat
Avatar utilizator
Nicolescu Radu
Super Moderator
Super Moderator
Mesaje: 810
Membru din: 11 Noi 2017
Localitate: Brasov
Reputație: ®
• • • • • • • • • • • •
✎ Super Moderator J4M
✎ Moderator J4M
✎ Trial Moderator J4M
✎ Membru Club J4M
• • • • • • • • • • • •
Status: OK !
Server Metin2: Eruris2
Regat: Jinno
Mulţumiri acordate: 0
Mulţumiri primite: 58  
Contact:

Re: [2 Regate] [Functional] Tinctura Regatelor

Mesaj de Nicolescu Radu » 31 Dec 2018, 09:55

Thx :ymhug:
Daca crezi ca te-am ajutat , sau iti place mesajul meu nu uita sa dai un LIKE !

Scrie răspuns

Înapoi la “Quest-uri”