---------------------------------------------------- Библиотеки ----------------------------------------------------------------

local internet = require("internet")
local json = require("json")
local serialization = require("serialization")
local event = require("event")
local ecs = require("ECSAPI")
local fs = require("filesystem")
local buffer = require("doubleBuffering")
local context = require("context")
local image = require("image")
local unicode = require("unicode")
local component = require("component")
local computer = require("computer")

---------------------------------------------------- Константы ----------------------------------------------------------------

local VKAPIVersion = "5.50"

local colors = {
	leftBar = 0x262626,
	leftBarAlternative = 0x383838,
	leftBarText = 0xFFFFFF,
	leftBarSelection = 0x00A8FF,
	leftBarSelectionText = 0xFFFFFF,

	scrollBar = 0xCCCCCC,
	scrollBarPipe = 0x666666,

	mainZone = 0xFFFFFF,
	senderCloudColor = 0x3392FF,
	senderCloudTextColor = 0xFFFFFF,
	yourCloudColor = 0x55BBFF,
	yourCloudTextColor = 0xFFFFFF,
	systemMessageColor = 0x555555,
	dateTime = 0x777777,

	loginGUIBackground = 0x002440,

	topBar = 0x002440,
	topBarText = 0xFFFFFF,

	statusBar = 0x262626,
	statusBarText = 0xAAAAAA,

	audioPlayButton = 0x002440,
	audioPlayButtonText = 0xFFFFFF,

	messageInputBarColor = 0xEEEEEE,
	messageInputBarTextBackgroundColor = 0xFFFFFF,
	messsageInputBarTextColor = 0x262626,
}

local leftBarHeight = buffer.screen.height - 9
local leftBarWidth = math.floor(buffer.screen.width * 0.17)

local topBarHeight = 3

local mainZoneWidth = buffer.screen.width - leftBarWidth
local mainZoneHeight = buffer.screen.height - topBarHeight - 1
local mainZoneX = leftBarWidth + 1
local mainZoneY = topBarHeight + 1

local cloudWidth = math.floor(mainZoneWidth * 0.7)

-------------------------------------------------------------------------------------------------------------------------------

local VKLogoImagePath = "MineOS/Applications/VK.app/Resources/VKLogo.pic"
-- local leftBarElements = {"Новости", "Друзья", "Сообщения", "Настройки", "Выход"}
local leftBarElements = { "Сообщения", "Аудиозаписи", "Группы", "Выход" }
local currentLeftBarElement = 1
local personalInfo
local access_token
local whatIsOnScreen

local countOfDialogsToLoadFromServer = 10
local countOfAudioToLoadFromServer = 10
local countOfMessagesToLoadFromServer = 10

local dialogToShowFrom = 1
local audioToShowFrom = 1
local messageToShowFrom = 1

local dialogScrollSpeed = 5
local audioScrollSpeed = 5
local messagesScrollSpeed = 5

local currentMessagesPeerID, currentMessagesAvatarText, currentMessagesFullName
local dialogPreviewTextLimit = mainZoneWidth - 15

---------------------------------------------------- Веб-часть ----------------------------------------------------------------

--Объекты
local obj = {}
local function newObj(class, name, ...)
	obj[class] = obj[class] or {}
	obj[class][name] = {...}
end

--Дебаг-функция на сохранение говна в файл, МАЛО ЛИ ЧО
local function saveToFile(stro4ka)
	local file = io.open("test.lua", "w")
	file:write(stro4ka)
	file:close()
end

--Модифицированная функция интернет-запросов, стандартная фу-фу-фу, ошибка на ошибке и HTTP Response Error погоняет!
--Заметка: переписать на компонетное API, в рот ебал автора либы. Хм, велосипеды?
local function request(url)
	local data = ""
	--Выполняем запрос на подключение
	local success, response = pcall(internet.request, url)
	--Если все ок, то делаем чтение из response, иначе выдаем ошибку, че не так с подключением
	--(скорее всего, ошибка будет связана с отстутствием инета или неверными URL, которые ТЫ, СУКА, лично и вбиваешь в код)
	if success then
		while true do
			--Делаем запрос на чтение из response
			local success, reason = pcall(response)
			--Если все ок, то идем дальше, иначе кидаем ошибку
			--(скорее всего, это будет серверная ошибка, неверный пасс там, 404, бла-бла)
			if success then
				--Если конец response не достигнут, то записываем в data все, что пришло с сервака, иначе по съебкам!
				if reason then
					data = data .. reason
				else
					break
				end
			else
				return false, reason
			end
		end

		--Если все охуенно, то возвращаем true и преобразованный JSON-ответ в таблицу Lua
		return true, json:decode(data)
	else
		return false, response
	end
