#include maps/mp/_createfxmenu;
#include maps/mp/_createfx;
#include maps/mp/_utility;
#include common_scripts/utility;

store_undo_state( change_type, ents )
{
	if ( !isDefined( level.cfx_undo_states ) )
	{
		level.cfx_undo_states = [];
		level.cfx_redo_states = [];
		level.cfx_limbo_state = spawnstruct();
		level.cfx_max_states = 10;
	}
	if ( !isarray( ents ) )
	{
		ents = array( ents );
	}
	temp_array = [];
	i = 0;
	while ( i < ents.size )
	{
		temp_array[ i ] = copy_fx_ent( ents[ i ] );
		i++;
	}
	state = spawnstruct();
	state.operation = change_type;
	state.last_action = level.cfx_last_action;
	state.ent_array = temp_array;
	if ( level.cfx_undo_states.size >= level.cfx_max_states )
	{
		level.cfx_undo_states = array_drop( level.cfx_undo_states );
	}
	level.cfx_undo_states[ level.cfx_undo_states.size ] = state;
	level.cfx_redo_states = [];
	level.cfx_limbo_state = undefined;
	debug_print_latest_state( "undo" );
}

undo()
{
	if ( isDefined( level.createfxent ) || !isDefined( level.cfx_undo_states ) && level.cfx_undo_states.size < 1 )
	{
		return;
	}
	revert_state = level.cfx_undo_states[ level.cfx_undo_states.size - 1 ];
	if ( level.cfx_last_action != "none" )
	{
		store_undo_state( "edit", level.selected_fx_ents );
		move_undo_state_to_redo();
		clear_entity_selection( "skip_undo" );
		apply_state_change( "undo", revert_state );
		move_undo_state_to_limbo();
		level.cfx_last_action = "none";
	}
	else clear_entity_selection( "skip_undo" );
	if ( revert_state.operation != "edit" )
	{
		apply_state_change( "undo", revert_state );
		move_undo_state_to_redo();
		level.cfx_last_action = "none";
	}
	else if ( isDefined( level.cfx_limbo_state ) )
	{
		move_limbo_state_to_redo();
		apply_state_change( "undo", revert_state );
		move_undo_state_to_limbo();
		level.cfx_last_action = "none";
	}
	else
	{
		if ( level.cfx_undo_states.size > 1 )
		{
			move_undo_state_to_redo();
			revert_state = level.cfx_undo_states[ level.cfx_undo_states.size - 1 ];
		}
		apply_state_change( "undo", revert_state );
		move_undo_state_to_limbo();
	}
}

apply_state_change( type, revert_state )
{
	if ( type == "undo" )
	{
/#
		println( "^2CreateFX: Undo operation" );
#/
		if ( revert_state.operation == "edit" )
		{
			undo_edit( revert_state.ent_array );
		}
		else if ( revert_state.operation == "add" )
		{
			undo_add( revert_state.ent_array );
		}
		else
		{
			if ( revert_state.operation == "delete" )
			{
				undo_delete( revert_state.ent_array );
			}
		}
	}
	else /#
	println( "^2CreateFX: Redo operation" );
#/
	if ( revert_state.operation == "edit" )
	{
		undo_edit( revert_state.ent_array );
	}
	else if ( revert_state.operation == "add" )
	{
		undo_delete( revert_state.ent_array );
	}
	else
	{
		if ( revert_state.operation == "delete" )
		{
			undo_add( revert_state.ent_array );
		}
	}
}

move_undo_state_to_redo()
{
	if ( level.cfx_redo_states.size >= level.cfx_max_states )
	{
		level.cfx_redo_states = array_drop( level.cfx_redo_states );
	}
	level.cfx_redo_states[ level.cfx_redo_states.size ] = level.cfx_undo_states[ level.cfx_undo_states.size - 1 ];
	level.cfx_undo_states = array_pop( level.cfx_undo_states );
	debug_print_latest_state( "undo" );
	debug_print_latest_state( "redo" );
}

move_redo_state_to_undo()
{
	if ( level.cfx_undo_states.size >= level.cfx_max_states )
	{
		level.cfx_undo_states = array_drop( level.cfx_undo_states );
	}
	level.cfx_undo_states[ level.cfx_undo_states.size ] = level.cfx_redo_states[ level.cfx_redo_states.size - 1 ];
	level.cfx_redo_states = array_pop( level.cfx_redo_states );
	debug_print_latest_state( "undo" );
	debug_print_latest_state( "redo" );
}

move_undo_state_to_limbo()
{
	level.cfx_limbo_state = level.cfx_undo_states[ level.cfx_undo_states.size - 1 ];
	level.cfx_undo_states = array_pop( level.cfx_undo_states );
	debug_print_latest_state( "undo" );
	debug_print_latest_state( "limbo" );
}

move_redo_state_to_limbo()
{
	level.cfx_limbo_state = level.cfx_redo_states[ level.cfx_redo_states.size - 1 ];
	level.cfx_redo_states = array_pop( level.cfx_redo_states );
	debug_print_latest_state( "redo" );
	debug_print_latest_state( "limbo" );
}

