#include common_scripts\utility;
#include maps\_utility;
#include maps\_anim;

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 																											
											CONFUSED? NEED HELP?											
																											
										come grab me: mohammad alavi										 
										badmofo@infinityward.com																	
										extention: 8044														
																											*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 	
  												 B A S I C S		 										  

  										HOW TO USE STEALTH SYSTEM 											  

  							( follow in this order )															  
  							1. call maps\_stealth_logic::main(); in your main level script					  
  							2. call maps\_stealth_behavior::main(); in your main level script				  
  							3. you're going to have a couple fastfile errors for animations and
  								missing rawfiles, fix those.  																											  			
  							4. call maps\_utility::stealth_ai on all ai and the player						  
  										
  							 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- - 	
  										
  											USEFUL FUNCTIONS
  							( documentation in _utility and script docs ):
  							
  							// knowing when AI are alerted to something	
	  							maps\_utility::stealth_enemy_waittill_alert
	  							maps\_utility::stealth_enemy_endon_alert
  						  							
  						  	// setting up custom idle and alerted reaction animations
								maps\_utility::stealth_ai_idle_and_react
								maps\_utility::stealth_ai_reach_idle_and_react
								maps\_utility::stealth_ai_reach_and_arrive_idle_and_react
								maps\_utility::stealth_ai_clear_custom_idle_and_react
								maps\_utility::stealth_ai_clear_custom_react
  																							  
  																											*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 	 																											  
  												A D V A N C E D												  					
  																											  						
  										HOW TO CREATE CUSTOM STEALTH BEHAVIOR								  					
  																											  						
  							the stealth code is split up into 2 major systems: logic and behavior.			  
  							the logic code is independent of the behavior code, which means it can			  
  							run by itself.  The behavior code however is dependant on messages from			  
  							the logic code and cannot run by itself. Both the level and all ai have			  
  							a spawnstruct '._stealth'.  Inside this struct are 2 more structs 				  
  							'.logic', and '.behavior'.  Everything to do with logic goes into 				  
  							'._stealth.logic' and with behavior goes into '._stealth.behavior'				  
  																											  
  							 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- - 			  
  																											  
  							CONCEPT OF LOGIC CODE:															  
  																											  	
  							the logic code doesn't actually tell the AI to do anything, it just 			  
  							detects whether the friendlies have been spotted, corpses have been 			  
  							found, etc, etc.  It then sets flags / sends notifies to ai.						  
  																											  							
  							Code gives axis ai an enemy on a couple different factors that the logic 		  
  							code tweaks( such as the distance an AI can hear footsteps, gunshots, 			  
  							teammates dying, etc ). The logic code also dictates how far an axis ai 		  
  							can even see an enemy based on a score calculated by the enemy's stance, 		  
  							movement speed, and	current level of awareness of the axis team.		 		  
  																											  							
  							So the logic code in a nutshell, is a simple loop that detects when 			  
  							an axis ai receives an enemy, and then clears that enemy.  this keeps			  
  							the axis from just opening fire at first sight.  It instead raises his			  
  							awareness level and possibly the whole teams if the enemy is spotted 			  
  							more than once. -- > flag_set( "_stealth_alert" );										  
  																											  							
  							If friendlies or the player are spotted enough times - OR - something 			  
  							VERY bad happens like an death or a gunshot, then we skip 					  
  							intermediate levels of detection and go straight to full level of 				  
  							awareness. -- > flag_set( "_stealth_spotted" );											  
  																											  	
  							 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- - 			  
  																											  							
  							CHANGING THE BEHAVIOR CODE:														  
  																											  							
  							METHOD 1:																		  
  							there are 2 ways to change the behavior code, one would be to write				  
  							your own from scratch...this is not recommended.  However if you do 			  
  							want to do this, you basically need the following:								  
  																											  							
  							1. a system loop which handles global ai settings based on the 3 level			  
  								flag messages: 'hidden', 'alert', and 'spotted'; The messages				  
  								for this are sent from all over, but they can all be traced back 			  	
  								to the function:															  
  								_stealth_logic::enemy_threat_logic();										  
  							2. a loop for individual ai based on team which handles their behavior 			  
  								based on the same 3 flag messages.											  
  							3. functions for axis ai which handle thir 3 personal levels of 				  
  								awareness and what to do when they see / find a corpse.  This is the			  
  								the "huh", "what happened", "oh shit enemy" behavior. The messages			  
  								for this are sent in the functions:											  
  								_stealth_logic::enemy_alert_level_change( type, enemy );					  
  								_stealth_logic::enemy_corpse_logic();	
  							4. functions to handle awareness of certain events as well as reactionary
  								animations for such events...the notifies for these often overlap
  								the functions above so you'll need more animation functions than
  								behavioral...the messages for these are sent by:
  								_stealth_logic::enemy_event_awareness( type )
  							
  							
  							 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- - 	
  																	    				  																											  							
  							METHOD 2:																		  
  							the easier and recommended way to change the behavior is to replace				  
  							certain key functions the behavior code is running with your own. 				  
  							These functions can easily be replaced when calling the init functions 			  
  							for behavior: 																	  
  																											  							
  							_stealth_behavior::system_init( state_functions );										  
  							_stealth_behavior::enemy_logic( state_funcs, alert_funcs, corpse_funcs, awareness_funcs );		  
  							_stealth_behavior::friendly_logic( state_functions );							  
  																											  							
  							the utility function which should be called on all ai is where you should 		  	
  							most likely be passing the parameters. It handles both enemy_logic			  	
  							and friendly_logic( documentation in _utility and script docs ):															  	
  								 - _utility::stealth_ai( state_funcs, alert_funcs, corpse_funcs )			  	
  								 - note = you should generally not send the same state_funcion to both		  	
  								 - axis ai and friendly ai...	  	
  																											  							
  							all the parameters are arrays of function pointers( and are optional )			  
  																											  							
  							 - state_functions is an array of 3 with keys 'hidden', 'alert', and 			  
  							'spotted'. 																		  
  								 - For ::system_init(), it's an array of 3 functions that handle global 			  
  								state changes for all AI. 													  
  								example = _stealth_behavior::system_state_alert()							  
  								 - For ::enemy_logic() and ::friendly_logic, they handle individual 			  
  								changes per AI based on state.												  
  								example1 = _stealth_behavior::enemy_state_spotted()							  
  								example2 = _stealth_behavior::friendly_state_spotted()						  
  								 - notice friendly_logic() only takes the state_functions array				  
  								and not the other 2...that's because it's assumed friendly behavior			  
  								only changes based on global state of awereness for the axis team, 			  
  								not indivual states	of awareness for axis ai.								  
  																											  							
  							 - alert_functions is an array of 4 with keys "reset", "alerted_once", 
  							"alerted_again", and "attack" that represent individual states of 
  							awareness of axis ai.										  
  								 - this is where the bread and butter of the "huh", "what's that"				  
  								behavior is derived.  highly suggested to look at the function: 			  
  								_stealth_logic::enemy_alert_level_logic( enemy ) to see how 				  
  								these awareness states are reached in the logic code.  Also for 			  
  								examples of the behavior aspect of this code look here:						  
  								example1 = _stealth_behavior::enemy_alert_level_alerted_once( enemy )		  
  								example2 = _stealth_behavior::enemy_alert_level_alerted_again( enemy )		  
  								example3 = _stealth_behavior::enemy_alert_level_attack( enemy )				  
  								example4 = _stealth_behavior::enemy_alert_level_lostem( enemy )				  
  																											  							
  							 - corpse_functions is an array 2 with keys 'saw' and 'found' that 				  
  							represent individual and team states of awareness of a corpse					  
  								 - these slightly tie into the enemy_alert_level * functions above				  
  								in the behavior code, so probably a good idea to look at these 				  
  								examples:																	  
  								example1 = enemy_saw_corpse_logic();										  
  								example2 = enemy_found_corpse_loop();		
  							
  							you can also set these functions after init is called( documentation in 
  							_utility and script docs ):
  							
  								maps\_utility::stealth_ai_state_functions_set
	  							maps\_utility::stealth_ai_state_functions_default
	  							maps\_utility::stealth_ai_alert_functions_set
	  							maps\_utility::stealth_ai_alert_functions_default
	  							maps\_utility::stealth_ai_corpse_functions_set
	  							maps\_utility::stealth_ai_corpse_functions_default
	  							maps\_utility::stealth_ai_awareness_functions_set
	  							maps\_utility::stealth_ai_awareness_functions_default	
							
							and here are some usefull functions which change the detection distances
							that enemy ai will see you or your friendlies
							
								maps\_utility::stealth_detect_ranges_set
	  							maps\_utility::stealth_detect_ranges_default
	  							maps\_utility::stealth_friendly_movespeed_scale_set
	  							maps\_utility::stealth_friendly_movespeed_scale_default												  
  							
  							 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- - 	
  																											  							
  							lastly...the friendlies have a section of code in behavior which				  
  							is a smart stance handler( they'll go into crouch or prone or lay 				  
  							still ) depending on a couple factors...if you want to turn this off				  
  							just use the ent_flag_clear( "_stealth_stance_handler" ) on the ai	
  							
  							here are some usefull functions that change the distances at which
  							your friendlies use their smart stance logic to switch stances or 
  							lay still
  							
  								maps\_utility::stealth_friendly_stance_handler_distances_set
	  							maps\_utility::stealth_friendly_stance_handler_distances_default				  	
  																											*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

