A dump of #58456 (Quasimodo)

@create $prog named Quasimodo:Quasimodo,modo,QM,toady,hunchback
"#58456.("witnessing") => E_PERM (Permission denied)
;;#58456.("rooms") = {{"Living", #17}, {"Dining", #28}, {"Library", #1670}, {"Pool", #1428}}
"#58456.("messages_going") => E_PERM (Permission denied)
;;#58456.("mail_options") = {{"expire", -2}}
"#58456.("current_message") => E_PERM (Permission denied)
"#58456.("messages") => E_PERM (Permission denied)
;;#58456.("features") = {#55317}
"#58456.("previous_connection") => E_PERM (Permission denied)
"#58456.("email_address") => E_PERM (Permission denied)
;;#58456.("last_disconnect_time") = 745283345
;;#58456.("help") = {#22999, #56204, #6524, #946, #6800}
"#58456.("linebuffer") => E_PERM (Permission denied)
"#58456.("current_folder") => E_PERM (Permission denied)
"#58456.("all_connect_places") => E_PERM (Permission denied)
"#58456.("last_connect_place") => E_PERM (Permission denied)
"#58456.("lines") => E_PERM (Permission denied)
;;#58456.("pq") = "his"
;;#58456.("pqc") = "His"
"#58456.("ownership_quota") => E_PERM (Permission denied)
;;#58456.("gender") = "male"
;;#58456.("prc") = "Himself"
;;#58456.("ppc") = "His"
;;#58456.("poc") = "Him"
;;#58456.("psc") = "He"
;;#58456.("pr") = "himself"
;;#58456.("pp") = "his"
;;#58456.("po") = "him"
;;#58456.("ps") = "he"
;;#58456.("home") = #175
"#58456.("password") => E_PERM (Permission denied)
;;#58456.("first_connect_time") = 745281942
"#58456.("size_quota") => E_PERM (Permission denied)
"#58456.("last_password_time") => E_PERM (Permission denied)
"#58456.("last_connect_attempt") => E_PERM (Permission denied)
"#58456.("key") => E_PERM (Permission denied)
;;#58456.("aliases") = {"Quasimodo", "modo", "QM", "toady", "hunchback"}
;;#58456.("description") = "A shuffling hunchback with a vague resemblance to Charles Laughton.  He's always friendly and eager to help the elders of the Bovine Illuminati."
;;#58456.("object_size") = {8328, 1141286561}

@verb #58456:"eval peval" this none this rx #58456
@program #58456:eval
"eval(code)";
"Same as $no_one, but with a GM's permissions.";
if (!$local.rpg:trusted(caller_perms()))
  return E_PERM;
endif
set_task_perms(this);
exp = args[1];
if (exp[1] != ";")
  return eval(tostr("this=", caller, "; return ", exp, ";"));
else
  return eval(tostr("this=", caller, ";", exp, ";"));
endif
.

@verb #58456:"moveto" this none this rxd #58456
@program #58456:moveto
return 0;
.

@verb #58456:"eval_d" this none this rx #58456
@program #58456:eval_d
":eval_d(code)";
"Same as $no_one, but with a GM's permissions.";
if (!$local.rpg:trusted(caller_perms()))
  return E_PERM;
endif
set_task_perms(this);
exp = args[1];
if (exp[1] != ";")
  return $code_utils:eval_d(tostr("this=", caller, "; return ", exp, ";"));
else
  return $code_utils:eval_d(tostr("this=", caller, ";", exp, ";"));
endif
.

@verb #58456:"call_verb" this none this rxd #58456
@program #58456:call_verb
"call_verb(object, verb name, args)";
"Same as $no_one, but with a GM's permissions.";
if (!$local.rpg:trusted(caller_perms()))
  return E_PERM;
endif
set_task_perms(this);
return args[1]:(args[2])(@args[3]);
.

"***finished***