myDC.ru

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

 

> 'БАННЕР' для RusHub, Скрипт посылающий в главный чат оформленное в баннер сообщение

Теги
Нет тегов для показа
Sekretchik
сообщение 13.12.2010, 15:57
Сообщение #1


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

Группа: Пользователи
Сообщений: 104
Регистрация: 1.4.2009
Из: Россия
Пользователь №: 2 871
Спасибо сказали: 42 раза




Название - banner
Описание - Посылает в главный чат оформленное в баннер сообщение
Установка - Поместите banner.lua в папку scripts

Идея этого скрипта позаимствована у - Mutor
screenshot

В скрипте имеется возможность предоставления права отсылать баннер в чат - дисциплинированным юзерам - если таковые имеются на вашем хабе.

Код
tVIP = {
    ["NICKNAME_01"] = 1,  -- впишите в кавычки ник пользователя, который не наделён правом отправки банера, но своим поведением достоин того  (:
    ["NICKNAME_02"] = 1,
}

P.S.
Убедительная просьба не пинать меня ногами в печень и почки!
Прикрепленные файлы
Прикрепленный файл  banner.lua ( 3.67 килобайт ) Кол-во скачиваний: 59
 


Спасибо сказали:
Go to the top of the page
+Quote Post
 
Начать новую тему
Ответов
philoum
сообщение 14.12.2010, 7:53
Сообщение #2


Начинающий
*

Группа: Пользователи
Сообщений: 20
Регистрация: 17.10.2010
Из: Fr
Пользователь №: 7 902
Спасибо сказали: 2 раза




hi,
i dont have the rigth menu
i change some thing big_smile.gif
CODE
--###################################################################################
--## this script write Sekretchik aka ][shocked.gif][ livivng in Sosnogorsk Russia ##
--## dchub://sosnogorsk.no-ip.biz ## taduction fr by Philoum
--###################################################################################

sCmdToShowAll = "banner"
MaxSymbol = 5000
Menu = "--> Banner"

local OpNick = "þ††i£øû]v[™" -- Inscrivez le nom qui recevra le message d'erreur

tVIP = {
["NICKNAME_01"] = 1, -- remplir le nick citations, ce qui n'est pas le droit d'envoyer une bannière, mais leur comportement est digne (:
["NICKNAME_02"] = 1,
}

tProfile = {
[-1] = 0, -- L'utilisateur non enregistre
[0] = 1, -- Àdmin
[1] = 1, -- master
[2] = 1, -- moderator
[3] = 1, -- op
[4] = 0, -- vip
[5] = 0, -- reg
}
local sMenu = "$UserCommand 1 3 "..Menu.."$<%[mynick]> !"..sCmdToShowAll.." %[line:Texte de la bannière à envoyer en cc]&#124;"

function OnStartup()
sBot = Config.sHubBot
end

function OnUserEnter(UID)
if tProfile[UID.iProfile] == 1 or tVIP[UID.sNick] == 1 then
Core.SendToUser(UID, sMenu)
--Core.SendToUser(UID, "$UserCommand 1 1 "..Menu.."$<%[mynick]> !"..sCmdToShowAll.." %[line:Texte de la bannière à envoyer en cc]|")
end
end

function OnChat(UID, sData) -- Le message au chat
local _,_, sCmd = string.find(sData, "^%b<>%s+%p(%S+)") --Nous cherchons la commande
local _,_, advert = string.find(sData,"%b<>%s+%S+%s+(.+)")
if (sCmd==sCmdToShowAll) then
if not advert then
local reply1 = "\r\n\r\n"..
"\t"..string.rep("=", 67).."\r\n"..
"\tExcusez, les messages vides au chat, je n'expedie pas. Essayez encore une fois."..
"\t"..string.rep("=", 67).."\r\n"
Core.SendToUser(UID, reply1, sBot)
return true
elseif tProfile[UID.iProfile] == 1 or tVIP[UID.sNick] == 1 then
if sCmd and advert then
if string.len(advert) > MaxSymbol then
local reply2 = "\r\n\r\n"..
"\t"..string.rep("=", 67).."\r\n"..
"\tFait par vous nick comprend de ["..string.len(advert).."] Des symboles.\r\n"..
"\tLa quantite au maximum admissible de symboles dans le message - ["..MaxSymbol.."]\r\n"..
"\t"..string.rep("=", 67).."\r\n"
Core.SendToUser(UID, reply2, sBot)
return true
else
SendBanner(UID, advert)
return true
end
end
else
local reply3 = "\r\n\r\n"..
"\t"..string.rep("=", 75).."\r\n"..
"\tExcusez - "..UID.sNick.." - Mais vous ne pouvez pas utiliser la commande - !"..sCmdToShowAll.."\r\n"..
"\t"..string.rep("=", 75).."\r\n"
Core.SendToUser(UID.sNick, reply3, sBot)
return true
end
end
end

function SendBanner(UID, advert)
local border = "\r\n\r\n"
local border1 = border..string.rep("=",10).." Envoyé par "..UID.sNick.." "..string.rep("=",60).."\r\n\r\n"
local border2 = border..string.rep("=",60).." Envoyé par "..UID.sNick.." "..string.rep("=",10).."\r\n"
if UID and advert then
Core.SendToAll("<"..sBot..">" ..border1..Spacer(advert,string.len(border1))..advert..border2)
return true
end
end

Spacer = function(str,len)
if str then
local tab = ""
if string.len(str) < len then
local count = ((len - string.len(str)) / 2) / 10
if count > 0 then
for x = 1,count do
tab = tab.."\t"
end
end
end
str = nil
return tab
end
end

function OnError(sErrMsg)
local UID = Core.GetUser(OpNick)
if UID then
Core.SendToUser(UID.sNick, sErrMsg, UID.sNick, sBot)
end
end

thanks
greetings


Спасибо сказали:
Go to the top of the page
+Quote Post
Sekretchik
сообщение 14.12.2010, 9:44
Сообщение #3


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

Группа: Пользователи
Сообщений: 104
Регистрация: 1.4.2009
Из: Россия
Пользователь №: 2 871
Спасибо сказали: 42 раза




Цитата(philoum @ 14.12.2010, 7:53) *
hi, i dont have the rigth menu. i change some thing big_smile.gif
thanks. greetings

You have the right to change the text of the script as you want. The main thing - that the script worked and rejoiced administrator (:

P.S.


Ми слова благодарности:

- Представителю администрации - за "правку" верхнего поста. А именно, за "скрытый текст". Я пытался решить этот вопрос посредством спойлера.
- Разработчикам RusHub'а - за прекрасную работу.
- Всем другим, кто помогает людям сделать их хабы - удобными, надежными и стабильными.
Go to the top of the page
+Quote Post
philoum
сообщение 15.12.2010, 10:01
Сообщение #4


Начинающий
*

Группа: Пользователи
Сообщений: 20
Регистрация: 17.10.2010
Из: Fr
Пользователь №: 7 902
Спасибо сказали: 2 раза




Цитата(Sekretchik @ 14.12.2010, 11:44) *
You have the right to change the text of the script as you want. The main thing - that the script worked and rejoiced administrator (:

P.S.


Ми слова благодарности:

- Представителю администрации - за "правку" верхнего поста. А именно, за "скрытый текст". Я пытался решить этот вопрос посредством спойлера.
- Разработчикам RusHub'а - за прекрасную работу.
- Всем другим, кто помогает людям сделать их хабы - удобными, надежными и стабильными.


thanks u so much big_smile.gif
have good day
Go to the top of the page
+Quote Post
Saymon21
сообщение 15.12.2010, 14:49
Сообщение #5


Site Reliability Engineer
*********

Группа: Модераторы
Сообщений: 1 772
Регистрация: 27.6.2009
Из: Чувашия, г. Чебоксары
Пользователь №: 3 719
Спасибо сказали: 479 раз




philoum, To announce thanks man, we can press instead of writing a new post big_smile.gif

Sorry for my bad English
Go to the top of the page
+Quote Post
Sekretchik
сообщение 15.12.2010, 20:25
Сообщение #6


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

Группа: Пользователи
Сообщений: 104
Регистрация: 1.4.2009
Из: Россия
Пользователь №: 2 871
Спасибо сказали: 42 раза




Цитата(philoum @ 15.12.2010, 10:01) *
thanks u so much big_smile.gif have good day

Thank you for your words of appreciation. Good luck. big_smile.gif
Go to the top of the page
+Quote Post

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No new ВАЖНО: Topic has attachmentsМодули для скриптов RusHub
26 Setuper 43 067 21.3.2017, 17:31 Посл. сообщение: Alexey
No New Posts RusHub.org
Решаем судьбу домена
12 Nickolya 19 810 19.5.2016, 4:58 Посл. сообщение: DEN 007
No New Posts Перенос базы пользователей с RusHub на PtokaX
3 Angel_D 8 193 5.12.2015, 2:11 Посл. сообщение: Saymon21
No new ВАЖНО: Topic has attachmentsСкрипт банов для RusHub
тестим и комменьтруем
79 Wariner 98 671 28.9.2015, 13:34 Посл. сообщение: NeirRon
No new Topic has attachmentsRusHub. Пакеты для Debian/Ubuntu
47 KT315 58 965 24.5.2015, 23:14 Посл. сообщение: KT315
No New Posts ВАЖНО: Topic has attachmentsХаблист RusHub
13 ShadoWx 23 911 7.10.2014, 8:08 Посл. сообщение: mod
No new Topic has attachmentsУстановка rushub на ubuntu 12.04
для домохозяек и пенсионеров
43 hjet 45 200 2.10.2014, 12:16 Посл. сообщение: kotuk
No New Posts RusHub Сжатие
Не работает
1 ShadoWx 6 662 23.9.2014, 10:48 Посл. сообщение: PPA
No new Topic has attachmentsВопросы по RusHub
Технические вопросы
316 Jaska 250 005 19.12.2013, 13:59 Посл. сообщение: mod
No New Posts RusHub через экран, как?
Коннект на хаб во внутренней сети.
3 INTROVERT 7 990 16.6.2013, 17:17 Посл. сообщение: dj hoodo
No New Posts RusHub & Erlang
0 -Гость_ghost_*- 6 015 5.2.2013, 1:34 Посл. сообщение: -Гость_ghost_*-
No New Posts RusHub english v
3 SnowBOSS 8 140 7.1.2013, 21:17 Посл. сообщение: Артём
No New Posts Сборка Rushub 2.3.8 на FreeBSD 9.0 x64
10 LEXSOR 14 815 3.10.2012, 22:11 Посл. сообщение: Saymon21
No New Posts Topic has attachmentsWeather [ RusHub ] [ By Nickolya ]
Расширенная погода с rp5.ru
3 Saymon21 9 766 11.7.2012, 17:00 Посл. сообщение: KCAHDEP
Closed ВАЖНО: Topic has attachmentsRusHub
Кроссплатформенный консольный DC хаб
58 Setuper 384 402 10.7.2012, 10:49 Посл. сообщение: Setuper

 



RSS Сейчас: 24.2.2024, 16:06