BloodTab

rednet.open("back")
os.loadAPI("button")
local m = term
local menuType = "mainMenu"
stock = 0
anzahlTafeln = 0
craften = 0
crafting = ""

function sendMessage(message)
    rednet.send(8, message)
end

function mainMenu()
    m.clear()
    button.clearTable()
    button.label(6, 1, "Bloodaltar Remote")
    button.setTable("Leere Tafel", setAnzahlMenu, "lT", 3, 24, 3, 3)
    button.setTable("Verstärkte Tafel", setAnzahlMenu, "vT", 3, 25, 5, 5)
    button.setTable("Erfüllte Tafel", setAnzahlMenu, "eT", 3, 25, 7, 7)
    button.setTable("Dämonische Tafel", setAnzahlMenu, "dT", 3, 25, 9, 9)
    button.setTable("Ethereal Tafel", setAnzahlMenu, "etT", 3, 24, 11, 11)
    button.label(5, 13, "Noch zu Craften: "..craften)
    button.setTable("Vorrat?", getStock, "", 3, 24, 15, 15)
    button.setTable("Auffüllen", restock, "", 3, 25, 17, 17)
    button.label(5, 19, "Vorrätige Steine: "..stock)
    button.screen()
end

function anzahlMenu(param)
    m.clear()
    button.clearTable()
    if param == "lT" then
        button.label(2, 1, "Anzahl der leeren Tafeln")
    elseif param == "vT" then
        button.label(2, 1, "Anzahl der verst. Tafeln")
    elseif param == "eT" then
        button.label(3, 1, "Anzahl der erf. Tafeln")
    elseif param == "dT" then
        button.label(3, 1, "Anzahl der dem. Tafeln")
    elseif param == "etT" then
        button.label(3, 1, "Anzahl der eth. Tafeln")
    end
    button.setTable("-10", changeAnzahl, -10, 3, 24, 3, 3)
    button.setTable("-5", changeAnzahl, -5, 3, 24, 5, 5)
    button.setTable("-1", changeAnzahl, -1, 3, 24, 7, 7)
    button.label(14, 9, anzahlTafeln)
    button.setTable("1", changeAnzahl, 1, 3, 24, 11, 11)
    button.setTable("5", changeAnzahl, 5, 3, 24, 13, 13)
    button.setTable("10", changeAnzahl, 10, 3, 24, 15, 15)
    button.setTable("Bestellen", order, param, 3, 24, 17, 17)

    button.setTable("Zurück", setMainMenu, "", 3, 25, 19, 19)
    button.screen()
end

function changeAnzahl(change)
    anzahlTafeln = anzahlTafeln + change
end

function setAnzahlMenu(param)
    menuType = param.."anzahlMenu"
end

function setMainMenu()
    menuType = "mainMenu"
end

function order(param)
    sendMessage(param..anzahlTafeln)
    crafting = param
    craften = anzahlTafeln
    anzahlTafeln = 0
    setMainMenu()
    displayScreen()

    schleife = true
    while schleife do
        ID, msg, dis = rednet.receive()
        Computer = ID
        local newmsg = string.match(msg, "%a+")
        local anzahl = tonumber(string.match(msg, "%d+"))
        if newmsg == "fertig" then
            craften = 0
            crafting = ""
            stock = anzahl
            displayScreen()
            schleife = false
        elseif newmsg == "crafting" then
            craften = anzahl
            displayScreen()
        end
    end
end

function getStock()
    sendMessage("stock")
    ID, msg, dis = rednet.receive()
    local anzahl = tonumber(string.match(msg, "%d+"))
    stock = anzahl
end

function restock()
    sendMessage("restock")
    ID, msg, dis = rednet.receive()
    local anzahl = tonumber(string.match(msg, "%d+"))
    stock = anzahl
end


function displayScreen()
    if menuType == "mainMenu" then
        mainMenu()
    if crafting == "lT" then
        button.toggleButton("Leere Tafel")
    elseif crafting == "vT" then
        button.toggleButton("Verstärkte Tafel")
    elseif crafting == "eT" then
        button.toggleButton("Erfüllte Tafel")
    elseif crafting == "dT" then
        button.toggleButton("Dämonische Tafel")
    elseif crafting == "etT" then
        button.toggleButton("Ethereal Tafel")
    end

    elseif menuType == "lTanzahlMenu" then
        anzahlMenu("lT")
    elseif menuType == "vTanzahlMenu" then
        anzahlMenu("vT")
    elseif menuType == "eTanzahlMenu" then
        anzahlMenu("eT")
    elseif menuType == "dTanzahlMenu" then
        anzahlMenu("dT")
    elseif menuType == "etTanzahlMenu" then
        anzahlMenu("etT")
    end

    local event, side, x, y
    event, side, x, y = os.pullEvent()
    if event == "mouse_click" then
        button.checkxy(x,y)
    end
end

while true do
    displayScreen()
end