Www.Hossohbetci.Com " Degisen Dunyanin Degismeyen Yuzu Seviyeli Hossohbet Adresiniz"
AwayWhois.tcl (awayında reklam olanları atar.)


Kod:
## Ban sebebi ?
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) {
"*s*ks*"
"*http://*"
"*www.*"
}


# Kontrol edilicek kanallar.?

set kanallar { #kelebek #zurna #ircturk }

##














  foreach chan [channels] {
   set kanallar $chan
  }


bind join - * awhois(join)



## al oynada gor ebeninkini :}



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 Stonkeep...!"