Cкрипт проверки баланса, хз как описать

-- Это лучше не трогать:
local http, sScriptCmd, sBot, tAllowUsers
----------------------------------------------------------------------------------------------------
-- Конфиг скрипта:
----------------------------------------------------------------------------------------------------

-- Команда скрипта:
sScriptCmd = "balans"

-- Таймаут подключения к серверу статистики (время на ожидание),
-- столько может висеть скрипт при запросе баланса, в секундах:
iScriptTimeout = 1

-- Профили которые будут иметь доступ к скрипту:
tAllowUsers = {
[0] = true,
[1] = true,
[2] = true,
[3] = true,
[-1] = true,
}

----------------------------------------------------------------------------------------------------
-- Конец конфига!
----------------------------------------------------------------------------------------------------

function OnStartup()
http = require("socket.http")
http.TIMEOUT = iScriptTimeout
sBot = SetMan.GetString(21)
end

function GetData(login, pass)
local a, b = http.request([[http://http://stat.kms.multinex.ru/login=]]..login..[[&pswd=]]..pass..[[&mid=5]])
if b and b == 200 then
local c = a:match("status=\"(%S+)\"")
if c then
if c == "error" then
return "Ошибка логина или пароля"
elseif c == "ok" then
local d = a:match("summa=\"(%S+)%s*\"")
if d then
return "Ваш баланс равен "..d.." руб."
else
return "Сумма не найдена"
end
else
return "Ответ не корректен"
end
else
return "Запрос не корректен"
end
else
return "Запрос не обработан"
end
end

function ChatArrival(tUser, sData)
local sCmd, sElseData = sData:match("^%b<>%s+%p(%S+)%s*(.*)|$")
if sCmd and sCmd == sScriptCmd then
if not tAllowUsers[tUser.iProfile] then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", у тебя нет прав на использование команды '"..sCmd.."'!")
else
if sElseData == "" then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", ты должен ввести логин и пароль!")
else
local sEnteredNick, sEnteredPass = sElseData:match("^(%S+)%s(%S+)$")
if not sEnteredNick or not sEnteredPass then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", ты должен ввести и логин и пароль!")
end
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", "..GetData(sEnteredNick, sEnteredPass))
end
end
return true
end
end

function UserConnected(tUser)
if tAllowUsers[tUser.iProfile] then
Core.SendToUser(tUser, "$UserCommand 1 3 Меню хаба\\Ваш баланс$<%[mynick]> !"..sScriptCmd.." %[line:login] %[line:pass]||")
end
end
OpConnected = UserConnected
RegConnected = UserConnected