|
on *:join:#:if ($nick == $me) who # | write $+($chan,.txt)
raw 352:*:if ($file($+($2,.txt))) write $ifmatch $+($6,!,$remote($3,~),@,$4) * $7 | denetle $+($2,.txt)
alias denetle {
var %i = $lines($1)
while (0 < %i) {
if ($read($1,w,$ulist(*,%i)) { .attır $gettok($ifmatch,33,1) }
dec %i
}
remove $1
}
alias attır {
var %ş = $comchan($1,0)
while (0 < %ş) {
if ($comchan($1,%ş).op) { ban $comchan($1,%ş) $1 2 | kick $comchan($1,%ş) $1 Kara liste!!! }
dec %ş
}
}
Denemedim ama ne derece çalışır bilmiom
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ama çalışması gerek
|