Менеджер скриптов [Bot]

[MARVELtm]

Решил проблему.. бот работает тока на порту который по умолчанию... при замене на другой не подключается

[Sckatik]

Хорошо бы сделать так чтоб скрипт TimeNEwYears менял тему канала..

[Romans225]

прекрасно подключился и без всяких викторин, а уж темболее и нена сервере=)
даешь еще скрипты=)

[Skif]

Хорошо бы сделать так чтоб скрипт TimeNEwYears менял тему канала..

открываешь блокнотом скрипт TimeNewYear.pas
находишь 4 строчки:
if (strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))>3600)and(...
if (strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))>60) and(...
if (strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))<61)and(...
if (strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))=0)and (...

и заменяешь их на модернизированные (изменения выделены синим цветом):

if (strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))>3600) //если до даты больше часа
and(strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))<86401) // и меньше 24 часов
and (DataReceived='onHour') //и скрипт сработал по часовому счетчику
then
begin
mes(chenal,'До нового 2009 года осталось: '+getsql('select DateDiff("h", now(),#'+date+'#)')+' час.'); //-отправляем сообщение в тот канал, что указан выше в скрипте
tema(chenal,'До нового 2009 года осталось: '+getsql('select DateDiff("h", now(),#'+date+'#)')+' час.');//- меняем тему того же канала
end;

if (strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))>60) //- если до даты больше 60 секунд
and(strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))<3601) //и если до даты меньше 3601 секунд (меньше 1 часа)
and (DataReceived='onMinute') //- убеждаемся что скрипт сработал по минутному счетчику
then
begin
mes(chenal,'До нового 2009 года осталось: '+getsql('select DateDiff("n", now(),#'+date+'#)')+' мин.');
tema(chenal,'До нового 2009 года осталось: '+getsql('select DateDiff("n", now(),#'+date+'#)')+' мин.');
end;
// когда остаются секунды до нового года (или той даты что вы указали), думаю не стоит менять тему
if (strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))<61)
and(strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))>0)
and (DataReceived='onSecond')
then mes(chenal,'До нового 2009 года осталось: '+getsql('select DateDiff("s", now(),#'+date+'#)')+' сек.');

