bind raw * notice go:baglanan

proc go:baglanan { from keyword arg } {
if { [string match "*Client connecting*" $arg] } {
set nick [lindex $arg 9]
  putquick "privmsg nickserv info $nick"
}
if { [string match "*kayitli bir nick degil*" $arg] } {
set nick [lindex [stripcodes bcru $arg] 1]
set nick [lindex [split $nick :] 1]
yaz "soz.txt" $nick 
}
}

proc yaz { txt nick } { 
set dosyaoku [open scripts/$txt r]
set dosyalist [split [subst -nocommands [read $dosyaoku]] "\n"]
set rmsg [lindex $dosyalist [rand [llength $dosyalist]]]
utimer 60 [list putserv "privmsg $nick :$rmsg"]
close $dosyaoku
}