cardsboard.ttslua

--Board cards
TOPTHREE_STRING = "The president examines\nthe top three cards."
PICKPRES_STRING = "The president picks\nthe next presidential\ncandidate."
INSPECT_STRING = "The president\ninvestigates a\nplayer\'s identity\ncard."
BULLET_STRING = "The president must\nkill a player."
TOPCARD_STRING = "The president examines\nthe top card."
IMPRISON_STRING = "The president must\nimprison a player."
PRESTAKESABOVE_STRING = "The president takes\nthe card above."
PRESTAKESBELOW_STRING = "The president takes\nthe card below."
PRESTAKESHIDDENABOVE_STRING = "The president takes\nthe hidden card above."
PRESTAKESHIDDENBELOW_STRING = "The president takes\nthe hidden card below."
PRESGIVESABOVE_STRING = "The president gives\nthe card above\nto another player."
PRESGIVESBELOW_STRING = "The president gives\nthe card below\nto another player."
PRESGIVESHIDDENABOVE_STRING = "The president gives\nthe card above\nto another player\nafter examining it."
PRESGIVESHIDDENBELOW_STRING = "The president gives\nthe card below\nto another player\nafter examining it."
DOESNOTHING_STRING = "The president\ndoes nothing."
VETO_STRING = "Veto power is\nunlocked."
CHANCELLOR_STRING = "The chancellor gets the power."
--Policy cards
LIBERALPOLICY_STRING = "Liberal Policy"
FASCISTPOLICY_STRING = "Fascist Policy"
GREYPOLICY_STRING = "Grey Policy"
NOTUSED_STRING = "Not Used"

function isBoardCard(objIn)
	if objIn.tag == "Card" and
	   (objIn.getDescription() == TOPTHREE_STRING or
		 objIn.getDescription() == PICKPRES_STRING or
	    objIn.getDescription() == INSPECT_STRING or
	    objIn.getDescription() == BULLET_STRING or
		 objIn.getDescription() == TOPCARD_STRING or
		 objIn.getDescription() == IMPRISON_STRING or
		 objIn.getDescription() == PRESTAKESABOVE_STRING or
		 objIn.getDescription() == PRESTAKESBELOW_STRING or
		 objIn.getDescription() == PRESTAKESHIDDENABOVE_STRING or
		 objIn.getDescription() == PRESTAKESHIDDENBELOW_STRING or
		 objIn.getDescription() == PRESGIVESABOVE_STRING or
		 objIn.getDescription() == PRESGIVESBELOW_STRING or
		 objIn.getDescription() == PRESGIVESHIDDENABOVE_STRING or
		 objIn.getDescription() == PRESGIVESHIDDENBELOW_STRING or
		 objIn.getDescription() == DOESNOTHING_STRING or
		 objIn.getDescription() == VETO_STRING or
		 objIn.getDescription() == CHANCELLOR_STRING) then
		return true
	end
	return false
end

function isSubBoardCard(objIn)
	if objIn.tag == "Card" and
	   (objIn.getDescription() == VETO_STRING or
		 objIn.getDescription() == CHANCELLOR_STRING) then
		return true
	end
	return false
end

function isBoardCardAboveAbility(objIn)
	if objIn.tag == "Card" and
	   (objIn.getDescription() == PRESTAKESABOVE_STRING or
		 objIn.getDescription() == PRESGIVESABOVE_STRING) then
		return true
	end
	return false
end

function isBoardCardAboveHiddenAbility(objIn)
	if objIn.tag == "Card" and
	   (objIn.getDescription() == PRESTAKESHIDDENABOVE_STRING or
		 objIn.getDescription() == PRESGIVESHIDDENABOVE_STRING) then
		return true
	end
	return false
end

function isBoardCardBelowAbility(objIn)
	if objIn.tag == "Card" and
	   (objIn.getDescription() == PRESTAKESBELOW_STRING or
		 objIn.getDescription() == PRESGIVESBELOW_STRING) then
		return true
	end
	return false
end

