/*
	_bot_debug
	Author: INeedGames
	Date: 07/09/2023
	The ingame waypoint visualizer. Designed to be ran on the client (not the server)
*/

#include maps\_utility;
#include common_scripts\utility;
#include maps\_hud_util;
#include maps\bots\_bot_utility;

init()
{
	if ( getdvar( "bots_main_debug" ) == "" )
	{
		setdvar( "bots_main_debug", 0 );
	}
	
	if ( !getdvarint( "bots_main_debug" ) || !getdvarint( "bots_main_debug_wp_vis" ) )
	{
		return;
	}
	
	if ( !getdvarint( "developer" ) )
	{
		setdvar( "developer_script", 1 );
		setdvar( "developer", 2 );
		
		setdvar( "sv_mapRotation", "map " + getdvar( "mapname" ) );
		exitlevel( false );
		return;
	}
	
	setdvar( "bots_main", false );
	setdvar( "bots_main_menu", false );
	setdvar( "bots_manage_fill_mode", 0 );
	setdvar( "bots_manage_fill", 0 );
	setdvar( "bots_manage_add", 0 );
	setdvar( "bots_manage_fill_kick", true );
	setdvar( "bots_manage_fill_spec", true );
	
	if ( getdvar( "bots_main_debug_distance" ) == "" )
	{
		setdvar( "bots_main_debug_distance", 512.0 );
	}
	
	if ( getdvar( "bots_main_debug_cone" ) == "" )
	{
		setdvar( "bots_main_debug_cone", 0.65 );
	}
	
	if ( getdvar( "bots_main_debug_minDist" ) == "" )
	{
		setdvar( "bots_main_debug_minDist", 32.0 );
	}
	
	if ( getdvar( "bots_main_debug_drawThrough" ) == "" )
	{
		setdvar( "bots_main_debug_drawThrough", false );
	}
	
	thread load_waypoints();
	
	level waittill( "connected", player );
	player thread onPlayerSpawned();
}

onPlayerSpawned()
{
	self endon( "disconnect" );
	
	for ( ;; )
	{
		self waittill( "spawned_player" );
		self thread beginDebug();
	}
}

beginDebug()
{
	self endon( "disconnect" );
	self endon( "zombified" );
	
	self thread debug();
	self thread watch_for_unlink();
	self thread textScroll( "^1xDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD" );
}

watch_for_unlink()
{
	self endon( "disconnect" );
	self endon( "zombified" );
	
	self BotBuiltinNotifyOnPlayerCommand( "+smoke", "toggle_unlink" );
	
	for ( ;; )
	{
		self waittill( "toggle_unlink" );
		
		if ( self.closest == -1 )
		{
			self iprintln( "not close to node" );
			continue;
		}
		
		firstwp = level.waypoints[ self.closest ];
		
		self iprintln( "wp selected for unlink: " + firstwp BotBuiltinGetNodeNumber() );
		
		self waittill( "toggle_unlink" );
		
		if ( self.closest == -1 )
		{
			self iprintln( "not close to node" );
			continue;
		}
		
		self toggle_link( firstwp, level.waypoints[ self.closest ] );
	}
}

array_contains( arr, it )
{
	for ( i = 0; i < arr.size; i++ )
	{
		if ( arr[ i ] == it )
		{
			return true;
		}
	}
	
	return false;
}

