--[[

Control_Interface:14
Control_RedstoneServer:15
Control_RedstoneClient1:24
Control_Bee:25

--]]

local WLAN = "top"
local coloroff = colors.red;
local coloron = colors.green;
local commands = {} --
commands["boringmachine"] = true -- has to be always true!
--table.insert(orders,"exctractor",true)

function send (c,s)
    clear()
    print("___________________ Send ___________________")
    if rednet.send(15,c.." "..s) then
        print("sent command.")
    else
        print("Sending not successful.")
    end
end

function init ()
    clear()
    if rednet.isOpen(WLAN) == false then
        rednet.open(WLAN)
    end
end

function clear()
    term.setBackgroundColor(colours.black)  -- Set the background colour to black.
    term.clear()                -- Paint the entire display with the current background colour.
    term.setCursorPos(1,1)      -- Move the cursor to the top left position.
end

function menu () -- TODO: lots of writes and formating
    print("___________________ Commands ___________________")
    for i,v in pairs(commands) do
        print(i.." on/off")
    end
end

init()
local answer,command, status
repeat
    menu()
    print("___________________ Interface ___________________")
    print("Enter command.")
    io.flush()
    answer=io.read() -- or pullevent

    -- check answer
    answer = string.lower(answer)
    command, status = string.find(answer," ") -- found positions
    if command ~= nil then
        command = string.sub(answer, 1, command-1) -- found command
        status = string.sub(answer, status+1) -- found status
        if status ~= nil and commands[command] ~= nil then
            send(command,status)
        else
            print("Error: Command or value not found.")
        end
    else
        print("Error: no Space.")
    end
until false