Slitherine

Code: Select all

// Include all functions from the functions.bsf script. These include the bulk of the VP logic.
// This script lives in Data\Scripts
include "Functions.BSF"

// called at the start of every turn.
// You would tend to use this for events
FUNCTION StartTurn(side)
{	
	if( GetTurn() < 1 )
	{
		PreBattleSetup();		
	}
   else
   {
      // Check if any victory conditions are met
      VictoryConditions() ;
   }
}

// Setup VPs, damaged tiled, ...
FUNCTION PreBattleSetup()
{
	// Define nations numbers. These global variables are used by the VP script functions.
	// Note that they do NOT correspond with the nation numbers in the editor
	// 0 = UK, 1 = USA, 2 = Canada, 3 = Poland, 4 = Germany, 5 = Italy
	SetGlobal("gNation0", 0) ;
	SetGlobal("gNation1", 4) ;

	// Define which side controls which VP at the start of the mission
	// By default they start at 0 so you only need to set the VPs controlled by side 1
	// The current functions script allows up to 9 VPs, named vp1, vp2, vp3, vp4, vp5, vp6, vp7, vp8 and vp9
	// In this example we are giving vp2 to side 1, which is defined as Germans ("gNation1" = 4)
	SetGlobal("vp1", 1) ;
	SetGlobal("vp2", 1) ;
	SetGlobal("vp3", 1) ;

	// Set the a mount of VPs held by player (side 0) at the start of the mission
	// In this example we will be placing two VPs. vp1 is owned by the player, vp2 by the enemy.
	// So "vps" should be = 1.
	SetGlobal("vps", 0) ;
	
	//Define the values of each VPs for Victory score.
	SetGlobal("score_vp1", 3) ;	
	SetGlobal("score_vp2", 2) ;	
	SetGlobal("score_vp3", 1) ;	
}

FUNCTION VictoryConditions()
{
int score;

	score = Calculate_Score(0);
	
	if (score >= 4)
	{
		// Declare victory for side 0
		SetGlobal("victory", 1) ;
		EndBattle(0);
	}
}

// called every game tick.
// You would tend to use this for reactive logic and
// win situations etc
FUNCTION Tick(side)
{
   // Place two VPs and run through VP capturing logic
   // format is:
   // CheckVP(-<x>, GetGlobal("vp<x>"), x coordinate, y coordinate) ;
   // <x> is the number of the victory point (1 to 9)
   CheckVP(-1, GetGlobal("vp1"), 20, 30) ;
   CheckVP(-2, GetGlobal("vp2"), 21, 30) ;
   CheckVP(-3, GetGlobal("vp3"), 22, 30) ;
}


// this callback allows us to display any misc data we want on the screen
FUNCTION DrawScenarioUI()
{
int score;

	//draw the victory score 
	if( GetCurrentSide() == 0 )
	{
		score = Calculate_Score(0);
		
		// start the string we are going to use
 		StartString() ;
		
		PrintStringLiteral("Victory Score: ") ;

		PrintInt(score) ;
		
		// now render the string to the screen, remembering that all coordinates
		// are based on a nominal 1024x768 screen size.
		RenderString(12, 90, 5, "fffee37c", "ff000000") ;		
		
		
	}
}
		
FUNCTION WIN_SCENARIO_CALLBACK(winner)
{
	// use the normal logic of last man standing
	// if we win because of the turn limit, we will never call this
	return winner ;
}

FUNCTION Calculate_Score(side)
{
int score;

	score = 0;

	if (GetGlobal("vp1") == side)
	{
		score += GetGlobal("score_vp1");
	}

	if (GetGlobal("vp2") == side)
	{
		score += GetGlobal("score_vp2");
	}
	if (GetGlobal("vp3") == side)
	{
		score += GetGlobal("score_vp3");
	}

	return score;
}

Code: Select all

	//Define the values of each VPs for Victory score.
	SetGlobal("score_vp1", 3) ;	
	SetGlobal("score_vp2", 2) ;	
	SetGlobal("score_vp3", 1) ;	

Code: Select all

FUNCTION VictoryConditions()
{
int score;

	score = Calculate_Score(0);
	
	if (score >= 4)
	{
		// Declare victory for side 0
		SetGlobal("victory", 1) ;
		EndBattle(0);
	}
}

Code: Select all

// Include all functions from the functions.bsf script. These include the bulk of the VP logic.
// This script lives in Data\Scripts
include "Functions.BSF"

// called at the start of every turn.
// You would tend to use this for events
FUNCTION StartTurn(side)
{   
   if( GetTurn() < 1 )
   {
      PreBattleSetup();      
   }
  
	if( GetTurn() == 30 )
   {
      // Check if any victory conditions are met
      VictoryConditions() ;
   }
}

