Jump to content

Bloquear F1 F2 ...

SUPERNATUR4L

By SUPERNATUR4L
in Programação em Lua

Recommended Posts

SUPERNATUR4L Vic

SUPERNATUR4L

Posted
Posted (edited)

Estou com um script de porta malas e preciso bloquear do f1 ao f12 e bloquear tbm a tecla : ' , que abre o inventario alguem pode ajudar com o comando ? ja testei alguns comandos e não funcionaram 

Spoiler

  

db = dbConnect("sqlite", "db/dados.db")

dbExec(db, "CREATE TABLE IF NOT EXISTS Itens (ID, Item, Quantidade)")



Query = dbQuery(db, "SELECT * FROM Itens")

Result = dbPoll(Query, -1)

TableItens = Result



Bau = {}



function CriarBaus()

    for i = 1,#Config.Baus do

        local Acls = toJSON(Config.Baus.Acls)

        local Peso = Config.Baus.Peso

        local x,y,z = Config.Baus.Posicao[1],Config.Baus.Posicao[2],Config.Baus.Posicao[3]

        local rx,ry,rz = Config.Baus.Rotacao[1],Config.Baus.Rotacao[2],Config.Baus.Rotacao[3]

        local interior = Config.Baus.Interior

        local dimensao = Config.Baus.Dimensao

        Bau = createObject(2332, x,y,z -0.5,rx,ry,rz)

        setElementData(Bau, "Kings.IDBau",{i, Acls, Peso})

        setElementInterior(Bau, interior)

        setElementDimension(Bau, dimensao)

    end

end

addEventHandler("onResourceStart",resourceRoot,CriarBaus)

 

addEventHandler("onElementClicked",root,function(b,s,player)

    if b == "left" and s == "down" and getElementType(source) == "object" then

        local Tabela = getElementData(source, "Kings.IDBau")

        if Tabela then

            local ID, Acls,Peso = Tabela[1], fromJSON(Tabela[2]), Tabela[3]

            local PermAcl, PermMover = isObjectInTableACLGroups(player, Acls)

            if PermAcl then

                local x,y,z = getElementPosition(source)

                local x2,y2,z2 = getElementPosition(player)

                if getDistanceBetweenPoints3D(x,y,z,x2,y2,z2) <= 3 then

                    local Itens = exports["MODInventario"]:formatItens(getItensBau(ID), "bau")

                    local ItensInv = exports["MODInventario"]:getItensPlayer(player)

                    triggerClientEvent(player, "MST.OpenChest",player, ID, ItensInv, Itens,Peso, PermMover)

                end

            end

        end

    end

end)

 

function clearID(id)

    for i,v in ipairs(TableItens) do

        if v.ID == id then

            table.remove(TableItens, i)

        end

    end

    dbExec(db, "DELETE FROM Itens WHERE ID = ?", id)

end

addEvent("MST.ClearID",true)

addEventHandler("MST.ClearID",root,clearID)


 

function isObjectInTableACLGroups(player,acls)

    for i,v in ipairs(acls) do

        if aclGetGroup(v[1]) then

            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup(v[1])) then

                return true,v[2]

            end

        end

    end

    return false

end

 

function searchResult(id, item)

    for i,v in ipairs(TableItens) do

        if v.ID == id and v.Item == item then

            return i

        end

    end

    return false

end

 

function getItensBau(id)

    Table = {}

    for i,v in ipairs(TableItens) do

        if v.ID == id then

            table.insert(Table, v)

        end

    end

    return Table

end

 

function InsertResult(id,item,quantidade)

    dbExec(db, "INSERT INTO Itens (ID, Item, Quantidade) VALUES (?,?,?)", id, item, quantidade)

    table.insert(TableItens, {ID = id, Item = item, Quantidade = quantidade})

end

 

function UpdateResult(id,item,quantidade, type)

    local Index = searchResult(id, item)

    if Index then

        local Quantidade = TableItens[Index].Quantidade

        if type == "add" then

            dbExec(db, "UPDATE Itens SET Quantidade = ? WHERE ID = ? AND Item = ?", Quantidade + quantidade, id, item)

            TableItens[Index].Quantidade = TableItens[Index].Quantidade + quantidade

        elseif type == "remove" then

            dbExec(db, "UPDATE Itens SET Quantidade = ? WHERE ID = ? AND Item = ?", Quantidade - quantidade, id, item)

            TableItens[Index].Quantidade = TableItens[Index].Quantidade - quantidade

        end

    end

end

 

function DeleteReuslt(id, item)

    dbExec(db, "DELETE FROM Itens WHERE ID = ? AND Item = ?", id,item)

    local Index = searchResult(id, item)

    if Index then

        table.remove(TableItens, Index)

    end

end

 

function GiveItem(id,item,quantidade)

    local Index = searchResult(id, item)

    if Index then

        UpdateResult(id, item, quantidade, "add")

        exports["MODInventario"]:GiveAndTakeAndGetItem("take",source,item, quantidade)

        UpdateID(source,id)

        exports["i9_util"]:messageDiscord("O jogador(a) "..(exports["i9_util"]:puxarNome(source)).." ("..(exports["i9_util"]:puxarID(source))..") Guardou o item "..item.." com a quantia de "..quantidade.."x no bau!", Config.Baus[id].webhook)

    else

        InsertResult(id, item, quantidade)

        exports["MODInventario"]:GiveAndTakeAndGetItem("take",source,item, quantidade)

        UpdateID(source,id)

        exports["i9_util"]:messageDiscord("O jogador(a) "..(exports["i9_util"]:puxarNome(source)).." ("..(exports["i9_util"]:puxarID(source))..") Guardou o item "..item.." com a quantia de "..quantidade.."x no bau!", Config.Baus[id].webhook)

    end

end

addEvent("Kings.AddBau",true)

addEventHandler("Kings.AddBau",root,GiveItem)

 

function TakeItem(id,item,quantidade)

    local Index = searchResult(id, item)

    if Index then

        local Quantidade = TableItens[Index].Quantidade

        if Quantidade == quantidade then

            local result = exports["MODInventario"]:GiveAndTakeAndGetItem("give",source,item, quantidade)

            if result then

                DeleteReuslt(id, item)

                UpdateID(source,id)

                exports["i9_util"]:messageDiscord("O jogador(a) "..(exports["i9_util"]:puxarNome(source)).." ("..(exports["i9_util"]:puxarID(source))..") Retirou o item "..item.." com a quantia de "..quantidade.."x no bau!", Config.Baus[id].webhook)

            end

        elseif Quantidade > quantidade then

            local result = exports["MODInventario"]:GiveAndTakeAndGetItem("give",source,item, quantidade)

            if result then

                UpdateResult(id, item, quantidade, "remove")

                UpdateID(source,id)

                exports["i9_util"]:messageDiscord("O jogador(a) "..(exports["i9_util"]:puxarNome(source)).." ("..(exports["i9_util"]:puxarID(source))..") Retirou o item "..item.." com a quantia de "..quantidade.."x no bau!", Config.Baus[id].webhook)

            end

        end

    end

