Sorry your browser is not supported!

Function PlayerAI(n)

////////////////////////
//PLAYER AI
////////////////////////

///////////////////////////////////////////////////////
//AUTO ATTACK TIMER
///////////////////////////////////////////////////////
	
	If Stats(n).AttackTimer = 9000 and Stats(n).APCurrent = 2 and Stats(n).Sequence = 1
	//If Stats(n).ActivePlayer = 0  //NOT THE CURRENTLY HUMAN CONTROLLED PLAYER
		Reorder()
		Stats(n).APCurrent = Stats(n).APCurrent-2
		Stats(n).Sequence = 0
		Stats(n).APTotal = 0
		BattleOrder(Stats(n).Sequence).Sequence = 0
		Stats(n).AttackTimer = 0
	Endif

	If Stats(n).APTimer > 6000 and Stats(n).APCurrent < Stats(n).APMax and Stats(n).APTotal < Stats(n).APMax //See if timer is at point to increase AP
		Stats(n).APCurrent = Stats(n).APCurrent+1
		Stats(n).APTotal = Stats(n).APTotal+1
		Stats(n).APTimer = 0
	Endif

/////////////////////////////////////////////////////////////////
//ACTIVE PLAYER DOES NOT ADD TO LIST UNTIL ACTION IS ASSIGNED
//////////////////////////////////////////////////////////////////
	If Stats(n).APCurrent > 0 and Stats(n).ActivePlayer = 0 and Stats(n).Sequence = 0 //Check if AP Point applied
		Repeat
			If Stats(n).Sequence = 0
				inc x
			Endif
		Until Stats(n).Sequence || x
		Stats(n).Sequence = x
/////////////////////////////
//BATTLEORDERING
/////////////////////////////
		BattleOrder(x).Sequence = Stats(n).Sequence
		BattleOrder(x).CharacterName = Stats(n).Name
	Endif
				
	Stats(n).APTimer = Stats(n).APTimer+Stats(n).SPD //maybe at bottom instead
	If Stats(n).APTimer > 6000 and Stats(n).APCurrent = Stats(n).APMax
		Stats(n).APTimer = 0
	Endif
	If Stats(n).Sequence = 1
		Stats(n).AttackTimer = Stats(n).AttackTimer+Stats(n).SPD
		If Stats(n).AttackTimer > 10000
			Stats(n).AttackTimer = 0
		Endif
	Endif 
EndFunction

Function EnemyAI(q)
///////////////////////////////
//BATTLEORDER VARIABLES
///////////////////////////////
	If Enemy(q).AttackTimer = 10000 and Enemy(q).APCurrent = 2 and Enemy(q).Sequence = 1
		Reorder()
		Enemy(q).APCurrent = Enemy(q).APCurrent-2
		Enemy(q).Sequence = 0
		Enemy(q).APTotal = 0
		BattleOrder(Enemy(q).Sequence).Sequence = 0
		Enemy(q).AttackTimer = 0
	Endif
		
 	If Enemy(q).APTimer > 6000 and Enemy(q).APCurrent < Enemy(q).APMax and Enemy(q).APTotal < Enemy(q).APMax
		Enemy(q).APCurrent = Enemy(q).APCurrent+1
		Enemy(q).APTotal = Enemy(q).APTotal+1
		Enemy(q).APTimer = 0
	Endif
	If Enemy(q).APCurrent > 0 and Enemy(q).Sequence = 0//Check if AP Point applied
		Repeat
			If Enemy(q).Sequence = 0
				inc x
			Endif
		Until Enemy(q).Sequence || x
		Enemy(q).Sequence = x
/////////////////////////////
//BATTLEORDERING
/////////////////////////////
		BattleOrder(x).Sequence = Enemy(q).Sequence
		BattleOrder(x).CharacterName = Enemy(q).Name
	Endif
	
	Enemy(q).APTimer = Enemy(q).APTimer+Enemy(q).SPD //maybe at bottom instead
	If Enemy(q).APTimer > 6000 and Enemy(q).APCurrent = Enemy(q).APMax
		Enemy(q).APTimer = 0
	Endif
	If Enemy(q).Sequence = 1
		Enemy(q).AttackTimer = Enemy(q).AttackTimer+Enemy(q).SPD
		If Enemy(q).AttackTimer >10000 
			Enemy(q).AttackTimer = 0
		Endif
	Endif
EndFunction

Function Reorder()

