WirelessControlPDA

-- by UNOBTANIUM 4.4.2014

local default = {text="???", color=14, colorActive=6, colorText=15, w = 4, h = 3}
local addMode = false
local selected = 0
local square = 4
local w,h = term.getSize()
local colorName = {colors.white, colors.orange, colors.magenta, colors.lightBlue, colors.yellow, colors.lime, colors.pink, colors.lightGray, colors.cyan, colors.purple, colors.blue, colors.brown, colors.green, colors.red, colors.black}
local box = {}


function save()
    local file = fs.open("redstone","w")
        file.writeLine(textutils.serialize(default))
        file.writeLine(textutils.serialize(colorName))
        file.writeLine(textutils.serialize(box))
    file.close()
end


function load()
    if fs.exists("redstone") then
        local file = fs.open("redstone", "r")
            default = textutils.unserialize(file.readLine())
            colorName = textutils.unserialize(file.readLine())
            box = textutils.unserialize(file.readLine())
        file.close()
    end
end


function drawBox(b,id)
    id = id or -1
    for i=b.x, b.x+b.w do
        for j=b.y, (b.y+b.h-1) do
            term.setCursorPos(i, j)
            if addMode and selected == id then
                if i==b.x and j==b.y then
                    term.setBackgroundColor(colorName[b.color])
                else
                    if b.color+1 > 14 then
                        term.setBackgroundColor(colorName[1])
                    else
                        term.setBackgroundColor(colorName[b.color+1])
                    end
                end
            elseif b.active then
                term.setBackgroundColor(colorName[b.colorActive])
            else
                term.setBackgroundColor(colorName[b.color])
            end
            term.write(" ")
        end
    end
    term.setCursorPos(math.ceil(b.x+b.w/2-#b.text/2), b.y+math.floor(b.h/2))
    term.setTextColor(colorName[b.colorText])
    term.write(b.text)
end




function draw()
    term.setCursorPos(1,1)
    term.setBackgroundColor(colors.black)
    term.clear()


    if addMode then
        term.setTextColor(colors.black)
        term.setBackgroundColor(colors.red)
        term.setCursorPos(1, 1)
        term.write( string.rep(' ', w) )
        term.setCursorPos(1, h)
        term.write( string.rep(' ', w) )
        for i=2,h-1 do
            term.setCursorPos(1, i)
            term.write(" ")
            term.setCursorPos(w, i)
            term.write(" ")
        end
        term.setCursorPos(w-14, h)
        term.write("by UNOBTANIUM")
    else
        term.setTextColor(colors.red)
    end
    term.setCursorPos(1, 1)
    term.write("+")

    for id,b in pairs(box) do
        drawBox(b,id)
    end
end


function changeBox()
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.clear()

    local b = box[selected]
    while true do
        term.setBackgroundColor(colors.black)
        term.clear()
        for i=4, 4+square do
            for j=2, (2+math.ceil(square/2)) do
                term.setCursorPos(i, j)
                term.setBackgroundColor(colorName[b.color])
                term.write(" ")
            end
        end
        term.setTextColor(colorName[b.colorText])
        write(b.text, math.ceil(4+square/2-#b.text/2), 2+math.ceil(square/2)-1)
        for i=10, 10+square do
            for j=2, (2+math.ceil(square/2)) do
                term.setCursorPos(i, j)
                term.setBackgroundColor(colorName[b.colorActive])
                term.write(" ")
            end
        end
        term.setTextColor(colorName[b.colorText])
        write(b.text, math.ceil(10+square/2-#b.text/2), 2+math.ceil(square/2)-1)

        term.setTextColor(colors.white)
        term.setBackgroundColor(colors.black)
        write("DELETE",6, 3)
        write("BACK",40,3)
        write("+",20,15)
        write("+",30,15)
        write("-",20,17)
        write("-",30,17)
        write(b.w+1, 20, 16)
        write(b.h, 30, 16)
        write("Text (click to edit): " ..  b.text, 1, 7)
        write("Text Color:", 1,9)
        for i=1,15 do
            term.setCursorPos(15+i*2, 9)
            term.setBackgroundColor(colorName[i])
            term.write("  ")
        end
        term.setBackgroundColor(colors.black)
        term.setCursorPos(1,11)
        term.write("Backgroundcolor:")
        for i=1,15 do
            term.setCursorPos(15+i*2, 11)
            term.setBackgroundColor(colorName[i])
            term.write("  ")
        end
        term.setBackgroundColor(colors.black)
        term.setCursorPos(1,13)
        term.write("Active Color:")
        for i=1,15 do
            term.setCursorPos(15+i*2, 13)
            term.setBackgroundColor(colorName[i])
            term.write("  ")
        end
        term.setBackgroundColor(colors.black)
        term.setTextColor(colors.white)



        local event = {os.pullEvent()}
        if event[1] == "mouse_click" then
            local x,y = event[3], event[4]
            if y == 3 and x <= 17 then
                table.remove(box, selected)
                selected = 0
                break
            elseif y == 3 and x >= 40 then
                break
            elseif y == 7 then
                b.text = betterRead(23,7)
            elseif y == 9 and x >= 17 and x < 47 then
                b.colorText = math.ceil((x-16)/2)
            elseif y == 11 and x >= 17 and x < 47 then
                b.color = math.ceil((x-16)/2)
            elseif y == 13 and x >= 17 and x < 47 then
                b.colorActive = math.ceil((x-16)/2)
            elseif y == 15 then
                if x < 25 then
                    b.w = b.w + 1
                elseif x > 25 then
                    b.h = b.h + 1
                end
            elseif y == 17 then
                if x < 25 and b.w > 1 then
                    b.w = b.w - 1
                elseif x > 25 and b.h > 2 then
                    b.h = b.h - 1
                end
            end
        end
    end
    term.clear()
    term.setCursorPos(1, 1)
end

function write(text,x,y)
    term.setCursorPos(x, y)
    term.write(tostring(text))
end

function betterRead(x,y) -- DONE 1
    term.setTextColor(colors.lightGray)
    term.setCursorBlink(true)
    local s = tostring(box[selected].text)

    while true do
        term.setCursorPos(x,y)
        term.write( string.rep(' ', w - x + 1) )
        term.setCursorPos(x,y)
        if s:len()+x < w then
            term.write(s)
        else
            term.write(s:sub( s:len() - (w-x-2)))
        end
        local e = { os.pullEvent() }
        if e[1] == "mouse_click" then
            break
        elseif e[1] == "char" then
            s = s .. e[2]
        elseif e[1] == "key" then
            if e[2] == keys.enter then
                break
            elseif e[2] == keys.backspace then
                s = s:sub( 1, s:len() - 1 )
            end
        end
    end

    term.setTextColor(colors.white)
    term.setCursorBlink(false)
    return s
end

function countArray(a)
    local elements = 0
    for k,v in pairs(a) do
        elements = elements + 1
    end
    return elements
end

function main()
    while true do
        save()
        draw()
        local event = {os.pullEvent()}
        if event[1] == "mouse_click" then
            local Px,Py = event[3], event[4]
            if Px == 1 and Py == 1 then -- toggle between mode
                addMode = not addMode
                selected = 0
            elseif addMode then -- edit
                local createNew = true
                for id,b in pairs(box) do
                    if (Px >= b.x and Px <= b.x+b.w) and (Py >= b.y and Py <= b.y+math.ceil(b.h/2)) then
                        if selected == id and b.x==Px and b.y ==Py then
                            changeBox()
                            createNew = false
                            break
                        elseif selected == id then
                            createNew = false
                            selected = 0
                            break
                        else
                            selected = id
                            createNew = false
                            break
                        end
                    elseif selected == id then
                        box[selected].x = Px
                        box[selected].y = Py
                        createNew = false
                        break
                    end
                end
                if createNew and selected == 0 then
                    table.insert(box, countArray(box)+1, {x=Px,y=Py,w=default.w,h=default.h,text=default.text,color=default.color,colorActive=default.colorActive,colorText=default.colorText,active=false})
                end
            else -- activate
                for id,b in pairs(box) do
                    if (Px >= b.x and Px <= b.x+b.w) and (Py >= b.y and Py <= b.y+math.ceil(b.h/2)) then
                        b.active = not b.active
                        rednet.broadcast("" .. b.text .. tostring(b.active))
                    end
                end
            end
        end
        sleep(0)
    end
end

function openRednet()
    rednet.open("back")
end

openRednet()

term.clear()
term.setCursorPos(1, 1)
if not (w == 26 or h == 20) then
        print("You are not using a pda!")
else
        load()
        main()
end