Основные возможности

* Удаленное администрирование.
* Система сбора статистики, логи всех действий клиентов, выборочные логи нарушений.
* Система контекстных действий в зависимости от версии клиента.
* Накопительная система наказаний: временное и постоянное лишение пользователей права говорить в чате и закрытие доступа на хаб, история нарушений.
* Эффективный лингвистический фильтр: контроль ругани и флуда в чате, мата в никах и описаниях ресурсов. Автоматическое назначение наказаний и система оповещения о нарушениях.
* Система мотивации расшаривания данных: персональные ограничения на скачивание, рассылка ботом сообщений с просьбами расшариться.
* Сервисные функции: показ новостей, правил, ЧаВо, статистики, списка команд. Посылка писем пользователям в оффлайне. Функция "когда был". Регистрация ников.
* Система "защиты от детей" - блокировка возможности говорить в чате для пользователя, не знающего пароля на ник.
офф.сайт(скачать)
Вот некоторые советы:

-- options

sBotName = "Программа TV"
rHost = "rss.sampo.ru"
rPort = 80
sMsg = {}
tvCode = {
[1] = "1",
[2] = "rtr",
[3] = "ntv",
[4] = "kultura",
[5] = "sport",
[6] = "tvc",
[7] = "tnt",
[8] = "home",
[9] = "ren",
[10] = "tv3",
[11] = "mtv",
[12] = "dtv",
[13] = "7tv",
[14] = "ctc",
[15] = "muz",
[16] = "tv1000",
[17] = "rbk",
}
iLastTime= {
[1] = 0,
[2] = 0,
[3] = 0,
[4] = 0,
[5] = 0,
[6] = 0,
[7] = 0,
[8] = 0,
[9] = 0,
[10] = 0,
[11] = 0,
[12] = 0,
[13] = 0,
[14] = 0,
[15] = 0,
[16] = 0,
[17] = 0,
}
iExpireTime = 60 * 60 * 1 -- 1 hours
sIncomingBuffer = ""
tReqUsers = {} -- users that made request

-- Init lib
libinit = package.loadlib("pxwsa_l51.dll", "_libinit")
libinit()

function Main()
WSA.Init()
end

NewUserConnected = function(user, data)
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\ОРТ $<%[mynick]> !тв_орт".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\РТР $<%[mynick]> !тв_ртр".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\НТВ $<%[mynick]> !тв_нтв".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\Культура $<%[mynick]> !тв_культура".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\Спорт $<%[mynick]> !тв_спорт".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\ТВЦ $<%[mynick]> !тв_твц".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\ТНТ $<%[mynick]> !тв_тнт".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\Домашний $<%[mynick]> !тв_дом".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\RENTV $<%[mynick]> !тв_рентв".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\ТВ3 $<%[mynick]> !тв_тв3".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\MTV $<%[mynick]> !тв_мтв".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\ДТВ $<%[mynick]> !тв_дтв".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\7ТВ $<%[mynick]> !тв_7тв".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\СТС $<%[mynick]> !тв_стс".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\МузТВ $<%[mynick]> !тв_музтв".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\ТВ1000 $<%[mynick]> !тв_тв1000".."|")
user:SendData("$UserCommand 1 3 •[» Онлайн Информация\\Программа TV\\RBK $<%[mynick]> !тв_рбк".."|")
end

OpConnected = NewUserConnected

ChatArrival = function(user, data)
local data = string.sub(data,1,-2)
local _,_,cmd = string.find(data, "%b<>%s+%p(%S+)")
if (cmd == "тв_орт") then
tvNum = 1
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_ртр") then
tvNum = 2
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_нтв") then
tvNum = 3
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_культура") then
tvNum = 4
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_спорт") then
tvNum = 5
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_твц") then
tvNum = 6
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_тнт") then
tvNum = 7
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_дом") then
tvNum = 8
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_рентв") then
tvNum = 9
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_тв3") then
tvNum = 10
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_мтв") then
tvNum = 11
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_дтв") then
tvNum = 12
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_7тв") then
tvNum = 13
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_стс") then
tvNum = 14
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_музтв") then
tvNum = 15
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_тв1000") then
tvNum = 16
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end
if (cmd == "тв_рбк") then
tvNum = 17
rFile = "/rss.php?mode=tv&rss="..tvCode[tvNum]..";"
local difftime = os.difftime(os.time(), iLastTime [tvNum])
if (difftime > iExpireTime) then
table.insert(tReqUsers, user)
user:SendData("<"..sBotName.."> Данные по каналу "..string.upper(tvCode[tvNum]).." устарели, запрашиваю сервер...")
SendRequest(user)
iLastTime [tvNum] = os.time()
else
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
return 1
end

