Форум о ботах Eggdrop/Windrop

# Автокоманда действия
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"
}