##############################################################################################
# Basari Hosting Internet Hizmetleri - Dürüstlük simgemizdir. Önce güven!                    #
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set awhois(bansebep) "Reklamci botlarin kanal icinde gezmeleri yasaktir.!"
## Ban Suresi ? 0= temelli
## 10 = 10 dakika
set awhois(sure) "0"
# Whoisde hangi kelimeler gecerse kullaniciyi banliyacagiz ?
set kotu(list) {
"*****"
"*http://*"
"*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}

# Kontrol edilicek kanallar.?
set kanallar { #mircsohbetim #oyun #radyo }
##

  foreach chan [channels] {
 set kanallar $chan
  }

bind join - * awhois(join)
 
##Buraya dokunmayiniz. :}
 
proc awhois(join) {nick uhost hand chan} { 
  if {[strlwr $nick] == [strlwr $::botnick] || [matchattr $hand of|fo $chan]} {
    return
  } 
  putserv "WHOIS $nick" 
set awhois(banhost) *!*[string range $uhost [string first @ $uhost] e]
set ::reklamci $nick
set ::kanal $chan
set ::uhost $uhost
bind RAW - 301 awhois(kontrol)
}
proc awhois(kontrol) {from key arg} {
  global awhois kanallar
  set chan $::kanal
  set nick $::reklamci
  set uhost $::uhost
  set awaymesaj [string range [join [lrange $arg 2 end]] 1 end]
  foreach bla $::kotu(list) {
    if {![string match -nocase $bla $awaymesaj]} {
      continue
    }
 awhois(banla) $nick $uhost
    break
  }
}
proc awhois(banla) {nick uhost} {
  global awhois kanallar
#  putserv "privmsg $kanallar :$nick ve *!*[string range $uhost [string first @ $uhost] e] reklam yapti.!"
  putquick "MODE $kanallar +b *!*[string range $uhost [string first @ $uhost] e]"
  putkick $kanallar $nick $awhois(bansebep)
  newchanban $kanallar *!*[string range $uhost [string first @ $uhost] e] AwayWhois.Tcl $awhois(bansebep) $awhois(sure)
}
 
putlog "AwayWhois.tcl v1.0 by illegal_NicCK"