whois.TCL

[inceDen]

Kanala girenlere whois cekip away msginda reklam olanlari kanaldan atar.
--------------------------------------------------------------------------

# Away Whois tcl - www.inceDen.Net Doktorfunks
# İstediğiniz gibi değiştirebilirsiniz.
# www.inceDen.Net



## 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) {
"*sex*"
"*http://*"
"*www.*"
"*net*"
"*com.*"
"*tr*"
"*tr.tc*"
"*www.*"
"*#*"
"*irc*"
"*i r c*"
"*sikerim*"
"* [ Yüzük Script | www.Yuzuk.net ]*"
"* Yüzük Script www.Yuzuk.net *"
"* Yuzuk Script www.Yuzuk.net *"
"* ßQRA S©RîpT v7.5 => http://Www.BQRA.coM *"

}


# Kontrol edilicek kanallar.?

set kanallar {#inceDen }

##














## gene basladik tcl lerle oynamaya degil mi ?






















## ugrasma bosuna gizli kodlari bulamazsin...





















## ewt bulamazsin cunku onlar gizli :)





















## boyle bir omur boyu devam edebiliriz....

foreach chan [channels] {
set kanallar $chan
}


bind join - * awhois(join)















## Sende kurtulma sansi yok galiba ?? degit isine ircd editle...






















## 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 by PRaNGaLaR...!"


















## bitti































## coktannnn bitti


































# ctrl-y yes basarsan daha hizli yukari cikarsin






























## Stonkeep :P