This=script.Parent Elevator=This.Parent.Parent.Parent CustomLabel=require(This.Parent.Parent.Parent.CustomLabel)Characters=require(script.Characters)ArwTime=.2 CustomText=CustomLabel.CUSTOMFLOORLABEL;(Elevator:WaitForChild("\070\108\111\111\114")).Changed:connect(function(v)ChangeFloor(tostring(v))end)function ChangeFloor(v)if CustomText[tonumber(v)]then v=CustomText[tonumber(v)]end SetDisplay(1,string.len(v)==2 and v:sub(1,1)or"\078\073\076")SetDisplay(2,string.len(v)==2 and v:sub(2,2)or v)end function SetDisplay(v,f)if This.Display:FindFirstChild("\068\073\071"..v)and Characters[f]~=nil then for f,N in pairs(Characters[f])do for f=1,43,1 do This.Display["\068\073\071"..v]["\068"..f].Transparency=N:sub(f,f)=="\049"and 0 or.95 end end end end while wait()do if(Elevator:WaitForChild("\077\111\116\111\114\077\111\100\101")).Value~="\105\100\108\101"then if(Elevator:WaitForChild("\068\105\114\101\099\116\105\111\110")).Value==1 then This.Display.ARW1.U1.Transparency=.8 This.Display.ARW1.U2.Transparency=.4 This.Display.ARW1.U3.Transparency=0 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=.8 This.Display.ARW1.U3.Transparency=.4 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=.8 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)This.Display.ARW1.U1.Transparency=0 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)This.Display.ARW1.U1.Transparency=.4 This.Display.ARW1.U2.Transparency=0 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)elseif(Elevator:WaitForChild("\068\105\114\101\099\116\105\111\110")).Value==-1 then This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=.8 This.Display.ARW1.D2.Transparency=.4 This.Display.ARW1.D3.Transparency=0 wait(ArwTime)This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=.8 This.Display.ARW1.D3.Transparency=.4 wait(ArwTime)This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=.8 wait(ArwTime)This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=0 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=.4 This.Display.ARW1.D2.Transparency=0 This.Display.ARW1.D3.Transparency=1 wait(ArwTime)else This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 end else if(Elevator:WaitForChild("\068\105\114\101\099\116\105\111\110")).Value==1 then This.Display.ARW1.U1.Transparency=.8 This.Display.ARW1.U2.Transparency=.4 This.Display.ARW1.U3.Transparency=0 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 elseif(Elevator:WaitForChild("\068\105\114\101\099\116\105\111\110")).Value==-1 then This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=.8 This.Display.ARW1.D2.Transparency=.4 This.Display.ARW1.D3.Transparency=0 else This.Display.ARW1.U1.Transparency=1 This.Display.ARW1.U2.Transparency=1 This.Display.ARW1.U3.Transparency=1 This.Display.ARW1.D1.Transparency=1 This.Display.ARW1.D2.Transparency=1 This.Display.ARW1.D3.Transparency=1 end end if(Elevator:WaitForChild("\077\111\100\101")).Value~="\097\117\116\111"then This.Legend.SurfaceGui.Enabled=true else This.Legend.SurfaceGui.Enabled=false end end
---------------------------------------------------

This = script.Parent
Elevator = This.Parent.Parent.Parent
CustomLabel = require(This.Parent.Parent.Parent.CustomLabel)
Characters = require(script.Characters)

ArwTime = 0.2

CustomText = CustomLabel["CUSTOMFLOORLABEL"]

Elevator:WaitForChild("Floor").Changed:connect(function(floor)
	--custom indicator code--
	ChangeFloor(tostring(floor))
end)

function ChangeFloor(SF)
	if CustomText[tonumber(SF)] then
		SF = CustomText[tonumber(SF)]
	end
	SetDisplay(1, (string.len(SF) == 2 and SF:sub(1, 1) or "NIL"))
	SetDisplay(2, (string.len(SF) == 2 and SF:sub(2, 2) or SF))
end

function SetDisplay(ID, CHAR)
	if This.Display:FindFirstChild("DIG" .. ID) and Characters[CHAR] ~= nil then
		for i, l in pairs(Characters[CHAR]) do
			for r = 1, 43 do
				This.Display["DIG" .. ID]["D" .. r].Transparency = (l:sub(r, r) == "1" and 0 or 0.95)
			end
		end
	end
end

while wait() do
	if Elevator:WaitForChild("MotorMode").Value ~= "idle" then
		if Elevator:WaitForChild("Direction").Value == 1 then
			This.Display.ARW1.U1.Transparency = 0.8
			This.Display.ARW1.U2.Transparency = 0.4
			This.Display.ARW1.U3.Transparency = 0
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 0.8
			This.Display.ARW1.U3.Transparency = 0.4
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 0.8
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 0
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 0.4
			This.Display.ARW1.U2.Transparency = 0
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
		elseif Elevator:WaitForChild("Direction").Value == -1 then
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 0.8
			This.Display.ARW1.D2.Transparency = 0.4
			This.Display.ARW1.D3.Transparency = 0
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 0.8
			This.Display.ARW1.D3.Transparency = 0.4
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 0.8
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 0
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 0.4
			This.Display.ARW1.D2.Transparency = 0
			This.Display.ARW1.D3.Transparency = 1
			wait(ArwTime)
		else
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
		end
	else
		if Elevator:WaitForChild("Direction").Value == 1 then
			This.Display.ARW1.U1.Transparency = 0.8
			This.Display.ARW1.U2.Transparency = 0.4
			This.Display.ARW1.U3.Transparency = 0
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
		elseif Elevator:WaitForChild("Direction").Value == -1 then
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 0.8
			This.Display.ARW1.D2.Transparency = 0.4
			This.Display.ARW1.D3.Transparency = 0
		else
			This.Display.ARW1.U1.Transparency = 1
			This.Display.ARW1.U2.Transparency = 1
			This.Display.ARW1.U3.Transparency = 1
			This.Display.ARW1.D1.Transparency = 1
			This.Display.ARW1.D2.Transparency = 1
			This.Display.ARW1.D3.Transparency = 1
		end
	end

	if Elevator:WaitForChild("Mode").Value ~= "auto" then
		This.Legend.SurfaceGui.Enabled = true
	else
		This.Legend.SurfaceGui.Enabled = false
	end
end
