-- Adv. Teleporter
-- By Anya O'Quinn / Slade Xanthas

AddCSLuaFile()

ENT.Type		= "anim"
ENT.Base		= "base_anim"
ENT.PrintName	= "Teleporter"

function ENT:SetupDataTables()
	self:NetworkVar("Entity", 	0, "Destination")
	self:NetworkVar("Float", 	0, "TeleUniqueID")
	self:NetworkVar("Float", 	1, "TeleDestinationUniqueID")
	self:NetworkVar("Int", 		0, "TeleRadius", 		{KeyName = "teleradius"})
	self:NetworkVar("String", 	0, "TeleSound", 		{KeyName = "telesound"})
	self:NetworkVar("String", 	1, "TeleEffect", 		{KeyName = "Teleeffect"})
	self:NetworkVar("Bool", 	0, "TeleOnUse", 		{KeyName = "teleonuse"})
	self:NetworkVar("Bool", 	1, "TeleOnTouch", 		{KeyName = "teleontouch"})
	self:NetworkVar("Bool", 	2, "TeleShowBeam", 		{KeyName = "teleshowbeam"})
	self:NetworkVar("Bool", 	3, "TeleShowRadius", 	{KeyName = "teleshowradius"})
	self:NetworkVar("Bool", 	4, "TeleShake", 		{KeyName = "teleshake"})
	self:NetworkVar("Int", 		5, "TeleDelay", 		{KeyName = "teledelay"})
	self:NetworkVar("Int", 		6, "TeleHeight", 		{KeyName = "teleheight"})
end

if CLIENT then

	killicon.Add("gmod_advteleporter", "effects/killicons/gmod_advteleporter", color_white )

	function ENT:Initialize()

		self.Mat = Material("sprites/tp_beam001")
		self.Sprite = Material("sprites/blueglow2")
		self.LinkedColor = Color(255,255,255,255)
		self.UnlinkedColor = Color(255,255,255,255)

		self.RadiusSphere = octolib.createDummy("models/hunter/misc/shell2x2.mdl", RENDERGROUP_OPAQUE)

		if IsValid(self.RadiusSphere) then
			self.RadiusSphere:SetNoDraw(true)
			self.RadiusSphere:SetPos(self:LocalToWorld(self:OBBCenter()))
			self.RadiusSphere:SetParent(self)
		end

	end

	function ENT:Draw()

		self:DrawModel()

		local Destination = self:GetDestination()

		if IsValid(self) and IsValid(self.RadiusSphere) then

			if self:GetTeleRadius() and self:GetTeleShowRadius() then

				render.SuppressEngineLighting(true)

				if IsValid(Destination) and IsValid(Destination:GetDestination()) and (self == Destination:GetDestination()) then
					render.SetColorModulation(2,2,2)
				else
					render.SetColorModulation(2,2,2)
				end

				render.SetBlend(1)
				self.RadiusSphere:DrawModel()
				render.SuppressEngineLighting(false)
				render.SetBlend(1)
				render.SetColorModulation(1,1,1)
				self.RadiusSphere:SetModelScale(self:GetTeleRadius() / 45,0)
				self.RadiusSphere:SetMaterial("effects/combineshield/comshieldwall3")

			end

		end

		if IsValid(self) and IsValid(Destination) and isfunction(Destination.GetDestination) and IsValid(Destination:GetDestination()) and (self == Destination:GetDestination()) and self:GetTeleShowBeam() and Destination:GetTeleShowBeam() then
			render.SetMaterial(self.Mat)
			render.DrawBeam(self:LocalToWorld(self:OBBCenter()), Destination:LocalToWorld(Destination:OBBCenter()), 6, 6, 0, self.LinkedColor)
			render.SetMaterial(self.Sprite)
			local rand = math.random(-3,3)
			render.DrawSprite(self:LocalToWorld(self:OBBCenter()), 6 + rand, 6 + rand, self.LinkedColor)
			render.DrawSprite(Destination:LocalToWorld(Destination:OBBCenter()), 6 + rand, 6 + rand, Destination.LinkedColor)
			self:SetRenderBoundsWS(self:GetPos(), Destination:GetPos())
		elseif IsValid(self) then
			self:SetRenderBoundsWS(self:GetPos() + self:OBBMins(),self:GetPos() + self:OBBMaxs())
		end

	end

	function ENT:OnRemove()
		if IsValid(self.RadiusSphere) then
			self.RadiusSphere:Remove()
			self.RadiusSphere = nil
		end
	end

