@verb #490:"@set-mode @mode" any none none rxdo #55
@program #490:"@set-mode @mode" any none none
if (!(p = player in this.users))
  return player:tell("You must `@addfeature $emootions' first.")
endif
if ($code_utils:task_valid(this.frozen))
  return player:tell("eMOOtions is currently updating it's user list.  Please try again in approximately 1 minute.")
endif
if (!args)
  return player:tell("You must specify a mode to switch to.")
elseif (!(mode = args[1] in this.modes))
  return player:tell("You must choose one of the following modes: ", $string_utils:from_list(this.modes, " "))
endif
this.modes[p] = mode
return player:tell("New eMOOtions mode set to `", args[1], "'")
"Last modified by Raptor (#6319) on Tue Sep 15 14:41:41 1998 EDT."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:43 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:43 2002 MDT."
.