PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw * notice go:baglanan
proc go:baglanan {from keyword arg} {
set nick [lindex $arg 9]
if {[string match "*Client connecting*" $arg]} {
putquick "privmsg nickserv info $nick"
}
if {[string match "*Kullanicinin Nicki Kayitsizdir*" $arg]} {
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 putquick "privmsg $nick :$rmsg"]
close $dosyaoku
}
Bunu deneyin olmazsa dediğim gibi nick'i bulamadığı içindir.
Not: utimer 60'dan sonra boşluk olması gerek 60 ve [ arasında.