Bank_experience

----------------------------------------------------
--                    Программа                   --
--         для хранения опыта в Майнкрафт         --
--            с привязкой к базе SQL              --
--          проект http://computercraft.ru        --
--                 2015, © AlexCC                 --
----------------------------------------------------
local event=require("event")
local term=require("term")
local unicode=require("unicode")
local computer=require("computer")
local component=require("component")
local radar=component.openperipheral_sensor
local cb=component.command_block
local gpu=component.gpu
local inet = component.internet
gpu.setDepth(4)

-- константы
local VERSION = "0.1.1"
local KEY = '1111111qwerty55555'
-- Var
local expPers = 0
local expBank = 0
local CLIENT = nil
local TRANSFERCOUNT  = 50

-- ========= Кнопки ============ --
Button = {}
Button.__index = Button
function Button.new(func, x, y, text, fore, back, width, nu)
    self = setmetatable({}, Button)
    self.form = '[ '
    if width == nil then width = 0
        else width = (width - unicode.len(text))-4
    end
    for i=1, math.floor(width/2) do
        self.form = self.form.. ' '
    end
    self.form = self.form..text
    for i=1, math.ceil(width/2) do
        self.form = self.form.. ' '
    end
    self.form = self.form..' ]'
    self.func = func
    self.x = math.floor(x); self.y = math.floor(y)
    self.fore = fore
    self.back = back
    self.visible = true
    self.notupdate = nu or false
    return self
end

function Button:draw(fore, back)
    if self.visible then
        local fore = fore or self.fore
        local back = back or self.back
        gpu.setForeground(fore)
        gpu.setBackground(back)
        gpu.set(self.x, self.y, self.form)
    end
end

function Button:click(x, y)
    if self.visible then
        if y == self.y then
            if x >= self.x and x < self.x + unicode.len(self.form) then
                self:draw(self.back, self.fore)
                local data = self.func()
                if not self.notupdate then self:draw() end
                return true, data
            end
        end
    end
  return false
end

function buttonNew(buttons, func, x, y, text, fore, back, width, notupdate)
    button = Button.new(func, x, y, text, fore, back, width, notupdate)
    table.insert(buttons, button)
    return button
end

function buttonsDraw(buttons)
    for i=1, #buttons do
        buttons[i]:draw()
    end
end

function buttonsClick(buttons, x, y)
    for i=1, #buttons do
        ok, data = buttons[i]:click(x, y)
        if ok then return data end
    end
    return nil
end
--===================================--

function setCenterText(y, w, text)
    len=unicode.len(text)
    local x=(w/2)-(len/2)
    gpu.set(x, y, text)
end

function runCommand(str) -- наша КБ-шка, куда же без нее)
    cb.setCommand(str)
    cb.executeCommand()
end

function get(url) -- получить ответ от сервера (опыт из базы SQL)
  local request, reason = inet.request(url)
  if not request then return false end
  local text = ''
        while true do
            local data, reason = request.read()
            if not data then
              request.close()
              break
            elseif #data > 0 then
              text = text..data
            end
        end
  return text
end

function getBankExp(nick)  -- получение значения  опыта в банке (SQL)
    return get('http://computercraft.ru/*************.php?type=exp&auth='..KEY..'&nick='..nick..'&action=get')
end

function addBankExp(nick, amount) -- прибавить опыт на счет (SQL)
    return get('http://computercraft.ru/*************.php?type=exp&auth='..KEY..'&nick='..nick..'&action=add&value='..amount)
end

function giveUserExp(nick, exp) -- выдать опыт клиенту через КБ
    runCommand("xp "..exp.." "..nick)
end

function setNullUserExp(nick, lvl)  -- обнулить опыт клиенту
    runCommand("xp -"..lvl.."L "..nick)
end

function getUserExp(nick)   -- получить текущий опыт клиента (радар OpenPeripheral)
    local currentExp
    local exp  = radar.getPlayerByName(nick).all().player.experience
    if exp.level >= 31 then
        currentExp =  3.5*exp.level^2-151.5*exp.level+2220
    elseif exp.level >= 16 and exp.level <= 30 then
        currentExp = 1.5*exp.level^2 - 29.5*exp.level + 360
    elseif exp.level<=15 then
        currentExp = 17*exp.level
    end
    -- вернем полный опыт в абсолютных единицах, а также текущий уровень
    return math.floor(exp.levelProgress*exp.nextLevelXp + currentExp) , exp.level
end

function  clearSetScr(x,y) -- чистим экранчик
    gpu.setForeground(0xffffff)
    gpu.setBackground(0x000000)
    gpu.setResolution(x,y)
    term.clear()
end