end

addEvent("Kings.RemoveBau",true)

addEventHandler("Kings.RemoveBau",root,TakeItem)

 

function UpdateID(player, id)

    local Itens = exports["MODInventario"]:formatItens(getItensBau(id), "bau")

    local ItensInv = exports["MODInventario"]:getItensPlayer(player)

    triggerClientEvent(player, "MST.AttChest",player,ItensInv,Itens)

end

addEvent("Kings.UpdateID",true)

addEventHandler("Kings.UpdateID",root,UpdateID)

 

end

Comando errado esse foi do bau , vou colocar o do porta malas ( o bau ja nao deixa o inventario abrir mas nao achei oque bloqueia ) 



db = dbConnect("sqlite", "db/dados.db")

dbExec(db, "CREATE TABLE IF NOT EXISTS Itens (ID, Item, Quantidade)")



Query = dbQuery(db, "SELECT * FROM Itens")

Result = dbPoll(Query, -1)

TableItens = Result



PM = {}







function getVehicleProximo (player)

    local target = nil

    for _,v in ipairs(getElementsByType('vehicle')) do

        local posp = {getElementPosition(player)}

        local posv = {getElementPosition(v)}

        if getDistanceBetweenPoints3D(posp[1], posp[2], posp[3], posv[1], posv[2], posv[3]) <= 3 then

            target = v

        end

    end

    if target ~= nil then

        return target

    else

        return false

    end

end





addEvent('OpenPortaMalas', true)

addEventHandler('OpenPortaMalas', root, function(player)

    local veiculo = getVehicleProximo(player)

    if veiculo ~= false then

        if getElementData(veiculo, 'veh:status') == true then return end

        if isPedInVehicle(player) then return end

        local model = getElementModel(veiculo)

        if Config.Veiculos[model] then

            if not getElementData(getVehicleProximo(player), 'Porta-Malas') then

                local Itens = exports["MODInventario"]:formatItens(getItensPM(getVehiclePlateText(getVehicleProximo(player))), "bau")

                local ItensInv = exports["MODInventario"]:getItensPlayer(player)

                triggerClientEvent(player, "MST.OpenPM",player, getVehiclePlateText(getVehicleProximo(player)), ItensInv, Itens, Config.Veiculos[model], getVehicleProximo(player))

                setElementData(getVehicleProximo(player), 'Porta-Malas', true)

                setVehicleDoorOpenRatio(getVehicleProximo(player), 1, 1, 1500)



               

            end

        end

    end

end)






addEvent('ClosePortaMalas', true)

addEventHandler('ClosePortaMalas', root, function(player, vehicle)

    if vehicle then

        setElementData(vehicle, 'Porta-Malas', nil)

        setVehicleDoorOpenRatio(vehicle, 1, 0, 1500)

    end

end)





function clearID(id)

    for i,v in ipairs(TableItens) do

        if v.ID == id then

            table.remove(TableItens, i)

        end

    end

    dbExec(db, "DELETE FROM Itens WHERE ID = ?", id)

end

addEvent("MST.ClearID2",true)

addEventHandler("MST.ClearID2",root,clearID)




function isObjectInTableACLGroups(player,acls)

    for i,v in ipairs(acls) do

        if aclGetGroup(v[1]) then

            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup(v[1])) then

                return true,v[2]

            end

        end

    end

    return false

end



function searchResult(id, item)

    for i,v in ipairs(TableItens) do

        if v.ID == id and v.Item == item then

            return i

        end

    end

    return false

end



function getItensPM(id)

    Table = {}

    for i,v in ipairs(TableItens) do

        if v.ID == id then

            table.insert(Table, v)

        end

    end

    return Table

end



function InsertResult(id,item,quantidade)

    dbExec(db, "INSERT INTO Itens (ID, Item, Quantidade) VALUES (?,?,?)", id, item, quantidade)

    table.insert(TableItens, {ID = id, Item = item, Quantidade = quantidade})

end



function UpdateResult(id,item,quantidade, type)

    local Index = searchResult(id, item)

    if Index then

        local Quantidade = TableItens[Index].Quantidade

        if type == "add" then

            dbExec(db, "UPDATE Itens SET Quantidade = ? WHERE ID = ? AND Item = ?", Quantidade + quantidade, id, item)

            TableItens[Index].Quantidade = TableItens[Index].Quantidade + quantidade

        elseif type == "remove" then

            dbExec(db, "UPDATE Itens SET Quantidade = ? WHERE ID = ? AND Item = ?", Quantidade - quantidade, id, item)

            TableItens[Index].Quantidade = TableItens[Index].Quantidade - quantidade

        end

    end

end



function DeleteReuslt(id, item)

    dbExec(db, "DELETE FROM Itens WHERE ID = ? AND Item = ?", id,item)

    local Index = searchResult(id, item)

    if Index then

        table.remove(TableItens, Index)

    end

end



function GiveItem(id,item,quantidade)

    local Index = searchResult(id, item)

    if Index then

        UpdateResult(id, item, quantidade, "add")

        exports["MODInventario"]:GiveAndTakeAndGetItem("take",source,item, quantidade)

        UpdateID(source,id)

    else

        InsertResult(id, item, quantidade)

        exports["MODInventario"]:GiveAndTakeAndGetItem("take",source,item, quantidade)

        UpdateID(source,id)

end

addEvent("Kings.AddPM",true)

addEventHandler("Kings.AddPM",root,GiveItem)



function TakeItem(id,item,quantidade)

    local Index = searchResult(id, item)

    if Index then

        local Quantidade = TableItens[Index].Quantidade

        if Quantidade == quantidade then

            local result = exports["MODInventario"]:GiveAndTakeAndGetItem("give",source,item, quantidade)

            if result then

                DeleteReuslt(id, item)

                UpdateID(source,id)

            end

        elseif Quantidade > quantidade then

            local result = exports["MODInventario"]:GiveAndTakeAndGetItem("give",source,item, quantidade)

            if result then

                UpdateResult(id, item, quantidade, "remove")

                UpdateID(source,id)

            end

        end

    end

end

addEvent("Kings.RemovePM",true)

addEventHandler("Kings.RemovePM",root,TakeItem)



