#include maps\_utility;
init()
{
	flag_init("path_Notviewing");
	flag_init("path_refresh");
}
main()
{
}
path_enable()
{
	if(GetDvar( #"path_enable") != "1")
	{
		flag_set("path_refresh");
		level.pathmod.alpha = 0;
	}
	path_waittill_enable();
	level.pathmod.alpha = 1;
}
path_waittill_enable()
{
	while(GetDvar( #"path_enable") != "1")
	{
		wait .1;
	}
}
path_viewmode()
{
	wait .1;
	while(1)
	{
		path_waittill_enable();
		flag_set("path_Notviewing");
		flag_clear("path_refresh");
		thread path_connectlines();
		for(i=0;i<level.path_views[level.path_selectid].size;i++)
		{
			level.path_views[level.path_selectid][i] thread path_viewwait(i);
		}
		thread path_activatebutton();
		thread path_handleselectindex();
		flag_wait("path_refresh");
		flag_wait("path_Notviewing");
	}
}
path_connectlines()
{
	level endon ("path_refresh");
	dots = [];
	for(i=0;i<level.path_views[level.path_selectid].size;i++)
	{
		dots[i] = level.path_views[level.path_selectid][i].origin;
	}
	while(1)
	{
		plot_points(dots,1,0,0,.05);
		wait .05;
	}
}
path_activatebutton()
{
	level endon ("path_refresh");
	while(1)
	{
		players = get_players();
		while(!players[0] usebuttonpressed())
		{
			wait .05;
		}
		pick = path_getvisible();
		if(isdefined(pick.index))
		{
			level.path_selectindex = pick.index;
			level.path_selectid = path_createid(pick.ident);
		}
		while(players[0] usebuttonpressed())
		{
			wait .05;
		}
	}
}
path_handleselectindex()
{
	level endon ("path_refresh");
	lastselect = level.path_selectindex;
	while(1)
	{
		if(!isdefined(level.path_views[level.path_selectid][lastselect]))
		{
			level.pathmod setshader("psourcecreate",level.pathmodsize*2,level.pathmodsize);
		}
		if(lastselect == level.path_selectindex)
		{
			wait .05;
			continue;
		}
		lastselect = level.path_selectindex;
		if(isdefined(level.path_views[level.path_selectid][lastselect]))
		{
			level.path_views[level.path_selectid][lastselect] thread path_hudshow();
		}
	}
}
path_hudshow()
{
	players = get_players();
	flag_clear("path_Notviewing");
	level.pathmod setshader("psourcemodify",level.pathmodsize*2,level.pathmodsize);
	players[0] freezecontrols(true);
	players[0] setorigin( self.origin+(players[0].origin-players[0] geteye()) - vector_scale(anglestoforward(self.angles),3));
	players[0] setplayerangles(self.angles);
	flag_set ("path_refresh");
	while(players[0] islookingorg(self) && players[0] usebuttonpressed())
	{
		wait .05;
	}
	players[0] freezecontrols(false);
	flag_set("path_Notviewing");
}
path_getvisible()
{
	outident = undefined;
	index = undefined;
	dist = 1000000;
	for(j=0;j<level.paths_selectid_list.size;j++)
	{
		ident = level.paths_selectid_list[j];
		for(i=0;i<level.path_views[ident].size;i++)
		{
			players = get_players();
			if(players[0] islookingorg(level.path_views[ident][i]))
			{
				newdist = distance(players[0] geteye(),level.path_views[ident][i].origin);
				if(newdist < dist)
				{
					dist = newdist;
					index = i;
					outident = ident;
				}
			}
		}
	}
	outvar = spawnstruct();
	outvar.index = index;
	outvar.ident = outident;
	return outvar;
}
path_viewwait(index)
{
	level endon ("path_refresh");
	arrowlength = 55;
	viewradexpandmax = 8;
	viewradexpandcount = 0;
	viewraddir = 1;
	frametime = .05;
	while(1)
	{
		players = get_players();
		if(distance(flat_origin(self.origin),flat_origin(players[0].origin)) < 32)
		{
			wait .05;
			continue;
		}
		thread draw_arrow_time(self.origin,self.origin+vector_scale(anglestoforward(self.angles),arrowlength),(0,1,1),frametime);
		if(level.path_selectindex == index)
		{
			thread plot_circle_star_fortime(level.path_selectrad,frametime,(1,1,0));
		}
		else
		{
			thread plot_circle_fortime(level.path_selectrad,frametime,(0,1,0));
		}
		if(isdefined(level.path_viewindex) && level.path_viewindex == index)
		{
			if(viewradexpandcount > viewradexpandmax)
			{
				viewraddir = -1;
			}
			else if(viewradexpandcount < 0)
			{
				viewraddir = 1;
			}
			viewradexpandcount+=viewraddir;
			viewrad = level.path_selectrad+3+viewradexpandcount;
			viewcolor = (0,1,1);
		}
		else
		{
			viewrad = level.path_selectrad+3;
			viewcolor = (0,1,0);
		}
		thread plot_circle_fortime(viewrad,frametime,viewcolor);
		wait .05;
	}
}
plot_circle_star_fortime (radius,time,color)
{
	if(!isdefined(color))
	{
		color = (0,1,0);
	}
	hangtime = .05;
	circleres = 16;
	hemires = circleres/2;
	circleinc = 360/circleres;
	circleres++;
	plotpoints = [];
	rad = 0;
	plotpoints = [];
	rad = 0.000;
	timer = gettime()+(time*1000);
	while(gettime()<timer)
	{
		players = get_players();
		angletoplayer = vectortoangles(self.origin-players[0] geteye());
		for(i=0;i<circleres;i++)
		{
			plotpoints[plotpoints.size] = self.origin+vector_scale(anglestoforward((angletoplayer+(rad,90,0))),radius);
			rad+=circleinc;
		}
		for(i=0;i<plotpoints.size;i++)
		{
			line(plotpoints[i],self.origin,color,1);
		}
		plotpoints = [];
		wait hangtime;
	}
}
plot_circle_fortime(radius,time,color)
{
	if(!isdefined(color))
	{
		color = (0,1,0);
	}
	hangtime = .05;
	circleres = 16;
	hemires = circleres/2;
	circleinc = 360/circleres;
	circleres++;
	plotpoints = [];
	rad = 0;
	plotpoints = [];
	rad = 0.000;
	timer = gettime()+(time*1000);
	while(gettime()<timer)
	{
		players = get_players();
		angletoplayer = vectortoangles(self.origin-players[0] geteye());
		for(i=0;i<circleres;i++)
		{
			plotpoints[plotpoints.size] = self.origin+vector_scale(anglestoforward((angletoplayer+(rad,90,0))),radius);
			rad+=circleinc;
		}
		plot_points(plotpoints,color[0],color[1],color[2],hangtime);
		plotpoints = [];
		wait hangtime;
	}
}
path_select_next()
{
	if(GetDvar( #"path_select_next") == "")
	{
		return;
	}
	if(!(level.path_selectindex == level.path_views[level.path_selectid].size))
	{
		level.path_selectindex++;
	}
	setdvar("path_select_next","");
}
path_select_prev()
{
	if(GetDvar( #"path_select_prev") == "")
	{
		return;
	}
	if(!(level.path_selectindex == 0))
	{
		level.path_selectindex--;
	}
	setdvar("path_select_prev","");
}
path_select_new()
{
	if(GetDvar( #"path_select_new") == "")
	{
		return;
	}
	level.path_selectindex = level.path_views[level.path_selectid].size;
	setdvar("path_select_new","");
}
path_setid()
{
	if(GetDvar( #"path_setid") == "")
	{
		return;
	}
	level.path_selectid = path_createid(GetDvar( #"path_setid"));
	level.path_selectindex = 0;
}
path_setview()
{
	if(GetDvar( #"path_setview") == "")
	{
		return;
	}
	view = path_getcurrentview();
	path_setvieworgang(view);
	setdvar("path_setview","");
	flag_set("path_refresh");
}
path_setvieworgang ( view )
{
	players = get_players();
	view.origin = players[0] geteye();
	view.angles = players[0] getplayerangles();
}
path_trigger_setvieworgang ( view )
{
	players = get_players();
	view.origin = players[0] geteye();
	view.radius = 200;
}
path_dump ()
{
	if(GetDvar( #"path_dump") == "")
	{
		return;
	}
	println (" ");
	println (" ");
	println (" ");
	println ("--------******--------");
	println ("       path dump      ");
	println ("--------******--------");
	println (" ");
	println (" ");
	for(j=0;j<level.paths_selectid_list.size;j++)
	{
		ident = level.paths_selectid_list[j];
		println ("path ident: "+ident);
		for(i=0;i<level.path_views[ident].size;i++)
		{
			println (level.path_views[ident][i].origin+","+level.path_views[ident][i].angles);
		}
	}
	for(j=0;j<level.paths_selectid_list.size;j++)
	{
		ident = level.paths_selectid_list[j];
		for(i=0;i<level.path_views[ident].size;i++)
		{
			println ("maps\\\_createpath::path_create(\""+level.path_views[ident][i].origin+","+level.path_views[ident][i].angles+");");
		}
	}
	println (" ");
	println (" ");
	println (" ");
	setdvar("path_dump","");
}
path_help ()
{
	if(GetDvar( #"path_help") == "")
	{
		return;
	}
	println(" ");
	println(" ");
	println("Photo refrenence - Help ");
	println(" ");
	println(" photo reference is a tool to help communicate art direction within the level ");
	println(" An artist or a level designer can run this tool to place images of photo ");
	println(" source like a gallery throughout the level.");
	println(" ");
	println(" before starting do /exec psource.cfg");
	println(" ");
	println("path_enable ( 7 Key ) - toggles psource on and off");
	println("path_setview ( 8 Key ) - sets the view of the currently selected position.");
	println("path_select_prev ( [ Key ) - selects prev psourceposition");
	println("path_select_next ( ] Key ) - selects next psourceposition");
	println("path_select_new ( \\ Key ) - selects NEW psourceposition, used to create a new position on setview");
	println("path_help ( h Key ) - prints to console this help text");
	println("path_dump ( u Key ) - dumps view list to the console to be cut and pasted into script somewhere");
	println("path_delete ( del Key ) - deletes the currently selected view (yellow star in circle)");
	println(" ");
	println("Pressing the usebutton on a sphere will teleport you so that you can see ");
	println("the desired angle of the piece of reference, this also selects the view");
	println("and highlights it yellow");
	println(" ");
	println("To change the image of the currently selected view go to the console and enter this dvar");
	println("path_image <materialname>");
	println(" ");
	println("Once you have all your views press the dump button, open your console.log and paste the script to your level script");
	setdvar("path_help","");
}
path_delete()
{
	if(GetDvar( #"path_delete") == "")
	{
		return;
	}
	newarray = [];
	for(i=0;i<level.path_views[level.path_selectid].size;i++)
	{
		if(i != level.path_selectindex)
		{
			newarray[newarray.size] = level.path_views[level.path_selectid][i];
		}
	}
	level.path_views = newarray;
	flag_set ("path_refresh");
	setdvar("path_delete","");
}
path_select_template()
{
	if(GetDvar( #"path_select_template") == "")
	{
		return;
	}
	setdvar("path_select_template","");
}
path_editmode_update()
{
	if(GetDvar( #"path_editmode") == "")
	{
		return;
	}
	if(!level.path_editmode)
	{
		level.path_editmode = true;
	}
	else
	{
		level.path_editmode = false;
	}
	setdvar("path_editmode","");
}
path_image_update()
{
	if(GetDvar( #"path_image") == "")
	{
		return;
	}
	view = path_getcurrentview();
	setdvar("path_image","");
}
path_getcurrentview()
{
	view = undefined;
	if(isdefined(level.path_views[level.path_selectid]) && isdefined(level.path_views[level.path_selectid][level.path_selectindex]))
	{
		view = level.path_views[level.path_selectindex][level.path_selectid];
	}
	else
	{
		view = path_newview(false);
	}
	return view;
}
path_trigger_newview(bScriptAdded)
{
	view = spawnstruct();
	if(!bScriptAdded)
	{
		path_trigger_setvieworgang(view);
	}
	if(isdefined(level.path_triggers[level.path_selectid][level.path_selectindex]))
	{
		level.path_triggers[level.path_selectid][level.path_selectindex] delete();
	}
	level.path_triggers[level.path_selectid][level.path_selectindex] = view;
	if(!bScriptAdded)
	{
		flag_set("path_refresh");
	}
	return view;
}
path_newview(bScriptAdded)
{
	view = spawnstruct();
	if(!bScriptAdded)
	{
		path_setvieworgang(view);
	}
	if(isdefined(level.path_views[level.path_selectid][level.path_selectindex]))
	{
		level.path_views[level.path_selectid][level.path_selectindex] delete();
	}
	level.path_views[level.path_selectid][level.path_selectindex] = view;
	if(!bScriptAdded)
	{
		flag_set("path_refresh");
	}
	return view;
}
path_createid(ident)
{
	if(!isdefined(level.paths_selectid_list))
	{
		level.paths_selectid_list = [];
	}
	for(i=0;i<level.paths_selectid_list.size;i++)
	{
		if(ident == level.paths_selectid_list[i])
		{
			return ident;
		}
	}
	level.paths_selectid_list[level.paths_selectid_list.size] = ident;
	return ident;
}
path_create ( position, angle ,ident)
{
}
path_trigger_create ( position, radius, ident)
{
}
islookingorg(view)
{
	normalvec = vectorNormalize(view.origin-self geteye());
	veccomp = vectorNormalize((view.origin-(0,0,level.path_selectrad*2))-self geteye());
	insidedot = vectordot(normalvec,veccomp);
	anglevec = anglestoforward(self getplayerangles());
	vectordot = vectordot(anglevec,normalvec);
	if(vectordot > insidedot)
	{
		return true;
	}
	else
	{
		return false;
	}
}