myDC.ru

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

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

> Рекорды, версия 1.1

Теги
Нет тегов для показа
Accelerator
сообщение 16.1.2010, 14:30
Сообщение #1


Developer
******

Группа: Модераторы
Сообщений: 541
Регистрация: 11.11.2008
Пользователь №: 1 075
Спасибо сказали: 244 раза




Название: Рекорды
Версия: 1.1
Автор: STRELOK
Описание: Скрипт рекордов хаба
Изменения:
    Версия 1.1:
  • Добавлена возможность выводить рекорды хаба при подключении пользователя
  • Добавлена функция включения и отключения вывода сообщений о новых рекордах

Для работы скрипта нужно скачать модуль files здесь
Прикрепленные файлы
Прикрепленный файл  Records.lua ( 3.52 килобайт ) Кол-во скачиваний: 118
 


Спасибо сказали:
Go to the top of the page
+Quote Post
Otshelnik-Fm
сообщение 16.1.2010, 22:56
Сообщение #2


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

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




Спамит рекорд бот. Сделай вывод не чаще раз в 30 минут - так будет удобней
Go to the top of the page
+Quote Post
Accelerator
сообщение 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:
  • Добавлена возможность выводить рекорды хаба при подключении пользователя
  • Добавлена функция включения и отключения вывода сообщений о новых рекордах
Go to the top of the page
+Quote Post
Otshelnik-Fm
сообщение 17.1.2010, 15:53
Сообщение #4


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

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




Закомментировать то я смог. Но нужно именно чтобы он писал о рекордах, но не так часто! А то как включил скрипт впервые он засрал сообщениями чат. Вот и было предложение чтобы не отключить его, а сделать вывод, ну к примеру, раз в полчаса-раз в час.
Go to the top of the page
+Quote Post
Accelerator
сообщение 17.1.2010, 16:14
Сообщение #5


Developer
******

Группа: Модераторы
Сообщений: 541
Регистрация: 11.11.2008
Пользователь №: 1 075
Спасибо сказали: 244 раза




Цитата(Otshelnik-Fm @ 17.1.2010, 17:53) *
Закомментировать то я смог. Но нужно именно чтобы он писал о рекордах, но не так часто! А то как включил скрипт впервые он засрал сообщениями чат. Вот и было предложение чтобы не отключить его, а сделать вывод, ну к примеру, раз в полчаса-раз в час.

Тогда и обновление рекордов будет происходить раз в 1 час или раз 30 минут, т.к. обновление таблицы рекордов происходит по таймеру. После того, как время таймера вышло, запускается функция UpdateHubStats и соответственно происходит обновление таблицы, и выводится сообщение о новом рекорде, если число оказывается больше того, что находится в таблице.


Спасибо сказали:
Go to the top of the page
+Quote Post
Serx
сообщение 17.1.2010, 17:52
Сообщение #6


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

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




А если просто завести ещё 1 таймер для проверки был ли установлен новый рекорд за время его срабатывания?
Т.е. пусть таблица рекордов обновляется как и прежде, а проверка события установления рекорда по таймеру раз в полчаса big_smile.gif
Go to the top of the page
+Quote Post
Accelerator
сообщение 17.1.2010, 19:13
Сообщение #7


Developer
******

Группа: Модераторы
Сообщений: 541
Регистрация: 11.11.2008
Пользователь №: 1 075
Спасибо сказали: 244 раза




Цитата(Serx @ 17.1.2010, 19:52) *
А если просто завести ещё 1 таймер для проверки был ли установлен новый рекорд за время его срабатывания?
Т.е. пусть таблица рекордов обновляется как и прежде, а проверка события установления рекорда по таймеру раз в полчаса big_smile.gif

Делать этого не хочу. т.к. не вижу в этом смысла. Кому надо, то вот что надо сделать:

В функцию 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: Не проверял.
Go to the top of the page
+Quote Post

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts Рекорды
2 denis 5 850 26.1.2010, 1:10 Посл. сообщение: denis
No New Posts От: Ищу:викторина, Рекорды. День Рождение, Анегдоты
От темы с ID: 547
2 *FoxMalder* 6 863 28.11.2008, 22:08 Посл. сообщение: *FoxMalder*
No new Topic has attachmentsИщу:викторина, Рекорды. День Рождение, Анегдоты
API II
19 Mol 21 447 28.11.2008, 20:18 Посл. сообщение: Nickolya
No New Posts От: Ищу:викторина, Рекорды. День Рождение, Анегдоты
От темы с ID: 547
2 Strannik 6 736 28.11.2008, 10:47 Посл. сообщение: sphinx

 



RSS Сейчас: 28.3.2024, 23:05