VORT3X

BOPE Panel Giving Interference to Tactical Forty

Recommended Posts

 
function SetCorpFT(player)
    if player and not isGuestAccount(getPlayerAccount(player)) then
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPECMD")) then
            setElementData (player,resname..":soucmd"true)        
            setElementData (player,resname..":gerenciar"true)     
            setElementData (player,resname..":promover"true)      
            setElementData (player,resname..":expulsar"true)      
            setElementData (player,resname..":recrutar"true)      
            setElementData (player,resname..":skin1"true)     
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":vtr3"true)      
            setElementData (player,resname..":vtr4"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)       
            return 1
            end 
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPE6")) then
            setElementData (player,resname..":gerenciar"true)     
            setElementData (player,resname..":promover"true)      
            setElementData (player,resname..":expulsar"true)      
            setElementData (player,resname..":recrutar"true)      
            setElementData (player,resname..":skin1"true)     
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":vtr3"true)      
            setElementData (player,resname..":vtr4"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)           
            return 1
            end
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPE5")) then
            setElementData (player,resname..":gerenciar"true)     
            setElementData (player,resname..":skin1"true)     
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":vtr3"true)      
            setElementData (player,resname..":vtr4"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)                   
            return 1
            end
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPE4")) then
            setElementData (player,resname..":skin1"true)     
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":vtr3"true)      
            setElementData (player,resname..":vtr4"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)               
            return 1
            end
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPE3")) then
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)               
    
            return 1
            end
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPE2")) then
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)
            return 1
            end     
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPE1")) then
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":soumembro"true)     
 
            return 1
            end                 
end
end
 
