"A dump of #58456 on Sun Dec 17 13:40:09 1995 PST

@create $prog named Quasimodo:Quasimodo,modo,QM,toady,hunchback
;;#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") = {6837, 819193023}

@verb #58456:"eval" 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***