{{{#2633, "rxdo", "_confunc", 1}, {"if (caller_perms() != this && !caller_perms().wizard)", " raise(E_PERM);", "endif", "set_connection_option(#2633, \"binary\", 0);", "`this:filedelete(\"all_connect_places\") ! ANY';", "this:reset_this();", "this:mail_catch_up();", "this:check_mail_lists();", "this:perform_script(\"_confunc\");", "\"Last modified by Eve (#2633) on Wed Sep 27 16:49:32 2000 MDT.\";"}}, {{#2633, "rxd", "look_self description", 2}, {"if (this:_bounce())", " return player:tell(\"Mostly harmless.\");", "elseif (this:get_first_ov()[2] == \"@spy\")", " `this:hack_spy() && this:title() ! ANY';", "elseif (verb == \"description\")", " return this.description;", "endif", "p = player;", "desc = this.description;", "desc = typeof(desc) == LIST ? desc | {desc};", "name = p:isa($webber) ? p.user | p;", "this:tell(name.name, \" looks at you.\");", "if ($vanish in $eve.wielding && $vanish.vanished)", " return player:tell(\"You can't see her.\");", "endif", "{miconn, conn} = {this:connected(), $no_one:eval(\"$eve:connected()\")[2]};", "tag = {\"(offline)\", \"(invis)\", \"(online)\"}[miconn + conn + 1];", "tag = !miconn && tag == \"(invis)\" ? \"(offline)\" | tag;", "p:tell(this:title(), \" : \", tag);", "if (tag != \"(online)\")", " player:tell(\"To jot a quick note type: @note $Eve\");", "endif", "for line in (desc)", " p:tell(line);", "endfor", "for item in (this.wielding)", " p:tell(item.msg_wearing, \" (\", item, \")\");", "endfor", "\"Last modified by Eve (#2633) on Wed Apr 18 14:59:32 2001 MDT.\";"}}, {{#2633, "rxd", "_disfunc", 3}, {"this:reset_this();", "\"Last modified by Janette (#2633) on Wed Aug 8 23:52:23 2001 MDT.\";"}}, {{#2633, "rxd", "ansi_normal", 4}, {"return \"&esc;[0;37;40m\";"}}, {{#2633, "xdo", "eval_cmd_string", 5}, {"if (caller_perms() != this)", " return E_PERM;", "endif", "return pass(@args);"}}, {{#2633, "rxd", "msg_page_echo msg_page_absent msg_page_sleeping", 6}, {"dangers = {\"robbed\", \"waylaid\", \"beaten up\", \"confused\", \"really drugged\", \"murdered\"};", "if (this.msg_doing)", " msg = tostr(this:title(), \" is \\\"\", this.msg_doing, \"\\\". She may be back soon,\");", " return msg + \" unless she gets \" + dangers[random($)] + \"!\";", "endif", "return $eve.msg_page_echo;", "\"Last modified by Demoness (#2633) on Sat Jul 28 18:59:59 2001 MDT.\";"}}, {{#2633, "d", "moveable", 7}, {"this = this.owner;", "if (player == this || caller_perms().wizard)", " return 1;", "endif", "return 0;", "\"Last modified by Janette (#2633) on Wed Aug 8 23:54:59 2001 MDT.\";"}}, {{#2633, "rxd", "title", 8}, {"`this:check_argstr() ! ANY';", "`$dperms:only_progs(player, \"canteloupe\") ! ANY';", "aliases = {\"Janette\", \"demi\", \"dementria\"};", "if (this == $ever)", " return $ever.name;", "elseif ($modes:flag_on($eve_notify, \"ansi_name\"))", " name = tostr(this:aliases_color(aliases[random($)]));", "else", " name = tostr(aliases[random($)]);", "endif", "if (this:_bounce())", " return \"\";", "endif", "name = this.msg_mood ? name + \" (\" + this.msg_mood + \")\" | name;", "if (player == #8084)", " \"silly Lao..\";", " return name;", "endif", "return random(10) > 5 ? $stuff:render_b(name) | $stuff:render_u(name);", "\"Last modified by Janette (#2633) on Mon Sep 17 11:24:24 2001 MDT.\";"}}, {{#2633, "rxd", "tell", 9}, {"r = $eve_notify:notify(@args);", "if (r)", " return pass(r);", "endif", "\"Last modified by Demoness (#2633) on Mon Jun 25 14:21:56 2001 MDT.\";"}}, {{#2633, "rxd", "handle_uncaught_error hue", 10}, {"ll = this:linelength() - 26;", "notify(this, \"=> \" + tostr(toliteral(args[1]), \", \", toliteral(args[2])));", "notify(this, $su:left(\"Callers\", 20) + \" Line\" + $su:space(ll - 6) + \" \" + \" #\");", "notify(this, $su:space(20, \"-\") + \"|\" + $su:space(ll, \"-\") + \"-|---\");", "for line in (args[4])", " {what, verb} = {line[4], line[2]};", " try", " o_line = $su:trim(tostr(verb_code(what, verb)[line[$]]));", " except (ANY)", " o_line = \"?\";", " endtry", " o_line = $su:wrap(o_line, ll);", " notify(this, tostr($su:left(tostr(what, \":\", verb), 20), \"| \", $su:left(o_line[1], ll), \"|\", $su:right(line[$], 3)));", " for new_line in (listdelete(o_line, 1))", " notify(this, tostr($su:space(20), \"| \", $su:left(new_line, ll), \"|\"));", " endfor", "endfor", "return 1;"}}, {{#2633, "rxd", "last_huh", 11}, {"\":last_huh(verb,args) final attempt to parse a command...\";", "if (caller_perms() != $eve)", " raise(E_PERM);", "endif", "arg1 = args;", "verb = args[1];", "args = args[2];", "for cobj in ({@this.utils, @this.wielding})", " if (cobj:has_callable_verb(verb))", " argstr = $su:from_list(args, \" \");", " cobj:(verb)(@args);", " return 1;", " endif", "endfor", "return pass(@arg1);", "\"Last modified by Eve (#2633) on Mon Oct 16 16:03:06 2000 MDT.\";"}}, {{#2633, "x", "do_command", 12}, {"if (caller_perms() != $eve)", " raise(E_PERM);", "endif", "argstr = !argstr ? tostr(args) | argstr;", "try", " if (index(argstr, \"***\"))", " this:tell(\"Command aborted.\");", " return 1;", " endif", "except e (ANY)", " notify(this, toliteral(e));", "endtry", "return pass(@args);", "\"Last modified by Janette (#2633) on Wed Aug 8 23:57:17 2001 MDT.\";"}}, {{#2633, "rxd", "reset_this", 13}, {"if (caller_perms() != $eve)", " return E_PERM;", "endif", "$eve:tell(\"Running: $ever:reset_this()\");", "this.temp = this.copy = 0;", "this.vp_value = 0;", "this.vp_name = \"\";", "this.vp_info = this.vp_args = {};", "\"Last modified by Eve (#2633) on Wed Sep 27 15:29:49 2000 MDT.\";"}}, {{#2633, "rxd", "perform_script", 14}, {"scripts = this.scripts;", "if (caller_perms() != $eve)", " player:tell(\"Umm..? Die..\");", " raise(E_PERM);", "elseif (!(script = listassoc(scripts, args[1])[2]))", " $eve:tell(args[1], \" is not a script.\");", " raise(E_INVARG);", "endif", "$eve:tell(\"Performing Script: \", args[1]);", "for line in (script)", " force_input(this, line);", "endfor", "\"Last modified by Eve (#2633) on Wed Sep 27 15:39:13 2000 MDT.\";"}}, {{#2633, "rxd", "_bounce", 15}, {"{co, cv} = callers()[2][1..2];", "zv = callers()[1][2];", "if (co != $eve && cv == zv)", " return 1;", "endif", "return 0;", "\"Last modified by Janette (#2633) on Wed Aug 8 23:47:18 2001 MDT.\";"}}, {{#2633, "rxd", "check_argstr", 16}, {"if (typeof(argstr) != STR)", " player:tell(\"However you did it.. argSTR is supposed to be a string. ~Eve\");", " argstr = tostr(@argstr);", "endif", "if (this.task_check_argstr == task_id())", " return;", "elseif (player == $eve)", " return;", "endif", "this.task_check_argstr = task_id();", "aliases = {\"#2633\", \"$eve\", @this.aliases};", "for name in (aliases)", " if (index(argstr, name))", " {vobj, vname} = this:get_first_ov();", " $eve_notify:tell_awareness(player.name, \" calling from \", vobj, \":\", vname, \"() with argstr: \", argstr, \" [\", task_id(), \"]\");", " break;", " endif", "endfor", "\"Last modified by Janette (#2633) on Mon Sep 17 10:47:38 2001 MDT.\";"}}, {{#2633, "rxd", "get_first_ov get_last_ov", 17}, {"if (verb == \"get_first_ov\")", " return {callers()[$][1], callers()[$][2]};", "else", " return {callers()[2][1], callers()[2][2]};", "endif", "\"Last modified by Eve (#2633) on Thu Oct 12 11:55:19 2000 MDT.\";"}}, {{#2633, "rxd", "encrypt decrypt", 18}, {"{basic_msg, pass} = args;", "new_msg = {};", "basic_msg = this.(basic_msg);", "for line in (basic_msg)", " if (verb == \"encrypt\")", " new_msg = {@new_msg, #111:cs1_encrypt(line, pass)};", " else", " new_msg = {@new_msg, #111:cs1_decrypt(line, pass)};", " endif", " suspend(0);", "endfor", "return new_msg;", "\"Last modified by Eve (#2633) on Wed Feb 21 18:43:46 2001 MST.\";"}}, {{#2633, "rxd", "aliases_color", 19}, {"return $stuff:colorify(args[1], \"random\");", "\"Last modified by Janette (#2633) on Sat Aug 4 19:11:30 2001 MDT.\";"}}, {{#2633, "rxd", "invis_*", 20}, {"user = $eve;", "if (caller_perms() != $eve && !caller_perms().wizard)", " raise(E_PERM);", "elseif (verb == \"invis_set\")", " {invis, loud} = args;", " if (loud && invis)", " $login:user_disconnected(user);", " elseif (loud && !invis)", " $login_watcher:bonk_on_confunc(user);", " $login:user_connected(user);", " endif", " return this.invisible = invis;", "elseif (verb == \"invis_get\")", " {?me = 1} = args;", " return me ? this.invisible | connected_players();", "endif", "\"Last modified by Janette (#2633) on Mon Sep 17 14:01:11 2001 MDT.\";"}}, {{#2633, "rxd", "hack_spy", 21}, {"if (!this.spy_fake || player.wizard || player:isa($guardian))", " return;", "endif", "\"delayed..\";", "\"Last modified by Janette (#2633) on Mon Sep 17 14:11:32 2001 MDT.\";"}}}
The property is defined on this object (not inherited).