share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/global_functions.lua
author Periklis Ntanasis <pntanasis@gmail.com>
Mon, 26 Aug 2013 06:13:36 +0300
branchspacecampaign
changeset 9578 16139270448f
child 9582 bf314b2258b3
permissions -rw-r--r--
save main missions' status
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9578
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     1
function saveCompletedStatus(planetNum)
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     2
	--        1       2        3        4      5         6
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     3
	-- order: moon01, fruit01, fruit02, ice01, desert01, death01
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     4
	local status = "000000"
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     5
	if tonumber(GetCampaignVar("MainMissionsStatus")) then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     6
		status = GetCampaignVar("MainMissionsStatus")
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     7
	end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     8
	if i == 1 then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
     9
		status = "1"..status:sub(planetNum+1)
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    10
	elseif i == status:len() then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    11
		status = status:sub(1,planetNum-1).."1"
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    12
	else
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    13
		status = status:sub(1,planetNum-1).."1"..status:sub(planetNum+1)
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    14
	end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    15
	SaveCampaignVar("MainMissionsStatus",status)
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    16
end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    17
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    18
function getCompletedStatus()
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    19
	local allStatus = ""
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    20
	if tonumber(GetCampaignVar("MainMissionsStatus")) then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    21
		allStatus = GetCampaignVar("MainMissionsStatus")
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    22
	end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    23
	local status = {
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    24
		moon01 = false,
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    25
		fruit01 = false,
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    26
		fruit02 = false,
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    27
		ice01 = false,
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    28
		desert01 = false,
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    29
		death01 = false
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    30
	}
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    31
	if allStatus ~= "" then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    32
		if allStatus:sub(1,1) == "1" then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    33
			status.moon01 = true
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    34
		end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    35
		if allStatus:sub(2,2) == "1" then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    36
			status.fuit01 = true
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    37
		end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    38
		if allStatus:sub(3,3) == "1" then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    39
			status.fruit02 = true
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    40
		end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    41
		if allStatus:sub(4,4) == "1" then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    42
			status.ice01 = true
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    43
		end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    44
		if allStatus:sub(5,5) == "1" then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    45
			status.desert01 = true
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    46
		end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    47
		if allStatus:sub(6,6) == "1" then
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    48
			status.death01 = true
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    49
		end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    50
	end
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    51
	return status
16139270448f save main missions' status
Periklis Ntanasis <pntanasis@gmail.com>
parents:
diff changeset
    52
end