if (strtoint(getsql('select DateDiff("s", now(),#'+date+'#)'))=0)// если наступило та дата, что указана в начале скрипта
and (DataReceived='onSecond') // и скрипт сработал по секундному счетчику
then
begin
mes(chenal,#13#10+#13#10+#13#10+'С НОВЫМ 2009 ГОДОМ!!!!'+#13#10+#13#10+#13#10+'Администрация чата Всех поздравляет!');
tema(chenal,#13#10+#13#10+#13#10+'С НОВЫМ 2009 ГОДОМ!!!!'+#13#10+#13#10+#13#10+'Администрация чата Всех поздравляет!');
end;

з.ы. функция getsql('select DateDiff("s", now(),#'+date+'#)')) дает количество секунд до даты, указанной в начале скрипта.
з.ы.ы #13#10 - переход на новую строку (эквивалент нажатия enter)

[Skif]

Script WEBчат
Наверно не мне это нужно было делать
Данный скрипт связывает php миничат и чат комфорт. Работает по такому же принципу как и аналогичный модуль в Мега-комбайне Викторина, только халявный

Установка скрипта:
Скачать Менеджер скриптов v.1.1http://www.commfort.com/rus/forum/downl ... php?id=266
Файл webchat.pas кинуть в каталог Scripts. запустить бот и добавить в список скриптов.

ВНИМАНИЕ
скрипт работает только, если сам бот т.е. ScriptBot.exe лежит в том же каталоге, где и файл base.mdb от бота Викторина (http://www.commfort.com/rus/forum/viewt ... 30&start=0)
т.е. использует его же базу. Викторину можно не запускать, можно вообще удалить, оставить только файл base.mdb
далее... скачиваем php скрипт мини чата http://www.commfort.com/rus/forum/downl ... iew&id=198
Объяснять как и куда устанавливать php скрипты не буду, т.к. те кто это делают должны знать
редактируем файл includer.php
нужно указать полный путь до файла base.mdb. По примеру:
$connect="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\Documents and Settings\\Администратор\\Рабочий стол\\бот на FS\\base.mdb";
СТРОГО УЧИТЫВАТЬ НАПИСАНИЕ! Использовать по 2 слеша!
Скопировать каталог со смайлами с сервера в каталог с php скриптом (чтоб такие же смайлы были)
По умолчанию, пароль для входа в web чат будет удвоенное имя пользователя. (Например, юзер Skif, у него пароль будет SkifSkif)

[kamatozzz]

как сделать чтобы пользователи могли вводить свои ники и пароли?
Ведь любой же сможет зайти допустим под моим ником?!

И еще все поставил, все работает кроме:
не отправляет сообщения в мейн и не принимает сообщения с мейна,а на экран веба выводит.

[Romans225]

все сделал как надо, итог:

******ОШИБКА get запроса******
26.12.2008 8:33:33: ОШИБКА запроса! ->select count(*) from messages WHERE send="0"
******************
Время выполнения скрипта webchat.pas :0,0255177683197166 sec

Это в самом боте, а эт на страничке:

Fatal error: Uncaught exception 'com_exception' with message '<b>Source:</b> Microsoft OLE DB Provider for ODBC Drivers<br/><b>Description:</b> [Microsoft][Драйвер ODBC Microsoft Access] Ядро базы данных Microsoft Jet не может найти входную таблицу или запрос 'users'. Проверьте существование таблицы или запроса и правильность имени.' in C:\AppServ\www\web\chat.php:11 Stack trace: #0 C:\AppServ\www\web\chat.php(11): com->Execute('SELECT count(*)...') #1 {main} thrown in C:\AppServ\www\web\chat.php on line 11

[kamatozzz]

Вот такое ещё.
Зашел двумя учетками с на разных компах в веб чат, отправил сообщение, на вебе оба получили, в чат ничего не попало.
И еще определило айпи у чела не правильно (172.18.0.100) а у него типо 92.xxx.xxx.xxx

[aleks694]

все сделал как надо, итог:

******ОШИБКА get запроса******
26.12.2008 8:33:33: ОШИБКА запроса! ->select count(*) from messages WHERE send="0"
******************
Время выполнения скрипта webchat.pas :0,0255177683197166 sec

Это в самом боте, а эт на страничке:

Fatal error: Uncaught exception 'com_exception' with message '<b>Source:</b> Microsoft OLE DB Provider for ODBC Drivers<br/><b>Description:</b> [Microsoft][Драйвер ODBC Microsoft Access] Ядро базы данных Microsoft Jet не может найти входную таблицу или запрос 'users'. Проверьте существование таблицы или запроса и правильность имени.' in C:\AppServ\www\web\chat.php:11 Stack trace: #0 C:\AppServ\www\web\chat.php(11): com->Execute('SELECT count(*)...') #1 {main} thrown in C:\AppServ\www\web\chat.php on line 11

кажется мне что или вы базу при копировании заменили, или бот стоит отдельно от викторины (проблемы с базой, и вероятно просто в базе отсутствуют данные)

[Romans225]

сообщения не передаются с чата на вэб чат и обратно, получился обычный вэб чат че за Х?

[kamatozzz]

Передаются, у тебя проблема с подключением ботоскриптера к клиенту чата, проверяй порты!
у меня все заработало, должно появиться всплывающие уведомление типо: Бот работает на xx.xx.xx.xx порт xxxxx

[kamatozzz]

Единственная проблема, это пароли, как сделать так, чтобы пароли были как и при входе в чат?
а не двойной ник пользователя?

[Romans225]

Передаются, у тебя проблема с подключением ботоскриптера к клиенту чата, проверяй порты!
у меня все заработало, должно появиться всплывающие уведомление типо: Бот работает на xx.xx.xx.xx порт xxxxx

бот прекрасно подключился к клиенту коммфорта, но яж по русски написал, сообщения непередаются.

[kamatozzz]

у меня они не передавались из-за того , что бот не был подключен к чату, я порт не правильно указал, был только веб, потом увидел, что порт неправильный, изменил и все гуд!!! сообщения уходят и приходят...
но отрубил его пока не скажут как сделать пароли нормальные...

[SunnySan]

...но отрубил его пока не скажут как сделать пароли нормальные...

Сменить пороль можно отредактировать открыв файл Base.mdb (MS Access'ом 2000 и выше), либо организовать смену пороля через SQL запрос, типа: UPDATE users SET pass=***** WHERE name="Вася". А пока надо ждать, когда Skif освободится и допишит новую команду для смены пороля пользователем.
А сделать пороль таким же, как при в ходе в чат не просто, ибо создатели чата не раскрывают каким образом зашифрован пороль, да и в 90% случаев пользователи не знают своего пороля