myDC.ru

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

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

> Запросы на скрипты

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


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 773 раза




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, 11:23
Сообщение #23


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 115 раз




Раскрывающийся текст
Код
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


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


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


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


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




Артём Ваш вариант вообще не работает.

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


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 115 раз




Раскрывающийся текст
Код
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


Пробуй так


Спасибо сказали:
Go to the top of the page
+Quote Post
Lyucyfer
сообщение 12.12.2010, 14: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, 14:57
Сообщение #27


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 115 раз




Код
VH:SendPMToAll(string.format("Последние 10 сообщений:\n")..GetMessages(), botname, 3, 10)

а если так


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


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


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




Работает, большое человеческое спасибо !
Go to the top of the page
+Quote Post
Lyucyfer
сообщение 15.12.2010, 12: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, 18: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, 16:02
Сообщение #31


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 115 раз




сейчас выложу скрипт в раздел скрипты
Go to the top of the page
+Quote Post
Jarkrait
сообщение 23.6.2011, 17: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, 4:10
Сообщение #33


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

Группа: Модераторы
Сообщений: 793
Регистрация: 21.1.2009
Пользователь №: 1 895
Спасибо сказали: 301 раз




Если очень захотеть — можно в космос полететь.
Go to the top of the page
+Quote Post
AKR
сообщение 12.5.2012, 10: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
Vizunchik
сообщение 28.5.2012, 20:20
Сообщение #35


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 115 раз




Цитата(AKR @ 12.5.2012, 13:45) *
Ребята помогите решить задачку.
Встречалась мне на VerliHub`е такая фишка.
Командой +history N (где N это количество сообщений), в главный чат любой пользователь получал в ответ последние N сообщений.


Найди подобный скрипт для PtokaX и кинь суда ссылку либо сам скрипт. Переведём под верлик.
Go to the top of the page
+Quote Post
Артём
сообщение 29.5.2012, 9:07
Сообщение #36


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 773 раза




Vizunchik, ты читаешь только первые две строки?
Написано в конце
Цитата
Вопрос отменяется: Дело было в ледоколе, поставил настроил и усё.
Go to the top of the page
+Quote Post

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No new Topic has attachmentsСкрипты API 2. Защита хаба. Базы TTH
Скрипты защиты от спама, флуда, рекламы, порно
40 GULAM33 43 813 24.5.2015, 16:55 Посл. сообщение: Артём
No New Posts Новые скрипты для птохи - новые вариации на старые темы
4 baltica 8 570 21.5.2013, 5:26 Посл. сообщение: Ksan
No New Posts Перепутал скрипты
Поток сознания с комментариями
5 GULAM33 7 164 20.2.2013, 19:11 Посл. сообщение: Alexey
No New Posts Какие скрипты обычно используют при полноценном хаб-сервере?
6 Yamakasi 10 175 7.2.2013, 17:04 Посл. сообщение: Yamakasi
No New Posts скрипты для птохи 0.4.2.0
1 Mishari 5 770 6.7.2012, 13:07 Посл. сообщение: mariner
No new Topic has attachmentsКак включать скрипты в PtokaX 0.4.1.1
21 pleomax 32 035 13.5.2012, 22:44 Посл. сообщение: Slavich
No New Posts СКРИПТЫ
3 alex2014 6 531 26.1.2012, 17:23 Посл. сообщение: Ameet
No New Posts Запросы новостей с сайта
1 Dani_Filth 4 823 16.11.2011, 19:08 Посл. сообщение: Damaks
No New Posts Как отслеживать поисковые запросы идущие к хабу?
5 roflDDDD 9 032 4.10.2011, 17:55 Посл. сообщение: Fodin
No New Posts Нужны скрипты
Искал искал но не нашол
1 Ferb 9 204 28.5.2011, 8:38 Посл. сообщение: Артём
No new ВАЖНО: Запросы Скриптов
Ваши идеи по разработке скриптов под HeXHuB
36 Setuper 46 883 16.5.2011, 9:40 Посл. сообщение: ANDRBEST
No New Posts Незапускаются скрипты в Ptokax
7 Br@yZeR 11 725 3.5.2011, 9:25 Посл. сообщение: Strannik
No New Posts Сколько места нужно на диске чтобы запустить скрипты ?
1 Br@yZeR 5 752 2.5.2011, 18:59 Посл. сообщение: Ksan
No New Posts От: командные скрипты для установки сервиса RusHub
От темы с ID: 4075
0 Midgard 5 218 3.3.2011, 2:00 Посл. сообщение: Midgard
No New Posts От: Запросы на скрипты
От темы с ID: 1843
2 Alexey 5 683 13.2.2011, 21:13 Посл. сообщение: Alexey

 



RSS Сейчас: 28.3.2024, 19:52