Elevator Touchscreen

--Load floor location from disk
local FloorFile = fs.open("disk/floor", "r")


if FloorFile then
    ThisFloor = tonumber(FloorFile.readLine())
    print("This floor: "..ThisFloor)
    FloorFile.close()
else
    print("No Floor File/disk found")
    return
end

os.setComputerLabel("Elevator"..ThisFloor)

local buttontext = {}
buttontext[1]="Floor 1         "
buttontext[2]="Floor 2         "
buttontext[3]="Floor 3         "
buttontext[4]="Floor 4         "
buttontext[5]="Floor 5         "
buttontext[6]="Floor 6         "
buttontext[7]="Floor 7         "
buttontext[8]="Floor 8         "
buttontext[9]="Floor 9         "

local buttoncolours={}
for k=1, #buttontext do
    buttoncolours[k]=8192 --8192=green
end
buttoncolours[ThisFloor]=32 --32=lime

mouseWidth = 0
mouseHeight = 0

monitor = peripheral.wrap("bottom")

monitor.clear()
monitor.setCursorPos(1,1)
w,h=monitor.getSize()
print(w)
print(h)

--Draw buttons
for k=1, #buttontext do

    monitor.setBackgroundColour((buttoncolours[k]))
    monitor.setCursorPos(2,k*2)
    monitor.write(buttontext[k])
    monitor.setBackgroundColour((colours.black))
end --for


function checkClickPosition()
    for k=1, #buttontext do
        if mouseWidth > 1 and mouseWidth < 18 and mouseHeight == k*2 and k~=ThisFloor then
            redstone.setOutput("top", true)
            sleep(1)
            redstone.setAnalogOutput("back", k)
            sleep(2)
            redstone.setOutput("top", false)
            redstone.setAnalogOutput("back", 0)
        end
    end
end


repeat
        event,p1,p2,p3 = os.pullEvent()
                if event=="monitor_touch" then
                        mouseWidth = p2 -- sets mouseWidth
                        mouseHeight = p3 -- and mouseHeight
                        checkClickPosition() -- this runs our function
                end
until event=="char" and p1==("x")