end

--Отправляем запрос на авторизацию по логину и паролю
local function getLoginDataRequest(username, password)
	local url = "https://oauth.vk.com/token?grant_type=password&client_id=3697615&client_secret=AlVXZFMUqyrnABp8ncuU&username=" .. username .. "&password=" .. password .. "&v=" .. VKAPIVersion
	return request(url)
end

--Запрос к методам VK API
local function VKAPIRequest(method, ... )
	local arguments = { ... }
	local stringArguments = ""

	local url = "https://api.vk.com/method/" .. method .. "?" .. table.concat(arguments, "&") .. "&access_token=" .. access_token .. "&v=" .. VKAPIVersion

	return request(url)
end

--Запрос на получение списка диалогов
local function getDialogsRequest(fromDialog, count)
	return VKAPIRequest("messages.getDialogs", "offset=" .. fromDialog, "count=" .. count, "preview_length=" .. dialogPreviewTextLimit)
end

--Запрос на получение списка диалогов
local function getMessagesRequest(peerID, fromMessage, count)
	return VKAPIRequest("messages.getHistory", "offset=" .. fromMessage, "count=" .. count, "peer_id=" .. peerID)
end

--Запрос на получение списка музычки
local function getAudioRequest(id, fromAudio, count)
	return VKAPIRequest("audio.get", "offset=" .. fromAudio, "count=" .. count, "owner_id=" .. id, "need_user=1")
end

--Эта хуйня делает строку охуенной путем замены говна на конфетку
local function optimizeStringForURLSending(code)
  if code then
    code = string.gsub(code, "([^%w ])", function (c)
      return string.format("%%%02X", string.byte(c))
    end)
    code = string.gsub(code, " ", "+")
  end
  return code
end

local function optimizeStringForWrongSymbols(s)
	--Удаляем некорректные символы
	s = string.gsub(s, "	", " ")
	s = string.gsub(s, "\r\n", "\n")
	s = string.gsub(s, "\n", "")
	--Заменяем "широкие" двухпиксельные символы на знак вопроса
	local massiv = {}
	for i = 1, unicode.len(s) do
		massiv[i] = unicode.sub(s, i, i)
		if unicode.isWide(massiv[i]) then massiv[i] = "?" end
	end
	--Возвращаем оптимизрованную строку
	return table.concat(massiv)
end

local function convertIDtoPeerID(whatIsThisID, ID)
	if whatIsThisID == "user" then
		return ID
	elseif whatIsThisID == "chat" then
		return (2000000000 + ID)
	elseif whatIsThisID == "group" then
		return -ID
	end
end

local function getPeerIDFromMessageArray(messageArray)
	local peerID
	--Если это чат
	if messageArray.users_count then
		peerID = convertIDtoPeerID("chat", messageArray.chat_id)
	--Или если это диалог с группой какой-то
	elseif messageArray.user_id < 0 then
		peerID = convertIDtoPeerID("group", messageArray.user_id)
	--Или если просто какой-то сталкер-одиночка
	else
		peerID = convertIDtoPeerID("user", messageArray.user_id)
	end

	return peerID
end

--Запрос на отправку сообщения указанному пидору
local function sendMessageRequest(peerID, message)
	--Делаем строчку не пидорской
	message = optimizeStringForURLSending(message)
	return VKAPIRequest("messages.send", "peer_id=" .. peerID, "message=" .. message)
end

local function usersInformationRequest(...)
	return VKAPIRequest("users.get", "user_ids=" .. table.concat({...}, ","), "fields=city,bdate,online,status,last_seen,followers_count")
end

---------------------------------------------------- GUI-часть ----------------------------------------------------------------

local function createAvatarHashColor(hash)
	return math.abs(hash % 0xFFFFFF)
end