function UpdateID(player, id)

    local Itens = exports["MODInventario"]:formatItens(getItensPM(id), "bau")

    local ItensInv = exports["MODInventario"]:getItensPlayer(player)

    triggerClientEvent(player, "MST.AttPM",player,ItensInv,Itens)

end

addEvent("Kings.UpdateID2",true)

addEventHandler("Kings.UpdateID2",root,UpdateID)



end

 

Edited by Lord Henry
Código convertido de texto para Lua.
Link to comment
Blaack Mark

Blaack

Posted
Posted
On 08/01/2024 at 21:35, SUPERNATUR4L said:

Estou com um script de porta malas e preciso bloquear do f1 ao f12 e bloquear tbm a tecla : ' , que abre o inventario alguem pode ajudar com o comando ? ja testei alguns comandos e não funcionaram 

  Hide contents

  

db = dbConnect("sqlite", "db/dados.db")

dbExec(db, "CREATE TABLE IF NOT EXISTS Itens (ID, Item, Quantidade)")



Query = dbQuery(db, "SELECT * FROM Itens")

Result = dbPoll(Query, -1)

TableItens = Result



Bau = {}



function CriarBaus()

    for i = 1,#Config.Baus do

        local Acls = toJSON(Config.Baus.Acls)

        local Peso = Config.Baus.Peso

        local x,y,z = Config.Baus.Posicao[1],Config.Baus.Posicao[2],Config.Baus.Posicao[3]

        local rx,ry,rz = Config.Baus.Rotacao[1],Config.Baus.Rotacao[2],Config.Baus.Rotacao[3]

        local interior = Config.Baus.Interior

        local dimensao = Config.Baus.Dimensao

        Bau = createObject(2332, x,y,z -0.5,rx,ry,rz)

        setElementData(Bau, "Kings.IDBau",{i, Acls, Peso})

        setElementInterior(Bau, interior)

        setElementDimension(Bau, dimensao)

    end

end

addEventHandler("onResourceStart",resourceRoot,CriarBaus)

 

addEventHandler("onElementClicked",root,function(b,s,player)

    if b == "left" and s == "down" and getElementType(source) == "object" then

        local Tabela = getElementData(source, "Kings.IDBau")

        if Tabela then

            local ID, Acls,Peso = Tabela[1], fromJSON(Tabela[2]), Tabela[3]

            local PermAcl, PermMover = isObjectInTableACLGroups(player, Acls)

            if PermAcl then

                local x,y,z = getElementPosition(source)

                local x2,y2,z2 = getElementPosition(player)

                if getDistanceBetweenPoints3D(x,y,z,x2,y2,z2) <= 3 then

                    local Itens = exports["MODInventario"]:formatItens(getItensBau(ID), "bau")

                    local ItensInv = exports["MODInventario"]:getItensPlayer(player)

                    triggerClientEvent(player, "MST.OpenChest",player, ID, ItensInv, Itens,Peso, PermMover)

                end

            end

        end

    end

end)

 

function clearID(id)

    for i,v in ipairs(TableItens) do

        if v.ID == id then

            table.remove(TableItens, i)

        end

    end

    dbExec(db, "DELETE FROM Itens WHERE ID = ?", id)

end

addEvent("MST.ClearID",true)

addEventHandler("MST.ClearID",root,clearID)


 

function isObjectInTableACLGroups(player,acls)

    for i,v in ipairs(acls) do

        if aclGetGroup(v[1]) then

            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup(v[1])) then

                return true,v[2]

            end

        end

    end

    return false

end

 

function searchResult(id, item)

    for i,v in ipairs(TableItens) do

        if v.ID == id and v.Item == item then

            return i

        end

    end

    return false

end

 

function getItensBau(id)

    Table = {}

    for i,v in ipairs(TableItens) do

        if v.ID == id then

            table.insert(Table, v)

        end

    end

    return Table

end

 

function InsertResult(id,item,quantidade)

    dbExec(db, "INSERT INTO Itens (ID, Item, Quantidade) VALUES (?,?,?)", id, item, quantidade)

    table.insert(TableItens, {ID = id, Item = item, Quantidade = quantidade})

end

 

function UpdateResult(id,item,quantidade, type)

    local Index = searchResult(id, item)

    if Index then

        local Quantidade = TableItens[Index].Quantidade

        if type == "add" then

            dbExec(db, "UPDATE Itens SET Quantidade = ? WHERE ID = ? AND Item = ?", Quantidade + quantidade, id, item)

            TableItens[Index].Quantidade = TableItens[Index].Quantidade + quantidade

        elseif type == "remove" then

            dbExec(db, "UPDATE Itens SET Quantidade = ? WHERE ID = ? AND Item = ?", Quantidade - quantidade, id, item)

            TableItens[Index].Quantidade = TableItens[Index].Quantidade - quantidade

        end

    end

end

 

function DeleteReuslt(id, item)

    dbExec(db, "DELETE FROM Itens WHERE ID = ? AND Item = ?", id,item)

    local Index = searchResult(id, item)

    if Index then

        table.remove(TableItens, Index)

    end

end

 

function GiveItem(id,item,quantidade)

    local Index = searchResult(id, item)

    if Index then

        UpdateResult(id, item, quantidade, "add")

        exports["MODInventario"]:GiveAndTakeAndGetItem("take",source,item, quantidade)

        UpdateID(source,id)

        exports["i9_util"]:messageDiscord("O jogador(a) "..(exports["i9_util"]:puxarNome(source)).." ("..(exports["i9_util"]:puxarID(source))..") Guardou o item "..item.." com a quantia de "..quantidade.."x no bau!", Config.Baus[id].webhook)

    else

        InsertResult(id, item, quantidade)

        exports["MODInventario"]:GiveAndTakeAndGetItem("take",source,item, quantidade)

        UpdateID(source,id)

        exports["i9_util"]:messageDiscord("O jogador(a) "..(exports["i9_util"]:puxarNome(source)).." ("..(exports["i9_util"]:puxarID(source))..") Guardou o item "..item.." com a quantia de "..quantidade.."x no bau!", Config.Baus[id].webhook)

    end

end

addEvent("Kings.AddBau",true)

addEventHandler("Kings.AddBau",root,GiveItem)

 

