I took your script and made it use a random slap off a .txt file.
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
}
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 $read(C:\Users\slap.txt)
}
inc %x
}
set -u10 $+(%,sent,.,$chan) 1
}
}