-
Posts
343 -
Joined
-
Last visited
-
Days Won
2
Everything posted by Doongogar
-
function guardarveiculo (player) local id = getElementData(player, "ID") local accName = getAccountName(getPlayerAccount(player)) local carro = getPedOccupiedVehicle(player) local nomecarro = getElementData(carro, "Nome") local donocarro = getElementData(carro, "Owner") local saude = getElementHealth(carro) local gasolina = getElementData(carro, "MD:Gasolina") or 50 local multas = getElementData(carro, "Multas") or 0 local r1, g1, b1, r2, g2, b2, r3, g3, b3 = getVehicleColor(carro, true) local result = dbPoll(dbQuery(db, "SELECT * FROM player WHERE Login = ? AND Veiculo = ?", accName, nomecarro), -1) if donocarro == id then if #result > 0 then if result[1]["Status"] == "Em Rua" then dbExec(db, "UPDATE player SET Status = ? WHERE Login = ? AND Veiculo = ?", "Guardado", accName, nomecarro) dbExec(db, "UPDATE player SET Saude = ? WHERE Login = ? AND Veiculo = ?", saude, accName, nomecarro) dbExec(db, "UPDATE player SET R = ? WHERE Login = ? AND Veiculo = ?", r1, accName, nomecarro) dbExec(db, "UPDATE player SET G = ? WHERE Login = ? AND Veiculo = ?", g1, accName, nomecarro) dbExec(db, "UPDATE player SET B = ? WHERE Login = ? AND Veiculo = ?", b1, accName, nomecarro) dbExec(db, "UPDATE player SET Gas = ? WHERE Login = ? AND Veiculo = ?", gasolina, accName, nomecarro) dbExec(db, "UPDATE player SET Multas = ? WHERE Login = ? AND Veiculo = ?", multas, accName, nomecarro) destroyElement(carro) exports._infobox:addNotification(player, "Você guardou seu veiculo!", "success") end end end end addEvent("H3>GuardarVeiculo", true) addEventHandler("H3>GuardarVeiculo", root, guardarveiculo) addCommandHandler("dv", function(playerSource,commandName,id) if isObjectInACLGroup ( "user." ..getAccountName(getPlayerAccount(playerSource)), aclGetGroup ("Staff")) then if (id) then local playerID = tonumber(id) if(playerID) then local targetPlayer, targetPlayerName = getPlayerID(playerID) if targetPlayer then local veh = getPedOccupiedVehicle(targetPlayer) if veh then destroyElement(veh) end end end end end end ) assim ta certo?, não editei lá pq n to achando o botão de editar acho que some depois de um tempo né
-
quando eu do dv nos carros eles desaparecem da garagem, somente dando restart no mod que volta para garagem como faço para quando der dv em vez de destuir o veiculo triggar o evento de guarda o veiculo? function guardarveiculo (player) local id = getElementData(player, "ID") local accName = getAccountName(getPlayerAccount(player)) local carro = getPedOccupiedVehicle(player) local nomecarro = getElementData(carro, "Nome") local donocarro = getElementData(carro, "Owner") local saude = getElementHealth(carro) local gasolina = getElementData(carro, "MD:Gasolina") or 50 local multas = getElementData(carro, "Multas") or 0 local r1, g1, b1, r2, g2, b2, r3, g3, b3 = getVehicleColor(carro, true) local result = dbPoll(dbQuery(db, "SELECT * FROM player WHERE Login = ? AND Veiculo = ?", accName, nomecarro), -1) if donocarro == id then if #result > 0 then if result[1]["Status"] == "Em Rua" then dbExec(db, "UPDATE player SET Status = ? WHERE Login = ? AND Veiculo = ?", "Guardado", accName, nomecarro) dbExec(db, "UPDATE player SET Saude = ? WHERE Login = ? AND Veiculo = ?", saude, accName, nomecarro) dbExec(db, "UPDATE player SET R = ? WHERE Login = ? AND Veiculo = ?", r1, accName, nomecarro) dbExec(db, "UPDATE player SET G = ? WHERE Login = ? AND Veiculo = ?", g1, accName, nomecarro) dbExec(db, "UPDATE player SET B = ? WHERE Login = ? AND Veiculo = ?", b1, accName, nomecarro) dbExec(db, "UPDATE player SET Gas = ? WHERE Login = ? AND Veiculo = ?", gasolina, accName, nomecarro) dbExec(db, "UPDATE player SET Multas = ? WHERE Login = ? AND Veiculo = ?", multas, accName, nomecarro) destroyElement(carro) exports._infobox:addNotification(player, "Você guardou seu veiculo!", "success") end end end end addEvent("H3>GuardarVeiculo", true) addEventHandler("H3>GuardarVeiculo", root, guardarveiculo) addCommandHandler("dv", function(playerSource,commandName,id) if isObjectInACLGroup ( "user." ..getAccountName(getPlayerAccount(playerSource)), aclGetGroup ("Staff")) then if(id) then local playerID = tonumber(id) if(playerID) then local targetPlayer, targetPlayerName = getPlayerID(playerID) if targetPlayer then local veh = getPedOccupiedVehicle(targetPlayer) if veh then destroyElement(veh) end end end end end end ) ambos estão em pastas diferentes
-
ta dando esse erro, eu não entendo nada de "string." então nem tenho ideia do que seja isso
-
eu queria que a infobox aparecesse em cima do painel de login, como faço isso??
-
onVehicleExit e onPlayerWasted para destruir veiculo
Doongogar replied to Doongogar's topic in Programação em Lua
o element data ja estava sendo setado como true ao criar o veiculo, obrigado -
pra adicionar um codigo ao seu post utilize a ferramenta "Code"
-
porque nenhum dos dois esta funcionando? function destruirKombiMorte() local driver = getVehicleOccupant(vehicle) if driver and isElement(driver) and getElementType(driver) == "player" and getPedOccupiedVehicleSeat(driver) == 0 then if getElementData(vehicle, "kombiEntregas") == true then destroyElement(vehicle) end end end addEventHandler("onPlayerWasted", getRootElement(), destruirKombiMorte) function destruiKombiExit(player, seat) if seat == 0 then local vehicle = getPedOccupiedVehicle(player) if vehicle then if getElementData(vehicle, "kombiEntregas") == true then destroyElement(vehicle) end end end end addEventHandler("onVehicleExit", getRootElement(), destruiKombiExit)
-
eu quero que quando o cursor estiver em cima do retangulo ele mude de cor, como faço isso?
-
exepmplo: function ex(thePlayer) if getElementData(thePlayer, "ex") == true then outputChatBox("sim") else outputChatBox("nao") end end agora é o elseif? function ex(thePlayer) if getElementData(thePlayer, "ex") == true then outputChatBox("sim") elseif getElementData(thePlayer, "ex2") == true then outputChatBox("sim2") else --??? else outputChatBox("nao") end end
-
eu tive uma longa conversa com o chat gpt desenvolvendo um set id sem erros gostaria que vocês apreciassem, podem fazer criticas e elogiar ela a vontade
-
eu queria fazer um set id sem bugs, mas como eu verifico se existe alguma conta com certo id ? e como eu faria pra excluir uma conta e id com um comando?
-
eu tava fazendo esse codigo é percebi que tentei colocar um else para um elseif oque não é possivel, existe alguma alternativa que daria o mesmo resultado sabe como um else em conjunto de um if? function SkinExclusiva(thePlayer, cmd, parametro) if (parametro == "24") then if getElementData(thePlayer, "24") == true then setElementModel(thePlayer, 24) exports._infobox:addNotification(thePlayer, "Você pegou sua skin exclusiva com sucesso!", "success") elseif (parametro == "27") then -- esse elseif tentei usar com o else abaixo if getElementData(thePlayer, "27") == true then setElementModel(thePlayer, 27) exports._infobox:addNotification(thePlayer, "Você pegou sua skin exclusiva com sucesso!", "success") end else -- esse else tentei usar no elseif acima exports._infobox:addNotification(thePlayer, "Você não tem acesso a essa skin exclusiva", "error") end end end addCommandHandler("skin", SkinExclusiva)
-
Pegar todos os resource e mandar uma mensagem pro discord
Doongogar replied to Doongogar's topic in Programação em Lua
eu não estou usando o onClientRender, em vez disso pode ser algum erro no envio a mensagem ao discord não? esse e o codigo completo: urlDiscord = "https://discord.com/api/webhooks/1078312698711908422/dcqfCNvzpoQr5GrwV2dJw9Sn3TEo9gNEJVs_gNxjTgqjP4xTujwUcvnZ6VP5IV0xkTge" function enviarMsg(message) sendOptions = { queueName = "dcq", connectionAttempts = 10, connectTimeout = 20000, formFields = { content="cs\n#"..message.."" }, } fetchRemote (urlDiscord, sendOptions, callback ) end function callback() end function displayResources() local resourceTable = getResources() iprint("Resources OK") for _, res in pairs(resourceTable) do iprint("Loop OK") local name = getResourceName(res) iprint("Nomes OK") enviarMsg("Resource ["..name.."]") iprint("Mensagem OK") end end addCommandHandler("rsc", displayResources) Obs: o Resource esta sim na acl admin para usar o fetchRemote -
Adequar painel DX para qualquer resolução
Doongogar replied to Doongogar's topic in Programação em Lua
uma pergunta off topic aqui perdão se for incomodo, mas esse modo development e permissão de desenvolvedor é alguma função que ajuda em modificar os mods ou é so pq você é moderador oficial mesm -
Adequar painel DX para qualquer resolução
Doongogar replied to Doongogar's topic in Programação em Lua
se eu transformar todo o painel em uma imagem unica, poderia resolver? -
Adequar painel DX para qualquer resolução
Doongogar replied to Doongogar's topic in Programação em Lua
pra isso eu teria que usar o "guiGetSreenSize"? em formato de "if then" e abrir os textos em baixo disso com outra fonte? como um exemplo na wiki: local x,y = guiGetScreenSize() if ( x <= 640 ) and ( y <= 480 ) then -
Pegar todos os resource e mandar uma mensagem pro discord
Doongogar replied to Doongogar's topic in Programação em Lua
fiz assim: function displayResources() local resourceTable = getResources() iprint("Resources OK") for _, res in pairs(resourceTable) do iprint("Loop OK") local name = getResourceName(res) iprint("Nomes OK") enviarMsg("Resource ["..name.."]") iprint("Mensagem OK") end end addCommandHandler("rsc", displayResources) aparece todas, porém depois de uns 3 segundos aparece todas denovo menos a do "Resources OK" e aparece elas em "DUP x264" -
Adequar painel DX para qualquer resolução
Doongogar replied to Doongogar's topic in Programação em Lua
então para que isso não aconteça denovo eu teria que deixar tudo fixo ou apenas os textos? -
isso me faz feliz, perfeito, é por isso que todo mundo aqui te ama
-
Pegar todos os resource e mandar uma mensagem pro discord
Doongogar replied to Doongogar's topic in Programação em Lua
function enviarMsg(message) sendOptions = { queueName = "dcq", connectionAttempts = 10, connectTimeout = 20000, formFields = { content="cs\n#"..message.."" }, } fetchRemote (urlDiscord, sendOptions, callback ) end function callback() end function displayResources() local resourceTable = getResources() for _, res in pairs(resourceTable) do local name = getResourceName(res) enviarMsg("Resource ["..name.."]") end end addCommandHandler("rsc", displayResources) porque não ta funcionando ? sem erros no debug quando starto nem quando executo o comando porém sem respostas no webhook Obs: o link do webhook ta acima é ta certo, não coloquei pq não precisa -
ta dando esse erro aqui: nessa linha: for i,nome in ipairs (nomes) do if string.find(nome, " ") then nomes[i] = string.sub(v, 4)) -- aqui end print(nomes[i]) end
-
eu queria saber como eu troco uma imagem que ta em html, eu não achei uma sessão para html, sinto muito...
-
pra isso você teria que usar a mesma linha de racíocinio do seu chat function Policiais(thePlayer) for i,players in pairs(getElementsByType("player")) do -- loop que pega todos os elementos do tipo player local policiais = getElementData(players, "TrabalhoPolicia") -- filtra o loop para somente quem tem o elementdata if policiais == true then -- se o elementdata for igual a true então... outputChatBox("Existem "..tonumber(policiais).." Em Serviço", thePlayer, 255, 255, 255, true) -- mostra quantos existem para quem executou o comando end -- fecha o if end -- fecha o loop end -- fecha a função addCommandHandler("ptr", Policiais) -- seta o comando ptr na função pode dar algo de errado ja q n testei, n sei ao certo se vai funcionar
-
de nada meu mano, se poder ta reagindo com um thanks pra ajudar, agradeço demais