function TakeItem(id,item,quantidade)

    local Index = searchResult(id, item)

    if Index then

        local Quantidade = TableItens[Index].Quantidade

        if Quantidade == quantidade then

            local result = exports["MODInventario"]:GiveAndTakeAndGetItem("give",source,item, quantidade)

            if result then

                DeleteReuslt(id, item)

                UpdateID(source,id)

                exports["i9_util"]:messageDiscord("O jogador(a) "..(exports["i9_util"]:puxarNome(source)).." ("..(exports["i9_util"]:puxarID(source))..") Retirou o item "..item.." com a quantia de "..quantidade.."x no bau!", Config.Baus[id].webhook)

            end

        elseif Quantidade > quantidade then

            local result = exports["MODInventario"]:GiveAndTakeAndGetItem("give",source,item, quantidade)

            if result then

                UpdateResult(id, item, quantidade, "remove")

                UpdateID(source,id)

                exports["i9_util"]:messageDiscord("O jogador(a) "..(exports["i9_util"]:puxarNome(source)).." ("..(exports["i9_util"]:puxarID(source))..") Retirou o item "..item.." com a quantia de "..quantidade.."x no bau!", Config.Baus[id].webhook)

            end

        end

    end

end

addEvent("Kings.RemoveBau",true)

addEventHandler("Kings.RemoveBau",root,TakeItem)

 

function UpdateID(player, id)

    local Itens = exports["MODInventario"]:formatItens(getItensBau(id), "bau")

    local ItensInv = exports["MODInventario"]:getItensPlayer(player)

    triggerClientEvent(player, "MST.AttChest",player,ItensInv,Itens)

end

addEvent("Kings.UpdateID",true)

addEventHandler("Kings.UpdateID",root,UpdateID)

 

end

Comando errado esse foi do bau , vou colocar o do porta malas ( o bau ja nao deixa o inventario abrir mas nao achei oque bloqueia ) 



db = dbConnect("sqlite", "db/dados.db")

dbExec(db, "CREATE TABLE IF NOT EXISTS Itens (ID, Item, Quantidade)")



Query = dbQuery(db, "SELECT * FROM Itens")

Result = dbPoll(Query, -1)

TableItens = Result



PM = {}







function getVehicleProximo (player)

    local target = nil

    for _,v in ipairs(getElementsByType('vehicle')) do

        local posp = {getElementPosition(player)}

        local posv = {getElementPosition(v)}

        if getDistanceBetweenPoints3D(posp[1], posp[2], posp[3], posv[1], posv[2], posv[3]) <= 3 then

            target = v

        end

    end

    if target ~= nil then

        return target

    else

        return false

    end

end





addEvent('OpenPortaMalas', true)

addEventHandler('OpenPortaMalas', root, function(player)

    local veiculo = getVehicleProximo(player)

    if veiculo ~= false then

        if getElementData(veiculo, 'veh:status') == true then return end

        if isPedInVehicle(player) then return end

        local model = getElementModel(veiculo)

        if Config.Veiculos[model] then

            if not getElementData(getVehicleProximo(player), 'Porta-Malas') then

                local Itens = exports["MODInventario"]:formatItens(getItensPM(getVehiclePlateText(getVehicleProximo(player))), "bau")

                local ItensInv = exports["MODInventario"]:getItensPlayer(player)

                triggerClientEvent(player, "MST.OpenPM",player, getVehiclePlateText(getVehicleProximo(player)), ItensInv, Itens, Config.Veiculos[model], getVehicleProximo(player))

                setElementData(getVehicleProximo(player), 'Porta-Malas', true)

                setVehicleDoorOpenRatio(getVehicleProximo(player), 1, 1, 1500)



               

            end

        end

    end

end)






addEvent('ClosePortaMalas', true)

addEventHandler('ClosePortaMalas', root, function(player, vehicle)

    if vehicle then

        setElementData(vehicle, 'Porta-Malas', nil)

        setVehicleDoorOpenRatio(vehicle, 1, 0, 1500)

    end

end)





function clearID(id)

    for i,v in ipairs(TableItens) do

        if v.ID == id then

            table.remove(TableItens, i)

        end

    end

    dbExec(db, "DELETE FROM Itens WHERE ID = ?", id)

end

addEvent("MST.ClearID2",true)

addEventHandler("MST.ClearID2",root,clearID)




function isObjectInTableACLGroups(player,acls)

    for i,v in ipairs(acls) do

        if aclGetGroup(v[1]) then

            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup(v[1])) then

                return true,v[2]

            end

        end

    end

    return false

end



function searchResult(id, item)

    for i,v in ipairs(TableItens) do

        if v.ID == id and v.Item == item then

            return i

        end

    end

    return false

end



function getItensPM(id)

    Table = {}

    for i,v in ipairs(TableItens) do

        if v.ID == id then

            table.insert(Table, v)

        end

    end

    return Table

end



function InsertResult(id,item,quantidade)

    dbExec(db, "INSERT INTO Itens (ID, Item, Quantidade) VALUES (?,?,?)", id, item, quantidade)

    table.insert(TableItens, {ID = id, Item = item, Quantidade = quantidade})

end



function UpdateResult(id,item,quantidade, type)

    local Index = searchResult(id, item)

    if Index then

        local Quantidade = TableItens[Index].Quantidade

        if type == "add" then

            dbExec(db, "UPDATE Itens SET Quantidade = ? WHERE ID = ? AND Item = ?", Quantidade + quantidade, id, item)

            TableItens[Index].Quantidade = TableItens[Index].Quantidade + quantidade

        elseif type == "remove" then

            dbExec(db, "UPDATE Itens SET Quantidade = ? WHERE ID = ? AND Item = ?", Quantidade - quantidade, id, item)

            TableItens[Index].Quantidade = TableItens[Index].Quantidade - quantidade

        end

    end

end



function DeleteReuslt(id, item)

    dbExec(db, "DELETE FROM Itens WHERE ID = ? AND Item = ?", id,item)

    local Index = searchResult(id, item)

    if Index then

        table.remove(TableItens, Index)

    end

end



function GiveItem(id,item,quantidade)

    local Index = searchResult(id, item)

    if Index then

        UpdateResult(id, item, quantidade, "add")

        exports["MODInventario"]:GiveAndTakeAndGetItem("take",source,item, quantidade)

        UpdateID(source,id)

    else

        InsertResult(id, item, quantidade)

        exports["MODInventario"]:GiveAndTakeAndGetItem("take",source,item, quantidade)

        UpdateID(source,id)

end

addEvent("Kings.AddPM",true)

addEventHandler("Kings.AddPM",root,GiveItem)



function TakeItem(id,item,quantidade)

    local Index = searchResult(id, item)

    if Index then

        local Quantidade = TableItens[Index].Quantidade

        if Quantidade == quantidade then

            local result = exports["MODInventario"]:GiveAndTakeAndGetItem("give",source,item, quantidade)

            if result then

                DeleteReuslt(id, item)

                UpdateID(source,id)

            end

        elseif Quantidade > quantidade then

            local result = exports["MODInventario"]:GiveAndTakeAndGetItem("give",source,item, quantidade)

            if result then

                UpdateResult(id, item, quantidade, "remove")

                UpdateID(source,id)

            end

        end

    end

