View/Edit #13:deval

Name(s): deval

1:  if (match(argstr, "^ *%(;%|%(if%|fork?%|return%|while%)[^a-z0-9A-Z_]%)"))
2:    program = argstr + ";"
3:  else
4:    program = "return " + argstr + ";"
5:  endif
6:  add_verb($no_one, {$no_one, "", "devaluation"}, {"this", "none", "this"})
7:  r = set_verb_code($no_one, "devaluation", {program})
8:  if (!r)
9:    r = disassemble($no_one, "devaluation")
10: endif
11: delete_verb($no_one, "devaluation")
12: player:tell(r)
13: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
14: "Last modified by whiz (#3135) on Wed May  7 23:10:50 2008 EDT."

Verb arguments: any any any
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.