IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Öncelikle botun ircop olarak accessi olduğunu @ konumunda durmadığını belirteyim. Aşağıdaki kodda bot sadece ban atıyor kicklemiyor ve haliyle kick sebebide yazmıyor :) Bunu nasıl ekliyebilirim ? kick # $nick küfretmek yasaktır gibi.

2. sorum botun attığı banı 900 sn sonra açmasını istiyorum ban -u900 olayını nasıl uygulamalıyım ?

putkick filan yazıyor ama yukarıda belirttiğim gibi sadece banlıyor kicklemiyor .Yani kısaca yapmaya çalıştığım bot ircop konumunda iken sadece banlayıp kickleyecek ve 900 saniye sonra banı açacak.

PHP- Kodu:

   # Kick yada oper ise kill mesaji
set bansebebi "Kufur Ettiginiz icin Banlandiniz..!"
 
# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "0"
 
## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "opernick"
 
set opass "operpass"
 
# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsiniz..
 
set kufurler { 
"kufur"
"kufur1"
"kufur2*"
"kufur3*"
"kufur4"
"duzerim"
"-"
"-*"
}
 
 
# Bu kadar..!
 
 
 
bind pubm - * kufurban
 
 
# DOKUNMAYIN..!
# Dokunmak delikanliyi bozar ;P
 
 
 
bind evnt - init-server botoper_yap
 
proc botoper_yap {type} {
  global onick opass
if {$botoper == 1} {
putquick "OPER $onick $opass"
 }
}
 
proc kufurban {nick uhost hand chan rest} {
global kufurler botoper bansebebi
foreach w $kufurler {
if {[string match -nocase "* $w *" " $rest "] && ![isop $nick $chan]} { 
     if {$botoper == 1} {
  putquick "GLINE +*[string range $uhost [string first @ $uhost] e] 1d :$bansebebi" -next
  putquick "KILL $nick :$bansebebi" -next
  return 1
 } else { 
  putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]" -next
  putkick $chan $nick $bansebebi
  return 1
    } 
  }
}
}
 
putlog "Kufur.tcl 2.0 by Stonkeep Yuklendi..."