@verb #2945:"text" this none this rxdo #789
@program #2945:"text" this none this
cp = caller_perms()
if (parent(this) != #2945 && this != #2945)
  fork (0)
    this:do_burn()
  endfork
  return "Nice try, but you can't make counterfeit permits that easily."
elseif ($perm_utils:controls(cp, this) || this:is_readable_by(cp))
  time_left = this.clock_task ? $clock:info(this.clock_task)[7] - time() | 0
  time_left = "You have " + $time_utils:english_time(time_left) + " to answer this question."
  info = this.(tostr("q", this.state))
  text = tostr("Create a @message on ", info[1], " such that ", info[2], ":")
  if (info[1] == "any object")
    answer = {"To answer the permit, type:  answer permit with #1234", "Use the object number of the object with the message."}
  else
    answer = "To answer the permit, type:  answer permit"
  endif
  return {text, info[3], "", time_left, @answer, "If the answer is incorrect it may give you a hint."}
else
  return E_PERM
endif
"Last modified by Dax (#789) on Fri Nov  1 14:01:56 2002 MST."
.