Big Smoker

sim eu tentei fazer um monte de coisa pra fazer isso, ai tava tentando ja coisa sem logica kkkkkk ai por isso vim pedir uma ajuda pq é um sistema que eu to fazendo.

Bom Dia, Pessoal to com problema num script precisava de uma ajuda, o sistema é quando o jogador pega a arma na mão ela reconhece a função que ela vai fazer e se nao tiver na mão ela nao executa a função. function changeFiringMode () local weapon = getPedWeapon( getLocalPlayer()) --outputChatBox("PLAYER: "..weapon) if weapon == 31 then nameweapon = "AKS-74 Kobra" or "M4A1 CCO" setElementData ( getLocalPlayer(), "userArma", nameweapon ) end if (getElementData(getLocalPlayer(),"userArma") == nameweapon) then if getElementData ( getLocalPlayer(), "usingGrenadeThrower" ) then setElementData ( getLocalPlayer(), "usingGrenadeThrower", false ) unbindKey ( "mouse1", "down", throwGrenade ) toggleControl ( "fire", true ) playSound ("sounds/itm_grenade_up.wav") else local weapon2 = getElementData ( getLocalPlayer(), "selectedWeapon") or "no" if weapon2 and grenadesConfig[weapon2] and ( getElementData ( getLocalPlayer(), grenadesConfig[weapon2].grenadeName ) or 0 ) > 0 then setElementData ( getLocalPlayer(), "usingGrenadeThrower", weapon2 ) bindKey ( "mouse1", "down", throwGrenade ) toggleControl ( "fire", false ) playSound ("sounds/itm_grenade_up.wav") else triggerEvent ("displayClientInfo", getLocalPlayer(),"Inventory","*Você precisa de granada!",255,22,0) end end end end Tentei usar essas função aqui mas não foi como pensei. local weapon = getPedWeapon( getLocalPlayer()) --outputChatBox("PLAYER: "..weapon) if weapon == 31 then nameweapon = "AKS-74 Kobra" or "M4A1 CCO" setElementData ( getLocalPlayer(), "userArma", nameweapon ) end if (getElementData(getLocalPlayer(),"userArma") == nameweapon) then

Boa Noite, Pessoal preciso de uma ajuda que um tempo eu to com esse aviso, quando eu to na agua e começo a levar dano "afogado" ele perde dano mas a função do damage do colete e helmet fica dando esse aviso AVISO === attemp to perform aritmedic on a nil value OBS: damageRoupa é o dano que vai ate o colete e helmet if weapon == 0 then damage = 2000 damageRoupa = 2000 / 100 else damage = getWeaponDamage(weapon,attacker) damageRoupa = getWeaponDamage(weapon,attacker) / 100 end

@DNL291 OBRIGADO DEU CERTO! ?

Boa Noite, não queria vim pedir ajuda no forum mas fui forçado a pedir ajuda eu to com problema de aviso numa linha do script que tava criando no Client.lua.. a função é quando da dano no ped (zombie) na linha eu coloco o Blood do zombie > 0 só que quando da numo menor que 0 ele da aviso. AVISO === attempt to compare with number boolean if getElementData(source,"bloodZumbie") > 0 then -- aviso aqui if weapon == 0 then damage = 2500 else damage = getWeaponDamage(weapon,attacker) end if bodypart == 9 then damage = damage * 9.5 headshot = true end setElementData(source, "bloodZumbie", getElementData(source, "bloodZumbie") - math.random(damage * 0.75, damage * 1.25)) outputChatBox("DANO ZUMBIE: "..damage.." / "..getElementData(source,"bloodZumbie")) if getElementData(source,"bloodZumbie") <= 0 and not getElementData(source,"isDeadZumbie") then triggerServerEvent("onZombieGetsKilled", source, attacker, headshot, getWeaponNameFromID(weapon)) setElementData ( source, "isDeadZumbie", true ) outputChatBox("MATOU") end end

Estou no trabalho agora mais na função eu devo usar o loop ou não?

