Crazy CommFort Server Plugin v1.09 [плагин для сервера]

[CrazyVirus]

Проблема в том что я в скриптах 0 и не знаю куда что и как с ними делать, есть ли подробнейшая инструкция по ним?

Описание функций плагина есть в файле Scripts.txt, описание языка и примеры есть в интернете.

[Interact]

Описание я видел, но возьму к примеру функцию cp.ServAddr (показание адреса сервера) или же cp.GetRights (Права текущей учётной записи). Я получается ставлю событие "Сообщение в общем канале" ставлю команду, а в действиях ставлю выполнить скрипт VB, и пишу туда cp.ServAddr например, когда пользователь вводит команду которую я поставил ничего не происходит... Может я что то не то делаю? Или там надо ещё что то дописывать?

[CrazyVirus]

Описание я видел, но возьму к примеру функцию cp.ServAddr (показание адреса сервера) или же cp.GetRights (Права текущей учётной записи). Я получается ставлю событие "Сообщение в общем канале" ставлю команду, а в действиях ставлю выполнить скрипт VB, и пишу туда cp.ServAddr например, когда пользователь вводит команду которую я поставил ничего не происходит... Может я что то не то делаю? Или там надо ещё что то дописывать?

Ничего происходить и не должно. cp.ServAddr - из плагина для клиента, она возвращает адрес сервера.

[DarkLord (M)]

Crazy я поставил на своем сервере исключение , диапазон IP на регистрацию пользователей сети . т.е пользователи сети не нуждаются в одобрении , а пользователи интернета нуждаются .

Тот скрипт который ты написал на интернетовских действует , а на пользователей сети я поставил событие "Регистрация нового пользователя" и назначил действие "Написать текст"

Новый пользователь %nick%
С IP %ip%

А реально ли еще и идентификатор чтобы публиковался ...??? Это важно ...

С ID %id% - Не прокатывает (((

[Hellios]

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

Первое событие и действие:

Код: Выделить всё

CCSPE:0||||%mn%||||0||||0||
CCSPA:1||file = "C:\text.txt":;Set fso = CreateObject("Scripting.FileSystemObject"):;Set f = fso.OpenTextFile(file, 1, True):;scount = f.ReadAll:;If scount = "" Then:;  scount = 0:;End If:;cp.SetValue "users_count", CInt(scount):;f.Close

Второе:

Код: Выделить всё

CCSPE:0||||||||0||||0||
CCSPA:1||scount = CInt(cp.GetValue("users_count")):;ucount = (UBound(cp.GetOnlineUsers)+1) / 3:;If ucount > scount Then:;  scount = ucount:;  cp.SetValue "users_count", CInt(scount):;  file = "C:\text.txt":;  Set fso = CreateObject("Scripting.FileSystemObject"):;  fso.DeleteFile(file):;  Set f = fso.OpenTextFile(file, 8, True):;  f.Write scount:;  f.Close:;  cp.SetTopic "", "main", "Максимальный онлайн: " & scount:;End If

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

Прошу автора допилить данный скрипт.
1. Максимальный онлайн писать не в топик канала а в приветствие по шаблону как в викторине например.
2. После добавления данного скрипта, плагин вылетает с ошибкой (работает на Wine) можешь это тоже как то допилить?

[leonbratsk]

Прошу автора допилить данный скрипт.
1. Максимальный онлайн писать не в топик канала а в приветствие по шаблону как в викторине например.
2. После добавления данного скрипта, плагин вылетает с ошибкой (работает на Wine) можешь это тоже как то допилить?

Зачем такие усложнения? Легче будет отдельный плагин написать.

[CrazyVirus]

А реально ли еще и идентификатор чтобы публиковался ...??? Это важно ...

С ID %id% - Не прокатывает (((

Код: Выделить всё

cp.GetUserID(cp.EventUserName)

Прошу автора допилить данный скрипт.
1. Максимальный онлайн писать не в топик канала а в приветствие по шаблону как в викторине например.
2. После добавления данного скрипта, плагин вылетает с ошибкой (работает на Wine) можешь это тоже как то допилить?

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

[Interact]

Данное действие есть в скриптах. Не в скриптах делать не было смысла, т.к. для снятия нужен ID ограничения.

Вот в этом и загвостка, как можно указать просто что бы бот снимал любой бан по определённому IP или ID не зависимо от ID нарушения? Ну как бы диапазон сделать нельзя?

[CrazyVirus]

Данное действие есть в скриптах. Не в скриптах делать не было смысла, т.к. для снятия нужен ID ограничения.

Вот в этом и загвостка, как можно указать просто что бы бот снимал любой бан по определённому IP или ID не зависимо от ID нарушения? Ну как бы диапазон сделать нельзя?

Код: Выделить всё

cp.DelRestriction "", "", cp.EventID

В событии указать нужные условия.

[Interact]

Как добавлять виртуального пользователя в каналы? я его приглашаю он не заходит, и возможно ли сделать что бы он заходил во все каналы чата не зависимо от того скрыты они или нет, т.е. создали канал и бот сразу туда заходит??

[Interact]

CrazyVirus ты чудо))) и твой плагин чудо)

[CrazyVirus]

Как добавлять виртуального пользователя в каналы? я его приглашаю он не заходит, и возможно ли сделать что бы он заходил во все каналы чата не зависимо от того скрыты они или нет, т.е. создали канал и бот сразу туда заходит??

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

CrazyVirus ты чудо))) и твой плагин чудо)

Спасибо.

[Interact]

Я всё понял, во всём разобрался кроме 1, я вот это никак не пойму, куда добавлять и принцип работы...

Первое событие и действие:

Код: Выделить всё

CCSPE:0||||%mn%||||0||||0||
CCSPA:1||file = "C:\text.txt":;Set fso = CreateObject("Scripting.FileSystemObject"):;Set f = fso.OpenTextFile(file, 1, True):;scount = f.ReadAll:;If scount = "" Then:;  scount = 0:;End If:;cp.SetValue "users_count", CInt(scount):;f.Close

Второе:

Код: Выделить всё

CCSPE:0||||||||0||||0||
CCSPA:1||scount = CInt(cp.GetValue("users_count")):;ucount = (UBound(cp.GetOnlineUsers)+1) / 3:;If ucount > scount Then:;  scount = ucount:;  cp.SetValue "users_count", CInt(scount):;  file = "C:\text.txt":;  Set fso = CreateObject("Scripting.FileSystemObject"):;  fso.DeleteFile(file):;  Set f = fso.OpenTextFile(file, 8, True):;  f.Write scount:;  f.Close:;  cp.SetTopic "", "main", "Максимальный онлайн: " & scount:;End If

[CrazyVirus]

Я всё понял, во всём разобрался кроме 1, я вот это никак не пойму, куда добавлять и принцип работы..

Скопировать, нажать в плагине кнопку "Вставить", добавить событие, добавить в него действие.
Кстати, в скрипте нужно поправить путь к файлу.

[Hellios]

Прошу автора допилить данный скрипт.
1. Максимальный онлайн писать не в топик канала а в приветствие по шаблону как в викторине например.
2. После добавления данного скрипта, плагин вылетает с ошибкой (работает на Wine) можешь это тоже как то допилить?

Зачем такие усложнения? Легче будет отдельный плагин написать.

Так напиши...