Jump to content

chat local erro

Doongogar

By Doongogar
in Programação em Lua

Recommended Posts

Doongogar Fool

Doongogar

Posted
Posted

tentei editar um chat local retirando as tags que apareciam e agora fica dando o erro :
ERROR: Loading script failed: [Chat]/Chatlocal.lua:46: ')' expected (to close '(' at line 19) near 'end'

gostaria de resolver e preciso de ajuda aqui o script do chat local onde ta o erro:
  


--------------------------------------------------------------------------------------------

DistanciaDoChatLocal = 200 -- Metros
--MensagemFalandoRapidoDemaisLocal = '#ffffff[ #CE98EBAnti Flood #ffffff] - #ffffffVocê Esta Digitando Muito Rapido, Aguarde 2 Segundos'

ComandoDoChatGlobal = "" -- Ex /g Mensagem
ComandoDoChatGlobal2 = ""

ValorDoChatGlobal = 0 -- Dinheiro
--MensagemFalandoRapidoDemaisGlobal =  '#ffffff[ #FF0000Anti Flood #ffffff] - #ffffffVocê Esta Digitando Muito Rapido, Aguarde 5 Segundos'
MensagemVoceEstaMutadoGlobal2 = '#ffffff[ #FF0000Aviso #ffffff] - #FF0000Você Esta Mutado, e Não Podera Utilizar os Chat do Servidor'
MensagemVoceEstaMutadoGlobal = '#ffffff[ #FF0000Aviso #ffffff] - #FF0000Você Esta Mutado, e Não Podera Utilizar os Chat do Servidor'

--------------------------------------------------------------------------------------------

-- Config do Chat Local

addEventHandler("onPlayerChat", root, function(tresc, msgtype)
if (msgtype == 0) then
    cancelEvent()
	local x,y,z = getElementPosition(source)
	for key, gracze in ipairs(getElementsByType("player")) do
	local x2,y2,z2 = getElementPosition(gracze)

--	if getElementData (source, "ChatLocal:Delay", true) then
--	outputChatBox ( MensagemFalandoRapidoDemaisLocal, source, 255, 255, 255, true ) return end

	if ( getDistanceBetweenPoints3D ( x, y, z, x2, y2, z2 ) < DistanciaDoChatLocal ) then
	local int = getElementInterior   ( source )
	local dim = getElementDimension  ( source )
	local int2 = getElementInterior  ( gracze )
	local dim2 = getElementDimension ( gracze )
	if ( int == int2 and dim == dim2 ) then

	conta = getAccountName ( getPlayerAccount ( source ) )


	end
	end
	end
	end
	end
  --  setElementData (source, "ChatLocal:Delay",true)
	--setTimer (setElementData, 2000, 1, source, "ChatLocal:Delay", false)
end)

--------------------------------------------------------------------------------------------

-- Config do Chat Global

function adminchat ( thePlayer, _, ... )
    local message = table.concat ( { ... }, " " )
    if ( isPlayerOnGroup ( thePlayer ) ) then
    for _, player in ipairs ( getElementsByType ( "player" ) ) do
    if ( isPlayerOnGroup ( player ) ) then

	if ( isPlayerMuted(thePlayer) ) then
	outputChatBox ( MensagemVoceEstaMutadoGlobal, thePlayer, 255, 255, 255, true ) return end

--	if getElementData (thePlayer, "ChatGlobal:Delay1", true) then
--	outputChatBox ( MensagemFalandoRapidoDemaisGlobal, thePlayer, 255, 255, 255, true ) return end

	--local money = getPlayerMoney(thePlayer)
	--if (money < ValorDoChatGlobal ) then
	--outputChatBox ( MensagemDinheiroInsuficienteGlobal, thePlayer, 255, 255, 255, true ) return end

	conta = getAccountName(getPlayerAccount(thePlayer))					

	end
    end
    end
    end
	if not getElementData( thePlayer, "ChatGlobal:Avisado", true ) then
	--outputChatBox ( AvisoDoValorDaMensagemGlobal, thePlayer, 255, 255, 255, true )
	end
	setElementData ( thePlayer, "ChatGlobal:Avisado", true )
	--takePlayerMoney ( thePlayer, ValorDoChatGlobal )
--	setElementData ( thePlayer, "ChatGlobal:Delay1",true )
   -- setTimer ( setElementData, 0, 1, thePlayer, "ChatGlobal:Delay1", false )
end
addCommandHandler ( ComandoDoChatGlobal, adminchat )

