QUEST INEL VIP

În cazul în care aveţi o nelămurire postaţi aici, de asemenea este locul unde puteţi găsi posibile rezolvări la problemele dvs.
Deconectat
Avatar utilizator
coadapute123
Nivel 2
Nivel 2
Mesaje: 209
Membru din: 05 Ian 2019
Status: Sunt bine mersi
Server Metin2: Entropia2
Regat: Jinno
Mulțumiri acordate: 35
Mulțumiri primite: 1

QUEST INEL VIP

Mesajde coadapute123 » 22 Apr 2019, 14:06

]*Problemă:Cand dau click dreapta si dau "da" se inchide questul , inelul ramane in inventar si nu se intampla nimic.
Tipologie server:
Resursă folosită:
quest vip7 begin
state start begin
when 40004.use begin
if pc.count_item(40004)>=1 then
say_title("Inel [VIP]")
say("Vrei sa ai VIP in fata numelui")
local a = select("Da!", "Nu")
if a == 1 then
local name = pc.get_name()
local find_id = mysql_query("SELECT account_id from player.player WHERE name='"..name.."' LIMIT 1;")
local id = find_id[1][1]+1-1
mysql_query("UPDATE player.player SET name='[VIP]"..name.."' WHERE account_id='"..id.."' LIMIT 1;")
pc.remove_item(40004)
syschat("Votre demande à été envoyé au serveur. Votre")
syschat("changera dès que le serveur aura retourné l'information!")
else
return
end
else
say_title("Inel [VIP]")
say("Aveti Nevoie de")
say("Inelul VIP pentru a activa numele:")
say_item_vnum(40004)
say("Intoarcete cand ai.")
return
end
end
end
end


*ServerFiles utilizat:
*Syserr:
Poză:
*Detalii suplimentare:

Vă rugăm să scanaţi întotdeauna fişierele pe care le descărcaţi cu VirusTotal.
Imagine

Deconectat
Avatar utilizator
Petrinel
Helper
Helper
Mesaje: 83
Membru din: 31 Mar 2018
Localitate: Fălciu
Reputație: -------------------
Discord: Petrinel#1395
-------------------
Status:
Server Metin2: În lucru.
Regat: Jinno
Mulțumiri acordate: 8
Mulțumiri primite: 7
Contact:

Re: QUEST INEL VIP

Mesajde Petrinel » 22 Apr 2019, 16:40

Incearca pe asta:

Cod: Selectaţi tot

    quest vip7 begin
        state start begin
            when 4200.use begin
                say_title("[VIP]")
                say("")
                say("Doresti sa ai [VIP]")
                say("in fata numelui , 2k HP + 5 Semi-Om ?")
                    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..")
                            affect.add_collect(apply.MAX_HP, 2000,60*60*24*7)
                     affect.add_collect(apply.ATTBONUS_HUMAN, 5,60*60*24*7)
                     
                            say_title("[VIP] ")
                            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
Imagine

Deconectat
Avatar utilizator
coadapute123
Nivel 2
Nivel 2
Mesaje: 209
Membru din: 05 Ian 2019
Status: Sunt bine mersi
Server Metin2: Entropia2
Regat: Jinno
Mulțumiri acordate: 35
Mulțumiri primite: 1

Re: QUEST INEL VIP

Mesajde coadapute123 » 22 Apr 2019, 22:58

Petrinel scrie:Incearca pe asta:

Cod: Selectaţi tot

    quest vip7 begin
        state start begin
            when 4200.use begin
                say_title("[VIP]")
                say("")
                say("Doresti sa ai [VIP]")
                say("in fata numelui , 2k HP + 5 Semi-Om ?")
                    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..")
                            affect.add_collect(apply.MAX_HP, 2000,60*60*24*7)
                     affect.add_collect(apply.ATTBONUS_HUMAN, 5,60*60*24*7)
                     
                            say_title("[VIP] ")
                            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

e testat de tine , ca mi se pare ca l am incercat si pe asta?
Imagine

Deconectat
Avatar utilizator
Petrinel
Helper
Helper
Mesaje: 83
Membru din: 31 Mar 2018
Localitate: Fălciu
Reputație: -------------------
Discord: Petrinel#1395
-------------------
Status:
Server Metin2: În lucru.
Regat: Jinno
Mulțumiri acordate: 8
Mulțumiri primite: 7
Contact:

