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.
Blaack Chump

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.

  • 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?
 
  • Moderators
Lord Henry Soldier

Lord Henry

Posted
  • 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

Eu te ajudei ou achou meu comentário útil? Não esqueça de deixar um Thanks! spacer.png

Minhas contribuições para a comunidade: LordHenry - MTA Wiki Profile
Inscreva-se no meu canal do YouTube: Lord Henry - Entertainment
Discord Oficial do MTA: https://mtasa.com/discord
Blacklist e Whitelist de Scripters: Planilha

Por favor, não me envie mensagens privadas solicitando suporte. Crie um tópico no fórum em vez disso.

  • 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
  • Moderators
Lord Henry Soldier

Lord Henry

Posted
  • 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)

 

Eu te ajudei ou achou meu comentário útil? Não esqueça de deixar um Thanks! spacer.png

Minhas contribuições para a comunidade: LordHenry - MTA Wiki Profile
Inscreva-se no meu canal do YouTube: Lord Henry - Entertainment
Discord Oficial do MTA: https://mtasa.com/discord
Blacklist e Whitelist de Scripters: Planilha

Por favor, não me envie mensagens privadas solicitando suporte. Crie um tópico no fórum em vez disso.

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...