end

addEvent("Kings.RemovePM",true)

addEventHandler("Kings.RemovePM",root,TakeItem)



function UpdateID(player, id)

    local Itens = exports["MODInventario"]:formatItens(getItensPM(id), "bau")

    local ItensInv = exports["MODInventario"]:getItensPlayer(player)

    triggerClientEvent(player, "MST.AttPM",player,ItensInv,Itens)

end

addEvent("Kings.UpdateID2",true)

addEventHandler("Kings.UpdateID2",root,UpdateID)



end

 

Utilize o lado client-side com o evento onClientKey, verifique a tecla que foi 'clicada' e cancele-a.

Link to comment
  • 2 weeks later...
SUPERNATUR4L Vic

SUPERNATUR4L

Posted
  • Author
Posted
On 11/01/2024 at 11:24, Blaack said:

Utilize o lado client-side com o evento onClientKey, verifique a tecla que foi 'clicada' e cancele-a.

addEventHandler("onClientKey", root,
    function (button, press)
        if getElementData(getLocalPlayer(),"Porta-Malas") == true then
            if button == "F1" or button == "F2" or button == "F3" or button == "F4" or button == "F5" or button == "F6" or button == "F7" or button == "b" or button == "F9" or button == "F10" or button == "F11" or button == "F12" then
                cancelEvent()
            end
        end
    end
)
 
tentei bloquer os f1 ao f12 e nao funcionou ajuda?
 
Link to comment
  • Other Languages Moderators
Lord Henry Soldier

Lord Henry

Posted
  • Other Languages Moderators
Posted (edited)

@SUPERNATUR4L assim funciona: 

local theKeys = {"F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12"}
-- Obs: Por medidas de segurança, a tecla F8 não aciona este evento e portanto não pode ser bloqueada.

addEventHandler("onClientKey", root, function (button, press)
    if press then
        for i,key in pairs(theKeys) do
            if button == key then
                if getElementData(localPlayer, "Porta-Malas") then
                    cancelEvent()
                    outputChatBox("Tecla bloqueada.") -- Apenas para testes, remova na versão final.
                else -- Apenas para testes, remova na versão final.
                    outputChatBox("Você não tem a elementData necessária. Tecla liberada.") -- Apenas para testes, remova na versão final.
                end
                break
            end
        end
    end
end)

 

Edited by Lord Henry
Link to comment
  • 2 weeks later...
SUPERNATUR4L Vic

SUPERNATUR4L

Posted
  • Author
Posted
On 22/01/2024 at 15:28, Lord Henry said:

@SUPERNATUR4L assim funciona: 

local theKeys = {"F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12"}
-- Obs: Por medidas de segurança, a tecla F8 não aciona este evento e portanto não pode ser bloqueada.

addEventHandler("onClientKey", root, function (button, press)
    if press then
        for i,key in pairs(theKeys) do
            if button == key then
                if getElementData(localPlayer, "Porta-Malas") then
                    cancelEvent()
                    outputChatBox("Tecla bloqueada.") -- Apenas para testes, remova na versão final.
                else -- Apenas para testes, remova na versão final.
                    outputChatBox("Você não tem a elementData necessária. Tecla liberada.") -- Apenas para testes, remova na versão final.
                end
                break
            end
        end
    end
end)

 

tentei no server nao funcionou coloquei

no cliente ele retornou  

"Você não tem a elementData necessária. Tecla liberada."

tentei colocar o setelementdata no cliente mas nao consegui no meu cliente tem um elemntdata mas ele bloqueia as teclas o tempo todo vou deixar o cliente aqui em baixo ok 

tbm tentei usar um event e não consegui se conseguir ajudar agradeço muiti

 

 

 

 

 

local screenW, screenH = guiGetScreenSize()
local resW, resH = 1920,1080
local res2, resH2 = 1366, 768
local x, y = (screenW/resW), (screenH/resH)
local sx, sy = (screenW/res2), (screenH/resH2)
 
local dxfont0_MontserratBoldItalic = dxCreateFont("assets/font/MontserratBoldItalic.ttf", y*24)
local dxfont1_MontserratSemiBold = dxCreateFont("assets/font/MontserratSemiBold.ttf", y*13)
local dxfont2_MontserratSemiBold = dxCreateFont("assets/font/MontserratSemiBold.ttf", y*10)
local dxfont3_MontserratSemiBold = dxCreateFont("assets/font/MontserratSemiBold.ttf", y*15)
local dxfont4_MontserratSemiBold = dxCreateFont("assets/font/MontserratSemiBold.ttf", y*11)
 
Scroll1 = dxCreateTexture("assets/img/Scroll1.png", "argb")
Scroll2 = dxCreateTexture("assets/img/Scroll2.png", "argb")
 
PosSlots = {}
PosSlotsBau = {}
 
Chest = false
 
--
 
local colors = {}
local textures = {}
local sizes = {}
local text_width = {}
local fonts = {}
 
local _dxDrawRectangle = dxDrawRectangle
local function dxDrawRectangle(x, y, w, h, color, post)
    return _dxDrawRectangle(sx * x, sy * y, sx * w, sy * h, color, post)
end
 
local _dxDrawImage = dxDrawImage
local function dxDrawImage(x, y, w, h, image, ...)
    return _dxDrawImage(sx * x, sy * y, sx * w, sy * h, image, ...)
end
 
local _dxDrawText = dxDrawText
local function dxDrawText( text, x, y, w, h, color, scale, font, assignX, assingY, ...)
    return _dxDrawText(text, sx * x, sy * y, sx * w, sy * h, color, scale, font, assignX, assingY, ...)
end
 
local _dxCreateTexture = dxCreateTexture
local function dxCreateTexture(directory)
    if not textures[directory] then
        textures[directory] = _dxCreateTexture(directory)
    end
 
    return textures[directory]
end
 
local _dxCreateFont = dxCreateFont
local function dxCreateFont(directory, tamanho)
    if not fonts[directory.."_"..tamanho] then
        fonts[directory.."_"..tamanho] = _dxCreateFont(directory, sy * tamanho)
    end
 
    return fonts[directory.."_"..tamanho]
end
 
local _dxGetTextSize = dxGetTextSize
local function dxGetTextSize(text, widthText, scaleFont, font, identify)
    if not sizes[text.."_"..identify] then
        sizes[text.."_"..identify] = _dxGetTextSize(text, sx * widthText, sy * scaleFont, font)
        --print(text, sx * sizes[text.."_"..identify])
    end
    return sizes[text.."_"..identify]
end
 
local buttons = {}
 
