myDC.ru

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

 
 
Ответить в данную темуНачать новую тему

> Locker.lua, Блокировка чат и привата для не зарегистрированных

Теги
ShadoWx
сообщение 25.1.2012, 1:38
Сообщение #1


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 216
Регистрация: 23.10.2008
Из: Саратов
Пользователь №: 865
Спасибо сказали: 60 раз




Авторы: сожители MyDC.RU
Название: Locker.lua

Описание:
Скрипт позволяет блокировать чат и личные сообщения для не зарегистрированных пользователей, уведомляя их об этом...

Код
local sBot = Config.sHubBot
local sMsg = "*** ОШИБКА!!! Вы не зарегистрированы на хабе."


function OnChat(UID, sData)
  sData = sData:match"%b<> (.*)"
  if UID.iProfile == -1  then
      Core.SendToUser(UID, sMsg, sBot)
      return true
  end
end


function OnTo(UID,sData)
  local sTo,sFrom =  sData:match"^%$To:%s+(%S+)%s+From:%s+(%S+)"
  if UID.iProfile == -1  then
      Core.SendToUser(UID, sMsg, sBot, sTo)
      return true
  end
end


Прикрепленный файл  locker.lua ( 444 байт ) Кол-во скачиваний: 37


Спасибо сказали:
Go to the top of the page
+Quote Post
mod
сообщение 25.1.2012, 8:45
Сообщение #2


Активный участник
***

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




А как сделать чтоб только личка блокировалась для не зарегистрированных?
Go to the top of the page
+Quote Post
Otshelnik-Fm
сообщение 25.1.2012, 9:49
Сообщение #3


Я коварный Санта Клаус
******

Группа: Пользователи
Сообщений: 523
Регистрация: 4.11.2008
Из: Саратов
Пользователь №: 985
Спасибо сказали: 54 раза




удалить
Код
function OnChat(UID, sData)
  sData = sData:match"%b<> (.*)"
  if UID.iProfile == -1  then
      Core.SendToUser(UID, sMsg, sBot)
      return true
  end
end


Спасибо сказали:
Go to the top of the page
+Quote Post
ShadoWx
сообщение 25.1.2012, 11:45
Сообщение #4


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 216
Регистрация: 23.10.2008
Из: Саратов
Пользователь №: 865
Спасибо сказали: 60 раз




нет, личка последняя функция, удалите или закомментируйте это для проверки только чата:

Код
function OnTo(UID,sData)
  local sTo,sFrom =  sData:match"^%$To:%s+(%S+)%s+From:%s+(%S+)"
  if UID.iProfile == -1  then
      Core.SendToUser(UID, sMsg, sBot, sTo)
      return true
  end
end
Go to the top of the page
+Quote Post
mod
сообщение 25.1.2012, 11:58
Сообщение #5


Активный участник
***

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




ShadoWx, хм...
Воспользовался предложением Otshelnik-Fm и теперь личка доступна только зарегистрированным пользователям! Получил что хотел big_smile.gif
Go to the top of the page
+Quote Post
ShadoWx
сообщение 25.1.2012, 12:11
Сообщение #6


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 216
Регистрация: 23.10.2008
Из: Саратов
Пользователь №: 865
Спасибо сказали: 60 раз




а не так прочитал твое сообщение, да все верно )
Go to the top of the page
+Quote Post
CrazyKiller
сообщение 30.1.2012, 19:47
Сообщение #7


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

Группа: Пользователи
Сообщений: 189
Регистрация: 20.4.2009
Пользователь №: 3 121
Спасибо сказали: 12 раз




Спасибо большое !

Вроде маленький скрипт, а помог мне решить пару нюансов со спамерами )))

Кто может подсказать, как можно открыть доступ всем Операторам и Администраторам, чтоб им приходили ЛС с Гостей а другим заблокированно ?
Go to the top of the page
+Quote Post
Артём
сообщение 30.1.2012, 20:11
Сообщение #8


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

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




CrazyKiller, посмотри как это сделано в этом скрипте и попробуй сам сделать.


Спасибо сказали:
Go to the top of the page
+Quote Post
CrazyKiller
сообщение 30.1.2012, 20:40
Сообщение #9


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

Группа: Пользователи
Сообщений: 189
Регистрация: 20.4.2009
Пользователь №: 3 121
Спасибо сказали: 12 раз




Артем Спасибо ! big_smile.gif

До пилял!
Если кому нужен, нате ))
Скрипт Запрещает только ЛС, Глав чат открыт big_smile.gif

Скрипт

local sBot = Config.sHubBot
local sMsg = "*** ОШИБКА!!! Доступ закрыт Гостям. ( ERROR!!! Access is closed Guests )"
local tGoodPmUser = { --- Ники, которым смогут писать гости.
["CrazyKiller"] = true,
["Bloodwithmilk"] = true,
}

function OnTo(UID,sData)
local sTo,sFrom = sData:match"^%$To:%s+(%S+)%s+From:%s+(%S+)"
if sTo and tGoodPmUser[sTo] then return end
if UID.iProfile == -1 then
Core.SendToUser(UID, sMsg, sBot, sTo)
return true
end
end


Спасибо сказали:
Go to the top of the page
+Quote Post
Артём
сообщение 30.1.2012, 20:50
Сообщение #10


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

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




Цитата(CrazyKiller @ 30.1.2012, 19:40) *
Скрипт


local tGoodPmUser = { --- Ники кому разрешенно писать в лс Гостям.
["CrazyKiller"] = true,
["Bloodwithmilk"] = true,
}


shocked.gif может... "Ники, которым смогут писать гости" ?


Спасибо сказали:
Go to the top of the page
+Quote Post
CrazyKiller
сообщение 30.1.2012, 20:56
Сообщение #11


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

Группа: Пользователи
Сообщений: 189
Регистрация: 20.4.2009
Пользователь №: 3 121
Спасибо сказали: 12 раз




прогнал бесса ))
Теребят по бокам, мешают big_smile.gif
Go to the top of the page
+Quote Post
CrazyKiller
сообщение 17.2.2012, 15:51
Сообщение #12


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

Группа: Пользователи
Сообщений: 189
Регистрация: 20.4.2009
Пользователь №: 3 121
Спасибо сказали: 12 раз




Кто подскажет, как в скрипте сделать ешё запрет на 3 профиль ?
Чтоб могли писать в пм 0-2 профиля, остальные в топку big_smile.gif
Go to the top of the page
+Quote Post
dj hoodo
сообщение 17.2.2012, 16:09
Сообщение #13


Участник
**

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




как же теперь я спамить то буду ??? big_smile.gif
хотя я вроде зареган на хабе big_smile.gif
Go to the top of the page
+Quote Post
CrazyKiller
сообщение 17.2.2012, 16:23
Сообщение #14


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

Группа: Пользователи
Сообщений: 189
Регистрация: 20.4.2009
Пользователь №: 3 121
Спасибо сказали: 12 раз




Цитата(dj hoodo @ 17.2.2012, 17:09) *
как же теперь я спамить то буду ??? big_smile.gif
хотя я вроде зареган на хабе big_smile.gif


не зарегин ))))

и да, уже разобрался сам, добавил функцию.
Go to the top of the page
+Quote Post

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts От: Locker.lua
От темы с ID: 5137
0 Ksan 3 673 25.1.2012, 4:10 Посл. сообщение: Ksan

 



RSS Сейчас: 27.11.2024, 4:39