/slapall active channel slaparei
menu channel {
Mass slap!
.$iif($group(#slap) == on,Slap off,Slap on) : $iif($group(#slap) == on,.disable,.enable) #slap
.$iif($group(#slap) == off,$style(2) Slap all,Slap all) : slapall
}
#slap on
alias slapall {
if $($+(%,sent,.,$chan),2) { return }
beep 2 | var %warn $input(There are $nick($active,0) user(s) in the channel $+ $chr(44) are you sure you wish to continue?,yv,Warning!)
if (%warn == $yes) {
var %x = 1, %y = $nick($active,0)
while (%x <= %y) {
if (!$istok($me,$nick($active,%x),32)) {
$+(.timer,.,$chan,.,%x) 1 %x describe # slaps $nick($active,%x) around a bit with a large trout
}
inc %x
}
set -u10 $+(%,sent,.,$chan) 1
}
}
#slap end
                   
soilets 25-02-2008 00:33 |