AddCSLuaFile("robsextensions.lua")

registerFunction("getGateAddress","e:","s",function(self,args)
	local op1=args[2]
	local rv1=op1[1](self,op1)
	if(!validEntity(rv1)) then return "" end
	return rv1:GetGateAddress()
end)

registerFunction("getGateName","e:","s",function(self,args)
	local op1=args[2]
	local rv1=op1[1](self,op1)
	if(!validEntity(rv1)) then return "" end
	return rv1:GetGateName()
end)

registerFunction("setPos","e:v","",function(self,args)
	//if not (self.player:IsAdmin() or self.player:IsUserGroup("vip")) then return end
	local op1,op2=args[2],args[3]
	local rv1,v=op1[1](self,op1),op2[1](self,op2)
	if(!validEntity(rv1)) then return nil end
	if rv1!=self.player and !self.player:IsAdmin() then return nil end;
	rv1:SetPos(Vector(v[1],v[2],v[3]))
	//return rv1:GetPos()
end)

e2function vector setPos(entity e,vector v)
	if not (self.player:IsAdmin() or self.player:IsUserGroup("vip")) then return end
	if not validEntity(e) then return end
	e:SetPos(Vector(v[1],v[2],v[3]))
	return e:GetPos()
end

registerFunction("nocolide","e:n","",function(self,args)
	local op1,op2=args[2],args[3]
	local e,n=op1[1](self,op1),op2[1](self,op2)
	if not validEntity(e) then return end
	if n>0 then
		e:SetCollisionGroup(COLLISION_GROUP_WORLD)
	else
		e:SetCollisionGroup(COLLISION_GROUP_NONE)
	end
end)

e2function void nocolide(entity e, number n)
	if not validEntity(e) then return end
	if n>0 then
		e:SetCollisionGroup(COLLISION_GROUP_WORLD)
	else
		e:SetCollisionGroup(COLLISION_GROUP_NONE)
	end
end

e2function void shoot(table t)
	t=t or {}
	t.Num=t.nNum or 1
	if t.vSrc then
		t.Src=Vector(t.vSrc[1],t.vSrc[2],t.vSrc[3])
	else
		t.Src=self.entity:GetPos()
	end
	if t.vDir then
		t.Dir=Vector(t.vDir[1],t.vDir[2],t.vDir[3])
	else
		t.Dir=self.entity:GetAngles():Forward()
	end
	if t.vSpread then
		t.Spread=Vector(t.vSpread[1],t.vSpread[2],t.vSpread[3])
	else
		t.Spread=Vector(0,0,0)
	end
	t.Tracer=t.nTracer or 1
	t.TracerName=t.sTracerName or "Tracer"
	t.Force=t.nForce or 0
	t.Damage=t.nDamage or 10
	t.Attacker=self.player
	self.entity:FireBullets(t)
end

local cmds={}
local justexecuted
local justexecutedargs

e2function void addConCommand(string cmd,number all)
	if not self.player:IsAdmin() or not self.player:IsUserGroup("vip") then return end
	cmds[cmd]={}
	if all==0 then
		cmds[cmd].owner=nil
	else
		cmds[cmd].owner=self.player
	end
	concommand.Add(cmd,function(ply,command,args)
		if cmds[command].owner and ply!=cmds[command].owner then return end
		justexecuted=command
		justexecutedargs=args
		self.entity:Execute()
	end)
end

/*e2function void removeConCommand(string cmd)
	if cmds[cmd] then
		concommand.Remove(cmd)
		cmds[cmd]=nil
	end
end*/

e2function number cmdExec(string cmd)
	if justexecuted==cmd then
		return 1
	end
	return 0
end

e2function array cmdArgs(string cmd)
	if justexecuted==cmd then
		return justexecutedargs
	end
	return {}
end

registerCallback("postexecute",function(self)
	justexecuted=nil
	justexecutedargs=nil
end)

local nextfiretime=CurTime()

e2function void explosion(vector pos,number mag)
	if CurTime()<nextfiretime then return end
	local explode=ents.Create("env_explosion")
	explode:SetPos(Vector(pos[1],pos[2],pos[3]))
	explode:SetOwner(self.player)
	explode:Spawn()
	explode:SetKeyValue("iMagnitude",math.Clamp(mag,1,800))
	explode:Fire("Explode",0,0)
	nextfiretime=CurTime()+0.25
end

registerCallback("construct",function(self)
	self.entity.lights={}
	self.entity.particlesystems={}
end)

