Версия для печати темы
MyDC.ru _ Запросы скриптов для PtokaX _ Сообщение юзерам с нулевой шарой
Автор: Perspect 20.7.2010, 20:56
Hubabot отправляет сообщение пользователям с нулевой шарой следующий текст:
Код
=====================================================================================
>> !!!!!!!!!!!!! В Н И М А Н И Е !!!!!!!!!!!!!!
>> Вы не расшарили совсем ничего! Пожалуйста, откройте доступ на свои файлы!
>> Не забывайте, что работа p2p-сети зависит от участия каждого пользователя.
Не стесняйтесь расшаривать файлы, которые вы сами скачали из p2p - чем больше
будет источников файлов (пусть и повторяющихся), тем легче эти файлы будет скачать остальным.
>> Кстати, многие пользователи считают тех, кто не расшаривает файлы, либо жадными,
либо слишком тупыми, чтобы научиться расшаривать папки. Но это точно не про вас, правда?;)
>> Чтобы расшарить файлы, зайдите в пункт меню
"Файл"-"Настройки"-"Общие"-"Шара", и выберите папки, которые вы хотите расшарить.
После того, как закончится хэширование файлов, они появятся в списке ваших файлов.
======================================================================================
Хотелось бы скрипт, который также отсылал бы халявщикам заготовленный ткст.
Автор: Артём 20.7.2010, 21:11
NoSharaNoDownload.lua ( 1.8 килобайт )
: 80
Автор: Ksan 20.7.2010, 21:28
Пока я стряпал своё, Артём уже кинул. Но не хочется выкидывать, поэтому ложу сюда
Скриптик совсем без проверок на исключения, но опов и админов точно не будет проверять.
Работу скрипта в деле не проверял.
Код
--- Если надо реагировать только на нулевую шару, то строку
--- if tUser.iSharesize < iSharaB then
--- надо написать так:
--- if tUser.iSharesize = 0 then
--- А текст сообщения юзеру и(или) в опчат можете изменить по своему усмотрению.
local sBot = SetMan.GetString(21)
local iSharaB = 10737418240
local iSharaGb = 10
function UserConnected(tUser)
Core.GetUserData(tUser, 16)
if tUser.iSharesize < iSharaB then
Core.SendToUser(tUser, "<"..sBot.."> Ваша шара меньше нужного или совсем отсутствует.. Расшарьте не меньше "..iSharaGb.." Гб !")
Core.SendToOpChat("*** "..tUser.sNick.." зашёл без шары или с малой шарой.")
end
end
RegConnected = UserConnected
Автор: Perspect 20.7.2010, 23:50
Что-то у меня ни один скрипт не заработал - тупо не реагирует.
Автор: Артём 21.7.2010, 1:33
Цитата(Perspect @ 20.7.2010, 23:50)
Что-то у меня ни один скрипт не заработал - тупо не реагирует.
Я перед тем как выложить проверил, рабочий скрипт, а точнее он у меня стоит на хабе
Автор: Ksan 21.7.2010, 1:38
Ну так посмотри настройки скрипта и сделай под себя....что мой, что Артема.
Автор: Perspect 22.7.2010, 0:34
Цитата(Артём @ 21.7.2010, 0:33)
Я перед тем как выложить проверил, рабочий скрипт, а точнее он у меня стоит на хабе
Проверил на разных компах, затем проверил на птохе с нуля, результат - тот же:
Код
[00:31:00] <PtokaX> Этот хаб работает под управлением PtokaX DC Hub 0.4.1.2 (Время работы: 0 дней, 0 часов, 1 минут / Юзеры: 0)
[00:31:01] <PtokaX> Welcome to PtokaX
Что с шарой, что без шары... Думаю, чего-то не хватает. Оба скрипта у меня не работают.
Автор: Alexey 22.7.2010, 1:16
А ты попробоуй не админом заходить.
Автор: Ksan 22.7.2010, 1:27
Ну да, он вполне мог проверять админом. Но я при скриптике же в сообщении отписал:
Цитата
Скриптик совсем без проверок на исключения, но опов и админов точно не будет проверять.
Автор: Артём 22.7.2010, 1:40
В моей версии
Код
tProfiles = { -- 0 = Может качать; 1 = Не может качать если шара не соответствует
[0] = 0,
[1] = 1,
[2] = 1,
[3] = 1,
[-1] = 1,
}
P.S. Текст сообщает не при входе, а при попытки скачки/поиска
Автор: Perspect 22.7.2010, 12:53
Цитата(Alexey @ 22.7.2010, 0:16)
А ты попробоуй не админом заходить.
Причина в другом - сообщение появляется только после запроса на скачку. Скрипт нормальный, но ...
Хотелось бы скрипт, который отправляет сообщение в приват при входе на хаб и ничего не блокирует. В
Hubabotе именно так было.
Автор: Nickolya 22.7.2010, 15:02
Тогда его надо отпрепарировать, заменяй
Код
function ConnectToMeArrival(tUser)
на
Код
function UserConnected(tUser)
и еще замени
Код
MultiConnectToMeArrival = ConnectToMeArrival
RevConnectToMeArrival = ConnectToMeArrival
SearchArrival = ConnectToMeArrival
на
Код
OpConnected = UserConnected
RegConnected = UserConnected
Теперь сообщение приходить будет при входе и блокироваться не будет ничего. Хотя такая вариация без блокировки просто будет немного мозолить глаза юзеру с маленькой шарой, то что ему что-то написало в чат ничего не изменит...
Автор: Ksan 23.7.2010, 10:21
Вообще-то скриптик из http://mydc.ru/topic3675.html?view=findpost&p=31990 сообщения как раз именно это и делает - при входе сообщает о шаре и больше ничего не делает...только я там в одном слове одну букву вместо заглавной написал строчную, потому и не работал скрипт, сейчас поставил проверил и исправил, работает.
Вот эту строку
Код
if tUser.iSharesize < iSharaB then
надо заменить на эту
Код
if tUser.iShareSize < iSharaB then
и всё будет работать. Требуемую шару и текстовку можете переделать под себя.
Автор: GangstaR 23.7.2010, 21:12
Как сделать, чтобы писать в мэйн не возможно было, при нулевой шаре, но чтобы скачивать могли?
Автор: Nickolya 24.7.2010, 19:44
Если ты про скрипт Артема - то надо сделать все то что я описывал выше и добавить еще в самом конце
Код
ChatArrival = UserConnected
Автор: Perspect 2.1.2011, 22:01
Вот это другое дело. Всё работает! Спасибо.