local function roundedRectangle(x, y, width, height, radius, color, colorStroke, sizeStroke, postGUI)
    if width == 0 then
        width = 1
    end
 
    if height == 0 then
        height = 1
    end
 
    local sla = width + height + radius
    if (not buttons[sla]) then
 
        colorStroke = tostring(colorStroke)
        sizeStroke = tostring(sizeStroke)
 
        local raw = string.format([[
            <svg width='%s' height='%s' fill='none' xmlns='http://www.w3.org/2000/svg'>
                <mask id='path_inside' fill='#FFFFFF' >
                    <rect width='%s' height='%s' rx='%s' />
                </mask>
                <rect opacity='1' width='%s' height='%s' rx='%s' fill='#FFFFFF' stroke='%s' stroke-width='%s' mask='url(#path_inside)'/>
            </svg>
        ]], width, height, width, height, radius, width, height, radius, colorStroke, sizeStroke)
 
        buttons[sla] = svgCreate(width, height, raw)
    end
 
    if (buttons[sla]) then -- Se já existir um botão com o mesmo Radius, reaproveitaremos o mesmo, para não criar outro.
        dxSetBlendMode('add')
            dxDrawImage(x, y, width, height, buttons[sla], 0, 0, 0, color, postGUI or false)
        dxSetBlendMode('blend')
    end
end
 
--
 
bindKey('h', 'down', function()
    triggerServerEvent('OpenPortaMalas', localPlayer, localPlayer)
end)
 
addEvent("MST.OpenPM",true)
addEventHandler("MST.OpenPM",root,function(id,itensm,itensb, peso, veh)
    local export = exports["MODInventario"]:InventoryReturnsV()
    if not Chest then
        if not export["inventory"] and not export["shop"] then
            addEventHandler("onClientRender",root,dxChest)
            Chest = true
            PosScrollbar = 0
            PosScrollbar2 = 0
            showCursor(true)
            ItensMeu = itensm
            ItensBau = itensb
            IDBau = id
            Select = 0
            Select2 = 0
            EditBox.Create("Quantidade", 649, 359, 66, 29,false, 8,tocolor(255,255,255,0), dxfont1_MontserratBold, "QTD")
            EditBox.SetVisible("Quantidade",true)
            PesoConsumidoInv = getConsumed(ItensMeu, "inv")
            PesoConsumidoBau = getConsumed(ItensBau, "bau")
            PesoBau = peso
            Veiculo = veh
        end
    end
end)
 
addEvent("MST.AttInvPM",true)
addEventHandler("MST.AttInvPM",root,function()
    if Chest then
        triggerServerEvent("Kings.UpdateID2",localPlayer,localPlayer,IDBau)
    end
end)
 
addEvent("MST.AttPM",true)
addEventHandler("MST.AttPM",root,function(itensm, itensb)
    if Chest then
        ItensMeu = itensm
        ItensBau = itensb
        PesoConsumidoInv = getConsumed(ItensMeu, "inv")
        PesoConsumidoBau = getConsumed(ItensBau, "bau")
    end
end)
 
bindKey("backspace","down",function()
    if Chest then
        removeEventHandler("onClientRender",root,dxChest)
        Chest = false
        showCursor(false)
        EditBox.DestroyEdit("Quantidade")
        triggerServerEvent('ClosePortaMalas', localPlayer, localPlayer, Veiculo)
    end
end)
 
function getConsumed(table,type)
    PesoTotal = 0
    for i,v in ipairs(table) do
        if type == "inv" then
            local Quantidade = v[2]
            local Peso = v[4]
            PesoTotal = PesoTotal + (Peso * Quantidade)
        elseif type == "bau" then
            local Quantidade = v.Quantidade
            local Peso = v.Peso
            PesoTotal = PesoTotal + (Peso * Quantidade)
        end
    end
    return PesoTotal
end
 
function getWeigthBag()
    if getElementData(localPlayer, "VIP") or getElementData(localPlayer, "Staff") then
        return 50
    end
    return 30
end
 
local poppins = dxCreateFont(":MODInventario/fontes/Poppins-Bold.ttf", 12)
 
-- | :MODInventario/gfx/itens/"..Item..".png"
 
