Angelo Pereira

Members
  • Content Count

    208
  • Joined

  • Last visited

  • Days Won

    7

Angelo Pereira last won the day on April 28

Angelo Pereira had the most liked content!

Community Reputation

93 Popular

5 Followers

About Angelo Pereira

  • Rank
    Chump
  • Birthday 19/10/1998

Details

  • Location
    Brasil - RS

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Bom, o erro em si, é na linha 3 do meta, está contendo duas aspas, precisa remover uma das aspas : ( marcado em vermelho ) <script src="server.Lua" type="server"" /> Também lembrando : O nome que você denominou no seu script lá dentro da pasta do seu resource, você precisa coloca o mesmo nome no meta. Exemplo : Tenho um script chamado : LigarMotor.Lua Então no meta será : <meta> <info author="Samuel Boechat" description="Motor do carro" version="1.0" type="misc" /> <script src="LigarMotor.Lua" type="server" /> </meta>
  2. no resouce, o problema se encontra aqui : --> Valor : local housesLimit = tonumber ( get ( "maxHouses" ) ) or 2 --linha 164 : if ( #getAccountHouses ( accountName ) >= housesLimit ) then --> Problema : ">=", o que significa? se for maior, ou igual. --> Então se a pessoa tentar compra a 2ª casa, retornará. Solução : if ( #getAccountHouses ( accountName ) > housesLimit ) then --> Apenas deixa, se for acima do valor.
  3. Apenas faltou : function formatNumber ( number ) local formatar = number while true do formatar, k = string.gsub(formatar, "^(-?%d+)(%d%d%d)", '%1,%2') if ( k == 0 ) then break end end return formatar end -- .. código abaixo.
  4. Teste : -- #1, Lado Server-Side, você precisa registrar a Key para o Jogador. addEventHandler("onPlayerLogin", root, function () bindKey ( source, "k", "down", ligar_desligar_motor ) end) addEventHandler("onResourceStart", resourceRoot, function () for i, player in ipairs( getElementsByType("player") ) do bindKey ( player, "k", "down", ligar_desligar_motor ) end end) addEventHandler("onResourceStop", resourceRoot, function () for i, player in ipairs( getElementsByType("player") ) do unbindKey ( player, "k", "down", ligar_desligar_motor ) end end) -- #2, funções. function ligar_desligar_motor ( player ) local veh = getPedOccupiedVehicle ( player ) if veh then if ( getVehicleEngineState (veh) == false ) then setVehicleEngineState (veh, true) else setVehicleEngineState (veh, false) end end end -- #3, eventos. addEventHandler ( "onPlayerVehicleEnter", root, function ( theVehicle, seat ) if seat == 0 then if ( getVehicleEngineState (theVehicle) == false ) then setVehicleEngineState (theVehicle, true) end end end) addEventHandler ( "onPlayerVehicleExit", root, function ( theVehicle, seat ) if seat == 0 then if ( getVehicleEngineState (theVehicle) == true ) then setVehicleEngineState (theVehicle, false) end end end) -- # Dica, se você quer aprender, basta, cada função/evento pesquisar no wiki do MTA. -- https://wiki.multitheftauto.com/wiki/BindKey -- https://wiki.multitheftauto.com/wiki/GetPedOccupiedVehicle -- https://wiki.multitheftauto.com/wiki/OnPlayerVehicleEnter -- https://wiki.multitheftauto.com/wiki/OnPlayerVehicleExit
  5. -- Server-Side / Por Comando addCommandHandler("F", function ( thePlayer ) outputChatBox("Start", thePlayer, 255, 255, 255, true ) end) -- Server-Side / Por Bindkey addEventHandler("onPlayerLogin", root, function ( ) bindKey ( source, "F", "down", sistema2 ) end) addEventHandler("onResourceStart", resourceRoot, function ( ) for i, players in ipairs( getElementsByType("player" ) ) do bindKey ( players, "F", "down", sistema2 ) end end) addEventHandler("onResourceStop", resourceRoot, function ( ) for i, players in ipairs( getElementsByType("player" ) ) do unbindKey ( players, "F", "down", sistema2 ) end end) function sistema2 ( thePlayer ) outputChatBox("Start", thePlayer, 255, 255, 255, true ) end -- Client-Side / Por Comando addCommandHandler("F", function ( ) outputChatBox("Start", 255, 255, 255, true ) end) -- Client-Side / Por Bindkey function sistema2 ( ) outputChatBox("Start", 255, 255, 255, true ) end bindKey("F7", "down", sistema2 ) Espero ter ajudado.
  6. Infelizmente, é algo que, nem mesmo o pessoal da moderação brasileira podem ajudar nessa questão. Sobre seu problema vamos lá ! Imagine o seguinte, apenas podem entrar na TOPLIST 20 IP(Servidores), e o tempo de durabilidade da TOPLIST é de 20 dias. Então, você terá que aguarda um bom tempo ainda, até chega a sua vez.
  7. --~~> Modo de Fazer [1] - Por Tabela. (ATENÇÃO: Precisa está no mesmo script) local rendido = { } addCommandHandler("render", function (player) rendido[player] = true end) addCommandHandler("abaixar", function (player) rendido[player] = false end) -- na função que faz o roubo, crie uma verificação if rendido[source] then outputChatBox("Jogador Rendido !", source, 255, 255, 255, true) else outputChatBox("Jogador Não Esta Rendido !", source, 255, 255, 255, true) end --~~> Modo de Fazer [2] - Por ElementData. (Não é Necessário Esta no mesmo Resource). addCommandHandler("render", function (player) setElementData(player, "Rendido", true) end) addCommandHandler("abaixar", function (player) setElementData(player, "Rendido", false) end) -- na função que faz o roubo, crie uma verificação local rendido = getElementData(source, "Rendido") or false if rendido then outputChatBox("Jogador Rendido !", source, 255, 255, 255, true) else outputChatBox("Jogador Não Esta Rendido !", source, 255, 255, 255, true) end
  8. Testa lá : local markers = { } addCommandHandler ( "createmarker", function ( thePlayer ) if markers[thePlayer] and isElementWithinMarker ( thePlayer, markers[thePlayer] ) then return outputChatBox("Já Existe um Marker em Você!", thePlayer, 255, 255, 255, true) end local x,y,z = getElementPosition(thePlayer) markers[thePlayer] = createMarker ( x,y,z, "cylinder", 5, 100, 0, 0, 50 ) attachElements(markers[thePlayer], thePlayer, 0,0,-1) outputChatBox("Criado com Sucesso !", thePlayer, 255, 255, 255, true) end) addEventHandler( "onPlayerQuit", root, function ( ) if markers[source] and isElementWithinMarker ( source, markers[source] ) then destroyElement(markers[source]) markers[source] = nil end end)
  9. Dei uma ajeitada no código, teste lá : addCommandHandler("verdono", function ( thePlayer ) if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(thePlayer)), aclGetGroup( "Policia" )) then local vehicle = getPedOccupiedVehicle ( thePlayer ) if vehicle then local owner = getElementData(vehicle, "ownercar") or false if owner then local player = verificar_conta (owner) if player then local dono_do_veiculo = getElementData( player,"AirNew_RG_NomeCompleto" ) or "Sem Dono" outputChatBox("#ffea00═════════════════ DETRAN ERP ═════════════════", thePlayer, 0, 255, 0,true) outputChatBox("#ffea00DETRAN #ababab| #7b7b7bProprietário: #FF1493"..dono_do_veiculo.." ", thePlayer, 0, 255, 0,true) outputChatBox("#ffea00═════════════════ DETRAN ERP ═════════════════", thePlayer, 0, 255, 0,true) else outputChatBox("#ffea00═════════════════ DETRAN ERP ═════════════════", thePlayer, 0, 255, 0,true) outputChatBox("#ffea00DETRAN #ababab| #7b7b7bProprietário: #FF1493 Não Se Encontra na CITY.", thePlayer, 0, 255, 0,true) outputChatBox("#ffea00═════════════════ DETRAN ERP ═════════════════", thePlayer, 0, 255, 0,true) end else outputChatBox("#ffea00═════════════════ DETRAN ERP ═════════════════", thePlayer, 0, 255, 0,true) outputChatBox("#ffea00DETRAN #ababab| #7b7b7bVeiculo Sem Origem !", thePlayer, 0, 255, 0,true) outputChatBox("#ffea00═════════════════ DETRAN ERP ═════════════════", thePlayer, 0, 255, 0,true) end else outputChatBox("#ffea00═════════════════ DETRAN ERP ═════════════════", thePlayer, 0, 255, 0,true) outputChatBox("#ffea00DETRAN #ababab| #ff0000Você precisa estar em um veículo!", thePlayer, 0, 255, 0,true) outputChatBox("#ffea00═════════════════ DETRAN ERP ═════════════════", thePlayer, 0, 255, 0,true) end else outputChatBox("#ffea00DETRAN #ababab| #ff0000Apenas funcionários do DETRAN podem usar esse comando!", thePlayer, 0, 255, 0,true) end end) function verificar_conta ( account ) for i, players in ipairs ( getElementsByType ( "player" ) ) do if getAccountName(getPlayerAccount(players)) == account then return players end end return false end
  10. onClientVehicleStartExit Utilize este evento, pós, sera acionado, quando iniciar sua saída do veículo.
  11. Boa tarde. Fiz a solicitação de troca de IP da TOP LIST há dois(2) dias, e até o momento, não foi feito a troca solicitada. A solicitação foi feita para o @ccw. Preciso fazer a troca do IP : 51.81.110.252:22003 para o IP : 192.95.21.172:22003.
  12. Ele estará sempre em 2 dias, se quiser trazer quantos dias do client-side, para o server-side, então fará basicamente assim : function Teste ( dia ) --/> Trazer os dias do client.... local accName = getAccountName ( getPlayerAccount ( source ) ) if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Console" ) ) then local dia = tonumber(dia) key = generateString(12) outputChatBox("Foi Gerado Uma Nova KEY: "..key.."", source, 255, 255, 255, true) if isTimer(tempo_remover_key) then killTimer(tempo_remover_key) end tempo_remover_key = setTimer ( function ( ) --/> AQUI key = nil --/> AQUI end, 60000*60*24*dia, 1) --/> AQUI, fará a soma. else outputChatBox("Acesso Negado.", source, 255, 255, 255, true) end end addEvent ("Gen:Set", true) addEventHandler ("Gen:Set", root, Teste
  13. Teoricamente, o que eu consegui compreende, foi que, você apenas quer gerar um key por vez. Então, nessa key gerada, a pessoa apenas dará o comando, caso a key existir, já é ativado o vip na conta dela. Para adicionar uma validade, basta : local key = nil local allowed = { { 48, 57 }, { 65, 90 }, { 97, 122 } } function generateString ( len ) if tonumber ( len ) then math.randomseed ( getTickCount () ) local str = "" for i = 1, len do local charlist = allowed[math.random ( 1, 3 )] str = str .. string.char ( math.random ( charlist[1], charlist[2] ) ) end return str end return false end function Teste ( ) local accName = getAccountName ( getPlayerAccount ( source ) ) if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Console" ) ) then key = generateString(12) outputChatBox("Foi Gerado Uma Nova KEY: "..key.."", source, 255, 255, 255, true) if isTimer(tempo_remover_key) then killTimer(tempo_remover_key) end tempo_remover_key = setTimer ( function ( ) --/> AQUI key = nil --/> AQUI end, 60000*60*24*2, 1) --/> AQUI else outputChatBox("Acesso Negado.", source, 255, 255, 255, true) end end addEvent ("Gen:Set", true) addEventHandler ("Gen:Set", root, Teste) addCommandHandler ( "Usar", function ( player ) if ( key ~= nil ) then outputChatBox("Sua Chave: "..tostring(key), player, 0, 255, 0, true) setElementData ( player, "Vip", "Desbloqueado" ) killTimer(tempo_remover_key) --/> Kill Timer. key = nil --/> Nil Variável Key. else outputChatBox("Chave Inexistente.", player, 255, 0, 0, true) end end)
  14. local xc,yc,zc = getElementPosition ( vehicle ) Tente isso.
  15. Então ele não retorna somente números? Então remove a linha dessa verificação e tentar novamente