2a6
@verb #14:"@setenv" any any any ro #55
@program #14:"@setenv" any any any
"Usage: @setenv <environment string>"
"Set your .eval_env property.  Most useful when eval won't work to set it"
"because your .eval_env contains an error."
set_task_perms(player)
if (!argstr)
  return player:tell("Usage:  ", verb, " &lt;environment string&gt;")
endif
player:tell("Current eval environment is: ", player.eval_env)
result = player:set_eval_env(argstr)
if (typeof(result) == $ERR)
  return player:tell(result)
endif
player:tell(".eval_env set to \"", player.eval_env, "\" (", player.eval_ticks, " ticks).")
"Last modified by Dax (#789) on Tue May  3 13:45:56 2005 MDT."
.

0