menu nicklist {
  -
  Modee
  .Voice: modee +v ^
  .Devoice: modee -v ^ 
  .Aop: modee +o ^
  .Deop: Modee -o ^
  .Halfop: Modee +h ^
  .DeHalfop: Modee -h ^
  .Proctect: modee +a ^
  .Deprotect: modee -a ^
  .Owner: modee +q ^
  .Deowner: modee -q ^
  .Ban: modee +b ^
  .Unban: modee -b ^
  .+e: modee +e ^
  .-e: modee -e ^
  -
}

alias Modee {
  var %Tr1 = $left($1,1) | var %Tr2 | var %Triv = 1
  while (%Triv <= $nick($chan,0)) {
    %Tr1 = %Tr1 $+ $lower($right($1,1)) | %Tr2 = %Tr2 $nick($chan,%Triv)
    if ($calc(%Triv % 6) == 0) { mode $chan %Tr1 %Tr2 | var %Tr2 | %Tr1 = $left($1,1) }
    inc %Triv
  }
  mode $chan %Tr1 %Tr2
}
}