Por favor me ajuda com o meu script

[JohwXD]

Estou tentando fazer um script para os policiais, para ver os procurados no servidor, mas não consigo achar o meu erro, (não manjo de script), por favor me ajuda, esse script é para por em um celular.

Meu script:

 

addCommandHandler ("Procurados", Procurados)
isObjectInACLGroup  (Player,Policia)
aclGetGroup  (Policia)
local players = getElementsByType ( "player" )
for theKey,thePlayer in ipairs(players) do
    if ( isPlayerInVehicle ( thePlayer ) ) then
       outputChatBox ( getPlayerName ( thePlayer ) .. "Está em um veiculo" )
        else
         outputChatBox ( getPlayerName ( thePlayer ) .. "está a pé" )
        end
    end
local level = getPlayerWantedLevel ( thePlayer )
    if ( level > 0 ) then 
      outputChatBox ( getPlayerName ( thePlayer ) .. " Player procurado por " .. level .. "  de estrelas!" )
    end
end    
getPlayerName  ( thePlayer )
    function(playerSource)
       outputChatBox ("Nome:".. getPlayerName (playerSource),playerSource)
    end
    

[Lord Henry]

Utilize a opção <> do fórum para postar seu código.

E de cara já da pra ver que seu código não tem função. Você abre o evento e anexa ele a uma função que não existe.

Vc pode descobrir esses erros de sintaxe usando /debugscript 3 no jogo. Use esse comando e depois dê start nesse resource para aparecer os erros.

[miiguelz]

De cara, seu script não anexado a nenhuma função. Não está seguindo nenhuma lógica e a indentação de código está errado.

[JohwXD]

addCommandHandler( "procurados", function (player, cmd)
isObjectInACLGroup  (Player,Policia)
aclGetGroup  (Policia)
local players = getElementsByType ( "player" )
for theKey,thePlayer in ipairs(players) do
    if ( isPlayerInVehicle ( thePlayer ) ) then
       outputChatBox ( getPlayerName ( thePlayer ) .. "Está em um veiculo" )
        else
         outputChatBox ( getPlayerName ( thePlayer ) .. "está a pé" )
		end
	end
local level = getPlayerWantedLevel ( thePlayer )
    if ( level > 0 ) then 
	  outputChatBox ( getPlayerName ( thePlayer ) .. " Player procurado por " .. level .. "  de estrelas!" )
	end
end	
getPlayerName  ( thePlayer )
    function(playerSource)
       outputChatBox ("Nome:".. getPlayerName (playerSource),playerSource)
	end
	

O script está assim me expliquem oq eu fiz de errado ?

[miiguelz]

function playersProcurados (me)
    local acc = getPlayerAccount (me)
    if isObjectInACLGroup ( "user." ..getAccountName(acc), aclGetGroup ( "ACL_NOME" ) ) then
        local everybody = getElementsByType ("player")
        outputChatBox ("Players procurados: #FFFFFF", me, 255, 150, 0, true)
        for i, thePlayer in ipairs (everybody) do
            local wantedLevel = getPlayerWantedLevel (thePlayer)
            if (wantedLevel > 0) then
                outputChatBox ("-> #FFFFFF"..getPlayerName(thePlayer).." #FF0000("..wantedLevel..") #FFFFFFEstrelas", me, 255, 0, 0, true)
            else
                outputChatBox ( "Nenhum procurado foi encontrado !", me, 0, 255, 0)
            end    
        end
    else
        outputChatBox ( "Você não é da profissão ACL_NOME !", me, 255, 0, 0)
    end    
end    
addCommandHandler ("procurados", playersProcurados)

~ Caso acontecer algum erro, deve ter sido na hora de copiar, para ajeitar, deve-se refazer a linha.

~ Não fiz comentários, deixei pra você ler.

3 minutes ago, JohwXD said:

addCommandHandler( "procurados", function (player, cmd)
isObjectInACLGroup  (Player,Policia)
aclGetGroup  (Policia)
local players = getElementsByType ( "player" )
for theKey,thePlayer in ipairs(players) do
    if ( isPlayerInVehicle ( thePlayer ) ) then
       outputChatBox ( getPlayerName ( thePlayer ) .. "Está em um veiculo" )
        else
         outputChatBox ( getPlayerName ( thePlayer ) .. "está a pé" )
		end
	end
local level = getPlayerWantedLevel ( thePlayer )
    if ( level > 0 ) then 
	  outputChatBox ( getPlayerName ( thePlayer ) .. " Player procurado por " .. level .. "  de estrelas!" )
	end
end	
getPlayerName  ( thePlayer )
    function(playerSource)
       outputChatBox ("Nome:".. getPlayerName (playerSource),playerSource)
	end
	

O script está assim me expliquem oq eu fiz de errado ?

Cara, não vai adiantar eu explicar, se você não sabe a lógica da programação. Para você criar um script, deve ter uma lógica, no caso uma sequência de comandos que vai segundo uma lógica.
O Cria Jogos, é um canal que ensinou este assunto. Dê uma procurada lá.

[DNL291]

Tente isto (não testado) :

addCommandHandler( "procurados",
	function (player, cmd)
		if isObjectInACLGroup( "user." ..getAccountName(getPlayerAccount(player)), aclGetGroup( "Policia" ) ) then
			local wantedPlayers = getWantedPlayers()
			outputChatBox( "[Polícia] Jogadores procurados:", player, 220, 20, 20 )
			if wantedPlayers == 0 then
				return outputChatBox( "Nenhum jogador com nível de procurado no momento!", player, 30, 30, 230 )
			end
			for wp in pairs(wantedPlayers) do
				local level = getPlayerWantedLevel ( wp )
				outputChatBox ( "Jogador: '"..getPlayerName ( wp ) .. "' procurado por: " .. tostring(level) .. " níve"..(level > 1 and "is" or "l").." de estrela(s)!", player, 30, 30, 230 )
			end
		end
	end
)

function getWantedPlayers()
	local players = {}
	for _,thePlayer in ipairs(getElementsByType ( "player" )) do
		local level = getPlayerWantedLevel ( thePlayer )
		if ( level > 0 ) then 
			players[ thePlayer ] = true
		end
	end
	return (tablelength(players) > 0) and players or 0
end

function tablelength(T)
	local count = 0
	for _ in pairs(T) do count = count + 1 end
	return count
end

 

Edited January 12, 2019 by DNL291