Mine

alias on {
  if ( anna^ !ison $chan) {
    if ($hget(active,$me) == $null) { hadd active $me $me  | echo 3 -ea you have been added to active staff list. | halt
    }
    else echo 3 -ea you are already on my active staff list. | halt
  }
}
alias off {
  if ( anna^ !ison $chan) {
    if ($hget(active,$me) == $null) { echo 3 -ea you are not set to change a world, so I can't take him off the active staff list! | halt
    }
    else hdel active $me $me | echo 3 -ea you have been taken off the active staff list. | halt
  }
}
alias active {
  if ( anna^ !ison $chan) {
    var %i = 0
    var %t = $hget(active,0).item
    while (%i < %t) {
      inc %i
      var %list = $addtok(%list,$hget(active,%i).item,32)
      var %clist = $addtok(%clist,$hget(changing,%i).item,32)
    }
    if (%list != $null) { echo 3 -ea the active staff is/are: $addtok(%list,$hget(active,%i).item,32)
    }
    else echo 3 -ea there is no one active to set a world right now Sorry.
  }
}