Slitherine

Code: Select all

include "Functions.BSF"

// called at the start of every turn.
// You would tend to use this for events
FUNCTION StartTurn(side)
{	
	if (GetTurn() == -1 )
	{
		RandomForce(0, 1000) ;
		RandomForce(1, 1000) ;
	}	
}

//*****************************************************************************
//*****************************************************************************
FUNCTION RandomForce(side, points)
{
int i ;
int id ;
int count ;
int placed ;
int index ;
int tries ;
int cost ;
int loaded ;

	ClearArray(-1) ;
	
	count = 0 ;		// not strictly needed as all vars default to 0, but clearer
	
	for(i=0;i<GetUnitCount(side);i++)
	{
		id = GetUnitID(side, i) ;
		if( IsUnitValid(id) == 1 )
		{
				// valid unit to look at
				SetArray(count, id) ;
				count++ ;
		}

	}
	
		// now have all the team members in the array that are not fixed
		
	// try 512 times at most
	placed = 0 ;
	tries = 1024 ;
	for(i=0;i<tries;i++)
	{
		if( placed == count )
		{
			// done
			i = tries ;
		}
		else
		{
			index = Rand(0, count-1) ;
			
			id = GetArray(index) ;
			
			if( id != -1 )
			{
				cost = GetUnitCost(id) ;
				loaded = GetLoadedUnit(id) ;
				if( loaded != -1)
				{
					cost += GetUnitCost(loaded) ;
				}
				
				if( cost <= points )
				{
					// we will keep this unit
					SetArray(index, -1) ;
					points -= cost ;
					placed++ ;
				}
			}
		}
	}
	
	// now remove any units still in the list
	for(i=0;i<count;i++)
	{
		id = GetArray(i) ;
		if(id != -1)
		{
			RemoveUnit(id, 1) ;
		}
	}

}

Code: Select all

      if( IsUnitValid(id) == 1 ) 
      { 
            // valid unit to look at 
            SetArray(count, id) ; 
            count++ ; 
      }

Code: Select all

      if( IsUnitValid(id) == 1 ) 
      { 
         if( IsUnitFixed(id) == 0 )
         {
            // valid unit to look at
             SetArray(count, id) ;
             count++ ;
         }          
      }