Re: QUEST INEL VIP

Mesajde Petrinel » 22 Apr 2019, 23:17

Nu l-am testat , incearca sa vezi ce si cum.
Imagine

Conectat
Avatar utilizator
Reme
Helper
Helper
Mesaje: 458
Membru din: 09 Mar 2014
Localitate: Lyon
Reputație: ===============
» Helper
» Trial Helper
» Moderator
» Fost Trial Moderator
» Fost Moderator
» Membru Club Permanent
===============
» skype: alexandra.alexa445
» discord: Reme#5040
===============
» nume anterioare: Remember
===============
Block chat - 11 mai
Status: hate
Server Metin2: www.sephiris2.ro
Regat: Jinno
Autentificat prin: iPhone
Mulțumiri acordate: 21
Mulțumiri primite: 48
Contact:

Re: QUEST INEL VIP

Mesajde Reme » 23 Apr 2019, 00:14

Cod: Selectaţi tot

quest cufar_vip begin
   state start begin
      when 38053.use begin
         say_title("Salut "..pc.get_name().."")
         say("")
         say("Odata cu deschiderea acestui cufar")
         say("vei primi iteme corespunzatoare,")
         say("si tagul VIP in fata numelui,")
         say("PERMANENT.")
         say("")

         say_title("Doresti activarea statusului Premium User?")
         
         local change = select("Da", "Nu")
         if change == 2 then
         return
         end   
         if change == 1 then
            pc.remove_item(38053, 1)
            pc.give_item2(70021, 1)
            pc.give_item2(41324, 1)
            pc.give_item2(41325, 1)
            pc.give_item2(50513, 50)
            pc.give_item2(80007, 1)
            pc.give_item2(80007, 1)
            local hostname="nume server"
                name = pc.get_name()
                lname = string.len(name)
                if change == 1 and lname <= 8 then
                mysql_query("UPDATE player.player SET name='[VIP]"..pc.get_name().."' WHERE name='"..pc.get_name().."'")
                say_title("Nume schimbat cu succes!")
                say("Felicitari! Acum esti VIP pe "..hostname)
                say("")
                say("")
                say("Informatie")
                say_reward("Schimbarea in statusul (VIP) poate dura 15-20 de minute..")
                elseif lname > 8 then
                say_title("Numele tau!")
                say("Numnele tau este prea lung.")
                say("Numele nu are voie sa aiba mai mult de 8 caractere.")
                say("Daca nu respecti regula, la schimbarea numelui, ")
                say("acesta poate fi incomplet")
                say("")
                say_reward("Vrei totusi sa continui?")
                local a = select("Da", "Nu")
               if a == 2 then
               return
               end
               if a == 1 then
                  say_title("Schimbarea numelui")
                  say("Introdu numele dorit:")
                  say_reward("Fii atent!Nu mai mult de 8 caractere.")
                  local inp = input()
                  if string.len(inp) > 8 or inp == "" then
                  say("Numele tau are mai mult de 8 caractere.")
                  say("Imi pare sincer rau.")
                  return
                  else
                  say_title("In regula")
                  say("Numele tau respecta cerinta.")
                  say("")
                  say("Esti sigur ca vrei sa activezi statusul VIP")
                  say("cu numele (VIP)", inp," ?")
                  local b = select("Da", "Nu")
                     if b == 2 then
                     return
                     else
                     mysql_query("UPDATE player.player SET name='[VIP]"..inp.."' WHERE name='"..pc.get_name().."'")
                     say_title("Nume schimbat cu succes!")
                     say("Felicitari! Acum esti VIP pe "..hostname)
                     say("")
                     say("")
                     say("Info")
                     say_reward("Schimbarea in statusul (VIP) poate dura 15-20 de minute..")
                     end
                  end
               end
            end
            end
      end
   end
end

In cazul in care nu exista deja, adaugati in questing.lua urmatoarea functie:

Cod: Selectaţi tot