move_limbo_state_to_undo()
{
	if ( level.cfx_undo_states.size >= level.cfx_max_states )
	{
		level.cfx_undo_states = array_drop( level.cfx_undo_states );
	}
	level.cfx_undo_states[ level.cfx_undo_states.size ] = level.cfx_limbo_state;
	level.cfx_limbo_state = undefined;
	debug_print_latest_state( "undo" );
	debug_print_latest_state( "limbo" );
}

move_limbo_state_to_redo()
{
	if ( level.cfx_redo_states.size >= level.cfx_max_states )
	{
		level.cfx_redo_states = array_drop( level.cfx_redo_states );
	}
	level.cfx_redo_states[ level.cfx_redo_states.size ] = level.cfx_limbo_state;
	level.cfx_limbo_state = undefined;
	debug_print_latest_state( "redo" );
}

undo_edit( ent_array )
{
	ent_array = reorder_ent_array_by_uniqueid( ent_array );
/#
	println( "^3CreateFX: Undoing edit" );
	debug_print_ent_array( ent_array, "ent_array[]" );
	debug_print_ent_array( level.createfxent, "level.createFXent[]" );
#/
	last_id = ent_array[ ent_array.size - 1 ].uniqueid;
	if ( last_id > ( level.createfxent.size - 1 ) )
	{
		last_id = level.createfxent.size - 1;
	}
	j = ent_array.size - 1;
	source_ent = ent_array[ j ];
	i = last_id;
	while ( i >= 0 )
	{
		target_ent = level.createfxent[ i ];
		if ( source_ent.uniqueid == target_ent.uniqueid )
		{
			copy_values_between_fx_ents( source_ent, target_ent );
			select_entity( i, target_ent, "skip_undo" );
			j--;

			if ( j < 0 )
			{
				break;
			}
			else
			{
				source_ent = ent_array[ j ];
			}
			i--;

		}
	}
	update_selected_entities();
/#
	println( "^1CreateFX: Finished edit" );
	debug_print_ent_array( level.createfxent, "level.createFXent[]" );
#/
}

undo_add( ent_array )
{
	ent_array = reorder_ent_array_by_uniqueid( ent_array );
/#
	println( "^3createfx: Undoing add." );
	debug_print_ent_array( ent_array, "ent_array[]" );
	debug_print_ent_array( level.createfxent, "level.createFXent[]" );
#/
	last_id = ent_array[ ent_array.size - 1 ].uniqueid;
	if ( last_id > ( level.createfxent.size - 1 ) )
	{
		last_id = level.createfxent.size - 1;
	}
	j = ent_array.size - 1;
	source_ent = ent_array[ j ];
	i = last_id;
	while ( i >= 0 )
	{
		target_ent = level.createfxent[ i ];
		if ( source_ent.uniqueid == target_ent.uniqueid )
		{
			if ( isDefined( target_ent.looper ) )
			{
				target_ent.looper delete();
			}
			target_ent notify( "stop_loop" );
			j--;

			if ( j < 0 )
			{
				break;
			}
			else
			{
				source_ent = ent_array[ j ];
			}
			i--;

		}
	}
/#
	debug_print_ent_array( level.createfxent, "level.createFXent[]" );
	println( "createfx: Starting array_remove_undefined()" );
#/
	arrayremovevalue( level.createfxent, undefined );
/#
	println( "^1CreateFX: Finished undo add." );
	debug_print_ent_array( level.createfxent, "level.createFXent[]" );
#/
	clear_fx_hudelements();
}

undo_delete( ent_array )
{
/#
	println( "^3CreateFX: Undoing delete" );
	debug_print_ent_array( ent_array, "ent_array in undo_delete()" );
	debug_print_ent_array( level.createfxent, "level.createFXent[]" );
#/
	ent_array = reorder_ent_array_by_uniqueid( ent_array );
	if ( level.createfxent.size == 0 )
	{
		i = 0;
		while ( i < ent_array.size )
		{
			level.createfxent[ i ] = copy_fx_ent( ent_array[ i ] );
			i++;
		}
	}
	else temp_array = [];
	i = 0;
	j = 0;
	while ( j < level.createfxent.size )
	{
		target_ent = level.createfxent[ j ];
		if ( i >= ent_array.size )
		{
			temp_array[ temp_array.size ] = target_ent;
			j++;
			continue;
		}
		else source_ent = ent_array[ i ];
		if ( target_ent.uniqueid < source_ent.uniqueid )
		{
			temp_array[ temp_array.size ] = target_ent;
			j++;
			continue;
		}
		else
		{
			temp_array[ temp_array.size ] = copy_fx_ent( source_ent );
			j--;

			i++;
		}
		j++;
	}
	while ( i < ent_array.size )
	{
		temp_array[ temp_array.size ] = ent_array[ i ];
		i++;
	}
	level.createfxent = temp_array;
/#
	println( "^1Createfx: Finished undoing delete, pre-selection" );
	debug_print_ent_array( level.createfxent, "level.createFXent[]" );
#/
	last_id = ent_array[ ent_array.size - 1 ].uniqueid;
	if ( last_id > ( level.createfxent.size - 1 ) )
	{
		last_id = level.createfxent.size - 1;
	}
	j = ent_array.size - 1;
	source_ent = ent_array[ j ];
	i = last_id;
	while ( i >= 0 )
	{
		target_ent = level.createfxent[ i ];
		if ( source_ent.uniqueid == target_ent.uniqueid )
		{
			target_ent post_entity_creation_function();
			select_entity( i, target_ent, "skip_undo" );
			j--;

			if ( j < 0 )
			{
				break;
			}
			else
			{
				source_ent = ent_array[ j ];
			}
			i--;

		}
	}
	update_selected_entities();
}