toggle_link( firstwp, secondwp )
{
	// check if it exists
	key = firstwp BotBuiltinGetNodeNumber() + "";
	secnum = secondwp BotBuiltinGetNodeNumber();
	
	links = firstwp BotBuiltinGetLinkedNodes();
	linked = false;
	
	for ( i = 0; i < links.size; i++ )
	{
		if ( links[ i ] BotBuiltinGetNodeNumber() == secnum )
		{
			linked = true;
			break;
		}
	}
	
	if ( !linked )
	{
		self iprintln( "no link: " + key + " " + secnum );
		return;
	}
	
	if ( key == secnum + "" )
	{
		self iprintln( "same unlink: " + key + " " + secnum );
		return;
	}
	
	if ( isdefined( level.bot_ignore_links[ key ] ) && array_contains( level.bot_ignore_links[ key ], secnum ) )
	{
		a = level.bot_ignore_links[ key ];
		
		a = array_remove( a, secnum );
		
		if ( a.size <= 0 )
		{
			level.bot_ignore_links[ key ] = undefined;
		}
		else
		{
			level.bot_ignore_links[ key ] = a;
		}
		
		self iprintln( "removed unlink: " + key + " " + secnum );
		BotBuiltinPrintConsole( "toggle_link: add: " + key + " " + secnum );
	}
	else
	{
		if ( !isdefined( level.bot_ignore_links[ key ] ) )
		{
			level.bot_ignore_links[ key ] = [];
		}
		
		a = level.bot_ignore_links[ key ];
		a[ a.size ] = secnum;
		
		level.bot_ignore_links[ key ] = a;
		
		self iprintln( "added unlink: " + key + " " + secnum );
		BotBuiltinPrintConsole( "toggle_link: del: " + key + " " + secnum );
	}
}

debug()
{
	self endon( "disconnect" );
	self endon( "zombified" );
	
	self.closest = -1;
	
	for ( ;; )
	{
		wait 0.05;
		
		closest = -1;
		myEye = self gettagorigin( "j_head" );
		myAngles = self getplayerangles();
		
		for ( i = level.waypoints.size - 1; i >= 0; i-- )
		{
			if ( closest == -1 || closer( self.origin, level.waypoints[ i ].origin, level.waypoints[ closest ].origin ) )
			{
				closest = i;
			}
			
			wpOrg = level.waypoints[ i ].origin + ( 0, 0, 25 );
			
			if ( distance( level.waypoints[ i ].origin, self.origin ) < getdvarfloat( "bots_main_debug_distance" ) && ( sighttracepassed( myEye, wpOrg, false, self ) || getdvarint( "bots_main_debug_drawThrough" ) ) && getConeDot( wpOrg, myEye, myAngles ) > getdvarfloat( "bots_main_debug_cone" ) )
			{
				linked = level.waypoints[ i ] BotBuiltinGetLinkedNodes();
				node_num_str = level.waypoints[ i ] BotBuiltinGetNodeNumber() + "";
				
				for ( h = linked.size - 1; h >= 0; h-- )
				{
					if ( isdefined( level.bot_ignore_links[ node_num_str ] ) )
					{
						found = false;
						this_node_num = linked[ h ] BotBuiltinGetNodeNumber();
						
						for ( j = 0; j < level.bot_ignore_links[ node_num_str ].size; j++ )
						{
							if ( level.bot_ignore_links[ node_num_str ][ j ] == this_node_num )
							{
								found = true;
								break;
							}
						}
						
						if ( found )
						{
							continue;
						}
					}
					
					line( wpOrg, linked[ h ].origin + ( 0, 0, 25 ), ( 1, 0, 1 ) );
				}
				
				print3d( wpOrg, node_num_str, ( 1, 0, 0 ), 2 );
				
				if ( isdefined( level.waypoints[ i ].animscript ) )
				{
					line( wpOrg, wpOrg + anglestoforward( level.waypoints[ i ].angles ) * 64, ( 1, 1, 1 ) );
					print3d( wpOrg + ( 0, 0, 15 ), level.waypoints[ i ].animscript, ( 1, 0, 0 ), 2 );
				}
			}
		}
		
		if ( distance( self.origin, level.waypoints[ closest ].origin ) < 64 )
		{
			self.closest = closest;
		}
		else
		{
			self.closest = -1;
		}
	}
}

destroyOnDeath( hud )
{
	hud endon( "death" );
	self waittill_either( "zombified", "disconnect" );
	hud destroy();
}

textScroll( string )
{
	self endon( "zombified" );
	self endon( "disconnect" );
	// thanks ActionScript
	
	back = createbar( ( 0, 0, 0 ), 1000, 30 );
	back setpoint( "CENTER", undefined, 0, 220 );
	self thread destroyOnDeath( back );
	
	text = createfontstring( "default", 1.5 );
	text settext( string );
	self thread destroyOnDeath( text );
	
	for ( ;; )
	{
		text setpoint( "CENTER", undefined, 1200, 220 );
		text setpoint( "CENTER", undefined, -1200, 220, 20 );
		wait 20;
	}
}