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

Kod:
## Ban sebebi ?

set awhois(bansebep) "Whois'niz sunucu kurallarina aykiri!."

 

## Ban Suresi ? 0= temelli

## 90 = 90 dakika

set awhois(sure) "90"

 

# 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.
Kontrol edilicek kanallar.?

 

set kanallar { #Sohbet }

 

##

 

  foreach chan [channels] {

set kanallar $chan

  }

 

bind join - * awhois(join)

 

##

 

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 ...!"
Lütfen Yardımmmmmmm;huh