local maxplayers = MaxClients().tointeger()
for(local i = 1; i<=maxplayers; i++) {
	local player = PlayerInstanceFromIndex(i)
	if(!player)continue
	player.TerminateScriptScope()
	AddThinkToEnt(player,null)
}

::multitrace <- [
	[-1,	1],
	[-0.5,	1],
	[0,		1],
	[0.5,	1],
	[1,		1],
	[-1,	0.5],
	[-0.5,	0.5],
	[0,		0.5],
	[0.5,	0.5],
	[1,		0.5],
	[-1,	0],
	[-0.5,	0],
	[0,		0],
	[0.5,	0],
	[1,		0],
	[-1,	-0.5],
	[-0.5,	-0.5],
	[0,		-0.5],
	[0.5,	-0.5],
	[1,		-0.5],
	[-1,	-1],
	[-0.5,	-1],
	[0,		-1],
	[0.5,	-1],
	[1,		-1]
]

::phase2health <- 666
::phase3health <- 333
::Range_Think <- function() {
	if(!("form" in self.GetScriptScope())) {
		self.GetScriptScope().form <- [-1,-1]
		self.GetScriptScope().saveddist <- null
	}
	local eyepos = self.EyePosition()
	local eyeang = self.EyeAngles()
	local fwd = eyeang.Forward()
	local lft = eyeang.Left()*0.06
	local up = eyeang.Up()*0.06
	local player
	local playerdist
	foreach(k in multitrace) {
		local trace = {
			start = eyepos
			end = (fwd+(lft*k[0])+(up*k[1]))*(1<<30)
			ignore = self
		}
		TraceLineEx(trace)
		if("enthit" in trace&&trace.enthit.GetClassname()=="player"&&trace.enthit.GetTeam()!=self.GetTeam()) {
			local dist = (trace.enthit.GetOrigin()-eyepos).Length()
			if(playerdist==null||dist<playerdist) {
				player = trace.enthit
				playerdist = dist
				saveddist = dist
			}
		}
	}
	local health = self.GetHealth()
	local previousform = form
	if(saveddist<512) { // short range
		// ClientPrint(null,4,format("ShortRange S:%s D:%s F:%s",saveddist+"",playerdist+"",form)) // debug
		if(health<phase3health) {
			if(form[0]!=3) {
				form = [3,0]
				EntFireByHandle(self,"$ChangeAttributes","ConchSoldier",-1,null,null)
			}
		}
		else if(health<phase2health) {
			if(form[0]!=2||form[1]!=0) {
				form = [2,0]
				EntFireByHandle(self,"$ChangeAttributes","ShortRange_Soldier",-1,null,null)
			}
		}
		else {
			if(form[0]!=1||form[1]!=0) {
				form = [1,0]
				EntFireByHandle(self,"$ChangeAttributes","ShortRange_Pyro",-1,null,null)
			}
		}
	}
	else { // long range
		// ClientPrint(null,4,format("ShortRange S:%s D:%s F:%s",saveddist+"",playerdist+"",form)) // debug
		if(health<phase3health) {
			if(form[0]!=3) {
				form = [3,0]
				EntFireByHandle(self,"$ChangeAttributes","ConchSoldier",-1,null,null)
			}
		}
		else if(health<phase2health) {
			if(form[0]!=2||form[1]!=1) {
				form = [2,1]
				EntFireByHandle(self,"$ChangeAttributes","LongRange_DeflectorHeavy",-1,null,null)
			}
		}
		else {
			if(form[0]!=1||form[1]!=1) {
				form = [1,1]
				EntFireByHandle(self,"$ChangeAttributes","LongRange_FOS",-1,null,null)
			}
		}
	}
	if(form[0]!=previousform[0]) {
		local soundtablephase = {
			sound_name = "npc/combine_gunship/ping_search.wav"
			entity = self
			filter = 5
		}
		PrecacheSound(soundtablephase.sound_name)
		EmitSoundEx(soundtablephase)
		EmitSoundEx(soundtablephase)
		ScreenFade(null,255,63,63,127,0.5,0,1)
	}
	if(form[1]!=previousform[1]) {
		local soundtableform = {
			sound_name = "weapons/vaccinator_toggle.wav"
			entity = self
			filter = 5
		}
		PrecacheSound(soundtableform.sound_name)
		EmitSoundEx(soundtableform)
	}
	return -1
}