//======================================================================
// Bonus States are special bonuses for a certain player that last a
// certain amount of ticks.  A tick is decreased every 2 seconds by
// the zone check.
//======================================================================
//except zone check doesnt work, so we have to find a new system. 
//$maxBonusStates = 10;

//function DecreaseBonusStateTicks(%client, %b)
//{
//	
//}

function AddBonusStatePoints(%client, %filter)
{
	if(%filter $= "") return; //error
	//this function both checks expiration of bonus states and returns the correct value of the summery of all bonus states.
	%now = mfloor(getSimTime()/1000);
	if(%client.lastbonuscalc == 0) %client.lastbonuscalc = %now;
	%diff =  %now - %client.lastbonuscalc;
	
	if(%filter $= 3 || %filter $= 7 || %filter $= 6 || %filter $= 20 || %filter $= 21 || %filter $= 22 || %filter $= 23 || %filter $= 24 || %filter $= 25)
		%add = "0r0";
	else
		%add = 0;

	
	for(%i = 0; GetWord(%client.BonusList, %i) !$= ""; %i++)
	{
		%name = GetWord(%client.BonusList, %i);
		
		if(%client.bonusTicks[%name] <= %diff)
		{
			//no longer exists
			%client.bonusState[%name] = "";
			%client.bonusTicks[%name] = "";
		}
		else
		{
			%state = %client.bonusState[%name];
			//exists!
			for(%j = 0; GetWord(%state, %j) !$= ""; %j = %j + 2)
			{
				%a = GetWord(%state, %j);
				%b = GetWord(%state, %j+1);
				if(%a == %filter)
				{
					//good add itup!
					if(strreplace(%b, "r", " ") $= %b && strreplace(%b, "R", " ") $= %b)
					{
						//normal
						%add += %b;
					}
					else
					{
						%tmp = strreplace(%b, "r", " ");
						if(%tmp $= %b)
							%tmp = strreplace(%b, "R", " ");
						%add = CombineRpgRolls(%add, %b, 0, "inf");
					}					
				}
			}
			%list = %list @ %name @ " ";
			%client.bonusTicks[%name] = %client.bonusTicks[%name] - %diff;
		}
	
	}
	%client.BonusList = %list;
	%client.lastbonuscalc = %now;
	return %add;
}

function AddBonusState(%client, %bonus, %ticks, %name)
{
	//if($debugger == %client) echo("AddBonusState(" SPC %client SPC %bonus SPC %ticks SPC %name SPC ")");
	//add entry to bonus state system
	//lets not use global vars this time
	//name is the 'name' of the bonus this way we can prevent 'stacking' in addpoints we add this to the players statistics
	CalculateBonusState(%client);//update the bonus state delete as nessisary.

	//add new entry or update old one.
	//if(%client.bonusTicks[%name] == 0)
	//navigate bonus list and see if its there
	if(!IsInCommaList(%client.BonusList, %name))
	%client.BonusList = rtrim(%client.bonusList @ %name @ " ");
	%client.BonusState[%name] = %bonus;
	
	%client.BonusTicks[%name] = %ticks;
	//if($debugger == %client) echo(%client.bonusList[%name] SPC %name SPC %client.bonusticks[%name] SPC %ticks);
}
function GetBonusTimeLeft(%client, %name)
{
	CalculateBonusState(%client);
	return %client.BonusTicks[%name];
}
//function UpdateBonusState()
//{
//	return;//remove errospam?
//}

