BanMe, API1, API2

local s,e,msg = string.find(data,"^%b<>%s(%S+).*$")
    if msg then
        if (string.find(msg,"banme") ~= nil) then

--[[
Название скрипта: BanMe (Stalker)
Версия скрипта: 1.1
Версия API: API2
Автор: Wariner (Unle_Dif)
Специально для портала администраторов http://mydc.ru

Возможности:
v 1.1.Stalker
-добавлено Uncl_Dif:
- !clear
- !close
- изменено меню - юзер не знает что его ждёт, он же Stalker)
v 1.1.
- Теперь под оба API
- Случайное время бана из заданного промежутка
- Дороботаны несколько мелочей
v 1.0
- Банит юзера нажавшего на менюшку
- Рандомное сообщение о том что юзер забанил сам себя

скрипт удобнее будет просматривать в Notepad++
]]--

local sBot = "" -- Ник бота SetMan.GetString(21)
local tTime = {1, 10} -- Интервал времени бана в минутах
local tMsg = { -- Сообщения посылаемые все когда юзер забанил сам себя(не забываем после каждой фразы ставить запятые!!!!)
"играет в Stalker ))",
}
local sReason = "Любопытство"
local bFull = false
local sReturn = true

if not Core then
NewUserConnected = UserConnected
sNick = "sName"
sReturn = 1
bFull = 0
if sBot == "" then
sBot = frmHub:GetHubBotName()
end
else
sNick = "sNick"
if sBot == "" then
sBot = SetMan.GetString(21)
end
end

function UserConnected(tUser)
SendDataToUser(tUser,"$UserCommand 1 3 Меню нашего хаба\\Stalker\\?$<%[mynick]> !banme|")
SendDataToUser(tUser,"$UserCommand 1 3 Меню нашего хаба\\Stalker\\?$<%[mynick]> /clear|")
SendDataToUser(tUser,"$UserCommand 1 3 Меню нашего хаба\\Stalker\\?$<%[mynick]> /close|")
end
OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(tUser,sData)
local sData = sData:sub(1,-2)
local sCmd = sData:match"%b<>%s+([!+-/*]%S+)"
if sCmd == "!banme" then
SendDataToAll(("<%s> %s %s"):format(sBot, tUser[sNick], tMsg[math.random(1,#tMsg)]))
SendDataToUser(tUser, ("<%s> Ты крутой stalker и забанил сам себя, теперь отдохни...))))"):format(sBot))
BanUser(tUser, math.random(tTime[1], tTime[2]), sReason, tUser.sNick, bFull)
return sReturn
end
end

function SendDataToUser(tUser, sMsg)
if Core then
Core.SendToUser(tUser, sMsg)
else
tUser:SendData(sMsg)
end
end

function SendDataToAll(sMsg)
if Core then
Core.SendToAll(sMsg)
else
SendToAll(sMsg)
end
end

function BanUser(tUser, iTime, sReason, sBy, bFull)
if Core then
BanMan.TempBan(tUser, iTime, sReason, sBy, bFull)
else
tUser:Ban(sReason, sBy, bFull)
end
end

function UserConnected(tUser)
    SendDataToUser(tUser,"$UserCommand 1 3 Меню нашего хаба\\Stalker\\?$<%[mynick]> !banme|") -- это всего лишь меню
    ...
end

function ChatArrival(tUser,sData)
    local sData = sData:sub(1,-2)
    local sCmd = sData:match"%b<>%s+([!+-/*]%S+)"   -- нахождение команды
        if sCmd == "!banme" then
              --  обработка команды    
        end
end

function ChatArrival(tUser,sData)
local sData = sData:sub(1,-2)
local sCmd = sData:match"%b<>%s+([!+-/*]%S+)"
if sCmd == "!banme" then
if sCmd == "!clear" then
if sCmd == "!close" then
end
end

function ChatArrival(tUser,sData)
      local sData = sData:sub(1,-2)
      local sCmd = sData:match"%b<>%s+([!+-/*]%S+)"
      if sCmd == "!banme" then
            -- какое то действие
      elseif sCmd == "!clear" then
            -- какое то действие
      elseif sCmd == "!close" then
            -- какое то действие
      end
end

    if sCmd == "!banme" then
        SendDataToAll(("<%s> %s %s"):format(sBot, tUser[sNick], tMsg[math.random(1,#tMsg)]))
        SendDataToUser(tUser, ("<%s> Ты забанил сам себя))))"):format(sBot))      
        BanUser(tUser, math.random(tTime[1], tTime[2]), sReason, tUser.sNick, bFull)
        return sReturn