GUI API

-- 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

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

	mon.setCursorPos(x,y + math.ceil(width/2))
	mon.setTextColor(tcolor)
	mon.setBackgroundColor(color)
	mon.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( x,y,trigger )
	for i = 1,#buttonList do
		if x >= buttonList[i][2] and x <= buttonList[i][2] + #buttonList[i][1] and y >= buttonList[i][3] and y <= buttonList[i][3] + buttonList[i][4] then
			if trigger == true then
				buttonList[i][5]()
			end
			return buttonList[i][1]
		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
	mon.setCursorPos(x,y)
	paintutils.drawLine(x,y,x+ length,y,color)
	mon.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
		mon.setCursorPos(math.max(x + math.ceil(length/2) - math.ceil(#percentString/2),0) + 1,y-1)
		mon.setBackgroundColor(dispbcolor)
		mon.setTextColor(tcolor)
		write(percentString)
	end
end

function Bars:update( percent )
	self.percent = percent
	mon.setCursorPos(self.x,self.y)
	paintutils.drawLine(self.x,self.y,self.x + self.length,self.y,self.color)
	mon.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
		mon.setCursorPos(math.max(self.x + math.ceil(self.length/2) - math.ceil(#percentString/2),0) + 1,self.y-1)
		mon.setBackgroundColor(self.dispbcolor)
		mon.setTextColor(self.tcolor)
		write(percentString)
	end
end

-- Textboxs

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

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

	typing = true
	mon.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 = mon.getCursorPos()
				mon.setBackgroundColor(bcolor)
				paintutils.drawLine(x, y, x + length - 1, y, bcolor)
				mon.setCursorPos(x,y)
				mon.write(string.gsub(table.concat(typed,""),"space"," "))
				if cx < x + length then
					mon.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)
			mon.setCursorPos(x,y)
			mon.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

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


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

			mon.setCursorPos(x + len - 4,y + width)
			mon.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)
			mon.setCursorPos(x,y)
			mon.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
				mon.setCursorPos(x + (len/2 - #self.body[i]/2) + 1, y + i + 1)
				mon.write(self.body[i])
			end

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

			mon.setCursorPos(x + len - 4,y + width)
			mon.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)
			mon.setCursorPos(x,y)
			mon.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

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

			mon.setCursorPos(x + (self.len/2) - 1,y + width)
			mon.setTextColor(tcolor)
			mon.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)
			mon.setCursorPos(x,y)
			mon.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
				mon.setCursorPos(x + (len/2 - #self.body[i]/2) + 1, y + i + 1)
				mon.write(self.body[i])
			end

			mon.setCursorPos(x + (self.len/2) - 1,y + width)
			mon.setTextColor(tcolor)
			mon.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