set soz {
"sözler"
"sözler"
"sözler"
"sözler"
"sözler"
}
set ::say 0
# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!
bind pub - !soz tell_that
proc tell_that {nick uhost hand chan text} {
 if {[llength $::soz] < [expr {$::say + 1}]} { set ::say "0" }
     putserv "privmsg $chan :\00304$nick\003 \00302Komik Söz Isteğiniz\003 : \002|\002 \00307[lindex $::soz $::say]\003 \002|\002"
     incr ::say
}