function round(%n)
{
//	dbecho($dbechoMode, "round(" @ %n @ ")");

	if(%n < 0)
	{
		%t = -1;
		%n = -%n;
	}
	else if(%n >= 0)
		%t = 1;

	%f = floor(%n);
	%a = %n - %f;
	if(%a < 0.5)
		%b = 0;
	else if(%a >= 0.5)
		%b = 1;

	return (%f + %b) * %t;
}

function RB(%a,%b)
{
	return floor(getRandom() * (%b - %a) + %a);
}

function CLeg()
{
	%cost = 0;
	%f = 0;
	%count = 0;
	for (%i = 1; %f != 1; %i++) {
		%g = Legendary(1,1);
		%count += 1;
		if (%g == false)
			%cost += 34700;
		else
			%f = 1;
	}
	$TCOST += %cost;
	$LX += 1;
	echo("COST $" @ %cost @ " COUNT:" @ %count);
}

function AvgCLeg()
{
	echo($TCOST @ " " @ $LX);
	%avg = $TCOST / $LX;
	echo("AVG $" @ %avg);
	$TCOST = 0;
	$LX = 0;
}

function Legendary(%t,%c)
{
	%l = false;
	%h = 0;
	%hits = 0;
	for (%i = 1; %i <= %t; %i++) {
		%atk = RB(16,-10);
		%rng = RB(16,-10);
		%spd = RB(11,-3);
		%crt = RB(6,0);
		%combo = %atk @ " " @ %rng @ " " @ %spd @ " " @ %crt;
		%test = %atk + %rng + %spd + %crt;
		if (%test >= %h) { %h = %test; %hs = %combo; }
		if (%combo == "15 15 10 5") { %l = true; %hits++; }
		//echo(%combo);
	}
	if (%c) return %l;
	if (%l == true) echo("TRUE " @ %hits);
	else echo("FALSE " @ %hits);
	echo(%hs);
	return %hits;
}

function MLeg(%t,%a)
{
	$LHITS = 0;
	$LROLL = 0;
	%s = 0;
	for (%i = 1; %i <= %t; %i++) {
		schedule("GLeg(" @ %a @ ");",%s);
		%s += 1;
	}
}

function GLeg(%a)
{
	$LROLL += %a;
	$LHITS += Legendary(%a);
	%p = ($LHITS / $LROLL) * 100;
	echo("GLEG ROLL:" @ $LROLL @ " HITS:" @ $LHITS @ " P%" @ %p);
}