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