--[[	Night Vision by EcIiptic - 5/8/14
	    Edited by SneakySecretAgent - 5/14/15
	Put this in the starterpack.
--]]

local Player = game.Players.LocalPlayer

local Brightness = 1000
local Color = Color3.new(0/255,255/255,0/255)
local Range = 30

local On = false

local First_Person_When_On = true
local Original_Camera_Setting = Enum.CameraMode.Classic

Player:GetMouse().KeyDown:connect(function(Key)
	if (Key:lower() == "q") then
		if (On == false) then 
			On = true
			if (First_Person_When_On == true) then
				Original_Camera_Setting = Player.CameraMode
				Player.CameraMode = Enum.CameraMode.LockFirstPerson
			local gui = Instance.new("ScreenGui")
			gui.Name = "Gui"
			local frame = Instance.new("ImageLabel")
			gui.Parent = Player.PlayerGui
			frame.Parent = gui
			gui.Parent = Player.PlayerGui
			frame.Size = UDim2.new(0,5000,0,5000)
			frame.BackgroundColor3 = Color3.new(0,170,0)
			frame.BackgroundTransparency = .8
			end
			
			local Part = Instance.new("Part", game.Workspace.CurrentCamera)
				Part.Name = "NightVision"
				Part.CanCollide = false
				Part.Transparency = 1
			local Light = Instance.new("PointLight", Part)
				Light.Brightness = Brightness
				Light.Color = Color
				Light.Range = Range
			local Weld = Instance.new("Weld", Part)
				Weld.Part0 = Part
				Weld.Part1 = Player.Character.Head
		else
			On = false
			Player.CameraMode = Original_Camera_Setting
			local Search = game.Workspace.CurrentCamera:FindFirstChild("NightVision")
			local Check = Player.PlayerGui:FindFirstChild("Gui")
			if Player.Character.Humanoid.Health == 0 then
				Search:Destroy()
				Check:Destroy()
				end
			if (Search) then
				Search:Destroy()
				if (Check) then
					Check:Destroy()
					end
				end
			end
		end
	end)
while wait() do
if Player.Character.Humanoid.Health == 0 then
	Player.CameraMode = Original_Camera_Setting
	SearchGui = game.Players.LocalPlayer.PlayerGui:FindFirstChild("Gui", true)
	SearchNV = game.Workspace.CurrentCamera:FindFirstChild("NightVision")
	if SearchGui and SearchNV then
		SearchGui:Destroy()
		SearchNV:Destroy()
		end
	end
end
local GuideGui = Instance.new("ScreenGui", Player:WaitForChild("PlayerGui"))
local Box = Instance.new("TextLabel", GuideGui)
	Box.Size = UDim2.new(1,0,1,0)
	Box.BackgroundTransparency = 1
	Box.FontSize = "Size48"
	Box.TextColor3 = Color
	Box.Text = "Press 'e' to enable night vision"
wait(1)
for i = 0, 1, 0.1 do
Box.TextTransparency = i
wait(0.1)
end
GuideGui:Destroy()