set say "0"
set sozoku [open scripts/sozler.txt r]
set sozliste [split [subst -nocommands [read $sozoku]] "\n"]
close $sozoku
 
bind raw - NOTICE giris
 
proc giris {from keyword arg} {
global say sozliste
if {[string match -nocase "*client conn*" $arg]} { 
incr say
set nick [lindex $arg 9]
putquick "privmsg $nick sunucuya hoşgeldin $nick. Giren $say. kişisin."
putquick "privmsg $nick [lindex $sozliste [rand [llength $sozliste]]]"
} }