4en3rgY Romania
[Tutorial] Quest Cufar Premium User 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ă

[Tutorial] Quest Cufar Premium User

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

1Válido [Tutorial] Quest Cufar Premium User Sam 02 Sept 2017, 19:59

AlexYs

AlexYsMembru

Nume: Cufar premium user
Descriere: Cu ajutorul acestui quest poti activa statusul VIP permanent.
Questul ofera posibilitatea schimbarii numelui, in cazul in care acesta este prea lung(8 caractere)
Imagini: Fara.
Quest: 


Cod:
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:
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


Adaugati in quest_functions:


Cod:
mysql_query


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.

Puteti modifica itemele oferite, prin modificarea in quest a vnum-urilor


Cod:
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)



Schimbati in quest "hostname" cu numele serverului vostru.

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.