function drawGuestWindow()  -- рисуем гостевое окошко, чистим пользователей, трансфер в "серединку"
    users={computer.users()}
    for i=1, #users do
        computer.removeUser(users[i])
    end
    clearSetScr(44,20)
    gpu.setForeground(0x0000ff)
    print([[
      ______             _
      | ___ \           | |
      | |_/ / __ _ _ __ | | __
      | ___ \/ _` | '_ \| |/ /
      | |_/ / (_| | | | |   <
      \____/ \__,_|_| |_|_|\_\
           _____    ______
          |  ___|   | ___ \
          | |____  _| |_/ /
          |  __\ \/ /  __/
          | |___>  <| |
          \____/_/\_\_|
    ]])
    gpu.setForeground(0x0000ff)
    setCenterText(18, 44,' Банк опыта ☭, ©AlexCC')
    setCenterText(19,44,' Проект http://computercraft.ru, 2015')
    buttonsDraw(guestButtons)
    TRANSFERCOUNT = 50
end

function drawMineWindow()  -- рисуем основное окошко для трансфера, лочим ПК на клиента
    computer.addUser(CLIENT)
    expPers, current_lvl = getUserExp(CLIENT)
    expBank = getBankExp(CLIENT)
    clearSetScr(40,14)
    gpu.setBackground(0x1e1e1e)
    gpu.fill(1,1,40,6,' ')
    gpu.setForeground(0xffffff)
    setCenterText(2,40,' Привет, '..CLIENT..'!')
    gpu.setForeground(0xffdb00)
    gpu.set(6,3,'Ваш опыт в Банке:      '..expBank..' ед.')
    gpu.set(6,4,'Ваш текущий опыт:      '..expPers..' ед.')
    gpu.set(6,5,'Ваш текущий уровень:   '..current_lvl)
    gpu.set(1,1,"╔")
    gpu.set(40,1,"╗")
    gpu.set(1,6,"╚")
    gpu.set(40,6,"╝")
    for i  = 2, 5 do
        gpu.set(1, i,"║")
        gpu.set(40, i,"║")
    end
    gpu.set(2,1, string.rep("═",38))
    gpu.set(2,6, string.rep("═",38))
    gpu.setBackground(0x000000)
    gpu.setForeground(0xffffff)
    gpu.set(19, 8, TRANSFERCOUNT..' %')
    buttonsDraw(menuButtons)
end

function  transferExpToUser() -- клиент снимает с банка опыт
    expPers, current_lvl = getUserExp(CLIENT) -- уточним еще раз опыт клиента, он мог измениться при открытой сессии(клиент выпил бутылочку опыта или убил паука рядом)
    local trans_exp = math.floor(TRANSFERCOUNT * expBank/100)
    giveUserExp(CLIENT, trans_exp)
    addBankExp(CLIENT, -trans_exp)
    drawMineWindow()
end

function  transferExpToBank() -- клиент отправляет опыт в банк на хранение
    expPers, current_lvl = getUserExp(CLIENT)
    local trans_exp = math.floor(TRANSFERCOUNT * expPers/100)
    setNullUserExp(CLIENT, current_lvl + 1) -- обнулим весь опыт
    giveUserExp(CLIENT, expPers - trans_exp) -- и выдадим разницу, что было и что отправлено
    addBankExp(CLIENT, trans_exp) -- отправим в банк опыт игрока, который он выбрал в процентном соотношении
    drawMineWindow()
end

function min1()  -- уменьшить значение трансфера
    TRANSFERCOUNT = TRANSFERCOUNT - 1
    if TRANSFERCOUNT < 0 then TRANSFERCOUNT = 0 end
    drawTransfer()
end

function min10() -- уменьшить значение трансфера
    TRANSFERCOUNT = TRANSFERCOUNT - 10
    if TRANSFERCOUNT < 0 then TRANSFERCOUNT = 0 end
    drawTransfer()
end

function plus1() -- увеличить значение трансфера
    TRANSFERCOUNT = TRANSFERCOUNT + 1
    if TRANSFERCOUNT > 100 then TRANSFERCOUNT = 100 end
    drawTransfer()
end

function plus10() -- увеличить значение трансфера
    TRANSFERCOUNT = TRANSFERCOUNT + 10
    if TRANSFERCOUNT > 100 then TRANSFERCOUNT = 100 end
    drawTransfer()
end

function drawTransfer() -- нарисовать текущее значение процентика перевода опыта
    gpu.setForeground(0xffffff)
    gpu.setBackground(0x000000)
    gpu.fill(19,8, 5, 1,' ')
    gpu.set(19, 8, TRANSFERCOUNT..' %')
end

function operatiOnOnBank() -- цикл операций с опытом, пока не сдохнет ивентпулл или клиент не выйдет в гостевое окно
    drawMineWindow()
    while true do
    local name, address, x, y = event.pull(60, 'touch')
        if name == 'touch' then
            local result = buttonsClick(menuButtons, x, y)
            if result == 'exit' then break end
        else
            break
        end
    end
end
-- тут будут храниться кнопки (группы кнопок)
menuButtons = {}
guestButtons = {}
-- рисуем кнопки
buttonNew(guestButtons, operatiOnOnBank, 13, 15, " НАЧАТЬ РАБОТУ ", 0xFFFFFF, 0x0000FF, 11)
buttonNew(menuButtons, min10, 2, 8, "-10", 0xFFFFFF, 0x0000FF, 4)
buttonNew(menuButtons, min1, 10, 8, "-1", 0xFFFFFF, 0x0000FF, 4)
buttonNew(menuButtons, plus1, 26, 8, "+1", 0xFFFFFF, 0x0000FF, 4)
buttonNew(menuButtons, plus10, 33, 8, "+10", 0xFFFFFF, 0x0000FF, 4)
buttonNew(menuButtons, transferExpToBank, 8, 10, " Положить опыт в Банк  ", 0xFFFFFF, 0x0000FF, 20)
buttonNew(menuButtons, transferExpToUser, 8, 12, " Забрать опыт из Банка ", 0xFFFFFF, 0x0000FF, 20)
buttonNew(menuButtons, function() return 'exit' end, 16, 14, " Выход ", 0xFFFFFF, 0xFF0000, 10)

-- главный цикл программы, висит гостевое окно, ПК ни на кого не залочен
while true do
    drawGuestWindow()
    local e, _, x, y, _, nick = event.pull('touch')
    -- если был клик мышкой - проверяем кнопки
    if e == 'touch' then
        CLIENT = nick
        buttonsClick(guestButtons, x, y)
    end
end