elseif ($regex($1,/^[!.]active/Si)) && ($nick !isreg #) {
    if (!$gettok($hget(active,active),$nick,32)) {
      notice $nick You have been added to the list of Keyers available to take leeches. Time added: $time
      hadd -ma active active $hget(active,active) $nick

    }
    elseif ($gettok($hget(active,active),$nick,32)) {
      notice $nick You are already on the list of active keyers
    }
    elseif (!$nick !isreg) { notice $nick You are not a keyer!
    }
  }
  elseif ($regex($1,/^[!.]remove/Si)) && ($nick !isreg #) {
    if ($gettok($hget(active,active),$nick,32)) {
      notice $nick You have been removed from the list of keyers able to take leeches.
      hadd active active $remtok($hget(active,active),$nick,1,32)
    }
    elseif (!$gettok($hget(active,active),$nick,32)) {
      notice $nick You are not currently on the list of available keyers!
    }
  }
  elseif ($regex($1,/^[!.]open/Si)) {
    msg # 2 The list of keyers available to take leechers is as follows:3 $hget(active,active)
  }