|
Здравствуйте, гость ( Вход | Регистрация )
  |
|
 16.1.2010, 14:30
Сообщение
#1
|
|
 Developer  Группа: Модераторы Сообщений: 541 Регистрация: 11.11.2008 Пользователь №: 1 075 Спасибо сказали: 244 раза  |
Название: Рекорды
Версия: 1.1 Автор: STRELOK Описание: Скрипт рекордов хаба Изменения:
Для работы скрипта нужно скачать модуль files здесь
Прикрепленные файлы
|
 |
 
|
|
16.1.2010, 22:56
Сообщение
#2
|
|
 Я коварный Санта Клаус Группа: Пользователи Сообщений: 523 Регистрация: 4.11.2008 Из: Саратов Пользователь №: 985 Спасибо сказали: 54 раза |
Спамит рекорд бот. Сделай вывод не чаще раз в 30 минут - так будет удобней
|
|
|
|
|
17.1.2010, 7:09
Сообщение
#3
|
|
|
Developer Группа: Модераторы Сообщений: 541 Регистрация: 11.11.2008 Пользователь №: 1 075 Спасибо сказали: 244 раза |
Если не хочешь чтобы бот писал
Цитата Новый рекорд... то перед строкамиКод Core.SendToAll("Новый рекорд пользователей на хабе: "..sTotalUsers.." !", sBot) иКод Core.SendToAll("Новый рекорд шары на хабе: "..DoShareUnits(sTotalShare).." !", sBot) Поставь --Добавлена Версия 1.1:
|
|
|
|
|
17.1.2010, 15:53
Сообщение
#4
|
|
|
Я коварный Санта Клаус Группа: Пользователи Сообщений: 523 Регистрация: 4.11.2008 Из: Саратов Пользователь №: 985 Спасибо сказали: 54 раза |
Закомментировать то я смог. Но нужно именно чтобы он писал о рекордах, но не так часто! А то как включил скрипт впервые он засрал сообщениями чат. Вот и было предложение чтобы не отключить его, а сделать вывод, ну к примеру, раз в полчаса-раз в час.
|
|
|
|
|
17.1.2010, 16:14
Сообщение
#5
|
|
|
Developer Группа: Модераторы Сообщений: 541 Регистрация: 11.11.2008 Пользователь №: 1 075 Спасибо сказали: 244 раза |
Цитата(Otshelnik-Fm @ 17.1.2010, 17:53)  Закомментировать то я смог. Но нужно именно чтобы он писал о рекордах, но не так часто! А то как включил скрипт впервые он засрал сообщениями чат. Вот и было предложение чтобы не отключить его, а сделать вывод, ну к примеру, раз в полчаса-раз в час. Тогда и обновление рекордов будет происходить раз в 1 час или раз 30 минут, т.к. обновление таблицы рекордов происходит по таймеру. После того, как время таймера вышло, запускается функция UpdateHubStats и соответственно происходит обновление таблицы, и выводится сообщение о новом рекорде, если число оказывается больше того, что находится в таблице. |
|
|
|
|
17.1.2010, 17:52
Сообщение
#6
|
|
 Продвинутый участник Группа: Пользователи Сообщений: 153 Регистрация: 21.9.2008 Из: Челябинск Пользователь №: 574 Спасибо сказали: 54 раза |
А если просто завести ещё 1 таймер для проверки был ли установлен новый рекорд за время его срабатывания?
Т.е. пусть таблица рекордов обновляется как и прежде, а проверка события установления рекорда по таймеру раз в полчаса 
|
|
|
|
|
17.1.2010, 19:13
Сообщение
#7
|
|
|
Developer Группа: Модераторы Сообщений: 541 Регистрация: 11.11.2008 Пользователь №: 1 075 Спасибо сказали: 244 раза |
Цитата(Serx @ 17.1.2010, 19:52) А если просто завести ещё 1 таймер для проверки был ли установлен новый рекорд за время его срабатывания? Т.е. пусть таблица рекордов обновляется как и прежде, а проверка события установления рекорда по таймеру раз в полчаса Делать этого не хочу. т.к. не вижу в этом смысла. Кому надо, то вот что надо сделать: В функцию OnStartup() добавить: Код Core.AddTimer(2, 1800000, "ShowHubStats") Функцию UpdateHubStats() переписать на: Код function UpdateHubStats() local sTotalUsers = Core.GetUsersCount() local sTotalShare = Core.GetTotalShare() if sTotalUsers > tHubStat.MaxUsers then tHubStat.MaxUsers = sTotalUsers tHubStat.MaxUsersTime = os.time(os.date("*t")) Files.SaveTable(sFile, tHubStat, "tHubStat") end if sTotalShare > tHubStat.MaxShare then tHubStat.MaxShare = sTotalShare tHubStat.MaxShareTime = os.time(os.date("*t")) Files.SaveTable(sFile, tHubStat, "tHubStat") end end В самый конец скрипта добавить функцию: Код function ShowHubStats() local sTotalUsers = Core.GetUsersCount() local sTotalShare = Core.GetTotalShare() if sTotalUsers > tHubStat.MaxUsers then Core.SendToAll("Новый рекорд пользователей на хабе: "..sTotalUsers.." !", sBot) end if sTotalShare > tHubStat.MaxShare then Core.SendToAll("Новый рекорд шары на хабе: "..DoShareUnits(sTotalShare).." !", sBot) end end PS: Не проверял. |
|
|
|
|
Похожие темы
| Тема | Ответов | Автор | Просмотров | Последнее сообщение | |
|---|---|---|---|---|---|
 |
Рекорды | 2 | denis | 6 310 | 26.1.2010, 1:10 Посл. сообщение: denis |
|
От: Ищу:викторина, Рекорды. День Рождение, Анегдоты От темы с ID: 547 |
2 | *FoxMalder* | 7 185 | 28.11.2008, 22:08 Посл. сообщение: *FoxMalder* |
 |
 Ищу:викторина, Рекорды. День Рождение, АнегдотыAPI II |
19 | Mol | 22 849 | 28.11.2008, 20:18 Посл. сообщение: Nickolya |
|
От: Ищу:викторина, Рекорды. День Рождение, Анегдоты От темы с ID: 547 |
2 | Strannik | 7 166 | 28.11.2008, 10:47 Посл. сообщение: sphinx |
|
Сейчас: 27.11.2024, 1:50 |
