myDC.ru

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

 

> Тексты, версия 2.0

Теги
Accelerator
сообщение 5.1.2010, 14:18
Сообщение #21


Developer
******

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




Название: Тексты
Версия: 2.0
Автор: STRELOK, Setuper(fixed)
lua плагин: 1.6
Версия хаба: 2.0.5
Описание: выводит содержимое текстовых файлов по команде.
Примечания:
Тексты лежат в папке texts
Изменения
    Версия 2.0:
  • Добавил дополнительные возможности, такие как: Получение названия хаба, его портов, Макс. и мин. длинна ника

    Версия 1.4:
  • Вновь исправлена ошибка в регулярном выражении. Команда /me не пропукалась в чат © STRELOK

    Версия 1.3:
  • Исправлен путь до папки texts в связи с выходом новой версии RusHub'а © STRELOK

    Версия 1.2:
  • Исправлена ошибка в регулярном выражении. (В чат не пропускались некоторые смайлы) (с) STRELOK

    Версия 1.1:
  • Функция LoadText перенесена в модули © STRELOK
  • Теперь скрипт ищит текстовый файл по любой введёной команде, если текстовый файл есть, его содержимое отобразится, если его нет, то функция возвращает nil © Serx
Для работы скрипта необходимо скачать модуль files здесь
Прикрепленные файлы
Прикрепленный файл  Texts.rar ( 2.07 килобайт ) Кол-во скачиваний: 78
 
Go to the top of the page
+Quote Post
2 страниц V  < 1 2  
Начать новую тему
Ответов
Setuper
сообщение 13.5.2011, 23:26
Сообщение #22


RusHub team lead
**************

Группа: Модераторы
Сообщений: 4 030
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1708 раз




Код
function OnChat(UID, sData)
    local sCmd = sData:match"%b<>%s+[!+*](%S+)"
    if sCmd then
        local sText = Files.LoadText(sPath..sCmd..".txt")
        if sText then
            sText = sText:gsub("%[(%S+)%]", {
                HubName = Core.GetConfig("sHubName"),
                NickMixLen = Core.GetConfig("iMinNickLen"),
                NickMaxLen = Core.GetConfig("iMaxNickLen"),
                Port = Core.GetConfig("iMainPort"),
                SubPorts = Core.GetConfig("sSubPorts"),
                Language = Core.GetConfig("sLocale"),
                HubBot = Core.GetConfig("sHubBot"),
            })
            Core.SendToUser(UID, sText, sBot, sBot)
            return true
        end
    end    
end


Спасибо сказали:
Go to the top of the page
+Quote Post
CrazyKiller
сообщение 13.5.2011, 23:30
Сообщение #23


Продвинутый участник
****

Группа: Пользователи
Сообщений: 189
Регистрация: 20.4.2009
Пользователь №: 3 121
Спасибо сказали: 12 раз




Заменил, спасибо, пока работает !

Данный мой КОД!

Код Text
local sBot = Core.GetConfig("sHubBot")
local sPath = Core.sScriptsDir.."texts/"
local sMenu = ""
require "files"
function OnChat(UID, sData)
local sCmd = sData:match"%b<>%s+[!+*](%S+)"
if sCmd then
local sText = Files.LoadText(sPath..sCmd..".txt")
if sText then
sText = sText:gsub("%[(%S+)%]", {
HubName = Core.GetConfig("sHubName"),
NickMixLen = Core.GetConfig("iMinNickLen"),
NickMaxLen = Core.GetConfig("iMaxNickLen"),
Port = Core.GetConfig("iMainPort"),
SubPorts = Core.GetConfig("sSubPorts"),
Language = Core.GetConfig("sLocale"),
HubBot = Core.GetConfig("sHubBot"),
})
Core.SendToUser(UID, sText, sBot, sBot)
return true
end
end
end