end

OnExit = function()
local errorCode, errorStr = WSA.Dispose()
end

OnTimer = function()
GetResponse()
end

SendRequest = function(user)
sIncomingBuffer = ""
errorCode, errorStr, curSocket = WSA.NewSocket(0)
if errorCode then
user:SendData("<"..sBotName.."> Could not create new socket. Error: "..errorCode.." "..errorStr)
else
-- user:SendData("<"..sBotName.."> New socket is created: "..curSocket)
errorCode, errorStr = WSA.Connect(curSocket, rHost, rPort)
if errorCode then
user:SendData("<"..sBotName.."> Could not connect to: "..rHost..":"..rPort..". Error: "..errorCode.." "..errorStr)
else
-- user:SendData("<"..sBotName.."> SocketID: "..curSocket.." is now connected to: "..rHost..":"..rPort)
errorCode, errorStr = WSA.MarkNonBlocking(curSocket)
if errorCode then
user:SendData("<"..sBotName.."> Could not mark socket as non-blocking. Error: "..errorCode.." "..errorStr)
else
-- user:SendData("<"..sBotName.."> Socket marked as non-blocking: "..curSocket)
local data = "GET "..rFile.." HTTP/1.1\r\nHost: "..rHost.."\r\nUser-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\r\n"..string.char(13,10)
errorCode, errorStr, bytesSent = WSA.Send(curSocket, data)
if errorCode then
user:SendData("<"..sBotName.."> Cannot send request to: "..rHost..":"..rPort..". Error: "..errorCode.." "..errorStr)
else
-- user:SendData("<"..sBotName.."> Sent on socket "..curSocket..": "..bytesSent.." bytes.")
SetTimer(1000) -- 1 sec
StartTimer()
end
end
end
end
end

function KillSymbols (str1, symb_kill, symb_replace) -- заменяем подстроки
local str11 = str1
while string.find(str11,symb_kill) do
str11 = string.gsub(str11,symb_kill,symb_replace)
end
while string.find(str11,string.upper(symb_kill)) do
str11 = string.gsub(str11,string.upper(symb_kill),symb_replace)
end
return str11
end

GetResponse = function ()
errorCode, errorStr, sData, bytesRead = WSA.Receive(curSocket)
if errorCode == nil then
-- Receive done - but there can still be data on the socket you need to read.
sIncomingBuffer = sIncomingBuffer..sData
elseif errorCode == 0 then
-- the connection has been gracefully closed by remotehost.
sMsg[tvNum] = "«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»\n"
local _,_,i,Titl,todDate,i1 = string.find(sIncomingBuffer,"<pubDate>(.*)</pubDate>.*<title>(.*)</title>.*<pubDate>(.*)</pubDate>.*CDATA(.*)></description>")
if (Titl ~= nil) then
sMsg[tvNum] = sMsg[tvNum].."Канал: "..Titl.."\n"
end
if (todDate ~= nil) then
sMsg[tvNum] = sMsg[tvNum]..todDate
end
i2 = string.gsub(i1,"[[]"," ") -- меняем [ на пробел
i1 = string.gsub(i2,"[]]"," ") -- меняем ] на пробел
if (i1 ~= nil) then
sMsg[tvNum] = sMsg[tvNum]..KillSymbols (i1,"<br />"," ").."\n"
end
sMsg[tvNum] = sMsg[tvNum].."«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»\n"
for i, user in pairs(tReqUsers) do
user:SendData("<"..sBotName.."> \n"..sMsg[tvNum])
end
WSA.Close(curSocket)
StopTimer()
tReqUsers = {}
elseif errorCode == 10035 then
-- Receive call is blocked. Do nothing and wait.
else
-- error
for i, user in pairs(tReqUsers) do
currentUser:SendData("<"..sBotName.."> Error: "..errorCode.." "..errorStr)
end
WSA.Close(curSocket)
StopTimer()
tReqUsers = {}
end
end
короче пустое окно выдаёт
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
Канал: Россия
Mon, 30 Apr 2007 00:01:07 +0400



«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
помогите плиз мой хаб dchub://94.243.55.201:411