Aufzug neu

local monSide  = "back"
local Position = 3
local Bcol     = colors.lightGray
local bSide    = "front"
local time     = .5

mon = peripheral.wrap(monSide)
mon.setTextScale(.5)
xMax,yMax = mon.getSize()

Etage    = {}
Etage[1] = { 2, 5,11,13," Etage 1",colors.blue   ,colors.blue   ,colors.cyan     ,false}
Etage[2] = {13, 5,22,13," Etage 2",colors.blue   ,colors.red    ,colors.yellow   ,false}
Etage[3] = {24, 5,33,13," Etage 3",colors.blue   ,colors.green  ,colors.gray     ,false}
Etage[4] = { 2,15,11,23," Etage 4",colors.blue   ,colors.orange ,colors.pink     ,false}
Etage[5] = {13,15,22,23," Etage 5",colors.blue   ,colors.lime   ,colors.white    ,false}
Etage[6] = {24,15,33,23," Etage 6",colors.blue   ,colors.magenta,colors.lightGray,false}

function JoJa(xP,yP)
  mon.setCursorPos(xP,yP)
  mon.setBackgroundColor(colors.gray)
  mon.setTextColor(colors.cyan)
  mon.write("Jo")
  mon.setTextColor(colors.orange)
  mon.write("Ja ")
  mon.setTextColor(colors.lightGray)
  mon.write("Productions")
end

function Background(col)
  mon.setBackgroundColor(col)
  for yPos = 1,yMax do
    for xPos = 1,xMax do
      mon.setCursorPos(xPos,yPos)
      mon.write(" ")
    end
  end
  mon.setCursorPos(xMax/2-3,3)
  mon.setBackgroundColor(colors.red)
  mon.write(" Etage "..Position.." ")
end

function drawButton()
  for i = 1,#Etage do
    mon.setTextColor(colors.white)
    mon.setBackgroundColor(Etage[i][6])
    for yPos = Etage[i][2],Etage[i][4] do
      for xPos = Etage[i][1],Etage[i][3] do
        mon.setCursorPos(xPos,yPos)
        mon.write(" ")
      end
    end
    mon.setCursorPos((Etage[i][1]+Etage[i][3])/2-#Etage[i][5]/2,(Etage[i][2]+Etage[i][4])/2)
    mon.write(Etage[i][5])
  end
end

function checkButton(xP,yP)
  for i = 1,#Etage do
    if xP >= Etage[i][1] and xP <= Etage[i][3]
    and yP >= Etage[i][2] and yP <= Etage[i][4]
    then
      Etage[i][9] = true
    end
  end
end

function move()
  col = 0
  for i = 1,#Etage do
    if Etage[i][9] then
      Etage[i][9] = false
      if Position < i then
        for p = Position,i do
          col = col + Etage[p][7]
          sleep(time)
          rs.setBundledOutput(bSide,col)
        end
      elseif Position > i then
        for p = Position,i,-1 do
          col = col + Etage[p][8]
          sleep(time)
          rs.setBundledOutput(bSide,col)
        end
      end
    end
  end
  rs.setBundledOutput(bSide,0)
end

while true do
  Background(Bcol)
  JoJa(xMax/2-7,1)
  drawButton()
  event,_,xPos,yPos = os.pullEvent("monitor_touch")
  checkButton(xPos,yPos)
  move()
end