--[[
for _,i in pairs(light) do
	i.BrickColor = offcolor
	i.Material = Enum.Material.material
end
--]]


InputService.InputBegan:connect(DealWithInput)
InputService.InputChanged:connect(DealWithInput)
InputService.InputEnded:connect(DealWithInput)


function findbricks(search,query,tab)
for _,i in pairs(search:GetChildren()) do
if i.Name == query then table.insert(tab,i) end findbricks(i,query,tab)
end
end

findbricks(seat.Parent,"Li",fli)
findbricks(seat.Parent,"Ri",fri)
findbricks(seat.Parent,"RLi",rli)
findbricks(seat.Parent,"RRi",rri)
findbricks(seat.Parent.Parent,"HLL",hll)
findbricks(seat.Parent.Parent,"HLH",hlh)
findbricks(seat.Parent,"BL",bl)
findbricks(seat.Parent,"RRL",rrl)
findbricks(seat.Parent,"RevL",rl)

for _,i in pairs(fli) do
	i.BrickColor = indicatorOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,i in pairs(fri) do
	i.BrickColor = indicatorOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,i in pairs(rli) do
	i.BrickColor = indicatorOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,i in pairs(rri) do
	i.BrickColor = indicatorOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,i in pairs(hll) do
	i.BrickColor = headlightOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,i in pairs(hlh) do
	i.BrickColor = headlightOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,i in pairs(rrl) do
	i.BrickColor = rearrunOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,i in pairs(bl) do
	i.BrickColor = brakelightOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,i in pairs(rl) do
	i.BrickColor = reverseOff
	i.Material = Enum.Material.SmoothPlastic
end
for _,a in pairs(sl) do
	for _,i in pairs(a) do
		i.Enabled = false
	end
end
script.Parent.Parent.StockUI.Right.TurnSignals.Left.ImageTransparency = 0.7
script.Parent.Parent.StockUI.Right.TurnSignals.Right.ImageTransparency = 0.7
script.Parent.Parent.StockUI.Right.WarningLights.LoBeam.ImageTransparency = 0.7
script.Parent.Parent.StockUI.Right.WarningLights.HiBeam.ImageTransparency = 0.7
