|
IcNaMeK Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
proc istek {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
set istek([md5 [string tolower $uhost]]) 1
putserv "PRIVMSG #DJ Istek isteyen rumuz: $gnick Istedigi sarki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$kanal )"
putserv "PRIVMSG #Radyo Isteginiz siraya alinmistir: 2$gnick"
putserv "PRIVMSG $gnick Bir Sonraki Istek Isteme Zamanız 5 dakika'dır.Lütfen Bu Kuralla Uyalım Aksitaktirde Banlanacaksınız: 2$gnick"
}
Verdigin her Komutu birlikde tek tek ayrı bi pro acarak denememe rahmen hiç birias olmadı
|
Komutları biraz daha gözden geçirin eksik ve yanlış dizilimleriniz var. Anlatılana göre mantık kurmaya çalışın.
Alıntı :
Kod: Kodu kopyalamak için üzerine çift tıklayın!
global istek
if {[info exists istek([md5 [string tolower $uhost]])]} {
putquick "privmsg $nick :5 dakika içerisinde sadece 1 istek yapabilirsiniz" ; return 0
} else {
set istek([md5 [string tolower $uhost]]) 1
timer 5[list unset istek([md5 [string tolower $uhost]])]
## .... Buraya komutların devamı......
}