--BETA, 1.19, no auto functions, running on commands.
--Automatization
--Oil deliviring
--Pretty
--Markers for deliviring
--Cars spawned,done
oiltruck1 = createVehicle(524,2563,-2241,14,_,_,_,"OILTRUCKZ")
oiltruck2 = createVehicle(524,2570,-2241,14,_,_,_,"OILTRUCKZ")
oiltruck3 = createVehicle(524,2577,-2241,14,_,_,_,"OILTRUCKZ")
oilmarker = createMarker(1059,-2591,0,"checkpoint",1,0,0,0,255)
function clooil2(thePlayer,matchingDimension)
 if isElementWithinMarker(thePlayer, oilmarker) then
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
 outputChatBox("Oil is loading onto ship, please wait", thePlayer, 255, 0, 0)
 end
 setTimer(oilloaded,10000,1)
 else
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("the oil flooded and there has been a huge spill!, better luck next time.", thePlayer, 0, 0, 0)
end
    end
        end
addCommandHandler("clooil2", clooil2)

function oilloaded(thePlayer, matchingDimension)
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("U got the oil, get to the refinery!(2 minutes to get the ship there and man the pipe)",thePlayer,255,255,255)
refineryblip = createBlip(2738,-2242,14,16,2,_,_,_,255,0,999999.0)
setElementVisibleTo(refineryblip,root,false)
for k, v in ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
setElementVisibleTo(refineryblip,v,true)
destroyElement(oilblip)
destroyElement(oilmarker)
refinerymarker1 = createMarker(2738,-2271,0,"checkpoint",1,0,0,0,255)
setElementVisibleTo(refinerymarker1,root,false)
for k, v in ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
setElementVisibleTo(refinerymarker1,v,true)
refinerymarker1 = createMarker(2738,-2271,0,"checkpoint",1,0,0,0,255)
setTimer(oilrefinery,240000,1)
end
    end
        end
            end
addCommandHandler("oilloaded",oilloaded)

function oilrefinery(thePlayer, matchingDimension)
refinerymarker1 = createMarker(2738,-2271,0,"checkpoint",1,0,0,0,255)
if isElementWithinMarker(thePlayer, refinerymarker1) then
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("oil is being refined,u will have to wait 10 minutes for the oil to refine.",thePlayer,0,0,255)
setTimer(oilrefined,6000,1)
end
    end
        end

addCommandHandler("oilrefinery",oilrefinery)

function oilready1(thePlayer, matchingDimension)
oilblip = createBlip(1059,-2591,0,16,2,_,_,_,255,0,99999.0)
setElementVisibleTo(oilblip,root,false)
for k, v in ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
setElementVisibleTo(oilblip,v,true)
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("4 minutes till the oil is ready, head for the blip now!",thePlayer,255,0,0)
end
    end
        end
addCommandHandler("oilready1",oilready1)

function oilready2(thePlayer,matchingDimension)
if isElementWithinMarker(thePlayer, oilmarker) then
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("hold thight, still 3 minutes till the oil",thePlayer,255,0,0)
end
else
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("3 minutes till the oil is ready, head for the blip now!",thePlayer,255,0,0)
end
    end
        end
addCommandHandler("oilready2",oilready2)

function oilready3(thePlayer,matchingDimension)
if isElementWithinMarker(thePlayer, oilmarker) then
outputChatBox("hold thight, still 2 minutes till the oil",thePlayer,255,0,0)
else
ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("2 minutes till the oil is ready, head for the blip now!",thePlayer,255,0,0)
    end
        end
            end
addCommandHandler("oilready3",oilready3)

function oilready4(thePlayer,matchingDimension)
if isElementWithinMarker(thePlayer, oilmarker) then
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("hold thight, still 1 minute till the oil",thePlayer,255,0,0)
end
else
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
outputChatBox("1 minute till the oil is ready, head for the blip now!, remember, the player should be in the marker!",thePlayer,255,0,0)
end
    end
        end
addCommandHandler("oilready4",oilready4)

function oilrefined(thePlayer,matchingDimension)
refinedoilmarker1 = createmarker(2610,-2225,13,"cylinder",10,0,0,0,255,_)
setElementVisibleTo(refinedoilmarker1,root,false)
for k, v in ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
setElementVisibleTo(refinedoilmarker1,v,true)
 ipairs(getPlayersInTeam(getTeamFromName("CLO"))) do
 outputChatBox("Oil has been refined, collect it at the refinery",thePlayer,255,0,0)
 destroyElement(refinerymarker1)
end
    end
        end
addCommandHandler("oilrefined",oilrefined)

function unleashthebeast(thePlayer,matchingDimension)
setTimer(oilready1,156000,1)
setTimer(oilready2,162000,1)
setTimer(oilready3,168000,1)
setTimer(oilready4,174000,1)
setTimer(clooil2,180000,1)
end
addCommandHandler("unleash",unleashthebeast)