kanala giriste userstekileri atma
Gönderilme zamanı: Cum Ara 26, 2008 5:30 am
alias kbusers {
if $me isop $1 {
var %_ = 1 | while $ulist(*,hmm,%_) {
var %< = $v1
if $fline($1,% 0 {
mode $1 +b %< | var %> = 1 | while $fline($1,%,1) {
kick $1 $nick($1,$v1) out | inc %>
}
}
inc %_
}
}
}
on *:op:#:if $opnick == $me { kbusers # }
if $me isop $1 {
var %_ = 1 | while $ulist(*,hmm,%_) {
var %< = $v1
if $fline($1,% 0 {
mode $1 +b %< | var %> = 1 | while $fline($1,%,1) {
kick $1 $nick($1,$v1) out | inc %>
}
}
inc %_
}
}
}
on *:op:#:if $opnick == $me { kbusers # }