--|============================|
--|           SkyPad.          |
--|       Автор: SkyDrive_     |
--| Проект McSkill, cервер HTC |
--|         14.05.2017         |
--|  Version: 1.2 by Niker323  |
--|============================|
local component = require("component")
local computer=require("computer")
local event = require("event")
local term = require("term")
local shell = require("shell")
local fs = require("filesystem")
local unicode=require("unicode")
local serial = require("serialization")

if not fs.exists("/lib/Sky.lua") then
	shell.execute("wget https://www.dropbox.com/s/ct5zsbm81zir7w2/Sky%28lib%29.lua?dl=1 /lib/Sky.lua")
end
local Sky = require("Sky")
local g = component.gpu
event.shouldInterrupt = function () return false end
--------------------Настройки--------------------
local WIGHT, HEIGHT = 146, 42 --Разрешение моника 146/112 x 42
local PASS = "123" --Пасс
local COLOR1 = 0x00ffff --Рамка
local COLOR2 = 0x0000ff --Цвет кнопок
local COLOR3 = 0x333333 --Таблица
local COLOR_SHELL = 0xff00ff --Цвет шелла
-------------------------------------------------
if not (fs.exists(shell.getWorkingDirectory() .. "/Settings.lua")) then
	shell.execute("wget https://www.dropbox.com/s/jdnw53diy1clu80/Settings.lua?dl=1")
end
if not (fs.exists(shell.getWorkingDirectory() .. "/Programms.lua")) then
	shell.execute("wget https://www.dropbox.com/s/12hila3pi3mr3em/Programms.lua?dl=1")
end
if not (fs.exists("/autorun.lua")) then
	print("\nНастройка автозапуска...")
	file = io.open("/autorun.lua", "w")
	file:write("local shell = require('shell')\nlocal term = require('term')\nos.sleep(0.5)\nterm.clear()\nlocal dir = '" .. shell.getWorkingDirectory() .. "'\nif dir ~= '/' then shell.setWorkingDirectory(dir) end\nshell.execute('SkyPad')")
	file:close()
	os.sleep(1)
end
print("\nИнициализация...")
os.sleep(2)
print("Запуск программы...")
os.sleep(2)

local mid = (WIGHT-32)/2+32
local login, prog, tech = false, false, false
local sel = 0

WIGHT, HEIGHT = Sky.Resolution(WIGHT, HEIGHT)
Sky.Ram("SkyPad", COLOR1,COLOR2,WIGHT, HEIGHT)

file = io.open(shell.getWorkingDirectory() .. "/Programms.lua", "r")
local progs = serial.unserialize("{" .. file:read(9999999) .. "}")
file:close()

function Login()
	login = false
	prog = false
	tech = false
	Sky.ClearL(HEIGHT)
	Sky.ClearR(WIGHT,HEIGHT)
	Rules()
	g.setForeground(COLOR1)
	Sky.Word(mid - 28,7, "MCSKILL", 0x222222)
	--users={computer.users()}
    --for i=1, #users do
    --    computer.removeUser(users[i])
    --end
	Sky.MidR(WIGHT,32,"Введите пароль:")
	term.setCursor(mid-2,33)
	local p, nick = Sky.Read({mask = "*", max = 8, accept = "0-9a-f", blink = true, center = true, nick = true})
	if p == PASS then
		if (nick == "Niker323") then
			login = true
			Sky.MidR(WIGHT,33,"Приветствую, " .. nick)
			computer.addUser(nick)
			os.sleep(2)
			Sky.ClearL(HEIGHT)
			Sky.ClearR(WIGHT,HEIGHT)
			Rules(nick)
			Table()
		else
			Sky.MidR(WIGHT,34,"Даже, зная пароль, просто так")
			Sky.MidR(WIGHT,35,"ты сюда не войдёшь")
			os.sleep(2)
			Sky.MidR(WIGHT,37,"Петушинная морда")
			os.sleep(3)
			Login()
		end
end