local function drawAvatar(x, y, user_id, text)
	local avatarColor = createAvatarHashColor(user_id)
	local textColor = avatarColor > 8388607 and 0x000000 or 0xFFFFFF

	buffer.square(x, y, 6, 3, avatarColor, textColor, " ")
	buffer.text(x + 2, y + 1, textColor, unicode.upper(text))
end

--Проверка клика в определенную область по "объекту". Кому на хуй вссалось ООП?
local function clickedAtZone(x, y, zone)
	if x >= zone[1] and y >= zone[2] and x <= zone[3] and y <= zone[4] then
		return true
	end
	return false
end

--Интерфейс логина в аккаунт ВК, постараюсь сделать пографонистей
--Хотя хах! Кого я обманываю, ага
local function loginGUI(startUsername, startPassword)
	local background = 0x002440
	local buttonColor = 0x666DFF
	local textColor = 0x262626
	local username, password = startUsername or "E-Mail или номер телефона", startPassword or "Пароль"

	local textFieldWidth = 50
	local textFieldHeight = 3
	local x, y = math.floor(buffer.screen.width / 2 - textFieldWidth / 2), math.floor(buffer.screen.height / 2 - 3)

	local obj = {}
	obj.username = {x, y, x + textFieldWidth - 1, y + 2}; y = y + textFieldHeight + 1
	obj.password = {x, y, x + textFieldWidth - 1, y + 2}; y = y + textFieldHeight + 1
	obj.button = {x, y, x + textFieldWidth - 1, y + 2}

	local VKLogoImage = image.load(VKLogoImagePath)

	local function draw()
		buffer.clear(colors.loginGUIBackground)

		buffer.image(x + 5, obj.username[2] - 15, VKLogoImage)

		buffer.square(x, obj.username[2], textFieldWidth, 3, 0xFFFFFF, 0x000000, " ")
		buffer.square(x, obj.password[2], textFieldWidth, 3, 0xFFFFFF, 0x000000, " ")
		buffer.text(x + 1, obj.username[2] + 1, textColor, ecs.stringLimit("end", username, textFieldWidth - 2))
		buffer.text(x + 1, obj.password[2] + 1, textColor, ecs.stringLimit("end", string.rep("●", unicode.len(password)), textFieldWidth - 2))

		buffer.button(x, obj.button[2], textFieldWidth, textFieldHeight, buttonColor, 0xFFFFFF, "Войти")

		buffer.draw()
	end

	while true do
		draw()
		local e = {event.pull()}
		if e[1] == "touch" then
			if clickedAtZone(e[3], e[4], obj.username) then
				username = ""
				username = ecs.inputText(x + 1, obj.username[2] + 1, textFieldWidth - 2, username, 0xFFFFFF, 0x262626) or ""

			elseif clickedAtZone(e[3], e[4], obj.password) then
				password = ""
				password = ecs.inputText(x + 1, obj.password[2] + 1, textFieldWidth - 2, password, 0xFFFFFF, 0x262626, false, "*") or ""

			elseif clickedAtZone(e[3], e[4], obj.button) then
				buffer.button(x, obj.button[2], textFieldWidth, textFieldHeight, 0xFFFFFF, buttonColor, "Войти")
				buffer.draw()
				os.sleep(0.2)
				draw()
				local success, loginData = getLoginDataRequest(username, password)
				if success then
					return loginData
				else
					ecs.error("Неверный пароль!" .. tostring(loginData))
				end
			end
		end
	end
end

---------------------------------------------------- GUI для взаимодействия с VK API ----------------------------------------------

local function drawPersonalAvatar(x, y)
	drawAvatar(x, y, personalInfo.id, unicode.sub(personalInfo.first_name, 1, 1) .. unicode.sub(personalInfo.last_name, 1, 1))
end

local function status(text)
	buffer.square(mainZoneX, buffer.screen.height, mainZoneWidth, 1, colors.statusBar)
	buffer.text(mainZoneX + 1, buffer.screen.height, colors.statusBarText, text)
	buffer.draw()
end

local function drawTopBar(text)
	buffer.square(mainZoneX, 1, mainZoneWidth, 3, colors.topBar)
	local x = math.floor(mainZoneX + mainZoneWidth / 2 - unicode.len(text) / 2 - 1)
	buffer.text(x, 2, colors.topBarText, text)
