Версия для печати темы

---------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------
-- Данный скрипт взят с сайта http://mydc.ru/r/?http://board.univ-angers.fr/main.php
-- Оптимизировал и протестировал для русско-язычных хабов:
-- NRJ ( nrj@labo.ru )
--
--
-- Любые боты и скрипты - поддержка/обновления/новинки:
-- 1) http://mydc.ru/r/?http://dc.hovel.ru/
-- 2) http://mydc.ru/r/?http://forum.proc.ru/index.php?showforum=24
--
---------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------

BotName = "PtokaX" --имя бота

minLen = 2 -- минимальная длина ника
maxLen = 20 -- максимальная длина ника
-- 1: отсылать всем,
-- 2: отсылать пользователю, пославшему запрос
-- 3: отсылать в личку пользователю, сделавшему запрос (бот регистрируется на хабе)
HowToSend = 2

require("seen.dat")

function Main()
if HowToSend == 3 then
frmHub:RegBot(BotName)
end
end

function NewUserConnected(curUser)
local boolDisc = 0
if (boolDisc == 0) then
if seenArray == nil then
seenArray = {}
seenArray[curUser.sName] = {}
seenArray[curUser.sIP] = {}
seenArray[curUser.sName] = os.date(curUser.sName.." \
подсоединился %d/%m/%Y в %T и все еще остается здесь.")
seenArray[curUser.sIP] = os.date(curUser.sIP.." \
подсоединился %d/%m/%Y в %T и все еще остается здесь.")
SaveToFile("Seen.dat", seenArray, "seenArray")
SendToAll("Weee")
else
seenArray[curUser.sName] = os.date(curUser.sName.." \
подсоединился %d/%m/%Y в %T и все еще остается здесь.")
seenArray[curUser.sIP] = os.date(curUser.sIP.." \
подсоединился %d/%m/%Y в %T и все еще остается здесь.")
SaveToFile("Seen.dat", seenArray, "seenArray")
end
end
end

function OpConnected(curUser)
if seenArray == nil then
seenArray = {}
seenArray[curUser.sName] = {}
seenArray[curUser.sIP] = {}
seenArray[curUser.sName] = os.date(curUser.sName.." \
подсоединился %d/%m/%Y в %T и все еще остается здесь.")
seenArray[curUser.sIP] = os.date(curUser.sIP.." \
подсоединился %d/%m/%Y в %T и все еще остается здесь.")
SaveToFile("Seen.dat", seenArray, "seenArray")
else
seenArray[curUser.sName] = os.date(curUser.sName.." \
подсоединился %d/%m/%Y в %T и все еще остается здесь.")
seenArray[curUser.sIP] = os.date(curUser.sIP.." \
подсоединился %d/%m/%Y в %T и все еще остается здесь.")
SaveToFile("Seen.dat", seenArray, "seenArray")
end
end

function OpDisconnected(curUser)
if seenArray == nil then
seenArray = {}
seenArray[curUser.sName] = {}
seenArray[curUser.sIP] = {}
seenArray[curUser.sName] = os.date(curUser.sName.." \
отключился %d/%m/%Y в %T и с тех пор не появлялся.")
seenArray[curUser.sIP] = os.date(curUser.sIP.." \
отключился %d/%m/%Y в %T и с тех пор не появлялся.")
SaveToFile("Seen.dat", seenArray, "seenArray")
else
seenArray[curUser.sName] = os.date(curUser.sName.." \
отключился %d/%m/%Y в %T и с тех пор не появлялся.")
seenArray[curUser.sIP] = os.date(curUser.sIP.." \
отключился %d/%m/%Y в %T и с тех пор не появлялся.")
SaveToFile("Seen.dat", seenArray, "seenArray")
end
end

UserDisconnected = OpDisconnected

function OnError(ErrorMsg)
SendToOps(ErrorMsg)
end