tiro assim quando o jogador esta dentro do veiculo ai chega outro e começa a atirar no carro, ai começa a pegar fogo nisso o jogador pula do carro, quando pula do carro e explode o player morre com a explosão . eu queria saber se tem alguma função que sai dele na hora

Boa Tarde queria saber como devo fazer para tirar um bug, o bug é o seguinte quando o jogador pula do veiculo (sai) que esta pegando fogo ou prestes a explodir com ele em movimento o player morre junto com a explosão do carro estou tentando entender como faço para tirar isso devo usar o onVehicleStartExit e o que eu faço na função?

Tipo assim eu queri saber se tem alguma função que identifica a altura que o jogador esta um exemplo se ele estiver a mais de 800 metros do chão se ele tiver mais que 800 e cair no chao da um dano de queda pq no servidor de DayZ tem o loss que se tiver um lugar alto ele faz a função que eu quero so que o limite dele é ate 100 e queria mais que isso

deu sim consegui fazer ele aqui voce pode me ajudar no meu outro tópico que eu criei ? sobre a altura? quer função devo usar

Boa noite quero fazer uma função que de dano de queda, so que quero que de queda quando jogador tiver no ceu exemplo: 2000 metros no ceu eu tinha o loss >= 100 so que ele vai so ate o 100 e queria mais alto que o 100 que função devo usar?

Bom tive tempo só agora para ver a função, eu estou tentando entender a função que voce me deu como exemplo, a minha ideia é quando o jogador que recebeu o dano deslogar (quit), dar o kill para o jogador que atirou nele

Boa Tarde estou tentando fazer uma função que quando jogador leve o dano de quem atirou e dar disconnect ele da o kill para quem atirou so que nao estou conseguindo podem me ajuda a ver a onde estou errando? addEventHandler ( "onPlayerQuit", getRootElement(), function (quitType,killer) if quitType == "Quit" or quitType == "Timed out" then local playerAccount = getPlayerAccount(source) if playerAccount and getElementData (source, "antiRelogWork") == true then setAccountData(playerAccount, "antiRelogWork", false) if killer then setElementData(killer,"murders",getElementData(killer,"murders")+1) outputDebugString("Player Killer") end end end end )

sim fica no pass e nao to consigo alterar a senha do pass no xml

Eu to editando meu painel de criar base e to antes nao tinha como alterar a senha da base pelo painel e acabei criando 1 so que que estou com problema na hora de salvar no xml no caso substituir a senha que ja conta no xml por uma nova veja se esta correto e por favor me ajuda a resolver addEvent("editGate",true) addEventHandler("editGate",getRootElement(),function(baseName,gateName,pass) local xml = xmlLoadFile("Bases.xml") for i,node in pairs(xmlNodeGetChildren(xml))do if xmlNodeGetName(node) == baseName then local gateInfo = xmlFindChild(node,"baseName") local gate = xmlFindChild(gateInfo,"Gates") local gates = xmlFindChild(gate,gateName:gsub(" ","Space"),0) if gates then xmlNodeSetAttribute(gates,"pass",pass) end xmlSaveFile(xml) alert("Base edited!",source) end end xmlUnloadFile(xml) refreshGates(baseName) end) um exemplo do meu xml é esse aqui quando salva <Gates> <PortãoSpacedaSpaceFrente X="-95.199996948242" Y="-2180.1999511719" Z="30.5" RX="0" RY="0" RZ="0" openMode="Up/Down" objectScale="1" moveScale="5" pass="1" modelID="2938"></PortãoSpacedaSpaceFrente> <Teto X="-38.799999237061" Y="-2180.3000488281" Z="37.590000152588" RX="0" RY="0" RZ="180" openMode="West/East" objectScale="1" moveScale="-30" pass="2" modelID="6959"></Teto> </Gates>

