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

bind time - "59 23 * * *" setnick
proc setnick {min hour day month year} {
global botnick
set weekday [clock format [expr [unixtime] + 86400] -format "%A"]
set month [clock format [expr [unixtime] + 86400] -format "%B"]
set monthday [clock format [expr [unixtime] + 86400] -format "%d"]
set nick "$month-$monthday-$weekday"
if {$weekday=="Monday" || $weekday=="Tuesday" || $weekday=="Thursday"} {
    set glagol "Наступил"
}
if {$weekday=="Wednesday" || $weekday=="Friday" || $weekday=="Saturday"} {
    set glagol "Наступила"
}
if {$weekday=="Sunday"} {
    set glagol "Наступило"
}
set data "$glagol $weekday $monthday $month"
set data [string map {Monday Понедельник Tuesday Вторник Wednesday Среда Thursday Четверг Friday Пятница Saturday Суббота Sunday Воскресенье January Января February Февраля March Марта April Апреля May Мая June Июня July Июля August Августа September Сентября October Октября November Ноября December Декабря} $data]
foreach channel [channels] {
    putserv "PRIVMSG $channel :$data."
}
set keep-nick 0
putserv "NICK $nick"
}
putlog "botnick.tcl loaded"