форум поддержки
https://www.commfort.com/ru/forum/
Описание функций плагина есть в файле Scripts.txt, описание языка и примеры есть в интернете.Interact писал(а):Проблема в том что я в скриптах 0 и не знаю куда что и как с ними делать, есть ли подробнейшая инструкция по ним?
Ничего происходить и не должно. cp.ServAddr - из плагина для клиента, она возвращает адрес сервера.Interact писал(а):Описание я видел, но возьму к примеру функцию cp.ServAddr (показание адреса сервера) или же cp.GetRights (Права текущей учётной записи). Я получается ставлю событие "Сообщение в общем канале" ставлю команду, а в действиях ставлю выполнить скрипт VB, и пишу туда cp.ServAddr например, когда пользователь вводит команду которую я поставил ничего не происходит... Может я что то не то делаю? Или там надо ещё что то дописывать?
Прошу автора допилить данный скрипт.CrazyVirus писал(а):Первое событие и действие:Interact писал(а):Можно попросить вас сделать скрипт который будет отображать максимальный онлайн чата? с примерами. Я в скриптах мало чего понимаю. Буду очень признателен!Второе:Код: Выделить всё
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При подключении виртуального пользователя считывается кол-во пользователей из файла, при подключении всех пользователей сверяется считанное кол-во с текущим онлайном, если текущий онлайн больше, то пишет кол-во в файл и меняет тему в канале main.Код: Выделить всё
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
Зачем такие усложнения? Легче будет отдельный плагин написать.Hellios писал(а): Прошу автора допилить данный скрипт.
1. Максимальный онлайн писать не в топик канала а в приветствие по шаблону как в викторине например.
2. После добавления данного скрипта, плагин вылетает с ошибкой (работает на Wine) можешь это тоже как то допилить?
DarkLord (M) писал(а):А реально ли еще и идентификатор чтобы публиковался ...??? Это важно ...
С ID %id% - Не прокатывает (((
Код: Выделить всё
cp.GetUserID(cp.EventUserName)1. Если честно, мне уже надоело для всех писать скрипты, пусть дописывают пользователи по своим нуждам.Hellios писал(а):Прошу автора допилить данный скрипт.
1. Максимальный онлайн писать не в топик канала а в приветствие по шаблону как в викторине например.
2. После добавления данного скрипта, плагин вылетает с ошибкой (работает на Wine) можешь это тоже как то допилить?
Вот в этом и загвостка, как можно указать просто что бы бот снимал любой бан по определённому IP или ID не зависимо от ID нарушения? Ну как бы диапазон сделать нельзя?CrazyVirus писал(а):Данное действие есть в скриптах. Не в скриптах делать не было смысла, т.к. для снятия нужен ID ограничения.
Interact писал(а):Вот в этом и загвостка, как можно указать просто что бы бот снимал любой бан по определённому IP или ID не зависимо от ID нарушения? Ну как бы диапазон сделать нельзя?CrazyVirus писал(а):Данное действие есть в скриптах. Не в скриптах делать не было смысла, т.к. для снятия нужен ID ограничения.
Код: Выделить всё
cp.DelRestriction "", "", cp.EventIDПривязать вход в канал(ы) к событию подключения виртуального пользователя (или к чему-либо еще).Interact писал(а):Как добавлять виртуального пользователя в каналы? я его приглашаю он не заходит, и возможно ли сделать что бы он заходил во все каналы чата не зависимо от того скрыты они или нет, т.е. создали канал и бот сразу туда заходит??
Спасибо.Interact писал(а):CrazyVirus ты чудо))) и твой плагин чудо)
Код: Выделить всё
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Скопировать, нажать в плагине кнопку "Вставить", добавить событие, добавить в него действие.Interact писал(а):Я всё понял, во всём разобрался кроме 1, я вот это никак не пойму, куда добавлять и принцип работы..
Так напиши...leonbratsk писал(а):Зачем такие усложнения? Легче будет отдельный плагин написать.Hellios писал(а): Прошу автора допилить данный скрипт.
1. Максимальный онлайн писать не в топик канала а в приветствие по шаблону как в викторине например.
2. После добавления данного скрипта, плагин вылетает с ошибкой (работает на Wine) можешь это тоже как то допилить?