Something

alias kbsp {
  var %w = $0
  var %x = 1
  while (%x <= %w) {
    var %y = $eval($+($,%x),2)
    if (%y ison $chan) { 
      var %z = %z $address(%y,2)
    }
    if ($numtok(%z,32) == $modespl) {
      mode $chan $+(+,$str(b,$numtok(%z,32))) %z 
    }
    inc %x
  } 
  mode $chan $+(+,$str(b,$numtok(%z,32))) %z
  var %x = 1
  while (%x <= %w) {
    var %y = $eval($+($,%x),2)
    if (%y ison $chan) {
      kick $chan %y Spam.
    }
    inc %x
  }
}