REDNET - Dator 1

-- ### DATOR 1

rednet.open("SIDA")

-- COMMAND LIST
print("Type 'wheat on/off' to enable/disable wheat farm")
print("Type 'blaze on/off' to enable/disable tree farm")
print("Type 'rubber on/off' to enable/disable rubber farm")
print("Type 'quarry on/off to enable/disable rubber farm")

local state_wheat   = false
local state_blaze   = false
local state_rubber  = false
local state_quarry      = false
-- ON
while ( true ) do
    local message = read()

    if message == "wheat on" then
        state_wheat = true
        rednet.send(ID, "won")
    elseif message == "blaze on" then
        state_blaze = true
        rednet.send(ID, "bon")
    elseif message == "quarry on" then
        state_quarry = true
        rednet.send(ID, "qon")
    elseif message == "rubber on" then
        state_rubber = true
        rednet.send(ID, "ron")
    end

    -- OFF
    if message == "wheat off" then
        state_wheat = false
        rednet.send(ID, "woff")
    elseif message == "blaze off" then
        state_blaze = false
        rednet.send(ID, "boff")
    elseif message == "quarry off" then
        state_quarry = false
        rednet.send(ID, "qoff")
    elseif message == "rubber off" then
        state_rubber = false
        rednet.send(ID, "roff")
    end

    term.clear()
    term.setCursorPos(1, 1)
    -- Lista skiten
    if( state_wheat ) then
        print("Wheat farm [enabled]")
    else
        print("Wheat farm [disabled]")
    end
        if( state_quarry ) then
        print("Quarry [enabled]")
    else
        print("Quarry [disabled]")
    end

    if( state_blaze ) then
        print("Blaze farm [enabled]")
    else
        print("Blaze farm [disabled]")
    end

    if( state_rubber ) then
        print("Rubber farm [enabled]")
    else
        print("Rubber farm [disabled]")
    end

    sleep( 0.1 )
end