function ContextMenu(UID)
Core.SendToUser(UID, sMenu)
Core.SendToUser(UID,"$UserCommand 1 3 .::Главное Меню::.\\.::Правила::.$<%[mynick]> !rules |")
Core.SendToUser(UID,"$UserCommand 1 3 .::Главное Меню::.\\.::Друзья Хаба::.$<%[mynick]> !hubs |")
Core.SendToUser(UID,"$UserCommand 1 3 .::Главное Меню::.\\.::Soft От Хаба::.$<%[mynick]> !sb |")
Core.SendToUser(UID,"$UserCommand 1 3 .::Главное Меню::.\\.::FAQ::.$<%[mynick]> !faq |")
Core.SendToUser(UID,"$UserCommand 1 3 .::Главное Меню::.\\.::Ресурсы Сети Triolan::.$<%[mynick]> !res |")
Core.SendToUser(UID,"$UserCommand 1 3 .::Главное Меню::.\\.::Администрация Хаба::.$<%[mynick]> !priv |")
end



Думаю с данным Кодом про работает долго ! big_smile.gif
Go to the top of the page
+Quote Post
Dimon21
сообщение 8.6.2011, 10:45
Сообщение #24


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

Группа: Пользователи
Сообщений: 65
Регистрация: 23.7.2009
Пользователь №: 3 945
Спасибо сказали: 7 раз




STRELOK у меня ежечастно вылетает такая ошибка RusHub 2.3.2/scripts/texts.lua:26: attempt to index a nil value.
Go to the top of the page
+Quote Post
Accelerator
сообщение 8.6.2011, 11:10
Сообщение #25


Developer
******

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




Ссылка на фикс выше.

Аттач перезалил с исправленной версией (спасибо Setuper)


Спасибо сказали:
Go to the top of the page
+Quote Post
Dimon21
сообщение 9.6.2011, 3:48
Сообщение #26


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

Группа: Пользователи
Сообщений: 65
Регистрация: 23.7.2009
Пользователь №: 3 945
Спасибо сказали: 7 раз




Надо сменить HubName = Core.GetConfig("sHubName") на HubName = Config.sHubBot
Go to the top of the page
+Quote Post
Angel_D
сообщение 13.9.2011, 8:44
Сообщение #27


Продвинутый участник
****

Группа: Пользователи
Сообщений: 128
Регистрация: 12.10.2008
Пользователь №: 781
Спасибо сказали: 2 раза




Опять таки - Win RussHub 2.3.6
Цитата
[Tue Sep 13 08:27:23 2011] C:/Program Files/RusHub/scripts/texts.lua:32: warning: function 'GetConfig' was deprecated. Use 'Config[sName]' instead
[Tue Sep 13 08:27:23 2011] C:/Program Files/RusHub/scripts/texts.lua:33: warning: function 'GetConfig' was deprecated. Use 'Config[sName]' instead
[Tue Sep 13 08:27:23 2011] C:/Program Files/RusHub/scripts/texts.lua:34: warning: function 'GetConfig' was deprecated. Use 'Config[sName]' instead
[Tue Sep 13 08:27:23 2011] C:/Program Files/RusHub/scripts/texts.lua:35: warning: function 'GetConfig' was deprecated. Use 'Config[sName]' instead

а так - к работоспособности скрипта нареканий нет. big_smile.gif
Go to the top of the page
+Quote Post
Accelerator
сообщение 13.9.2011, 10:37
Сообщение #28


Developer
******

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




Код
local sBot = Core.GetConfig("sHubBot")

заменить на
Код
local sBot = Config[sHubBot]
Go to the top of the page
+Quote Post
Angel_D
сообщение 13.9.2011, 16:57
Сообщение #29


Продвинутый участник
****

Группа: Пользователи
Сообщений: 128
Регистрация: 12.10.2008
Пользователь №: 781
Спасибо сказали: 2 раза




Цитата
при перезапуске скрипта "texts.lua " произошла ошибка:.../RusHub/scripts/texts.lua:18: bad argument #2 to 'Config' (string expected, got nil)


разобрался.
добавил "ковычки" вокруг sHubBot и заменил остальные Core.GetConfig на Config по тому же шаблону.
спасибо за подсказку
Go to the top of the page
+Quote Post

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

 



RSS Сейчас: 27.6.2022, 12:05