guiapi

-- GUI API

black = colors.black
white = colors.white
lightBlue = colors.lightBlue
green = colors.green
yellow = colors.yellow
blue = colors.blue
purple = colors.purple
magenta = colors.magenta
lime = colors.lime
orange = colors.orange
red = colors.red
brown = colors.brown
cyan = colors.cyan
pink = colors.pink
grey = colors.gray
gray = colors.gray
lightGray = colors.lightGray
lightGrey = colors.lightGray

-- Buttons

buttonList = {}
Buttons = {}
Buttons.__index = Buttons

function createButton( name, func)
        button = {}
        setmetatable(button,Buttons)
        button.name = name
        button.action = func

        return button
end

function Buttons:toggle( newColor,sec )

        self:draw( self.x,self.y,self.width,newColor,self.tcolor)

        if sec ~= nil then
                sleep(sec)
                self:draw( self.x,self.y,self.width,self.color,self.tcolor )
        end
end


function Buttons:draw( x,y,width,color,tcolor )
        table.insert(buttonList,{self.name,x,y,width,self.action})

        self.x = x
        self.y = y
        self.width = width
        if self.tcolor == nil then
                self.color = color
        end
        self.tcolor = tcolor
        self.VarName=vName
        for i = 1,width do
                paintutils.drawLine(x, y + i, x + #self.name + 1, y + i, color)
        end

        term.setCursorPos(x,y + math.ceil(width/2))
        term.setTextColor(tcolor)
        term.setBackgroundColor(color)
        term.write(" "..self.name.." ")
end

function Buttons:trigger()
        buttonList[i][5]()
end

function Buttons:remove()
        for i = 1,#buttonList do
                if self.name == buttonList[i][1] then
                        table.remove(buttonList,i)
                end
        end
        self = nil
end

function detect( trigger,tggl )
bClickEvent,bclick,bx,by = os.pullEvent("mouse_click")
    for i = 1,#buttonList do
        if bx >= buttonList[i][2] and bx <= buttonList[i][2] + #buttonList[i][1] and by >= buttonList[i][3] and by <= buttonList[i][3] + buttonList[i][4]  and bclick==1 then
        term.clear()
        term.setBackgroundColor(colors.black)
            if trigger == true then
                buttonList[i][5]()
            end
        return
        end
    end
end

-- Progress Bars

barList = {}
Bars = {}
Bars.__index = Bars

function createBar( name )
        bar = {}
        setmetatable(bar,Bars)
        bar.name = name
        return bar
end

function Bars:setup( x,y,length,color,pcolor,disp,dispbcolor,tcolor )
        self.x,self.y,self.length,self.color,self.pcolor,self.disp,self.dispbcolor,self.tcolor = x,y,length,color,pcolor,disp,dispbcolor,tcolor
end

function Bars:draw( x,y,length,color,pcolor,disp,dispbcolor,tcolor )

        if self.x == nil and x ~= nil then
                self.x,self.y,self.length,self.color,self.pcolor,self.disp,self.dispbcolor,self.tcolor = x,y,length,color,pcolor,disp,dispbcolor,tcolor
        end

        self.percent = 0
        term.setCursorPos(x,y)
        paintutils.drawLine(x,y,x+ length,y,color)
        term.setCursorPos(x,y)
        if self.percent > 0 then
                paintutils.drawLine(x,y,x + length*(self.percent/100),y,pcolor)
        end


        percentString = tostring(self.percent).."%"
        if disp == true then
                term.setCursorPos(math.max(x + math.ceil(length/2) - math.ceil(#percentString/2),0) + 1,y-1)
                term.setBackgroundColor(dispbcolor)
                term.setTextColor(tcolor)
                write(percentString)
        end
end

function Bars:update( percent )
        self.percent = percent
        term.setCursorPos(self.x,self.y)
        paintutils.drawLine(self.x,self.y,self.x + self.length,self.y,self.color)
        term.setCursorPos(self.x,self.y)
        if self.percent > 0 then
                paintutils.drawLine(self.x,self.y,self.x + self.length*(self.percent/100),self.y,self.pcolor)
        end


        percentString = tostring(self.percent).."%"
        if self.disp == true then
                term.setCursorPos(math.max(self.x + math.ceil(self.length/2) - math.ceil(#percentString/2),0) + 1,self.y-1)
                term.setBackgroundColor(self.dispbcolor)
                term.setTextColor(self.tcolor)
                write(percentString)
        end
end

-- Textboxs

function newTextBox(x,y,length,bcolor,tcolor)
        typed = {}
        alphabet = "abcdefghijklmnopqrstuvwxyz"

        term.setBackgroundColor(bcolor)
        paintutils.drawLine(x, y, x + length - 1, y, bcolor)
        term.setCursorPos(x, y)
        term.setTextColor(tcolor)
        term.write("_")

        typing = true
        term.setCursorPos(x,y)
        while typing do
                event,key = os.pullEvent()
                if event == "key" then
                        if key >= 0 and key <= 11 then
                                table.insert(typed,key)
                        elseif keys.getName(key) == "enter" then
                                typing = false
                                return string.gsub(table.concat(typed,""),"space"," ")
                        elseif keys.getName(key) == "space" then
                                table.insert(typed,keys.getName(key))
                        elseif keys.getName(key) == "period" then
                                table.insert(typed,".")
                        elseif keys.getName(key) == "comma" then
                                table.insert(typed,",")
                        elseif keys.getName(key) == "backspace" then
                                table.remove(typed,#typed)
                        else
                                key = keys.getName(key)
                                if string.find(alphabet,key) ~= nil then
                                        table.insert(typed,key)
                                end
                        end
                        if #typed > length then
                                table.remove(typed,#typed)
                        else
                                cx,cy = term.getCursorPos()
                                term.setBackgroundColor(bcolor)
                                paintutils.drawLine(x, y, x + length - 1, y, bcolor)
                                term.setCursorPos(x,y)
                                term.write(string.gsub(table.concat(typed,""),"space"," "))
                                if cx < x + length then
                                        term.write("_")
                                end
                        end
                end
        end
end

-- Boxes

Boxs = {}
Boxs.__index = Boxs

function createDialogueBox( title,body,boxType )
        boxes = {}
        setmetatable(boxes,Boxs)
        boxes.title = title
        boxes.body = body
        boxes.boxType = boxType
        return boxes
end

function Boxs:draw( x,y,width,color,bcolor,tcolor )
        ret = nil
        self.width = width
        self.x = x
        self.y = y

        if self.boxType == "yn" then                                                                      -- YN Box

                if type(self.body) ~= "table" then
                        paintutils.drawLine(x, y, x + #self.body + 1, y, bcolor)
                        term.setCursorPos(x,y)
                        term.setTextColor(tcolor)
                        write(self.title)

                        self.len = #self.body

                        for i = 1,width do
                                paintutils.drawLine(x, y + i, x + #self.body, y + i, color)
                        end

                        term.setCursorPos(x + 1, y + 2)
                        term.write(self.body)


                        term.setCursorPos(x + 1,y + width)
                        term.setTextColor(tcolor)
                        term.setBackgroundColor(green)
                        write(" Yes ")

                        term.setCursorPos(x + len - 4,y + width)
                        term.setBackgroundColor(red)
                        write(" No ")

                        repeat
                                event,click,cx,cy = os.pullEvent("mouse_click")

                                if cx >= x + 1 and cx <= x + 5 and cy == y + width then
                                        ret = true
                                elseif cx >= x + len - 5 and cx <= x + len - 1  and cy == y + width then
                                        ret = false
                                end
                        until ret ~= nil

                else

                        len = 0
                        for i = 1,#self.body do
                                if #self.body[i] > len then
                                        len = #self.body[i]
                                end
                        end

                        paintutils.drawLine(x, y, x + len + 1, y, bcolor)
                        term.setCursorPos(x,y)
                        term.setTextColor(tcolor)
                        write(self.title)

                        for i = 1,width do
                                paintutils.drawLine(x, y + i, x + len + 1, y + i, color)
                        end

                        for i = 1,#self.body do
                                term.setCursorPos(x + (len/2 - #self.body[i]/2) + 1, y + i + 1)
                                term.write(self.body[i])
                        end

                        term.setCursorPos(x + 1,y + width)
                        term.setTextColor(tcolor)
                        term.setBackgroundColor(green)
                        write(" Yes ")

                        term.setCursorPos(x + len - 4,y + width)
                        term.setBackgroundColor(red)
                        write(" No ")

                        repeat
                                event,click,cx,cy = os.pullEvent("mouse_click")

                                if cx >= x + 1 and cx <= x + 5 and cy == y + width then
                                        ret = true
                                elseif cx >= x + len - 5 and cx <= x + len - 1  and cy == y + width then
                                        ret = false
                                end
                        until ret ~= nil


                        self.len = len
                end

        elseif self.boxType == "ok" then                                                                  -- Ok Box
                if type(self.body) ~= "table" then

                        paintutils.drawLine(x, y, x + #self.body + 1, y, bcolor)
                        term.setCursorPos(x,y)
                        term.setTextColor(tcolor)
                        write(self.title)
                        self.len = #self.body

                        for i = 1,width do
                                paintutils.drawLine(x, y + i, x + #self.body, y + i, color)
                        end

                        term.setCursorPos(x + 1, y + 2)
                        term.write(self.body)

                        term.setCursorPos(x + (self.len/2) - 1,y + width)
                        term.setTextColor(tcolor)
                        term.setBackgroundColor(green)
                        write(" Ok ")


                        repeat
                                event,click,cx,cy = os.pullEvent("mouse_click")

                                if cx > x + (self.len/2 - 4) and cx < x + (self.len/2) and cy == y + width then
                                        ret = true
                                end
                        until ret == true

                else

                        len = 0
                        for i = 1,#self.body do
                                if #self.body[i] > len then
                                        len = #self.body[i]
                                end
                        end
                        self.len = len

                        paintutils.drawLine(x, y, x + len + 1, y, bcolor)
                        term.setCursorPos(x,y)
                        term.setTextColor(tcolor)
                        write(self.title)

                        for i = 1,width do
                                paintutils.drawLine(x, y + i, x + len + 1, y + i, color)
                        end

                        for i = 1,#self.body do
                                term.setCursorPos(x + (len/2 - #self.body[i]/2) + 1, y + i + 1)
                                term.write(self.body[i])
                        end

                        term.setCursorPos(x + (self.len/2) - 1,y + width)
                        term.setTextColor(tcolor)
                        term.setBackgroundColor(green)
                        write(" Ok ")

                        repeat
                                event,click,cx,cy = os.pullEvent("mouse_click")

                                if cx > x + (len/2 - 4) and cx < x + (len/2) and cy == y + width then
                                        ret = true
                                end
                        until ret == true
                end
        end
        return ret
end

function Boxs:clear( color )
        paintutils.drawLine(self.x, self.y, self.x + self.len + 1, self.y, color)
        for i = 1,self.width do
                paintutils.drawLine(self.x, self.y + i, self.x + self.len + 1, self.y + i, color)
        end
end