##############################################################################################
# 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" 

##############################################################################################
# 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">bind pub - "ping" pub_ping
proc pub_ping {nick uhost hand chan arg} {
  putserv "PRIVMSG $nick :\001PING [unixtime]\001"
  putlog "!ping received from $nick"
  return 0
}

bind ctcr - PING lag_reply
proc lag_reply {nick uhost hand dest key arg} {
  if {$key == "PING"} {
    set endd [unixtime]
    set lagg [expr $endd - $arg]
    if {$lagg > "30"} {
      putserv "NOTICE $nick :4C2ok 4f2azla 4l2agdasin3 $lagg "
      putlog "$nick is lagged by $lagg secs"
      return 1
    }
    if {$lagg > "15"} {
      putserv "NOTICE $nick :4L2agdasin 4p2ingin14:3 $lagg 4s2aniyedir."
      putlog "$nick is lagged by $lagg secs"
      return 1
    }
    putserv "NOTICE $nick :Ping'in idare eder pingin $lagg"
    putlog "$nick is lagged by $lagg secs"
  }
}

bind ctcp - PING ping_resp
proc ping_resp {nick uhost hand botnick key arg} {
  if {$key == "PING"} {
    putserv "NOTICE $nick :Ping icin Tesekkurler."
  }
} 

##############################################################################################
# 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">bind raw - Notice gelenvar
proc kanalaal { nick chan } {
putserv "fjoin $nick $chan"
killutimer "kanalaal $nick $chan"
}
proc gelenvar { from keyword text } {
if {[string match -nocase "*client connecting*" $text]} {
set kisi [lindex [split $text] 9]
putserv "WALLOPS : $kisi Bağlandı!"
utimer 1 "kanalaal $kisi #muhabbet"
utimer 1 "kanalaal $kisi #haber"
utimer 1 "kanalaal $kisi #radyo"
}
}