function adminchat2 ( thePlayer, _, ... )
    local message = table.concat ( { ... }, " " )
    if ( isPlayerOnGroup ( thePlayer ) ) then
    for _, player in ipairs ( getElementsByType ( "player" ) ) do
    if ( isPlayerOnGroup ( player ) ) then

	if ( isPlayerMuted(thePlayer) ) then
	outputChatBox ( MensagemVoceEstaMutadoGlobal2, thePlayer, 255, 255, 255, true ) return end

--	if getElementData (thePlayer, "ChatGlobal:Delay1", true) then
--	outputChatBox ( MensagemFalandoRapidoDemaisGlobal, thePlayer, 255, 255, 255, true ) return end

	--local money = getPlayerMoney(thePlayer)
	--if (money < ValorDoChatGlobal ) then
	--outputChatBox ( MensagemDinheiroInsuficienteGlobal, thePlayer, 255, 255, 255, true ) return end

	conta = getAccountName(getPlayerAccount(thePlayer))					

	end
    end
    end
    end
	if not getElementData( thePlayer, "ChatGlobal:Avisado", true ) then
	--outputChatBox ( AvisoDoValorDaMensagemGlobal, thePlayer, 255, 255, 255, true )
	end
	setElementData ( thePlayer, "ChatGlobal:Avisado", true )
	--takePlayerMoney ( thePlayer, ValorDoChatGlobal )
--	setElementData ( thePlayer, "ChatGlobal:Delay1",true )
   -- setTimer ( setElementData, 0, 1, thePlayer, "ChatGlobal:Delay1", false )
end
addCommandHandler ( ComandoDoChatGlobal2, adminchat2 )

--------------------------------------------------------------------------------------------

function isPlayerOnGroup ( thePlayer )
    local account = getPlayerAccount ( thePlayer )
    local inGroup = false
    for _, group in ipairs ( { "Everyone" } ) do  
    if isObjectInACLGroup ( "user.".. getAccountName ( account ), aclGetGroup ( group ) )   then
    inGroup = true
    break
    end
    end
    return inGroup
end

--------------------------------------------------------------------------------------------

 

  • Moderators
Lord Henry Soldier

Lord Henry

Posted
  • Moderators
Posted (edited)

Você colocou end onde não deveria. Comentei três deles para vc ver onde estavam e também indentei o seu código para torná-lo legível.

Spoiler 
--------------------------------------------------------------------------------------------

DistanciaDoChatLocal = 200 -- Metros
-- MensagemFalandoRapidoDemaisLocal = '#ffffff[ #CE98EBAnti Flood #ffffff] - #ffffffVocê Esta Digitando Muito Rapido, Aguarde 2 Segundos'

ComandoDoChatGlobal = "" -- Ex /g Mensagem
ComandoDoChatGlobal2 = ""

ValorDoChatGlobal = 0 -- Dinheiro
-- MensagemFalandoRapidoDemaisGlobal =  '#ffffff[ #FF0000Anti Flood #ffffff] - #ffffffVocê Esta Digitando Muito Rapido, Aguarde 5 Segundos'
MensagemVoceEstaMutadoGlobal2 = '#ffffff[ #FF0000Aviso #ffffff] - #FF0000Você Esta Mutado, e Não Podera Utilizar os Chat do Servidor'
MensagemVoceEstaMutadoGlobal = '#ffffff[ #FF0000Aviso #ffffff] - #FF0000Você Esta Mutado, e Não Podera Utilizar os Chat do Servidor'

--------------------------------------------------------------------------------------------

-- Config do Chat Local

addEventHandler("onPlayerChat", root, function(tresc, msgtype)
    if (msgtype == 0) then
        cancelEvent()
        local x,y,z = getElementPosition(source)
        for key, gracze in ipairs(getElementsByType("player")) do
            local x2,y2,z2 = getElementPosition(gracze)

            -- if getElementData (source, "ChatLocal:Delay", true) then
            -- outputChatBox ( MensagemFalandoRapidoDemaisLocal, source, 255, 255, 255, true ) return end

            if ( getDistanceBetweenPoints3D ( x, y, z, x2, y2, z2 ) < DistanciaDoChatLocal ) then
                local int = getElementInterior   ( source )
                local dim = getElementDimension  ( source )
                local int2 = getElementInterior  ( gracze )
                local dim2 = getElementDimension ( gracze )
                if ( int == int2 and dim == dim2 ) then

                    conta = getAccountName ( getPlayerAccount ( source ) )

                end
            end
        end
    end
    -- end
    -- setElementData (source, "ChatLocal:Delay",true)
    -- setTimer (setElementData, 2000, 1, source, "ChatLocal:Delay", false)
end)

--------------------------------------------------------------------------------------------

