Чат Комнаты, API2 | Возможно создать несколько чат комнат |
Здравствуйте, гость ( Вход | Регистрация )
Чат Комнаты, API2 | Возможно создать несколько чат комнат |
17.10.2008, 12:38
Сообщение
#21
|
|
RusHub team lead Группа: Модераторы Сообщений: 4 030 Регистрация: 20.6.2008 Из: г. Королёв (Моск. обл.) Пользователь №: 46 Спасибо сказали: 1708 раз |
Название: Чат комнаты
Версия: 1.0 Версия API: 2 Код: открытый Автор: Setuper Описание: возможно создать несколько чат комнат. Чат комнаты могут быть "закрытыми", то есть для получения сообщений нужно войти, а могут быть открытыми, то есть сообщения отсылаются всем доступным профилям (как в ОпЧате, вы не входите постоянно в ОпЧат, если вы Оператор, то он вам доступен). При запуске скрипта создаётся файл ChatRoom.dbs, в котором по умолчанию создаются 3 комнаты: комната для операторов, комната для випов и общая закрытая комната. В файле ChatRoom.dbs множество настроек. Опишу их на общей комнате: Код ["-MembersRoom-"] = { -- название комнаты добавлю, что если скрипт чат комнаты в списке скриптов стоит до скрипта антирекламы и параметр bReturn=true, то сообщения чат комнаты не будут отслеживаться антирекламой, в противном случае будут.["sMsgExit"] = "*** Вы покинули комнату.", -- сообщение, отправляемое пользователю после выхода из комнаты ["tAllow"] = { -- профили, которым доступна комната [0] = 1, [2] = 1, [3] = 1, [1] = 1, [-1] = 0, }, ["sDescription"] = "[БОТ] Чат комната для пользователей", -- описание бота ["sAway"] = false, -- режим бота: true - away, false - не away ["sEmail"] = "setuper@gmail.com", -- email бота ["sClientName"] = "DCBOT", -- название клиента бота ["bKey"] = true, -- имеет ли ключик бот: true - имеет, false - не имеет ["sTagOption"] = "M:A,H:0/0/1,S:0", -- тэг бота (не трогать, если не знаешь что это) ["sMsgEnter"] = "*** Добро пожаловать в чат комнату!", -- сообщение пользователю при входе в чат комнату ["bMembers"] = true, -- надо ли входить(выходить) в чат комнату: true - надо, false - не надо ["iShareSize"] = 0, -- шара бота чат комнаты ["tMembers"] = { -- таблица членов чат комнаты (не изменять) }, ["tVisible"] = { -- профили, которым видна чат комната в списке пользователей [0] = 1, [2] = 1, [3] = 1, [1] = 1, [-1] = 1, }, ["bReturn"] = true, -- возвращаемое значение чат комнатой }, После первого запуска скрипта в файле настроек по умолчанию создаётся 3 комнаты. Вы можете менять количество комнат по смоему усмотрению. Конечно возможности программирования на lua не ограничены. Данный код я вырвал из SBot'a и немного преобразовал, но большая часть возможностей чат комнат осталась в SBot'е (чат комната непосредственно в чате, а не в личке, чёрные и белые списки для любого пользователя, установка паролей на чат комнаты, антифлуд, антимат, антикапс, антиреклама в чат комнатах и тд. и тп.). Нету времени. Для самостоятельного перевода скрипта под версию API 1 следует воспользоваться инструкцией: ИНСТРУКЦИЯ Юзаем!
Прикрепленные файлы
|
|
|
4.10.2009, 11:33
Сообщение
#22
|
|
Начинающий Группа: Пользователи Сообщений: 18 Регистрация: 30.6.2009 Из: Екатеринбург Пользователь №: 3 742 Спасибо сказали: 0 раз |
Помогите пожалуйста я себе сделал 1 комнату для юзеров !!! в меню я убрал всё лишнее , вопрос как сделать что бы когда выбераешь Игровая > Войти и входит и не нужно писпть название %[line: Введите имя комнаты] как это убрать ???
|
|
|
4.10.2009, 11:48
Сообщение
#23
|
|
RusHub team lead Группа: Модераторы Сообщений: 4 030 Регистрация: 20.6.2008 Из: г. Королёв (Моск. обл.) Пользователь №: 46 Спасибо сказали: 1708 раз |
Для этого нужно вызывать меню юзера, а не меню хаба.
|
|
|
4.10.2009, 16:30
Сообщение
#24
|
|
Начинающий Группа: Пользователи Сообщений: 18 Регистрация: 30.6.2009 Из: Екатеринбург Пользователь №: 3 742 Спасибо сказали: 0 раз |
Эм....а как это ???
|
|
|
4.10.2009, 22:00
Сообщение
#25
|
|
RusHub team lead Группа: Модераторы Сообщений: 4 030 Регистрация: 20.6.2008 Из: г. Королёв (Моск. обл.) Пользователь №: 46 Спасибо сказали: 1708 раз |
Правый клик по комнате, а не по вкладке хаба.
|
|
|
4.10.2009, 23:23
Сообщение
#26
|
|
Освоившийся участник Группа: Модераторы Сообщений: 352 Регистрация: 25.7.2009 Пользователь №: 3 960 Спасибо сказали: 73 раза |
0oZoNeK, как я понял у тебя всего одна комната.
Если так - ложи скрипт, переделаю тебе его поудобнее. |
|
|
5.10.2009, 14:29
Сообщение
#27
|
|
Начинающий Группа: Пользователи Сообщений: 18 Регистрация: 30.6.2009 Из: Екатеринбург Пользователь №: 3 742 Спасибо сказали: 0 раз |
Я в этом скрипте кое что удалил ))) если что качни оригинал и переделай (Зарание благодарю + гарантирую)
P.S Из этой комнаты я хочу сделать Игровую !!!
Прикрепленные файлы
|
|
|
7.10.2009, 9:19
Сообщение
#28
|
|
Освоившийся участник Группа: Модераторы Сообщений: 352 Регистрация: 25.7.2009 Пользователь №: 3 960 Спасибо сказали: 73 раза |
Получите, распишитесь
Все 2 файла кидаем в папку "Scripts" ChatRooms.rar ( 3.1 килобайт ) Кол-во скачиваний: 50 P.S. На всякий случай, есть такая кнопочка "Спасибо" |
|
|
13.10.2009, 15:58
Сообщение
#29
|
|
Начинающий Группа: Пользователи Сообщений: 18 Регистрация: 30.6.2009 Из: Екатеринбург Пользователь №: 3 742 Спасибо сказали: 0 раз |
Спасибо всё работает на отлично
PS. Кнопка "Cпасибо" была учтена !!! ))) |
|
|
22.10.2009, 22:31
Сообщение
#30
|
|
Начинающий Группа: Пользователи Сообщений: 16 Регистрация: 10.7.2009 Из: Тула Пользователь №: 3 842 Спасибо сказали: 0 раз |
Сделайте пожалуйста только одну чат-комнату для випов и без меню, чтобы вип по умолчанию в неё мог войти ( чтобы входить и выходить можно было командами). У меня чет ниче не получается(((
|
|
|
23.10.2009, 8:52
Сообщение
#31
|
|
Освоившийся участник Группа: Модераторы Сообщений: 352 Регистрация: 25.7.2009 Пользователь №: 3 960 Спасибо сказали: 73 раза |
Лови, имя комнаты [VIP]Комната, видна в списке и доступна только VIР'ам
Не забывай про кнопку спасибо ChatRooms.rar ( 3.02 килобайт ) Кол-во скачиваний: 25 |
|
|
23.10.2009, 10:49
Сообщение
#32
|
|
Самый главный активист :-D Группа: Модераторы Сообщений: 2 790 Регистрация: 29.6.2008 Из: г. Тула Пользователь №: 97 Спасибо сказали: 440 раз |
я не понимаю неужели нельзя покопаться и правильно настроить скрипт из первого поста ?! зачем просить выкладывать его по новой, но с другой настройкой?!
PS: впредь такие сообщения будут удаляться без предупреждения! |
|
|
3.2.2010, 20:07
Сообщение
#33
|
|
Освоившийся участник Группа: Модераторы Сообщений: 352 Регистрация: 25.7.2009 Пользователь №: 3 960 Спасибо сказали: 73 раза |
Не ругайся, Илюх, все мы были такими)
кстати Цитата большая часть возможностей чат комнат осталась в SBot'е (чат комната непосредственно в чате, а не в личке, чёрные и белые списки для любого пользователя, установка паролей на чат комнаты, антифлуд, антимат, антикапс, антиреклама в чат комнатах и тд. и тп.). Нету времени. не думаешь доделывать?)) |
|
|
16.3.2010, 11:54
Сообщение
#34
|
|
Участник Группа: Пользователи Сообщений: 31 Регистрация: 13.1.2010 Пользователь №: 5 672 Спасибо сказали: 0 раз |
Хочу сделать так чтобы в комнату каждое время писалось одно и тоже сообщение, но не выходит(((
На пример: Код function OnStartup()
tmr = TmrMan.AddTimer(600000) end function OnTimer(tmr) Core.SendToAll("#Games","Сообщение") end |
|
|
16.3.2010, 13:47
Сообщение
#35
|
|
Главный ра******й тут... Группа: Главные администраторы Сообщений: 1 727 Регистрация: 18.5.2008 Из: RF, 2la Пользователь №: 1 Спасибо сказали: 776 раз |
Код TmrMan.AddTimer(600000, "SendOnTimer") добавить послеКод function OnStartup() и добавить функцию в самый конец скрипта:Код function SendOnTimer() tSys:SendToMembers("#Games","#Games","Сообщение","#Games") end Хотя я на 100% не уверен... |
|
|
16.3.2010, 14:48
Сообщение
#36
|
|
Участник Группа: Пользователи Сообщений: 31 Регистрация: 13.1.2010 Пользователь №: 5 672 Спасибо сказали: 0 раз |
Код function OnStartup() Спасибо tmr = TmrMan.AddTimer(600000) end function OnTimer(tmr) tSys:SendToMembers("#Games","#Games","Сообщение","#Games") end вот этот вариант работает =) Ещё кое что =) выложите плиз сюда ту часть в которой задаётся функция команды Members и где происходит чтение списка пользователей в комнате из файла ChatRoom.dbs. Сам пробовал сделать но результат 0 Я хочу сделать так чтобы другой скрипт читал файл ChatRoom.dbs, который так и будет изменятся скриптом chatrooms, и отсылал сообщение пользователям в комнате |
|
|
11.9.2010, 6:20
Сообщение
#37
|
|
Участник Группа: Пользователи Сообщений: 43 Регистрация: 15.3.2009 Пользователь №: 2 605 Спасибо сказали: 11 раз |
Получите, распишитесь Все 2 файла кидаем в папку "Scripts" ChatRooms.rar ( 3.1 килобайт ) Кол-во скачиваний: 50 P.S. На всякий случай, есть такая кнопочка "Спасибо" помогите в этой версии сделать чтоб по команде выводило кол-во и ники юзеров в комнате ну или скажите как пощитать кол-во строк в таблице ["tMembers"] и вывести их моего незнания хватило лиш на это: Код elseif self:String2Lower(sCmd)==self:String2Lower(self.sCmdUsers) then
sRoom=self:CheckRoom(sA,sNick,sRoom) if not sRoom then return true end if tRooms[sRoom]["tMembers"][sNick] then tSys:SendToUser(sNick,"Кол-во юзеров......",sRoom,sRoom) return true end |
|
|
12.9.2010, 20:07
Сообщение
#38
|
|
Главный ра******й тут... Группа: Главные администраторы Сообщений: 1 727 Регистрация: 18.5.2008 Из: RF, 2la Пользователь №: 1 Спасибо сказали: 776 раз |
Попробуй вот так:
Код elseif self:String2Lower(sCmd)==self:String2Lower(self.sCmdUsers) then
sRoom=self:CheckRoom(sA,sNick,sRoom) if not sRoom then return true end if tRooms[sRoom]["tMembers"][sNick] then local i, sMembers = 0, {} for sNick in pairs(tRooms[sRoom]["tMembers"]) do i = i + 1 table.insert(sMembers, sNick) end sMembers = table.concat(sMembers, ', ') tSys:SendToUser(sNick,"В комнате "..i.." пользователей: "..sMembers,sRoom,sRoom) return true end |
|
|
14.9.2010, 12:20
Сообщение
#39
|
|
Участник Группа: Пользователи Сообщений: 43 Регистрация: 15.3.2009 Пользователь №: 2 605 Спасибо сказали: 11 раз |
спасиб работает, а вот еще вопрос когда юзер уже добавлен в комнату то если он снова нажмет войти в комнату то команда отображается в гл чате и когда вызываю команду сколько юзеров она отсылается(сама команда) всем кто в комнате, как можно откл их отправку всем?
|
|
|
14.9.2010, 12:34
Сообщение
#40
|
|
Главный ра******й тут... Группа: Главные администраторы Сообщений: 1 727 Регистрация: 18.5.2008 Из: RF, 2la Пользователь №: 1 Спасибо сказали: 776 раз |
Код -- return true -- было вот здесь
end return true -- стало здесь, и так надо сделать по всей функции tSys:DoCmd(sNick,sArg,sRoom) elseif self:String2Lower(sCmd)==self:String2Lower(self.sCmdExit) then |
|
|
14.9.2010, 13:15
Сообщение
#41
|
|
Участник Группа: Пользователи Сообщений: 43 Регистрация: 15.3.2009 Пользователь №: 2 605 Спасибо сказали: 11 раз |
примного благодарен все работает, а как сделать поле ["sMsgEnter"] много строчным?
|
|
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последнее сообщение | |
---|---|---|---|---|---|
Комнаты (чатрумы) Rooms API1, API2 | Создание чат-комнат для Verlihub и PtokaX |
61 | Phazeus | 83 356 | 3.4.2014, 2:07 Посл. сообщение: Inkvizitor_ks | |
Расширенные комнаты | 1 | ShadoWx | 6 809 | 7.2.2012, 13:13 Посл. сообщение: Артём | |
Нужно сделать дроп юзеров с комнаты! Помогайте |
1 | X-Sky | 6 676 | 26.9.2009, 16:45 Посл. сообщение: Wariner | |
Чат комнаты для стран скрипт для Ptokax 4.1.1 |
12 | apelsin | 16 447 | 5.8.2009, 18:31 Посл. сообщение: apelsin | |
От: Комнаты (чатрумы) Rooms От темы с ID: 1443 |
2 | Tarantul13 | 7 409 | 19.6.2009, 21:45 Посл. сообщение: Tarantul13 | |
От: Комнаты (чатрумы) Rooms От темы с ID: 1443 |
0 | Артём | 5 239 | 27.5.2009, 20:40 Посл. сообщение: Артём | |
От: Чат Комнаты От темы с ID: 438 |
1 | Tarantul13 | 6 435 | 18.4.2009, 16:16 Посл. сообщение: Setuper | |
От: Чат Комнаты От темы с ID: 438 |
1 | Артём | 4 569 | 26.1.2009, 15:18 Посл. сообщение: D'aspid | |
От: Кроссплатформенный Скрипт Комнаты (чатрумы) Rooms От темы с ID: 1443 |
-1 | -- | 5 687 | -- Посл. сообщение: -- |
|
Сейчас: 23.12.2024, 12:54 |