inoculator

p = peripheral.wrap("front")
m = peripheral.wrap("top")
m.clear()
cas = 50
function serum()
s = p.getStackInSlot(15)
  if s then
    while s.dmg < 14 do
    sleep(5)
    m.clear()
    s = p.getStackInSlot(15)
    m.setCursorPos(1,1)
    m.write(s.name)
    m.setCursorPos(1,2)
    m.write("Nabito na "..s.dmg)
    m.setCursorPos(1,5)
    cas = cas - 5
    m.write(tostring(cas))
    if cas = 0 then
      cas = 50
    end
    end
  m.write("Hotovo ...")
  p.pushIntoSlot("north",15,1,1)
  rs.setOutput("left", true)
  sleep(1)
  rs.setOutput("left", false)
  end
m.clear()
m.write("dalsi kontrola >")
end

while true do
serum()
sleep(5)
end