function CalculateBonusState(%client)
{
	%now = mfloor(getSimTime()/1000);
	if(%client.lastbonuscalc == 0) %client.lastbonuscalc = %now;
	//go through the list of names and recompile as we go.
	
	%diff =  %now - %client.lastbonuscalc;

	if(%diff > 0)
	{
		for(%i = 0; GetWord(%client.bonuslist, %i) !$= ""; %i++)
		{
			%name = getWord(%client.bonuslist, %i);
			if(%client.bonusTicks[%name] <= %diff)
			{
				//remove entry;
				%client.BonusTicks[%name] = "";
				%client.BonusState[%name] = "";
			}
			else
			{
				%client.bonusTicks[%name] = %client.bonusTicks[%name] - %diff;
				%list = %list @ %name @ " ";
			}


		}
	}
	else
		%list = %client.bonuslist;
	%client.bonuslist = %list;//updated list
	%client.lastbonuscalc = %now;
}
function debugBonusState(%client)
{
	echo(%client.rpgname SPC "BONUS LIST");
	for(%i = 0; GetWord(%client.bonuslist, %i) !$= ""; %i++)
	{
		%name = getWord(%client.bonuslist, %i);

		echo("NAME" SPC %name SPC "TICK" SPC %client.BonusTicks[%name] SPC "VALUE" SPC %client.BonusState[%name]);
	}
	echo("END LIST");
}
function ModifyBonusState(%client, %char, %mod)
{
	
	//if(%mod <= 0) return 0;
	//here we go.
	%now = mfloor(getSimTime()/1000);
	if(%client.lastbonuscalc == 0) %client.lastbonuscalc = %now;
	//go through the list of names and recompile as we go.
	
	%diff =  %now - %client.lastbonuscalc;
	for(%i = 0; GetWord(%client.bonuslist, %i) !$= ""; %i++)
	{
		%name = getWord(%client.bonuslist, %i);
		if(%client.bonusTicks[%name] <= %diff)
		{
			//remove entry;
			%client.BonusTicks[%name] = "";
			%client.BonusState[%name] = "";
		}
		else
		{
			%client.bonusTicks[%name] = %client.bonusTicks[%name] - %diff;
			%list = %list @ %name @ " ";
			//earlier casted spells are in the front of the list
			%a = %client.BonusState[%name];
			
			if( strreplace(%mod, "r", " ") $= %mod && strreplace(%mod, "R", " ") $= %mod )
			{
				%ran = false;
				%mod1 = %mod;
			}
			else
			{
				%ran = true;
			
				%tmp = strreplace(%mod, "r", " ");
				if(%tmp == %v)
					%tmp = strreplace(%mod, "R", " ");
				%mod1 = mfloor(getword(%tmp, 0));
				%mod2 = mfloor(getword(%tmp, 1)); 
				
			}
			%final = "";
			for(%j = 0; GetWord(%a, %j) !$= ""; %j+=2)
			{
				%e = GetWord(%a, %j);
				%v = GetWord(%a, %j+1);
				
				%add = true;
				if(%e == %char )
				{
					%add = false;
					if(strreplace(%v, "r", " ") $= %v && strreplace(%v, "R", " ") $= %v)
					{
						//normal
						if(%ran)
						{
							if(%v > %mod1)
							{
								%v -= %mod1;
								%mod1 = 0;
							}
							else
							{
								%mod1 -= %v;
								%v = 0;
							}
							if(%v > %mod2)
							{
								%v -= %mod2;
								%mod2 = 0;
							}
							else
							{
								%mod2 -= %v;
								%v = 0;
							}
						}
						else
						{
							if( %mod1 > %v)
							{
								%mod1 -= %v;
								%v = 0;
							}
							else
							{
								%v -= %mod1;
								%mod1 = 0;
							}
						}
							if(%v == 0)
								%add = false;
							else
								%add = true;
					}
					else
					{
						%tmp = strreplace(%v, "r", " ");
						if(%tmp == %v)
							%tmp = strreplace(%v, "R", " ");
						%g = mfloor(getword(%tmp, 0));
						%f = mfloor(getword(%tmp, 1));
						if(%ran)
						{
							if(%mod2 > %f)
							{
								%mod2 -= %f;
								%f = 0;
								%mod1 -= %g;
								%g = 0;
							}
							else
							{
								%f -= %mod2;
								%g -= %mod1;
								if(%g < 0)
								%g = 0;
								%mod2 = 0;
								%mod1 = 0;
							}
						
						}
						else
						{
							if(%mod1 > %f)
							{
								%mod1 -= %f;
								%f = 0;
								%g = 0;
							}
							else
							{
								%f -= %mod1;
								if(%mod1 > %g)
								%g = 0;
								else
								%g -= %mod1;
								%mod1 = 0;
							}
						}
						if(%g < 1) %g = 1;
						if(%f < 1) %f = 1;
						if(%g > %f)
						%g = %f;
						%v = %g @ "r" @ %f;
						if(%f > 0)
						%add = true;
						else
						%add = false;
						
						

					}
				}
				if(%add)
				%final = %final @ %e SPC %v @ " ";
				

			}
			if(%final $= "")
			{
				%client.bonusTicks[%name] = 0;//delete!
			}
			else
				%client.bonusState[%name] = %final;
			if(%ran)
			{
				%mod = %mod1 @ "r" @ %mod2;
			}
			else
				%mod = %mod1;
			
		}
	
	
	}
	%client.bonuslist = %list;//updated list	
	%client.lastbonuscalc = %now;
	if($debug)
	debugbonusstate(%client);
	return %mod;
}