myDC.ru

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

 
2 страниц V  < 1 2  
 Ответить в данную темуНачать новую тему

> Запросы на скрипты
Теги
Lyucyfer
сообщение 12.12.2010, 0:02
Сообщение #21


Абсолютный новичок


Группа: Пользователи
Сообщений: 8
Регистрация: 9.11.2010
Пользователь №: 8 038
Спасибо сказали: 0 раз
Есть скрипт для верли который выдает последовании 10 сообщений в главном чате, можно его переделать так чтобы он выдавал их не в главный чат а в личку и только опам и мастерам?

Раскрывающийся текст

Код
LastTenMessages = {}
NumberOfMessages = 10

_, botname = VH:GetConfig("config", "hub_security")

function VH_OnParsedMsgChat(nick, data)
    
    if (string.find(data, "^[%.%+!]")) then
        -- we start with a command
    else
        nowdate = os.date("%X")
        AddMessage("["..nowdate.."] <"..nick..">"..data..string.format("\n"))
    end
        
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 10) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 10) then
         for i = 1, 19, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[10] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i] -- fixd
        end
        return TempString
    end
end

function VH_OnUserLogin(nick)
    SendMessageToUser(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
    return 1
end

function SendMessageToUser(data, nick, from)
    result, err = VH:SendDataToUser("<"..from.."> "..data.."|", nick)
    return 1
end


Сообщение отредактировал Saymon - 12.12.2010, 0:06
Причина редактирования: Если прикладываешь скрипт в посту, то лучше всего под бб код "кода" и спойлер!
Go to the top of the page
+Quote Post
Артём
сообщение 12.12.2010, 1:22
Сообщение #22


Местный похерист
**********

Группа: Пользователи
Сообщений: 2 242
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 592 раза
Lyucyfer, может так
Код
function VH_OnUserLogin(nick)
    SendMessagePmToOps(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
    return 1
end

function SendMessagePmToOps(data, nick, from)
    result, err = VH:SendDataPmToOps("<"..from.."> "..data.."|", nick)
    return 1
Go to the top of the page
+Quote Post
Vizunchik
сообщение 12.12.2010, 12:23
Сообщение #23


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 387
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 94 раза
Раскрывающийся текст
Код
LastTenMessages = {}
NumberOfMessages = 10

_, botname = VH:GetConfig("config", "hub_security")

function VH_OnParsedMsgChat(nick, data)
    if (string.find(data, "^[%.%+!]")) then
        -- we start with a command
    else
        nowdate = os.date("%X")
        AddMessage("["..nowdate.."] <"..nick..">"..data..string.format("\n"))
    end  
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 10) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 10) then
         for i = 1, 19, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[10] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i] -- fixd
        end
        return TempString
    end
end

function VH_OnUserLogin(nick)
    local class=GetClass(nick)
      if class >= 3 then
    SendMessageToUser(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
      end
    return 1
end

function SendMessageToUser(data, nick, from)
    result, err = VH:SendDataToUser("<"..from.."> "..data.."|", nick)
    return 1
end

function GetClass(nick)
    res, class=VH:GetUserClass(nick)
    if res and class then
        return class
    else
         return false
    end
end


Должно работать


Спасибо сказали:
Lyucyfer
Go to the top of the page
+Quote Post
Lyucyfer
сообщение 12.12.2010, 14:10
Сообщение #24


Абсолютный новичок


Группа: Пользователи
Сообщений: 8
Регистрация: 9.11.2010
Пользователь №: 8 038
Спасибо сказали: 0 раз
Артём Ваш вариант вообще не работает.

Vizunchik А Ваш работает, но шлет в главный чат а не в личку, можете подправит?
Go to the top of the page
+Quote Post
Vizunchik
сообщение 12.12.2010, 15:31
Сообщение #25


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 387
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 94 раза
Раскрывающийся текст
Код
LastTenMessages = {}
NumberOfMessages = 10

_, botname = VH:GetConfig("config", "hub_security")

function VH_OnParsedMsgChat(nick, data)
    if (string.find(data, "^[%.%+!]")) then
        -- we start with a command
    else
        nowdate = os.date("%X")
        AddMessage("["..nowdate.."] <"..nick..">"..data..string.format("\n"))
    end  
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 10) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 10) then
         for i = 1, 19, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[10] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i] -- fixd
        end
        return TempString
    end
end