function ChatArrival(curUser, data)
if seenArray == nil then
seenArray = {}
seenArray[curUser.sName] = {}
seenArray[curUser.sIP] = {}
seenArray[curUser.sName] = os.date(curUser.sName.." \
находится на хабе. Последний раз он писал сообщение %d/%m/%Y в %T .")
seenArray[curUser.sIP] = os.date(curUser.sIP.." \
находится на хабе. Последний раз он писал сообщение %d/%m/%Y в %T .")
SaveToFile("Seen.dat", seenArray, "seenArray")
else
seenArray[curUser.sName] = os.date(curUser.sName.." \
находится на хабе. Последний раз он писал сообщение %d/%m/%Y в %T .")
seenArray[curUser.sIP] = os.date(curUser.sIP.." \
находится на хабе. Последний раз он писал сообщение %d/%m/%Y в %T .")
SaveToFile("Seen.dat", seenArray, "seenArray")
end
local data = string.sub(data, 1, -2)
local s,e,cmd = string.find(data, "%b<>%s+[%!%+%?%#](%S+)")
if cmd then
local tCmds = {
["seen"] = function(curUser, data)
local s,e,arg = string.find(data, "%b<>%s+%S+%s+(%S+)")
if not arg then
if HowToSend == 1 then
SendToAll(BotName, "Правильно: !" ..cmd.. " <Ник/IP>")
elseif HowToSend == 2 then
curUser:SendData(BotName, "Правильно: !" ..cmd.. " <Ник/IP>")
elseif HowToSend == 3 then
curUser:SendPM(BotName, "Правильно: !" ..cmd.. " <Ник/IP>")
end
return 1
end
if (arg == curUser.sName) or (arg == curUser.sIP) then
if HowToSend == 1 then
SendToAll(BotName, "Вы не можете посмотреть \
информацию о себе " ..curUser.sName.. " ;)" )
elseif HowToSend == 2 then
curUser:SendData(BotName, "Вы не можете посмотреть \
информацию о себе " ..curUser.sName.. " ;)" )
elseif HowToSend == 3 then
curUser:SendPM(BotName, "Вы не можете посмотреть \
информацию о себе " ..curUser.sName.. " ;)" )
end
return 1
end
if seenArray[arg] == nil then
if HowToSend == 1 then
SendToAll(BotName, "Хм.. Я ни разу не видел на хабе этого пользователя "..arg.."!" )
elseif HowToSend == 2 then
curUser:SendData(BotName, "Хм.. Я ни разу не видел на хабе этого пользователя "..arg.."!" )
elseif HowToSend == 3 then
curUser:SendPM(BotName, "Хм.. Я ни разу не видел на хабе этого пользователя "..arg.."!" )
end
return 1
end
if HowToSend == 1 then
SendToAll(BotName, "Пользователь: "..seenArray[arg] )
elseif HowToSend == 2 then
curUser:SendData(BotName, "Пользователь: "..seenArray[arg] )
elseif HowToSend == 3 then
curUser:SendPM(BotName, "Пользователь: "..seenArray[arg] )
end
return 1
end,
}
if tCmds[cmd] then
return tCmds[cmd](curUser, data)
end
end
end

function Serialize(tTable, sTableName, sTab)
assert(tTable, "tTable equals nil");
assert(sTableName, "sTableName equals nil");
assert(type(tTable) == "table", "tTable must be a table!");
assert(type(sTableName) == "string", "sTableName must be a string!");
sTab = sTab or "";
sTmp = ""
sTmp = sTmp..sTab..sTableName.." = {\n"
for key, value in tTable do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
end
sTmp = sTmp..",\n"
end
sTmp = sTmp..sTab.."}"
return sTmp
end

function SaveToFile(file , table , tablename)
local handle = io.open(file,"w+")
handle:write(Serialize(table, tablename))
handle:flush()
handle:close()
end

function LoadFromFile(file)
local handle = io.open(file,"r")
if (handle ~= nil) then
loadstring(handle:read("*all"))
handle:flush()
handle:close()
end
end