setTimer(
function()
    for i, pl in pairs(getElementsByType("player")) do
        if pl ~= (false or nilthen
            SetCorpFT(pl)
        end
    end
end,
10000,
0)
 
function checkskinsBOPE ( )
    if ( getElementType ( source ) == "player" ) then
    if ( getElementModel ( source ) == 255 ) then
    if  getElementData(source,"vdbbopevtr1"== false and not (isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPECMD")) then
         showBox(source,"info",""..corp..": Acesso negado")
         return
        end
        end
    if ( getElementModel ( source ) == 256 ) then
    if  getElementData(source,"vdbbopevtr2"== false and not (isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPECMD")) then
        showBox(source,"info",""..corp..": Acesso negado")
        return
        end
        end     
    if ( getElementModel ( source ) == 257 ) then
    if  getElementData(source,"vdbbopevtr3"== false and not (isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("BOPECMD")) then
        showBox(source,"info",""..corp..": Acesso negado")
        return
        end
        end                         
     end
end
addEventHandler("onElementModelChange",getRootElement(),checkskinsBOPE)
 
function CorpSkinBOPE(id)
if tonumber(id) then
setElementModel ( source, id )
showBox(source,"info","Você pegou skin "..corp..":")
end
end
addEvent(resname..":setarskin"true)
addEventHandler(resname..":setarskin"root, CorpSkinBOPE)
 
function CorpKitBOPE()
setElementHealth(source, 200)
setPedArmor(source, 100)
giveWeapon(source, 3200true)
giveWeapon(source, 23200true)
giveWeapon(source, 26200true)
giveWeapon(source, 28200true)
giveWeapon(source, 31200true)
giveWeapon(source, 34200true)
giveWeapon(source, 14200true)
showBox(source,"info","Você pegou Kit da "..corp..":")
end
addEvent(resname..":corpkitbope"true)
addEventHandler(resname..":corpkitbope"root, CorpKitBOPE)


 
function CorpTeleBaseBOPE ()
    local CorpVTR = getPedOccupiedVehicle(source)
        if (CorpVTR) then
            setElementPosition(CorpVTR,1521.5-1661.300048828113.5)
        else
            setElementPosition(source,1521.5-1661.300048828113.5 )
        end 
        showBox(source,"info","Você teleportou-se para base da "..corp..":")
end
addEvent(resname..":corpteleportebasebope"true)
addEventHandler(resname..":corpteleportebasebope"root, CorpTeleBaseBOPE)


 
local CorpVTRBOPE = {}
 
function CorpVTRvdbBOPE(viatura)
local veiculo = getPedOccupiedVehicle ( source )
if veiculo and getVehicleController(veiculo) == source and isElement( CorpVTRBOPE[source] )  and veiculo ==  CorpVTRBOPE[source] then
if tonumber(viatura) == 1 then
setElementModel (veiculo,tonumber(547))
elseif tonumber(viatura) == 2 then
setElementModel (veiculo,tonumber(490))
setVehicleColor(veiculo,255,255,255,255,255,255)
elseif tonumber(viatura) == 3 then
setElementModel (veiculo,tonumber(427))
elseif tonumber(viatura) == 4 then
setElementModel (veiculo,tonumber(497))
end
else
    if CorpVTRBOPE[source] and isElement( CorpVTRBOPE[source] ) then destroyElement( CorpVTRBOPE[source] ) 
        CorpVTRBOPE[source] = nil 
 end
local x,y,z = getElementPosition(source)
if tonumber(viatura) == 1 then
    CorpVTRBOPE[source] = createVehicle(547, x,y,z)
warpPedIntoVehicle (source,CorpVTRBOPE[source])
showBox(source,"info","Você pegou VTR da "..corp..":")
return 1
end
if tonumber(viatura) == 2 then
CorpVTRBOPE[source] = createVehicle(490, x,y,z)
warpPedIntoVehicle (source,CorpVTRBOPE[source])
setVehicleColor(CorpVTRBOPE[source],255,255,255,255,255,255)
showBox(source,"info","Você pegou VTR da "..corp..":")
return 1
end
if tonumber(viatura) == 3 then
    CorpVTRBOPE[source] = createVehicle(427, x,y,z)
setVehicleDamageProof()
warpPedIntoVehicle (source,CorpVTRBOPE[source])
showBox(source,"info","Você pegou Moto da "..corp..":")
return 1
end
if tonumber(viatura) == 4 then
    CorpVTRBOPE[source] = createVehicle(497, x,y,z)
warpPedIntoVehicle (source,CorpVTRBOPE[source])
showBox(source,"info","Você pegou Moto da "..corp..":")
return 1
end
end
end
addEvent(resname..":corpviatura"true)
addEventHandler(resname..":corpviatura"root, CorpVTRvdbBOPE)
 
function CorpDestruirVTRBOPE()
    if CorpVTRBOPE[source] and isElement( CorpVTRBOPE[source] ) then destroyElement( CorpVTRBOPE[source] ) 
 CorpVTRBOPE[source] = nil 
 showBox(source,"info","Viatura destruida")
 end
end
addEvent(resname..":corpdestruirviatura"true)
addEventHandler(resname..":corpdestruirviatura"root, CorpDestruirVTRBOPE)
addEventHandler ("onPlayerQuit"root, CorpDestruirVTRBOPE)
 
p_lights = {}
p_timer = {}
p_lvar = {}


 
function CorpLuzesBOPE()
    local veh = getPedOccupiedVehicle(source)
    local id = getElementModel(veh)
    if (id == 547or (id == 490or (id == 427or (id == 497or (id == 427or (id == 523or (id == 490or (id == 416then
        if(p_lights[veh] == 0or(p_lights[veh] == nilthen
            p_lights[veh] = 1
            showBox(source,"info","Luzes de Alerta ligadas")
            setVehicleOverrideLights ( veh, 2 )
            p_timer[veh] = setTimer(
            function()
                if(p_lvar[veh] == 0or (p_lvar[veh] == nilthen
                    p_lvar[veh] = 1
                    -- 0 = vorne links 1 = vorne rechts 2 = hinten links 3 = hinten rechts
                    setVehicleLightState ( veh, 10)
                    setVehicleLightState ( veh, 20)
                    setVehicleLightState ( veh, 01)
                    setVehicleLightState ( veh, 31)
                    setVehicleHeadLightColor(veh, 00255)
                else
                    setVehicleLightState ( veh, 30)
                    setVehicleLightState ( veh, 00)
                    setVehicleLightState ( veh, 11)
                    setVehicleLightState ( veh, 21)   
                    setVehicleHeadLightColor(veh, 25500)
                    p_lvar[veh] = 0
                end
            end5000)
            else
                p_lights[veh] = 0
                showBox(source,"info","Luzes de Alerta desligadas")
                killTimer(p_timer[veh])
                setVehicleLightState ( veh, 00)
                setVehicleLightState ( veh, 10)
                setVehicleLightState ( veh, 20)
                setVehicleLightState ( veh, 30)   
                setVehicleHeadLightColor(veh, 255255255)
                setVehicleOverrideLights ( veh, 1 )
            end
    else
        showBox(source,"info","Este Veiculo Não é uma Viatura")
    end
end
addEvent(resname..":corpluzesbope"true)
addEventHandler(resname..":corpluzesbope"rootCorpLuzesBOPE()


 
addEventHandler ( "onVehicleExplode"getRootElement(), 
function()
    if(p_lights[source] == 1then
        killTimer(p_timer[source])  
    end
end )
 
addEventHandler ( "onVehicleRespawn"getRootElement(), 
function()
    if(p_lights[source] == 1then
        killTimer(p_timer[source])  
    end
end )
 
addEventHandler("onElementDestroy"getRootElement(), 
function ()
    if getElementType(source) == "vehicle" then
        if(p_lights[source] == 1then
            killTimer(p_timer[source])
        end
    end
end)



 
function CorpAbandonarBOPE(cargo)
local acl = aclGetGroup(cargo)
if (acl) then
local conta = getAccountName(getPlayerAccount(source))
local checkacl = isObjectInACLGroup ( "user." ..conta, acl)                         
if (checkacl) then
aclGroupRemoveObject(acl, "user."..conta)
showBox(source,"info",""..corp..": Você abandonou a Corporação")
setElementData (source, "vdbsoumembroBOPE",false)       
outputServerLog("ABANDONOU "..corp..": "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." > "..cargo.."")
end
end
end
addEvent(resname..":abandonarcorpbope"true)
addEventHandler(resname..":abandonarcorpbope"getRootElement(), CorpAbandonarBOPE)
 
function IsCorpGroupBOPE ( thePlayer )
local account = getPlayerAccount ( thePlayer )
local InBOPE = false
for _, group in ipairs ( {"BOPECMD","BOPE6","BOPE5","BOPE4","BOPE3","BOPE2","BOPE1"} ) do  
if isObjectInACLGroup ( "user.".. getAccountName ( account ), aclGetGroup ( group ) )   then
InBOPE = true
break
end
end
return InBOPE
end
 
function CorpGetMembrosActBOPE(player)
local info = {}
for _,players in pairs(getElementsByType("player")) do
if getElementDimension( players)  == 0 and
getElementInterior(players) == 0 and
not isGuestAccount ( getPlayerAccount ( players ) ) then
if ( IsCorpGroupBOPE ( players ) ) then   
table.insert(info,{getPlayerName(players),players})
end
end
end
triggerClientEvent(player,resname..":ListaCorp",player,info)
end
addEvent(resname..":corpmembrosativobope",true)
addEventHandler(resname..":corpmembrosativobope",root,CorpGetMembrosActBOPE)



 
function CorpGetMembrosBOPE(player)
local info = {}
for _,players in pairs(getElementsByType("player")) do
if ( IsCorpGroupBOPE ( players ) ) then   
table.insert(info,{getPlayerName(players),players})
end
end
triggerClientEvent(player,resname..":ListaCorp",player,info)
end
addEvent(resname..":corptodosmembrosbope",true)
addEventHandler(resname..":corptodosmembrosbope",root,CorpGetMembrosBOPE)
 
function CorpGetAllPlayersBOPE(player)
local info = {}
for _,players in pairs(getElementsByType("player")) do
if not isGuestAccount ( getPlayerAccount ( players ) ) and
 not ( IsCorpGroupBOPE ( players ) ) then 
table.insert(info,{getPlayerName(players),players})
end
end
triggerClientEvent(player,resname..":ListaCorp",player,info)
end
addEvent(resname..":corpgetplayersbope",true)
addEventHandler(resname..":corpgetplayersbope",root,CorpGetAllPlayersBOPE)


 
function CorpIrBOPE(teleporter)
irtp = teleporter  
playerair = getPlayerFromName(irtp)
if playerair then   
local veiculotp = getPedOccupiedVehicle(source)
if (veiculotp) then
showBox(source,"error","Saia do Veiculo")
return 
end
if getElementData(playerair,"emCombate"== true then
showBox(source,"info","Erro o jogador esta em Combate "..irtp.."")
return
end
local x,y,z = getElementPosition(playerair)
setElementPosition(source, x, y, z + 2)
showBox(source,"info","Você se teleportou até o jogador "..irtp.."")
outputServerLog("TELEPORTE BOPE: Foi "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." > "..irtp.."")
end
end
addEvent(resname..":TeleIrCorpbope"true)
addEventHandler(resname..":TeleIrCorpbope"root, CorpIrBOPE)
 
function CorpPuxarBOPE(teleporter)
irtp = teleporter  
playerair = getPlayerFromName(irtp) 
if playerair then    
local veiculotp = getPedOccupiedVehicle(playerair)
if (veiculotp) then
showBox(source,"error","O Jogador esta em um veiculo")
return
end
if getElementData(playerair,"emCombate"== true then
showBox(source,"info","Erro o jogador esta em Combate "..irtp.."")
return
end
local x,y,z = getElementPosition(source)
setElementPosition(playerair, x, y, z + 2)
showBox(source,"info","Você puxou o jogador "..irtp.."  ")
showBox(playerair,"info",""..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." puxou você")
outputServerLog("TELEPORTE BOPE: Puxou "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." > "..irtp.."")
end
end
addEvent(resname..":TelePuxarCorpbope"true)
addEventHandler(resname..":TelePuxarCorpbope"root, CorpPuxarBOPE)
 
function CorpRemoverMembroBOPE(player, cargo)
local accountName = getAccountName(getPlayerAccount(client))    
if isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "BOPECMD" ) ) or isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "BOPE6" ) ) then
arecrutar = getPlayerFromName(player)
local contaarecrutar = getPlayerAccount(arecrutar)
local cargoremove = aclGetGroup(cargo)
if (cargoremove) then
local contaaremover = getAccountName(contaarecrutar)
local checkcargo = isObjectInACLGroup ( "user." ..contaaremover, cargoremove)   
if (checkcargo) then
aclGroupRemoveObject(cargoremove, "user."..contaaremover)
setElementData (arecrutar, "vdbsoumembroBOPE",false)        
showBox(arecrutar,"error",""..corp..": Você foi removido da Corporação")
outputServerLog("EXPULSO "..corp..":: "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." > "..cargo.." >  "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." ")
end
end
end
end
addEvent(resname..":corpremovermembrobope"true)
addEventHandler(resname..":corpremovermembrobope"getRootElement(), CorpRemoverMembroBOPE)
 
function CorpRecrutarBOPE(player, cargo)
local accountName = getAccountName(getPlayerAccount(client))    
if isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "BOPECMD" ) ) or isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "BOPE6" ) ) then  
arecrutar = getPlayerFromName(player)
local contaarecrutar = getPlayerAccount(arecrutar)
--for _, checkcorp in ipairs ({}) do
for _, checkcorp in ipairs ({"Suporte"}) do
if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(arecrutar)), aclGetGroup( checkcorp )) then   
showBox(source,"error","o Jogador "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." pertence a outra Corp/Gang  ["..checkcorp.."]")
cancelEvent()
return 1
end
end
local cargoset = aclGetGroup(cargo)
if (cargoset) then
local ncuenta = getAccountName(contaarecrutar)
local checkrecrut = isObjectInACLGroup ( "user." ..ncuenta, cargoset)
if (not checkrecrut) then
aclGroupAddObject(cargoset, "user."..ncuenta)
setElementData (arecrutar, "vdbsoumembroBOPE",false)        
showBox(arecrutar,"info",""..corp..": Você foi Recrutado (Aguarde 10 segundos até seu painel atualizar)")
showBox(source,"info",""..corp..": Você Recrutou o "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." para "..corp.."")
outputServerLog("RECRUTAMENTO "..corp..": "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." > "..cargo.." >  "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." ")
end
end
end
end
addEvent(resname..":corprecrutarbope"true)
addEventHandler(resname..":corprecrutarbope"getRootElement(), CorpRecrutarBOPE)
 
function CorpPromoverBOPE(player, cargo)
local accountName = getAccountName(getPlayerAccount(client))    
if isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "BOPECMD" ) ) or isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "BOPE6" ) ) then
arecrutar = getPlayerFromName(player)
local contaarecrutar = getPlayerAccount(arecrutar)
for _, checkcorp in ipairs ({"Suporte"}) do
--for _, checkcorp in ipairs ({}) do
if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(arecrutar)), aclGetGroup( checkcorp )) then   
showBox(source,"error","o Jogador "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." pertence a outra Corp/Gang  ["..checkcorp.."]")
cancelEvent()
return 1
end
end
local cargoset = aclGetGroup(cargo)
if (cargoset) then
local ncuenta = getAccountName(contaarecrutar)
local checkrecrut = isObjectInACLGroup ( "user." ..ncuenta, cargoset)
if (not checkrecrut) then
aclGroupAddObject(cargoset, "user."..ncuenta)
setElementData (arecrutar, "vdbsoumembroBOPE",false)        
showBox(arecrutar,"info",""..corp..": Você foi Promovido (Aguarde 10 segundos até seu painel atualizar)")
showBox(source,"info",""..corp..": Você Promoveu o "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." para "..corp.."")
outputServerLog("PROMOVEU "..corp..": "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." > "..cargo.." >  "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." ")
end
end
end
end
addEvent(resname..":corppromoverbope"true)
addEventHandler(resname..":corppromoverbope"getRootElement(), CorpPromoverBOPE)
 
function CorpOneACLBOPE(player, cargo)
local accountName = getAccountName(getPlayerAccount(client))    
if isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "BOPECMD" ) ) or isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "BOPE6" ) ) then
arecrutar = getPlayerFromName(player)
local contaarecrutar = getPlayerAccount(arecrutar)
local cargoremove = aclGetGroup(cargo)
if (cargoremove) then
local contaaremover = getAccountName(contaarecrutar)
local checkcargo = isObjectInACLGroup ( "user." ..contaaremover, cargoremove)   
if (checkcargo) then
aclGroupRemoveObject(cargoremove, "user."..contaaremover)
setElementData (arecrutar, "vdbsoumembroBOPE",false)        
outputServerLog(""..corp..": CARGO ONE: "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." > "..cargo.." >  "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." ")
end
end
end
end
addEvent(resname..":CorpCagoOnebope"true)
addEventHandler(resname..":CorpCagoOnebope"getRootElement(), CorpOneACLBOPE)


 
function QuitRemoverCorpBOPE ()
if isObjectInACLGroup ("user."..getAccountName(getPlayerAccount(source)),aclGetGroup("BOPE1")) then    
aclGroupRemoveObject (aclGetGroup("BOPE1"), "user."..getAccountName(getPlayerAccount(source)))
end
end
addEventHandler ( "onPlayerQuit"getRootElement(),QuitRemoverCorpBOPE)
 
function CorpAcessoBOPE()
showBoxBOPE(source,"error","Acesso não permitido")
end
addEvent("acessonegadobope"true)
addEventHandler("acessonegadobope"root,CorpAcessoBOPE)
 
function showBoxBOPE(player, value, str)
if isElement(player) then
triggerClientEvent(player, "CreateBox"getRootElement(), value, str)
end
end
 
function corpmsgbope(source,type,msg)
if source and type and msg then
showBoxBOPE(source,type,msg)
end
end
addEvent(resname..":corpmsgbope"true)
addEventHandler(resname..":corpmsgbope"root, corpmsgbope)


 

Other Panel Tactical Forty

 

 
function SetCorp(player)
    if player and not isGuestAccount(getPlayerAccount(player)) then
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FTCMD")) then
            setElementData (player,resname..":soucmd"true)        
            setElementData (player,resname..":gerenciar"true)     
            setElementData (player,resname..":promover"true)      
            setElementData (player,resname..":expulsar"true)      
            setElementData (player,resname..":recrutar"true)      
            setElementData (player,resname..":skin1"true)     
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":vtr3"true)      
            setElementData (player,resname..":vtr4"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)       
            return 1
            end 
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FT6")) then
            setElementData (player,resname..":gerenciar"true)     
            setElementData (player,resname..":promover"true)      
            setElementData (player,resname..":expulsar"true)      
            setElementData (player,resname..":recrutar"true)      
            setElementData (player,resname..":skin1"true)     
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":vtr3"true)      
            setElementData (player,resname..":vtr4"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)           
            return 1
            end
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FT5")) then
            setElementData (player,resname..":gerenciar"true)     
            setElementData (player,resname..":skin1"true)     
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":vtr3"true)      
            setElementData (player,resname..":vtr4"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)                   
            return 1
            end
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FT4")) then
            setElementData (player,resname..":skin1"true)     
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":vtr3"true)      
            setElementData (player,resname..":vtr4"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)               
            return 1
            end
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FT3")) then
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":vtr2"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)               
    
            return 1
            end
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FT2")) then
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":vtr1"true)      
            setElementData (player,resname..":soumembro"true)     
            setElementData (player, "isPolice"true)
            return 1
            end     
            if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FT1")) then
            setElementData (player,resname..":skin2"true)     
            setElementData (player,resname..":skin3"true)     
            setElementData (player,resname..":soumembro"true)     
 
            return 1
            end                 