redo()
{
	if ( isDefined( level.createfxent ) || !isDefined( level.cfx_redo_states ) && level.cfx_redo_states.size < 1 )
	{
		return;
	}
	clear_entity_selection( "skip_undo" );
	if ( isDefined( level.cfx_limbo_state ) )
	{
		move_limbo_state_to_undo();
		move_redo_state_to_limbo();
		apply_state_change( "redo", level.cfx_limbo_state );
	}
	else revert_state = level.cfx_redo_states[ level.cfx_redo_states.size - 1 ];
	apply_state_change( "redo", revert_state );
	if ( revert_state.operation == "edit" )
	{
		move_redo_state_to_limbo();
	}
	else
	{
		move_redo_state_to_undo();
	}
	level.cfx_last_action = "none";
}

reorder_ent_array_by_uniqueid( ent_array )
{
	if ( ent_array.size <= 1 )
	{
		return ent_array;
	}
	array_size = ent_array.size;
	i = 0;
	while ( i < ( array_size - 1 ) )
	{
		j = i + 1;
		while ( j < array_size )
		{
			if ( ent_array[ i ].uniqueid > ent_array[ j ].uniqueid )
			{
				temp_ent = ent_array[ i ];
				ent_array[ i ] = ent_array[ j ];
				ent_array[ j ] = temp_ent;
			}
			j++;
		}
		i++;
	}
	return ent_array;
}

copy_fx_ent( ent )
{
	temp_ent = spawnstruct();
	temp_ent.drawn = ent.drawn;
	temp_ent.drawn_axis_model = ent.drawn_axis_model;
	temp_ent.last_fx_index = ent.last_fx_index;
	temp_ent.textalpha = ent.textalpha;
	temp_ent.uniqueid = ent.uniqueid;
	temp_ent.v = ent.v;
	return temp_ent;
}

copy_values_between_fx_ents( source, dest )
{
	dest.drawn = source.drawn;
	dest.drawn_axis_model = source.drawn_axis_model;
	dest.last_fx_index = source.last_fx_index;
	dest.textalpha = source.textalpha;
	dest.v = source.v;
	return dest;
}

array_pop( array )
{
	array_size = array.size - 1;
	temp_array = [];
	if ( array_size <= 0 )
	{
		return temp_array;
	}
	i = 0;
	while ( i < array_size )
	{
		temp_array[ i ] = array[ i ];
		i++;
	}
	array = temp_array;
	return array;
}

array_drop( array )
{
	if ( array.size > 0 )
	{
		temp_array = [];
		i = 1;
		while ( i < array.size )
		{
			temp_array[ i - 1 ] = array[ i ];
			i++;
		}
		array = temp_array;
	}
	return array;
}

debug_print_ent_array( array, name )
{
/#
	if ( isDefined( name ) )
	{
		println( "Printing out " + name );
	}
	else
	{
		println( "Printing out some array" );
	}
	i = 0;
	while ( i < array.size )
	{
		if ( !isDefined( array[ i ] ) )
		{
			println( "" + i + ": deleted effect" );
			i++;
			continue;
		}
		else
		{
			println( "" + i + ": uniqueid: " + array[ i ].uniqueid + "  fxid: " + array[ i ].v[ "fxid" ] );
		}
		i++;
#/
	}
}

debug_print_latest_state( type )
{
/#
	println( "^3Saving " + type + " state" );
	if ( type == "undo" )
	{
		if ( !isDefined( level.cfx_undo_states[ level.cfx_undo_states.size - 1 ] ) )
		{
			println( "There are no undo states." );
			return;
		}
		state = level.cfx_undo_states[ level.cfx_undo_states.size - 1 ];
		size = level.cfx_undo_states.size - 1;
	}
	else if ( type == "redo" )
	{
		if ( !isDefined( level.cfx_redo_states[ level.cfx_redo_states.size - 1 ] ) )
		{
			println( "There are no redo states." );
			return;
		}
		state = level.cfx_redo_states[ level.cfx_redo_states.size - 1 ];
		size = level.cfx_redo_states.size - 1;
	}
	else
	{
		if ( !isDefined( level.cfx_limbo_state ) )
		{
			println( "There is no limbo state." );
			return;
		}
		state = level.cfx_limbo_state;
		size = 0;
	}
	println( "State " + size + " - " + state.operation + ": " + state.last_action );
	debug_print_ent_array( state.ent_array, "save state ent_array" );
#/
}