end

--Рисуем главную зону
local function clearGUIZone()
	buffer.square(mainZoneX, mainZoneY, mainZoneWidth, mainZoneHeight, colors.mainZone)
end







local function drawEmptyCloud(x, y, cloudWidth, cloudHeight, cloudColor, fromYou)
	local upperPixel = "▀"
	local lowerPixel = "▄"

	--Рисуем финтифлюшечки
	if not fromYou then
		buffer.set(x, y - cloudHeight + 2, colors.mainZone, cloudColor, upperPixel)
		buffer.set(x + 1, y - cloudHeight + 2, cloudColor, 0xFFFFFF, " ")
		x = x + 2
	else
		buffer.set(x + cloudWidth + 3, y - cloudHeight + 2, colors.mainZone, cloudColor, upperPixel)
		buffer.set(x + cloudWidth + 2, y - cloudHeight + 2, cloudColor, 0xFFFFFF, " ")
	end

	--Заполняшечки
	buffer.square(x + 1, y - cloudHeight + 1, cloudWidth, cloudHeight, cloudColor, 0xFFFFFF, " ")
	buffer.square(x, y - cloudHeight + 2, cloudWidth + 2, cloudHeight - 2, cloudColor, 0xFFFFFF, " ")

	--Сгругленные краешки
	buffer.set(x, y - cloudHeight + 1, colors.mainZone, cloudColor, lowerPixel)
	buffer.set(x + cloudWidth + 1, y - cloudHeight + 1, colors.mainZone, cloudColor, lowerPixel)
	buffer.set(x, y, colors.mainZone, cloudColor, upperPixel)
	buffer.set(x + cloudWidth + 1, y, colors.mainZone, cloudColor, upperPixel)

	return y - cloudHeight + 1
end

local function stringWrap(text, limit)
	local strings = {}
	local textLength = unicode.len(text)
	local subFrom = 1
	while subFrom <= textLength do
		table.insert(strings, unicode.sub(text, subFrom, subFrom + limit - 1))
		subFrom = subFrom + limit
	end
	return strings
end