function Rules(nick)
	if (login) then
		g.setForeground(COLOR2)
		Sky.MidL(WIGHT,5,"==========================")
		Sky.MidL(WIGHT,11,"==========================")
		Sky.MidL(WIGHT,15,"==========================")
		Sky.MidL(WIGHT,31,"Добро пожаловать")
		g.setForeground(COLOR1)
		Sky.MidL(WIGHT,3, "Общая инфа:")
		Sky.MidL(WIGHT,6, "Монитор в идеале 5х3")
		Sky.MidL(WIGHT,7, "блока, чтоб не париться.")
		Sky.MidL(WIGHT,8, "Но если над другой, то")
		Sky.MidL(WIGHT,9, "в настройках каждой проги")
		Sky.MidL(WIGHT,10, "меняйте параметр WIGHT")
		Sky.MidL(WIGHT,12, "Autorun ставится свой,")
		Sky.MidL(WIGHT,13, "но его можно")
		Sky.MidL(WIGHT,14, "редачить под себя")
		Sky.MidL(WIGHT,32,nick)
		Sky.Button(7,34,18,3,COLOR1,COLOR2,"Обновить")
		Sky.Button(7,37,18,3,COLOR1,COLOR2,"Выйти")
	end
end

function TechPanel()
	prog = false
	g.fill(mid - 43, 13, 83, 23, " ")
	Sky.MidR(WIGHT, 20, "&bВаще хз, чё тут запилить,")
	Sky.MidR(WIGHT, 21, "&bесли есть идеи, напишите :)")
	tech = true
end

function ProgrammPanel()
	g.fill(mid - 43, 13, 83, 23, " ")
	tech = false
	Sky.MidR(WIGHT,13,"&bСписок программ для OpenComputers&r")
	g.setForeground(COLOR3)
	Sky.MidR(WIGHT,14, "┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┳━━━━━━━━━━━━━━━━┳━━━━━━━━━━┓")
	Sky.MidR(WIGHT,15, "┃                       &bНазвание&r                      ┃     &bСтатус&r     ┃  &bРазмер&r  ┃")
	Sky.MidR(WIGHT,16, "┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━╋━━━━━━━━━━━━━━━━╋━━━━━━━━━━┫")
	for i = 1, 9 do
		Sky.MidR(WIGHT,i+16, "┃                                                     ┃                ┃          ┃")
	end
	Sky.MidR(WIGHT,26, "┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┻━━━━━━━━━━━━━━━━┻━━━━━━━━━━┛")
	DrawProgs(0)
	prog = true
end

function DrawProgs(s)
	sel = s
	for i = 1, #progs do
		g.setForeground(COLOR1)
		g.set(mid-42, i+16, "                                                     ")
		g.set(mid+29, i+16, "          ")
		local name_progs = tostring(progs[i][1][1]) .. tostring(progs[i][1][2])
		if sel ~= i then
			g.set(mid-15-unicode.len(name_progs)/2, i+16, name_progs)
		else
			g.set(mid-19-unicode.len(name_progs)/2, i+16, ">>> " .. name_progs .. " <<<")
		end
		if (fs.exists(shell.getWorkingDirectory() .. "/" .. progs[i][1][1] .. ".lua")) then
			Sky.Text(mid + 12, i+16, "&2 Установлено  &r")
			local size = fs.size(shell.getWorkingDirectory() .. "/" .. progs[i][1][1] .. ".lua")
			Sky.Text(mid + 33 - unicode.len(size)/2, i+16, size .. "B")
		else
			Sky.Text(mid + 12, i+16, "&8Не установлено&r")
		end
	end
	g.fill(mid - 42, 27, 84, 10, " ")
	if sel ~= 0 then
		if (fs.exists(shell.getWorkingDirectory() .. "/" .. progs[sel][1][1] .. ".lua")) then
			Sky.Button(mid-21,33,20,3,COLOR1,COLOR2,"Запустить")
			Sky.Button(mid+1,33,20,3,COLOR1,COLOR2," Обновить ")
		else
			Sky.Button(mid-10,33,20,3,COLOR1,COLOR2,"Установить")
		end
		g.setForeground(COLOR1)
		Sky.MidR(WIGHT,28,"Требуемые компоненты:")
		local comp = ""
		for i = 1, #progs[sel][3] do
			comp = comp .. progs[sel][3][i] .. " &0|&r "
		end
		Sky.MidR(WIGHT,29, "&0|&r " .. comp)
	end
end

