Код
tProfiles = { -- 0 = Может качать; 1 = Не может качать если шара не соответствует
[0] = 0,
[1] = 1,
[2] = 1,
[3] = 1,
[-1] = 1,
}
local sBot = "Фейс Контроль:)"
local iMinShare = 1073741824 -- 1 Gb (1*1024*1024*1024) 1073741824
local sMsg = --"\n\r\n\r\tУ вас недостаточно расшарено ресурсов для поиска и закачки, необходимо расшарить 1 Gb \n\r\n\tYou do not share the resources for finding and downloading, you must share the 1 Gb\n\r\n"
[["
=====================================================================================
>> !!!!!!!!!!!!! В Н И М А Н И Е !!!!!!!!!!!!!!
>> Вы не расшарили совсем ничего! Пожалуйста, откройте доступ на свои файлы!
>> Не забывайте, что работа p2p-сети зависит от участия каждого пользователя.
Не стесняйтесь расшаривать файлы, которые вы сами скачали из p2p - чем больше
будет источников файлов (пусть и повторяющихся), тем легче эти файлы будет скачать остальным.
>> Кстати, многие пользователи считают тех, кто не расшаривает файлы, либо жадными,
либо слишком тупыми, чтобы научиться расшаривать папки. Но это точно не про вас, правда?;)
>> Чтобы расшарить файлы, зайдите в пункт меню
"Файл"-"Настройки"-"Общие"-"Шара", и выберите папки, которые вы хотите расшарить.
После того, как закончится хэширование файлов, они появятся в списке ваших файлов.
======================================================================================"]]
function ConnectToMeArrival(tUser)
Core.GetUserAllData(tUser)
if tProfiles[tUser.iProfile] == 1 then
if tUser.iShareSize <= iMinShare then
Core.SendPmToUser(tUser,sBot,sMsg) -- Отправляет в Личку
Core.SendToUser(tUser,sMsg) -- Отправляет в общий чат.
return true
end
end
end
MultiConnectToMeArrival = ConnectToMeArrival
RevConnectToMeArrival = ConnectToMeArrival
SearchArrival = ConnectToMeArrival