AddCSLuaFile("cl_init.lua")
AddCSLuaFile("shared.lua")
include('shared.lua')

ENT.Target = NULL
ENT.EntAngs = NULL
ENT.ArmDel = CurTime()
ENT.MissileSound = NULL
ENT.ExplosionDel = CurTime() + 1

	ENT.speed		= 2000
	ENT.damage		= 100
	ENT.radius		= 500
	ENT.physeffect	= 1000
	ENT.armtime		= 2
	ENT.homing		= 1
	ENT.angchange	= 5
	
ENT.MissileTime = CurTime() + 5	
ENT.UpdateLaserPosDel = CurTime()
ENT.LaserPos = NULL

ENT.FollowCountermeasure = 0
ENT.IgnoreCounterMeasure = 0
ENT.TargetIsJetFighter = 0

function ENT:SpawnFunction( ply, tr )
--------Spawning the entity and getting some sounds i use.   
 	if ( !tr.Hit ) then return end 
 	 
 	local SpawnPos = tr.HitPos + tr.HitNormal * 10 
 	 
 	local ent = ents.Create( "sent_Sakarias88Missile" )
	ent:SetPos( SpawnPos ) 
 	ent:Spawn()
 	ent:Activate() 
 	ent.Owner = ply
	return ent 
 	 
end

function ENT:Initialize()

	self.Entity:SetModel("models/military2/missile/missile_agm88.mdl")
	--self.Entity:SetModel("models/weapons/W_missile_closed.mdl")
	self.Entity:SetColor(255, 255, 255, 255)
	self.Entity:SetOwner(self.Owner)
	self.Entity:PhysicsInit(SOLID_VPHYSICS)
	self.Entity:SetMoveType(MOVETYPE_VPHYSICS)
	self.Entity:SetSolid(SOLID_VPHYSICS)

	self.Entity:SetSolid(SOLID_VPHYSICS)	
    local phys = self.Entity:GetPhysicsObject()
	if(phys:IsValid()) then phys:Wake() end

	 	self.EntAngs = self.Entity:GetAngles()
		
		self.ArmDel = CurTime() + self.armtime
	util.SpriteTrail(self.Entity, 0, Color(200,200,200,255), false, 4, 0, 3, 1/(15+1)*0.5, "trails/smoke.vmt")
	
	self.MissileSound = CreateSound(self.Entity,"weapons/rpg/rocket1.wav")
	self.MissileSound:Play()
	self.Entity:SetCollisionGroup( 1 )	
	
	self.MissileTime = CurTime() + 10
	
	--There is a 50% chance that the missile will ignore countermeasures
	self.IgnoreCounterMeasure = math.random(1,50)
end

-------------------------------------------PHYS COLLIDE
function ENT:PhysicsCollide( data, phys ) 
	ent = data.HitEntity
	
	self.Entity:Remove()
end

-------------------------------------------PHYS UPDATE
function ENT:PhysicsUpdate( physics )

		phys = self.Entity:GetPhysicsObject()
		local veloc = phys:GetVelocity()

		
		
	if self.MissileTime > CurTime() && self.Entity.Target:IsValid() then
		if self.UpdateLaserPosDel < CurTime() then
		self.LaserPos = self.Entity.Target:GetPos()
		self.UpdateLaserPosDel = CurTime() + 0.2
		end


					local AimVec = ( self.LaserPos - self.Entity:GetPos() ):Angle()
					local Dist = math.min(self.Entity:GetPos():Distance(self.LaserPos), 5000)
					local Dist = Dist / 5000
					local Mod = (1 - Dist) * self.angchange
					
					
					self.EntAngs.p = math.ApproachAngle( self.EntAngs.p, AimVec.p, 0.5 + Mod )
					self.EntAngs.r = math.ApproachAngle( self.EntAngs.r, AimVec.r, 0.5 + Mod )
					self.EntAngs.y = math.ApproachAngle( self.EntAngs.y, AimVec.y, 0.5 + Mod )
					self.Entity:SetAngles( self.EntAngs )									
	end
	
		phys:SetVelocity(veloc)
		phys:ApplyForceCenter(self.Entity:GetForward() * 40000 )
	
end
-------------------------------------------THINK
function ENT:Think()

	if self.ExplosionDel < CurTime() then
		self.Entity:SetCollisionGroup( 3 )
	end
	
	phys = self.Entity:GetPhysicsObject()
	phys:Wake()
	
	--if self.Entity.Target:IsValid() && self.TargetIsJetFighter == 0 then
	if self.Entity.Target:IsValid() then
		if string.find(self.Entity.Target:GetClass(), "sent_sakariasjet") or self.Entity.Target:IsPlayer() or self.Entity.Target:IsVehicle() then
			self.TargetIsJetFighter = 1
			self.Entity.Target.IsMissileTarget = 1
		end
	end		
	
	
	
	if self.FollowCountermeasure == 0 && self.IgnoreCounterMeasure != 25 then 
		local NewTarget =  ents.FindInSphere(  self.Entity:GetPos() , 2000)					
		local NumberOfTargets = table.Count(NewTarget)
		local Dist = 1000
		
		for i=1, NumberOfTargets do
			if string.find(NewTarget[i]:GetClass(), "sent_countermeasure") && self.FollowCountermeasure == 0 then
				if self.TargetIsJetFighter == 1 then
					self.Entity.Target.IsMissileTarget = 0
				end
			
				self.FollowCountermeasure = 1
				self.Entity.Target = NewTarget[i]
			end
		end
	end
	
	if self.FollowCountermeasure == 1 && self.Entity.Target != NULL then
		local dist = self.Entity.Target:GetPos():Distance(self.Entity:GetPos())	
		if dist < 150 then
			self.Entity:Remove()
		end
	end
	
	
end

-------------------------------------------REMOVE
function ENT:OnRemove()

	self.MissileSound:Stop()

	local expl = ents.Create("env_explosion")
	expl:SetKeyValue("spawnflags",128)
	expl:SetPos(self.Entity:GetPos())
	expl:Spawn()
	expl:Fire("explode","",0)
	
	local FireExp = ents.Create("env_physexplosion")
	FireExp:SetPos(self.Entity:GetPos())
	FireExp:SetParent(self.Entity)
	FireExp:SetKeyValue("magnitude", 500)
	FireExp:SetKeyValue("radius", 200)
	FireExp:SetKeyValue("spawnflags", "1")
	FireExp:Spawn()
	FireExp:Fire("Explode", "", 0)
	FireExp:Fire("kill", "", 5)
	util.BlastDamage( self.Entity, self.Entity, self.Entity:GetPos(), 200, 200)
	
	if self.TargetIsJetFighter == 1 then
		self.Entity.Target.IsMissileTarget = 0
	end


end