mysql_query = function(query)
    if not pre then
        local rt = io.open('CONFIG','r'):read('*all')
        pre,_= string.gsub(rt,'.+PLAYER_SQL:%s(%S+)%s(%S+)%s(%S+)%s(%S+).+','-h%1 -u%2 -p%3 -D%4')
    end
    math.randomseed(os.time())
    local fi,t,out = 'mysql_data_'..math.random(10^9)+math.random(2^4,2^10),{},{}
    -- os.execute('mysql '..pre..' --e='..string.format('%q',query)..' > '..fi)
    os.execute('mysql '..pre..' -e'..string.format('%q',query)..' > '..fi)
    for av in io.open(fi,'r'):lines() do table.insert(t,split(av,'t')) end; os.remove(fi);
    for i = 2, table.getn(t) do table.foreach(t[i],function(a,B)
        out[i-1]               = out[i-1] or {}
        out[i-1][a]            = tonumber(B) or b or 'NULL'
        out[t[1][a]]           = out[t[1][a]] or {}
        out[t[1][a]][i-1]      = tonumber(B) or b or 'NULL'
    end) end
    return out
end
Imagine

Deconectat
Avatar utilizator
coadapute123
Nivel 2
Nivel 2
Mesaje: 209
Membru din: 05 Ian 2019
Status: Sunt bine mersi
Server Metin2: Entropia2
Regat: Jinno
Mulțumiri acordate: 35
Mulțumiri primite: 1

Re: QUEST INEL VIP

Mesajde coadapute123 » 23 Apr 2019, 11:00

Petrinel scrie:Incearca pe asta:

Cod: Selectaţi tot

    quest vip7 begin
        state start begin
            when 4200.use begin
                say_title("[VIP]")
                say("")
                say("Doresti sa ai [VIP]")
                say("in fata numelui , 2k HP + 5 Semi-Om ?")
                    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..")
                            affect.add_collect(apply.MAX_HP, 2000,60*60*24*7)
                     affect.add_collect(apply.ATTBONUS_HUMAN, 5,60*60*24*7)
                     
                            say_title("[VIP] ")
                            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

vip.quest:25:syntax error : [string "start"]:10: `)' expected near `"..pc.get_name.."'
Abort (core dumped)
Imagine

Deconectat
Avatar utilizator
coadapute123
Nivel 2
Nivel 2
Mesaje: 209
Membru din: 05 Ian 2019
Status: Sunt bine mersi
Server Metin2: Entropia2
Regat: Jinno
Mulțumiri acordate: 35
Mulțumiri primite: 1

Re: QUEST INEL VIP

Mesajde coadapute123 » 23 Apr 2019, 11:03

Reme scrie:

Cod: Selectaţi tot

quest cufar_vip begin
   state start begin
      when 38053.use begin
         say_title("Salut "..pc.get_name().."")
         say("")
         say("Odata cu deschiderea acestui cufar")
         say("vei primi iteme corespunzatoare,")
         say("si tagul VIP in fata numelui,")
         say("PERMANENT.")
         say("")

         say_title("Doresti activarea statusului Premium User?")
         
         local change = select("Da", "Nu")
         if change == 2 then
         return
         end   
         if change == 1 then
            pc.remove_item(38053, 1)
            pc.give_item2(70021, 1)
            pc.give_item2(41324, 1)
            pc.give_item2(41325, 1)
            pc.give_item2(50513, 50)
            pc.give_item2(80007, 1)
            pc.give_item2(80007, 1)
            local hostname="nume server"
                name = pc.get_name()
                lname = string.len(name)
                if change == 1 and lname <= 8 then
                mysql_query("UPDATE player.player SET name='[VIP]"..pc.get_name().."' WHERE name='"..pc.get_name().."'")
                say_title("Nume schimbat cu succes!")
                say("Felicitari! Acum esti VIP pe "..hostname)
                say("")
                say("")
                say("Informatie")
                say_reward("Schimbarea in statusul (VIP) poate dura 15-20 de minute..")
                elseif lname > 8 then
                say_title("Numele tau!")
                say("Numnele tau este prea lung.")
                say("Numele nu are voie sa aiba mai mult de 8 caractere.")
                say("Daca nu respecti regula, la schimbarea numelui, ")
                say("acesta poate fi incomplet")
                say("")
                say_reward("Vrei totusi sa continui?")
                local a = select("Da", "Nu")
               if a == 2 then
               return
               end
               if a == 1 then
                  say_title("Schimbarea numelui")
                  say("Introdu numele dorit:")
                  say_reward("Fii atent!Nu mai mult de 8 caractere.")
                  local inp = input()
                  if string.len(inp) > 8 or inp == "" then
                  say("Numele tau are mai mult de 8 caractere.")
                  say("Imi pare sincer rau.")
                  return
                  else
                  say_title("In regula")
                  say("Numele tau respecta cerinta.")
                  say("")
                  say("Esti sigur ca vrei sa activezi statusul VIP")
                  say("cu numele (VIP)", inp," ?")
                  local b = select("Da", "Nu")
                     if b == 2 then
                     return
                     else
                     mysql_query("UPDATE player.player SET name='[VIP]"..inp.."' WHERE name='"..pc.get_name().."'")
                     say_title("Nume schimbat cu succes!")
                     say("Felicitari! Acum esti VIP pe "..hostname)
                     say("")
                     say("")
                     say("Info")
                     say_reward("Schimbarea in statusul (VIP) poate dura 15-20 de minute..")
                     end
                  end
               end
            end
            end
      end
   end