end

if SERVER then

	function ENT:Initialize()

		self:PhysicsInit(SOLID_VPHYSICS)
		self:SetMoveType(MOVETYPE_VPHYSICS)
		self:SetSolid(SOLID_VPHYSICS)
		self:SetUseType(SIMPLE_USE)

		self.NextTeleport = CurTime()

		if Wire_CreateInputs then
			self.Inputs = Wire_CreateInputs(self, {"Teleport","Lock"})
		end

		self.tEnts = {}

		local phys = self:GetPhysicsObject()
		if IsValid(phys) then
			phys:Wake()
		end

		if self:GetTeleUniqueID() == 0 then
			self:SetTeleUniqueID(RealTime() + self:EntIndex())
		end

		self:LinkUp()

	end

	function ENT:LinkUp()

		if IsValid(self:GetDestination()) then return end

		if self:GetTeleDestinationUniqueID() ~= 0 then

			for _,v in pairs(ents.FindByClass(self:GetClass())) do
				if IsValid(v)
				and v ~= self
				and v:GetTeleUniqueID() ~= 0
				and v:GetTeleDestinationUniqueID() ~= 0
				and self:GetTeleDestinationUniqueID() == v:GetTeleUniqueID()
				and v:GetTeleDestinationUniqueID() == self:GetTeleUniqueID()
				then
					self:SetDestination(v)
					v:SetDestination(self)
					self.NextTeleport = CurTime() + self:GetTeleDelay()
					v.NextTeleport = CurTime() + self:GetTeleDelay()
					break
				end
			end

		else

			for _,v in pairs(ents.FindByClass(self:GetClass())) do

				if IsValid(self)
				and IsValid(v)
				and v ~= self
				and self.TeleKey
				and v.TeleKey
				and v.TeleKey == self.TeleKey
				and v:CPPIGetOwner() == self:CPPIGetOwner()
				and not IsValid(self:GetDestination())
				and not IsValid(v:GetDestination())
				then
					self:SetDestination(v)
					v:SetDestination(self)
					self:SetTeleDestinationUniqueID(v:GetTeleUniqueID())
					v:SetTeleDestinationUniqueID(self:GetTeleUniqueID())
					self.NextTeleport = CurTime() + self:GetTeleDelay()
					v.NextTeleport = CurTime() + self:GetTeleDelay()
					break
				end

			end

		end

	end

	function ENT:PreEntityCopy()
		local dupeInfo = {}
		if IsValid(self) and IsValid(self:GetDestination()) then
			dupeInfo.DestinationID = self:GetDestination():EntIndex()
			duplicator.StoreEntityModifier(self, "DestinationDupeInfo", dupeInfo)
		end
	end

	function ENT:PostEntityPaste(pl, Ent, CreatedEntities)
		if not Ent.EntityMods then return end
		self:SetDestination(CreatedEntities[Ent.EntityMods.DestinationDupeInfo.DestinationID])
	end

	function ENT:Setup(model, sound, effect, radius, ontouch, onuse, showbeam, showradius, shake, delay, height, key)

		self:SetTeleSound(sound)
		self:SetTeleEffect(effect)
		self:SetTeleOnTouch(ontouch)
		self:SetTeleOnUse(onuse)
		self:SetTeleRadius(radius)
		self:SetTeleShowBeam(showbeam)
		self:SetTeleShowRadius(showradius)
		self:SetTeleShake(shake)
		self:SetTeleDelay(delay)
		self:SetTeleHeight(height)

		if not self.TeleKey then
			self.TeleKey = key
		end

		if not self:GetModel() then
			self:SetModel(model)
		end

		if not IsValid(self:GetDestination()) then
			self:LinkUp()
		end

		if IsValid(self:GetDestination()) and self:GetTeleShowBeam() ~= self:GetDestination():GetTeleShowBeam() then
			self:GetDestination():SetTeleShowBeam(self:GetTeleShowBeam())
		end

	end

	function ENT:Teleport(ent)

		if not IsValid(self) or not IsValid(self:GetDestination()) or not IsValid(ent) then return end

		local dest = self:GetDestination()
		local oldAng = ent:IsPlayer() and ent:EyeAngles() or ent:GetAngles()
		local relPos, relAng = WorldToLocal(ent:GetPos(), oldAng, self:GetPos(), self:GetAngles())
		self:EmitSound(self:GetTeleSound())

		local fx = EffectData()
		fx:SetScale(3)
		fx:SetRadius(3)
		fx:SetMagnitude(7)
		fx:SetEntity(self)
		fx:SetOrigin(self:GetPos())
		util.Effect(self:GetTeleEffect(), fx, true, true)
		fx:SetEntity(dest)
		fx:SetOrigin(dest:GetPos())
		util.Effect(dest:GetTeleEffect(), fx, true, true)

		timer.Simple(0, function()
			local newPos, newAng = LocalToWorld(relPos, relAng, dest:GetPos(), dest:GetAngles())
			ent:SetPos(newPos)
			if ent:IsPlayer() then
				ent:SetEyeAngles(newAng)
			else
				ent:SetAngles(newAng)
			end

			table.insert(self.tEnts,ent)
			table.insert(dest.tEnts,ent)

			if self:GetTeleShake() then
				util.ScreenShake(self.Entity:GetPos(),5,5,1,self:GetTeleRadius()*5)
				util.ScreenShake(self.Entity:GetDestination():GetPos(),5,5,1,self:GetTeleRadius()*5)
			end

			dest:EmitSound(dest:GetTeleSound())
		end)
	end

	function ENT:Use(activator,caller)
		if IsValid(activator) and activator:IsPlayer() then
			self.Activator = activator
			self.IsBeingUsed = true
		end
	end

	function ENT:Think()

		if not IsValid(self) then return end

		local dest = self:GetDestination()
		if IsValid(dest) then

			self:SetDestination(dest)

			local area = ents.FindInSphere(self:GetPos(),self:GetTeleRadius())

			for i,ent in ipairs(area) do

				if IsValid(ent)
				and (ent:IsPlayer() or ent:IsNPC() or ent.Type == "nextbot")
				and ent ~= self
				and ent ~= dest
				and not table.HasValue(self.tEnts,ent)
				and not table.HasValue(dest.tEnts,ent)
				and (self:GetTeleOnTouch() or self.KeyOn or self.WireTeleport or (self:GetTeleOnUse() and self.IsBeingUsed))
				and not dest.Locked
				and self.NextTeleport < CurTime()
				and dest.NextTeleport < CurTime() then
					self:Teleport(ent)
					self.NextTeleport = CurTime() + 0.1 + self:GetTeleDelay()
				end

			end

			self.IsBeingUsed = false

			for i,v in pairs(self.tEnts) do
				if not table.HasValue(area,v) then
					self.tEnts[i] = nil
				end
			end

		end

		if self.IsBeingUsed and IsValid(self.Activator) and self.Activator:IsPlayer() and (self.Activator:KeyReleased(IN_USE) or not self.Activator:GetEyeTraceNoCursor().Entity == self) then
			self.IsBeingUsed = false
		end

		if IsValid(dest) then
			self:NextThink(CurTime() + 1)
		else
			self:LinkUp()
			self:NextThink(CurTime() + 2)
		end

		return true

	end

	local function On(pl, ent)
		if not IsValid(ent) then return end
		ent.KeyOn = true
		return true
	end

	local function Off(pl, ent)
		if not IsValid(ent) then return end
		ent.KeyOn = false
		return true
	end

	numpad.Register("Teleporter_On", On)
	numpad.Register("Teleporter_Off", Off)

	function ENT:TriggerInput(iname, value)

		if iname == "Teleport" then

			if value == 1 then
				self.WireTeleport = true
			end

			if value == 0 and self.WireTeleport then
				self.WireTeleport = false
			end

		end

		if iname == "Lock" then

			if value == 1 and not self.Locked then
				self.Locked = true
			end

			if value == 0 and self.Locked then
				self.Locked = false
			end

		end

	end

end

-- 37062385