function Click(w,h)
	g.setForeground(COLOR1)
	if sel ~= 0 then
		if (fs.exists(shell.getWorkingDirectory() .. "/" .. progs[sel][1][1] .. ".lua")) then
			if w>=mid-21 and w<=mid-2 and h>=33 and h<=35 then
				for i = 1, #progs[sel][3] do
					if not (component.isAvailable(progs[sel][3][i])) then
						Sky.MidR(WIGHT,31,"&6Отсутствует компонент: &4" .. progs[sel][3][i])
						os.sleep(3)
						DrawProgs(sel)
						return
					end
				end
				term.clear()
				shell.execute(progs[sel][1][1])
				g.setForeground(COLOR1)
				print("\nКликни на монитор для перезагрузки")
				local e = event.pull("touch")
				print("\nРестарт...")
				os.sleep(2)
				shell.execute("reboot")
			elseif w>=mid+1 and w<=mid+20 and h>=33 and h<=35 then
				fs.remove(shell.getWorkingDirectory() .. "/" .. progs[sel][1][1] .. ".lua")
				Sky.Get(progs[sel][2],progs[sel][1][1] .. ".lua",mid-19,31)
				Sky.MidR(WIGHT,31,"                                        ")
				DrawProgs(sel)
				return
			end
		else
			if w>=mid-10 and w<=mid+9 and h>=33 and h<=35 then
				Sky.Get(progs[sel][2],progs[sel][1][1] .. ".lua",mid-19,31)
				Sky.MidR(WIGHT,31,"                                        ")
				DrawProgs(sel)
				return
			end
		end
	end
	for i = 1, #progs do
		if w>=mid-42 and w<=mid+38 and h == i + 16 then
			DrawProgs(i)
			return
		end
	end
	DrawProgs(0)
end

function Table()
	Sky.DrawImage(mid - 28,7, shell.getWorkingDirectory() .. "/LogoSkill.lua")
	Sky.Button(mid - 32,37,20,3,COLOR1,COLOR2,"Проги")
	Sky.Button(mid - 10,37,20,3,COLOR1,COLOR2,"Войти в шелл")
	Sky.Button(mid + 12,37,20,3,COLOR1,COLOR2,"Тех.панель")
	Sky.Button(WIGHT-11,3,7,4,COLOR1,COLOR2,"")
	Sky.Text(WIGHT-10,4,"&b┌│┐&r")
	Sky.Text(WIGHT-10,5,"&b└─┘&r")
end

function getButtons(w,h)
	if w>=7 and w<= 25 and h>=34 and h<=36 then --Кнопка обновить
		term.clear()
		fs.remove(shell.getWorkingDirectory() .. "/SkyPad.lua")
		fs.remove(shell.getWorkingDirectory() .. "/Programms.lua")
		fs.remove("/lib/Sky.lua")
		g.setForeground(COLOR1)
		shell.execute("wget https://www.dropbox.com/s/6qsqiexodjvugsi/SkyPad.lua?dl=1 SkyPad.lua")
		shell.execute("wget https://www.dropbox.com/s/12hila3pi3mr3em/Programms.lua?dl=1")
		shell.execute("wget https://www.dropbox.com/s/ct5zsbm81zir7w2/Sky%28lib%29.lua?dl=1 /lib/Sky.lua")
		print("\nРестарт...")
		os.sleep(2)
		shell.execute("reboot")
	elseif w>=7 and w<= 25 and h>=37 and h<=39 then --Кнопка Логин
		Login()
	elseif w>=mid-32 and w<= mid-13 and h>=37 and h<=39 then --Кнопка Проги
		ProgrammPanel()
	elseif w>=mid-10 and w<= mid+9 and h>=37 and h<=39 then --Кнопка Войти в шелл
		term.clear()
		g.setForeground(COLOR_SHELL)
		shell.execute("sh")
	elseif w>=mid+12 and w<= mid+31 and h>=37 and h<=39 then --Кнопка Тех.Панель
		TechPanel()
	elseif w>=WIGHT-11 and w<= WIGHT-6 and h>=3 and h<=6 then --Кнопка Офф
		computer.shutdown()
	end
end

Login()

while true do
	local e,_,w,h,_,nick = event.pull("touch")
	if (login) then
		getButtons(w,h)
		if (prog) then
			Click(w,h)
		end
	end
end