local trace = v:GetEyeTrace()

	local target = ents.Create( "info_target" )
	target:SetPos(trace.HitPos+Vector(0,0,3000))
	target:SetName(v:EntIndex().."_"..math.random(1, 65536))
	target:Spawn()

	local target2 = ents.Create( "info_target" )
	target2:SetPos( trace.HitPos )
	target2:SetName(trace.Entity:EntIndex()..math.random(1, 65536))
	target2:Spawn()

	local laser = ents.Create( "env_beam" )
	laser:SetPos( trace.HitPos+Vector(0,0,3000) )
	laser:SetKeyValue( "spawnflags", "1" )
	laser:SetKeyValue( "rendercolor", "51 51 255" )
	laser:SetKeyValue( "texture", "sprites/laserbeam.spr" )
	laser:SetKeyValue( "damage", "100" )
	laser:SetKeyValue( "renderfx", "5" )
	laser:SetKeyValue( "NoiseAmplitude", "30" )
	laser:SetKeyValue( "BoltWidth", "5" )
	laser:SetKeyValue( "LightningStart", target:GetName())
	laser:SetKeyValue( "LightningEnd", target2:GetName())
	laser:Spawn()
	laser:Activate()

	local spark = ents.Create( "env_spark" )
	spark:SetKeyValue( "spawnflags", 64 )
	spark:SetKeyValue( "spawnflags", 128 )
	spark:SetKeyValue( "TrailLength", 100 )
	spark:SetKeyValue( "Magnitude", 999 )
	spark:SetKeyValue( "MaxDelay", 0.1 )
	spark:SetPos( target2:GetPos()+Vector(0,0,10) )
	spark:Spawn()
	spark:Fire( "StartSpark", "", 0 )

	for k,ent in pairs(ents.FindInSphere(target2:GetPos()+Vector(0,0,10), 128)) do
		if ent:IsValid() and ent:IsPlayer() and ent!=v then
			ent:Kill()
		end
	end

	timer.Simple(2, function()
	target:Remove()
	target2:Remove()
	laser:Remove()
	spark:Remove()
	end)