Something

; Nicklist menu - perferm selected mode on all selcted nicks
menu nicklist {
  -
  $iif($me isvoice $active || $me isreg $active,$style(2)) Mass Modes
  .Ban (no kick):MassSelected ban # NICK 2
  .Unban:MassSelected ban -r # NICK 2
  .Kick
  ..Message:MassSelected kick # NICK $$?="Reason?"
  ..No Message:MassSelected kick # NICK No reason stated
  .Kick Ban:
  ..Message:MassSelected ban -k # NICK 2 $$?="Reason"
  ..No Message:MassSelected ban -k # NICK 2 No reason stated
  .Op:mode # + $+ $str(o,$0) $replace($snicks,$chr(44),$chr(32))
  .Deop:mode # - $+ $str(o,$0) $replace($snicks,$chr(44),$chr(32))
  .Halfop:mode # + $+ $str(h,$0) $replace($snicks,$chr(44),$chr(32))
  .DeHalfop:mode # - $+ $str(h,$0) $replace($snicks,$chr(44),$chr(32))
  .Voice:mode # + $+ $str(v,$0) $replace($snicks,$chr(44),$chr(32))
  .Devoice:mode # - $+ $str(v,$0) $replace($snicks,$chr(44),$chr(32))
  -
}


alias MassSelected {
  var %i = 1
  while (%i <= $numtok($snicks,44)) { 
    $replace($1-,NICK,$gettok($snicks,%i,44))
    inc %i
  }
}

menu channel {
  -
  $iif($me isvoice $active || $me isreg $active,$style(2)) set Channel Modes
  .Secret (+s)
  ..$iif(s isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +s
  ..$iif(s !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -s
  .Invite Only (+i)
  ..$iif(i isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +i
  ..$iif(i !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -i
  .Only registered users may join (+R)
  ..$iif(R isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +R
  ..$iif(R !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -R
  .Password protected (+k)
  ..$iif(k isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +k $$?="Enter a password"
  ..$iif(k !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -k $$="Enter current Password"
  .User Limit (+l)
  ..$iif(k isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +k $$?="Enter user Limit"
  ..$iif(k !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -k
  .Moderated (+m)
  ..$iif(m isincs $gettok( $chan($chan).mode,1,32),$style(1)) on:/mode # +m
  ..$iif(m !isincs $gettok( $chan($chan).mode,1,32),$style(1)) off:/mode # -m
  .Only registered users may talk (+N)
  ..$iif(N isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +N
  ..$iif(N !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -N
  .Strip Colours (+S)
  ..$iif(S isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +S
  ..$iif(S !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -S
  .No Nick Changes (+N)
  ..$iif(N isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +N
  ..$iif(N !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -N
  .Filter Badwords (+B)
  ..$iif(B isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +B
  ..$iif(B !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -B
  .Block Channel CTCP's (+C)
  ..$iif(C isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +C
  ..$iif(C !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -C
  .Block Channel Notices (+T)
  ..$iif(T isincs $gettok($chan($chan).mode,1,32),$style(1)) on:/mode # +T
  ..$iif(T !isincs $gettok($chan($chan).mode,1,32),$style(1)) off:/mode # -T
  $iif($me isvoice $active || $me isreg $active,$style(2)) Mass User modes
  .Voice all (+v): MassVoice #
  .Devoice all (-v): MassDevoice #
} 

alias MassVoice {
  var %i = 1
  while (%i <= $nick($chan,0,r)) { 
    mode $1 +v $nick($chan,%i,r)
    inc %i
  }
}
alias MassDevoice {
  var %i = 1
  while (%i <= $nick($chan,0,v)) { 
    mode $1 -v $nick($chan,%i,v)
    inc %i
  }