end

In cazul in care nu exista deja, adaugati in questing.lua urmatoarea functie:

Cod: Selectaţi tot

mysql_query = function(query)
    if not pre then
        local rt = io.open('CONFIG','r'):read('*all')
        pre,_= string.gsub(rt,'.+PLAYER_SQL:%s(%S+)%s(%S+)%s(%S+)%s(%S+).+','-h%1 -u%2 -p%3 -D%4')
    end
    math.randomseed(os.time())
    local fi,t,out = 'mysql_data_'..math.random(10^9)+math.random(2^4,2^10),{},{}
    -- os.execute('mysql '..pre..' --e='..string.format('%q',query)..' > '..fi)
    os.execute('mysql '..pre..' -e'..string.format('%q',query)..' > '..fi)
    for av in io.open(fi,'r'):lines() do table.insert(t,split(av,'t')) end; os.remove(fi);
    for i = 2, table.getn(t) do table.foreach(t[i],function(a,B)
        out[i-1]               = out[i-1] or {}
        out[i-1][a]            = tonumber(B) or b or 'NULL'
        out[t[1][a]]           = out[t[1][a]] or {}
        out[t[1][a]][i-1]      = tonumber(B) or b or 'NULL'
    end) end
    return out
end

is mai prajit si a trebuit sa editez , itemele le primesc , itemul dispare am adaugat si in questing.lua alea dar nu primesc vip , am dat si un reboot sa testez
Imagine

Deconectat
Avatar utilizator
Titan
Helper Avansat
Helper Avansat
Mesaje: 2247
Membru din: 01 Iun 2015
Mulțumiri acordate: 28
Mulțumiri primite: 156
Contact:

Re: QUEST INEL VIP

Mesajde Titan » 25 Apr 2019, 21:21

coadapute123 scrie:
Reme scrie:

Cod: Selectaţi tot

