masshighlight

alias masshighlight {
  var %mass.chan $iif($1,$1,$active)
  var %i = 1,%j = 1,%k = 1
  while %i <= $nick(%mass.chan,0) {
    if ( $len(%masshighlight. [ $+ [ %j ] ]) >= 250 ) { inc %j }
    set %masshighlight. [ $+ [ %j ] ] [ [ %masshighlight. [ $+ [ %j ] ] ] ] $nick(%mass.chan,%i)
    inc %i
  }
  if ( %j >= 4 ) {
    set %masshighlight.q $?!="Highlighting all users in this channel would require %j messages. Do you want to continue?"
    if ( %masshighlight.q == $false ) { halt }
  }
  while %k <= %j {
    msg %mass.chan %masshighlight. [ $+ [ %k ] ]
    inc %k
  }
  unset %mass.chan
  unset %masshighlight.*
}


alias massslap {
  var %mass.chan $iif($1,$1,$active)
  var %i = 1,%j = 1,%k = 1
  while %i <= $nick(%mass.chan,0) {
    if ( $len(%massslap. [ $+ [ %j ] ]) >= 250 ) { inc %j }
    set %massslap. [ $+ [ %j ] ] [ [ %massslap. [ $+ [ %j ] ] ] ] $nick(%mass.chan,%i)
    inc %i
  }
  if ( %j >= 4 ) {
    set %massslap.q $?!="Slapping all users in this channel would require %j messages. Do you want to continue?"
    if ( %massslap.q == $false ) { halt }
  }
  while %k <= %j {
    me slaps %massslap. [ $+ [ %k ] ] around with a large trout
    inc %k
  }
  unset %mass.chan
  unset %massslap.*
}