function isBoardCardBelowHiddenAbility(objIn)
	if objIn.tag == "Card" and
	   (objIn.getDescription() == PRESTAKESHIDDENBELOW_STRING or
		 objIn.getDescription() == PRESGIVESHIDDENBELOW_STRING) then
		return true
	end
	return false
end

function isBoardCardTopThree(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == TOPTHREE_STRING then
		return true
	end
	return false
end

function isBoardCardPickPres(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == PICKPRES_STRING then
		return true
	end
	return false
end

function isBoardCardInspect(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == INSPECT_STRING then
		return true
	end
	return false
end

function isBoardCardBullet(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == BULLET_STRING then
		return true
	end
	return false
end

function isBoardCardTopCard(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == TOPCARD_STRING then
		return true
	end
	return false
end

function isBoardCardImprison(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == IMPRISON_STRING then
		return true
	end
	return false
end

function isPolicyCard(objIn)
	if objIn.tag == "Card" and (objIn.getDescription() == FASCISTPOLICY_STRING
		or objIn.getDescription() == LIBERALPOLICY_STRING
		or objIn.getDescription() == GREYPOLICY_STRING)
		and not objIn.held_by_color then
		return true
	end
	return false
end

function isFascistPolicyCard(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == FASCISTPOLICY_STRING
		and not objIn.held_by_color then
		return true
	end
	return false
end

function isLiberalPolicyCard(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == LIBERALPOLICY_STRING
		and not objIn.held_by_color then
		return true
	end
	return false
end

function isGreyPolicyCard(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == GREYPOLICY_STRING
		and not objIn.held_by_color then
		return true
	end
	return false
end

function isPolicyNotUsedCard(objIn)
	if objIn.tag == "Card" and objIn.getDescription() == NOTUSED_STRING
		and not objIn.held_by_color then
		return true
	end
	return false
end

function refreshBoardCards()
	if options.gameType == 2 then
		deleteCustomBoardCards()
		spawnCustomBoardCards()
		-- Unlock board cards
		testActionUsedPolicyZones(
			function(p) return isBoardCard(p) or isPolicyNotUsedCard(p) end,
			function(p) p.setLock(false) end,
			boardCardWaitId)
	else
		--delete board cards
		deleteCustomBoardCards()
		testActionUsedPolicyZones(
			function(p) return isBoardCard(p) or isPolicyNotUsedCard(p) end,
			function(p) p.destruct() end,
			nil)
		spawnNotUsedFascist(getPositionByGUIDOffsetZ(fascist_zone_guids[1], 0.1))
		spawnNotUsedLiberal(getPositionByGUIDOffsetZ(liberal_zone_guids[1], 0.1))
		if #getSeatedPlayers() > 8 then
			spawnInspectOrange(getPositionByGUIDOffsetZ(fascist_zone_guids[2], 0.1))
			spawnInspectOrange(getPositionByGUIDOffsetZ(fascist_zone_guids[3], 0.1))
			spawnPickPresOrange(getPositionByGUIDOffsetZ(fascist_zone_guids[4], 0.1))
		elseif #getSeatedPlayers() > 6 then
			spawnInspectOrange(getPositionByGUIDOffsetZ(fascist_zone_guids[3], 0.1))
			spawnPickPresOrange(getPositionByGUIDOffsetZ(fascist_zone_guids[4], 0.1))
		else
			spawnTopThreeOrange(getPositionByGUIDOffsetZ(fascist_zone_guids[4], 0.1))
		end
		spawnBulletRed(getPositionByGUIDOffsetZ(fascist_zone_guids[5], 0.1))
		spawnBulletRed(getPositionByGUIDOffsetZ(fascist_zone_guids[6], 0.1))
		spawnVetoRed(getPositionByGUIDOffsetZ(fascist_zone_guids[6], -2))
		if boardCardWaitId then
			Wait.stop(boardCardWaitId)
		end
		boardCardWaitId = Wait.time(
			function()
				testReadyToLock(
					function(p)
						return isBoardCard(p) or isPolicyNotUsedCard(p)
					end, boardCardWaitId)
			end, 5, -1)
	end
	lastPlayerCt = #getSeatedPlayers()
end

function testActionUsedPolicyZones(testFunc, actionFunc, waitID)
	local tmpZoneGuid
	if waitID then
		Wait.stop(waitID)
	end
	for _, tmpZoneGuid in ipairs(liberal_zone_guids) do
		tmpZone = getObjectFromGUID(tmpZoneGuid)
		if tmpZone then
			inZone = tmpZone.getObjects()
			for _, j in ipairs(inZone) do
				if testFunc(j) then
					actionFunc(j)
				end
			end
		end
	end
	for _, tmpZoneGuid in ipairs(fascist_zone_guids) do
		tmpZone = getObjectFromGUID(tmpZoneGuid)
		if tmpZone then
			inZone = tmpZone.getObjects()
			for _, j in ipairs(inZone) do
				if testFunc(j) then
					actionFunc(j)
				end
			end
		end
	end
end

function testReadyToLock(testFunc, waitID)
	local lock = true
	--check if anything is loading
	for _, j in pairs(getAllObjects()) do
		if j.loading_custom and j.tag ~= "3D Text" then lock = false end
	end
	--check if resting
	if lock then
		for _, tmpZoneGuid in ipairs(liberal_zone_guids) do
			tmpZone = getObjectFromGUID(tmpZoneGuid)
			if tmpZone then
				inZone = tmpZone.getObjects()
				for _, j in ipairs(inZone) do
					if testFunc(j) then
						if not j.resting then lock = false end
					end
				end
			end
		end
	end
	if lock then
		for _, tmpZoneGuid in ipairs(fascist_zone_guids) do
			tmpZone = getObjectFromGUID(tmpZoneGuid)
			if tmpZone then
				inZone = tmpZone.getObjects()
				for _, j in ipairs(inZone) do
					if testFunc(j) then
						if not j.resting then lock = false end
					end
				end
			end
		end
	end
	if lock then
		-- lock board cards
		testActionUsedPolicyZones(
			function(p) return testFunc(p) end,
			function(p) p.setLock(true) end,
			waitID)
	end
end

function deleteCustomBoardCards()
	local tmpZoneGuid
	local inUse = {}
	for _, tmpZoneGuid in ipairs(liberal_zone_guids) do
		tmpZone = getObjectFromGUID(tmpZoneGuid)
		if tmpZone then
			inZone = tmpZone.getObjects()
			for _, j in ipairs(inZone) do
				if isBoardCard(j) or isPolicyNotUsedCard(j) then
					smartTableInsert(inUse, j.getGUID())
				end
			end
		end
	end
	for _, tmpZoneGuid in ipairs(fascist_zone_guids) do
		tmpZone = getObjectFromGUID(tmpZoneGuid)
		if tmpZone then
			inZone = tmpZone.getObjects()
			for _, j in ipairs(inZone) do
				if isBoardCard(j) or isPolicyNotUsedCard(j) then
					smartTableInsert(inUse, j.getGUID())
				end
			end
		end
	end
	for _, j in pairs(getAllObjects()) do
		if (isBoardCard(j) or isPolicyNotUsedCard(j)) and not inTable(inUse, j.getGUID()) then
			destroyObject(j);
		end
	end
end

function spawnCustomBoardCards()
	spawnTopThreeOrange({-38, 2, 19})
	spawnTopThreeRed({-38, 2, 15})
	spawnTopThreeBlue({-38, 2, 11})
	spawnInspectOrange({-34, 2, 19})
	spawnInspectRed({-34, 2, 15})
	spawnInspectBlue({-34, 2, 11})
	spawnPickPresOrange({-30, 2, 19})
	spawnPickPresRed({-30, 2, 15})
	spawnPickPresBlue({-30, 2, 11})
	spawnBulletOrange({-26, 2, 19})
	spawnBulletRed({-26, 2, 15})
	spawnBulletBlue({-26, 2, 11})
	spawnVetoOrange({-36, 2, 8})
	spawnVetoRed({-36, 2, 6})
	spawnVetoBlue({-36, 2, 4})
	spawnNotUsedFascist({-32, 2, 6})
	spawnNotUsedLiberal({-28, 2, 6})
	spawnTopCardOrange({-36, 2, 1})
	spawnTopCardRed({-36, 2, -3})
	spawnTopCardBlue({-36, 2, -7})
	spawnImprisonOrange({-32, 2, 1})
	spawnImprisonRed({-32, 2, -3})
	spawnImprisonBlue({-32, 2, -7})
	spawnDoesNothingOrange({-28, 2, 1})
	spawnDoesNothingRed({-28, 2, -3})
	spawnDoesNothingBlue({-28, 2, -7})
	spawnPresTakesOrange({-38, 2, -11})
	spawnPresTakesRed({-38, 2, -15})
	spawnPresTakesBlue({-38, 2, -19})
	spawnPresTakesHiddenOrange({-34, 2, -11})
	spawnPresTakesHiddenRed({-34, 2, -15})
	spawnPresTakesHiddenBlue({-34, 2, -19})
	spawnPresGivesOrange({-30, 2, -11})
	spawnPresGivesRed({-30, 2, -15})
	spawnPresGivesBlue({-30, 2, -19})
	spawnPresGivesHiddenOrange({-26, 2, -11})
	spawnPresGivesHiddenRed({-26, 2, -15})
	spawnPresGivesHiddenBlue({-26, 2, -19})
	--spawnChancellorOrange({-36, 2, -22})
	--spawnChancellorRed({-32, 2, -22})
	--spawnChancellorBlue({-28, 2, -22})
end

function spawnTopThreeOrange(pos)
	return spawnBoardCard("10000", TOPTHREE_STRING, pos)
end

function spawnTopThreeRed(pos)
	return spawnBoardCard("10001", TOPTHREE_STRING, pos)
end

function spawnTopThreeBlue(pos)
	return spawnBoardCard("10002", TOPTHREE_STRING, pos)
end

function spawnPickPresOrange(pos)
	return spawnBoardCard("10003", PICKPRES_STRING, pos)
end

function spawnPickPresRed(pos)
	return spawnBoardCard("10004", PICKPRES_STRING, pos)
end

function spawnPickPresBlue(pos)
	return spawnBoardCard("10005", PICKPRES_STRING, pos)
end

function spawnInspectOrange(pos)
	return spawnBoardCard("10006", INSPECT_STRING, pos)
end

function spawnInspectRed(pos)
	return spawnBoardCard("10007", INSPECT_STRING, pos)
end

function spawnInspectBlue(pos)
	return spawnBoardCard("10008", INSPECT_STRING, pos)
end

function spawnBulletOrange(pos)
	return spawnBoardCard("10009", BULLET_STRING, pos)
end

function spawnBulletRed(pos)
	return spawnBoardCard("10010", BULLET_STRING, pos)
end

function spawnBulletBlue(pos)
	return spawnBoardCard("10011", BULLET_STRING, pos)
end

function spawnTopCardOrange(pos)
	return spawnBoardCard("10012", TOPCARD_STRING, pos)
end

function spawnTopCardRed(pos)
	return spawnBoardCard("10013", TOPCARD_STRING, pos)
end

function spawnTopCardBlue(pos)
	return spawnBoardCard("10014", TOPCARD_STRING, pos)
end

function spawnImprisonOrange(pos)
	return spawnBoardCard("10015", IMPRISON_STRING, pos)
end

function spawnImprisonRed(pos)
	return spawnBoardCard("10016", IMPRISON_STRING, pos)
end

function spawnImprisonBlue(pos)
	return spawnBoardCard("10017", IMPRISON_STRING, pos)
end

function spawnPresTakesOrange(pos)
	return spawnBoardCard("10018", PRESTAKESABOVE_STRING, pos)
end

function spawnPresTakesRed(pos)
	return spawnBoardCard("10019", PRESTAKESABOVE_STRING, pos)
end

function spawnPresTakesBlue(pos)
	return spawnBoardCard("10020", PRESTAKESBELOW_STRING, pos)
end

function spawnPresTakesHiddenOrange(pos)
	return spawnBoardCard("10021", PRESTAKESHIDDENABOVE_STRING, pos)
end

function spawnPresTakesHiddenRed(pos)
	return spawnBoardCard("10022", PRESTAKESHIDDENABOVE_STRING, pos)
end

function spawnPresTakesHiddenBlue(pos)
	return spawnBoardCard("10023", PRESTAKESHIDDENBELOW_STRING , pos)
end

function spawnPresGivesOrange(pos)
	return spawnBoardCard("10024", PRESGIVESABOVE_STRING, pos)
end

function spawnPresGivesRed(pos)
	return spawnBoardCard("10025", PRESGIVESABOVE_STRING, pos)
end

function spawnPresGivesBlue(pos)
	return spawnBoardCard("10026", PRESGIVESBELOW_STRING, pos)
end

function spawnPresGivesHiddenOrange(pos)
	return spawnBoardCard("10027", PRESGIVESHIDDENABOVE_STRING, pos)
end

function spawnPresGivesHiddenRed(pos)
	return spawnBoardCard("10028", PRESGIVESHIDDENABOVE_STRING, pos)
end

function spawnPresGivesHiddenBlue(pos)
	return spawnBoardCard("10029", PRESGIVESHIDDENBELOW_STRING, pos)
end

function spawnDoesNothingOrange(pos)
	return spawnBoardCard("10030", DOESNOTHING_STRING, pos)
end

function spawnDoesNothingRed(pos)
	return spawnBoardCard("10031", DOESNOTHING_STRING, pos)
end

function spawnDoesNothingBlue(pos)
	return spawnBoardCard("10032", DOESNOTHING_STRING, pos)
end

function spawnBoardCard(cardID, desc, pos)
   local params = {
      json =
			"{" ..
			"\"Name\": \"Card\", " ..
			"\"Transform\": {\"posX\": 0,\"posY\": 0,\"posZ\": 0,\"rotX\": 0,\"rotY\": 0,\"rotZ\": 0,\"scaleX\": 1,\"scaleY\": 1,\"scaleZ\": 1}, " ..
			"\"CardID\": " .. cardID .. ", " ..
			"\"CustomDeck\": {" ..
			"\"" .. string.sub(cardID, 1, 3) .. "\": {" ..
			"\"FaceURL\": \"http://cloud-3.steamusercontent.com/ugc/809997459545222830/36C579AD5879CA194D3142C7C1940E2AE19F888E/\", " ..
			"\"BackURL\": \"http://cloud-3.steamusercontent.com/ugc/809997459545150312/0CAC8BEF72548FBBABB723081596771432C78476/\", " ..
			"\"NumWidth\": 10, " ..
			"\"NumHeight\": 7, " ..
			"\"BackIsHidden\": false, " ..
			"\"UniqueBack\": false " ..
			"}" ..
			"}" ..
			"}",
      position = pos,
      rotation = FACE_UP_ROT,
      scale = {x = 1, y = 1, z = 1},
      sound = false
   }
	local card = spawnObjectJSON(params)
	card.setDescription(desc)
	card.use_grid = false
   return card
end

function spawnVetoOrange(pos)
	return spawnSubBoardCard("10100", VETO_STRING, pos)
end

function spawnVetoRed(pos)
	return spawnSubBoardCard("10101", VETO_STRING, pos)
end

function spawnVetoBlue(pos)
	return spawnSubBoardCard("10102", VETO_STRING, pos)
end

function spawnChancellorOrange(pos)
	return spawnSubBoardCard("10103", CHANCELLOR_STRING, pos)
end

function spawnChancellorRed(pos)
	return spawnSubBoardCard("10104", CHANCELLOR_STRING, pos)
end

function spawnChancellorBlue(pos)
	return spawnSubBoardCard("10105", CHANCELLOR_STRING, pos)
end

function spawnSubBoardCard(cardID, desc, pos)
   local params = {
      json =
			"{" ..
			"\"Name\": \"Card\", " ..
			"\"Transform\": {\"posX\": 0,\"posY\": 0,\"posZ\": 0,\"rotX\": 0,\"rotY\": 0,\"rotZ\": 0,\"scaleX\": 1,\"scaleY\": 1,\"scaleZ\": 1}, " ..
			"\"CardID\": " .. cardID .. ", " ..
			"\"CustomDeck\": {" ..
			"\"" .. string.sub(cardID, 1, 3) .. "\": {" ..
			"\"FaceURL\": \"http://cloud-3.steamusercontent.com/ugc/972100947052102628/F255D2E89C2A1D4FAA9C1AEC714802863A388D8C/\", " ..
			"\"BackURL\": \"http://cloud-3.steamusercontent.com/ugc/972100947052102628/F255D2E89C2A1D4FAA9C1AEC714802863A388D8C/\", " ..
			"\"NumWidth\": 3, " ..
			"\"NumHeight\": 2, " ..
			"\"BackIsHidden\": false, " ..
			"\"UniqueBack\": true " ..
			"}" ..
			"}" ..
			"}",
      position = pos,
      rotation = FACE_UP_ROT,
      scale = {x = 0.3, y = 1, z = 0.3},
      sound = false
   }
	local card = spawnObjectJSON(params)
	card.setDescription(desc)
	card.use_grid = false
   return card
end

function spawnLiberalPolicy(pos, rot)
	return spawnPolicyCard("10200", LIBERALPOLICY_STRING, pos, rot, true)
end

function spawnFascistPolicy(pos, rot)
	return spawnPolicyCard("10201", FASCISTPOLICY_STRING, pos, rot, true)
end

function spawnGreyPolicy(pos, rot)
	return spawnPolicyCard("10203", GREYPOLICY_STRING, pos, rot, true)
end

function spawnNotUsedLiberal(pos)
	return spawnPolicyCard("10204", NOTUSED_STRING, pos, FACE_UP_ROT, false)
end

function spawnNotUsedFascist(pos)
	return spawnPolicyCard("10205", NOTUSED_STRING, pos, FACE_UP_ROT, false)
end

function spawnPolicyCard(cardID, desc, pos, rot, luaBool)
   local params = {
      json =
			"{" ..
			"\"Name\": \"Card\", " ..
			"\"Transform\": {\"posX\": 0,\"posY\": 0,\"posZ\": 0,\"rotX\": 0,\"rotY\": 0,\"rotZ\": 0,\"scaleX\": 1,\"scaleY\": 1,\"scaleZ\": 1}, " ..
			"\"CardID\": " .. cardID .. ", " ..
			"\"CustomDeck\": {" ..
			"\"" .. string.sub(cardID, 1, 3) .. "\": {" ..
			"\"FaceURL\": \"http://cloud-3.steamusercontent.com/ugc/968725783513761884/D20A41E646CE901CA81FC067E81072BBDA9313C4/\", " ..
			"\"BackURL\": \"http://cloud-3.steamusercontent.com/ugc/486767005708571374/C5FBC566556E3FBE9A6C8ACCDB2472FA911A253A/\", " ..
			"\"NumWidth\": 4, " ..
			"\"NumHeight\": 2, " ..
			"\"BackIsHidden\": false, " ..
			"\"UniqueBack\": false " ..
			"}" ..
			"}" ..
			"}",
      position = pos,
      rotation = rot,
      scale = {x = 1.51, y = 1, z = 1.51},
      sound = false
   }
	local card = spawnObjectJSON(params)
	card.setDescription(desc)
	card.use_grid = false
	if luaBool then
		card.setLuaScript(
			'enabled = false -- workaround for rewind error\r\n' ..
			'\r\n' ..
			'function onDrop(playerColor)\r\n' ..
			'	enabled = true\r\n' ..
			'	Global.call(\'createPolicyCardWait\')\r\n' ..
			'end\r\n' ..
			'\r\n' ..
			'function onCollisionEnter(collisionInfo)\r\n' ..
			'	if enabled then\r\n' ..
			'		Global.call(\'createPolicyCardWait\')\r\n' ..
			'	end\r\n' ..
			'end\r\n')
	end
   return card
end