local missionsNum = 14

function saveCompletedStatus(planetNum)
	--        1       2        3        4      5         6        7
	-- order: moon01, fruit01, fruit02, ice01, desert01, death01, final
	local status = "0000000"
	if tonumber(GetCampaignVar("MainMissionsStatus")) then
		status = GetCampaignVar("MainMissionsStatus")
	end

	local planetToLevelMapping = {
		[1] = 2,
		[2] = 3,
		[3] = 8,
		[4] = 5,
		[5] = 4,
		[6] = 9,
		[7] = 14
	}

	local level = planetToLevelMapping[planetNum]
	if level ~= nil then
		SaveCampaignVar("Mission"..level.."Won", "true")
	end

	if planetNum == 1 then
		status = "1"..status:sub(2)
	elseif planetNum == status:len() then
		status = status:sub(1,planetNum-1).."1"
	else
		status = status:sub(1,planetNum-1).."1"..status:sub(planetNum+1)
	end
	SaveCampaignVar("MainMissionsStatus",status)

	checkAllMissionsCompleted()
end

function checkAllMissionsCompleted()
	local allMissions = true
	for i=2, missionsNum do
		if GetCampaignVar("Mission"..i.."Won") ~= "true" then
			allMissions = false
			break
		end
	end
	if allMissions then
		SaveCampaignVar("Mission1Won", "true")
	end
end

function getCompletedStatus()
	local allStatus = ""
	if tonumber(GetCampaignVar("MainMissionsStatus")) then
		allStatus = GetCampaignVar("MainMissionsStatus")
	end
	local status = {
		moon01 = false,
		moon02 = false,
		fruit01 = false,
		fruit02 = false,
		fruit03 = false,
		ice01 = false,
		ice02 = false,
		desert01 = false,
		desert02 = false,
		desert03 = false,
		death01 = false,
		death02 = false,
		final = false
	}
	if allStatus ~= "" then
		if allStatus:sub(1,1) == "1" then
			status.moon01 = true
		end
		if allStatus:sub(2,2) == "1" then
			status.fruit01 = true
		end
		if allStatus:sub(3,3) == "1" then
			status.fruit02 = true
		end
		if allStatus:sub(4,4) == "1" then
			status.ice01 = true
		end
		if allStatus:sub(5,5) == "1" then
			status.desert01 = true
		end
		if allStatus:sub(6,6) == "1" then
			status.death01 = true
		end
		if allStatus:sub(7,7) == "1" then
			status.final = true
		end
	end
	-- Bonus missions
	if GetCampaignVar("Mission13Won") == "true" then
		status.moon02 = true
	end
	if GetCampaignVar("Mission6Won") == "true" then
		status.ice02 = true
	end
	if GetCampaignVar("Mission7Won") == "true" then
		status.desert02 = true
	end
	if GetCampaignVar("Mission10Won") == "true" then
		status.fruit03 = true
	end
	if GetCampaignVar("Mission11Won") == "true" then
		status.death02 = true
	end
	if GetCampaignVar("Mission12Won") == "true" then
		status.desert03 = true
	end
	return status
end

function initCheckpoint(mission)
	local checkPoint = 1
	if GetCampaignVar("CurrentMission") ~= mission then
		SaveCampaignVar("CurrentMission", mission)
		SaveCampaignVar("CurrentMissionCheckpoint", 1)
	else
		checkPoint = tonumber(GetCampaignVar("CurrentMissionCheckpoint"))
	end
	return checkPoint
end

-- Reset mission checkpoint to 1
-- Returns true if the player reached a checkpoint before, false otherwise.
function resetCheckpoint(mission)
	local cp = tonumber(GetCampaignVar("CurrentMissionCheckpoint"))
	SaveCampaignVar("CurrentMissionCheckpoint", 1)

	return (type(cp) == "number" and cp > 1)
end

function saveCheckpoint(cp)
	SaveCampaignVar("CurrentMissionCheckpoint", cp)
end

-- saves what bonuses are available
-- times is how many times the bonus will be available, this will be mission specific
function saveBonus(index, times)
	--        1         2        3
	-- order: desert03, fruit03, death02
	local bonus = "000"
	if tonumber(GetCampaignVar("SideMissionsBonuses")) then
		bonus = GetCampaignVar("SideMissionsBonuses")
	end
	if index == 1 then
		bonus = times..bonus:sub(2)
	elseif index == bonus:len() then
		bonus = bonus:sub(1,index-1)..times
	else
		bonus = bonus:sub(1,index-1)..times..bonus:sub(index+1)
	end
	SaveCampaignVar("SideMissionsBonuses",bonus)
end

function getBonus(index)
	local bonus = 0
	if tonumber(GetCampaignVar("SideMissionsBonuses")) then
		bonusString = GetCampaignVar("SideMissionsBonuses")
		bonus = bonusString:sub(index,index)
	end
	return bonus
end

-- splits number by delimiter
function split(s, delimiter)
	local res = {}
	local first = ""
	for i=1,s:len() do
		if s:sub(1,1) == delimiter then
			table.insert(res, tonumber(first))
			first = ""
		else
			first = first..s:sub(1,1)
		end
		s = s:sub(2)
	end
	if first:len() > 0 then
		table.insert(res, tonumber(first))
	end
	return res
end

-- Send team ranking stats. Teams is a list of teams in the desired order.
-- The default kills counter is used.
function sendSimpleTeamRankings(teams)
	for t=1, #teams do
		local teamname = teams[t]
		SendStat(siPlayerKills, GetTeamStats(teamname).Kills, teamname)
	end
end