Хотелось бы попросить у вас скрипт смены топика по таймеры для Eggdrop,
Что-то вроде етого:
# Автокоманда действия
bind time - "?5 * * * *" com4
bind time - "?0 * * * *" com4
# Процедура действия
proc com4 {min hour day month year} {
set com4rand [::egglib::readdata data/basa.txt]
putserv "TOPIC $chan :$topic :[lindex $com4rand [rand [llength $com4rand]]]"
}
или вот етого:
namespace eval randtopic {
# файл с текстом, откуда брать случайную строчку для топика
variable file "scripts/topics.txt"
# канал, в котором будет вестись смена топика
variable channel "#тест"
if {![file readable $file]} {
set f [open $file w+]
close $f
}
bind time - {* * * * *} [namespace current]::change
proc change {mins hours days months years} {
variable file
variable channel
# проверяем время (600 секунд это 10 минут)
# следующая строчка делит без остатка текущее значение минут,
# которое передается в процедуру по бинду. если остаток ноль,
# значит минуты равны 0, 10, 20 и т.д.
if {[expr $mins % 10] == "0"} {
# открываем файл на чтение
set f [open $file r]
# читаем файл
set data [split [read $f] \n]
# закрываем файл
close $f
# получаем случайную строчку
set line [lindex $data [rand [llength $data]]]
# меняем топик
putserv "TOPIC $channel :$line"
}
}
putlog "randtopic.tcl loaded"
}
Можно было бы еше добавить такие команды как "topic-текущий топик канала add-дабвить топик del-удалить топик list-список топиков time-время изменения топика channel-название канала для работы скрипта ну и команды для выдачи прав пользователю на команды и смены топика....
Заранее большое спасибо