Boa Tarde, preciso de ajuda nessa função aqui Eu tentei fazer com que a a skin da arma nao apareça na mira, mas ainda continua aparecendo quando eu miro rápido local state local objects = {} bindKey ( "aim_weapon", "both", function ( _, state ) if getPedWeaponSlot ( localPlayer ) == 6 then if ( state == "down" ) then alpha = 0 elseif ( state == "up" ) then alpha = 255 end state = state for i, v in ipairs ( getElementsByType ( "object", root, true ) ) do if isElementAttachedToBone ( v ) then local id = getElementModel ( v ) if ( id == 3026 ) or ( id == 2401 ) or ( id == 2384 ) or ( id == 2407 ) or ( id == 1248 ) or ( id == 2399 ) or ( id == 1252 ) or ( id == 1575 ) or ( id == 1576 ) or ( id == 1835 ) or ( id == 2189 ) or ( id == 1832 ) or ( id == 1833 ) or ( id == 1834 ) or ( id == 1837 ) or ( id == 1838 ) or ( id == 2725 ) or ( id == 1816 ) or ( id == 2644 ) or ( id == 1767 ) or ( id == 2726 ) then table.insert(objects, v) setElementAlpha ( v, alpha ) end end end setTimer(verifyAlpha(alpha), 200, 1) end end) function verifyAlpha(n) if (state == "down") then for i, object in pairs(objects) do if ( not getElementAlpha(object) == n) then setElementAlpha(object, n) table.remove(objects, i) end end end end

sim foi o que eu fiz, eu consegui arrumar aquele dia.. mais muito obrigadoo me ajudo bastante !

então eu fiz isso aqui olha function savePlayerData(p) --dbExec(db, "DELETE FROM players") if isElement(p) then if not isObjectInACLGroup("user."..getAccountName(getPlayerAccount(p)),aclGetGroup("Admin"))then return end end local acc = getPlayerAccount(p) count = 0 if not isGuestAccount(acc) then count = count + 1 local lvl = (getElementData(p, "level") or 0) local exps = (getElementData(p, "experience")or 0) dbExec(db, "INSERT INTO players (account, Level, Exp) VALUES(?,?,?)", getAccountName(acc), lvl, exps) end if isElement(p) then if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(p)),aclGetGroup("Admin"))then outputChatBox("#7BFF00[AVISO] #FFFFFFLevel Salvo com Sucesso [#FF0000"..count.."#FFFFFF]",p,255,0,0,true) end end end addCommandHandler("lvs",savePlayerData) é pra testa, para ver se salva, e salvo so que ela repete varias vezes, queria que nao repeti-se, pois ela esta na tabela ja e queria so alterar os valores dela usando update, ai as contas que nao estão na tabela no .db usar o inset into, entendeu? pq se nao vou ter que usa o dbExec(db, "DELETE FROM players"), e nao quero usa ele, pq ai nao vai adianta nada, so vai salvar para quem esta online no jogo, e nao é essa minha intenção, pode me ajuda? aquele script que vc me passo que vc fez, ele nao pego e tive que fazer isso ai, pois o seu script nao tava salvando no .db e esse ai agora esta so que ta salvando varias vezes quando do o comando, pode me ajuda?

testei o codigo, mas como nunca mexi com .db o salvamento dos dados, nao salva o data base essa do xml eu consegui salvar function SalveLevel(player) if isElement(player) then if not isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)),aclGetGroup("Admin"))then return end end fileDelete("XLevel.xml") xml = xmlCreateFile("XLevel.xml","config") xmlSaveFile(xml) count = 0 for _,playerLv in pairs(getElementsByType("player")) do if getElementData(playerLv,"level") and getElementData(playerLv,"experience") then count = count + 1 xmlLevel = xmlCreateChild(xml,"Level") tonumber(xmlNodeSetAttribute(xmlLevel,"Account",getAccountName(getPlayerAccount(playerLv)))) xmlPlayers = xmlCreateChild(xmlLevel,"Info") tonumber(xmlNodeSetAttribute(xmlPlayers,"LV",getElementData(playerLv,"level"))) tonumber(xmlNodeSetAttribute(xmlPlayers,"EX",getElementData(playerLv,"experience"))) end end xmlSaveFile(xml) xmlUnloadFile(xml) if isElement(player) then if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)),aclGetGroup("Admin"))then outputChatBox("#7BFF00[AVISO] #FFFFFFLevel Salvo com Sucesso [#FF0000"..count.."#FFFFFF]",player,255,0,0,true) end end end addCommandHandler("lvs",SalveLevel)

