#include <SPI.h>
#include <SD.h> 

#define randomPin 2
#define soundPin 3

#define PlayMove 0	
#define PlayScript 1	
#define StartScript 2 	
#define EndScript 3	
#define JumpTo 4	
#define Label 5	
#define SyncPoint 6	
#define EndSync 7	
#define ScriptPause 8	
#define Say 9		
#define RandomMove 10	
#define RandomPause 11	
#define CallScript 12	
#define EndWait 13	
#define NetWait 14	
#define OneOnly 15	
#define ActionSeq 16


// setup move commands
#include "MoveCommands.h"
 byte MoveIndex=0;
 
 int Player;
 int MaxPlayers=0;
 int LocalIndex;
 
 int PlayerStep[32];
 unsigned long PlayerEndWait[32];
 
 
 int SyncPoints[32];
 byte SyncPointIndex=0;
 unsigned int SyncPointStatus=0;
 
 unsigned long SoundEndWait=0;
 
 byte Selections;
 
 int minPause;
 int maxPause;
 int timePause;
 int ScriptStep=0;
 
 const char* scbase[]={"#3P"};
 const char* qs[]={"VA"};
 
 boolean NotDone=true;

 int ScriptAction[127];
 int ScriptDescription[127];
 int ScriptOption[127];
 int ScriptStack[127];
 int ScriptSize;
 int MainScript;
 int EndMain;
 int ix; //debug

void setup()
{

  PlayerEndWait[0]=0ul;
  
  Serial.begin(9600);
  randomSeed(analogRead(randomPin));

// setup tokenized program
#include "CallTest1.h"

}

void loop()
{  
  // define first step
  MaxPlayers=0;
  PlayerStep[MaxPlayers] = MainScript;
//  Serial.print("Main Script Start= "); //debug
//  Serial.println(MainScript); // debug
  // debug
  // for(ix=1;ix<=12;ix++) {
  //   Serial.print("Action       ");
  //   Serial.println(ScriptAction[ix]);
  //   Serial.print("Description  ");
  //   Serial.println(ScriptDescription[ix]);
  //   Serial.print("Option       ");
  //   Serial.println(ScriptOption[ix]);
  //   Serial.print("Stack        ");
  //   Serial.println(ScriptStack[ix]);
  // }
  
  
  while (NotDone){
    Serial.println("In main loop"); // debug
    for (Player=0;Player<=MaxPlayers;Player++) {
      // speech processing here
      
Serial.print("Player ="); // debug
Serial.println(Player); // debug
Serial.print("Player Script Step= "); //debug
Serial.println(PlayerStep[Player]); // debug
Serial.print("~Player Timeout= "); //debug
Serial.println((PlayerEndWait[Player]<millis())); //debug
Serial.print("Player Active= "); // debug
Serial.println((PlayerStep[Player]!=0)); //debug

      if (((PlayerEndWait[Player]<millis())) && (PlayerStep[Player]!=0)) { 

        PlayerEndWait[Player]=0ul;
        ScriptStep=PlayerStep[Player];
        
Serial.print("Executing Action ="); // debug
Serial.println(ScriptAction[ScriptStep]);  // debug
Serial.print("Action Parameter="); // debug
Serial.println(ScriptDescription[ScriptStep]); // debug

        
        switch (ScriptAction[ScriptStep]) {
        
          case PlayMove: {
            MoveIndex=ScriptDescription[ScriptStep];
            // output MoveCommand[MoveIndex] to serial comms.
            Serial.println(MoveCommand[MoveIndex]);
            PlayerEndWait[Player]=millis()+long(ScriptOption[ScriptStep]);
            PlayerStep[Player]=ScriptStack[ScriptStep];
            break;
          }
          
          case ScriptPause: {
            PlayerEndWait[Player]=millis()+long(ScriptOption[ScriptStep]);
            PlayerStep[Player]=ScriptStack[ScriptStep];
            break;
          }
          
          case RandomPause: {
            minPause=ScriptDescription[ScriptStep];
            maxPause=ScriptOption[ScriptStep];
            timePause=int(random()*(maxPause-minPause)+minPause)/1000;
            PlayerEndWait[Player]=millis()+long(timePause);
            PlayerStep[Player]=ScriptStack[ScriptStep];
            break;
          }
  
          case CallScript: {
            LocalIndex=ScriptDescription[ScriptStep];
	    while ((LocalIndex <= ScriptSize) && (ScriptAction[LocalIndex] != EndScript)) LocalIndex+=1;
                if (LocalIndex < ScriptSize) {
		// set the option value in the EndScript to point to the next step
                Serial.print("Call Return Step="); //debug
                Serial.println(LocalIndex);
                ScriptStack[LocalIndex]=ScriptStack[ScriptStep];
		PlayerStep[Player]=ScriptDescription[ScriptStep];
		PlayerEndWait[Player]=millis()+long(ScriptOption[ScriptStep]/1000);
                }
            break;
          }
          
          case PlayScript: {
            int IndexPlayers=1;
            while (IndexPlayers <= MaxPlayers) {
              if (PlayerStep[IndexPlayers]!=0) IndexPlayers++;
              if (IndexPlayers > MaxPlayers) MaxPlayers++;
              PlayerStep[IndexPlayers]=ScriptDescription[ScriptStep];
              PlayerEndWait[IndexPlayers]=0;
              PlayerStep[Player]=ScriptStack[ScriptStep];
              PlayerEndWait[Player]=millis()+long(ScriptOption[ScriptStep]/1000);
              }
            break;
          }
          
          case EndScript: {
            PlayerStep[Player]=ScriptStack[ScriptStep];
            ScriptStack[ScriptStep] = 0;
            NotDone = (ScriptStep != EndMain);
            break;
          }
                  
          case JumpTo: {
             PlayerStep[Player] = ScriptDescription[ScriptStep];
 Serial.println();
 Serial.println();
 Serial.println();
 Serial.println();
              break; 
          }
          
          case SyncPoint: {
            SyncPointIndex=ScriptDescription[ScriptStep];
            SyncPoints[SyncPointIndex] = SyncPoints[SyncPointIndex] | (2^Player);
            PlayerStep[Player] = ScriptStack[ScriptStep];
            break;
          }
          
          case EndSync: {
            SyncPointIndex=ScriptDescription[ScriptStep];
            SyncPointStatus = SyncPoints[SyncPointIndex] & (! 2^Player);
            SyncPoints[SyncPointIndex] = SyncPointStatus;
            if (SyncPoints[SyncPointIndex] == 0) {
              PlayerStep[Player] = ScriptStack[ScriptStep];
            }
            break;
          }
          
          case OneOnly: {
            if (ScriptOption[ScriptStep]==0) {
              LocalIndex=ScriptStep+1;
              do {
                if (ScriptAction[LocalIndex] == EndSync) break;
                LocalIndex+=1;
              } while (LocalIndex <= ScriptSize);
              ScriptOption[ScriptStep] = LocalIndex;
            }
            break;
          }
          
          case RandomMove: {
            Selections=ScriptDescription[ScriptStep];
            MoveIndex=int(random()*Selections)+1;
            PlayerStep[Player]=ScriptStep+MoveIndex;
            break;
          }
          
          case ActionSeq: {
            LocalIndex=ScriptStack[ScriptStep];
            PlayerStep[Player]=ScriptStack[ScriptStep];
            LocalIndex+=1;
            if (LocalIndex > ScriptOption[ScriptStep]) LocalIndex=ScriptDescription[ScriptStep];
            ScriptStack[ScriptStep] = LocalIndex;
            break;
          }
          
          case Say: {
            break;
          }
      }    
    }
  }
 }
}