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

Возможно написать скрипт такого характера: Когда бот кикает кого-либо, то в причине кика он выдает его порядковый номер.
Например: Bounce кикнут пользователем $botnick (Причина: [Кик номер: такой-то такой-то])

Нельзя написать скрипт который добавит ко всем кикризонам счетчик. Но можно создать процедуру которая будет увеличивать определенныую переменную и вызывать эту процедуру при каждом кике.

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

set kickcount 0

proc countkicks {} {

 incr ::kickcount

}

# Все кики переписать таким образом:

putserv "kick $chan $nick :kick message bla - kick#: [countkicks]"

Вольный перевод поста http://forum.egghelp.org/viewtopic.php?p=71529#71529

При рехаше, рестарте или отключении бота сбрасывается счётчик

Чтобы такого не было, надо писать в файл. Замени процедуру countkicks на такую:

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

proc countkicks {} {

if {![file isfile "countkicks.txt"]} {

set f [open "countkicks.txt" w+]

close $f

}

set f [open "countkicks.txt" r]

set data [read -nonewline $f]

close $f

if {[string is space $data]} {

set data 1

} elseif {[string is digit $data]} {

set data [incr data]

} else {

set data 1

}

set f [open "countkicks.txt" w]

puts -nonewline $f $data

flush $f

close $f

return $data

}

Не проверял, но должно работать. В корневой папке бота должны быть права на создание файлов.

Спасибо. Работает.

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

Кик-счётчик.

Кик-счётчик.

Re: Кик-счётчик.

Re: Кик-счётчик.

Re: Кик-счётчик.

Re: Кик-счётчик.