os.loadAPI("ba")
local c
m = peripheral.wrap("left")
m.clear()

function fillTable()
   ba.setTable("Lava", lava, 3,13,7,9)
   ba.setTable("Water", water, 15,25,7,9)
   ba.setTable("Mob Ess.", mob, 27,37,7,9)
   ba.setTable("Liq. XP", xp, 3,13,13,15)
   --ba.setTable("Empty2", emptyy ,15,25,13,15)
   --ba.setTable("Empty3", emptyyy ,27,37,19,21)
   --ba.setTable("Empty4", emptyyyy ,15,25,19,21)
   --ba.setTable("Empty5", emptyyyyy ,27,37,19,21)

   ba.screen()
end

function getClick()
   event,side,x,y = os.pullEvent("monitor_touch")
   ba.checkxy(x,y)
end

local function addcol(col, side)
  rs.setBundledOutput(side, colors.combine(rs.getBundledOutput(side),col))
end

local function remcol(col, side)
  rs.setBundledOutput(side, colors.subtract(rs.getBundledOutput(side),col))
end

function getTank()
   addcol(colors.white, 'bottom')
   sleep(4)
   addcol(colors.pink, 'bottom')
   sleep(2)
   remcol(colors.white, 'bottom')
   remcol(colors.pink, 'bottom')
end

function lava()
   ba.flash("Lava")

   addcol(colors.yellow, 'bottom')
   sleep(1)
   addcol(colors.orange, 'bottom')
   sleep(2)
   getTank()
   sleep(1)
   remcol(colors.yellow, 'bottom')
   remcol(colors.orange, 'bottom')
end

function water()
   ba.flash("Water")

   addcol(colors.black, 'bottom')
   sleep(1)
   addcol(colors.red, 'bottom')
   sleep(2)
   getTank()
   sleep(1)
   remcol(colors.black, 'bottom')
   remcol(colors.red, 'bottom')
end

function mob()
   ba.flash("Mob Ess.")
   addcol(colors.lightBlue, 'bottom')
   sleep(1)
   addcol(colors.magenta, 'bottom')
   sleep(2)
   getTank()
   sleep(1)
   remcol(colors.lightBlue, 'bottom')
   remcol(colors.magenta, 'bottom')
end

function xp()
   ba.flash("Liq. XP")
   continue = checkPayment(2)
   addcol(colors.cyan, 'bottom')
   sleep(1)
   addcol(colors.lime, 'bottom')
   sleep(2)
   getTank()
   sleep(1)
   remcol(colors.cyan, 'bottom')
   remcol(colors.lime, 'bottom')
end


fillTable()
ba.heading("Free liquid!")
ba.label(5,3, "Insert empty openblock tank.")
ba.label(5,5,"Choose liquid. Get full tank!")

while true do
   getClick()
end