Slitherine

Code: Select all

function CheckVictory()
    local currentPlayer = GetCurrentPlayer() -- Get the current player
    
    if currentPlayer == 0 then -- Only check victory for allied player
        local turn = GetCurrentTurn() -- Get the current turn number
        
        if turn > 5 then -- Check if it's after turn 5            
		local hexesToCapture = { -- Specify the victory hexes to capture
                { x = 50, y = 32 },
                { x = 50, y = 24 },
                { x = 59, y = 12 }
            }
            
            local capturedHexes = 0
            
            for i, hex in ipairs(hexesToCapture) do
                if IsHexCaptured(hex.x, hex.y, currentPlayer) then
                    capturedHexes = capturedHexes + 1
                end
            end
            
            if capturedHexes ~= #hexesToCapture then
                SetPlayerLoss(currentPlayer) -- Set the player as defeated if not all victory hexes are captured
            end
        else
            SetPlayerLoss(currentPlayer) -- Set the player as defeated if it's after turn 5
        end
    end
end

function IsHexCaptured(x, y, player)
    local hex = GetHex(x, y) -- Get the hex at coordinates (x, y)
    
    if hex then
        local occupier = GetHexOccupier(hex)
        
        if occupier and occupier:GetPlayer() == player then
            return true -- Hex is captured by the player
        end
    end
    
    return false -- Hex is not captured by the player
end

Code: Select all

function IsHexCaptured(hex,player)
local hex = world:GetHex(hex) -- Get the hex at coordinates (x, y)
occupier = hex.owner
if occupier == player then
return true break end -- Hex is captured by the player
return false -- Hex is not captured by the player
end
end

Code: Select all

function IsHexCaptured(hex,player)
local hex = world:GetHex(hex) -- Get the hex at coordinates (x, y)
occupier = hex.owner
if occupier == player then
return true break end end -- Hex is captured by the player
return false -- Hex is not captured by the player
end

Code: Select all

if occupier == player then
return true break -- Hex is captured by the player
return false -- Hex is not captured by the player
end
end

Code: Select all

function IsHexCaptured(hex,player)
local hex = world:GetHex(hex) -- Get the hex at coordinates (x, y)
occupier = hex.owner
if occupier == player then return true end -- Hex is captured by the player
end

Code: Select all

function IsHexCaptured(hex,player)
local hex = world:GetHex(hex) -- Get the hex at coordinates (x, y)
occupier = hex.owner
if occupier == player then return true else return false end -- Hex is captured by the player
end

Code: Select all

function isturn5()
return world.round == 5
end

Code: Select all

function CheckVictory()
    local player = world:GetPlayer(0) -- on turn 5 the player to check is player "0" (Allies)
    if player == 0 then
        local hexesToCapture = { -- Specify the victory hexes to capture
            { x = 50, y = 32 },
            { x = 50, y = 24 },
            { x = 59, y = 12 }
        }
        
        local capturedHexes = 0
        
        for _, i in ipairs(hexesToCapture) do
            if IsHexCaptured(x, y, player) then
                capturedHexes = capturedHexes + 1
            end
        end
        
        if capturedHexes < 3 then
            Defeat(0) --  
        end
    end
end

Code: Select all

function IsHexCaptured(x, y, player)
    local hex = GetHex(x, y) -- Get the hex at coordinates (x, y)
    
    if hex.owner == 0 then
            return true -- Hex is captured by the player
        end
    end

Code: Select all

CheckPoint1Vhs = {{50,32},{50,24},{59,12}} -- the victory hexes to capture by turn 5 to pass the 'checkpoint'

function isturn5() -- this is entered as the Condition in the editor to check on turn 5 
return world.round == 5
end

function Player0VH() -- checks if player "0" (Allies) controls the specified hexes in "CheckPoint1Vhs"
	local p0captured = 0
	for _,vh in ipairs(CheckPoint1Vhs) do
		local hex = world:GetHex(vh)
		if hex.owner == 0 then
			p0captured = p0captured + 1
		end
	end

	return p0captured -- returns number of "CheckPoint1Vhs" player 0 captured
end																															

function Player0CustomFail(action) -- I intend for this to check if player "0" captured the three hexes or not and then returns a defeat to player "0" if not.
	return action:GetActionClass() == "TurnsLimitAction" and Player0VH() < 3 -- I don't understand this "getactionclass" and "turnslimitaction" really, but just following the outline which I understand makes it work in the MP scenarios
end

Code: Select all

function Player0CustomFail(action)
		return action:GetActionClass() == "TurnsLimitAction" and Player0VH() < 3
end

Code: Select all

function Player0CustomFail(action)
		return action:GetActionClass() == "TurnsLimitAction" and Player0VH() < 3
end

Code: Select all

function Player1CustomSuccess(action)
	return vh_counter > 3
end

function Player1CustomFail(action)
	return action:GetActionClass() == "TurnsLimitAction" and vh_counter < 3
end 

Code: Select all

vh_counter = 0
CheckPoint1Vhs = {{50,32},{50,24},{59,12}}
function Player0VH()
	if world.round < 5 then return end
	for _,vh in ipairs(CheckPoint1Vhs) do
		local hex = world:GetHex(vh)
		if hex.owner == 0 then
			vh_counter = vh_counter  + 1
		end
	end
end

Code: Select all

function Player0CustomFail(action)
	return action:GetActionClass() == "TurnsLimitAction" and vh_counter < 3
end

Code: Select all

vh_counter = 0
CheckPoint1Vhs = {{50,32},{50,24},{59,12}}														

function Player0VH()
	if world.round < 5 then return end
	for _,vh in ipairs(CheckPoint1Vhs) do
		local hex = world:GetHex(vh)
		if hex.owner == 0 then
			vh_counter = vh_counter  + 1
		end
	end
end																															

function Player0CustomSuccess(action) -- this one doesn't need 
	return vh_counter > 3
end

function Player0CustomFail(action)
	return action:GetActionClass() == "TurnsLimitAction" and vh_counter < 3
end

Code: Select all

function Player0CustomFail(action)
	return world.round > 4 and vh_counter < 3
end