// Setup VPs, damaged tiled, ...
FUNCTION PreBattleSetup()
{
   // Define nations numbers. These global variables are used by the VP script functions.
   // Note that they do NOT correspond with the nation numbers in the editor
   // 0 = UK, 1 = USA, 2 = Canada, 3 = Poland, 4 = Germany, 5 = Italy
   SetGlobal("gNation0", 0) ;
   SetGlobal("gNation1", 4) ;

   // Define which side controls which VP at the start of the mission
   // By default they start at 0 so you only need to set the VPs controlled by side 1
   // The current functions script allows up to 9 VPs, named vp1, vp2, vp3, vp4, vp5, vp6, vp7, vp8 and vp9
   // In this example we are giving vp2 to side 1, which is defined as Germans ("gNation1" = 4)
   SetGlobal("vp1", 1) ;
   SetGlobal("vp2", 1) ;
   SetGlobal("vp3", 1) ;

   // Set the a mount of VPs held by player (side 0) at the start of the mission
   // In this example we will be placing two VPs. vp1 is owned by the player, vp2 by the enemy.
   // So "vps" should be = 1.
   SetGlobal("vps", 0) ;
   
   //Define the values of each VPs for Victory score.
   SetGlobal("score_vp1", 200) ;   
   SetGlobal("score_vp2", 200) ;   
   SetGlobal("score_vp3", 200) ;   
}

FUNCTION VictoryConditions()
{
int score_side0;
int score_side1;

   score_side0 = Calculate_Score(0);
   score_side1 = Calculate_Score(1);
   
   if (score_side0 > score_side1)
   {
      // Declare victory for side 0
      SetGlobal("victory", 1) ;
      EndBattle(0);
   }
   else
   {
      // Declare victory for side 1
      SetGlobal("victory", 1) ;
      EndBattle(1);
   }   
}

// called every game tick.
// You would tend to use this for reactive logic and
// win situations etc
FUNCTION Tick(side)
{
   // Place two VPs and run through VP capturing logic
   // format is:
   // CheckVP(-<x>, GetGlobal("vp<x>"), x coordinate, y coordinate) ;
   // <x> is the number of the victory point (1 to 9)
   CheckVP(-1, GetGlobal("vp1"), 20, 30) ;
   CheckVP(-2, GetGlobal("vp2"), 21, 30) ;
   CheckVP(-3, GetGlobal("vp3"), 22, 30) ;
}


// this callback allows us to display any misc data we want on the screen
FUNCTION DrawScenarioUI()
{
int score;
int side;

   //draw the victory score 
   
	side = GetCurrentSide();

	score = Calculate_Score_Flag(side);
  
	// start the string we are going to use
	StartString() ;

	PrintStringLiteral("Victory Flag Score: ") ;

	PrintInt(score) ;

	PrintStringLiteral("/600") ;

	score = Calculate_Score_Damage(side);

	PrintStringLiteral(" - Damage Score: ") ;

	PrintInt(score) ;

	PrintStringLiteral("\n\n") ;
  
	side += 1 ;
	side = side % 2 ;	
	
	PrintStringLiteral("Enemy Victory Flag Score: ") ;

	PrintInt(score) ;

	PrintStringLiteral("/600") ;

	score = Calculate_Score_Damage(side);

	PrintStringLiteral(" - Damage Score: ") ;

	PrintInt(score) ;	
  
  
  
  // now render the string to the screen, remembering that all coordinates
  // are based on a nominal 1024x768 screen size.
  RenderString(12, 90, 5, "fffee37c", "ff000000") ;      
}
      
FUNCTION WIN_SCENARIO_CALLBACK(winner)
{
   // use the normal logic of last man standing
   // if we win because of the turn limit, we will never call this
   return winner ;
}

FUNCTION Calculate_Score(side)
{
int score;

   score = 0;
   
   score += Calculate_Score_Flag(side);
   
   score += Calculate_Score_Damage(side);
   
   return score;
}

FUNCTION Calculate_Score_Flag(side)
{
int score;

   if (GetGlobal("vp1") == side)
   {
      score += GetGlobal("score_vp1");
   }

   if (GetGlobal("vp2") == side)
   {
      score += GetGlobal("score_vp2");
   }
   if (GetGlobal("vp3") == side)
   {
      score += GetGlobal("score_vp3");
   }

   return score;
}

FUNCTION Calculate_Score_Damage(side)
{
int score;
int enemy_side;
int unit;
int count;

	score = 0;

	enemy_side = side;
	enemy_side += 1 ;
	enemy_side = enemy_side % 2 ;	

	for (count = 0 ; count < GetUnitCount(enemy_side) ; count++)
	{
		unit = GetUnitID(enemy_side, count);
		
		if (unit != -1)
		{
			if (GetUnitDead(unit) == 1)
			{
				score += GetUnitCost(unit);
			}
		}
	}
	
	return score;
}