Search the Community

Showing results for tags 'script'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Multi Theft Auto: San Andreas 1.x
    • Support for MTA:SA 1.x
    • User Guides
    • Open Source Contributors
    • Suggestions
    • Ban appeals
  • General MTA
    • News
    • Media
    • Site/Forum/Discord/Mantis/Wiki related
    • MTA Chat
    • Other languages
  • MTA Community
    • Scripting
    • Maps
    • Resources
    • Other Creations & GTA modding
    • Competitive gameplay
    • Servers
  • Other
  • Archive
  • Private Bugtracker

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


About Me


Gang


Location


Occupation


Interests

Found 729 results

  1. function spawnDayZPlayer(player) if player then local x,y,z = unpack(spawnPositions[math.random(#spawnPositions)]); spawnPlayer(player, x, y, (z+0.5), math.random(360), 73, 0, 0); setCameraTarget(player, player); fadeCamera(player, true); local playerCol = createColSphere(x, y, z, 1.5); setElementData(player, "playerCol", playerCol); attachElements(playerCol, player, 0, 0, 0); setElementData(playerCol, "parent", player); setElementData(playerCol, "player", true); setAccountData(getPlayerAccount(player), "isDead", false); setElementData(player, "isDead", false); setElementData(player, "logedin", true); for _,v in ipairs(playerDataTable) do if (v[1] ~= "radiochannel" and v[1] ~= "gpschannel") then setElementData(player, v[1], v[2]); end end setElementData(player, "logedin", true); setTimer(checkBuggedAccont, (25*1000), 1, player); setElementData(player, "spawnedzombies", 0); end end addEventHandler("kilLDayZPlayer", root, function(killer, headshot, weapon) local account = getPlayerAccount(source); if not account then return; end triggerClientEvent(source, "onClientPlayerDeathInfo", source); killPed(source); triggerClientEvent(source, "hideInventoryManual", source); if not isElementInWater(source) then if (getElementData(source, "alivetime") > 5) then -- If alivetime is bigger than 5 mins, to avoid haveing too much corpses at spawn. local x,y,z = getElementPosition(source); if (getDistanceBetweenPoints3D(x, y, z, 6000, 6000, 0) > 200) then local x,y,z = getElementPosition(source); local _,_,rotz = getElementRotation(source); local skin = getElementModel(source); local ped = createPed(skin, x, y, z, rotz); local pedCol = createColSphere(x, y, z, 1.5); killPed(ped); setTimer(function(ped, pedCol) if ped then destroyElement(ped); end if pedCol then destroyElement(pedCol); end end, (10*60000), 1, ped, pedCol); attachElements(pedCol, ped, 0, 0, 0); setElementData(pedCol, "parent", ped); setElementData(pedCol, "playername", getPlayerName(source)); setElementData(pedCol, "deadman", true); setElementData(pedCol, "MAX_Slots", getElementData(source, "MAX_Slots")); local time = getRealTime(); setElementData(pedCol, "deadreason", getPlayerName(source).." is dead. Cause of death: "..(weapon or "Unknown")..". Time of death: "..time.hour..":"..time.minute.." o'clock."); if pedCol then for _,v in ipairs(playerDataTable) do local itemPlus = getElementData(source, v[1]); if (v[1] == "M1911 Mag") then itemPlus = math.floor(getElementData(source, v[1])/10); elseif (v[1] == "M9 SD Mag") then itemPlus = math.floor(getElementData(source, v[1])/15); elseif (v[1] == "Desert Eagle Mag") then itemPlus = math.floor(getElementData(source, v[1])/7); elseif (v[1] == "PDW Mag") then itemPlus = math.floor(getElementData(source, v[1])/30); elseif (v[1] == "MP5A5 Mag") then itemPlus = math.floor(getElementData(source, v[1])/20); elseif (v[1] == "AS50 Mag") then itemPlus = math.floor(getElementData(source, v[1])/40); elseif (v[1] == "CZ550 Mag") then itemPlus = math.floor(getElementData(source, v[1])/10); elseif (v[1] == "Mosin 9130 Mag") then itemPlus = math.floor(getElementData(source, v[1])/35); elseif (v[1] == "M24 Mag") then itemPlus = math.floor(getElementData(source, v[1])/10); elseif (v[1] == "KVSK Mag") then itemPlus = math.floor(getElementData(source, v[1])/15); elseif (v[1] == "M107 Mag") then itemPlus = math.floor(getElementData(source, v[1])/5); elseif (v[1] == "SVD Dragunov Camo Mag") then itemPlus = math.floor(getElementData(source, v[1])/25); elseif (v[1] == "MK 48 Mod 0 Mag") then itemPlus = math.floor(getElementData(source, v[1])/100); elseif (v[1] == "MG36 Mag") then itemPlus = math.floor(getElementData(source, v[1])/100); elseif (v[1] == "PKP Mag") then itemPlus = math.floor(getElementData(source, v[1])/100); elseif (v[1] == "AK-107 Mag") then itemPlus = math.floor(getElementData(source, v[1])/30); elseif (v[1] == "AKS Gold Mag") then itemPlus = math.floor(getElementData(source, v[1])/30); elseif (v[1] == "SA-58V ACOG Mag") then itemPlus = math.floor(getElementData(source, v[1])/30); elseif (v[1] == "AKS-74U Mag") then itemPlus = math.floor(getElementData(source, v[1])/30); elseif (v[1] == "M4A1 Holo Mag") then itemPlus = math.floor(getElementData(source, v[1])/20); elseif (v[1] == "1866 Slug") then itemPlus = math.floor(getElementData(source, v[1])/7); elseif (v[1] == "2Rnd. Slug") then itemPlus = math.floor(getElementData(source, v[1])/2); elseif (v[1] == "SPAZ-12 Pellet") then itemPlus = math.floor(getElementData(source, v[1])/7); elseif (v[1] == "DMR Mag") then itemPlus = math.floor(getElementData(source, v[1])/5); elseif (v[1] == "SKS-45 Mag") then itemPlus = math.floor(getElementData(source, v[1])/10); end if not string.find(v[1], "(Equipped)") then setElementData(pedCol, v[1], itemPlus); end for i = 1, 3 do local item = getElementData(source, "currentweapon_"..tostring(i)); if (item ~= "") then setElementData(pedCol, item, 1); end end end local skin = getSkinNameFromID(getElementData(source, "skin")); setElementData(pedCol, skin, getElementData(pedCol, skin) + 1); local backpack = getBackpackNameFromSlots(getElementData(source, "MAX_Slots")); setElementData(pedCol, backpack, (getElementData(pedCol, backpack) or 0) + 1); end end end end if (killer and killer ~= source and getElementType(killer) == "player") then if (getElementData(source, "htype") ~= "Bandit") then addPlayerStats(killer, "humanity", math.random(-2500, -1000)); else addPlayerStats(killer, "humanity", math.random(1000, 2500)); end setElementData(killer, "murders", getElementData(killer, "murders") + 1); if (getElementData(source, "htype") == "Bandit") then setElementData(killer, "banditskilled", getElementData(killer, "banditskilled") + 1); end if headshot then setElementData(killer, "headshots", getElementData(killer, "headshots") + 1); end triggerClientEvent("displayClientInfo", root, "#FFFFFF"..getPlayerName(source).." #FFFFFFwas killed by "..getPlayerName(killer), 0, 22, 255); else triggerClientEvent("displayClientInfo", root, "#FFFFFF"..getPlayerName(source).." #FFFFFFwas killed", 0, 22, 255); end setTimer(setElementPosition, 500, 1, source, 6000, 6000, 0); setAccountData(account, "isDead", true); setElementData(source, "isDead", true); setTimer(spawnDayZPlayer, 10000, 1, source); end); addEventHandler("onPlayerQuit", root, function() savePlayerData(source); end); addEventHandler("onResourceStop", root, function() for _,v in pairs(getElementsByType("player")) do savePlayerData(v); end end); [2019-10-30 18:32:05] ERROR: [DayZ-MTA]/DayZ/accounts.Lua:344: attempt to perform arithmetic on a boolean value [2019-10-30 18:32:06] WARNING: [DayZ-MTA]/DayZ/accounts.Lua:344: Bad argument @ 'getElementData' [Expected string at argument 2, got nil] [2019-10-30 18:32:06] ERROR: [DayZ-MTA]/DayZ/accounts.Lua:344: attempt to perform arithmetic on a boolean value [2019-10-30 18:31:02] ERROR: [DayZ-MTA]/DayZ/accounts.Lua:307: attempt to perform arithmetic on a boolean value [2019-10-30 18:31:08] WARNING: [DayZ-MTA]/DayZ/accounts.Lua:307: Bad argument @ 'getElementData' [Expected string at argument 2, got nil] [2019-10-30 18:31:08] ERROR: [DayZ-MTA]/DayZ/accounts.Lua:307: attempt to perform arithmetic on a boolean value https://imgur.com/a/rRBCOHf when I give /kill it kills me and my screen floats and does not respawn me
  2. Quando utilizo: function aoSair(player) outputChatBox("| AVISO | você tem 30 segundos para voltar ao veículo.", player, 255,255,255, true) setTimer (function ( ) destroyElement(source) end, 30000, 1) end addEventHandler("onVehicleExit", getRootElement(), aoSair) o veículo não se destrói. Erro: Expected element at argument 1, got nil. Imagino que o erro aconteça porquê depois do jogador sair, source não é mais veículo, mas não sei como resolver. Outra coisa, estou usando esse método de destruir porque não consigo achar outra opção (sou novato em script). Queria que o veículo retornasse ao seu lugar padrão depois de 30 segundos: pegarEmprego = createMarker(1847.2760009766,-1873.8081054688,12.878125, "cylinder", 2, 255,255,255, 100) ped = createPed(20, 1847.7249755859,-1873.9541015625,13.578125, 90, false) setElementFrozen(ped, true) function mule(BVOMule) car1 = createVehicle(414, 1780.3957519531,-1889.2502441406,13.38960647583,-0, 0, 268.3544921875) car2 = createVehicle(414, 1780.3957519531,-1889.2502441406-5,13.38960647583,-0, 0, 268.3544921875) car3 = createVehicle(414, 1780.3957519531,-1889.2502441406-10,13.38960647583,-0, 0, 268.3544921875) end addEventHandler("onResourceStart", resourceRoot, mule) function aoEntrar(player) skin = getElementModel(player) gEM = getElementModel(source) if ( gEM == 414 ) then if skin == 20 then if getElementData(player, "Entregador") then else outputChatBox("| SERVIÇO | você precisa estar com a skin.", player) cancelEvent() end else end end end addEventHandler( "onVehicleStartEnter", getRootElement(), aoEntrar ) function msgEmprego(hitElement) if getElementType(hitElement) == "player" then if getElementData(hitElement, "Entregador") == false then outputChatBox("#ffffff| EMPREGO | digite #ff0000/conversar #ffffffpara conversar com o entregador.", hitElement, 255,255,25, true) end end end addEventHandler("onMarkerHit", pegarEmprego, msgEmprego) function aoSair(player) outputChatBox("| AVISO | você tem 30 segundos para voltar ao veículo.", player, 255,255,255, true) setTimer (function ( ) destroyElement(source) end, 1000, 1) end addEventHandler("onVehicleExit", getRootElement(), aoSair) function conversarComEntregador(playerSource) if isElementWithinMarker(playerSource, pegarEmprego) then if getElementModel(playerSource) == 20 then outputChatBox("#ffffffENTREGADOR: você já está com a roupa de entregador, pode trabalhar.", playerSource, 255,255,255, true) else outputChatBox("#ffffffENTREGADOR: lhe dei a roupa de entregador, pode ir trabalhar.", playerSource, 255,255,255, true) setPlayerSkin(playerSource, 20) setElementData(playerSource, "Entregador", true) end end end addCommandHandler("conversar", conversarComEntregador)
  3. local table = { {"1", "2", "3", "4"}, } function asdasdsdasdd() table.insert(table,"5","6","7","8") end What wrong? No errors and warnings in debugscript 3...
  4. Привет всем! Помогите, пожалуйста! Вопрос к тем, кто разбирается в PHP. Собственно вопрос в следующем: На сайте luac.mtasa.com в разделе API имеется руководство по обфускации Lua скриптов через сам Lua скрипт: local FROM="example.Lua" local TO="compiled.Lua" fetchRemote( "http://luac.mtasa.com/?compile=1&debug=0&obfuscate=3", function(data) fileSave(TO,data) end, fileLoad(FROM), true ) Предположим, на моём сайте лежит скрипт: $file_name = "my_script.Lua"; Как можно "скомпилировать" данный скрипт на PHP? Возможно, что через curl, но как его использовать в PHP я не знаю. Прошу помощи! Спасибо.
  5. I'm creating a blitz script, I already created the object, but I would like to delete this object and I don't know how. Could someone help? Script >< function Criarobjeto() local px, py, pz = getElementPosition ( getLocalPlayer ()) createObject(id, px, py, pz) end addCommandHandler("ob", Criarobjeto)
  6. I would like someone to help me with this script. I wanted to make a cmd that would give gas to the player without having to be in the stocking marker. I created the script but I do not know why it does not work. I'm new to scirpt and forum. >>>> script >>>>> https://www.mediafire.com/file/fzrbkj6zmba80x3/abasteceradm.Lua/file
  7. Boa Tarde, eu fiz um sistema de packet Loos e coloquei com timer no clado CLIENT, funcionou normal so que ai da network no servidor e quando volta ele nao manda o kik para o lado SERVER. Existe alguma função que derrube o jogador sem kikar ele? Um exemplo dar perda de pacote e ele ser expulso com aquela mensagem (tempo do servidor foi interrompida) OBRIGADO
  8. tô procurando um mod de Punir com Painel simples ou tanto faz, alguem né ajudar?
  9. Preciso de ajuda estou mexendo em um mod de armas que transfere de um jogador para outro mas n consegui colocar preço pra vender alguém me ajuda ===Client=== -- Script Criado by Torugo -- -- www.Modsbr-MTA.blogspot.com.br -- -- Obrigado por Baixar ;D -- local KEY = "F6" -- Hot Key outputChatBox("#0ffff0 Sistema de Armas criado por Torugo",255,0,0,true) -- My Right's ( Don't Change it ) -- ## Important Functions function centerWindow(center_window) -- local screenW,screenH=guiGetScreenSize() local windowW,windowH=guiGetSize(center_window,false) local x,y = (screenW-windowW)/2,(screenH-windowH)/2 guiSetPosition(center_window,x,y,false) end function getPedWeapons(ped) -- local playerWeapons = {} if ped and isElement(ped) and getElementType(ped) == "ped" or getElementType(ped) == "player" then for i=2,9 do local wep = getPedWeapon(ped,i) if wep and wep ~= 0 then table.insert(playerWeapons,wep) end end else return false end return playerWeapons end -- ## Main Window ## wnd = guiCreateWindow(202,74,427,458,"Sistema de Transferir Armas",false) players_grid = guiCreateGridList(0.0211,0.0546,0.4707,0.9258,true,wnd) guiGridListSetSelectionMode(players_grid,1) guiGridListAddColumn(players_grid,"Pessoas...",0.9) weapons_grid = guiCreateGridList(0.5035,0.0546,0.4707,0.5415,true,wnd) guiGridListSetSelectionMode(weapons_grid,1) guiGridListAddColumn(weapons_grid,"Armas",0.6) guiGridListAddColumn(weapons_grid,"Municao",0.3) info = guiCreateLabel(0.5012,0.6092,0.4707,0.0699,"Digite o valor da municao",true,wnd) guiLabelSetColor(info,0,255,0) guiLabelSetVerticalAlign(info,"center") guiLabelSetHorizontalAlign(info,"center",false) guiSetFont(info,"default-bold-small") ammo = guiCreateEdit(0.5035,0.679,0.4731,0.0852,"",true,wnd) send = guiCreateButton(0.5035,0.7838,0.4731,0.0895,"Enviar Armas",true,wnd) guiSetFont(send,"default-bold-small") close = guiCreateButton(0.5035,0.8843,0.4731,0.0895,"Fechar",true,wnd) guiSetFont(close,"default-bold-small") guiSetVisible(wnd,false) centerWindow(wnd) bindKey(KEY,"down", function () if guiGetVisible(wnd) then guiSetVisible(wnd,false) showCursor(false) guiSetInputEnabled(false) else guiSetVisible(wnd,true) showCursor(true) guiSetInputEnabled(true) putPlayers() putWeapons() end end ) function putPlayers() guiGridListClear(players_grid) for _,player in ipairs(getElementsByType("player")) do local row = guiGridListAddRow(players_grid) guiGridListSetItemText(players_grid,row,1,getPlayerName(player),false,false) end end function putWeapons() guiGridListClear(weapons_grid) for _,weapon in ipairs(getPedWeapons(localPlayer)) do if getPedTotalAmmo(localPlayer,getSlotFromWeapon(weapon)) > 0 then local row = guiGridListAddRow(weapons_grid) guiGridListSetItemText(weapons_grid,row,1,getWeaponNameFromID(weapon),false,false) guiGridListSetItemText(weapons_grid,row,2,getPedTotalAmmo(localPlayer,getSlotFromWeapon(weapon)),false,false) end end end function RefreshLists() putPlayers() putWeapons() end addEventHandler("onClientGUIClick",close, function () guiSetVisible(wnd,false) showCursor(false) guiSetInputEnabled(false) end ,false) addEventHandler("onClientGUIClick",send, function () local sel_1 = guiGridListGetSelectedItem(players_grid) local sel_2 = guiGridListGetSelectedItem(weapons_grid) if sel_1 ~= -1 and sel_2 ~= -1 then local PlayerName = guiGridListGetItemText(players_grid,sel_1,1) local player = getPlayerFromName(PlayerName) if isElement(player) then if player ~= localPlayer then local WeaponName = guiGridListGetItemText(weapons_grid,sel_2,1) local WeaponAmmo = guiGridListGetItemText(weapons_grid,sel_2,2) local WeaponID = getWeaponIDFromName(WeaponName) local Ammo = guiGetText(ammo) if tonumber(Ammo) and tonumber(Ammo) >= 10 then if tonumber(WeaponAmmo) >= tonumber(Ammo) then setTimer(RefreshLists,500,1) triggerServerEvent("SendWeapon",localPlayer,player,WeaponID,Ammo) else outputChatBox("Erro: Você não tem munição suficiente para esta arma",255,0,0) end else outputChatBox("Error: Escreva um número na Editar",255,0,0) end else outputChatBox("Erro: Não é possível enviar Arma Para Seu Auto",255,0,0) end else RefreshLists() outputChatBox("Error: Jogador não encontrado, Lists refrescado",255,0,0) end end end ) fileDelete("Client.Lua") ===Server=== -- Script Criado por Torugo -- -- www.Modsbr-MTA.blogspot.com.br -- -- Obrigado por Baixar ;D -- addEvent("SendWeapon",true) addEventHandler("SendWeapon",root, function (player,id,ammo) local id = tonumber(id) local ammo = tonumber(ammo) giveWeapon(player,id,ammo) takeWeapon(source,id,ammo) outputChatBox("#ffffff Enviou #ff0000" .. getWeaponNameFromID(id) .. "#ffffffPara #ff0000" .. getPlayerName(player),source,255,0,0,true) outputChatBox("# " .. getPlayerName(source) .. " #ffffffEnviou #ff0000" .. getWeaponNameFromID(id) .. " #ffffffPara você com #ff0000" .. ammo .. " #FFFFFFMunição",player,255,0,0,true) end ) ===Meta=== <meta> <info author="Torugo" name="Sistema de Transferir armas" version="1.0.0" type="script" /> <script src="Client.Lua" type="client" /> <script src="Server.Lua" type="server" /> </meta> se alguém puder me ajudar
  10. Boa noite meus querido, alguns dias atrás, me cadastrei no fórum a procura de conhecimento.. estava com muita dificuldade para modificar um script simples e vim procurar ajuda no forum. Assim, várias pessoas me ajudaram, até o moderador do fórum português ❤️. Muito obrigado pela ajuda para solucionar este script.. vou mostrar o script antes e depois da modificação que me ajudaram a solucionar. Primeiro código antes da modificação! function DAR_XP_AIRNEWSCR ( source, cmd, pname, Quantidade ) if pname and tonumber(Quantidade) then local cliente = getPlayerFromPartialName(pname) if isElement(cliente) then if getElementData ( source, "Console_AirNewSCR" ) == "Sim" then setElementData ( cliente, "Level", Quantidade ) exports.Scripts_Dxmessages:outputDx(source, "Você Setou o Level do(a) Jogador(a) "..getPlayerName(cliente).."#ffffff para "..Quantidade.." com Sucesso!", "success") exports.Scripts_Dxmessages:outputDx(cliente, "O(A) Admin "..getPlayerName(source).."#ffffff Setou seu Level para "..Quantidade.." com Sucesso!", "success") end else exports.Scripts_Dxmessages:outputDx(source, "O Jogador Não Foi Encontrado", "error") end end end addCommandHandler ( "level", DAR_XP_AIRNEWSCR ) Código modificado ficou assim usando o comando /level "nomeDoPlayer" "level" function DAR_XP_AIRNEWSCR ( source, cmd, pname, Quantidade ) if pname and tonumber(Quantidade) and (isObjectInACLGroup("user." ..getAccountName(getPlayerAccount(source)), aclGetGroup("Console"))) then local cliente = getPlayerFromPartialName(pname) if isElement(cliente) then setElementData ( cliente, "Level", tonumber(Quantidade) ) exports.Scripts_Dxmessages:outputDx(source, "Você Setou o Level do(a) Jogador(a) "..getPlayerName(cliente).."#ffffff para "..Quantidade.." com Sucesso!", "success") exports.Scripts_Dxmessages:outputDx(cliente, "O(A) Admin "..getPlayerName(source).."#ffffff Setou seu Level para "..Quantidade.." com Sucesso!", "success") else exports.Scripts_Dxmessages:outputDx(source, "O Jogador Não Foi Encontrado", "error") end end end addCommandHandler ( "level", DAR_XP_AIRNEWSCR ) Agora estou com com um novo Script usando o mesmo data "Console_AirNewSCR" e quero saber se tem como eu modificar ele para dar vip usando o comando /ativar "nomeDoPlayer" "tipodovip""dinheiro" e quantos dias irá durar o vip. estou contando com a ajuda desse fórum que tem ótimos scripts que tem um conhecimento um mais avançado que eu . Meu muito obrigado dês de já! 🔝 Comando_VIP = "ativar" Grupo = "Console" -- Grupo no Painel P ( Manage ACL ) function getPlayerFromPartialName ( name ) local name = name and name:gsub("#%x%x%x%x%x%x", ""):lower() or nil if name then for _, player in ipairs(getElementsByType("player")) do local name_ = getPlayerName(player):gsub("#%x%x%x%x%x%x", ""):lower() if name_:find(name, 1, true) then return player end end end end function Dar_VIP_AirNewSCR ( source, cmd, player, VIP, Dinheiro ) if getElementData ( source, "Console_AirNewSCR" ) == "Sim" then if player and VIP then local Jogador = getPlayerFromPartialName ( player ) if Jogador then if not isGuestAccount ( getPlayerAccount ( Jogador ) ) then local Conta = getAccountName ( getPlayerAccount ( Jogador ) ) if VIP == "Alpha" then if isObjectInACLGroup ("user."..Conta, aclGetGroup ( "Alpha" ) ) then return outputChatBox ( "* Erro: Esse Jogador já é VIP Alpha", source, 255, 255, 255, true ) end elseif VIP == "Epsylon" then if isObjectInACLGroup ("user."..Conta, aclGetGroup ( "Epsylon" ) ) then return outputChatBox ( "* Erro: Esse Jogador já é VIP Epsylon", source, 255, 255, 255, true ) end elseif VIP == "Sigma" then if isObjectInACLGroup ("user."..Conta, aclGetGroup ( "Sigma" ) ) then return outputChatBox ( "* Erro: Esse Jogador já é VIP Sigma", source, 255, 255, 255, true ) end elseif VIP == "Omega" then if isObjectInACLGroup ("user."..Conta, aclGetGroup ( "Omega" ) ) then return outputChatBox ( "* Erro: Esse Jogador já é VIP Omega", source, 255, 255, 255, true ) end end if VIP == "Alpha" or VIP == "Epsylon" or VIP == "Sigma" or VIP == "Omega" then --return outputChatBox ( "* Erro: Esse VIP não existe!", source, 255, 255, 255, true ) --end aclGroupAddObject ( aclGetGroup( VIP ), "user."..Conta ) Musica_Selecionada = math.random ( 1, 3 ) triggerClientEvent ( root, "AirNewSCR_Ativar_VIP", root, Musica_Selecionada, VIP ) if Musica_Selecionada == 1 then --outputChatBox ( "Arquivos/Rae_Sremmurd_Black_Beatles_ft_Gucci_Mane.mp3", source ) Musica_Tocando = "Rae Sremmurd - Black Beatles ft. Gucci Mane" Bonus = 0 elseif Musica_Selecionada == 2 then --outputChatBox ( "Arquivos/Post_Malone_Congratulations_ft_Quavo.mp3", source ) Musica_Tocando = "Post Malone - Congratulations ft. Quavo" Bonus = 50 elseif Musica_Selecionada == 3 then --outputChatBox ( "XXXTENTACION_Look_At_Me.mp3", source ) Musica_Tocando = "XXXTENTACION - Look At Me!" Bonus = 100 end setElementData ( root, "Ultimo_Ativador", getPlayerName(Jogador) ) setElementData ( root, "VIP_do_Ultimo_Ativador", VIP ) outputChatBox ( " ", root ) outputChatBox ( " ", root ) outputChatBox ( "=======================================================", root, 255, 255, 255, true ) outputChatBox ( "* O(A) Jogador(a) "..getPlayerName(Jogador).." #ffffffAtivou um Plano VIP "..VIP, root, 255, 255, 255, true ) if Bonus == 0 then outputChatBox ( "* Seu Bonus de Ativação foi de "..Bonus.."%, Não foi dessa vez!", root, 255, 255, 255, true ) outputChatBox ( "* O(A) Jogador(a) Recebeu 1kk pela Ativação do VIP", root, 255, 255, 255, true ) if Dinheiro ~= false then givePlayerMoney ( Jogador, 1000000 ) givePlayerMoney ( Jogador, 0 ) end elseif Bonus == 50 then outputChatBox ( "* Seu Bonus de Ativação foi de "..Bonus.."%, +50% de 1kk (1kk500k)", root, 255, 255, 255, true ) outputChatBox ( "* O(A) Jogador(a) Recebeu 1kk pela Ativação do VIP (+500k Bonus)", root, 255, 255, 255, true ) if Dinheiro ~= false then givePlayerMoney ( Jogador, 1000000 ) givePlayerMoney ( Jogador, 500000 ) end elseif Bonus == 100 then outputChatBox ( "* Seu Bonus de Ativação foi de "..Bonus.."%, +100% de 1kk (2kk)", root, 255, 255, 255, true ) outputChatBox ( "* O(A) Jogador(a) Recebeu 1kk pela Ativação do VIP (+1kk Bonus)", root, 255, 255, 255, true ) if Dinheiro ~= false then givePlayerMoney ( Jogador, 1000000 ) givePlayerMoney ( Jogador, 1000000 ) end end outputChatBox ( "* Musica Tocando: "..Musica_Tocando, root, 255, 255, 255, true ) outputChatBox ( "=======================================================", root, 255, 255, 255, true ) outputChatBox ( " ", root ) outputChatBox ( " ", root ) outputDebugString ( "[ Ativação ] - O(A) Admin "..getPlayerName(source).." Ativou um VIP para o(a) Jogador(a) "..getPlayerName(Jogador).."!" ) outputDebugString ( "[ Ativação ] - Bonus do VIP Gerado: "..Bonus.."%" ) setTimer ( function() restartResource ( getThisResource ( ) ) -- Reinicia o Mod Automaticamente! outputDebugString ( "[ AirNewSCR ] - Resource 'Scripts_AtivarVIP' Reiniciado Automaticamente! " ) end, 15000, 1 ) end end else outputChatBox ( "* Erro: Jogador não encontrado!", source, 255, 255, 255, true ) end end end end addCommandHandler ( Comando_VIP, Dar_VIP_AirNewSCR ) function Verificar_Emprego_Atual ( ) for i, player in ipairs(getElementsByType("player")) do local acc = getPlayerAccount(player) if acc and not isGuestAccount(acc) then local accName = getAccountName (acc) if isObjectInACLGroup ("user."..accName, aclGetGroup ( Grupo ) ) then setElementData ( player, "Console_AirNewSCR", "Sim" ) else setElementData ( player, "Console_AirNewSCR", "Não" ) end end end end setTimer ( Verificar_Emprego_Atual, 1500, 0 ) -- By AirNewSCR
  11. Quero por outro marcador e outro spawn de carro, pra ficar 2 spawns, mais sempre buga e fica somente 1 ou buga e fica 2 marcadores e 1 veiculo, aqui esta o script com 1 spawn de carro, eu quero colocar outro spawn iniMarker = createMarker( 163.7912902832, 1808.8654785156, 16.640625, "cylinder", 3.5, 200,225,1,50) destroyM = createMarker( 127.0807723999, 1809.0919189453, 16.640625, "cylinder", 3.9, 255,255,255,100) function msg(player) outputChatBox("#FFD700»Você Pegou Um Carro Do #00FF00Exécito Brasileiro«", player, 255,255,255,true) end addEventHandler("onMarkerHit", iniMarker, msg) veh = {} function spawnVehicle(player) if isElementWithinMarker(player, iniMarker) then if veh[player] and isElement( veh[player] ) then destroyElement(veh[player]) veh[player] = nil end veh[player] = createVehicle(490, 157.12101745605, 1822.6125488281, 17.640625) warpPedIntoVehicle(player, veh[player]) end end addEventHandler("onMarkerHit", iniMarker, spawnVehicle) function msgDestroy(player) outputChatBox("Voce Destroiu o Carro Do #00FF00Exécito Brasileiro", player, 255,255,255,true) end addEventHandler("onMarkerHit", destroyM, msgDestroy) function destroy(player) if isElementWithinMarker(player, destroyM) then if isPedInVehicle(player) == true then destroyElement(veh[player]) outputChatBox("", player, 255,255,255,true) else outputChatBox("", player, 255,255,255,true) end end end addEventHandler("onMarkerHit", destroyM, destroy)
  12. Hello everyone! Can you help me, please? Question to those who understand PHP. Actually the question is as follows: On the site luac.mtasa.com in the API section there is a guide to compile Lua scripts by the Lua script itself: local FROM= "example.Lua" local TO= "compiled.Lua" fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&obfuscate=3", function(data) fileSave(TO, date) end, fileLoad(FROM), true) Suppose there is a script on my website: $file_name = "my_script.Lua"; How can I compile this script in PHP? Maybe it is possible by using curl, but how to use it in PHP I don't know. Please help! Thanks.
  13. Boa Tarde, preciso de ajuda num script que salva kill e HS total so que nao ta salavando, quando player desloga do servidor zera tudo, salva a conta por serial ----- Login Playerd2 = db_query( "SELECT * FROM players WHERE account=? LIMIT 1", getPlayerSerial(player)) if Playerd2 and #Playerd2 > 0 then setPlayerMoney(player, Playerd2[1]["mwcTotal"] or 0) setElementData( player, "zombieskilled_total", Playerd2[1]["ZombiesTotal"]) setElementData( player, "murders_total", Playerd2[1]["MurdesTotal"]) setElementData( player, "alivetime_total", Playerd2[1]["AliveTime"]) setElementData( player, "headshotsz_total", Playerd2[1]["hsTotal"] ) setElementData( player, "headshotsp_total", Playerd2[1]["HsSPTotal"]) setElementData( player, "banditskilled_total", Playerd2[1]["BanditTotal"]) end setElementData(player, "logedin", true) --- Salvamento por serial addEventHandler("onElementDataChange",getRootElement(),function() if getElementType(source) == "player" then if getElementData ( source, "logedin" ) then local mwcTotal = getPlayerMoney(source) local zombiet = getElementData( source, "zombieskilled_total" ) local murdest = getElementData( source, "murders_total" ) local alivet = getElementData( source, "alivetime_total" ) local heatt = getElementData( source, "headshotsz_total" ) local heatst = getElementData( source, "headshotsp_total" ) local banditt = getElementData( source, "banditskilled_total" ) local d = db_query( "SELECT * FROM players WHERE account=? LIMIT 1", getPlayerSerial(source) ) -- if d and zombiet and murdest and alivet and heatt and heatst and banditt then -- if d and #d > 0 then -- dbExec( dbLevel, "DELETE FROM players WHERE account=?", getPlayerSerial(source)) -- end if not SQLite_Check(getPlayerSerial(source)) == true then outputChatBox("#FF0000[MW DAYZ ] - #ffffffPress #ff0000'enter' #ffffffto set up a Tent.",getRootElement(),255,255,255,true) dbExec(dbLevel, "INSERT INTO players (account, mwcTotal, ZombiesTotal, MurdesTotal, AliveTime, hsTotal, HsSPTotal, BanditTotal) VALUES(?,?,?,?,?,?,?,?)",getPlayerSerial(source), mwcTotal or 0, zombiet or 0,murdest or 0,alivet or 0,heatt or 0, heatst or 0, banditt or 0) else dbExec(dbLevel, "UPDATE players SET mwcTotal=?, ZombiesTotal=?, MurdesTotal=?, AliveTime=?, hsTotal=?, HsSPTotal=?, BanditTotal=? WHERE account=?",mwcTotal ,zombiet, murdest,alivet,heatt,heatst,heatst,banditt, getPlayerSerial(source)) end -- end end end end)
  14. estou querendo colocar uns 10 lugares diferentes para spawnar o carro addEvent("WarpMyVehicle", true) addEventHandler("WarpMyVehicle", root, function(id) if not isPedInVehicle (source) then if getElementInterior(source) == 0 then if getPlayerMoney(source) >= tonumber(3500) then local vehicle = getVehicleByID(id) if isElement(vehicle) then takePlayerMoney ( source, 3500 ) local x, y, z = getElementPosition(source) setElementPosition(vehicle, 1649.334, -1079.972, 23.898) outputMessage ("#c1c1c1O seu veiculo #00FF66"..(customCarNames[getElementModel(vehicle)] or getVehicleNameFromModel(getElementModel(vehicle))).." #c1c1c1foi entregue a você.", source, 38, 122, 216, true) else outputMessage("#c1c1c1O seu veiculo não está spawnado.", source, 38, 122, 216, true) end else outputMessage("#c1c1c1Você não tem os meios de se teletransportar para o veiculo.", source, 38, 122, 216, true) end else outputMessage("#c1c1c1Você só poderá mudar de veiculo se sair do atual.", source, 38, 122, 216, true) end else outputMessage("#c1c1c1Nós não podemos dirigir seu veiculo. Por favor, sair do outro veiculo.", source, 38, 122, 216, true) end end)
  15. Boa Tarde, Gostaria de saber qual função devo usar para querer colocar uma mensagem no chat exemplo: Jogado X saiu do Servidor (Ping Alto) usando essa função aqui "Kicked" addEventHandler('onPlayerQuit', g_Root, function(reason) if (reason == "Quit") then outputChatBox('['..getPlayerCount()..'#FFFFFF / #7EC0EE'..getMaxPlayers()..'] '..getPlayerName(source)..' #FFFFFFSaiu do Servidor! Motivo [#FF0000Saiu#FFFFFF]', getRootElement(), 126, 192, 238, true) elseif (reason == "Timed out") then outputChatBox('['..getPlayerCount()..'#FFFFFF / #7EC0EE'..getMaxPlayers()..'] '..getPlayerName(source)..' #FFFFFFSaiu do Servidor! Motivo [#FF0000Net caiu#FFFFFF]', getRootElement(), 126, 192, 238, true) elseif (reason == "Banned") then outputChatBox('['..getPlayerCount()..'#FFFFFF / #7EC0EE'..getMaxPlayers()..'] '..getPlayerName(source)..' #FFFFFFSaiu do Servidor! Motivo [#FF0000Banido#FFFFFF]', getRootElement(), 126, 192, 238, true) elseif (reason == "Kicked") then outputChatBox('['..getPlayerCount()..'#FFFFFF / #7EC0EE'..getMaxPlayers()..'] '..getPlayerName(source)..' #FFFFFFSaiu do Servidor! Motivo [#FF0000Chutado#FFFFFF]', getRootElement(), 126, 192, 238, true) end end )
  16. Olá, quero colocar um dxDrawRectangle que vai carregando pro conforme o tempo do "setTimer" vai passando poderia me ajudar?
  17. I created a script to set texture when player joins the car, (EngineApplyShaderToWorldTexture), but work only client-side, i wanna other players see the texture from the car, not only the local player see self texture. How i can create a script like this?
  18. Gostaria de Saber,Como Usar o ToggleControl para Desativar O Tiro de uma Arma.
  19. Ai rapaziada não sei porque mas esse sistema de trampo por level não quer funcionar. Tipo eu consigo pegar um emprego de level 20 com o Level 0. se alguém saber o porque pfv me ajuda. function Petroleiro () local Level = getElementData ( source, "Level" ) or 20 if Level >= 20 then TudoInvisivel () setElementVisibleTo ( Petroleiro, source, true ) setElementData ( source, "Encaminhamento", "Petroleiro" ) outputChatBox ( "Você foi aceito no Emprego de Petroleiro", source, 255, 255, 255, true ) outputChatBox ( "Para Iniciar os Serviços siga o Checkpoint Vermelho em seu Radar", source, 255, 255, 255, true ) setElementData ( source, "Emprego", false ) end end addEvent( "Encaminhar>Petroleiro", true ) addEventHandler( "Encaminhar>Petroleiro", getRootElement(), Petroleiro )
  20. When I quit from server my ElementData gived isn't saved. I tried to do this code to save, follow: function SalvarDadosLogout (source) local ObterGalao = getElementData(source, "galao") local conta = getPlayerAccount (source) setAccountData(conta, "galao", ObterGalao) end addEventHandler("onPlayerQuit", root, SalvarDadosLogout) function DarDadosLogin (source) local conta = getPlayerAccount (source) local TemGalao = getAccountData(conta, "galao") setElementData(source, TemGalao) end addEventHandler("onPlayerLogin", root, DarDadosLogin)
  21. Como faço para desabilitar os sons de tiro que ficam no fundo quando o player está em Los Santos ? Tentei o seguinte código: addEventHandler( "onClientResourceStart", resourceRoot, function( ) setAmbientSoundEnabled( "general", false ) setAmbientSoundEnabled( "gunfire", false ) setWorldSoundEnabled (5, false) end ) Não funcionou... Alguém pode me ajudar ? Desde já agradeço!
  22. Gostaria de colocar um interior na posição do mundo, e na dimensão zero, segue print de onde gostaria que ele ficasse para melhor entendimento: https://i.imgur.com/nDO6kX0.png Desde já agradeço!
  23. Gostaria de substituir o som de ignição do motor, já fiz um script em que o player consegue ligar de desligar o motor do veículo apertando determinado botão, mas gostaria de colocar um som para que todos aqueles que estiverem perto do carro do player consigam escutar o som da partida. Segue o link de download do som abaixo: https://drive.google.com/open?id=1ylXf3-E-Gw2wxAeIczvBMdLPduDMvh0p Não sei qual código utilizar, se puderem me ajudar agradeço!
  24. Preciso de ajuda para setar uma animação pra um npc quando um comando for dado OBS: Preciso de ajuda no setPedAnimation, Pois o resto esta funcionando certinho Medico = createPed (70, 1187.1165771484,-1323.5570068359,13.559015274048) function curar(player) setElementHealth(player, 100) outputChatBox("Voce foi curado com sucesso!", player, 0, 255, 255) takePlayerMoney(player, 500) setPedAnimation(Medico, "ped", "coptraf_stop") end
  25. Coloquei a mensagem no Script mas não estou conseguindo visualizar dentro do jogo -- Menssagem para o jogador local joinMessage = "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" local joinMessage2 = "#00FF00Seja bem vindo ao servidor Equality RolePlay!" local joinMessage3 = "(Tecle F3) TS: XXXXXXX" local joinMessage4 = "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" -- Functions function spawnOnJoin() spawnPlayer(source, joinX, joinY, joinZ, 0 , joinSkin) fadeCamera(source, true) setCameraTarget(source, source) outputChatBox(joinMessage, joinMessage2, joinMessage3, joinMessage4, source) giveWeapon(source, joinWeapon, joinAmmo) givePlayerMoney(source, joinMoney) end