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

[NeiLL]

У меня скрипт меняющий топик по таймеру и из списка берет рандом т.е. случайно. и хотелось бы чтоб он брал по списку начиная с 1 по n .... Помогите решить этот вопрос. За ранее благодарю.

namespace eval randtopic {

# файл с текстом, откуда брать случайную строчку для топика
variable file "file.txt"

# канал, в котором будет вестись смена топика
variable channel "#suntar"

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
# проверяем время (300 секунд это 5 минуты)
# следующая строчка делит без остатка текущее значение минут,
# которое передается в процедуру по бинду. если остаток ноль,
# значит минуты равны 0, 10, 20 и т.д.
if {[expr $mins % 180] == "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"
}

[tvrsh]

При каждом изменении топика записывает в начало файла номер строки, которая станет топиком в следующий раз. Когда номер строки станет равным или больше общего количества строк в файле, то начнет опять с первой строки.

TCL: [ Скачать ] [ Скрыть ] [ Выбрать ] [ Развернуть ]

Синтаксис: [ Скачать ] [ Показать ]

namespace eval randtopic {

    # файл с текстом, откуда брать случайную строчку для топика
    variable file "file.txt"

    # канал, в котором будет вестись смена топика
    variable channel "#suntar"

    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

        # проверяем время (300 секунд это 5 минуты)
        # следующая строчка делит без остатка текущее значение минут,
        # которое передается в процедуру по бинду. если остаток ноль,
        # значит минуты равны 0, 10, 20 и т.д.
        if {[expr $mins % 180] == "0"} {
            set data [::egglib::readdata "$file"]
            if {[isnumber [lindex $data 0]]} {
                set data2 [lrange $data 1 end]
                putserv "TOPIC $channel :[lindex $data2 [lindex $data 0]]"
                set counter [expr [lindex $data 0] + 1]
                if {$counter >= [llength $data2]} {
                    set counter 0
                }
                set data2 [linsert $data2 0 $counter]
                ::egglib::writedata "$file" $data2
            } else {
                putserv "TOPIC $channel :[lindex $data 0]"
                set data [linsert $data 0 "1"]
                ::egglib::writedata "$file" $data
            }
        }
    }

putlog "randtopic.tcl loaded"
}

[NeiLL]

Спасибо огромное!!!!

Добавлено спустя 39 минут 36 секунд:
Тут что то не так!!! поставил на 30 минут и выводит по 2 топика:
вот результат

•(18:30:00)• * BotNet изменил топик на '2 2 2'
•(18:30:00)• * BotNet изменил топик на '5 5 5'
•(19:00:00)• * BotNet изменил топик на '3 3 3'
•(19:00:01)• * BotNet изменил топик на '6 6 6'

[tvrsh]

Перед строкой

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

               putserv "TOPIC $channel :[lindex $data2 [lindex $data 0]]"

добавь

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

putlog "[lindex $data2 [lindex $data 0]]|[lindex $data 0]"

и покажи что у тебя в патилайне выводиться будет во время установки топика.
Еще покажи содержание файла с топиками.