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(F)ChangeFloor(tostring(F))end)function ChangeFloor(F)if CustomText[tonumber(F)]then F=CustomText[tonumber(F)]end SetDisplay(1,string.len(F)==2 and F:sub(1,1)or"\078\073\076")SetDisplay(2,string.len(F)==2 and F:sub(2,2)or F)end function SetDisplay(F,Q)if This.Display:FindFirstChild("\068\073\071"..F)and Characters[Q]~=nil then for Q,h in pairs(Characters[Q])do for Q=1,43,1 do This.Display["\068\073\071"..F]["\068"..Q].Transparency=h:sub(Q,Q)=="\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