function VH_OnUserLogin(nick)
    local class=GetClass(nick)
      if class >= 3 then
    --SendMessageToUser(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
    VH:SendDataToUser("$To: "..botname.." From: "..botname.." $<"..botname..">"string.format("Последние 10 сообщений:\n")..GetMessages()"|",botname)
      end
    return 1
end

function SendMessageToUser(data, nick, from)
    result, err = VH:SendDataToUser("<"..from.."> "..data.."|", nick)
    return 1
end

function GetClass(nick)
    res, class=VH:GetUserClass(nick)
    if res and class then
        return class
    else
         return false
    end
end


Пробуй так


Спасибо сказали:
Lyucyfer
Go to the top of the page
+Quote Post
Lyucyfer
сообщение 12.12.2010, 15:50
Сообщение #26


Абсолютный новичок


Группа: Пользователи
Сообщений: 8
Регистрация: 9.11.2010
Пользователь №: 8 038
Спасибо сказали: 0 раз
к сожалению - not found or could not be parsed
Go to the top of the page
+Quote Post
Vizunchik
сообщение 12.12.2010, 15:57
Сообщение #27


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 387
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 94 раза
Код
VH:SendPMToAll(string.format("Последние 10 сообщений:\n")..GetMessages(), botname, 3, 10)

а если так


Спасибо сказали:
Lyucyfer
Go to the top of the page
+Quote Post
Lyucyfer
сообщение 12.12.2010, 16:01
Сообщение #28


Абсолютный новичок


Группа: Пользователи
Сообщений: 8
Регистрация: 9.11.2010
Пользователь №: 8 038
Спасибо сказали: 0 раз
Работает, большое человеческое спасибо !
Go to the top of the page
+Quote Post
Lyucyfer
сообщение 15.12.2010, 13:14
Сообщение #29


Абсолютный новичок


Группа: Пользователи
Сообщений: 8
Регистрация: 9.11.2010
Пользователь №: 8 038
Спасибо сказали: 0 раз
Предесловие -
"Есть скрипт для верли который выдает последнии 20 сообщений", после переделки комрадом Vizunchik стал выводить в личку опам.
проблемка такая - 20 сообщений выводит нормально, но как только увеличиваемый число сообщений допустим 25 выводит одно и тоже сообщение 25 раз подряд. Помогите исправить! и при этом сообщения отсылаются всем опам, каждый раз как заходит новый оп.

Раскрывающийся текст

Код
LastTenMessages = {}
NumberOfMessages = 10

_, botname = VH:GetConfig("config", "hub_security")

function VH_OnParsedMsgChat(nick, data)
    if (string.find(data, "^[%.%+!]")) then
        -- we start with a command
    else
        nowdate = os.date("%X")
        AddMessage("["..nowdate.."] <"..nick..">"..data..string.format("\n"))
    end  
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 20) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 20) then
         for i = 1, 19, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[20] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i] -- fixd
        end
        return TempString
    end
end

