##
# Author : DmitRex
# Version 1.0
# Name: fortuna.tcl
# .chanset #chan [-|+]nofortuna [on|off] script
##
setudef flag nofortuna
bind pub - !fortuna fortuna
bind pub - !фортуна fortuna
proc fortuna {nick uhost hand chan text} {
set fcolor(1) "\00303"
set fcolor(2) "\00304"
if {[channel get $chan nofortuna]} {return}
set listfortuna {
"Да"
"Тебе повезёт"
"Это случится"
"Не торопи события"
"Забудь об этом"
"Не факт"
"Нет"
"Не судьба"
"Это уже в прошлом"
"Это твой опыт"
"Хотелось бы верить"
}
if {$text == ""} { putserv "notice $nick : Используйте: $::lastbind \[вопрос\]"; return
}
set randfortuna ""
putserv "notice $nick : Ваш запрос принят"
after 3000
putserv "PRIVMSG $chan :$fcolor(2)Выбор сделан: $fcolor(1)[lindex $listfortuna [rand [llength $listfortuna ]]]"
putlog "Successful loaded script by DmitRex \[fortuna.tcl\]"
}