como eu posso aprender o sql? pq eu estou aprendendo XML pq eu ja tinha um salvo aqui

eu quero salvar um XML separado isso pq o setAccountData, ele vai salvar na internal e as vezes eu reseto a internal e tudo no meu servidor to salvo um XML.. unico problema é que ele nao ta setando o level que ta salvo no XML "XLevel.xml" para o player, precisava dessa ajuda. consegue me ajuda nesse script que eu estou com problema!? pois so falta isso.. e estou me batendo, ai minha unica opção foi pedir ajuda aqui no forum

nunca mexi com sql tb todos meu sistemas é usado o XML precisava so de ajuda nisso, que vai setar o level e o EXP de cada player salvo pode me ajuda ver a onde ta o erro

eu estou fazendo um sistema de salvamento XML so que preciso de ajuda, ele nao esta setando o level e o EXP quando do o comando ou quando eu logo podem me ajuda? Nunca mexi com o XML OPS: o "XLevel" ja esta com os itens salvo nele, so falta setar function LoadLevels() xml = xmlLoadFile("XLevel.xml") for i,node in pairs(xmlNodeGetChildren(xml)) do if xmlNodeGetAttribute(node,"Account") == getAccountName(getPlayerAccount(source)) then setElementData(source,"level",tonumber(xmlNodeGetAttribute(node,"LV"))) setElementData(source,"experience",tonumber(xmlNodeGetAttribute(node,"EX"))) end end xmlUnloadFile(xml) end addEventHandler("onPlayerLogin",getRootElement(),LoadLevels) addCommandHandler("loglev",LoadLevels)

já fiz isso e ainda continua o erro

Preciso de uma ajuda numa função.. toda vez que to o comando de criar o veiculo com as coordenada ja na tabela da esse erro vehicle_spawns.lua:3: bad argument #1 to 'pairs' (table expected, got number) função server. function spawnDayZVehicles() for i,vehs in pairs(vehiclesTable)do for i,spawn in pairs(#vehSpawns[vehs[1]]) do local x,y,z = spawn[1],spawn[2],spawn[3] local veh = createVehicle(vehs[2],x,y,z) local vehCol = createColSphere(x,y,z,4) attachElements(vehCol,veh,0,0,0) setElementData(vehCol,"parent",veh) setElementData(veh,"parent",vehCol) setElementData(vehCol,"vehicle",true) setElementData(vehCol,"MAX_Slots",vehs[8]) local engRand = math.random(0,vehs[3]) local tireRand = math.random(0,vehs[4]) local partRand = math.random(0,vehs[5]) local rotorRand = math.random(0,vehs[6]) local glaRand = math.random(0,vehs[7]) setElementData(vehCol,"Engine_inVehicle",engRand) setElementData(vehCol,"Tire_inVehicle",tireRand) setElementData(vehCol,"Parts_inVehicle",partRand) setElementData(vehCol,"Rotor_inVehicle",rotorRand) setElementData(vehCol,"Glass_inVehicle",glaRand) setElementData(vehCol,"spawn",{vehs[2],x,y,z}) setElementData(vehCol,"fuel",10) setElementData(vehCol,"ProtectionPercent",0) setElementData(vehCol,"maxfuel",vehs[9]) setElementData(vehCol,"needengines",vehs[3]) setElementData(vehCol,"needtires",vehs[4]) setElementData(vehCol,"needparts",vehs[5]) setElementData(vehCol,"needrotor",vehs[6]) setElementData(vehCol,"needglass",vehs[7]) if tireRand >= 1 then setElementData(vehCol,"TireState",math.random(0,100)) else setElementData(vehCol,"TireState",100) end if engRand >= 1 then setElementData(vehCol,"EngineState",math.random(0,100)) else setElementData(vehCol,"EngineState",100) end if rotorRand >= 1 then setElementData(vehCol,"RotorState",math.random(0,100)) else setElementData(vehCol,"RotorState",100) end if partRand >= 1 then setElementData(vehCol,"PartsState",math.random(0,100)) else setElementData(vehCol,"PartsState",100) end end end end