/////////////////////////////////////////////////
//SOMETHING HERE STOPS IT AFTER 4 or 5 ATTACKS AND CONTINUES TO LOOP THE ONE NEVER CHANGING ORDER
/////////////////////////////////////////////////////
	x = x - 1
	For FindNext = 0 to 11
		Stats(FindNext).Sequence = Stats(FindNext).Sequence - 1
		If Stats(FindNext).Sequence < 0
			Stats(FindNext).Sequence = 0
		Endif
		Enemy(FindNext).Sequence = Enemy(FindNext).Sequence - 1
		If Enemy(FindNext).Sequence < 0
			Enemy(FindNext).Sequence = 0
		Endif
		BattleOrder(FindNext).Sequence = BattleOrder(FindNext+1).Sequence-1
		BattleOrder(FindNext).CharacterName = BattleOrder(FindNext+1).CharacterName
		If BattleOrder(FindNext).Sequence < 0
			BattleOrder(FindNext).Sequence = 0
		Endif
	Next FindNext
EndFunction

	//////////////////////////////////////
	//AUTO ATTACK ON OTHER HEROES
	//////////////////////////////////////
	For n = 0 to 12
		If Stats(n).Party = 1
			PlayerAI(n)
		Endif
	Next n
	For q = 0 to 12
 		If Enemy(q).Present = 1
 			EnemyAI(q)
 		Endif
 	Next q

	x = x - 1

		Repeat
			If Stats(n).Sequence = 0
				inc x
			Endif
		Until Stats(n).Sequence || x

//STATS(n) is the playable characters information array, and ENEMY(n) is the enemies information array

All info in Stats(1) is assigned to one specific player, all info in Stats(2) is assigned to another.  This keeps track of everything to do with them such as Health, Weapons, Strength, Speed... etc

A timer initiates for all players and enemies.  Once the timer for that unit reaches a specified value (6000 in this case) they get assigned a value starting at 1  This is the x value.  This goes into the sequence value for that character and then gets put into the battleorder array for a queue.  Then x is increased so that the next player that reaches their assigned timer limit gets assigned a value of 2 and so forth.

So, the loop always looks for who has a value of 1

If the value stored in Stats(3).Sequence = 1 OR the value stored in Enemy(3).Sequence = 1
    //Sequence = 1 means that it is the first character to make a decision on what type of attack to use.
    The BattleOrder(1).Sequence is ALWAYS 1.  The rest of the information about that character also gets stored into BattleOrder(1) telling it which player is the first in the queue.

    //The Stats and Enemy Sequence value cannot be the same.  Each loop when a value is assigned it increases the value to be assigned in the sequence by 1.  This is the x value you asked about.

A second timer initiates now, which when it reaches the assigned value (in this case 9000 for players and 10000 for enemies), it reorders the sequence pushing all info in battleorder(n) up one position.

Only the sequence value in the Stats(n) and Enemy(n) gets repositioned up by a value of one:

  Lets say that Stats(1) = 3, Stats(3) = 1 and Enemy(1) = 2


  Stats(1).Sequence = Stats(1).Sequence - 1
  Stats(3).Sequence = Stats(3).Sequence - 1
  Enemy(1).Sequence = Enemy(1).Sequence - 1

  SO:
  Stats(1).Sequence = 3 - 1 //A sequence of 2
  Stats(3).Sequence = 1 - 1 //A sequence of 0, meaning he/she finished the attack and now can get put back into the queue
  Enemy(1).Sequence = 2 - 1  //A sequence of 1, meaning that this is the next character to attack.  The timer begins for it and when it reaches the value of 10000, this reordering occurs again.

  At the beginning of the reordering there is:
  X = x-1  //This means that since every array holding a sequence value > 0 moves down one spot and therefore x has to move down one too, or else it will skip a slot number.  Example:  Say we have 4 characters in the queue (x would = 6) which would be the next number to assign (since x starts at 1), once one finishes an attack, x goes down one value because now there are only 3 characters in the queue.

  Now that Stats(1), Stats(3) and Enemy(1) have changed their sequence order, the battleOrder must also get reordered to reflect this change.  //BattleOrder is a temporary holding spot constantly changing the info.

  BattleOrder(1).Sequence = BattleOrder(1+2).Sequence-1  //Meaning that the previous list of 

BattleOrder(1) = Stats(3)
BattleOrder(2) = Enemy(1)
BattleOrder(3) = Stats(1) now becomes:

BattleOrder(1) = Enemy(1)
BattleOrder(2) = Stats(3)
BattleOrder(3) = BLANK - Until the timer is met to add another to this list

ALL other info on that character also moves up with it... so
BattleOrder(1).HPCurrent USE TO = Stats(3).HPCurrent
But NOW,
BattleOrder(1).HPCurrent = Enemy(1).HPCurrent

etc.

Then it all repeats... 

function debugResetFile()
	if file exist("debug.txt") = 1 then delete file "debug.txt"
endfunction

function debugOutput(st$ as string)
	open to append 30, "debug.txt"
	append string 30, st$
	close append 30
endfunction