Здравствуйте, гость ( Вход | Регистрация )
Дата поста: | В теме: | За сообщение: | Спасибо сказали: | ||
---|---|---|---|---|---|
4.8.2009, 1:33 |
нужен скрипт |
Код function UserConnected(tUser) local Share = Core.GetUserValue(tUser, 16) or 0 Core.SendToUser(tUser,"<"..SetMan.GetString(21).."> Добро пожаловать на хаб\r\n\r\n\tВаш ник: "..tUser.sNick.."\r\n\tIp-адрес: "..tUser.sIP.."\r\n\tВаш профиль: "..ProfMan.GetProfile(tUser.iProfile).sProfileName.." (№ "..tUser.iProfile..")\r\n\tВаша шара: "..Share.." байт") end OpConnected = UserConnected RegConnected = UserConnected шара в байтах, чтобы перевести в нормальный вид нужно воспользоваться функцией из этого раздела http://mydc.ru/topic334.html там их несколько выбери сам)))) |
skonda | ||
16.6.2009, 18:52 |
Txt_manager API2 | Скрипт управления текстовыми файлами |
Ну почему сразу "хрен с ней"! С таким подходом ничего не добьешься! В первом приближении выглядит примерно так .. хотя я думаю есть более оптимальное решение. CODE sBot = SetMan.GetString(21) -- Имя бота tProfiles = { -- Разрешенные профили [0] = 1, } function ChatArrival(tUser,sData) local sData = sData:sub(1,-2) local _,_,sCmd = sData:find"%b<>%s+(%S+)" if sCmd == "!setmotd" then local _,_,sMsg = sData:find"%b<>%s+%S+%s+(.*)" if sMsg then if tProfiles and tProfiles[tUser.iProfile] == 1 then SetMan.SetMOTD(sMsg) Core.SendToUser(tUser,"<"..sBot.."> Сообщение дня успешно изменено!") else Core.SendToUser(tUser,"<"..sBot.."> Ошибка! У вас нет прав на использование данной команды!") end else Core.SendToUser(tUser,"<"..sBot.."> Ошибка! Вы не ввели текст сообщения дня!") end end return true end |
Nissan_GT | ||
16.6.2009, 12:42 |
Релизы с phpbb3 форума/трекера.. |
У тебя не стоит библиотека MySQL. Скачай Отсюда и закинь в одну из этих папок |
Caratel | ||
15.6.2009, 22:11 |
Motd |
CODE sPath1 = Core.GetPtokaXPath().."texts/Motd1.txt" sPath2 = Core.GetPtokaXPath().."texts/Motd2.txt" sPath3 = Core.GetPtokaXPath().."texts/Motd3.txt" function UserConnected(tUser) -- для незарегистрированных if GetFile(sPath1) then Core.SendToUser(tUser,GetFile(sPath1)) end end function RegConnected(tUser) -- для зарегистрированных if GetFile(sPath2) then Core.SendToUser(tUser,GetFile(sPath2)) end end function OpConnected(tUser) -- для операторов if GetFile(sPath3) then Core.SendToUser(tUser,GetFile(sPath3)) end end function GetFile(file) local f = io.open(file, "r") local message = f:read("*all") f:close() return message end что-то типо того должно быть |
Goblin | ||
15.6.2009, 19:55 |
Motd |
Код function [b]UserConnected[/b](tUser) -- для незарегистрированных Core.SendToUser(tUser,"Текст") end function [b]RegConnected[/b](tUser) -- для зарегистрированных Core.SendToUser(tUser,"Текст") end function [b]OpConnected[/b](tUser) -- для операторов Core.SendToUser(tUser,"Текст") end |
Артём | ||
14.6.2009, 12:38 |
Релизы с phpbb3 форума/трекера.. |
Юзайте [attachment=2674:ppkBB3.lua] |
serrrios, valdis73 | ||
3.6.2009, 18:37 |
Lua Api Функции Hex Хаба Описание функций |
Делаю тему закрытой. Переодически будет обновляться. Помощь в переводе или замечания в личку. 1. События OnLoad() and OnUnload() - Выполняется при загрузке/выгрузке скрипта. OnError(sErrorMessage) - Выполняется при обнаружении в скрипте ошибки. sErrorMessage - текст ошибки. OnUserJoined() and OnUserParts() - Выполняется при входе пользователя на хаб. OnPmToBot(iBotId, iUserId, sData) - Выполняется при получении зарегистрированным ботом приватного сообщения. iBotId - идентификатор бота. iUserId - идентификатор пользователя. sData - текст сообщения. OnTrigger(iTriggerId, iUserId, bIsPm, sParameters) - Выполняется при использовании зарегистрированного триггера. iTriggerID - идентификатор триггера. iUserId - идентификатор пользователя. bIsPm - личка/глав. Чат. sParameters - Параметры триггера. OnCommand(iUserId, sData) - Выполняется при поступлении команды (аля $ConnectToMe, $Search, итд) iUserId - идентификатор пользователя. sData - текст команды. OnUnknownCommand(iUserId, sData) - Выполняется при поступлении неизвестной хабу команды. iUserId - идентификатор пользователя. sData - текст команды. OnSaveSettings() - Выполняется при сохранении настроек через GUI либо с использованием триггера. OnNickChange(iUserId, sOldNick, sNewNick) - Выполняется при смене ника. iUserId - идентификатор пользователя. sOldNick - старый ник. sNewNick - новый ник. OnChatMessage(iUserId, sData) - Выполняется при отправке пользователем сообщения в чат. iUserId - идентификатор пользователя. sData - текст сообщения. OnPublicMessage(iUserId, sData) - Выполняется при вызове плагином или скриптом Hex.Broadcast() iUserId - идентификатор пользователя. sData - текст сообщения. 2. Таблица Hex Hex.Broadcast(sData) - Отправляет всем подключенным пользователям сообщение. sData - текст сообщения. Примечание: Сообщение содержащие команды ($ConnectToMe, $RevConnectTome, $To:) не будет отправлено. Hex.OpchatMessage(sData) - Отправляет сообщение в ОпЧат. sData - текст сообщения. Hex.UserCount() - Возвращает количество подключенных пользователей. Hex.GetTopic() - Возвращает текущий топик. Hex.SetTopic(sTopic) - Устанавливает новый топик. sTopic - содержимое топика. Hex.GetMOTD() - Возвращает текущее сообщение дня. Hex.SetMOTD(sMotd) - Устанавливает новое сообщение дня. sMotd - содержимое сообщения дня. Hex._GetVersion() - Возвращает версию Hex хаба. Hex.GetScriptsFolder() - Возвращает путь до папки со скриптами. 3. Класс Bot Bot:Register(sNick) - Регистрирует бота на хабе. sNick - ник бота. Bot:Unregister() - Удаляет зарегистрированного бота. sNick - ник бота. Bot:GetBotId() - Возвращает идентификатор зарегистрированнго бота. Bot:GetNick() - Возвращает ник зарегистрированного бота. 4. Класс HelpString Hex.HelpString(iSection, sLanguage) - Возвращает объект типа HelpString. iSection - 0 = Информация хаба, 1 = Команды сообщений, 2 = Команды оператора, 3 = reserved, 4 = Управление профилем, 5 = DC++ команды, 6 = Экстра sLanguage - идентификатор языка ("RU", "EN", "UK" итд) HelpString:SetString(sHelpString) - Функция добавляет или изменяет предыдущую строку в меню хаба (!help) sHelpString - сообщение которое будет помещено в !help. 4. Класс User User:SendData(sData) - Отсылает пользователю сообщение в гл. чат. sData - Текст сообщения.Присутствие "|"(pipe) в коце сообщения обязательно! Иначе конечный пользователь не увидит сообщения. User:Disconnect() - Отключает пользователя от хаба. User:GetNick() - Возвращает ник пользователя. Если пользователь себя переименовал, используйте User:GetClientNick() User:GetClientNick() - Возвращает ник пользователя установленного в клиенте. User:GetIP() - Возвращает ip-адрес пользователя как 32-битный номер. User:GetIPString() - Возвращает ip-адрес пользователя в привычном виде (IPv4) User:GetOpStatus() - Возвращает статус пользователя на хабе (0 - обычный пользователь, 1 - оператор, 2 скрытый оператор) User:SetOpStatus(iOpStatus) - Устанавливает статус пользователя на хабе. iOpStatus - 0 - обычный пользователь, 1 - оператор, 2 скрытый оператор User:GetUserID() - Возвращает идентификатор пользователя. User:GetAccountID() - Возвращает идентификатор аккаунта пользователя или 0 если пользователь незарегистрирован. User:GetProfileID() - Возвращает идентификатор профиля пользователя или -1 если пользователь незарегистрирован. User:GetLanguage() - Возвращает выбранный пользователем язык хаба. User:SetLanguage(sLanguage) - Устанавливает пользователю указаный язык хаба. sLanguage - идентификатор языка ("RU", "EN", "UK" итд) User:GetMode() - Функция возвращает имя фильтра чата установленного на пользователе. User:SetMode(sMode) - Функция устанавливает имя фильтра чата на пользователе. sMode - Имя фильтра чата User:GetISPName() - Возвращает имя ISP (Internet Service Provider - организация, предоставляющая доступ в интернет конечным пользователям - организациям и частным лицам.) User:GetAccessLevel() - Возвращает уровень доступа пользователя. User:SetAccessLevel(iAccess) - Устанавливает уровень доступа пользователя. iAccess - уровень доступа (от 0 до 49999) User:BanIP(sReason, iTime) - Функция банит ip-адрес, но не отключает пользователя от хаба. sReason - причина бана. Обязательно указывать тип бана (_ban0_, _ban1_, _ban2) iTime - время бана. 0 - "вечный" бан. User:BanNick(sReason, iTime) - Функция банит ник, но не отключает пользователя от хаба. sReason - причина бана. Обязательно указывать тип бана (_ban0_, _ban1_, _ban2) iTime - время бана. 0 - "вечный" бан. User:BanNickIP(sReason, iTime)(sReason, iTime) - Функция банит ник и ip-адрес, но не отключает пользователя от хаба. sReason - причина бана. Обязательно указывать тип бана (_ban0_, _ban1_, _ban2) iTime - время бана. 0 - "вечный" бан. User:GetFullMyINFO() - Возвращает полную строку $MyINFO пользователя. User:GetINFO() - Возвращает строку инфо с ограничениями. User:SetINFO(sMyINFO) - Изменяет строку $MyINFO, но не отправляет пользователям. Измененную строку получат только новые пользователи. sMyINFO - строка $MyINFO 5. Класс UserCommand Object:SetUserCommandString(sUserCommand) - Устанавливает меню, которое будет отослано при входе на хаб. sUserCommand - Команда $UserCommand (максимально 512 символов) 6. Класс Trigger Trigger:SetTrigger(sTrigger) - Устанавливает имя триггера. sTrigger - Имя триггера (максимально 40 символов) Trigger:GetTriggerId() - Возвращает идентификатор триггера. 7. Класс Profile Profile:GetProfileName() - Возвращает имя профиля. Profile:Next() - Функция получает следущий профиль. Если следущего профиля не существует или если вы не инициализировали этот объект со значением -1 то функция вернет false, в остальных случаях true. 8. Класс Timer Timer:Start(iDueTime, iPeriod, sFunctionName) - Функция запускает таймер. iDueTime = время до первого срабатываения таймера (минимально 1000 ms) iPeriod = интервал таймера (минимально 250 ms) sFunctionName = название вызываемой функции при срабатывании таймера. Timer:Stop() - Функция останавливает таймер. Timer:GetId() - Функция возвращает идентификатор таймера или 0 если таймер не активен. |
Invisible, Maximum, JlёJluK, Saymon21 | ||
25.1.2009, 16:10 |
Компиляция Клиента Strongdc & Flylinkdc StrongDC++ 221 |
Для компиляции необходимо: 1. Visual Studio 2008 Team Suite 2. STL ( 3. WTL ( 4. Исходники StrongDC++ 221 Установки и конфигурирование: 1. Устанавливаем Visual Studio 2008, распаковываем STL и WTL (допустим в папку с Visual Studio 2008) 2. Запускаем install.bat в папке STL (предварительно откройте текст батника проверьте правильность путей!) 3. Откройте исходники StrongDc++ папку windows и найдите файл natupnp.h, затем скопируйте его в Visual Studio 2008\VC\include 4. Запускаем Visual Studio 2008. Открываем Сервис->Параметры->Проекты и Решения->Каталоги VC++ (Tools->Options->Projects and solutions->VC++ Directories) находим справа сверху выпадающее меню (Показать каталоги для) выбираем включаемые файлы (include files) добавляем пути до Visual Studio 2008\STL\stlport\ Visual Studio 2008\WTL затем файлы библиотек (Library files) Visual Studio 2008\STL\lib Компиляция: Открываем в исходниках стронга StrongDC.sln Построение->Построить решение (Build->Build Solution) Компиляция FlyLinkDC++ Процесс одинаков. Единственное условия для новых версий как FlyLink'a так и Strong'a нужны новые версии STL ( Батник для сборки STL Примечание: FlyLinkDC++ Ревизия (377) 8.3.2009 [+] отказ от STLport: упрощается сборка клиента из исходного кода (для компиляции необходим VC++ 2008 SP1 с поддержкой tr1: |
Charodei1, мамин_парень | ||
17.1.2009, 21:34 |
Mysql Unix | База данных |
Установка mysql на PtokaX 0.4.1.1 под unix описана здесь - http://mydc.ru/topic597.html После установки проверяем работоспособность, пишем скрипт: CODE require "luasql.mysql" mysql = assert(luasql.mysql()) db_name = "" -- имя бд db_host = "" -- хост db_user = "" -- пользователь db_pass = "" -- пароль con = assert(mysql:connect(db_name, db_user, db_pass, db_host)) cur = assert(con:execute("SELECT version()")) Core.SendToAll("<mysql> MYSQL driver version is: "..luasql._MYSQLVERSION) Core.SendToAll("<mysql> "..luasql._COPYRIGHT) Core.SendToAll("<mysql> "..luasql._DESCRIPTION) Core.SendToAll("<mysql> "..luasql._VERSION) con:close() mysql:close() Если все ок, то увидите примерно следущее: Код <mysql> MYSQL driver version is: 5.0.45 <mysql> Copyright © 2003-2007 Kepler Project <mysql> LuaSQL is a simple interface from Lua to a DBMS <mysql> LuaSQL 2.1.1 Небольшой пример работы с mysql в lua. CODE require "luasql.mysql" mysql = assert(luasql.mysql()) db_name = "joomla" db_host = "localhost" db_user = "root" db_pass = "ххххххххххххх" con = assert(mysql:connect(db_name, db_user, db_pass, db_host)) function ChatArrival(tUser,sData) local _,_,sCmd = sData:find"%b<>%s+(%S+)|" if sCmd == "+1" then for id, name, nick in rows(con, "SELECT * FROM `jos_users`") do Core.SendToAll("ID -> "..id.."\nNAME -> "..name.."\nNICK -> "..nick) end return true end end function rows (connection, sql_statement) local cursor = assert (connection:execute (sql_statement)) return function () return cursor:fetch() end end con:close() mysql:close() Выше в примере я подключался к базе данных бесплатной CMS Joomla и выводил Id, Имя пользователя и его Ник. Вся необходимая информация о проекте LuaSQL - |
Kingston | ||
15.7.2008, 1:23 |
Report API1, API2 | Сообщение Администратору об ошибке |
Название скрипта: Report Версия скрипта: - v1.1 Версия API: API 1,API 2 (универсальный) Автор: Jaska Описание: • Основная функция - отправлять отчеты об ошибках • Отчеты отправляются пользователями. Мастера будут уведомляться о новых отчетах до тех пор, пока не прочитают их. • Все действия логируются и записываются в папку Logs (По аналогии с IpGag) • Если мастер на хабе то отчет отправляется сразу, если нет то сохраняется в таблице и отправляется потом. Ссылка: [attachment=272:Report_v1.1.zip] |
Saymon21, shur49, zeusby | ||
14.7.2008, 19:14 |
Warnings API1, API2 | Скрипт предупреждений |
Название скрипта: Warnings Версия скрипта: v1.4 Версия API: API 2 Автор: Jaska Описание:
[attachment=4073:Warnings_v1.4.lua] |
Andrey_SHANDERA, KT315, Saymon21, Тёмич, STIVAN, shur49, AfLc, Unique | ||
9.7.2008, 20:26 |
Вопросы Разработчикам Скриптов вопросы по скриптам (мелкие вопросы) |
Чем тебе помочь друг мой? Я конечо не имею таких обширных знаний как Nickolya но кое что могу подсказать =) все-таки его ученик. |
мамин_парень | ||
6.6.2008, 20:00 |
Вопросы По Hexhub Помощь новичку |
Проблемы и их решения. Проблема: На хабе вместо русских букв в чат отправляются сообщения на русском транслитом Решение: Запускаем HexHub. Заходим HUB(Apperance) и там внизу ставим галочку Enable cyrillic character set Проблема: Как установить плагин LUA. Решение: Обычно с плагином идет инструкция по его установке на англицком языке. Но если вы абсолютно не знаете английский либо нет инструкции тогда читайте дальше. Плагин который выложен на форуме устанавливается путем копирования содержимого из папки bin в папку Plugins (а вообще говоря приложена инструкция так что читайте сами). После копирования откройте HexHub -> Extra(Plugins) -> Re-init. Так же появится в ветки Extra Hex Script 1.1.0.2. Чем хорош плагин - наличием отладчика в виде командной строки а так же возможностью самому задавать директории скриптов Проблема: Как разрешить пользователям регистрироваться самостоятельно? Решение: Profiles > выбираем профиль (по-умолчанию Default для пользователей), нажимаем ... и ставим галочку напротив Can set his password Проблема: Как сделать чтобы обычные юзеры могли видеть меню хаба Решение: Заходим в profiles, выбираем нужный нам профиль (обычный юзер - Default) нажимаем кнопку (...) и ставим галочку возле Send raw commands and user menus. |
|||
6.6.2008, 18:30 |
Hexhub Описание |
HexHub Описание: HexHub - это серверное программное обеспечение (хаб) для организации пиринговых файлообменных сетей Direct Connect (DC++), с открытым исходным кодом. Имеет встроенную защиту против DDoS атак, anti-spam защиту и "фильтр контента". Поддерживает скрипты на языке LUA. Плюсы: + Превосходный встроенный антиспам. + Стабильная работа на больших хабах + Поддержка плагинов и lua скриптов(за счет lua плагина). + Встроенный Firewall, который определяет сканирование портов, а также атаки типа: syn,udp,icmp. + Практически всеми настройками можно управлять из дц-клиента с помощью команд. + Веб поддержка. Минусы: - Отсутствие большого количества плагинов/скриптов вследствии малораспространённости. - Не определяет IP зашедших пользователей. Дистрибутив: [attachment=6736:HeXHub_5.09c.zip] - Английская версия HeXHub [attachment=2593:_RU_HeXH...wall1.09.rar] - Русская версия HeXHub (официальный перевод, переведён by Maximum) Плагин LUA: Плагин Hexscript можно найти тут. Установка плагина: Разместить содержимое папки bin в папку Plugins затем запустить HexHub -> Раздел Extra(Plugins) -> Rescan. Скрипты помещать в /hexhub/plugins/scripts (если папки scripts нет, то её нужно создать). Ссылки: - - |
Nickolya, FallenAngel, Drakula, Saymon21, @_JuNiOr_@, shur49, мамин_парень, sergius_s | ||
4.6.2008, 20:08 |
Tophubber's API1, API2 | Топ юзеров по времени онлайн на хабе |
Название скрипта: TopHubbers Версия скрипта: API 1 - 2.01 , API 2 - 2.9a Версия API: API 1 и 2 Автор: jiten Перевод: NRJ Перевод под API 2: Jaska Описание скрипта: Топ юзеров по времени онлайн на хабе. |
Pro009, ProGeTTo | ||
4.6.2008, 20:04 |
VIP-кик API2 | Голосование за кик юзера |
Вот вам и VIP-kick переработанный Nickolya Цитата А вот и первая пробная версия вип-кика на мой манер. Скачиваем, пробуем (тестировал только у себя) и отписываем свои впечатления! Функционал скрипта: - выбор профилей, которые могут начать голосование - выбор профилей, которые участвуют в голосовании - выбор профилей, над которыми может быть проведено голосование - определение, сколько очков добавит 1 голос определенного профиля - определение, сколько очков надо для кика определенного профиля - выставление времени голосования - кик юзера при следующем посещении (по ip) если он покинул хаб при успешном исходе голосования - очистка ip, которые не были кикнуты по истечению определенного срока - менюшка: - команда кика - команда просмотра активных голосований - команда помощи Скрипт писал за пару часов сегодня с утра, так что не обессутьте. В процессе реализации появилась еще идея замены обычного кика временем, которое определялось бы ценой 1 очка по истечению времени голосования (сейчас по достижению нужного количества очков голосование прекращается и юзер кикается). Если идея понравилась - отписывайте, сделаю попозже. |
Karumo, _Герой_, ImDim, nunycbka, zeusby | ||
3.6.2008, 12:26 |
Временные Операторы API2 | Модерирование по графику |
В самой PtokaX есть такая штука как TempOp - временный оператор или оператор на 1 сессию(после перезахода вы становитесь тем же кем и были раньше). Думаю все с этой штукой знакомы. Мой скрипт тоже создан для создавания TempOp'ов, только не на сессию а на определенный часовой диапазон. Итак функции скрипта: 1) Возможность ставить оператора как шаблонно (утро, день, вечер, ночь) так и самому задавать часы модерирования 2) Бот автоматически перерегистрирует отмеченного пользователя когда придет время модерирования, по окончании так же проходит обратная процедура регистрации 3) Возможность просмотра когда кто модерирует Вы спросите зачем же этот скрипт? Не проще ли назначить оператора раз и навсегда? Отвечу вам - не проще. Дело в том что власть, какова бы они не была, виртуальна или реальна - она портит людей, я так говорю не потому что мне какой-то дядя вася или тетя мотя сказали, все вышесказанное - мои наблюдения, я сам в этом убедился. С этим скриптом ваш оператор никогда не "зазвездиться" ведь скрипт предпологает что только лишь небольшой кусочек времени этот человек будет модерировать - все остальное время он "простой смертный". Вообще говоря затрагивая тему модерирования скажу что быть отвественным оператором, выполняющим все свои обязанности - штука очень не простая. Когда то и я был опером на хабе, куда заходили не покачать файлы с локала а просто поболтать и я знаю каково это одним глазом смотреть за чатом другим отвечать в личках на различные технические вопросы. Скрипт под новый API, проверен, но если же возникнут какие-либо недочеты - сообщите, исправимся ;) так же буду рад услышать предложения по модернизации сего чуда Рабочая версия, выведенная в этой теме: [attachment=4225:TimeOpBot_API2__1_.lua] Старая нерабочая версия [attachment=38:_NewAPI_TempOp__s.zip] |
Тёмич | ||
3.6.2008, 10:39 |
Профили Пользователей API2 | Анкеты пользователей |
Ничего революционного не придумал. Просто написил скрипт анкет с нуля каким бы я хотел его видеть, ныне существующие версии меня немного не устраивают. Скрипт протестировал выкладываю под новый API, но вначала немного опишу возможности, итак: 1) Основная функция - возможность создавать анкету с параметрами как Имя Пол Фамили Увлечения итд 2) Напоминание о том что анкета не создана (при каждом реконнекте будет долбить в личку НО! успокою вас, господа которые не желают создавать свою анкету, вы можете отказаться о создании анкеты и тогда бот вас больше никогда не потревожит) 3*) Рейтинг по заполненности. Чем больше заполните анкету тем больше рейтинг! 4*) Рейтинг по профилю. Возможность оставлять "респекты" пользователям. Чем больше респектов тем больше рейтинг профиля. 5*) Возможность оставлять комментарии по поводу анкеты. 6) Администраторы могут устанавливать параметры пользователям а так же удалять полностью анкеты. * Примечание. Все эти параметры будут видны в профиле и расположены чуть ниже основных параметров. [attachment=52:_NewAPI_...rAccount.zip] |
Al-j®, Naum_Off, доктор ливси | ||
2.6.2008, 21:58 |
Чат-бот API2 | Полезная штучка |
Chat Bot [ by Jaska ] [ LUA 5.1.3 ] [ API 2 ] C помощью бота операторы могут установить ограничение на количество отправленных сообщений за определенный интервал. Проще говоря облегчаем работу антифлуда. Уверен на каждом хабе есть заядлые флудеры. Именно таким и надо ставить ограничение на отправку сообщений. Все очень просто. Щелкаем на нике, задаем частоту отправки сообщений и вуаля) этот человек уже не сможет флудить. Скрипт написан под новую птоку. Суть скрипта: Установка ограничения на отправку сообщений в общий чат (Интервалы между сообщениями) Функционал скрипта: sBot = SetMan.GetHubBot().sNick -- Имя бота ------------------------------------------------------------------------------------------------- sMenu = "Ограничение общения" -- Менюшка ------------------------------------------------------------------------------------------------- sStartchatblocker = "startchatblocker" -- Поставить ограничение sStopchatblocker = "stopchatblocker" -- Снять ограничение sSeechatblocker = "seechatblocker" -- Посмотреть ограниченных ------------------------------------------------------------------------------------------------- tProfiles = { [0] = 1, [1] = 1, [2] = 1, -- Профили, которые могут [3] = 1, [4] = 1, [5] = 1, -- ставить ограничения [6] = 1, } ------------------------------------------------------------------------------------------------- sMainPath = "ChatBot\\" -- Папка с таблицей и главным скриптом sMainScript = sMainPath.."MainScript.lua" -- Путь к главному скрипту sWayToFile = sMainPath.."tBadUser.tbl" -- Путь к таблице с огранич. пользователями --------------------------------------------------------------------------------------------------------------------------------- Ссылка на скрипт: [attachment=41:_NewAPI_ChatBot.zip] |
FallenAngel, Nissan_GT, shur49, мамин_парень, Unique | ||
2.6.2008, 21:04 |
RegBot API1, API2 | Скрипт регистрации юзеров на хабе |
Вот выкладываю переделку RegBot'a от NRJ. Скрипт написан под новую птоку. Вроде всю поюзал должно работать если че не так - пишите) исправимся Итак что же нового? 1) Добавил ip-защиту (Возможно изначальная регистрация с ip защитой аккуанта (После регистрации создается таблица типа Nick=Ip и при каждом коннекте проверяется соответствие. Если не подходит - бан навечно)) 2) Добавил ограничение на кол-во регистраций (Почти на всех хабах такая проблема. Нарегистрируют себе аккуантов а удалять не собираются. Из-за этого бд становится похоже на что-что гм ... без мата не скажешь ) 3) Добавил просмотр зарегестрированных аккуантов (В любой момент можно посмотреть под каким ником и с какими паролями ты зарегестрирован на этом ip. Для операторов + в просмотре статистики по ip.) 4) Добавил возможность запрещать регистрацию "нежелательным юзерам" (Функция для Операторов. Щелкаем на ник выбираем пункт в меню и этот человек не сможет зарегистрироваться уже никогда) [attachment=42:_NewAPI_RegBot.zip] |
valdis73, Streter, andromed, zeusby | ||
|
Сейчас: 23.11.2024, 1:26 |