Скрипт Чистки Регистрации.

if next(tTable) then
-- Build content
local sMsg = "\r\n\r\n\tСейчас "..msg..":\r\n\t"..string.rep("=", 40).."\r\n"
-- Loop through it
for i, nick in pairs(tTable) do sMsg = sMsg.."\t• "..nick.."\r\n"; end
user:SendMessage(tSettings.sBot, sMsg)
else
user:SendMessage(tSettings.sBot, "*** Error: База данных пуста!")
end
end

Show = function(user, data)
local tTable, msg
if data then
-- Parse profile
local _,_, iProfile = string.find(data, "^%S+%s+(%S+)$")
-- Stop if doesn't exist
if not iProfile then return user:SendMessage(tSettings.sBot, "*** Syntax Error: напечатай !showusers <Профиль>"), 0 end
-- Return vars
tTable, msg = GetUsersByProfile(iProfile), "зарегестрированно юзеров с профилем ("..iProfile..")"
else
-- Build custom table
local r = {}; for i, v in pairs(tImmune) do table.insert(r, i) end; tTable, msg = r, "иммунитет у юзеров"
end
-- Table isn't empty
if next(tTable) then
-- Build content
local sMsg = "\r\n\r\n\tСейчас "..msg..":\r\n\t"..string.rep("=", 40).."\r\n"
-- Loop through it
for i, nick in pairs(tTable) do sMsg = sMsg.."\t• "..nick.."\r\n"; end
user:SendMessage(tSettings.sBot, sMsg)
else
user:SendMessage(tSettings.sBot, "*** Error: База данных пуста!")
end
end