-- Config do Chat Global

function adminchat ( thePlayer, _, ... )
    local message = table.concat ( { ... }, " " )
    if ( isPlayerOnGroup ( thePlayer ) ) then
        for _, player in ipairs ( getElementsByType ( "player" ) ) do
            if ( isPlayerOnGroup ( player ) ) then

                if ( isPlayerMuted(thePlayer) ) then
                    outputChatBox ( MensagemVoceEstaMutadoGlobal, thePlayer, 255, 255, 255, true ) return end -- NÃO FAÇA ISSO SE O IF NÃO ESTIVER NA MESMA LINHA, POIS DIFICULTA A LEITURA.

                -- if getElementData (thePlayer, "ChatGlobal:Delay1", true) then
                -- outputChatBox ( MensagemFalandoRapidoDemaisGlobal, thePlayer, 255, 255, 255, true ) return end

                -- local money = getPlayerMoney(thePlayer)
                -- if (money < ValorDoChatGlobal ) then
                -- outputChatBox ( MensagemDinheiroInsuficienteGlobal, thePlayer, 255, 255, 255, true ) return end

                conta = getAccountName(getPlayerAccount(thePlayer))                    

            end
        end
    end
    -- end
    if not getElementData( thePlayer, "ChatGlobal:Avisado", true ) then
        -- outputChatBox ( AvisoDoValorDaMensagemGlobal, thePlayer, 255, 255, 255, true )
    end
    setElementData ( thePlayer, "ChatGlobal:Avisado", true )
    -- takePlayerMoney ( thePlayer, ValorDoChatGlobal )
    -- setElementData ( thePlayer, "ChatGlobal:Delay1",true )
    -- setTimer ( setElementData, 0, 1, thePlayer, "ChatGlobal:Delay1", false )
end
addCommandHandler ( ComandoDoChatGlobal, adminchat )

function adminchat2 ( thePlayer, _, ... )
    local message = table.concat ( { ... }, " " )
    if ( isPlayerOnGroup ( thePlayer ) ) then
        for _, player in ipairs ( getElementsByType ( "player" ) ) do
            if ( isPlayerOnGroup ( player ) ) then

                if ( isPlayerMuted(thePlayer) ) then
                    outputChatBox ( MensagemVoceEstaMutadoGlobal2, thePlayer, 255, 255, 255, true ) -- FAÇA DESSA FORMA PARA FACILITAR A LEITURA.
                    return 
                end

                -- if getElementData (thePlayer, "ChatGlobal:Delay1", true) then
                    -- outputChatBox ( MensagemFalandoRapidoDemaisGlobal, thePlayer, 255, 255, 255, true ) return end

                -- local money = getPlayerMoney(thePlayer)
                -- if (money < ValorDoChatGlobal ) then
                    -- outputChatBox ( MensagemDinheiroInsuficienteGlobal, thePlayer, 255, 255, 255, true ) return end

                conta = getAccountName(getPlayerAccount(thePlayer))                    

            end
        end
    end
    -- end
    if not getElementData( thePlayer, "ChatGlobal:Avisado", true ) then
        -- outputChatBox ( AvisoDoValorDaMensagemGlobal, thePlayer, 255, 255, 255, true )
    end
    setElementData ( thePlayer, "ChatGlobal:Avisado", true )
    -- takePlayerMoney ( thePlayer, ValorDoChatGlobal )
    -- setElementData ( thePlayer, "ChatGlobal:Delay1",true )
    -- setTimer ( setElementData, 0, 1, thePlayer, "ChatGlobal:Delay1", false )
end
addCommandHandler ( ComandoDoChatGlobal2, adminchat2 )

--------------------------------------------------------------------------------------------

function isPlayerOnGroup ( thePlayer )
    local account = getPlayerAccount ( thePlayer )
    local inGroup = false
    for _, group in ipairs ( { "Everyone" } ) do  
        if isObjectInACLGroup ( "user.".. getAccountName ( account ), aclGetGroup ( group ) ) then
            inGroup = true
            break
        end
    end
    return inGroup
end

--------------------------------------------------------------------------------------------

 

 

Edited by Lord Henry

Eu te ajudei ou achou meu comentário útil? Não esqueça de deixar um Thanks! spacer.png

Minhas contribuições para a comunidade: LordHenry - MTA Wiki Profile
Inscreva-se no meu canal do YouTube: Lord Henry - Entertainment
Discord Oficial do MTA: https://mtasa.com/discord
Blacklist e Whitelist de Scripters: Planilha

Por favor, não me envie mensagens privadas solicitando suporte. Crie um tópico no fórum em vez disso.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...