Look at Sun+Lights glare effect; Where did I go wrong?

I have been modifying... well, completely redesigning a script I found that caused a screen glare when the Player looked up at the sun, I'm aiming for it to do that for anything that has a light the player looks at (as long as the light is enabled; for spotlights if they are pointed at the player), I had been doing alright with this script for awhile, but I'm beginning to think this is a little larger than I can handle, plus I've run into an annoying block... the Color(s) stopped calculating correctly, and... well, if you copy the code below and paste it in a Localscript with all the variables accounted for, you'll see what I mean...

repeat wait() until game.Players.LocalPlayer.Character --[ Giving Time If A Player Handling Script Needs To Run Beforehand. ]

local GroupS = game:GetService("GroupService")	--[ I like to get all the services just in case I'll need them later... ]
local WorkS = game:GetService('Workspace')
local People = game:GetService('Players')
local Lights = game:GetService('Lighting')
local SG = game:GetService('StarterGui')
local TeamS = game:GetService('Teams')

--[Constants]:
local HUD = script.Parent	--[ Simple screen GUI. ]
local HudScrn = HUD:FindFirstChild("ViewMain")	--[ Frame called "ViewMain". ]
local Flash = HudScrn:FindFirstChild("Glare")	--[ Another frame called... Oh can't you guess... ]
local Cam = WorkS.CurrentCamera
local SunClr = Color3.new(1, 1, 1)

--[ Variables ]:
local User = nil
local VisorGlare = true
local Glare = nil
local Dist = nil
local Classes = {"Model", "Tool", "HopperBin", "Accoutrement", "Hat"}	--[ All classes that can contain a part with a Light. ]

--[ PreSetup ]:
if User == nil then
	User = People.LocalPlayer
end
local Body = User.Character or WorkS:FindFirstChild(User.Name)
local Head = Body:FindFirstChild("Head")
local Mouse = User:GetMouse()	

--[ Code ]:
function CalcGlare(Clr)	--[ This calculates realistic glare brightness/coloration. ]
	local newR = Clr.r+(255%Clr.r)
	if newR > 1 then newR = 1 end
	if newR < 0 then newR = 0 end
	local newG = Clr.g+(255%Clr.g)
	if newG > 1 then newG = 1 end
	if newG < 0 then newG = 0 end
	local newB = Clr.b+(255%Clr.b)
	if newB > 1 then newB = 1 end
	if newB < 0 then newB = 0 end
	print(newR .." ".. newG .." ".. newB)
	
	return Color3.new(newR, newG, newB)	--[ Keeps returning incredibly stupid values, even with my if statements! ]
end

function CheckPart(Prt)	--[ Checks parts to see if they contain a Light. ]
	for _, I in ipairs(Prt:GetChildren()) do
		if I:IsA("Light") then
			if (I.Enabled) then
				return true, {I.Color, I.Parent}	--[ If the part contains a Light and the Light is enabled, returns the Light's color and its Parent. ]
			else return false, nil end
		elseif Classes[I.ClassName] then
			CheckPart(I)
		end
	end
	return nil
end

local ShowGlare = coroutine.wrap(function ()
	while true do
		local SightRay = Ray.new(Cam.CoordinateFrame.p, Cam.CoordinateFrame.lookVector)
		local Part, Pos = WorkS:FindPartOnRayWithIgnoreList(SightRay, {Cam, Body})
		local IsLight, Data = nil, nil
		if (Part) then
			IsLight, Data = CheckPart(Part)	--[ The function returns a bool and a table. ]
			if (IsLight) then
				local LightClr = Data[1]
				local LightPrt = Data[2]
				Glare = ((Cam.CoordinateFrame.lookVector - LightPrt.CFrame.p).magnitude * 0.3)+0.7
				Flash.BackgroundColor3 = CalcGlare(LightClr)
			end
		else
			Glare = ((Cam.CoordinateFrame.lookVector - Lights:GetSunDirection()).magnitude * 0.3)+0.7
			Flash.BackgroundColor3 = SunClr
		end
		Flash.BackgroundTransparency = Part and 1 or Glare
		wait()
	end
end)

--[ Setup ]:
ShowGlare()

--[ Xetrax ]--

Please Help if you can! (And yes, I do like to enclose my comments in *Brackets *[])