end
end
 
setTimer(
function()
    for i, pl in pairs(getElementsByType("player")) do
        if pl ~= (false or nilthen
            SetCorp(pl)
        end
    end
end,
10000,
0)
 
function checkskinsFT ( )
    if ( getElementType ( source ) == "player" ) then
    if ( getElementModel ( source ) == 96 ) then
    if  getElementData(source,"vdbftvtr1"== false and not isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FTCMD")) then 
         showBox(source,"info",""..corp..": Acesso negado")
         return
        end
        end
    if ( getElementModel ( source ) == 286 ) then
    if  getElementData(source,"vdbftvtr2"== false and not isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FTCMD")) then
        showBox(source,"info",""..corp..": Acesso negado")
        return
        end
        end     
    if ( getElementModel ( source ) == 97 ) then
    if  getElementData(source,"vdbftvtr3"== false and not isObjectInACLGroup("user."..getAccountName(getPlayerAccount(player)), aclGetGroup("FTCMD")) then
        showBox(source,"info",""..corp..": Acesso negado")
        return
        end
        end                         
     end
end
addEventHandler("onElementModelChange",getRootElement(),checkskinsFT)
 
function CorpSkin(id)
if tonumber(id) then
setElementModel ( source, id )
showBox(source,"info","Você pegou skin "..corp..":")
end
end
addEvent(resname..":setarskin"true)
addEventHandler(resname..":setarskin"root, CorpSkin)
 
function CorpKit()
setElementHealth(source, 200)
setPedArmor(source, 100)
giveWeapon(source, 3200true)
giveWeapon(source, 23200true)
giveWeapon(source, 26200true)
giveWeapon(source, 28200true)
giveWeapon(source, 31200true)
giveWeapon(source, 34200true)
giveWeapon(source, 14200true)
showBox(source,"info","Você pegou Kit da "..corp..":")
end
addEvent(resname..":corpkit"true)
addEventHandler(resname..":corpkit"root, CorpKit)


 
function CorpTeleBase ()
    local CorpVTR = getPedOccupiedVehicle(source)
        if (CorpVTR) then
            setElementPosition(CorpVTR,2184.8012695313-1794.851928710913.366186141968)
        else
            setElementPosition(source,2184.8012695313-1794.851928710913.366186141968 )
        end 
        showBox(source,"info","Você teleportou-se para base da "..corp..":")
end
addEvent(resname..":corpteleportebase"true)
addEventHandler(resname..":corpteleportebase"root, CorpTeleBase)


 
local CorpVTR = {}
 
function CorpVTRvdb(viatura)
local veiculo = getPedOccupiedVehicle ( source )
if veiculo and getVehicleController(veiculo) == source and isElement( CorpVTR[source] )  and veiculo ==  CorpVTR[source] then
if tonumber(viatura) == 1 then
setElementModel (veiculo,tonumber(598))
elseif tonumber(viatura) == 2 then
setElementModel (veiculo,tonumber(496))
setVehicleColor(veiculo,255,255,255,255,255,255)
elseif tonumber(viatura) == 3 then
setElementModel (veiculo,tonumber(523))
elseif tonumber(viatura) == 4 then
setElementModel (veiculo,tonumber(497))
end
else
    if CorpVTR[source] and isElement( CorpVTR[source] ) then destroyElement( CorpVTR[source] ) 
 CorpVTR[source] = nil 
 end
local x,y,z = getElementPosition(source)
if tonumber(viatura) == 1 then
CorpVTR[source] = createVehicle(598, x,y,z)
warpPedIntoVehicle (source,CorpVTR[source])
showBox(source,"info","Você pegou VTR da "..corp..":")
return 1
end
if tonumber(viatura) == 2 then
CorpVTR[source] = createVehicle(496, x,y,z)
warpPedIntoVehicle (source,CorpVTR[source])
setVehicleColor(CorpVTR[source],255,255,255,255,255,255)
showBox(source,"info","Você pegou VTR da "..corp..":")
return 1
end
if tonumber(viatura) == 3 then
CorpVTR[source] = createVehicle(523, x,y,z)
setVehicleDamageProof()
warpPedIntoVehicle (source,CorpVTR[source])
showBox(source,"info","Você pegou Moto da "..corp..":")
return 1
end
if tonumber(viatura) == 4 then
CorpVTR[source] = createVehicle(497, x,y,z)
warpPedIntoVehicle (source,CorpVTR[source])
showBox(source,"info","Você pegou Moto da "..corp..":")
return 1
end
end
end
addEvent(resname..":corpviatura"true)
addEventHandler(resname..":corpviatura"root, CorpVTRvdb)
 
function CorpDestruirVTR()
    if CorpVTR[source] and isElement( CorpVTR[source] ) then destroyElement( CorpVTR[source] ) 
 CorpVTR[source] = nil 
 showBox(source,"info","Viatura destruida")
 end
end
addEvent(resname..":corpdestruirviatura"true)
addEventHandler(resname..":corpdestruirviatura"root, CorpDestruirVTR)
addEventHandler ("onPlayerQuit"root, CorpDestruirVTR)
 
p_lights = {}
p_timer = {}
p_lvar = {}


 
function CorpLuzes()
    local veh = getPedOccupiedVehicle(source)
    local id = getElementModel(veh)
    if (id == 598or (id == 496or (id == 523or (id == 497or (id == 427or (id == 523or (id == 490or (id == 416then
        if(p_lights[veh] == 0or(p_lights[veh] == nilthen
            p_lights[veh] = 1
            showBox(source,"info","Luzes de Alerta ligadas")
            setVehicleOverrideLights ( veh, 2 )
            p_timer[veh] = setTimer(
            function()
                if(p_lvar[veh] == 0or (p_lvar[veh] == nilthen
                    p_lvar[veh] = 1
                    -- 0 = vorne links 1 = vorne rechts 2 = hinten links 3 = hinten rechts
                    setVehicleLightState ( veh, 10)
                    setVehicleLightState ( veh, 20)
                    setVehicleLightState ( veh, 01)
                    setVehicleLightState ( veh, 31)
                    setVehicleHeadLightColor(veh, 00255)
                else
                    setVehicleLightState ( veh, 30)
                    setVehicleLightState ( veh, 00)
                    setVehicleLightState ( veh, 11)
                    setVehicleLightState ( veh, 21)   
                    setVehicleHeadLightColor(veh, 25500)
                    p_lvar[veh] = 0
                end
            end5000)
            else
                p_lights[veh] = 0
                showBox(source,"info","Luzes de Alerta desligadas")
                killTimer(p_timer[veh])
                setVehicleLightState ( veh, 00)
                setVehicleLightState ( veh, 10)
                setVehicleLightState ( veh, 20)
                setVehicleLightState ( veh, 30)   
                setVehicleHeadLightColor(veh, 255255255)
                setVehicleOverrideLights ( veh, 1 )
            end
    else
        showBox(source,"info","Este Veiculo Não é uma Viatura")
    end
end
addEvent(resname..":corpluzes"true)
addEventHandler(resname..":corpluzes"root, CorpLuzes)


 
addEventHandler ( "onVehicleExplode"getRootElement(), 
function()
    if(p_lights[source] == 1then
        killTimer(p_timer[source])  
    end
end )
 
addEventHandler ( "onVehicleRespawn"getRootElement(), 
function()
    if(p_lights[source] == 1then
        killTimer(p_timer[source])  
    end
end )
 
addEventHandler("onElementDestroy"getRootElement(), 
function ()
    if getElementType(source) == "vehicle" then
        if(p_lights[source] == 1then
            killTimer(p_timer[source])
        end
    end
end)



 
function CorpAbandonar(cargo)
local acl = aclGetGroup(cargo)
if (acl) then
local conta = getAccountName(getPlayerAccount(source))
local checkacl = isObjectInACLGroup ( "user." ..conta, acl)                         
if (checkacl) then
aclGroupRemoveObject(acl, "user."..conta)
showBox(source,"info",""..corp..": Você abandonou a Corporação")
setElementData (source, "vdbsoumembroFT",false)     
outputServerLog("ABANDONOU "..corp..": "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." > "..cargo.."")
end
end
end
addEvent(resname..":abandonarcorp"true)
addEventHandler(resname..":abandonarcorp"getRootElement(), CorpAbandonar)
 
function IsCorpGroup ( thePlayer )
local account = getPlayerAccount ( thePlayer )
local InFT = false
for _, group in ipairs ( {"FTCMD","FT6","FT5","FT4","FT3","FT2","FT1"} ) do  
if isObjectInACLGroup ( "user.".. getAccountName ( account ), aclGetGroup ( group ) )   then
InFT = true
break
end
end
return InFT
end
 
function CorpGetMembrosAct(player)
local info = {}
for _,players in pairs(getElementsByType("player")) do
if getElementDimension( players)  == 0 and
getElementInterior(players) == 0 and
not isGuestAccount ( getPlayerAccount ( players ) ) then
if ( IsCorpGroup ( players ) ) then   
table.insert(info,{getPlayerName(players),players})
end
end
end
triggerClientEvent(player,resname..":ListaCorp",player,info)
end
addEvent(resname..":corpmembrosativo",true)
addEventHandler(resname..":corpmembrosativo",root,CorpGetMembrosAct)



 
function CorpGetMembros(player)
local info = {}
for _,players in pairs(getElementsByType("player")) do
if ( IsCorpGroup ( players ) ) then   
table.insert(info,{getPlayerName(players),players})
end
end
triggerClientEvent(player,resname..":ListaCorp",player,info)
end
addEvent(resname..":corptodosmembros",true)
addEventHandler(resname..":corptodosmembros",root,CorpGetMembros)
 
function CorpGetAllPlayers(player)
local info = {}
for _,players in pairs(getElementsByType("player")) do
if not isGuestAccount ( getPlayerAccount ( players ) ) and
 not ( IsCorpGroup ( players ) ) then 
table.insert(info,{getPlayerName(players),players})
end
end
triggerClientEvent(player,resname..":ListaCorp",player,info)
end
addEvent(resname..":corpgetplayers",true)
addEventHandler(resname..":corpgetplayers",root,CorpGetAllPlayers)


 
function CorpIr(teleporter)
irtp = teleporter  
playerair = getPlayerFromName(irtp)
if playerair then   
local veiculotp = getPedOccupiedVehicle(source)
if (veiculotp) then
showBox(source,"error","Saia do Veiculo")
return 
end
if getElementData(playerair,"emCombate"== true then
showBox(source,"info","Erro o jogador esta em Combate "..irtp.."")
return
end
local x,y,z = getElementPosition(playerair)
setElementPosition(source, x, y, z + 2)
showBox(source,"info","Você se teleportou até o jogador "..irtp.."")
outputServerLog("TELEPORTE FT: Foi "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." > "..irtp.."")
end
end
addEvent(resname..":TeleIrCorp"true)
addEventHandler(resname..":TeleIrCorp"root, CorpIr)
 
function CorpPuxar(teleporter)
irtp = teleporter  
playerair = getPlayerFromName(irtp) 
if playerair then    
local veiculotp = getPedOccupiedVehicle(playerair)
if (veiculotp) then
showBox(source,"error","O Jogador esta em um veiculo")
return
end
if getElementData(playerair,"emCombate"== true then
showBox(source,"info","Erro o jogador esta em Combate "..irtp.."")
return
end
local x,y,z = getElementPosition(source)
setElementPosition(playerair, x, y, z + 2)
showBox(source,"info","Você puxou o jogador "..irtp.."  ")
showBox(playerair,"info",""..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." puxou você")
outputServerLog("TELEPORTE FT: Puxou "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." > "..irtp.."")
end
end
addEvent(resname..":TelePuxarCorp"true)
addEventHandler(resname..":TelePuxarCorp"root, CorpPuxar)
 
function CorpRemoverMembro(player, cargo)
local accountName = getAccountName(getPlayerAccount(client))    
if isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "FTCMD" ) ) or isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "FT6" ) ) then
arecrutar = getPlayerFromName(player)
local contaarecrutar = getPlayerAccount(arecrutar)
local cargoremove = aclGetGroup(cargo)
if (cargoremove) then
local contaaremover = getAccountName(contaarecrutar)
local checkcargo = isObjectInACLGroup ( "user." ..contaaremover, cargoremove)   
if (checkcargo) then
aclGroupRemoveObject(cargoremove, "user."..contaaremover)
setElementData (arecrutar, "vdbsoumembroFT",false)      
showBox(arecrutar,"error",""..corp..": Você foi removido da Corporação")
outputServerLog("EXPULSO "..corp..":: "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." > "..cargo.." >  "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." ")
end
end
end
end
addEvent(resname..":corpremovermembro"true)
addEventHandler(resname..":corpremovermembro"getRootElement(), CorpRemoverMembro)
 
function CorpRecrutar(player, cargo)
local accountName = getAccountName(getPlayerAccount(client))    
if isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "FTCMD" ) ) or isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "FT6" ) ) then  
arecrutar = getPlayerFromName(player)
local contaarecrutar = getPlayerAccount(arecrutar)
--for _, checkcorp in ipairs ({"Console","Admin","SuperModerator","Moderator","Suporte","PMCMD","PM6","PM5","PM4","PM3","PM2","PM1"}) do
for _, checkcorp in ipairs ({"Suporte"}) do
if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(arecrutar)), aclGetGroup( checkcorp )) then   
showBox(source,"error","o Jogador "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." pertence a outra Corp/Gang  ["..checkcorp.."]")
cancelEvent()
return 1
end
end
local cargoset = aclGetGroup(cargo)
if (cargoset) then
local ncuenta = getAccountName(contaarecrutar)
local checkrecrut = isObjectInACLGroup ( "user." ..ncuenta, cargoset)
if (not checkrecrut) then
aclGroupAddObject(cargoset, "user."..ncuenta)
setElementData (arecrutar, "vdbsoumembroFT",false)      
showBox(arecrutar,"info",""..corp..": Você foi Recrutado (Aguarde 10 segundos até seu painel atualizar)")
showBox(source,"info",""..corp..": Você Recrutou o "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." para "..corp.."")
outputServerLog("RECRUTAMENTO "..corp..": "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." > "..cargo.." >  "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." ")
end
end
end
end
addEvent(resname..":corprecrutar"true)
addEventHandler(resname..":corprecrutar"getRootElement(), CorpRecrutar)
 
function CorpPromover(player, cargo)
local accountName = getAccountName(getPlayerAccount(client))    
if isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "FTCMD" ) ) or isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "FT6" ) ) then
arecrutar = getPlayerFromName(player)
local contaarecrutar = getPlayerAccount(arecrutar)
for _, checkcorp in ipairs ({"Suporte"}) do
--for _, checkcorp in ipairs ({"Console","Admin","SuperModerator","Moderator","Suporte","PMCMD","PM6","PM5","PM4","PM3","PM2","PM1"}) do
if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(arecrutar)), aclGetGroup( checkcorp )) then   
showBox(source,"error","o Jogador "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." pertence a outra Corp/Gang  ["..checkcorp.."]")
cancelEvent()
return 1
end
end
local cargoset = aclGetGroup(cargo)
if (cargoset) then
local ncuenta = getAccountName(contaarecrutar)
local checkrecrut = isObjectInACLGroup ( "user." ..ncuenta, cargoset)
if (not checkrecrut) then
aclGroupAddObject(cargoset, "user."..ncuenta)
setElementData (arecrutar, "vdbsoumembroFT",false)      
showBox(arecrutar,"info",""..corp..": Você foi Promovido (Aguarde 10 segundos até seu painel atualizar)")
showBox(source,"info",""..corp..": Você Promoveu o "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." para "..corp.."")
outputServerLog("PROMOVEU "..corp..": "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." > "..cargo.." >  "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." ")
end
end
end
end
addEvent(resname..":corppromover"true)
addEventHandler(resname..":corppromover"getRootElement(), CorpPromover)
 
function CorpOneACL(player, cargo)
local accountName = getAccountName(getPlayerAccount(client))    
if isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "FTCMD" ) ) or isObjectInACLGroup ( "user." .. accountName, aclGetGroup ( "FT6" ) ) then
arecrutar = getPlayerFromName(player)
local contaarecrutar = getPlayerAccount(arecrutar)
local cargoremove = aclGetGroup(cargo)
if (cargoremove) then
local contaaremover = getAccountName(contaarecrutar)
local checkcargo = isObjectInACLGroup ( "user." ..contaaremover, cargoremove)   
if (checkcargo) then
aclGroupRemoveObject(cargoremove, "user."..contaaremover)
setElementData (arecrutar, "vdbsoumembroFT",false)      
outputServerLog(""..corp..": CARGO ONE: "..getPlayerName(arecrutar):gsub("#%x%x%x%x%x%x","").." > "..cargo.." >  "..getPlayerName(source):gsub("#%x%x%x%x%x%x","").." ")
end
end
end
end
addEvent(resname..":CorpCagoOne"true)
addEventHandler(resname..":CorpCagoOne"getRootElement(), CorpOneACL)


 
function QuitRemoverCorp ()
if isObjectInACLGroup ("user."..getAccountName(getPlayerAccount(source)),aclGetGroup("FT1")) then    
aclGroupRemoveObject (aclGetGroup("FT1"), "user."..getAccountName(getPlayerAccount(source)))
end
end
addEventHandler ( "onPlayerQuit"getRootElement(),QuitRemoverCorp)
 
function CorpAcesso()
showBox(source,"error","Acesso não permitido")
end
addEvent("acessonegado"true)
addEventHandler("acessonegado"root,CorpAcesso)
 
function showBox(player, value, str)
if isElement(player) then
triggerClientEvent(player, "CreateBox"getRootElement(), value, str)
end
end
 
function corpmsg(source,type,msg)
if source and type and msg then
showBox(source,type,msg)
end
end
addEvent(resname..":corpmsg"true)
addEventHandler(resname..":corpmsg"root, corpmsg)


 

Share this post


Link to post

Please. Format the code correctly (code tags--they add line numbers and are much more readable) and give more information. Just saying "giving interference" and posting a :~load of code isn't helping anyone find the issue. Tell us what you intended, what you got, why that is an issue and what have you tried already.

Edited by MrTasty

Share this post


Link to post

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

  • Recently Browsing   0 members

    No registered users viewing this page.