//Combo Scripts v0.3
//26th August, 2019
refInfo comboScriptData[176*7];
word combo_doscript[176] = {0}; //one bit per layer
byte combo_waitdraw[176] = {0}; //one bit per layer
byte combo_initialised[176] = {0}; //one bit per layer
int comboscript_combo_ids[176*7] = {0};
long combo_stack[176*7][MAX_SCRIPT_REGISTERS];

//Add to refInfo class: comboposref, used for layer and positional data for special combo script functions

void init_combo_doscript()
{
	for ( int q = 0; q < 1232; q++ ) combo_doscript[q] = 1;
}
void clear_combo_refinfo()
{
	for ( int q = 0; q < 1232; q++ )
		comboScriptData[q].Clear();
}

void clear_combo_refinfo(int pos)
{
	comboScriptData[pos].Clear();
}

void clear_combo_stacks()
{
	for ( int q = 0; q < 1232; q++ )
		memset(combo_stack[q], 0, sizeof(combo_stack[q]));
}
void clear_combo_stack(int q)
{
	memset(combo_stack[q], 0, sizeof(combo_stack[q]));
}

void clear_combo_initialised()
{
	memset(combo_initialised, 0, sizeof(combo_initialised));
}

//c+176*q : This tells the interpreter which combo pos and which layer it is running.
//used for X(), Y(), Layer() and Pos()

//RunScript
case SCRIPT_COMBO:
{
	ri = &(comboScriptData[i]);

	curscript = comboscripts[script];
	stack = &(combo_stack[i]);
	int pos = ((i%176));
	int id = comboscript_combo_ids[i]; 

	if(!(combo_initialised[pos]&l))
	{
		memset(ri->d, 0, 8 * sizeof(long));
		for ( int q = 0; q < COMBOINITDMAX; q++ )
			ri->d[q] = combosbuf[m->data[id]].initD[q];
	}

	ri->combosref = id; //'this' pointer
	ri->comboposref = i; //used for X(), Y(), Layer(), and so forth.
}

//Quit
case SCRIPT_COMBO:
{
	int l = 0; //get the layer
	for int q = 176; q < 1232; q+= 176 )
	{
		if ( i < q )
		{
			break;
		}
		++l;
	}
	int pos = ((i%176));
	combo_doscript[pos] &=  ~(1<<l);
	combo_initialised[pos] &=  ~(1<<l);
	
	FFScript::deallocateAllArrays(type, i); //need to add combo arrays

	break;
}

void ComboScriptEngine()
{
	
	for ( int q = 0; q < ; q++ )
	{
		if (!get_bit(quest_rules, qrCOMBO_SCRIPTS_RUN_ON_LAYER_0+q)) continue;
		for ( int c = 0; c < 176; c++ )
		{
			if ( !q )
			{
				//layer 0
				if ( combosbuf[tmpscr->data[c]].script )
				{
					if ( combo_doscript[c] & 1 )
					{
						combo_doscript[c] |= 1;
						comboscript_combo_ids[c+(176*q)] = tmpscr->data[c];
						ZScriptVersion::RunScript(SCRIPT_COMBO, combosbuf[tmpscr->data[c].script, c+(176*q));
					}
				}
			}
			else //higher layers
			{
				int ls = tmpscr->layerscreen[q];
				int lm = tmpscr->layermap[q];
				mapscr *m = &TheMaps[(zc_max((lm)-1,0) * MAPSCRS + ls)];
				if ( combosbuf[m->data[c]].script )
				{
					if ( combo_doscript[c] & (1<<q) )
					{
						combo_doscript[c] |= (1<<q);
						comboscript_combo_ids[c+(176*q)] = m->data[c];
						ZScriptVersion::RunScript(SCRIPT_COMBO, combosbuf[m->data[c]].script, c=176*q);
					}
				}
			}
		}
	}
}
				

//tba
void deallocateComboArrays();

int getComboDataLayer(int c, int scripttype)
{
	if ( scripttype != SCRIPT_COMBO )
	{
		Z_scripterrorlog("combodata->Layer() only runs from combo scripts, not from script type &s\n", scripttypenames[scripttype]);
		return -1;
	}
	else
	{
		int l = 0;
		for int q = 176; q < 1232; q+= 176 )
		{
			if ( c < q )
			{
				return l;
			}
			++l;
		}
	}
}

int getCombodataPos(int c, int scripttype)
{
	if ( scripttype != SCRIPT_COMBO )
	{
		Z_scripterrorlog("combodata->YPos() only runs from combo scripts, not from script type &s\n", scripttypenames[scripttype]);
		return -1;
	}
	else return ((c%176));
}

int getCombodataX(int c, int scripttype)
{
	if ( scripttype != SCRIPT_COMBO )
	{
		Z_scripterrorlog("combodata->X() only runs from combo scripts, not from script type &s\n", scripttypenames[scripttype]);
		return -1;
	}
	else
	{
		int pos = getCombodataPos(c);
		return COMBOX(pos);
	}
}

int getCombodataY(int c, int scripttype)
{
	if ( scripttype != SCRIPT_COMBO )
	{
		Z_scripterrorlog("combodata->Y() only runs from combo scripts, not from script type &s\n", scripttypenames[scripttype]);
		return -1;
	}
	else
	{
		int pos = getCombodataPos(c);
		return COMBOY(pos);
	}
}