function VH_OnUserLogin(nick)
    local class=GetClass(nick)
      if class >= 3 then
    --SendMessageToUser(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
    VH:SendPMToAll(string.format("Последние 22 сообщений:\n")..GetMessages(), botname, 3, 10)
      end
    return 1
end

function SendMessageToUser(data, nick, from)
    result, err = VH:SendDataToUser("<"..from.."> "..data.."|", nick)
    return 1
end

function GetClass(nick)
    res, class=VH:GetUserClass(nick)
    if res and class then
        return class
    else
         return false
    end
end
Go to the top of the page
+Quote Post
YoriK
сообщение 13.2.2011, 19:11
Сообщение #30


Абсолютный новичок


Группа: Пользователи
Сообщений: 3
Регистрация: 8.12.2010
Пользователь №: 8 230
Спасибо сказали: 0 раз
Нужен скрипт GuestSilence
Все что делает скрипт так это блокирует возможность гостям писать сообщения в общий чат в течение определенного времени, например, 5-10 минут после входа.
Если скрипт будет написан с нуля готов оплатить работу. Если такой скрипт существует и дадите на него ссылку - вышлю вознаграждение.

Verli последний, Lua тоже.
Go to the top of the page
+Quote Post
Vizunchik
сообщение 14.2.2011, 17:02
Сообщение #31


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 387
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 94 раза
сейчас выложу скрипт в раздел скрипты
Go to the top of the page
+Quote Post
Jarkrait
сообщение 23.6.2011, 18:49
Сообщение #32


Абсолютный новичок


Группа: Пользователи
Сообщений: 5
Регистрация: 16.5.2011
Пользователь №: 9 254
Спасибо сказали: 0 раз
Доброго времени суток.
Возможно ли переделать ЮзерБар http://mydc.ru/topic2877.html?hl=%FE%E7%E5%F0%E1%E0%F0 под verlihub?
Go to the top of the page
+Quote Post
Alexey
сообщение 24.6.2011, 5:10
Сообщение #33


6 квадратиков
******

Группа: Модераторы
Сообщений: 525
Регистрация: 21.1.2009
Пользователь №: 1 895
Спасибо сказали: 137 раз
Если очень захотеть — можно в космос полететь.
Go to the top of the page
+Quote Post
AKR
сообщение 12.5.2012, 11:45
Сообщение #34


Абсолютный новичок


Группа: Пользователи
Сообщений: 1
Регистрация: 12.5.2012
Из: Россия
Пользователь №: 10 555
Спасибо сказали: 0 раз
Ребята помогите решить задачку.
Встречалась мне на VerliHub`е такая фишка.
Командой +history N (где N это количество сообщений), в главный чат любой пользователь получал в ответ последние N сообщений.

Так вот теперь вопрос. Как это сделать?
Если скрипт то какой, если не скрипт таки то как?

Заранее огромное спасибо.
ЗЫ: Обыскал всё что мог, где только не смотрел, ни на одном форуме именно такое не нашёл.

Иноф:
VerliHub version - 0.9.8e-r2
SystemVersion - Linux version 2.6.32-38-generic (buildd@zirconium) gcc version 4.4.3 (Ubuntu 4.4.3-4ubuntu5)

Вопрос отменяется: Дело было в ледоколе, поставил настроил и усё.
Go to the top of the page
+Quote Post
« Предыдущая тема · VerliHub · Следующая тема »
 

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

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
No new Topic has attachmentsКак включать скрипты в PtokaX 0.4.1.1
 21 pleomax 6 013 13.5.2012, 23:44 Посл. сообщение: Slavich
No New Posts СКРИПТЫ
 3 alex2014 371 26.1.2012, 18:23 Посл. сообщение: Ameet
No New Posts Запросы новостей с сайта
 1 Dani_Filth 374 16.11.2011, 20:08 Посл. сообщение: Damaks
No New Posts Как отслеживать поисковые запросы идущие к хабу?
 5 roflDDDD 852 4.10.2011, 18:55 Посл. сообщение: Fodin
No New Posts Нужны скрипты
Искал искал но не нашол
 1 Ferb 754 28.5.2011, 9:38 Посл. сообщение: Артём
No new ВАЖНО: Запросы Скриптов
Ваши идеи по разработке скриптов под HeXHuB
 36 Setuper 9 448 16.5.2011, 10:40 Посл. сообщение: ANDRBEST
No New Posts Незапускаются скрипты в Ptokax
 7 Br@yZeR 2 136 3.5.2011, 10:25 Посл. сообщение: Strannik
No New Posts Сколько места нужно на диске чтобы запустить скрипты ?
 1 Br@yZeR 616 2.5.2011, 19:59 Посл. сообщение: Ksan
No New Posts От: командные скрипты для установки сервиса RusHub
От темы с ID: 4075
 0 Midgard 665 3.3.2011, 3:00 Посл. сообщение: Midgard
No New Posts От: Запросы на скрипты
От темы с ID: 1843
 2 Alexey 717 13.2.2011, 22:13 Посл. сообщение: Alexey
No new Topic has attachmentsСкрипты И Совметимость Операционных Систем
Рабочие файлы скриптов в Unix системах
 37 mariner 13 108 3.2.2011, 4:16 Посл. сообщение: Ksan
No New Posts Как установить скрипты?=)
Script
 9 Lamo 2 908 25.1.2011, 14:52 Посл. сообщение: deposit
No New Posts От: Запросы на скрипты
От темы с ID: 1843
 1 Error404 681 3.12.2010, 1:55 Посл. сообщение: Saymon21
No New Posts От: командные скрипты для установки сервиса RusHub
От темы с ID: 4075
 0 Saymon21 93 29.11.2010, 0:13 Посл. сообщение: Saymon21
No New Posts Topic has attachmentsСкрипты для установки сервиса RusHub
для Windows
 0 Saymon21 2 147 23.11.2010, 17:14 Посл. сообщение: Saymon21

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

RSS Сейчас: 22.5.2012, 17:09