@verb #1110:"voice" this none this rxdo #9342
@program #1110:"voice" this none this
"Interperate voice commands to lock and unlock the cell."
caller == this || raise(E_PERM)
if (!(index(args[1], " says, \"") && (index(args[1], "lock") && index(args[1], "cell"))))
  return
endif
text = $string_utils:strip_all_but(args[1], $string_utils.alphabet)
if (index(text, "lockcell"))
  fork (0)
    if (index(text, "unlockcell"))
      if (player.location == #995)
        this.task_ID ? this:announce_all("The force field lock has been manually released.") | player:tell("The force field is already down.")
        this:unlock()
      endif
    else
      this:announce_all("The force field lock has been " + (this.task_ID ? "reset" | "set") + " to 90 seconds.")
      this:lock()
    endif
  endfork
endif
"Last modified by Dax (#789) on Mon May  7 11:55:38 2001 MDT."
.