-- -- -- -- -- -- --
--DIRECTION SCROLL--
-- -- -- -- -- -- --


This.Parent.Parent.Parent.Parent.Parent:WaitForChild("Direction").Changed:connect(function(val)
	if val == 1 then
		for R = 1, 7 do
			for D = 1, 5 do
				This.Display["Matrix"..1]["Row"..R]["D"..D].ImageColor3 = UColor
			end
		end
		repeat
			SetDisplay(1,"U0")
			wait(ArrowDelay)
			SetDisplay(1,"U1")
			wait(ArrowDelay)
			SetDisplay(1,"U2")
			wait(ArrowDelay)
			SetDisplay(1,"U3")
			wait(ArrowDelay)
			SetDisplay(1,"U4")
			wait(ArrowDelay)
			SetDisplay(1,"U5")
			wait(ArrowDelay)
			SetDisplay(1,"U6")
			wait(ArrowDelay)
		until This.Parent.Parent.Parent.Parent.Parent.Direction.Value ~= 1
		SetDisplay(1,"NIL")
	elseif val == -1 then
		for R = 1, 7 do
			for D = 1, 5 do
				This.Display["Matrix"..1]["Row"..R]["D"..D].ImageColor3 = DColor
			end
		end
		repeat
			SetDisplay(1,"D0")
			wait(ArrowDelay)
			SetDisplay(1,"D1")
			wait(ArrowDelay)
			SetDisplay(1,"D2")
			wait(ArrowDelay)
			SetDisplay(1,"D3")
			wait(ArrowDelay)
			SetDisplay(1,"D4")
			wait(ArrowDelay)
			SetDisplay(1,"D5")
			wait(ArrowDelay)
			SetDisplay(1,"D6")
			wait(ArrowDelay)
		until This.Parent.Parent.Parent.Parent.Parent.Direction.Value ~= -1
		SetDisplay(1,"NIL")
	else
		SetDisplay(1,"NIL")
	end
end)