quest cufar_vip begin
   state start begin
      when 38053.use begin
         say_title("Salut "..pc.get_name().."")
         say("")
         say("Odata cu deschiderea acestui cufar")
         say("vei primi iteme corespunzatoare,")
         say("si tagul VIP in fata numelui,")
         say("PERMANENT.")
         say("")

         say_title("Doresti activarea statusului Premium User?")
         
         local change = select("Da", "Nu")
         if change == 2 then
         return
         end   
         if change == 1 then
            pc.remove_item(38053, 1)
            pc.give_item2(70021, 1)
            pc.give_item2(41324, 1)
            pc.give_item2(41325, 1)
            pc.give_item2(50513, 50)
            pc.give_item2(80007, 1)
            pc.give_item2(80007, 1)
            local hostname="nume server"
                name = pc.get_name()
                lname = string.len(name)
                if change == 1 and lname <= 8 then
                mysql_query("UPDATE player.player SET name='[VIP]"..pc.get_name().."' WHERE name='"..pc.get_name().."'")
                say_title("Nume schimbat cu succes!")
                say("Felicitari! Acum esti VIP pe "..hostname)
                say("")
                say("")
                say("Informatie")
                say_reward("Schimbarea in statusul (VIP) poate dura 15-20 de minute..")
                elseif lname > 8 then
                say_title("Numele tau!")
                say("Numnele tau este prea lung.")
                say("Numele nu are voie sa aiba mai mult de 8 caractere.")
                say("Daca nu respecti regula, la schimbarea numelui, ")
                say("acesta poate fi incomplet")
                say("")
                say_reward("Vrei totusi sa continui?")
                local a = select("Da", "Nu")
               if a == 2 then
               return
               end
               if a == 1 then
                  say_title("Schimbarea numelui")
                  say("Introdu numele dorit:")
                  say_reward("Fii atent!Nu mai mult de 8 caractere.")
                  local inp = input()
                  if string.len(inp) > 8 or inp == "" then
                  say("Numele tau are mai mult de 8 caractere.")
                  say("Imi pare sincer rau.")
                  return
                  else
                  say_title("In regula")
                  say("Numele tau respecta cerinta.")
                  say("")
                  say("Esti sigur ca vrei sa activezi statusul VIP")
                  say("cu numele (VIP)", inp," ?")
                  local b = select("Da", "Nu")
                     if b == 2 then
                     return
                     else
                     mysql_query("UPDATE player.player SET name='[VIP]"..inp.."' WHERE name='"..pc.get_name().."'")
                     say_title("Nume schimbat cu succes!")
                     say("Felicitari! Acum esti VIP pe "..hostname)
                     say("")
                     say("")
                     say("Info")
                     say_reward("Schimbarea in statusul (VIP) poate dura 15-20 de minute..")
                     end
                  end
               end
            end
            end
      end
   end
end

In cazul in care nu exista deja, adaugati in questing.lua urmatoarea functie:

Cod: Selectaţi tot

mysql_query = function(query)
    if not pre then
        local rt = io.open('CONFIG','r'):read('*all')
        pre,_= string.gsub(rt,'.+PLAYER_SQL:%s(%S+)%s(%S+)%s(%S+)%s(%S+).+','-h%1 -u%2 -p%3 -D%4')
    end
    math.randomseed(os.time())
    local fi,t,out = 'mysql_data_'..math.random(10^9)+math.random(2^4,2^10),{},{}
    -- os.execute('mysql '..pre..' --e='..string.format('%q',query)..' > '..fi)
    os.execute('mysql '..pre..' -e'..string.format('%q',query)..' > '..fi)
    for av in io.open(fi,'r'):lines() do table.insert(t,split(av,'t')) end; os.remove(fi);
    for i = 2, table.getn(t) do table.foreach(t[i],function(a,B)
        out[i-1]               = out[i-1] or {}
        out[i-1][a]            = tonumber(B) or b or 'NULL'
        out[t[1][a]]           = out[t[1][a]] or {}
        out[t[1][a]][i-1]      = tonumber(B) or b or 'NULL'
    end) end
    return out
end

is mai prajit si a trebuit sa editez , itemele le primesc , itemul dispare am adaugat si in questing.lua alea dar nu primesc vip , am dat si un reboot sa testez


Tot ce face quest-ul ăsta e să-ți dea niște iteme și să-ți adauge [VIP] la nume nu-ți setează și gradul, acum depinde de ce sistem de vip folosești.. ăla de pe dev care e copie după gradele defeault din joc, cel al lui onex..
Salut, ai nevoie de un serverfiles clean sau la comandă, modificări ale serverfiles-ului existent sau suport? Mă poți contacta oricând.





Conectat
Avatar utilizator
Cibirichi
Super Moderator
Super Moderator
Mesaje: 764
Membru din: 20 Sep 2015
Autentificat prin: iPhone
Mulțumiri acordate: 5
Mulțumiri primite: 99
Contact:

Re: QUEST INEL VIP

Mesajde Cibirichi » 02 Mai 2019, 00:47

pentru pc.change_name trebuie sa editezi in sursa sa fie valabil si pentru europa, este o verificare care trebuie scoasa
Imagine


Înapoi la “Probleme şi Întrebări”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 1 vizitator