--[[ Название скрипта: BanMe Версия скрипта: 1.1 Версия API: API2 Автор: Wariner Специально для портала администраторов http://mydc.ru Возможности: v 1.1 - Теперь под оба API - Случайное время бана из заданного промежутка - Дороботаны несколько мелочей v 1.0 - Банит юзера нажавшего на менюшку - Рандомное сообщение о том что юзер забанил сам себя скрипт удобнее будет просматривать в Notepad++ ]]-- local sBot = "" -- Ник бота SetMan.GetString(21) local tTime = {1, 10} -- Интервал времени бана в минутах local tMsg = { -- Сообщения посылаемые все когда юзер забанил сам себя(не забываем после каждой фразы ставить запятые!!!!) "забанил сам себя", } 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 Меню хаба\\Ты любопытный??\\Нажми!$<%[mynick]> !banme|") 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> КрасавчеГ,ты забанил сам себя =)"):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