myDC.ru

Здравствуйте, гость ( Вход | Регистрация )

 
 
Ответить в данную темуНачать новую тему

> Нужно убрать бота

Теги
Нет тегов для показа
prokazzza
сообщение 10.6.2010, 15:55
Сообщение #1


Активный участник
***

Группа: Пользователи
Сообщений: 53
Регистрация: 8.6.2010
Пользователь №: 7 012
Спасибо сказали: 1 раз




Есть скрипт от Chat_History:

CODE
-- This script is converted with PtokaX LUA API Converter v0.9 at 01/17/08 15:57:18
--Chat History On Entry 1.02 LUA 5
--By Mutor The Ugly 4/14/04
--
--Based on a script by Tezlo 1/17/04
--Send chat history to PM on entry
--Перевел и конвертировал в LUA 5.1 X-Ray 01/06/2006
-- +Converted to LUA 5 2/22/05

-----------------------------------------------------------
chatfile = "scripts/Chat_History/chathistory.dat" -- путь до файла данных
maxhistory = 10 -- максимум строк чата для хранения в кеше
botname = "История_чата" -- имя бота
BadChars = {".","?","!","+","-",} -- разрешенные префиксы

function OnStartup()
chathistory = dofile(chatfile) or {}
Core.RegBot(botname,"","",true) -- Comment this line to not have bot appear in user list. Note: If botname is not registered, default dc++ settings will not allow pm's to pop up
-- Enable Pop up messages from offline users / Disable ingnore messages from offline in client 'advanced dc settings'. To allow pop from unregistered botname.
end

function OnExit()
savehistory()
end

function UserConnected(user)
Core.GetUserAllData(user)
local n = #chathistory
local str = " \r\n"
for i = 1, n do str = str.."\r\n"..chathistory[i] end
Core.SendToNick(user.sNick,"<"..botname.."> "..str.."\r\n") -- в Main
-- user:SendPM(botname,str.."\r\n") -- в PM
-- Core.SendToNick(user.sNick,"<"..botname.."> <»«»«»«»«»«»«»«»«»«[ Конец истории чата ]»«»«»«»«»«»«»«»«»«>")
-- user:SendPM(botname,"<»«»«»«»«»«»«»«»«»«[ Конец истории чата ]»«»«»«»«»«»«»«»«»«>")
end

OpConnected = UserConnected

function ChatArrival(user,data)
Core.GetUserAllData(user)
if string.sub(data, 1, 1) ~= "<" then end
local s,e,pre = string.find(data, "^%b<> (.)")
local when = os.date("[%H:%M] ")
local chat = string.sub(data, 1, -2)
if data:match"%b<> is kicking " then
data = data:sub("kicking", "kiсking")
end
for k,v in pairs(BadChars) do
if pre == v then -- disallow command input to cached chat
return
end
end
table.insert(chathistory,when..chat)
if #chathistory > maxhistory then table.remove(chathistory, 1) end
savehistory()
end

function savehistory()
local f,e = io.open( chatfile, "w+" )
if f then
f:write( "return {\n" )
for i = 1, #chathistory do
f:write( "\t"..string.format("%q", chathistory[i])..",\r\n" )
end
f:write( "}" )
f:close()
return 1
else
return nil,"savehistory failed: "..e

end
end

function loadfile(chatfile)
local f,e = io.open( chatfile, "r" )
if f then
local r = f:read( "*a" )
f:close()
return r
else
return nil,"loadfile failed: "..e
end
end

RegConnected = UserConnected


Помогите плиз убрать бота из списка юзеров.


Вопрос решён! Тема удалена.

Сообщение отредактировал Accelerator - 10.6.2010, 20:05
Go to the top of the page
+Quote Post
Accelerator
сообщение 10.6.2010, 17:11
Сообщение #2


Developer
******

Группа: Модераторы
Сообщений: 541
Регистрация: 11.11.2008
Пользователь №: 1 075
Спасибо сказали: 244 раза




Поставь перед
Код
Core.RegBot(botname,"","",true) -- Comment this line to not have bot appear in user list. Note: If botname is not
Цитата
--


или
Код
botname = "История_чата" -- имя бота
меняем на
Код
botname = SetMan.GetString(21)


Спасибо сказали:
Go to the top of the page
+Quote Post

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts А бывают такой скрипт бота?
Скрипт который создает виртуалных юзеров, но с реальными шарами
5 MarkDark 7 313 26.12.2017, 10:47 Посл. сообщение: мамин_парень
No New Posts Topic has attachmentsНужно сделать изменение в скрипте Антипорно
Переделать переменную в функцию
5 thehawk 9 100 21.10.2014, 21:23 Посл. сообщение: thehawk
No New Posts Сколько места нужно на диске чтобы запустить скрипты ?
1 Br@yZeR 5 758 2.5.2011, 18:59 Посл. сообщение: Ksan
Closed Можно ли убрать количество юзеров ?
помогите :)
9 @_JuNiOr_@ 10 294 7.3.2011, 11:45 Посл. сообщение: Setuper
Closed Ищю скрипт (Бота ftp)
Увидел его на нашем локальном dc
1 Ferb 4 841 6.12.2010, 12:55 Посл. сообщение: Saymon21
Closed Подскажите как убрать текст
6 saber 9 202 26.8.2010, 22:24 Посл. сообщение: Saymon21
Closed Если кому нужно переместить своих ХАБ клиентов, могу предоставить свой хаб
6 Seruy 12 188 20.6.2010, 15:13 Посл. сообщение: bot9ra
No New Posts От: Если кому нужно переместить своих ХАБ клиентов, могу предоставить свой хаб
От темы с ID: 3550
4 -=FugeN=- 2 8 301 18.6.2010, 21:48 Посл. сообщение: bot9ra
No New Posts Нужно вырезать "куски" из бота Protector
Сам не могу, из-за нехватки знаний...
8 TIRAN 11 703 1.4.2010, 18:10 Посл. сообщение: Accelerator
No New Posts Ищю файлого бота
6 CraZy 8 128 30.3.2010, 13:13 Посл. сообщение: (Steep)_(Boss)
No New Posts Атрибуты бота на хабе
1 IIPu3PAK 5 423 26.3.2010, 10:21 Посл. сообщение: Nickolya
No New Posts Мне нужно полностью очистить Рег лист -как это зделать?
Мне нужно полностью очистить Рег лист -как это зделать?
2 теньь 6 516 18.3.2010, 13:36 Посл. сообщение: Nickolya
Moved Мне нужно полностью очистить Рег лист -как это зделать?
Мне нужно полностью очистить Рег лист -как это зделать?
0 теньь 0 18.3.2010, 13:05 Посл. сообщение: Saymon21
No New Posts нужно найти человека...
9 Wariner 9 928 12.2.2010, 20:45 Посл. сообщение: mariner
No new Помогите с одним вопросиком по скрипту (Отправка каждой строки от бота)
18 DrakonSP 19 786 16.1.2010, 21:02 Посл. сообщение: DrakonSP

 



RSS Сейчас: 29.3.2024, 18:18