Slitherine

Code: Select all

	// CUSTOM - Set variable visibility for fog etc.
	visibility = SkewedRandom(2, 6, 1) * 10;  

//  visibility = 300; // For demo only.

	for (j = 0; j < 2; j++)
	{
		for (i = 0; i < GetUnitCount(j); i++)
		{
			id = GetUnitID(j,i);
			if (id != -1)
				{
					v = visibility;
					// Increase visibility for units on windmill hill
					if (GetTileHeight(GetUnitX(id), GetUnitY(id)) >= 50)
						{
							v += 60;
						}
					SetAttrib(id, "LOS", v);
				}
		}
	}
	// END CUSTOM

Code: Select all

       if ((turn == 0) || (turn == 1))
         {
            visibility = 30;
         }

       if ((turn == 2) || (turn == 3))
         {
            visibility = 50;
         }

       if ((turn == 4) || (turn == 5))
         {
            visibility = 70;
         }

       if (turn > 5)
         {
           visibility = 120;
         }

        if (turn > 7)
         {
           visibility = 160;
         }

       for (j = 0; j < 2; j++)
	{
		for (i = 0; i < GetUnitCount(j); i++)
		{
			id = GetUnitID(j,i);
			if (id != -1)
				{
					v = visibility;
					// Increase visibility for units on heights
					if (GetTileHeight(GetUnitX(id), GetUnitY(id)) >= 50)
						{
							v += 20;
						}
					SetAttrib(id, "LOS", v);
				}
		}
	}

Code: Select all

// Returns skewed randomly generated number.
FUNCTION SkewedRandom(min, max, skew_type)
{
int result;
int randomizer;
int difference;

	if (skew_type == 0) // Uniform distribution
		{
			result = Rand(min,max);
		}

	if (skew_type == 1) // Bell-shaped distribution
		{
			result = Rand(min,max) + Rand(min,max);
			result /= 2;
		}

	if (skew_type == 2) // Left skew (low values predominant)
		{
			// This version is equivalent to (Rand(0, max - min) ^ 2) / ((max - min) ^ 1) + min.
			// It gives an average value of approximately 2/3 of the average of a non-skewed range.

			difference = max - min;
			result = Rand(0, difference);
			result *= result;
			result /= difference;
			result += min;
		}

	if (skew_type == 3) // Right skew (high values predominant)
		{
			// Not yet implemented.
			Log ("Skew Type 3 not yet implemented");
			result = Rand(min,max); // To avoid crashing if it is attempted to be used.
		}

return result;
}