local function drawTextCloud(x, y, cloudColor, textColor, fromYou, text)
	local y = drawEmptyCloud(x, y, cloudWidth, #text + 2, cloudColor, fromYou)
	x = fromYou and x + 2 or x + 4

	for i = 1, #text do
		buffer.text(x, y + i, textColor, text[i])
	end

	return y
end

local function getAttachments(messageArray)
	local text = "Вложения: "
	for j = 1, #messageArray.attachments do
		if messageArray.attachments[j].type == "sticker" then
			text = text .. "стикер, "
		elseif messageArray.attachments[j].type == "photo" then
			text = text .. "фото, "
		elseif messageArray.attachments[j].type == "video" then
			text = text .. "видео, "
		elseif messageArray.attachments[j].type == "audio" then
			text = text .. "аудио, "
		elseif messageArray.attachments[j].type == "wall" then
			text = text .. "запись на стене, "
		end
	end
	text = unicode.sub(text, 1, -3)

	return text
end

local function drawMessageInputBar(currentText)
	local x, y = mainZoneX, buffer.screen.height - 5
	obj.messageInputBar = { x, y, x + mainZoneWidth - 7, y + 2}
	buffer.square(x, y, mainZoneWidth, 5, colors.messageInputBarColor)
	buffer.square(x + 2, y + 1, mainZoneWidth - 4, 3, colors.messageInputBarTextBackgroundColor)
	buffer.text(x + 4, y + 2, colors.messsageInputBarTextColor, ecs.stringLimit("start", currentText or "Введите сообщение", mainZoneWidth - 8))
end

local function getUserNamesFromMessagesArray(messagesArray)
	local usersToGetNames = {}
	for i = 1, #messagesArray do
		if messagesArray[i].user_id and messagesArray[i].user_id > 0 then
			table.insert(usersToGetNames, messagesArray[i].user_id)
		end
	end

	local success, usersData = usersInformationRequest(table.unpack(usersToGetNames))
	if success and usersData.response then
		for i = 1, #messagesArray do
			if messagesArray[i].user_id and messagesArray[i].user_id > 0 then
				for j = 1, #usersData.response do
					if usersData.response[j].id == messagesArray[i].user_id then
						messagesArray[i].first_name = usersData.response[j].first_name
						messagesArray[i].last_name = usersData.response[j].last_name
					end
				end
			end
		end
	end

	return messagesArray
end

local function messagesGUI()

	local success, messages = getMessagesRequest(currentMessagesPeerID, messageToShowFrom - 1, countOfMessagesToLoadFromServer)
	if success and messages.response then

		whatIsOnScreen = "messages"

		if currentMessagesPeerID > 2000000000 then
			status("Загружаю имена пользователей из переписки (актуально для конференций)")
			messages.response.items = getUserNamesFromMessagesArray(messages.response.items)
		end

		clearGUIZone()
		drawTopBar("Диалог с \"" .. currentMessagesFullName .. "\"")

		saveToFile(serialization.serialize(messages))

		buffer.setDrawLimit(mainZoneX, mainZoneY, mainZoneWidth, mainZoneHeight)

		local y = buffer.screen.height - 7
		local xSender = mainZoneX + 2
		local xYou = buffer.screen.width - 7

		for i = 1, #messages.response.items do

			local messageTextArray = {}

			if messages.response.items[i].body ~= "" then table.insert(messageTextArray, optimizeStringForWrongSymbols(messages.response.items[i].body)) end
			if messages.response.items[i].fwd_messages then table.insert(messageTextArray, "Пересланные сообщения") end
			if messages.response.items[i].attachments then table.insert(messageTextArray, getAttachments(messages.response.items[i])) end

			messageTextArray = ecs.stringWrap(messageTextArray, cloudWidth - 4)
			local peerID = getPeerIDFromMessageArray(messages.response.items[i])

			--Делаем дату пиздатой
			-- messages.response.items[i].date = os.date("%d.%m.%y в %X", messages.response.items[i].date)
			messages.response.items[i].date = os.date("%H:%M", messages.response.items[i].date)

			if messages.response.items[i].out == 1 then
				y = drawTextCloud(xYou - cloudWidth - 6, y, colors.yourCloudColor, colors.yourCloudTextColor, true, messageTextArray)
				drawPersonalAvatar(xYou, y)
				buffer.text(xYou - cloudWidth - unicode.len(messages.response.items[i].date) - 8, y + 1, colors.dateTime, messages.response.items[i].date)
			else
				y = drawTextCloud(xSender + 8, y, colors.senderCloudColor, colors.senderCloudTextColor, false, messageTextArray)
				drawAvatar(xSender, y, peerID, messages.response.items[i].first_name and (unicode.sub(messages.response.items[i].first_name, 1, 1) .. unicode.sub(messages.response.items[i].last_name, 1, 1)) or currentMessagesAvatarText)
				buffer.text(xSender + cloudWidth + 14, y + 1, colors.dateTime, messages.response.items[i].date)
			end

			y = y - 2
		end

		local currentText

		drawMessageInputBar(currentText)

		status("История переписки загружена, ожидаю ввода сообщения")

		buffer.resetDrawLimit()
		-- buffer.draw()
	end
end






--У-у-у, господи, какие же уроды! Вроде такое охуенное вк апи, а пиздец!
--Крч, эта функция получает имена юзеров по их айдишникам и загоняет их
--в массив вместо title.
--Собсна, нахуя? ДА ПОТОМУ ЧТО dialogs возвращают только ID юзеров с историей
--сообщений, а не их имя. Ну, а имена КОНФ нормас пишутся. Что за бред?
--Идите на хуйЙ!!!!!! КОСТЫЛЕЕБСТВО
local function getUserNamesFromDialogArray(dialogs)
	local usersToGetNames = {}

	for i = 1, #dialogs.response.items do
		if dialogs.response.items[i].message.user_id and dialogs.response.items[i].message.user_id > 0 then
			table.insert(usersToGetNames, dialogs.response.items[i].message.user_id)
		end
	end

	local success, usersData = usersInformationRequest(table.unpack(usersToGetNames))
	if success and usersData.response then
		for i = 1, #dialogs.response.items do
			if not dialogs.response.items[i].message.chat_id then
				for j = 1, #usersData.response do
					if usersData.response[j].id == dialogs.response.items[i].message.user_id then
						dialogs.response.items[i].message.title = usersData.response[j].first_name .. " " .. usersData.response[j].last_name
					end
				end
			end
		end
	end

	return dialogs
end

local function drawDialog(y, dialogBackground, avatarID, avatarText, text1, text2, text3)
	--Рисуем подложку под диалог нужного цвета
	buffer.square(mainZoneX, y, mainZoneWidth, 5, dialogBackground)
	--Рисуем аватарку, чо уж
	drawAvatar(mainZoneX + 2, y + 1, avatarID, avatarText)
	--Пишем все, что нужно
	y = y + 1
	if text1 then buffer.text(mainZoneX + 10, y, 0x000000, text1); y = y + 1 end
	if text2 then buffer.text(mainZoneX + 10, y, 0x555555, text2); y = y + 1 end
	if text3 then buffer.text(mainZoneX + 10, y, 0x666666, text3); y = y + 1 end
end

local function dialogsGUI()

	local success, dialogs = getDialogsRequest(dialogToShowFrom - 1, countOfDialogsToLoadFromServer)
	if success and dialogs.response then

		-- saveToFile(serialization.serialize(dialogs))

		whatIsOnScreen = "dialogs"

		obj.dialogList = {}

		clearGUIZone()
		drawTopBar("Сообщения")
		buffer.draw()

		--НУ ТЫ ПОНЯЛ, АГА
		status("Получаю имена пользователей по ID")
		dialogs = getUserNamesFromDialogArray(dialogs)

		local y = mainZoneY
		local avatarText = ""
		local peerID
		local color

		for i = 1, #dialogs.response.items do
			--Ебемся с цветами
			if dialogs.response.items[i].unread then
				if i % 2 == 0 then
					color = 0xCCDBFF
				else
					color = 0xCCDBFF
				end
			else
				if i % 2 == 0 then
					color = 0xEEEEEE
				else
					color = 0xFFFFFF
				end
			end

			--Рисуем пиздюлинку, показывающую кол-во непрочитанных сообщений
			if dialogs.response.items[i].unread and dialogs.response.items[i].unread ~= 0 then
				local cyka = tostring(dialogs.response.items[i].unread)
				local cykaWidth = unicode.len(cyka) + 2
				local cykaX = buffer.screen.width - cykaWidth - 4
				buffer.square(cykaX, y + 2, cykaWidth, 1, ecs.colors.blue)
				buffer.text(cykaX + 1, y + 2, 0xFFFFFF, cyka)
			end


			avatarText = unicode.sub(dialogs.response.items[i].message.title, 1, 2)
			peerID = getPeerIDFromMessageArray(dialogs.response.items[i].message)

			--Ебля с текстом диалога
			local text1 = dialogs.response.items[i].message.title
			local text2
			local text3

			--Если это банальное сообщение
			if dialogs.response.items[i].message.body and dialogs.response.items[i].message.body ~= "" then
				text2 = optimizeStringForWrongSymbols(dialogs.response.items[i].message.body)
			end

			--Если есть какие-либо пересланные сообщения, то
			if dialogs.response.items[i].message.fwd_messages then
				text3 = "Пересланные сообщения"
			--Если есть какие-либо вложения, то
			elseif dialogs.response.items[i].message.attachments then
				text3 = getAttachments(dialogs.response.items[i].message)
			end

			--Рисуем диалог
			drawDialog(y, color, peerID, avatarText, text1, text2, text3)

			newObj("dialogList", i, mainZoneX, y, mainZoneX + mainZoneWidth - 1, y + 4, peerID, avatarText, text1, text2, text3)

			y = y + 5
		end
	end

	status("Список диалогов получен")
end

local function audioGUI(ID)
	local success, audios = getAudioRequest(ID, audioToShowFrom - 1, countOfAudioToLoadFromServer)
	if success and audios.response then
		whatIsOnScreen = "audio"

		obj.audio = {}

		clearGUIZone()
		drawTopBar("Аудиозаписи " .. audios.response.items[1].name_gen)

		local y = mainZoneY
		local color
		for i = 2, #audios.response.items do
			color = 0xFFFFFF
			if i % 2 == 0 then color = 0xEEEEEE end

			buffer.square(mainZoneX, y, mainZoneWidth, 5, color)

			buffer.button(mainZoneX + 2, y + 1, 5, 3, colors.audioPlayButton, colors.audioPlayButtonText, "ᐅ")

			newObj("audio", i, mainZoneX + 2, y + 1, mainZoneX + 7, y + 3, audios.response.items[i].url)

			local x = mainZoneX + 9
			buffer.text(x, y + 1, colors.audioPlayButton, audios.response.items[i].artist)
			x = x + unicode.len(audios.response.items[i].artist)
			buffer.text(x, y + 1, 0x000000, " - " .. audios.response.items[i].title)

			x = mainZoneX + 9
			local hours = string.format("%02.f", math.floor(audios.response.items[i].duration / 3600))
			local minutes = string.format("%02.f", math.floor(audios.response.items[i].duration / 60 - (hours * 60)))
			local seconds = string.format("%02.f", math.floor(audios.response.items[i].duration - hours * 3600 - minutes * 60))
			buffer.text(x, y + 2, 0x555555, "Длительность: " .. hours .. ":" .. minutes .. ":" .. seconds)

			y = y + 5
		end
	end
end

--Главное ГУИ с левтбаром и прочим
local function mainGUI()
	--Подложка под элементы
	buffer.square(1, 1, leftBarWidth, buffer.screen.height, colors.leftBar, 0xFFFFFF, " ")

	if personalInfo then
		drawPersonalAvatar(3, 2)
		buffer.text(11, 3, 0xFFFFFF, ecs.stringLimit("end", personalInfo.first_name .. " " .. personalInfo.last_name, leftBarWidth - 11))
	end

	--Элементы
	obj.leftBar = {}
	local y, color = 6
	for i = 1, #leftBarElements do
		color = colors.leftBarAlternative
		if i % 2 == 0 then color = colors.leftBar end
		if i == currentLeftBarElement then color = colors.leftBarSelection end

		newObj("leftBar", i, 1, y, leftBarWidth, y + 2)

		buffer.square(1, y, leftBarWidth, 3, color, 0xFFFFFF, " ")
		y = y + 1
		buffer.text(3, y, colors.leftBarText, ecs.stringLimit("end", leftBarElements[i], leftBarWidth - 4))
		y = y + 2
	end

	if leftBarElements[currentLeftBarElement] == "Сообщения" then
		status("Получаю список диалогов")
		messageToShowFrom = 1
		dialogToShowFrom = 1
		dialogsGUI()
	elseif leftBarElements[currentLeftBarElement] == "Аудиозаписи" then
		status("Получаю список аудозаписей")
		audioToShowFrom = 1
		audioGUI(personalInfo.id)
	end

	buffer.draw()
end

---------------------------------------------------- Старт скрипта ----------------------------------------------------------------

--Инициализируем библиотеку двойного буффера
--Эх, что бы я делал, если б не накодил ее? 0.2 фпс на GPU мертвеца!
buffer.start()
--Активируем форму логина
local loginData = loginGUI("igor_timofeev@me.com", "13131313")
access_token = loginData.access_token
--Получаем персональные данные
_, personalInfo = usersInformationRequest(loginData.user_id)
personalInfo = personalInfo.response[1]

--Активируем главное GUI
clearGUIZone()
mainGUI()

while true do
	local e = {event.pull()}
	if e[1] == "touch" then

		if whatIsOnScreen == "audio" then
			for key in pairs(obj.audio) do
				if clickedAtZone(e[3], e[4], obj.audio[key]) then
					buffer.button(obj.audio[key][1], obj.audio[key][2], 5, 3, 0x66FF80,  colors.audioPlayButton, "ᐅ")
					buffer.draw()
					os.sleep(0.2)
					buffer.button(obj.audio[key][1], obj.audio[key][2], 5, 3, colors.audioPlayButton, colors.audioPlayButtonText, "ᐅ")
					buffer.draw()

					if component.isAvailable("openfm_radio") then
						component.openfm_radio.stop()
						component.openfm_radio.setURL(obj.audio[key][5])
						component.openfm_radio.start()
					else
						ecs.error("Эта функция доступна только при наличии установленного мода OpenFM, добавляющего полноценное интернет-радио")
					end

					break
				end
			end
		end

		if whatIsOnScreen == "dialogs" then
			for key in pairs(obj.dialogList) do
				if clickedAtZone(e[3], e[4], obj.dialogList[key]) then
					drawDialog(obj.dialogList[key][2], 0xFF8888, obj.dialogList[key][5], obj.dialogList[key][6], obj.dialogList[key][7], obj.dialogList[key][8], obj.dialogList[key][9])
					buffer.draw()
					os.sleep(0.2)
					status("Загружаю переписку с пользователем " .. obj.dialogList[key][7])
					currentMessagesPeerID = obj.dialogList[key][5]
					currentMessagesAvatarText = obj.dialogList[key][6]
					currentMessagesFullName = obj.dialogList[key][7]
					messagesGUI()
					break
				end
			end
		end

		if whatIsOnScreen == "messages" then
			if clickedAtZone(e[3], e[4], obj.messageInputBar) then
				drawMessageInputBar(" ")
				buffer.draw()
				local newText = ecs.inputText(obj.messageInputBar[1] + 4, obj.messageInputBar[2] + 2, obj.messageInputBar[3] - obj.messageInputBar[1], "", colors.messageInputBarTextBackgroundColor, colors.messsageInputBarTextColor)
				if newText and newText ~= " " then
					computer.beep(1700)
					status("Отправляю сообщение пользователю")
					sendMessageRequest(currentMessagesPeerID, newText .. " (отправлено с OpenComputers)")
					status("Обновляю историю переписки")
					messageToShowFrom = 1
					messagesGUI()
				end
				drawMessageInputBar(" ")
			end
		end

		for key in pairs(obj.leftBar) do
			if clickedAtZone(e[3], e[4], obj.leftBar[key]) then
				-- ecs.error("Кликнули на лефт бар ээлемент")
				currentLeftBarElement = key
				mainGUI()

				if leftBarElements[currentLeftBarElement] == "Выход" then
					os.sleep(0.3)
					buffer.clear(0x262626)
					ecs.prepareToExit()
					return
				end

				break
			end
		end
	elseif e[1] == "scroll" then
		if e[5] == 1 then
			if whatIsOnScreen == "dialogs" then
				dialogToShowFrom = dialogToShowFrom - dialogScrollSpeed
				if dialogToShowFrom < 1 then dialogToShowFrom = 1 end
				status("Прокручиваю диалоги, отправляю запрос на сервер")
				dialogsGUI()
				buffer.draw()
			elseif whatIsOnScreen == "messages" then
				messageToShowFrom = messageToShowFrom + messagesScrollSpeed
				status("Прокручиваю сообщения, отправляю запрос на сервер")
				messagesGUI()
				buffer.draw()
			elseif whatIsOnScreen == "audio" then
				audioToShowFrom = audioToShowFrom - audioScrollSpeed
				if audioToShowFrom < 1 then audioToShowFrom = 1 end
				status("Прокручиваю аудозаписи, отправляю запрос на сервер")
				audioGUI(personalInfo.id)
				buffer.draw()
			end
		else
			if whatIsOnScreen == "dialogs" then
				dialogToShowFrom = dialogToShowFrom + dialogScrollSpeed
				status("Прокручиваю диалоги, отправляю запрос на сервер")
				dialogsGUI()
				buffer.draw()
			elseif whatIsOnScreen == "messages" then
				messageToShowFrom = messageToShowFrom - messagesScrollSpeed
				if messageToShowFrom < 1 then messageToShowFrom = 1 end
				status("Прокручиваю сообщения, отправляю запрос на сервер")
				messagesGUI()
				buffer.draw()
			elseif whatIsOnScreen == "audio" then
				audioToShowFrom = audioToShowFrom + audioScrollSpeed
				status("Прокручиваю аудозаписи, отправляю запрос на сервер")
				audioGUI(personalInfo.id)
				buffer.draw()
			end
		end
	end
end

-- local success, dialogs = getDialogsRequest(0, 5)
-- saveToFile(serialization.serialize(dialogs))


-- sendMessageRequest(dialogs.response.items[2], "тестовое сообщение, отправлено через OpenComputers VK Client by Игорь, епта")