function dxChest()
    local multPx, multPx2 = 0, 0
    local multPy, multPy2 = 0, 0
 
    exports["Blur"]:dxDrawBluredRectangle(x*0, y*0, screenW, screenH, tocolor(255, 255, 255, alpha))
 
    pesoMax = getWeigthBag()
   
    if getElementData( localPlayer, 'bag.current' ) then
        pesoMax = tonumber( getElementData( localPlayer, 'bag.current' ) )
    end
    pesoMax = (pesoMax and pesoMax > 0 and pesoMax or 0)
    peso = (PesoConsumidoInv and PesoConsumidoInv > 0 and PesoConsumidoInv or 0)
 
    roundedRectangle(176, 194, 458, 56, 3, tocolor(19, 16, 16, 142.8), "#ff0000", 0, false) -- | Fundo baixo inventario
 
    roundedRectangle(186, 237, 442, 9, 3, tocolor(19, 16, 16, 142.8), "#ff0000", 0, false) -- | Fundo barrinha
    roundedRectangle(186, 237, 442/pesoMax*peso, 9, 3, tocolor(66, 73, 73, 255), "#ff0000", 0, false) -- | Barrinha
    dxDrawText((verifyFloor(peso) and peso..".00" or peso).." / "..(verifyFloor(pesoMax) and pesoMax..".00" or pesoMax), 187, 217, 100, 19, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
 
    roundedRectangle(188, 187, 110, 25, 5, tocolor(66, 73, 73, alpha), "#ff0000", 0, false) -- | Fundo inventario
    dxDrawText("INVENTÁRIO", 205, 189, 75, 18, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
 
    roundedRectangle(176, 251, 458, 348, 3, tocolor(0, 0, 0, 51), "#ff0000", 0, false) -- | Fundo Slots
 
    roundedRectangle(649, 359, 66, 29, 3, tocolor(0, 0, 0, 51), "#ff0000", 0, false)
 
    -- | Scroll
 
    roundedRectangle(628, 251 + (12 * PosScrollbar), 6, 41, 3, tocolor(66, 73, 73, 255), "#ff0000", 0, false)
 
    -- | Slots
 
    for i = 1, 15 do
        roundedRectangle(182 + (multPx * 89), 260 + (multPy * 113), 83, 107, 10, tocolor(19, 16, 16, 142.8), "#ff0000", 0, false)
        PosSlots[i] = {182 + (multPx * 89), 260 + (multPy * 113)}
       
        i = i + PosScrollbar
        if ItensMeu[i] then
            if Select ~= i then
                local Item = ItensMeu[i][1]
                local Quantidade = ItensMeu[i][2]
                local Peso = (ItensMeu[i][4] and (ItensMeu[i][4] * ItensMeu[i][2]) or "0.0")
 
                local width = dxGetTextSize(Quantidade.."x", 10, 1, poppins, 1)
                local posXQuant = (182 + (multPx * 89) + (83/2)) - (width)
 
                local posX = (182 + (multPx * 89) + (83/2)) - (80/2)
                local posY = (260 + (multPy * 113) + (107/2)) - (80/2)
 
                roundedRectangle(199 + (multPx * 89), 361 + (multPy * 113), 49, 2, 3, tocolor(66, 73, 73, 255), "#ff0000", 0, false)
                dxDrawImage(posX, posY, 80, 80, ":MODInventario/gfx/itens/"..Item..".png", 0, 0, 0, tocolor(255, 255, 255, 255), false)
 
                if i > 5 then
                    dxDrawText(string.sub(""..Peso.."", 1, 3), 186 + (multPx * 89), 264 + (multPy * 113), 15, 20, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
                    dxDrawText(Quantidade.."x", posXQuant + 37, 264 + (multPy * 113), 16, 19, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
                else
                    roundedRectangle(182 + (multPx * 89), 260 + (multPy * 113), 20, 19, 5, tocolor(66, 73, 73, 255), "#ff0000", 0, false)
                    dxDrawText(i, 188 + (multPx * 89), 259 + (multPy * 113), 15, 20, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
 
                    dxDrawText(Quantidade.."x", posXQuant + 37, 264 + (multPy * 113), 16, 19, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
                end
            else
                local Item = ItensMeu[Select][1]
                local xc, yc = getCursorPosition()
                local cursorx, cursory = xc*screenW, yc*screenH
 
                dxDrawImage(cursorx - 27, cursory - 27, 80, 80, ":MODInventario/gfx/itens/"..Item..".png", 0, 0, 0, tocolor(255, 255, 255, 255), true)
            end
        end
 
        multPx = multPx + 1
        if multPx == 5 then
            multPx = 0
            multPy = multPy + 1
        end
    end
 
    -- | Parte do Bau
 
    roundedRectangle(732, 195, 458, 56, 3, tocolor(19, 16, 16, 142.8), "#ff0000", 0, false) -- | Fundo baixo Bau
    roundedRectangle(741, 186, 62, 25, 5, tocolor(66, 73, 73, alpha), "#ff0000", 0, false) -- | Fundo Bau
    dxDrawText("PORTA-MALAS", 759, 190, 26, 18, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
 
    roundedRectangle(740, 237, 442, 9, 3, tocolor(19, 16, 16, 142.8), "#ff0000", 0, false) -- | Fundo barrinha
    roundedRectangle(740, 237, 442/PesoBau*PesoConsumidoBau, 9, 3, tocolor(66, 73, 73, 255), "#ff0000", 0, false) -- | Barrinha
    dxDrawText((verifyFloor(PesoConsumidoBau) and PesoConsumidoBau..".00" or PesoConsumidoBau).." / "..(verifyFloor(PesoBau) and PesoBau..".00" or PesoBau), 748, 217, 100, 19, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
 
    roundedRectangle(731, 251, 458, 348, 3, tocolor(0, 0, 0, 51), "#ff0000", 0, false) -- | Fundo Slots Bau
 
    -- | Scroll Bau
 
    roundedRectangle(1186, 251 + (12 * PosScrollbar2), 6, 41, 3, tocolor(66, 73, 73, 255), "#ff0000", 0, false)
 
    -- | Slots Bau
 
    for i = 1, 15 do
        roundedRectangle(738 + (multPx2 * 89), 260 + (multPy2 * 113), 83, 107, 10, tocolor(19, 16, 16, 142.8), "#ff0000", 0, false)
        PosSlotsBau[i] = {738 + (multPx2 * 89), 260 + (multPy2 * 113)}
 
        i = i + PosScrollbar2
        if ItensBau[i] then
            if Select2 ~= i then
                local Item = ItensBau[i].Item
                local Quantidade = ItensBau[i].Quantidade
                local Peso = ItensBau[i].Peso * Quantidade
 
                local width = dxGetTextSize(Quantidade.."x", 10, 1, poppins, 1)
                local posXQuant = (738 + (multPx2 * 89) + (83/2)) - (width)
 
                local posX = (738 + (multPx2 * 89) + (83/2)) - (80/2)
                local posY = (260 + (multPy2 * 113) + (107/2)) - (80/2)
 
                roundedRectangle(755 + (multPx2 * 89), 361 + (multPy2 * 113), 49, 2, 3, tocolor(66, 73, 73, 255), "#ff0000", 0, false)
                dxDrawImage(posX, posY, 80, 80, ":MODInventario/gfx/itens/"..Item..".png", 0, 0, 0, tocolor(255, 255, 255, 255), false)
 
                if i > 5 then
                    dxDrawText(string.sub(""..Peso.."", 1, 3), 744 + (multPx2 * 89), 264 + (multPy2 * 113), 15, 20, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
                    dxDrawText(Quantidade.."x", posXQuant + 37, 264 + (multPy2 * 113), 16, 19, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
                else
                    roundedRectangle(738 + (multPx2 * 89), 260 + (multPy2 * 113), 20, 19, 5, tocolor(66, 73, 73, 255), "#ff0000", 0, false)
                    dxDrawText(i, 744 + (multPx2 * 89), 259 + (multPy2 * 113), 15, 20, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
 
                    dxDrawText(Quantidade.."x", posXQuant + 37, 264 + (multPy2 * 113), 16, 19, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
                end
            else
                local Item = ItensBau[Select2].Item
                local xc, yc = getCursorPosition()
                local cursorx, cursory = xc*screenW, yc*screenH
 
                dxDrawImage(cursorx - 27, cursory - 27, 80, 80, ":MODInventario/gfx/itens/"..Item..".png", 0, 0, 0, tocolor(255, 255, 255, 255), true)
            end
        end
 
        multPx2 = multPx2 + 1
        if multPx2 == 5 then
            multPx2 = 0
            multPy2 = multPy2 + 1
        end
    end
 
    -- | Selected
 
    if Select ~= 0 or Select2 ~= 0 then
        local selected = Select ~= 0 and ItensMeu or Select2 ~= 0 and ItensBau
        local numberSelected = Select ~= 0 and Select or Select2 ~= 0 and Select2
 
        local Item = Select and selected[numberSelected][1] or selected[numberSelected].Item
        local Nome = Select and selected[numberSelected][3] or selected[numberSelected].Nome
        local Quantidade = Select and selected[numberSelected][2] or selected[numberSelected].Quantidade
        local Peso = Select and (selected[numberSelected][4] and (selected[numberSelected][4] * selected[numberSelected][2]) or "0.0") or selected[numberSelected].Peso * Quantidade
 
        local width = dxGetTextSize(Nome, 75, 1, poppins, 1)
 
        local posName = (187 + (90/2) - (width/2))
 
        roundedRectangle(179, 615, 193, 77, 5, tocolor(19, 16, 16, 142.8), "#ff0000", 0, false)
 
        roundedRectangle(187, 605, 90, 23, 5, tocolor(66, 73, 73, 255), "#ff0000", 0, false)
 
        dxDrawText(Nome, posName, 607, 75, 18, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
        dxDrawImage(182, 638, 49, 45, ":MODInventario/gfx/itens/"..Item..".png", 0, 0, 0, tocolor(255, 255, 255, 255), false)
 
        dxDrawText("PESO: "..string.sub(""..Peso.."", 1, 3), 241, 641, 36, 18, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
        dxDrawText("MAXIMO: "..Quantidade, 241, 659, 36, 18, tocolor(255, 255, 255, alpha), 1, poppins, "left", "top", false, false, false, false, false)
    end
end
 
addEventHandler("onClientClick",root,function(b,s)
    if Chest then
        if b == "left" then
            if s == "down" then
                for i = 1,#PosSlots do
                    if isCursorOnElement(sx*PosSlots[i][1], sy*PosSlots[i][2], x*138, y*152) then
                        if ItensMeu[i + PosScrollbar] then
                            Select = i + PosScrollbar
                        end
                    end
                end
 
                for i = 1,#PosSlotsBau do
                    if isCursorOnElement(sx*PosSlotsBau[i][1], sy*PosSlotsBau[i][2], x*138, y*152) then
                        if ItensBau[i + PosScrollbar2] then
                            Select2 = i + PosScrollbar2
                        end
                    end
                end
 
            elseif s == "up" then
                local Quantidade = (EditBox.GetText("Quantidade") ~= "" and tonumber(EditBox.GetText("Quantidade")) or 1)
                if Select ~= 0 then
                    for i = 1, #PosSlotsBau do
                        if isCursorOnElement(sx*PosSlotsBau[i][1], sy*PosSlotsBau[i][2], sx*83, sy*107) then
                            local Item = ItensMeu[Select][1]
                            local QuantidadeT = ItensMeu[Select][2]
                            if QuantidadeT >= Quantidade then
                                local PesoAdd = ItensMeu[Select][4] * Quantidade
                                local PesoLivre = PesoBau - PesoConsumidoBau
                                if PesoLivre >= PesoAdd then
                                    triggerServerEvent("Kings.AddPM",localPlayer,IDBau,Item,Quantidade)
                                end
                            end
                        end
                    end
                elseif Select2 ~= 0 then
                    for i = 1, #PosSlots do
                        if isCursorOnElement(sx*PosSlots[i][1], sy*PosSlots[i][2], sx*83, sy*107) then
                            local Item = ItensBau[Select2].Item
                            local QuantidadeT = ItensBau[Select2].Quantidade
                            if QuantidadeT >= Quantidade then
                                triggerServerEvent("Kings.RemovePM",localPlayer,IDBau,Item,Quantidade)
                            end
                        end
                    end
                end
                Select = 0
                Select2 = 0
            end
        end
    end
end)
 
function ScrollBar(b)
    if Chest then
        if isCursorOnElement(sx*166, sy*186, sx*549, sy*506) then
            if b == "mouse_wheel_up" and PosScrollbar > 0 then
                PosScrollbar = PosScrollbar - 5
            elseif b == "mouse_wheel_down" and PosScrollbar < 25 then
                PosScrollbar = PosScrollbar + 5
            end
        elseif isCursorOnElement(sx*732, sy*195, sx*549, sy*506) then
            if b == "mouse_wheel_up" and PosScrollbar2 > 0 then
                PosScrollbar2 = PosScrollbar2 - 5
            elseif b == "mouse_wheel_down" and PosScrollbar2 < 25 then
                PosScrollbar2 = PosScrollbar2 + 5
            end
        end
    end
end
bindKey("mouse_wheel_up", "down", ScrollBar)
bindKey("mouse_wheel_down", "down", ScrollBar)
 
function verifyFloor(number)
    return not ((number - math.floor(number)) == 0)
end
 
function isCursorOnElement(x, y, w, h)
    if (not isCursorShowing()) then
        return false
    end
    local mx, my = getCursorPosition()
    local fullx, fully = guiGetScreenSize()
    cursorx, cursory = mx*fullx, my*fully
    if cursorx > x and cursorx < x + w and cursory > y and cursory < y + h then
        return true
    else
        return false
    end
end
 
function dxDrawRoundedRectangle(x, y, rx, ry, color, radius)
    rx = rx - radius * 2
    ry = ry - radius * 2
    x = x + radius
    y = y + radius
    if (rx >= 0) and (ry >= 0) then
        dxDrawRectangle(x, y, rx, ry, color)
        dxDrawRectangle(x, y - radius, rx, radius, color)
        dxDrawRectangle(x, y + ry, rx, radius, color)
        dxDrawRectangle(x - radius, y, radius, ry, color)
        dxDrawRectangle(x + rx, y, radius, ry, color)
        dxDrawCircle(x, y, radius, 180, 270, color, color, 7)
        dxDrawCircle(x + rx, y, radius, 270, 360, color, color, 7)
        dxDrawCircle(x + rx, y + ry, radius, 0, 90, color, color, 7)
        dxDrawCircle(x, y + ry, radius, 90, 180, color, color, 7)
    end
end
 
function ChestReturnsV( ... )
    local visibles = {
        chest = Chest,
    }
 
    return visibles
end
Link to comment
  • Other Languages Moderators
Lord Henry Soldier

Lord Henry

Posted
  • Other Languages Moderators
Posted

Mano, não irei programar seu resource para você.

Quando abrir o painel, coloque aquela elementData no jogador (ou outra data, se preferir). Depois remova essa data (coloque valor false) ao fechar o painel.

É bem simples.

Pelo que parece, você também está usando a variável Chest para definir se o painel está aberto ou não, dai nesse caso é mais fácil ainda. 

local theKeys = {"F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12"}
-- Obs: Por medidas de segurança, a tecla F8 não aciona este evento e portanto não pode ser bloqueada.

addEventHandler("onClientKey", root, function (button, press)
    if Chest then -- Se o painel está aberto, então:
        if press then
            for i,key in pairs(theKeys) do
                if button == key then
                    cancelEvent()
                    outputChatBox("Tecla bloqueada.") -- Apenas para testes, remova na versão final.
                    break
                end
            end
        end
    end
end)

 

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...