startup

--computercraft
--laser miner controller with monitor
--all mining lasers are dealt with as peripherals

--text scale
--changing this will cause touch interface to fail for some reason --TODO
MON_SCALE = 1.0

--min offset
MIN_OFFSET = 2
--max offset
MAX_OFFSET = 250

function DetectPeripheral(name)
    local sides = {"top" , "bottom" , "front" , "left" , "right" , "back"}
    for i = 1, 6 do
        if peripheral.isPresent(sides[i]) and peripheral.getType(sides[i]) == name then
            print("found "..tostring(name)..": "..tostring(sides[i]))
            return sides[i]
        end
    end
    return nil
end

screen = peripheral.wrap(DetectPeripheral("monitor"))
screen_width, screen_height = screen.getSize()
lazors = {}
states = {}
step = 12
xOffset = 2
yOffset = 4
offset = MIN_OFFSET
start_all_position = {x = 1, y = screen_height}
stop_all_position  = {x = screen_width - 7, y = screen_height}
increment_position = {x = math.floor(screen_width/2 + 4), y =  screen_height}
decrement_position = {x = math.floor(screen_width/2 - 4), y = screen_height}
screen.setTextScale(MON_SCALE)
-- math floor, KOSTYL against lua coordinats rounding system

function resetColorsScreen()
    screen.setBackgroundColor(colors.black)
    screen.setTextColor(colors.white)
end


function increment_offset()
    if offset <= MAX_OFFSET then
        offset = offset + 1
    end
end


function decrement_offset()
    if offset > MIN_OFFSET then
        offset = offset - 1
    end
end


function start(laserNUM)
    print("Calling laser "..lazors[laserNUM].." for start")
    setOffset(laserNUM, offset)
    m.callRemote(lazors[laserNUM], "mine")

end


function startAll()
    for i =1 ,#lazors do
        start(i)
    end
end


function stop(laserNUM)
    print("Calling laser "..lazors[laserNUM].." for stop")
    m.callRemote(lazors[laserNUM], "stop")
end


function stopAll()
    for i = 1 ,#lazors do
        stop(i)
    end
end

function setOffset(laserNUM, offset)
    m.callRemote(lazors[laserNUM], "offset", offset)
end


function drawstatus()
    screen.clear()
    ----drawing static elements
    --drawing list of catgories
    local categories = {"State", "Control",  "Energy", "Layer", "Val/Min"}
    for i=1,5 do
        screen.setCursorPos(-10 + step*i, 2)
        screen.write(categories[i])
    end
    --drawing static buttons
    screen.setBackgroundColor(colors.cyan)
    screen.setCursorPos(start_all_position["x"] ,start_all_position["y"])
    screen.write("Start All")
    screen.setCursorPos(stop_all_position["x"] , stop_all_position["y"])
    screen.write("Stop All")
    resetColorsScreen()
    screen.setBackgroundColor(colors.green)
    screen.setCursorPos(increment_position["x"], increment_position["y"])
    screen.write("+")
    screen.setCursorPos(math.floor(screen_width/2) - 1, screen_height)
    resetColorsScreen()
    screen.write(" "..offset.." ")
    screen.setBackgroundColor(colors.red)
    screen.setCursorPos(decrement_position.x, decrement_position.y)
    screen.write("-")
    resetColorsScreen()
    ----drawing dynamic elements
    --iterating throught miner array
    for a = 1,#lazors do
        state, energy, height, luxuries, mined = m.callRemote(lazors[a], "state")
--      mState, mEnergy, mLayer, mValuablesMined, mValuablesInLayer = m.callRemote(lasersT[i], "state")
        if state == "not mining" then
            states[a] = "Start"
        else
            states[a] = "Stop"
        end

        local temp = {state, states[a], energy, height, tostring(luxuries.."/"..mined)}
        --printing for current miner on monitor
        for b = 1, 5 do
            screen.setCursorPos(-10 + step * b, a + yOffset)
            --color for on/off status
            if b == 1 then
                if temp[b] == "not mining" then
                    screen.setBackgroundColor(colors.red)
                    screen.write(temp[b])
                    resetColorsScreen()
                else
                    screen.setBackgroundColor(colors.green)
                    screen.write(temp[b])
                    resetColorsScreen()
                end
            elseif b == 2 then
                screen.setBackgroundColor(colors.cyan)
                screen.write(temp[b])
                resetColorsScreen()
            else
                screen.write(temp[b])
            end
        end
    end
    sleep(1)
    return 0
end

    --controll from player
function touch_control()
    --print("Enter Touch service")
    local laserIndex = nil
    local xMax = xOffset + step * 2
    local yMax = yOffset + table.maxn(lazors)
    --pull touch event
    local event, side, xPos, yPos = os.pullEvent("monitor_touch")
        --miners controll
    print("Pulled touch event on X: ".. xPos.." Y: "..yPos)
    print(decrement_position.x.." "..decrement_position.y)
    if xPos  >= xOffset and xPos <= xMax and yPos >= yOffset and yPos <= yMax then
        print("Button hitted, executing code")
        laserIndex = yPos - yOffset
        if states[laserIndex] == "Start" then
            print("Starting the miner with index"..laserIndex)
            start(laserIndex)
        else
            print("Stopping the miner with index"..laserIndex)
            stop(laserIndex)
        end
    elseif xPos <= 10 and yPos == screen_height then
        startAll()
    elseif xPos >= stop_all_position.x and yPos == stop_all_position.y then
        stopAll()
    elseif xPos == increment_position.x and yPos == increment_position.y then
        increment_offset()
    elseif xPos == decrement_position.x and yPos == decrement_position.y then
        decrement_offset()

        print("Function ended, exiting")
        return 0
    end
end



--execution start
--KOSTYL for not detectiong any lasers after PRYGEE jump
sleep(1)
m = peripheral.wrap(DetectPeripheral("modem"))
clients = m.getNamesRemote()
--filter lasers from other peripherals
for i = 1, table.maxn(clients) do
    if m.getTypeRemote(clients[i]) then
        table.insert(lazors, clients[i])
    end
end

--mainloop
while true do
parallel.waitForAny(drawstatus, touch_control)
end