Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

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

Пока я стряпал своё, Артём уже кинул. Но не хочется выкидывать, поэтому ложу сюда big_smile.gif
Скриптик совсем без проверок на исключения, но опов и админов точно не будет проверять.
Работу скрипта в деле не проверял.

Код
--- Если надо реагировать только на нулевую шару, то строку
---     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) *
Что-то у меня ни один скрипт не заработал - тупо не реагирует.

Я перед тем как выложить проверил, рабочий скрипт, а точнее он у меня стоит на хабе big_smile.gif


Автор: Ksan 21.7.2010, 1:38

Ну так посмотри настройки скрипта и сделай под себя....что мой, что Артема.

Автор: Perspect 22.7.2010, 0:34

Цитата(Артём @ 21.7.2010, 0:33) *
Я перед тем как выложить проверил, рабочий скрипт, а точнее он у меня стоит на хабе big_smile.gif


Проверил на разных компах, затем проверил на птохе с нуля, результат - тот же:

Код
[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. Текст сообщает не при входе, а при попытки скачки/поиска big_smile.gif

Автор: 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

Вот это другое дело. Всё работает! Спасибо.

 NoSharaNoDownload.rar ( 1.11 килобайт ) : 15