SUPERNATUR4L Posted January 12 Share Posted January 12 Quero colocar um comando para bloquear o F1 , F2 , F3 NO PORTA MALAS , ja tentei alguns mais nao está funcionando ajudem por favor 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 se alguem tiver ideia de codigo me ajuda por favor 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 ) testei esse comando mas nao funcionou, nao retorna nada no debuscript 3 e nao bloqueias os f's alguem conseguir me ajudar agradeço Link to comment
Other Languages Moderators Lord Henry Posted January 14 Other Languages Moderators Share Posted January 14 Mantenha-se no seu tópico original. Não fique criando outros tópicos iguais. Link to comment
Recommended Posts