main( state_functions )
{
	system_init( state_functions );
	thread system_message_loop();	
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 						STEALTH BEHAVIOR UTILITIES...good calls for specific tweakage						*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
friendly_default_stance_handler_distances()
{
	// i do this because the player doesn't look as bad sneaking up on the enemies
	// friendlies however don't look as good getting so close
	hidden = [];
	hidden[ "looking_away" ][ "stand" ] 	 = 500;
	hidden[ "looking_away" ][ "crouch" ] 	 = -400;
	hidden[ "looking_away" ][ "prone" ] 	 = 0;
	
	hidden[ "neutral" ][ "stand" ] 			 = 500;
	hidden[ "neutral" ][ "crouch" ] 			 = 200;
	hidden[ "neutral" ][ "prone" ] 			 = 50;
	
	hidden[ "looking_towards" ][ "stand" ] 	 = 800;
	hidden[ "looking_towards" ][ "crouch" ] 	 = 400;
	hidden[ "looking_towards" ][ "prone" ] 	 = 100;
	
	
	alert = [];
	alert[ "looking_away" ][ "stand" ] 		 = 800;
	alert[ "looking_away" ][ "crouch" ] 	 = 300;
	alert[ "looking_away" ][ "prone" ] 		 = 100;
	
	alert[ "neutral" ][ "stand" ] 			 = 900;
	alert[ "neutral" ][ "crouch" ] 			 = 700;
	alert[ "neutral" ][ "prone" ] 			 = 500;
	
	alert[ "looking_towards" ][ "stand" ] 	 = 1100;
	alert[ "looking_towards" ][ "crouch" ] 	 = 900;
	alert[ "looking_towards" ][ "prone" ] 	 = 700;
	
	friendly_set_stance_handler_distances( hidden, alert );
}

friendly_set_stance_handler_distances( hidden, alert )
{
	if ( isdefined( hidden ) )
	{
		self._stealth.behavior.stance_handler[ "hidden" ][ "looking_away" ][ "stand" ] 		 = hidden[ "looking_away" ][ "stand" ];
		self._stealth.behavior.stance_handler[ "hidden" ][ "looking_away" ][ "crouch" ] 	 = hidden[ "looking_away" ][ "crouch" ];
		self._stealth.behavior.stance_handler[ "hidden" ][ "looking_away" ][ "prone" ] 		 = hidden[ "looking_away" ][ "prone" ];
		
		self._stealth.behavior.stance_handler[ "hidden" ][ "neutral" ][ "stand" ] 			 = hidden[ "neutral" ][ "stand" ];
		self._stealth.behavior.stance_handler[ "hidden" ][ "neutral" ][ "crouch" ] 			 = hidden[ "neutral" ][ "crouch" ];
		self._stealth.behavior.stance_handler[ "hidden" ][ "neutral" ][ "prone" ] 			 = hidden[ "neutral" ][ "prone" ];
		
		self._stealth.behavior.stance_handler[ "hidden" ][ "looking_towards" ][ "stand" ] 	 = hidden[ "looking_towards" ][ "stand" ];
		self._stealth.behavior.stance_handler[ "hidden" ][ "looking_towards" ][ "crouch" ] 	 = hidden[ "looking_towards" ][ "crouch" ];
		self._stealth.behavior.stance_handler[ "hidden" ][ "looking_towards" ][ "prone" ] 	 = hidden[ "looking_towards" ][ "prone" ];
	}
	if ( isdefined( alert ) )
	{
		self._stealth.behavior.stance_handler[ "alert" ][ "looking_away" ][ "stand" ] 		 = alert[ "looking_away" ][ "stand" ];
		self._stealth.behavior.stance_handler[ "alert" ][ "looking_away" ][ "crouch" ] 		 = alert[ "looking_away" ][ "crouch" ];
		self._stealth.behavior.stance_handler[ "alert" ][ "looking_away" ][ "prone" ] 		 = alert[ "looking_away" ][ "prone" ];
		
		self._stealth.behavior.stance_handler[ "alert" ][ "neutral" ][ "stand" ] 				 = alert[ "neutral" ][ "stand" ];
		self._stealth.behavior.stance_handler[ "alert" ][ "neutral" ][ "crouch" ] 			 = alert[ "neutral" ][ "crouch" ];
		self._stealth.behavior.stance_handler[ "alert" ][ "neutral" ][ "prone" ] 				 = alert[ "neutral" ][ "prone" ];
		
		self._stealth.behavior.stance_handler[ "alert" ][ "looking_towards" ][ "stand" ] 		 = alert[ "looking_towards" ][ "stand" ];
		self._stealth.behavior.stance_handler[ "alert" ][ "looking_towards" ][ "crouch" ] 	 = alert[ "looking_towards" ][ "crouch" ];
		self._stealth.behavior.stance_handler[ "alert" ][ "looking_towards" ][ "prone" ] 		 = alert[ "looking_towards" ][ "prone" ];
	}	
}

enemy_try_180_turn( pos )
{
	if ( self._stealth.logic.dog )
		return;
		
	vec1 = anglestoforward( self.angles );
	vec2 = vectornormalize( pos - self.origin );
	// if the goal is behind him - do a 180 anim
	if ( vectordot( vec1, vec2 ) < - .8 )
	{
		// is there an obstacle in his way
		start = self.origin + ( 0, 0, 16 );
		end = pos + ( 0, 0, 16 );
		
		spot = physicstrace( start, end );
		if ( spot == end )			
			self anim_generic( self, "patrol_turn180" );
	}
}

enemy_go_back( spot )
{	
	self notify( "going_back" );
	self endon( "death" );
	
	self notify( "stop_loop" );
	
	self enemy_try_180_turn( spot );
	
	if ( isdefined( self.script_patroller ) )
	{
		if ( isdefined( self.last_patrol_goal ) )
			self.target = self.last_patrol_goal.targetname;
		
		self thread maps\_patrol::patrol();
	}
	else
	{
		if ( !self._stealth.logic.dog )
		{
			self set_generic_run_anim( "patrol_walk", true );
			self.disablearrivals = true;
			self.disableexits = true;	
		}
		
		if ( ! self MayMoveToPoint( spot ) )
		{
			nodes = enemy_get_closest_pathnodes( 128, spot );
			
			if( !nodes.size )
				return; 
			
			nodes = get_array_of_closest( spot, nodes );
			spot = nodes[ 0 ].origin;
		}
		
		self setgoalpos( spot );
		self.goalradius = 40;
	}
}

ai_create_behavior_function( name, key, function, array )
{
	self._stealth.behavior.ai_functions[ name ][ key ] = function;
}

ai_change_ai_functions( name, functions )
{
	if ( !isdefined( functions ) )
		return;
		
	keys = getarraykeys( functions );
	for ( i = 0; i < keys.size; i++ )
	{
		key = keys[ i ];
		self ai_change_behavior_function( name, key, functions[ key ] );
	}
}

ai_change_behavior_function( name, key, function, array )
{
	 /#
	if ( !isdefined( self._stealth.behavior.ai_functions[ name ][ key ] ) )
	{
		// draw whatever you like
		msg = "";
		if ( isdefined( array ) )
		{
			keys = getarraykeys( array );
			for ( i = 0; i < keys.sise; i++ )
			{
				msg += keys[ i ];
				msg += ", ";	
			}
			assertmsg( "array index with key: " + key + " is not valid. valid array keys are: " + msg );	
		}
		else
		{
			assertmsg( "Failed to add stealth function " + key );
		}
		return;
	}
	#/ 

	self ai_create_behavior_function( name, key, function, array );
}

ai_clear_custom_animation_reaction()
{
	self._stealth.behavior.event.custom_animation = undefined;	
}

ai_clear_custom_animation_reaction_and_idle()
{
	// could have been cleared by something else
	if ( !isdefined( self._stealth.behavior.event.custom_animation ) )
		return;
		
	self._stealth.behavior.event.custom_animation.node notify( "stop_loop" );
	self stopanimscripted();
	self ai_clear_custom_animation_reaction();
}

ai_set_custom_animation_reaction( node, anime, tag, ender )
{
	self._stealth.behavior.event.custom_animation = spawnstruct();
	
	self._stealth.behavior.event.custom_animation.node = node;
	self._stealth.behavior.event.custom_animation.anime = anime;
	self._stealth.behavior.event.custom_animation.tag = tag;
	self._stealth.behavior.event.custom_animation.ender = ender;
	self thread ai_animate_props_on_death( node, anime, tag, ender );
}

ai_animate_props_on_death( node, anime, tag, ender )
{
	wait .1;
	if( !isdefined( self.anim_props ) )
		return;
		
	prop = self.anim_props;
	
	self waittill( "death" );

	if( isdefined( self.anim_props_animated ) )
		return;
		
	node thread anim_single( prop, anime );	
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 								GLOBAL STEALTH BEHAVIOR FOR FRIENDLIES AND ENEMIES							*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

system_init( state_functions )
{
	assertEX( isdefined( level._stealth ), "There is no level._stealth struct.  You ran stealth behavior before running the detection logic.  Run _stealth_logic::main() in your level load first" );
	
	// this is our behavior struct inside of _stealth...everything we do will go in here.
	level._stealth.behavior = spawnstruct();
	
	// bools to see if a sound has just been played
	level._stealth.behavior.sound = [];
	level._stealth.behavior.sound[ "huh" ] 		 = false;
	level._stealth.behavior.sound[ "hmph" ] 	 = false;
	level._stealth.behavior.sound[ "wtf" ] 		 = false;
	level._stealth.behavior.sound[ "spotted" ] 	 = false;
	level._stealth.behavior.sound[ "corpse" ] 	 = false;
	level._stealth.behavior.sound[ "alert" ] 	 = false;	
	
	level._stealth.behavior.corpse = spawnstruct();
	level._stealth.behavior.corpse.last_pos = ( 0, 0, -100000 );
	level._stealth.behavior.corpse.search_radius = 512;
	level._stealth.behavior.corpse.node_array = undefined;
	level._stealth.behavior.event_explosion_index = 5;
	
	level._stealth.behavior.system_state_functions = [];
	system_init_state_functions( state_functions );
	
	maps\_stealth_anims::main();
	
	flag_init( "_stealth_searching_for_nodes" );
	flag_init( "_stealth_getallnodes" );
	flag_init( "_stealth_event" );	
}

system_init_state_functions( state_functions )
{
	custom_state_functions = false;
	if ( isdefined( state_functions ) )
	{
		if ( isdefined( state_functions[ "hidden" ] ) && 
			isdefined( state_functions[ "alert" ] ) && 
			isdefined( state_functions[ "spotted" ] ) )
		{
			custom_state_functions = true;
		}
		else
		{
			assertmsg( "you sent _stealth_behavior::main( <option_state_function_array> ) a variable but it was invalid.  The variable needs to be an array of 3 indicies with values 'hidden', 'alert' and 'spotted'.  These indicies must be function pointers to the system functions you wish to handle those 3 states." );
		}
	}
	if ( !custom_state_functions )
	{	
		system_set_state_function( "hidden", ::system_state_hidden );
		system_set_state_function( "alert", ::system_state_alert );
		system_set_state_function( "spotted", ::system_state_spotted );
	}
	else
	{
		system_set_state_function( "hidden", state_functions[ "hidden" ] );
		system_set_state_function( "alert", state_functions[ "alert" ] );
		system_set_state_function( "spotted", state_functions[ "spotted" ] );
	}
}

system_message_loop()
{
	funcs = level._stealth.behavior.system_state_functions;
	// these handle global "what to do" based on current state
	thread system_message_handler( "_stealth_hidden", 	funcs[ "hidden" ] );
	thread system_message_handler( "_stealth_alert", 	funcs[ "alert" ] );
	thread system_message_handler( "_stealth_spotted", 	funcs[ "spotted" ] );
}

system_message_handler( _flag, function )
{
	while ( 1 )
	{
		flag_wait( _flag );
		thread [[ function ]]();
		
		flag_waitopen( _flag );
	}
}

system_state_spotted()
{
	battlechatter_on( "axis" );
}

system_state_alert()
{
	level._stealth.behavior.sound[ "spotted" ] = false;
	battlechatter_off( "axis" );
	setDvar( "bcs_stealth", "" );
// 	battlechatter_off( "allies" );	
}

system_state_hidden()
{
	level._stealth.behavior.sound[ "spotted" ] = false;
	battlechatter_off( "axis" );
	setDvar( "bcs_stealth", "1" );
	animscripts\battlechatter::resetNextSayTimes( "allies", "threat" );
// 	battlechatter_off( "allies" );	
}

system_set_state_function( detection_state, function )
{
	if ( !( detection_state == "hidden" ||  detection_state == "alert" ||  detection_state == "spotted" ) )
		assertmsg( "you sent _stealth_behavior::system_set_state_function( <detection_state> , <function> ) a bad detection state. Only valid states are 'hidden', 'alert', and 'spotted'" );
	
	level._stealth.behavior.system_state_functions[ detection_state ] = function;
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 									INDIVIDUAL STEALTH BEHAVIOR FOR ENEMIES									*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

enemy_logic( state_functions, alert_functions, corpse_functions, awareness_functions )
{	
	self enemy_init( state_functions, alert_functions, corpse_functions, awareness_functions );
	self thread enemy_Message_Loop();// state functions effect this
	self thread enemy_Threat_Loop();// alert functinos effect this
	self thread enemy_Awareness_Loop();
	self thread enemy_Animation_Loop();
	self thread enemy_Corpse_Loop();// corpse functions effect this
}


enemy_init( state_functions, alert_functions, corpse_functions, awareness_functions )
{
	assertEX( isdefined( self._stealth ), "There is no self._stealth struct.  You ran stealth behavior before running the detection logic.  Run _stealth_logic::enemy_init() on this AI first" );
	
	// this is our behavior struct inside of _stealth...everything we do will go in here.
	self._stealth.behavior = spawnstruct();	
		
	self._stealth.behavior.sndnum 	 = randomintrange( 1, 4 );// this gives our ai a unique persistant voice actor
	
	// AI FUNCTIONS
	self._stealth.behavior.ai_functions = [];
	self._stealth.behavior.ai_functions[ "state" ] = [];
	self._stealth.behavior.ai_functions[ "alert" ] = [];
	self._stealth.behavior.ai_functions[ "corpse" ] = [];
	self._stealth.behavior.ai_functions[ "awareness" ] = [];
	
	self enemy_default_ai_functions( "state" );
	self enemy_default_ai_functions( "alert" );
	self enemy_default_ai_functions( "corpse" );
	self enemy_default_ai_functions( "awareness" );
	self enemy_default_ai_functions( "animation" );
		
	self ai_change_ai_functions( "state", state_functions );
	self ai_change_ai_functions( "alert", alert_functions );
	self ai_change_ai_functions( "corpse", corpse_functions );
	self ai_change_ai_functions( "awareness", awareness_functions );
				
	self ent_flag_init( "_stealth_enemy_alert_level_action" );
	self ent_flag_init( "_stealth_running_to_corpse" );
	self ent_flag_init( "_stealth_behavior_reaction_anim" );
	self ent_flag_init( "_stealth_behavior_first_reaction" );
	self ent_flag_init( "_stealth_behavior_reaction_anim_in_progress" );
	
	self._stealth.behavior.event = spawnstruct();
	
	if ( self._stealth.logic.dog )
		self enemy_dog_init();
}

enemy_default_ai_functions( name )
{
	switch( name )
	{
		case "state":
			// state functions
			self ai_create_behavior_function( "state", "hidden", ::enemy_state_hidden );
			self ai_create_behavior_function( "state", "alert", ::enemy_state_alert );
			self ai_create_behavior_function( "state", "spotted", ::enemy_state_spotted );
			break;
		case "alert":
			// alert level functions
			self ai_create_behavior_function( "alert", "reset", ::enemy_alert_level_lostem );
			self ai_create_behavior_function( "alert", "alerted_once", ::enemy_alert_level_alerted_once );
			self ai_create_behavior_function( "alert", "alerted_again", ::enemy_alert_level_alerted_again );
			self ai_create_behavior_function( "alert", "attack", ::enemy_alert_level_attack );
			break;
		case "corpse":
			// corpse functions
			self ai_create_behavior_function( "corpse", "saw", ::enemy_corpse_saw_behavior );
			self ai_create_behavior_function( "corpse", "found", ::enemy_corpse_found_behavior );
			break;
		case "awareness":
			// awareness functions						
			self ai_create_behavior_function( "awareness", "heard_scream",	::enemy_awareness_reaction_heard_scream );
			self ai_create_behavior_function( "awareness", "doFlashBanged", ::enemy_awareness_reaction_flashbang );
			self ai_create_behavior_function( "awareness", "explode", 		::enemy_awareness_reaction_explosion );
			
			break;
		case "animation":
			self ai_create_behavior_function( "animation", "wrapper", 			::enemy_animation_wrapper );
			
			if ( self._stealth.logic.dog )
			{
				self ai_create_behavior_function( "animation", "reset", 			::enemy_animation_nothing );
				self ai_create_behavior_function( "animation", "attack", 			::dog_animation_generic );
				
				self ai_create_behavior_function( "animation", "heard_scream", 		::dog_animation_generic );				
				self ai_create_behavior_function( "animation", "bulletwhizby", 		::dog_animation_wakeup_fast );
				self ai_create_behavior_function( "animation", "projectile_impact", ::dog_animation_wakeup_slow );
				self ai_create_behavior_function( "animation", "explode", 			::dog_animation_wakeup_fast );
			}
			else
			{
				self ai_create_behavior_function( "animation", "reset", 			::enemy_animation_nothing );
				self ai_create_behavior_function( "animation", "alerted_once", 		::enemy_animation_nothing );
				self ai_create_behavior_function( "animation", "alerted_again", 	::enemy_animation_nothing );
				self ai_create_behavior_function( "animation", "attack", 			::enemy_animation_attack );
				
				self ai_create_behavior_function( "animation", "heard_scream", 		::enemy_animation_generic );
				
				self ai_create_behavior_function( "animation", "heard_corpse", 		::enemy_animation_generic );
				self ai_create_behavior_function( "animation", "saw_corpse", 		::enemy_animation_sawcorpse );
				self ai_create_behavior_function( "animation", "found_corpse", 		::enemy_animation_foundcorpse );
				
				self ai_create_behavior_function( "animation", "bulletwhizby", 		::enemy_animation_whizby );
				self ai_create_behavior_function( "animation", "projectile_impact", ::enemy_animation_whizby );
				self ai_create_behavior_function( "animation", "explode", 			::enemy_animation_generic );
			}
			
			self ai_create_behavior_function( "animation", "doFlashBanged", 		::enemy_animation_nothing );
			
			break;
	}	
}

enemy_dog_init()
{
	if ( threatbiasgroupexists( "dog" ) )
		self setthreatbiasgroup( "dog" );
		
	if ( isdefined( self.enemy ) || isdefined( self.favoriteenemy ) )
		return;
	
	self.ignoreme = true;
	self.ignoreall = true;
	self.allowdeath = true;
		
	// we do this because we assume dogs are sleeping...
	self thread anim_generic_loop( self, "_stealth_dog_sleeping", undefined, "stop_loop" );
}

enemy_Message_Loop()
{
	
	// these handle global "what to do" based on current state
	self thread ai_message_handler( "_stealth_hidden", 	"hidden" );
	self thread ai_message_handler( "_stealth_alert", 	"alert" );
	self thread ai_message_handler( "_stealth_spotted", "spotted" );
}

ai_message_handler( _flag, name )
{
	self endon( "death" );
	self endon( "pain_death" );
		
	while ( 1 )
	{
		flag_wait( _flag );
		
		function = self._stealth.behavior.ai_functions[ "state" ][ name ];
		
		self thread [[ function ]]();
		
		flag_waitopen( _flag );
	}
}

enemy_state_hidden()
{
	level endon( "_stealth_detection_level_change" );
	
	self.fovcosine = .5;// 60 degrees to either side...120 cone...2 / 3 of the default
	self.favoriteenemy = undefined;
	
	if ( self._stealth.logic.dog )
		return;
		
	self.dieQuietly = true;
	if ( !isdefined( self.old_baseAccuracy ) )
		self.old_baseAccuracy = self.baseaccuracy;
	if ( !isdefined( self.old_Accuracy ) )
		self.old_Accuracy = self.accuracy;
		
	self.baseAccuracy 	 = self.old_baseAccuracy;
	self.Accuracy 		 = self.old_Accuracy;
	self.fixednode		 = true;
	self clearenemy();
}

enemy_state_alert()
{
	level endon( "_stealth_detection_level_change" );
}

// this is called by some functions like finding a corpse or
// hearing an explosion that go into alert - but dont want to put into alert
// state because alert state shares it's behavior with a guy simply
// thinkgin he saw something twice
enemy_reaction_state_alert()
{
	self.fovcosine = .01;// 90 degrees to either side...180 cone...default view cone
	self.ignoreall = false;
	self.dieQuietly 	 = false;
	self clear_run_anim();
	self.fixednode		 = false;
}

enemy_state_spotted()
{
	_flag = "_stealth_spotted";
	ender = "_stealth_detection_level_change" + _flag;
	thread state_change_ender( _flag, ender );
	level endon( ender );
	self endon( "death" );
	
	self.fovcosine = .01;// 90 degrees to either side...180 cone...default view cone
	self.ignoreall = false;
	
	if ( !self._stealth.logic.dog )
	{
		self.dieQuietly 	 = false;
		self clear_run_anim();
		self.baseAccuracy 	 *= 3;
		self.Accuracy 		 *= 3;
		self.fixednode		 = false;
		
		self enemy_stop_current_behavior();
	}
	
	if ( !isalive( self.enemy ) )
		self waittill_notify_or_timeout( "enemy", randomfloatrange( 1, 3 ) );

	if ( self._stealth.logic.dog )
	{
		// Alex Liu: changed level.player to nearest player
		self.favoriteenemy = get_closest_player( self.origin );
	}
	else if ( randomint( 100 ) > 25 )
	{
		// Alex Liu: changed level.player to nearest player
		self.favoriteenemy = get_closest_player( self.origin );// 75% chance that favorite enemy is the player
	}
	
	self thread enemy_spotted_clear_favorite();
}

enemy_spotted_clear_favorite()
{
	self endon ( "death" );
	wait 1.5;
	self.favoriteenemy = undefined;	
}

state_change_ender( _flag, ender )
{
	flag_waitopen( _flag );
	level notify( ender );
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 										ANIMATION REACTION CODE FOR ENEMIES									*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

enemy_Animation_Loop()
{	
	self endon( "death" );
	self endon( "pain_death" );
		
	while ( 1 )
	{
		self waittill( "event_awareness", type );
		
		//put inside the loop so we can check every time
		wrapper_func = self._stealth.behavior.ai_functions[ "animation" ][ "wrapper" ];// enemy_animation_wrapper
		
		self thread [[ wrapper_func ]]( type );
	}
}

enemy_animation_wrapper( type )
{
	self endon( "death" );
	self endon( "pain_death" );
				
	// ALWAYS RUN THIS UNLESS YOU'RE SURE YOU KNOW WHAT YOU"RE DOING
	if ( self enemy_animation_pre_anim( type ) )
		return;	
	
	self enemy_animation_do_anim( type );
	
	// ALWAYS RUN THIS UNLESS YOU'RE SURE YOU KNOW WHAT YOU"RE DOING
	self enemy_animation_post_anim( type );
}

enemy_animation_do_anim( type )
{
	if ( isdefined( self._stealth.behavior.event.custom_animation ) )
	{
		self enemy_animation_custom( type );
		return;
	}	
	
	// do default behavior	
	function = self._stealth.behavior.ai_functions[ "animation" ][ type ];
	
	self [[ function ]]( type );
}

enemy_animation_custom( type )
{
	self endon( "death" );
	self endon( "pain_death" );
	
	node = self._stealth.behavior.event.custom_animation.node;
	anime = self._stealth.behavior.event.custom_animation.anime;
	tag = self._stealth.behavior.event.custom_animation.tag;
	ender = self._stealth.behavior.event.custom_animation.ender;
	
	self ent_flag_set( "_stealth_behavior_reaction_anim" );
	
	// wouldn't normally do this - but since this is specific to stealth script
	// i figured it would be ok to set allowdeath.
	self.allowdeath = true; 
	
	// cut the loop
	node notify( ender );
	
	if ( isdefined( self.anim_props ) )
	{
		self.anim_props_animated = true;
		node thread anim_single( self.anim_props, anime );
	}
	if( type != "doFlashBanged" )
	{
		// this is the reaction
		if ( isdefined( tag ) || isdefined( self.has_delta ) )
			node anim_generic( self, anime, tag );
		else
			node anim_generic_custom_animmode( self, "gravity", anime );
	}
	// once you the the reaction once - you dont wanna ever do it again...especially not off this node
	self ai_clear_custom_animation_reaction();
}

enemy_animation_pre_anim( type )
{
	self notify( "enemy_awareness_reaction", type );
	
	// this means that something really bad happened...a first reaction
	// to the player being spotted or something equally bad like a bullet
	// whizby
	if ( self ent_flag( "_stealth_behavior_first_reaction" ) || self ent_flag( "_stealth_behavior_reaction_anim_in_progress" ) )
		return true;	
		
	// this function doesn't stop behavior if _stealth_behavior_reaction_anim
	// is set - because stoping behavior means ending current animations
	// and since reacting is an animation - we want to set the flag
	// AFTER we've stopped the current ones
	self enemy_stop_current_behavior();
				
	switch( type )
	{		
		case "explode":
		case "heard_corpse":
		case "saw_corpse":
		case "found_corpse":
			// all the cases above this dont break - so they all will do the same thing when they get to this line
			self ent_flag_set( "_stealth_behavior_reaction_anim" );
			break;
		case "reset":
		case "alerted_once":
		case "alerted_again":
			// all the cases above this dont break - so they all will do the same thing when they get to this line
			// which is absolutely nothing
			break;
		default:
			self ent_flag_set( "_stealth_behavior_first_reaction" );
			self ent_flag_set( "_stealth_behavior_reaction_anim" );
			break;
	}
	
	self ent_flag_set( "_stealth_behavior_reaction_anim_in_progress" );
	return false;
}

enemy_animation_post_anim( type )
{
	switch( type )
	{
		default:
			self ent_flag_clear( "_stealth_behavior_reaction_anim" );
			break;	
	}
	
	self ent_flag_clear( "_stealth_behavior_reaction_anim_in_progress" );
}

enemy_animation_whizby( type )
{				
	self.allowdeath = true;

	if ( !IsDefined(self.exposedSet) || self.exposedSet == 0 )
		anime = "_stealth_behavior_whizby_" + randomint( 5 );	
	else
		anime = "_stealth_behavior_whizby_" + (randomint( 4 )+5);	
	
	self thread anim_generic_custom_animmode( self, "gravity", anime );
	
	wait 1.5;
	
	self notify( "stop_animmode" );
}

enemy_animation_attack( type )
{				
	enemy = self._stealth.logic.event.awareness[ type ];
	
	if ( distance( enemy.origin, self.origin ) < 256 )
	{
		if ( !IsDefined(self.exposedSet) || self.exposedSet == 0 )
			anime = "_stealth_behavior_spotted_short";
		else
			anime = "_stealth_behavior_spotted_short2";
	}
	else
	{
		if ( !IsDefined(self.exposedSet) || self.exposedSet == 0 )
			anime = "_stealth_behavior_spotted_long";
		else
			anime = "_stealth_behavior_spotted_short2";
	}
		
	
	self.allowdeath = true;
	self thread anim_generic_custom_animmode( self, "gravity", anime );
	
	self waittill_notify_or_timeout( anime, randomfloatrange( 1.5, 3 ) );
	
	self notify( "stop_animmode" );
}

enemy_animation_nothing( type )
{
	// these dont actually do anything, however their existance
	// allows for custom reaction animations to be played even
	// at this alert stage
}

enemy_animation_generic( type )
{
	self.allowdeath = true;
	
	// Alex Liu: changed level.player to nearest player
	target = get_closest_player( self.origin );

	if ( isdefined( self.enemy ) )
		target = self.enemy;
	else if ( isdefined( self.favoriteenemy ) )
		target = self.favoriteenemy;
	
	dist = ( distance( self.origin, target.origin ) );
	max = 4;
	range = 1024;
	
	for ( i = 1; i < max; i++ )
	{
		test = range * ( i / max );
		if ( dist < test )
			break;
	}
	
	anime = "_stealth_behavior_generic" + i;	
		
	self anim_generic_custom_animmode( self, "gravity", anime );
}

enemy_animation_sawcorpse( type )
{
	self.allowdeath = true;
	
	if ( !IsDefined(self.exposedSet) || self.exposedSet == 0 )
		anime = "_stealth_behavior_saw_corpse";	
	else
		anime = "_stealth_behavior_saw_corpse2";	
	
	self anim_generic_custom_animmode( self, "gravity", anime );
}

enemy_animation_foundcorpse( type )
{
	self.allowdeath = true;
	
	anime = "_stealth_find_jog";	
	
	self anim_generic_custom_animmode( self, "gravity", anime );
}

dog_animation_generic( type )
{
	self.allowdeath = true;
	
	anime = undefined;
	if ( randomint( 100 ) < 50 )
		anime = "_stealth_dog_wakeup_fast";	
	else
		anime = "_stealth_dog_wakeup_slow";	
	
	self anim_generic_custom_animmode( self, "gravity", anime );
}

dog_animation_wakeup_fast( type )
{
	self.allowdeath = true;
	
	anime = "_stealth_dog_wakeup_fast";	
	
	self anim_generic_custom_animmode( self, "gravity", anime );
}
dog_animation_wakeup_slow( type )
{
	self.allowdeath = true;
	
	anime = "_stealth_dog_wakeup_slow";	
	
	self anim_generic_custom_animmode( self, "gravity", anime );
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 										AWARENESS BEHAVIOR CODE FOR ENEMIES									*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

enemy_Awareness_Loop()
{			
	self endon( "death" );
	self endon( "pain_death" );
	
	while ( 1 )
	{
		self waittill( "event_awareness", type );
		
		if( flag( "_stealth_spotted" ) )
			continue;
		
		//put this in the loop so that it can check for the function 
		//every time...that way we can change the functions on the fly
		func = self._stealth.behavior.ai_functions[ "awareness" ];
		
		if ( isdefined( func[ type ] ) )
			self thread [[ func[ type ] ]]( type );
	}
}

enemy_awareness_reaction_heard_scream( type )
{
	if ( self._stealth.logic.dog )
		return;
	
	self endon( "_stealth_enemy_alert_level_change" );
	
	level endon( "_stealth_spotted" );
	
	self endon( "another_enemy_awareness_reaction" );
		
	msg = "scream_kill_safety_check";
	self thread enemy_awareness_reaction_safety( type, msg );
	
	enemy_reaction_state_alert();	
	spot = self enemy_find_original_goal();
	self enemy_stop_current_behavior();
	
	self endon( "death" );
		
	origin = self._stealth.logic.event.awareness[ type ];
	origin = self enemy_find_nodes_at_origin( origin ); //1
	
	self enemy_investigate_explosion( origin );
			
	self thread enemy_announce_hmph();
	
	self notify( msg );
	self enemy_go_back( spot );
}

enemy_awareness_reaction_flashbang( type )
{		
	if ( self._stealth.logic.dog )
		return;
	
	self endon( "_stealth_enemy_alert_level_change" );
	
	level endon( "_stealth_spotted" );
	
	self endon( "another_enemy_awareness_reaction" );
		
	msg = "flashbang_kill_safety_check";
	self thread enemy_awareness_reaction_safety( type, msg );
		
	enemy_reaction_state_alert();	
	spot = self enemy_find_original_goal();
	self enemy_stop_current_behavior();
	
	self endon( "death" );
	
	enemy = self._stealth.logic.event.awareness[ type ];
	origin = enemy.origin;
	
	self waittill("stop_flashbang_effect");
		
	origin = self enemy_find_nodes_at_origin( origin ); //2
	self thread enemy_investigate_explosion( origin );
	
	if( origin != ( 0, 0, 0 ) )
	{
		wait 1.05;
		self waittill( "goal" );
		self thread enemy_announce_wtf();
		self thread enemy_announce_spotted_bring_team( origin );
	}
		
	self thread enemy_announce_hmph();
	self notify( msg );
	self enemy_go_back( spot );
}

enemy_awareness_reaction_explosion( type )
{
	self endon( "_stealth_enemy_alert_level_change" );
	
	if ( !self._stealth.logic.dog )
	{
		self endon( "_stealth_saw_corpse" );
		level endon( "_stealth_found_corpse" );
	}
	level endon( "_stealth_spotted" );
	
	self endon( "another_enemy_awareness_reaction" );
	msg = "explostion_kill_safety_check";
	self thread enemy_awareness_reaction_safety( type, msg );
		
	enemy_reaction_state_alert();	
	
	spot = self enemy_find_original_goal();
			
	self enemy_stop_current_behavior();
	
	self endon( "death" );
	
	origin = self._stealth.logic.event.awareness[ type ];
	origin = self enemy_find_nodes_at_origin( origin ); //3
	
	self thread enemy_announce_wtf();
	self enemy_investigate_explosion( origin );
			
	self thread enemy_announce_hmph();
	
	self notify( msg );
	self enemy_go_back( spot );
}

// so it doesn't end on itself
enemy_awareness_reaction_safety( type, msg )
{
	self endon( "death" );
	self endon( msg );
	
	while ( 1 )
	{	
		self waittill( "enemy_awareness_reaction", _type );
		
		if ( type == _type )
			continue;
		else
			break;
	}
	
	self notify( "another_enemy_awareness_reaction" );
}

enemy_find_nodes_at_origin( origin )
{	
	array = enemy_get_closest_pathnodes( 512, origin );
	original = origin;
	
	if( isdefined( array ) && array.size )
	{
		for ( i = 0 ; i < array.size; i++ )
		{
			if ( isdefined( array[ i ]._stealth_corpse_behavior_taken ) )
				continue;
			
			origin = array[ i ].origin;
				
			array[ i ] thread enemy_corpse_reaction_takenode();
			
			tooclose = get_array_of_closest( array[ i ].origin, array, undefined, undefined, 40 );
			array_thread( tooclose, ::enemy_corpse_reaction_takenode );
			
			break;
		}
	}
	else
		origin = (0,0,0);
	
	if( original == origin )
		origin = (0,0,0);
		
	return origin;
}

enemy_investigate_explosion( origin )
{	
	if ( origin != ( 0, 0, 0 ) )
	{
		wait randomfloat( 1 );
	
		self thread enemy_runto_and_lookaround( origin );
			
		self.disablearrivals = false;
		self.disableexits = false;
		
		self waittill( "goal" );
		wait randomfloatrange( 30, 50 );
	}	
	else
		wait randomfloatrange( 1, 4 );
}


/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 										THREAT BEHAVIOR CODE FOR ENEMIES									*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

enemy_Threat_Loop()
{
	self endon( "death" );
	self endon( "pain_death" );
	
	if ( self._stealth.logic.dog )
		self thread enemy_threat_logic_dog();
		
	while ( 1 )
	{
		self waittill( "_stealth_enemy_alert_level_change" );
		
		type = self._stealth.logic.alert_level.lvl;
		enemy = self._stealth.logic.alert_level.enemy;
		
		self thread enemy_alert_level_change( type, enemy );
	}
}

// we do this because we assume dogs are sleeping...if so, then they'll never get an enemy
// because to make that assumption we set their ignorall to true in their init...so we need
// to give them the ability to find an enemy once they take damage...we might extend this in 
// the future to also do the same thing if an ai gets too close or makes too much noise
enemy_threat_logic_dog()
{
	self endon( "death" );
	self endon( "pain_death" );
		
	self waittill( "pain" );
	self.ignoreall = false;
}

enemy_alert_level_change( type, enemy )
{	
	self ent_flag_set( "_stealth_enemy_alert_level_action" );	
	funcs = self._stealth.behavior.ai_functions[ "alert" ];
	
	self thread [[ funcs[ type ] ]]( enemy );
}

enemy_alert_level_normal()
{
	self endon( "_stealth_enemy_alert_level_change" );
	self endon( "death" );
	self endon( "pain_death" );
	
	spot = self enemy_find_original_goal();
	self enemy_stop_current_behavior();
	
	self waittill( "normal" );
	
	self ent_flag_clear( "_stealth_enemy_alert_level_action" );
	self ent_flag_waitopen( "_stealth_saw_corpse" );
	
	//to make sure found corpse is set
	wait .05;
	
	flag_waitopen( "_stealth_found_corpse" );
	
	// if ( !isdefined( self._stealth.logic.corpse.corpse_entity ) )
	self thread enemy_announce_hmph();
		
	self enemy_go_back( spot );
}

enemy_find_original_goal()
{
	if ( isdefined( self.last_set_goalnode ) )
		return self.last_set_goalnode.origin;
	
	if ( isdefined( self.last_set_goalpos ) )
		return self.last_set_goalpos;
		
	return self.origin;
}

enemy_alert_level_lostem( enemy )
{
	// the ONLY time you'll ever recieve a 0 as a type of alert and get sent to this function is if
	// the allies were spotted, probably had a big fire fight, and managed to actually get away and 
	// hide while there are still enemy ai alive.
	// if this happens - we don't want them to chase the player down, but we dont want them to act like 
	// nothing ever happened before...so we need a special function for this case
	self notify( "normal" );
}

enemy_alert_level_alerted_once( enemy )
{	
	self endon( "_stealth_enemy_alert_level_change" );
	level endon( "_stealth_spotted" );
	self endon( "death" );
	self endon( "pain_death" );
	
	self thread enemy_announce_huh();
	self thread enemy_alert_level_normal();	
	
	if ( isdefined( self.script_patroller ) )
	{
		// we can call patrol walk and not stealth walk because we know the _patrol code is running
		self set_generic_run_anim( "patrol_walk", true ); 
		self.disablearrivals = true;
		self.disableexits = true;	
	}
	
	vec = vectornormalize( enemy.origin - self.origin );
	dist = distance( enemy.origin, self.origin );
	dist *= .25;
	
	if ( dist < 64 )
		dist = 64;
	if ( dist > 128 )
		dist = 128;
		
	vec = vector_multiply( vec, dist );
		
	spot = self.origin + vec + ( 0, 0, 16 );
	end = spot + ( ( 0, 0, -96 ) );
	
	spot = physicstrace( spot, end );
	if ( spot == end )
		return;
		
	self setgoalpos( spot );
	self.goalradius = 4;
	
	// we do the timeout - because sometimes this puts his goal into a postion that
	// is invalid and he'll never actually hit his goal...so we time out after 2 seconds
	self waittill_notify_or_timeout( "goal", 2 );
	
	wait 3;
	self notify( "normal" );
}

enemy_alert_level_alerted_again( enemy )
{	
	self endon( "_stealth_enemy_alert_level_change" );
	level endon( "_stealth_spotted" );
	self endon( "death" );
	self endon( "pain_death" );
	
	self thread enemy_announce_huh();
	self thread enemy_alert_level_normal();
	
	self set_generic_run_anim( "_stealth_patrol_jog" );
	self.disablearrivals = false;
	self.disableexits = false;	
		
	lastknownspot = enemy.origin;
	distance = distance( lastknownspot, self.origin );
	
	self setgoalpos( lastknownspot );	
	self.goalradius = distance * .5;
	self waittill( "goal" );
	
		self set_generic_run_anim( "_stealth_patrol_walk", true );
	/* 	anime = "_stealth_patrol_search_";
		if ( randomint( 100 > 50 ) )
			anime += "a";
		else
		 	anime += "b";
		self set_generic_run_anim( anime );*/ 
		
	self setgoalpos( lastknownspot );	
	self.goalradius = 64;
	self.disablearrivals = true;
	self.disableexits = true;	
	
	self waittill( "goal" );
	
	wait 12;
	self set_generic_run_anim( "_stealth_patrol_walk", true );
	self notify( "normal" );
}

enemy_alert_level_attack( enemy )
{	
	self endon( "death" );
	self endon( "pain_death" );
	self endon( "_stealth_stop_stealth_behavior" );
	
	self thread enemy_announce_spotted( self.origin );
				
	self thread enemy_close_in_on_target();
}

enemy_close_in_on_target()
{
	radius = 2048;
	self.goalradius = radius;
	
	if ( isdefined( self.script_stealth_dontseek ) )
		return;
		
	self endon( "death" );
	self endon( "_stealth_stop_stealth_behavior" );
		
	while ( isdefined( self.enemy ) )
	{
		self setgoalpos( self.enemy.origin );
		self.goalradius = radius;
		
		if ( radius > 600 )
			radius *= .75;
		
		wait 15;
	}	
}

enemy_announce_wtf()
{
	if ( !( self enemy_announce_snd( "wtf" ) ) )
		return;
		
	self playsound( "RU_0_reaction_casualty_generic" );
}

enemy_announce_huh()
{
	if ( !( self enemy_announce_snd( "huh" ) ) )
		return;
		
	alias = "scoutsniper_ru" + self._stealth.behavior.sndnum + "_huh";
	self playsound( alias );
}

enemy_announce_hmph()
{
	if ( !( self enemy_announce_snd( "hmph" ) ) )
		return;
		
	alias = "scoutsniper_ru" + self._stealth.behavior.sndnum + "_hmph";
	self playsound( alias );
}

enemy_announce_spotted( pos )
{	
	self endon( "death" );
	// self endon( "pain_death" ); -- > actually want to be able to still call out to buddies
	
	// this makes sure that if we're not spotted because we killed
	// this guy before he could set the flag - we dont' bring 
	// everyone over for no reason.
	flag_wait( "_stealth_spotted" );
			
	if ( !( self enemy_announce_snd( "spotted" ) ) )
		return;
	
	self thread enemy_announce_spotted_bring_team( pos );	
	
	if ( self._stealth.logic.dog )
		return;
			
	self playsound( "RU_0_reaction_casualty_generic" );
}

enemy_announce_spotted_bring_team( pos )
{	
	ai = getaispeciesarray( "axis", "all" );
	
	for ( i = 0; i < ai.size; i++ )
	{
		if ( ai[ i ] == self )
			continue;
		
		if ( isdefined( ai[ i ].enemy ) )
			continue;
		
		if ( isdefined( ai[ i ].favoriteenemy ) )
			continue;
		
		ai[ i ] notify( "heard_scream", pos );
	}
}

enemy_announce_corpse()
{		
	if ( isdefined( self.found_corpse_wait ) )
	{
		self endon( "death" );
		wait( self.found_corpse_wait );
	}
	
	if ( !( self enemy_announce_snd( "corpse" ) ) )
		return;
		
	self playsound( "RU_0_reaction_casualty_generic" );
}

enemy_announce_snd( type )
{
	if ( level._stealth.behavior.sound[ type ] )
		return false;
	
	level._stealth.behavior.sound[ type ] = true;	
		
	self thread	enemy_announce_snd_reset( type );
	
	return true;
}

enemy_announce_snd_reset( type )
{
	if ( type == "spotted" )
		return;
		
	wait 3;	
	level._stealth.behavior.sound[ type ] = false;
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 										CORPSE BEHAVIOR CODE FOR ENEMIES									*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

enemy_Corpse_Loop()
{
	if ( self._stealth.logic.dog )
		return;
		
	self endon( "death" );
	self endon( "pain_death" );
	
	self thread enemy_found_corpse_loop();
	
	while ( 1 )
	{
		self waittill( "_stealth_saw_corpse" );	
		self enemy_saw_corpse_logic();
	}
}

enemy_saw_corpse_logic()
{
	if ( flag( "_stealth_spotted" ) )
		return;
	level endon( "_stealth_spotted" );
	
	level endon( "_stealth_found_corpse" );
				
	self thread enemy_announce_huh();
			
	while ( 1 )
	{
		self ent_flag_waitopen( "_stealth_enemy_alert_level_action" );
		
		self enemy_corpse_saw_wrapper();
		
		// the only reason we failed - and didn't end this function 
		// is if we had an alert change so wait to go back to normal 
		// and then resume looking for the corpse
		self waittill( "normal" );
	}
}

enemy_stop_current_behavior()
{	
	if ( !self ent_flag( "_stealth_behavior_reaction_anim" ) )
	{
		self stopanimscripted();
		self notify( "stop_animmode" );
		self notify( "stop_loop" );// for dogs
	}
	if ( isdefined( self.script_patroller ) )
	{
		if ( isdefined( self.last_patrol_goal ) )
			self.last_patrol_goal.patrol_claimed = undefined;
		
		self notify( "release_node" );
		self notify( "end_patrol" );
	}	
	self notify( "stop_first_frame" );
	self clear_run_anim();
}
    
enemy_corpse_saw_wrapper()
{				
	// if he maybe saw an enemy - that's more important
	self endon( "enemy_alert_level_change" );
	
	funcs = self._stealth.behavior.ai_functions[ "corpse" ];
	self [[ funcs[ "saw" ] ]]();// ::enemy_corpse_saw_behavior()
}

enemy_corpse_saw_behavior()
{
	self enemy_stop_current_behavior();	
	ent_flag_set( "_stealth_running_to_corpse" );
	
	self.disableArrivals = false;
	self.disableExits = false;
	
	self set_generic_run_anim( "_stealth_combat_jog" );
	self.goalradius = 80;// the animation of finding the corpse
	self setgoalpos( self._stealth.logic.corpse.corpse_entity.origin );
}

enemy_found_corpse_loop()
{
	self endon( "death" );
	self endon( "pain_death" );
	
	if ( isdefined( self.no_corpse_caring ) )
		return;
	
	if ( flag( "_stealth_spotted" ) )
		return;
	level endon( "_stealth_spotted" );
	
	funcs = self._stealth.behavior.ai_functions[ "corpse" ];
			
	while ( 1 )
	{
		flag_wait( "_stealth_found_corpse" );	
		
		while ( flag( "_stealth_found_corpse" ) )
		{
			if ( self ent_flag( "_stealth_found_corpse" ) )
				self thread enemy_announce_corpse();
			else
				self notify( "heard_corpse", ( 0, 0, 0 ) );
			
			self enemy_reaction_state_alert();
			self [[ funcs[ "found" ] ]]();// ::enemy_corpse_found_behavior()
						
			level waittill( "_stealth_found_corpse" );
		} 
	}
}

enemy_corpse_found_behavior()
{		
	self enemy_stop_current_behavior();
	
	if ( level._stealth.logic.corpse.last_pos != level._stealth.behavior.corpse.last_pos )
	{	
		radius = level._stealth.behavior.corpse.search_radius;
		origin = level._stealth.logic.corpse.last_pos;	
		
		level._stealth.behavior.corpse.node_array = enemy_get_closest_pathnodes( radius, origin );
		
		level._stealth.behavior.corpse.last_pos = level._stealth.logic.corpse.last_pos;
	}
	
	array = level._stealth.behavior.corpse.node_array;
	
	for ( i = 0 ; i < array.size; i++ )
	{
		if ( isdefined( array[ i ]._stealth_corpse_behavior_taken ) )
			continue;
		
		self thread enemy_runto_and_lookaround( array[ i ].origin );		
			
		array[ i ] thread enemy_corpse_reaction_takenode();
		
		tooclose = get_array_of_closest( array[ i ].origin, array, undefined, undefined, 40 );
		array_thread( tooclose, ::enemy_corpse_reaction_takenode );
		
		break;
	}
}

enemy_runto_and_lookaround( pos )
{
	self notify( "enemy_runto_and_lookaround" );
	self endon( "enemy_runto_and_lookaround" );
	
	self endon( "death" );
	self endon( "_stealth_enemy_alert_level_change" );
	if ( !self._stealth.logic.dog )
		self endon( "_stealth_saw_corpse" );
	level endon( "_stealth_spotted" );
			
	self setgoalpos( pos );
	self.goalradius = 4;
	
	self waittill( "goal" );
	
	wait .5;
	if ( !self._stealth.logic.dog )
		self anim_generic_loop( self, "_stealth_look_around", undefined, "stop_loop" );
}

enemy_corpse_reaction_takenode()
{	
	self._stealth_corpse_behavior_taken = true;
	
	// everything is going to happen within the first frame
	// so waiting a second is more than enough, to pass the
	// check for the other ai
	wait .25;
	
	self._stealth_corpse_behavior_taken = undefined;
}

enemy_get_closest_pathnodes( radius, origin )
{	
	if( !flag( "_stealth_getallnodes" ) )
	{
		//there's no reason why this should be called more than once every frame
		if( !flag( "_stealth_searching_for_nodes" ) )
		{
			flag_set( "_stealth_searching_for_nodes" );
			waittillframeend;//to make sure everyone has a chance to drop to the else statement
			
			nodes = getallnodes();
			
			pathnodes = [];
			
			radus2rd = radius * radius;
			
			for ( i = 0; i < nodes.size; i++ )
			{
				if ( nodes[ i ].type != "Path" )
					continue;
				
				if ( distancesquared( nodes[ i ].origin, origin ) > radus2rd )
					continue;
				
				pathnodes[ pathnodes.size ] = nodes[ i ];
			}
			
			level._stealth.behavior.search_nodes_array = pathnodes;
			
			waittillframeend;//to make sure the flag isn't set and cleared in the same frame;
			flag_clear( "_stealth_searching_for_nodes" );
		}
		else
			flag_waitopen( "_stealth_searching_for_nodes" );
		
		level delaythread( .2, ::flag_clear, "_stealth_getallnodes" );
		level flag_set( "_stealth_getallnodes" );
	}
	
	return level._stealth.behavior.search_nodes_array;
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 									INDIVIDUAL STEALTH BEHAVIOR FOR FRIENDLIES								*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 

friendly_logic( state_functions )
{	
	self friendly_init( state_functions );
	self thread friendly_Message_Loop();
	self thread friendly_stance_handler();
}

friendly_init( state_functions )
{
	assertEX( isdefined( self._stealth ), "There is no self._stealth struct.  You ran stealth behavior before running the detection logic.  Run _stealth_logic::friendly_init() on this AI first" );
		
	// this is our behavior struct inside of _stealth...everything we do will go in here.
	self._stealth.behavior = spawnstruct();		
	
	self._stealth.behavior.accuracy = [];
	self._stealth.behavior.goodAccuracy = 50;
	self._stealth.behavior.badAccuracy = 0;
	
	self._stealth.behavior.old_baseAccuracy = self.baseAccuracy;
	self._stealth.behavior.old_Accuracy 	 = self.Accuracy;
	
	// AI FUNCTIONS
	self._stealth.behavior.ai_functions = [];
	self._stealth.behavior.ai_functions[ "state" ] = [];
	
	self friendly_default_ai_functions( "state" );
	
	self ai_change_ai_functions( "state", state_functions );
		
		
	self ent_flag_init( "_stealth_custom_anim" );
}

friendly_default_ai_functions( name )
{	
	switch( name )
	{
		case "state":
			// state functions
			self ai_create_behavior_function( name, "hidden", ::friendly_state_hidden );
			self ai_create_behavior_function( name, "alert", ::friendly_state_alert );
			self ai_create_behavior_function( name, "spotted", ::friendly_state_spotted );
			break;
	}
}

friendly_Message_Loop()
{
	funcs = self._stealth.behavior.ai_functions[ "state" ];
	// these handle global "what to do" based on current state
	self thread ai_message_handler( "_stealth_hidden", 	"hidden" );
	self thread ai_message_handler( "_stealth_alert", 	"alert" );
	self thread ai_message_handler( "_stealth_spotted", "spotted" );
}

friendly_state_hidden()
{
	level endon( "_stealth_detection_level_change" );
	
	self.baseAccuracy 	 = self._stealth.behavior.goodaccuracy;
	self.Accuracy 		 = self._stealth.behavior.goodaccuracy;
	self._stealth.behavior.oldgrenadeammo	 = self.grenadeammo;
	self.grenadeammo	 = 0;
	self.forceSideArm 	 = false;
	self.ignoreall 		 = true;
	self.ignoreme 		 = true;
	self disable_ai_color();
	waittillframeend;
	self.fixednode		 = false;
}

friendly_state_alert()
{
	level endon( "_stealth_detection_level_change" );
	// same as hidden - but without ignoreme turned off	
	
	self.baseAccuracy 	 = self._stealth.behavior.goodaccuracy;
	self.Accuracy 		 = self._stealth.behavior.goodaccuracy;
	self._stealth.behavior.oldgrenadeammo	 = self.grenadeammo;
	self.grenadeammo	 = 0;
	self.forceSideArm 	 = false;
	self.ignoreall 		 = true;
// 	self.ignoreme 		 = true;
	self disable_ai_color();
	waittillframeend;
	self.fixednode		 = false;
}

friendly_state_spotted()
{
	level endon( "_stealth_detection_level_change" );
	
	self thread friendly_spotted_getup_from_prone();
		
	self.baseAccuracy 	 = self._stealth.behavior.badaccuracy;
	self.Accuracy 		 = self._stealth.behavior.badaccuracy;
	self.grenadeammo 	 = self._stealth.behavior.oldgrenadeammo;
	self allowedstances( "prone", "crouch", "stand" );
	self stopanimscripted();
	self.ignoreall 	 = false;
	self.ignoreme 	 = false;
	self disable_cqbwalk();
	self enable_ai_color();
	self.disablearrivals 	 = true;
	self.disableexits 		 = true;
	self pushplayer( false );
}

friendly_spotted_getup_from_prone( angles )
{
	self endon( "death" );
	
	if ( self._stealth.logic.stance != "prone" )
		return;
	
	self ent_flag_set( "_stealth_custom_anim" );
	anime = "prone_2_run_roll";
	
	if ( isdefined( angles ) )
		self orientMode( "face angle", angles[ 1 ] + 20 );
		// self thread friendly_spotted_getup_from_prone_rotate( angles, anime );

	self thread anim_generic_custom_animmode( self, "gravity", anime ); 
	length = getanimlength( getanim_generic( anime ) );
	wait( length - .2 );
	self notify( "stop_animmode" );
	self ent_flag_clear( "_stealth_custom_anim" );
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
/* 										SMART STANCE LOGIC FOR FRIENDLIES									*/ 
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 
friendly_stance_handler()
{	
	self endon( "death" );
	self endon( "pain_death" );
	
	self friendly_stance_handler_init();
	
	while ( 1 )
	{
		while ( self ent_flag( "_stealth_stance_handler" ) && !flag( "_stealth_spotted" ) )
		{
			self friendly_stance_handler_set_stance_up();			
			stances = [];
			stances = friendly_stance_handler_check_mightbeseen( stances );
			
			// this means we're currently visible we need to drop a stance or stay still
			if ( stances[ self._stealth.logic.stance ] )
				self thread friendly_stance_handler_change_stance_down();
			// ok coast is clear - we can go again if we were staying still
			else if ( self ent_flag( "_stealth_stay_still" ) )
				self thread friendly_stance_handler_resume_path();
			// this means we can actually go one stance up
			else if ( ! stances[ self._stealth.behavior.stance_up ] )
				self thread friendly_stance_handler_change_stance_up();
			// so - we're not stancing up, we're not stancing down, or staying still...lets notify
			// ourselves that we should stay in the same stance( just in case we're about to stance up )
			else if ( self ent_flag( "_stealth_stance_change" ) )
				self notify( "_stealth_stance_dont_change" );
				
			wait .05;	
		}
		
		self.moveplaybackrate = 1;
		self allowedstances( "stand", "crouch", "prone" );
		
		self thread friendly_stance_handler_resume_path();
		self ent_flag_wait( "_stealth_stance_handler" );
		flag_waitopen( "_stealth_spotted" );
	}
}

friendly_stance_handler_stay_still()
{
	if ( self ent_flag( "_stealth_stay_still" ) )
		return;
	self ent_flag_set( "_stealth_stay_still" );
	
	badplace_cylinder( "_stealth_" + self.ai_number + "_prone", 0, self.origin, 30, 90, "axis" ); 

	self notify( "stop_loop" );
	self thread anim_generic_loop( self, "_stealth_prone_idle", undefined, "stop_loop" );
}

friendly_stance_handler_resume_path()
{	
	self ent_flag_clear( "_stealth_stay_still" );

	badplace_delete( "_stealth_" + self.ai_number + "_prone" ); 
	
	self notify( "stop_loop" ); 
}

friendly_stance_handler_change_stance_down()
{
	self.moveplaybackrate = 1;
	
	self notify( "_stealth_stance_down" );
	
	switch( self._stealth.logic.stance )
	{
		case "stand":
			self.moveplaybackrate = .7;
			self allowedstances( "crouch" );
			break;
		case "crouch":
			self allowedstances( "prone" );
			break;
		case "prone":
			friendly_stance_handler_stay_still();
			break;
	}
}

friendly_stance_handler_change_stance_up()
{
	self endon( "_stealth_stance_down" );
	self endon( "_stealth_stance_dont_change" );
	self endon( "_stealth_stance_handler" );
	
	if ( self ent_flag( "_stealth_stance_change" ) )
		return;
	
	// we wait a sec before deciding to actually stand up - just like a real player
	self ent_flag_set( "_stealth_stance_change" );
	wait 1.5;
	// now check again
	self ent_flag_clear( "_stealth_stance_change" );
		
	self.moveplaybackrate = 1;
	
	switch( self._stealth.logic.stance )
	{
		case "prone":
			self allowedstances( "crouch" );
			break;
		case "crouch":
			self allowedstances( "stand" );
			break;
		case "stand":
			break;
	}
}

friendly_stance_handler_check_mightbeseen( stances )
{
	// not using species because we dont care about dogs...
	// when they're awake - we're already not in stealth mode anymore
	ai = getaispeciesarray( "axis", "all" );
	
	stances[ self._stealth.logic.stance ] 		 = 0;
	stances[ self._stealth.behavior.stance_up ] = 0;
		
	for ( i = 0; i < ai.size; i++ )
	{								
		// this is how much to add based on a fast sight trace
		dist_add_curr = self friendly_stance_handler_return_ai_sight( ai[ i ], self._stealth.logic.stance );
		dist_add_up = self friendly_stance_handler_return_ai_sight( ai[ i ], self._stealth.behavior.stance_up );
		
		// this is the score for both the current stance and the next one up
		score_current 	 = ( self maps\_stealth_logic::friendly_compute_score() ) + dist_add_curr;
		score_up		 = ( self maps\_stealth_logic::friendly_compute_score( self._stealth.behavior.stance_up ) ) + dist_add_up;
			
		if ( distance( ai[ i ].origin, self.origin ) < score_current )
		{
			stances[ self._stealth.logic.stance ] = score_current;
			break;
		}
		
		if ( distance( ai[ i ].origin, self.origin ) < score_up )
			stances[ self._stealth.behavior.stance_up ] = score_up;
	}
	
	return stances;
}

friendly_stance_handler_set_stance_up()
{
	// figure out what the next stance up is
	switch( self._stealth.logic.stance )
	{
		case "prone":
			self._stealth.behavior.stance_up = "crouch";
			break;
		case "crouch":
			self._stealth.behavior.stance_up = "stand";
			break;
		case "stand":
			self._stealth.behavior.stance_up = "stand";// can't leave it as undefined
			break;
	}
}

friendly_stance_handler_return_ai_sight( ai, stance )
{
	// check to see where the ai is facing
	vec1 = anglestoforward( ai.angles );// this is the direction the ai is facing
	vec2 = vectornormalize( self.origin - ai.origin );// this is the direction from him to us
	
	// comparing the dotproduct of the 2 will tell us if he's facing us and how much so..
	// 0 will mean his direction is exactly perpendicular to us, 
	// 1 will mean he's facing directly at us
	// - 1 will mean he's facing directly away from us 
	vecdot = vectordot( vec1, vec2 );	
	state = level._stealth.logic.detection_level;
	
	// is the ai facing us?
	if ( vecdot > .3 )
		return self._stealth.behavior.stance_handler[ state ][ "looking_towards" ][ stance ];
	// is the ai facing away from us
	else if ( vecdot < - .7 )
		return self._stealth.behavior.stance_handler[ state ][ "looking_away" ][ stance ];
	// the ai is kinda not facing us or away
	else 
		return self._stealth.behavior.stance_handler[ state ][ "neutral" ][ stance ];
}

#using_animtree( "generic_human" );
friendly_stance_handler_init()
{
	self ent_flag_init( "_stealth_stance_handler" );
	self ent_flag_init( "_stealth_stay_still" );
	self ent_flag_init( "_stealth_stance_change" );
	
	level.scr_anim[ "generic" ][ "_stealth_prone_idle" ][ 0 ] = %prone_aim_idle;
	
	self._stealth.behavior.stance_up = undefined;
	self._stealth.behavior.stance_handler = [];
	self friendly_default_stance_handler_distances();	
}


/************************************************************************************************************/
/*							GROUP STEALTH AWARENESS EVENT BEHAVIOR FOR FRIENDLIES							*/
/************************************************************************************************************/

default_event_awareness( dialogue_func, ender1, ender2, ender3 )
{	
	level notify ( "event_awareness_handler" );	
	level endon ( "event_awareness_handler" );
	
	level endon ( "default_event_awareness_enders" );
	thread default_event_awareness_enders( ender1, ender2, ender3 );
	
	array_thread( getaiarray( "allies" ), ::default_event_awareness_ended_cleanup );
	thread default_event_awareness_killed_cleanup();
				
	while( 1 )
	{
		type = default_event_awareness_wait();
		array_thread( getaiarray( "allies" ), ::default_event_awareness_setup );
		waittillframeend;//makesure setup finishes
		array_thread( getaiarray( "allies" ), ::default_event_awareness_handle_changes );
		
		flag_set( "_stealth_event" );
		
		wait 2;
		
		[[ dialogue_func ]]();
		
		default_event_awareness_waitclear( type );
		array_thread( getaiarray( "allies" ), ::default_event_awareness_cleanup );
		flag_clear( "_stealth_event" );
	}	
}

default_event_awareness_enders( ender1, ender2, ender3 )
{
	level endon( "default_event_awareness_enders" );
	level endon ( "event_awareness_handler" );
	
	if( isdefined( ender1 ) && isdefined( level.flag[ ender1 ] ) && flag( ender1 ) )
		level notify( "default_event_awareness_enders" );
	if( isdefined( ender2 ) &&  isdefined( level.flag[ ender2 ] ) && flag( ender2 ) )
		level notify( "default_event_awareness_enders" );
	if( isdefined( ender3 ) &&  isdefined( level.flag[ ender3 ] ) && flag( ender3 ) )
		level notify( "default_event_awareness_enders" );
	
	if( flag( "_stealth_spotted" ) )
		level notify( "default_event_awareness_enders" );
	
	level waittill_any( "end_event_awareness_handler", "_stealth_spotted", ender1, ender2, ender3 );
	
	level notify( "default_event_awareness_enders" );	
}

default_event_awareness_killed_cleanup()
{
	level waittill_either( "event_awareness_handler", "default_event_awareness_enders" );
	flag_clear( "_stealth_event" );
}

default_event_awareness_ended_cleanup()
{
	level endon ( "event_awareness_handler" );
	
	level waittill( "default_event_awareness_enders" );
	
	self ent_flag_clear( "_stealth_stance_handler" );
		
	if( flag( "_stealth_spotted" ) )
		return;
	
	if( isdefined( self._stealth.behavior.alreadyignoreme ) && self._stealth.behavior.alreadyignoreme )
		self.ignoreme = true;
}

default_event_awareness_setup()
{
	self._stealth.behavior.alreadysmartstance = self ent_flag( "_stealth_stance_handler" );
	self._stealth.behavior.alreadyignoreme = self.ignoreme;
	self ent_flag_set( "_stealth_stance_handler" );
	self.ignoreme = false;
}

default_event_awareness_handle_changes()
{
	self endon( "default_event_awareness_cleanup" );
	level endon ( "default_event_awareness_enders" );	
	
	while( 1 )
	{
		self waittill( "_stealth_stance_handler" );
		
		self._stealth.behavior.alreadysmartstance = self ent_flag( "_stealth_stance_handler" );
		
		if( !self ent_flag( "_stealth_stance_handler" ) )
		{
			self ent_flag_set( "_stealth_stance_handler" );
			wait .05;
		}
	}
}

default_event_awareness_cleanup()
{
	self notify( "default_event_awareness_cleanup" );
		
	if( !self._stealth.behavior.alreadysmartstance )
		self ent_flag_clear( "_stealth_stance_handler" );
	if( isdefined( self._stealth.behavior.alreadyignoreme ) && self._stealth.behavior.alreadyignoreme )
		self.ignoreme = true;
}

default_event_awareness_wait()
{
	level endon( "_stealth_found_corpse" );
	
	while( 1 )
	{
		level waittill( "event_awareness", type );
		
		switch( type )
		{
			case "found_corpse":
				return type;
			case "heard_corpse":
				return type;	
			case "heard_scream":
				return type;	
		//	case "alerted_again":
		//		return type;	
			case "explode":
				return type;	
			default:
				continue;					
		}
	}
}

default_event_awareness_waitclear( type )
{
	if( isdefined( type ) )
	{
		ai = getaispeciesarray( "axis", "all" );	
		dist = level._stealth.logic.detect_range[ "alert" ][ "crouch" ];
		
		array_thread( ai, ::default_event_awareness_waitclear_ai, dist );
		array_wait( ai, "default_event_awareness_waitclear_ai" ); 
	}		
	if( flag( "_stealth_found_corpse" ) )
	{
		ai = getaispeciesarray( "axis", "all" );	
		
		dist = level._stealth.logic.detect_range[ "alert" ][ "stand" ];
			
		array_thread( ai, ::default_event_awareness_waitclear_ai, dist );
		array_wait( ai, "default_event_awareness_waitclear_ai" ); 	
	}
}

default_event_awareness_waitclear_ai( dist )
{
	self default_event_awareness_waitclear_ai_proc( dist );
	self notify( "default_event_awareness_waitclear_ai" );
}

default_event_awareness_waitclear_ai_proc( dist )
{
	self endon( "death" );
	
	waittillframeend;//make sure these flag's are set;
	
	check1 = false;
	if( isdefined( self.ent_flag[ "_stealth_behavior_first_reaction" ] ) )
		check1 = self ent_flag( "_stealth_behavior_first_reaction" );
	
	check2 = false;
	if( isdefined( self.ent_flag[ "_stealth_behavior_reaction_anim" ] ) )
		check1 = self ent_flag( "_stealth_behavior_reaction_anim" );
	
	if( !check1 && !check2 )
		return;
	
	self add_wait( ::waittill_msg,  "death" );
	self add_wait( ::waittill_msg,  "going_back" );
	level add_wait( ::flag_wait, "_stealth_found_corpse" );
	do_wait_any();
	
	self endon( "goal" );
	
	distsquared = dist * dist;
	
	while( distancesquared( self.origin, level.price.origin ) < distsquared )
		wait 1;
}