292
@verb #13:"deval" any any any rdo #55
@program #13:"deval" any any any
if (match(argstr, "^ *%(;%|%(if%|fork?%|return%|while%)[^a-z0-9A-Z_]%)"))
  program = argstr + ";"
else
  program = "return " + argstr + ";"
endif
add_verb($no_one, {$no_one, "d", "devaluation"}, {"this", "none", "this"})
r = set_verb_code($no_one, "devaluation", {program})
if (!r)
  r = disassemble($no_one, "devaluation")
endif
delete_verb($no_one, "devaluation")
player:tell(r)
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Cecil (#7407) on Wed Sep 18 20:23:49 2002 MDT."
.

0