e2function void lightCreate(number id,vector pos,vector colour,number brightness,number distance,number style)
	local light=self.entity.lights[id] or ents.Create("light_dynamic")
	light:SetPos(Vector(pos[1],pos[2],pos[3]))
	light:SetKeyValue("_light",math.Clamp(colour[1],0,255).." "..math.Clamp(colour[2],0,255).." "..math.Clamp(colour[3],0,255).." "..255)
	light:SetKeyValue("brightness",brightness)
	light:SetKeyValue("distance",distance)
	light:SetKeyValue("style",style)
	light:Spawn()
	//light:Fire("TurnOn","","0")
	self.entity.lights[id]=light
end

e2function void lightOn(number id)
	if self.entity.lights[id] then
		self.entity.lights[id]:Fire("TurnOn","",0)
	end
end

e2function void lightOff(number id)
	if self.entity.lights[id] then
		self.entity.lights[id]:Fire("TurnOff","",0)
	end
end

e2function void lightPos(number id,vector pos)
	if self.entity.lights[id] then
		self.entity.lights[id]:SetPos(Vector(pos[1],pos[2],pos[3]))
	end
end

e2function void lightColour(number id,vector colour)
	if self.entity.lights[id] then
		self.entity.lights[id]:SetKeyValue("_light",math.Clamp(colour[1],0,255).." "..math.Clamp(colour[2],0,255).." "..math.Clamp(colour[3],0,255).." "..255)
	end
end

e2function void lightBrightness(number id,number b)
	if self.entity.lights[id] then
		self.entity.lights[id]:SetKeyValue("brightness",math.Clamp(b,0,10))
	end
end

e2function void lightDist(number id,number d)
	if self.entity.lights[id] then
		self.entity.lights[id]:SetKeyValue("distance",math.Clamp(d,0,1024))
	end
end

e2function void lightStyle(number id,number s)
	if self.entity.lights[id] then
		self.entity.lights[id]:SetKeyValue("style",s)
	end
end

e2function void lightParent(number id,entity ent)
	if self.entity.lights[id] then
		self.entity.lights[id]:SetParent(ent)
	end
end

e2function void lightDestroy(number id)
	if self.entity.lights[id] then
		self.entity.lights[id]:SetParent()
		self.entity.lights[id]:Fire("TurnOff","",0)
		self.entity.lights[id]:Fire("kill","",1)
	end	
end

local function createparticles(self,id,name,pos,ang,parent)
	local p=ents.Create("info_particle_system")
	local angle
	if ang then
		angle=Angle(ang[1],ang[2],ang[3])
	else
		angle=Angle(0,0,0)
	end
	p:SetPos(Vector(pos[1],pos[2],pos[3]))
	p:SetAngles(angle)
	p:SetKeyValue("effect_name",name)
	p:SetKeyValue("start_active",tostring(0))
	p:Spawn()
	p:Activate()
	if parent then
		p:SetParent(parent)
	end
	self.entity.particlesystems[id]=p
	print(p,id,name,pos)
	PrintTable(ang)
	print(angle)
end

e2function void particleCreate(number id,string name,vector pos,angle ang,entity parent)
	createparticles(self,id,name,pos,ang,parent)
end

e2function void particleCreate(number id,string name,vector pos,angle ang)
	createparticles(self,id,name,pos,ang)
end

e2function void particleCreate(number id,string name,vector pos)
	createparticles(self,id,name,pos)
end

e2function void particleDestroy(number id)
	if not self.entity.particlesystems[id] then return end
	self.entity.particlesystems[id]:Fire("Stop","",0)
	self.entity.particlesystems[id]:SetParent()
	self.entity.particlesystems[id]:Remove()
	self.entity.particlesystems[id]=nil
end

e2function void particleStart(number id)
	if self.entity.particlesystems[id] then
		self.entity.particlesystems[id]:Fire("Start","",0)
	end
end

e2function void particleStop(number id)
	if self.entity.particlesystems[id] then
		self.entity.particlesystems[id]:Fire("Stop","",0)
	end
end

e2function void particlePos(number id,vector pos)
	if self.entity.particlesystems[id] then
		self.entity.particlesystems[id]:SetPos(Vector(pos[1],pos[2],pos[3]))
	end
end

e2function void particleAng(number id,angle ang)
	if self.entity.particlesystems[id] then
		self.entity.particlesystems[id]:SetAngles(Angle(ang[1],ang[2],ang[3]))
	end
end

e2function void particleParent(number id,entity parent)
	if self.entity.particlesystems[id] and validEntity(parent) then
		self.entity.particlesystems[id]:SetParent(parent)
	end
end

registerCallback("destruct",function(self)
	for i,v in ipairs(self.entity.lights) do
		if v:IsValid() then
			v:SetParent()
			v:Fire("TurnOff","",0)
			v:Fire("kill","",1)
		end
	end
	for i,v in ipairs(self.entity.particlesystems) do
		if v:IsValid() then
			v:SetParent()
			v:Fire("Stop","",0)
			v:Remove()
		end
	end
end)