generic player `#6`

Parent #102Owner #2Flags obsolete1, read, fertileSource RPG Core/rpgcore-patched.db

Aliases: generic player

100 verbs · 58 properties · 1 children

Verbs

Verb Spec Flags Definer Lines

init_for_core this none this rxd #6 22

confunc this none this rxd #6 5

disfunc this none this rxd #6 7

initialize this none this rxd #6 6

acceptable this none this rxd #6 1

my_huh this none this rxd #6 35

last_huh this none this rxd #6 14

my_match_object this none this rxd #6 2

tell_contents this none this rxd #6 18

titlec this none this rxd #6 1

notify this none this rxd #6 64

notify_lines this none this rxd #6 8

linesplit this none this rxd #6 14

linelen this none this rxd #6 1

@more any none none rd #6 31

@wrap none any none rd #6 14

@linelen*gth any none none rd #6 25

@pagelen*gth any none none rd #6 35

tell this none this rxd #6 13

gag_p this none this rxd #6 24

set_gaglist this none this rxd #6 6

@gag*! any any any rd #6 26

@listgag @gaglist @gagged any none none rxd #6 19

@ungag any none none rxd #6 24

whodunnit this none this rxd #6 10

@ch*eck-full any any any rd #6 62

@paranoid any any any rd #6 21

@sw*eep none none none rd #6 36

wh*isper any at/to this rxd #6 2

page any any any rxd #6 43

receive_page this none this rxd #6 12

page_origin_msg page_echo_msg page_absent_msg this none this rxd #6 2

i inv*entory none none none rd #6 5

look_self this none this rxd #6 13

home none none none rxd #6 30

@sethome none none none rd #6 10

g*et take this none none rxd #6 2

@move @teleport any at/to any rxd #6 41

@eject @eject! @eject!! any out of/from inside/from any rd #6 32

where*is @where*is any any any rxd #6 18

@who any any any rxd #6 11

@wizards any none none rxd #6 9

?* help info*rmation @help any any any rxd #6 50

display_option this none this rxd #6 6

edit_option this none this rxd #6 6

set_mail_option set_edit_option set_display_option this none this rxd #6 21

@mailo*ptions @mail-o*ptions @edito*ptions @edit-o*ptions @displayo*ptions @display-o*ptions any any any rd #6 29

set_name this none this rxd #6 26

set_aliases this none this rxd #6 48

@rename*# any at/to any rd #6 92

@addalias*# @add-alias*# any at/to any rd #6 116

@rmalias*# @rm-alias*# any out of/from inside/from any rd #6 97

@desc*ribe any as any rd #6 9

@mess*ages any none none rd #6 37

@notedit any none none rd #6 1

@last-c*onnection any none none rxd #6 28

set_gender this none this rxd #6 10

@gender any none none rd #6 17

set_brief this none this rxd #6 12

@mode any any any rd #6 23

@exam*ine any none none rxd #6 105

exam*ine any none none rd #6 10

add_feature this none this rxd #6 35

remove_feature this none this rxd #6 21

@add-feature @addfeature any none none rxd #6 33

@remove-feature @rmfeature any none none rxd #6 19

@features any for/about any rxd #6 38

@memory none none none rd #6 32

@version none none none rd #6 14

@uptime none none none rd #6 1

@quit none none none rd #6 3

examine_commands_ok this none this rxd #6 1

is_listening this none this rxd #6 2

moveto this none this rxd #6 6

announce*_all_but this none this rxd #6 9

linewrap this none this rxd #6 3

@set-note-string @set-note-text any none none rd #6 30

verb_sub this none this rxd #6 6

ownership_quota this none this rxd #6 5

tell_lines this none this rxd #6 18

@lastlog any none none rxd #6 43

set_linelength this none this rxd #6 15

set_pagelength this none this rxd #6 16

set_home this none this rxd #6 19

@registerme any any any rd #6 64

ctime this none this rxd #6 3

@age any none none rd #6 30

news any none none rxd #6 46

@edit any any any rd #6 14

erase_paranoid_data this none this rxd #6 5

@move-new any any any rd #6 26

notify_lines_suspended this none this rxd #6 9

_chparent this none this rxd #6 2

@users none none none rxd #6 4

@password any any any rd #6 25

recycle this none this rxd #6 13

gc_gaglist this none this rxd #6 10

@ping @idle none any any rd #6 8

_ping this none this rxd #6 10

@unping @unidle none any any rd #6 1

Verb	Spec	Flags	Definer	Lines
`init_for_core`	`this none this`	`rxd`	#6	22
`confunc`	`this none this`	`rxd`	#6	5
`disfunc`	`this none this`	`rxd`	#6	7
`initialize`	`this none this`	`rxd`	#6	6
`acceptable`	`this none this`	`rxd`	#6	1
`my_huh`	`this none this`	`rxd`	#6	35
`last_huh`	`this none this`	`rxd`	#6	14
`my_match_object`	`this none this`	`rxd`	#6	2
`tell_contents`	`this none this`	`rxd`	#6	18
`titlec`	`this none this`	`rxd`	#6	1
`notify`	`this none this`	`rxd`	#6	64
`notify_lines`	`this none this`	`rxd`	#6	8
`linesplit`	`this none this`	`rxd`	#6	14
`linelen`	`this none this`	`rxd`	#6	1
`@more`	`any none none`	`rd`	#6	31
`@wrap`	`none any none`	`rd`	#6	14
`@linelen*gth`	`any none none`	`rd`	#6	25
`@pagelen*gth`	`any none none`	`rd`	#6	35
`tell`	`this none this`	`rxd`	#6	13
`gag_p`	`this none this`	`rxd`	#6	24
`set_gaglist`	`this none this`	`rxd`	#6	6
`@gag*!`	`any any any`	`rd`	#6	26
`@listgag @gaglist @gagged`	`any none none`	`rxd`	#6	19
`@ungag`	`any none none`	`rxd`	#6	24
`whodunnit`	`this none this`	`rxd`	#6	10
`@ch*eck-full`	`any any any`	`rd`	#6	62
`@paranoid`	`any any any`	`rd`	#6	21
`@sw*eep`	`none none none`	`rd`	#6	36
`wh*isper`	`any at/to this`	`rxd`	#6	2
`page`	`any any any`	`rxd`	#6	43
`receive_page`	`this none this`	`rxd`	#6	12
`page_origin_msg page_echo_msg page_absent_msg`	`this none this`	`rxd`	#6	2
`i inv*entory`	`none none none`	`rd`	#6	5
`look_self`	`this none this`	`rxd`	#6	13
`home`	`none none none`	`rxd`	#6	30
`@sethome`	`none none none`	`rd`	#6	10
`g*et take`	`this none none`	`rxd`	#6	2
`@move @teleport`	`any at/to any`	`rxd`	#6	41
`@eject @eject! @eject!!`	`any out of/from inside/from any`	`rd`	#6	32
`whereis @whereis`	`any any any`	`rxd`	#6	18
`@who`	`any any any`	`rxd`	#6	11
`@wizards`	`any none none`	`rxd`	#6	9
`?* help info*rmation @help`	`any any any`	`rxd`	#6	50
`display_option`	`this none this`	`rxd`	#6	6
`edit_option`	`this none this`	`rxd`	#6	6
`set_mail_option set_edit_option set_display_option`	`this none this`	`rxd`	#6	21
`@mailoptions @mail-options @editoptions @edit-options @displayoptions @display-options`	`any any any`	`rd`	#6	29
`set_name`	`this none this`	`rxd`	#6	26
`set_aliases`	`this none this`	`rxd`	#6	48
`@rename*#`	`any at/to any`	`rd`	#6	92
`@addalias# @add-alias#`	`any at/to any`	`rd`	#6	116
`@rmalias# @rm-alias#`	`any out of/from inside/from any`	`rd`	#6	97
`@desc*ribe`	`any as any`	`rd`	#6	9
`@mess*ages`	`any none none`	`rd`	#6	37
`@notedit`	`any none none`	`rd`	#6	1
`@last-c*onnection`	`any none none`	`rxd`	#6	28
`set_gender`	`this none this`	`rxd`	#6	10
`@gender`	`any none none`	`rd`	#6	17
`set_brief`	`this none this`	`rxd`	#6	12
`@mode`	`any any any`	`rd`	#6	23
`@exam*ine`	`any none none`	`rxd`	#6	105
`exam*ine`	`any none none`	`rd`	#6	10
`add_feature`	`this none this`	`rxd`	#6	35
`remove_feature`	`this none this`	`rxd`	#6	21
`@add-feature @addfeature`	`any none none`	`rxd`	#6	33
`@remove-feature @rmfeature`	`any none none`	`rxd`	#6	19
`@features`	`any for/about any`	`rxd`	#6	38
`@memory`	`none none none`	`rd`	#6	32
`@version`	`none none none`	`rd`	#6	14
`@uptime`	`none none none`	`rd`	#6	1
`@quit`	`none none none`	`rd`	#6	3
`examine_commands_ok`	`this none this`	`rxd`	#6	1
`is_listening`	`this none this`	`rxd`	#6	2
`moveto`	`this none this`	`rxd`	#6	6
`announce*_all_but`	`this none this`	`rxd`	#6	9
`linewrap`	`this none this`	`rxd`	#6	3
`@set-note-string @set-note-text`	`any none none`	`rd`	#6	30
`verb_sub`	`this none this`	`rxd`	#6	6
`ownership_quota`	`this none this`	`rxd`	#6	5
`tell_lines`	`this none this`	`rxd`	#6	18
`@lastlog`	`any none none`	`rxd`	#6	43
`set_linelength`	`this none this`	`rxd`	#6	15
`set_pagelength`	`this none this`	`rxd`	#6	16
`set_home`	`this none this`	`rxd`	#6	19
`@registerme`	`any any any`	`rd`	#6	64
`ctime`	`this none this`	`rxd`	#6	3
`@age`	`any none none`	`rd`	#6	30
`news`	`any none none`	`rxd`	#6	46
`@edit`	`any any any`	`rd`	#6	14
`erase_paranoid_data`	`this none this`	`rxd`	#6	5
`@move-new`	`any any any`	`rd`	#6	26
`notify_lines_suspended`	`this none this`	`rxd`	#6	9
`_chparent`	`this none this`	`rxd`	#6	2
`@users`	`none none none`	`rxd`	#6	4
`@password`	`any any any`	`rd`	#6	25
`recycle`	`this none this`	`rxd`	#6	13
`gc_gaglist`	`this none this`	`rxd`	#6	10
`@ping @idle`	`none any any`	`rd`	#6	8
`_ping`	`this none this`	`rxd`	#6	10
`@unping @unidle`	`none any any`	`rd`	#6	1

Properties

Property Definer Flags Owner Value

features #6 r #36 {}

previous_connection #6 #2 0

email_address #6 #2 ""

last_disconnect_time #6 r #2 0

help #6 rc #2 0

more_msg #6 rc #2 "*** More *** %n lines left. Do @more [rest|flush] for more."

linetask #6 r #36 {0, 0}

linesleft #6 r #36 0

linebuffer #6 #36 {}

pagelen #6 r #36 0

owned_objects #6 r #2 {}

linelen #6 r #36 -79

current_folder #6 c #2 1

all_connect_places #6 #2 {}

last_connect_place #6 #2 "?"

brief #6 rc #2 0

lines #6 c #2 0

page_absent_msg #6 rc #2 "%N is not currently logged in."

pq #6 rc #2 "its"

pqc #6 rc #2 "Its"

page_origin_msg #6 rc #2 "You sense that %n is looking for you in %l."

page_echo_msg #6 rc #2 "Your message has been sent."

edit_options #6 rc #2 {}

last_connect_time #6 r #2 0

ownership_quota #6 #36 0

gender #6 rc #2 "neuter"

prc #6 rc #2 "Itself"

ppc #6 rc #2 "Its"

poc #6 rc #2 "It"

psc #6 rc #2 "It"

pr #6 rc #2 "itself"

pp #6 rc #2 "its"

po #6 rc #2 "it"

ps #6 rc #2 "it"

home #6 rc #2 #62

password #6 #2 "impossible password to type"

gaglist #6 rc #2 {}

paranoid #6 rc #2 0

display_options #6 rc #2 {}

verb_subs #6 rc #2 {}

first_connect_time #6 r #2 2147483647

size_quota #6 #36 {25000, 0, 0, 1}

last_password_time #6 #2 0

last_connect_attempt #6 #2 0

page_count_start_time #6 r #2 799707307

ping_task #6 r #36 {0, 0}

value_base #102 r #2 <clear>

damage_base #102 r #2 <clear>

x_loc #102 r #36 <clear>

y_loc #102 r #36 <clear>

ansi_title #102 r #36 <clear>

obvious #102 r #36 <clear>

build_help #102 rc #2 <clear>

key #1 c #2 <clear>

aliases #1 r #2 {"generic player"}

description #1 rc #2 "You see a player who should type '@describe me as ...'."

object_size #1 r #36 {108890, -1090650497}

html #1 rc #2 <clear>

Property	Definer	Flags	Owner	Value
`features`	#6	`r`	#36	`{}`
`previous_connection`	#6		#2	`0`
`email_address`	#6		#2	`""`
`last_disconnect_time`	#6	`r`	#2	`0`
`help`	#6	`rc`	#2	`0`
`more_msg`	#6	`rc`	#2	`"* More * %n lines left. Do @more [rest\|flush] for more."`
`linetask`	#6	`r`	#36	`{0, 0}`
`linesleft`	#6	`r`	#36	`0`
`linebuffer`	#6		#36	`{}`
`pagelen`	#6	`r`	#36	`0`
`owned_objects`	#6	`r`	#2	`{}`
`linelen`	#6	`r`	#36	`-79`
`current_folder`	#6	`c`	#2	`1`
`all_connect_places`	#6		#2	`{}`
`last_connect_place`	#6		#2	`"?"`
`brief`	#6	`rc`	#2	`0`
`lines`	#6	`c`	#2	`0`
`page_absent_msg`	#6	`rc`	#2	`"%N is not currently logged in."`
`pq`	#6	`rc`	#2	`"its"`
`pqc`	#6	`rc`	#2	`"Its"`
`page_origin_msg`	#6	`rc`	#2	`"You sense that %n is looking for you in %l."`
`page_echo_msg`	#6	`rc`	#2	`"Your message has been sent."`
`edit_options`	#6	`rc`	#2	`{}`
`last_connect_time`	#6	`r`	#2	`0`
`ownership_quota`	#6		#36	`0`
`gender`	#6	`rc`	#2	`"neuter"`
`prc`	#6	`rc`	#2	`"Itself"`
`ppc`	#6	`rc`	#2	`"Its"`
`poc`	#6	`rc`	#2	`"It"`
`psc`	#6	`rc`	#2	`"It"`
`pr`	#6	`rc`	#2	`"itself"`
`pp`	#6	`rc`	#2	`"its"`
`po`	#6	`rc`	#2	`"it"`
`ps`	#6	`rc`	#2	`"it"`
`home`	#6	`rc`	#2	`#62`
`password`	#6		#2	`"impossible password to type"`
`gaglist`	#6	`rc`	#2	`{}`
`paranoid`	#6	`rc`	#2	`0`
`display_options`	#6	`rc`	#2	`{}`
`verb_subs`	#6	`rc`	#2	`{}`
`first_connect_time`	#6	`r`	#2	`2147483647`
`size_quota`	#6		#36	`{25000, 0, 0, 1}`
`last_password_time`	#6		#2	`0`
`last_connect_attempt`	#6		#2	`0`
`page_count_start_time`	#6	`r`	#2	`799707307`
`ping_task`	#6	`r`	#36	`{0, 0}`
`value_base`	#102	`r`	#2	`<clear>`
`damage_base`	#102	`r`	#2	`<clear>`
`x_loc`	#102	`r`	#36	`<clear>`
`y_loc`	#102	`r`	#36	`<clear>`
`ansi_title`	#102	`r`	#36	`<clear>`
`obvious`	#102	`r`	#36	`<clear>`
`build_help`	#102	`rc`	#2	`<clear>`
`key`	#1	`c`	#2	`<clear>`
`aliases`	#1	`r`	#2	`{"generic player"}`
`description`	#1	`rc`	#2	`"You see a player who should type '@describe me as ...'."`
`object_size`	#1	`r`	#36	`{108890, -1090650497}`
`html`	#1	`rc`	#2	`<clear>`

Ancestry

#1 Root Class
- #102 subthing
  - #6 generic player
    #95 ANSI PC

Ancestors (nearest first): #102 subthing → #1 Root Class

Children: #95 ANSI PC

Call graph

Showing 48 of 193 verbs; 145 not shown.

Source

`init_for_core`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#40:init_for_core line 2: pass(

Source

1if (caller_perms().wizard)
2pass();
3this.home = (this in {$no_one, $hacker}) ? $nothing | $player_start;
4if (a = $list_utils:assoc(this, {{$prog, {$prog_help, $builtin_function_help, $verb_help, $core_help}}, {$wiz, $wiz_help}, {$builder, {$builder_help, $rpg_objects_help}}, {$rpgamer, $rpg_help}, {$ansi_pc, $ansi_help}, {$mail_recipient_class, $mail_help}, {$frand_class, $frand_help}}))
5player:tell(this);
6this.help = a[2];
7else
8this.help = 0;
9endif
10if (this != $player)
11for p in ({"last_connect_place", "all_connect_places", "features"})
12clear_property(this, p);
13endfor
14if (this in {$rpgamer, $guest})
15this.features = {$pasting_feature, $social_feature, $channels};
16elseif (this.wizard)
17for fea in ({$pasting_feature, $social_feature, $channels, $scheduler, $reaper_feature, $rp_regulator, $puppet_strings})
18this:add_feature(fea);
19endfor
20endif
21endif
22endif

`confunc`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#95:confunc line 21: pass(

Source

1if (((valid(cp = caller_perms()) && (caller != this)) && (!$perm_utils:controls(cp, this))) && (caller != #0))
2return E_PERM;
3endif
4this:("@last-connection")();
5$news:check();

`disfunc`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#90:disfunc line 5: pass(

Source

1if (((valid(cp = caller_perms()) && (caller != this)) && (!$perm_utils:controls(cp, this))) && (caller != #0))
2return E_PERM;
3endif
4this:expunge_rmm();
5this:erase_paranoid_data();
6this:gc_gaglist();
7return;

`initialize`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1if ((caller == this) || $perm_utils:controls(caller_perms(), this))
2this.help = 0;
3return pass(@args);
4else
5return E_PERM;
6endif

`acceptable`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#90:moveto line 25: pass(

Source

1return !is_player(args[1]);

`my_huh`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#31:my_huh line 2: pass(
#56:do_huh line 13: player:my_huh
#91:my_huh line 6: pass(

Source

1"Extra parsing of player commands.  Called by $command_utils:do_huh.";
2"This version of my_huh just handles features.";
3permissions = (((caller == this) || $perm_utils:controls(caller_perms(), this)) && $command_utils:validate_feature(@args)) ? this | $no_one;
4"verb - obvious                 pass - would be args";
5"plist - list of prepspecs that this command matches";
6"dlist and ilist - likewise for dobjspecs, iobjspecs";
7verb = args[1];
8if ($code_utils:toint(verb))
9return;
10endif
11pass = args[2];
12plist = {"any", prepstr ? $code_utils:full_prep(prepstr) | "none"};
13dlist = dobjstr ? {"any"} | {"none", "any"};
14ilist = iobjstr ? {"any"} | {"none", "any"};
15for fobj in (this.features)
16if (!$recycler:valid(fobj))
17this:remove_feature(fobj);
18elseif (`valid(loc = $object_utils:has_callable_verb(fobj, verb)[1]) ! ANY => 0')
19vargs = verb_args(loc, verb);
20if ((vargs[2] in plist) && ((vargs[1] in dlist) && (vargs[3] in ilist)))
21"(got rid of notify_huh - should write a @which command)";
22"if (this.notify_huh)";
23"player:notify(tostr(\"Using \", what.name, \" (\", what, \")\"));";
24"endif";
25set_task_perms(permissions);
26fobj:(verb)(@pass);
27"Problem with verbs of the same name. If we use which=vrb in the loop instead, we have a problem with verbs that use the variable verb.";
28return 1;
29endif
30endif
31if ($command_utils:running_out_of_time())
32player:tell("You have too many features.  Parsing your command runs out of ticks while checking ", fobj.name, " (", fobj, ").");
33return 1;
34endif
35endfor

`last_huh`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#56:do_huh line 17: player:last_huh
#90:last_huh line 2: pass(

Source

1":last_huh(verb,args)  final attempt to parse a command...";
2set_task_perms(caller_perms());
3{verb, args} = args;
4if ((verb[1] == "@") && (prepstr == "is"))
5"... set or show _msg property ...";
6set_task_perms(player);
7$last_huh:(verb)(@args);
8return 1;
9elseif (verb in {"give", "hand", "get", "take", "drop", "throw"})
10$last_huh:(verb)(@args);
11return 1;
12else
13return 0;
14endif

`my_match_object`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#4:@create line 28: player:my_match_object
#4:@recycle line 2: player:my_match_object
#4:@recreate line 12: player:my_match_object
#4:@recreate line 27: player:my_match_object
#4:@unlock line 2: player:my_match_object
#4:@lock line 2: player:my_match_object
#4:@kids line 2: player:my_match_object
#4:@contents line 6: player:my_match_object
#4:@par*ents line 9: player:my_match_object
#4:@location*s line 5: player:my_match_object
#4:@chparent line 2: player:my_match_object
#4:@chparent line 4: player:my_match_object
#4:@check-chp*arent line 7: player:my_match_object
#4:@check-chp*arent line 9: player:my_match_object
#4:@set*prop line 11: player:my_match_object
#6:@move line 3: this:my_match_object
#6:@move line 4: this:my_match_object
#6:?* line 10: this:my_match_object
#6:@rename*# line 11: this:my_match_object
#6:@rename*# line 42: this:my_match_object
#6:@rename*# line 60: this:my_match_object
#6:@addalias*# line 33: player:my_match_object
#6:@addalias*# line 75: player:my_match_object
#6:@rmalias*# line 19: player:my_match_object
#6:@rmalias*# line 65: player:my_match_object
#6:@desc*ribe line 2: player:my_match_object
#6:@mess*ages line 6: player:my_match_object
#6:@move-new line 12: player:my_match_object
#11:@* line 14: player:my_match_object
#40:@skip line 9: this:my_match_object
#40:@unsub*scribe line 11: this:my_match_object
#48:note_match_failed line 8: player:my_match_object
#49:com*pile line 23: player:my_match_object
#49:parse_invoke line 23: player:my_match_object
#50:y*ank line 26: player:my_match_object
#50:y*ank line 55: player:my_match_object
#50:y*ank line 70: player:my_match_object
#57:@corify line 9: player:my_match_object
#58:@prop*erty line 16: player:my_match_object
#58:@chmod*# line 14: player:my_match_object
#58:@chmod*# line 51: player:my_match_object
#58:@chmod*# line 71: player:my_match_object
#58:@args*# line 12: player:my_match_object
#58:@rmprop*erty line 6: player:my_match_object
#58:@verb line 13: player:my_match_object
#58:@rmverb*# line 4: player:my_match_object
#58:@kill line 63: player:my_match_object
#58:@copy line 18: player:my_match_object
#58:@copy line 23: player:my_match_object
#58:@copy line 28: player:my_match_object
#58:@prog*ram line 13: player:my_match_object
#58:@s*how line 7: player:my_match_object
#58:@s*how line 11: player:my_match_object
#58:@s*how line 21: player:my_match_object
#58:@check-p*roperty line 6: player:my_match_object
#58:@clearp*roperty line 6: player:my_match_object
#58:@disown line 7: player:my_match_object
#58:@disown line 20: player:my_match_object
#58:@dump line 8: player:my_match_object
#58:#* line 14: player:my_match_object
#58:#* line 25: player:my_match_object
#58:@list*# line 65: player:my_match_object
#58:@verbs* line 14: player:my_match_object
#77:parse_dig_room line 10: player:my_match_object
#90:@move line 14: player:my_match_object
#91:my_match_object line 2: pass(
#91:my_match_object line 4: pass(
#104:l*ook line 14: player:my_match_object
#104:l*ook line 37: player:my_match_object
#120:use line 13: player:my_match_object
#124:parse line 13: player:my_match_object
#124:parse line 16: player:my_match_object
#124:parse line 42: player:my_match_object
#124:parse line 45: player:my_match_object
#133:donate line 14: player:my_match_object

Source

1":my_match_object(string [,location])";
2return $string_utils:match_object(@{@args, this.location}[1..2], this);

`tell_contents`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:i line 2: this:tell_contents
#6:look_self line 12: this:tell_contents

Source

1c = args[1];
2if (c)
3longear = {};
4gear = {};
5width = player:linelen();
6half = width / 2;
7player:tell("Carrying:");
8for thing in (c)
9cx = tostr(" ", thing:title());
10if (length(cx) > half)
11longear = {@longear, cx};
12else
13gear = {@gear, cx};
14endif
15endfor
16player:tell_lines($string_utils:columnize(gear, 2, width));
17player:tell_lines(longear);
18endif

`titlec`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#3:say line 5: player:titlec
#3:emote line 2: player:titlec
#3:emote line 4: player:titlec
#5:gi*ve line 15: player:titlec
#6:look_self line 1: this:titlec
#57:@summon line 17: player:titlec
#91:capture line 7: player:titlec
#91:capture line 8: this:titlec
#91:capture line 9: this:titlec
#91:_leash line 4: this:titlec
#91:_leash line 6: this:titlec
#91:_leash line 8: this:titlec
#91:_leash line 12: this:titlec
#91:_leash line 13: this:titlec
#91:release line 6: this:titlec
#91:release line 25: this:titlec
#91:look_self line 1: this:titlec
#91:die line 36: this:titlec
#91:tell line 16: player:titlec
#91:tell line 18: player:titlec
#91:say line 8: this:titlec
#91:transfer_ammo line 30: this:titlec
#91:@stats line 46: this:titlec
#91:_loot line 9: this:titlec
#91:_loot line 10: this:titlec
#104:com*mand line 10: player:titlec
#116:die line 36: this:titlec
#116:@start line 7: this:titlec
#116:@start line 11: this:titlec
#116:@start line 13: this:titlec
#116:@start line 19: this:titlec
#116:@start line 21: this:titlec
#116:say line 15: this:titlec
#116:direct_say line 13: this:titlec
#116:direct_say line 17: this:titlec
#116:direct_say line 20: this:titlec
#116:direct_say line 21: this:titlec
#116:l*ook line 48: this:titlec
#116:l*ook line 50: this:titlec
#116:_loot line 14: this:titlec
#116:_loot line 15: this:titlec
#116:@addlang*uage line 11: this:titlec
#116:@rmlang*uage line 8: this:titlec
#116:ask line 2: this:titlec
#116:ask line 15: this:titlec
#116:ask line 41: this:titlec
#116:ask line 43: this:titlec
#116:ask line 53: this:titlec
#140:yell line 5: player:titlec
#140:yell line 7: player:titlec
#144:link line 10: player:titlec

Source

1return `this.namec ! E_PROPNF => 0' ? this.namec | $string_utils:capitalize(this:title());

`notify`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#4:@quota line 8: player:notify
#4:@create line 8: player:notify
#4:@create line 9: player:notify
#4:@create line 10: player:notify
#4:@create line 11: player:notify
#4:@create line 12: player:notify
#4:@create line 18: player:notify
#4:@create line 24: player:notify
#4:@create line 35: player:notify
#4:@create line 49: player:notify
#4:@recycle line 4: player:notify
#4:@recycle line 8: player:notify
#4:@recycle line 13: player:notify
#4:@recycle line 15: player:notify
#4:@recreate line 15: player:notify
#4:@recreate line 23: player:notify
#4:@recreate line 33: player:notify
#4:@recreate line 47: player:notify
#4:@dig line 13: player:notify
#4:@dig line 14: player:notify
#4:@dig line 24: player:notify
#4:@dig line 33: player:notify
#4:@dig line 35: player:notify
#4:@dig line 38: player:notify
#4:@dig line 41: player:notify
#4:@dig line 51: player:notify
#4:@dig line 52: player:notify
#4:@dig line 53: player:notify
#4:@audit line 14: player:notify
#4:@count line 9: player:notify
#4:@count line 11: player:notify
#4:@count line 14: player:notify
#4:@countDB line 10: player:notify
#4:@countDB line 17: player:notify
#4:@unlock line 8: player:notify
#4:@unlock line 10: player:notify
#4:@lock line 8: player:notify
#4:@lock line 9: player:notify
#4:@lock line 13: player:notify
#4:@lock line 14: player:notify
#4:@lock line 16: player:notify
#4:@newmess*age line 9: player:notify
#4:@newmess*age line 18: player:notify
#4:@newmess*age line 20: player:notify
#4:@newmess*age line 23: player:notify
#4:@newmess*age line 25: player:notify
#4:@unmess*age line 5: player:notify
#4:@unmess*age line 13: player:notify
#4:@unmess*age line 15: player:notify
#4:@unmess*age line 17: player:notify
#4:@kids line 6: player:notify
#4:@kids line 7: player:notify
#4:@kids line 9: player:notify
#4:@contents line 12: player:notify
#4:@contents line 13: player:notify
#4:@contents line 15: player:notify
#4:@par*ents line 3: player:notify
#4:@par*ents line 5: player:notify
#4:@par*ents line 11: player:notify
#4:@location*s line 9: player:notify
#4:_recycle line 6: player:notify
#4:@chparent line 8: player:notify
#4:@chparent line 10: player:notify
#4:@chparent line 11: player:notify
#4:@chparent line 15: player:notify
#4:@chparent line 18: player:notify
#4:@chparent line 19: player:notify
#4:@chparent line 21: player:notify
#4:@chparent line 24: player:notify
#4:@chparent line 26: player:notify
#4:@check-chp*arent line 6: player:notify
#4:@check-chp*arent line 12: player:notify
#4:@check-chp*arent line 14: player:notify
#4:@check-chp*arent line 17: player:notify
#4:@check-chp*arent line 18: player:notify
#4:@check-chp*arent line 19: player:notify
#4:@check-chp*arent line 21: player:notify
#4:@check-chp*arent line 25: player:notify
#4:@build-o*ptions line 16: player:notify
#4:@build-o*ptions line 21: player:notify
#4:@build-o*ptions line 24: player:notify
#6:notify_lines line 4: this:notify
#6:@wrap line 9: player:notify
#6:@wrap line 10: player:notify
#6:@wrap line 14: player:notify
#6:@linelen*gth line 9: player:notify
#6:@linelen*gth line 10: player:notify
#6:@linelen*gth line 15: player:notify
#6:@linelen*gth line 18: player:notify
#6:@linelen*gth line 22: player:notify
#6:@linelen*gth line 24: player:notify
#6:@gag*! line 3: player:notify
#6:@gag*! line 7: player:notify
#6:@gag*! line 14: player:notify
#6:@gag*! line 16: player:notify
#6:@listgag line 3: player:notify
#6:@listgag line 5: player:notify
#6:@listgag line 9: player:notify
#6:@listgag line 17: player:notify
#6:@ungag line 2: player:notify
#6:@ungag line 4: player:notify
#6:@ungag line 7: player:notify
#6:@ungag line 16: player:notify
#6:@ungag line 18: player:notify
#6:@ungag line 21: player:notify
#6:@ch*eck-full line 25: this:notify
#6:@ch*eck-full line 27: this:notify
#6:@ch*eck-full line 33: player:notify
#6:@ch*eck-full line 37: player:notify
#6:@ch*eck-full line 52: player:notify
#6:@ch*eck-full line 53: player:notify
#6:@ch*eck-full line 57: player:notify
#6:@ch*eck-full line 59: player:notify
#6:@paranoid line 4: this:notify
#6:@paranoid line 8: this:notify
#6:@paranoid line 12: this:notify
#6:@paranoid line 14: this:notify
#6:@paranoid line 15: this:notify
#6:@paranoid line 16: this:notify
#6:@paranoid line 20: this:notify
#6:@sw*eep line 8: this:notify
#6:@sw*eep line 11: this:notify
#6:@sw*eep line 14: this:notify
#6:@sw*eep line 17: this:notify
#6:@sw*eep line 30: this:notify
#6:@sw*eep line 32: this:notify
#6:@sw*eep line 35: this:notify
#6:page line 3: player:notify
#6:@sethome line 4: player:notify
#6:@sethome line 7: player:notify
#6:@sethome line 9: player:notify
#6:@eject line 10: player:notify
#6:@eject line 19: player:notify
#6:@eject line 23: player:notify
#6:@eject line 28: player:notify
#6:where*is line 7: player:notify
#6:where*is line 11: player:notify
#6:where*is line 17: player:notify
#6:@wizards line 8: player:notify
#6:?* line 20: player:notify
#6:?* line 25: player:notify
#6:?* line 30: player:notify
#6:?* line 31: player:notify
#6:?* line 40: player:notify
#6:?* line 42: player:notify
#6:?* line 47: player:notify
#6:?* line 48: player:notify
#6:@mailo*ptions line 16: player:notify
#6:@mailo*ptions line 21: player:notify
#6:@mailo*ptions line 24: player:notify
#6:@rename*# line 9: player:notify
#6:@rename*# line 17: player:notify
#6:@rename*# line 19: player:notify
#6:@rename*# line 26: player:notify
#6:@rename*# line 28: player:notify
#6:@rename*# line 31: player:notify
#6:@rename*# line 33: player:notify
#6:@rename*# line 37: player:notify
#6:@rename*# line 40: player:notify
#6:@rename*# line 49: player:notify
#6:@rename*# line 51: player:notify
#6:@rename*# line 54: player:notify
#6:@rename*# line 56: player:notify
#6:@rename*# line 76: player:notify
#6:@rename*# line 78: player:notify
#6:@rename*# line 80: player:notify
#6:@rename*# line 83: player:notify
#6:@rename*# line 85: player:notify
#6:@rename*# line 87: player:notify
#6:@rename*# line 89: player:notify
#6:@addalias*# line 31: player:notify
#6:@addalias*# line 38: player:notify
#6:@addalias*# line 40: player:notify
#6:@addalias*# line 54: player:notify
#6:@addalias*# line 60: player:notify
#6:@addalias*# line 61: player:notify
#6:@addalias*# line 63: player:notify
#6:@addalias*# line 67: player:notify
#6:@addalias*# line 69: player:notify
#6:@addalias*# line 73: player:notify
#6:@addalias*# line 84: player:notify
#6:@addalias*# line 89: player:notify
#6:@addalias*# line 93: player:notify
#6:@addalias*# line 94: player:notify
#6:@addalias*# line 96: player:notify
#6:@addalias*# line 101: player:notify
#6:@addalias*# line 104: player:notify
#6:@addalias*# line 107: player:notify
#6:@addalias*# line 109: player:notify
#6:@addalias*# line 110: player:notify
#6:@addalias*# line 112: player:notify
#6:@rmalias*# line 17: player:notify
#6:@rmalias*# line 24: player:notify
#6:@rmalias*# line 26: player:notify
#6:@rmalias*# line 42: player:notify
#6:@rmalias*# line 48: player:notify
#6:@rmalias*# line 49: player:notify
#6:@rmalias*# line 51: player:notify
#6:@rmalias*# line 54: player:notify
#6:@rmalias*# line 57: player:notify
#6:@rmalias*# line 59: player:notify
#6:@rmalias*# line 63: player:notify
#6:@rmalias*# line 79: player:notify
#6:@rmalias*# line 83: player:notify
#6:@rmalias*# line 84: player:notify
#6:@rmalias*# line 86: player:notify
#6:@rmalias*# line 88: player:notify
#6:@rmalias*# line 90: player:notify
#6:@rmalias*# line 91: player:notify
#6:@rmalias*# line 93: player:notify
#6:@desc*ribe line 6: player:notify
#6:@desc*ribe line 8: player:notify
#6:@mess*ages line 3: player:notify
#6:@mess*ages line 13: player:notify
#6:@mess*ages line 32: player:notify
#6:@mess*ages line 36: player:notify
#6:@last-c*onnection line 9: this:notify
#6:@last-c*onnection line 15: this:notify
#6:@last-c*onnection line 17: this:notify
#6:@last-c*onnection line 19: this:notify
#6:@last-c*onnection line 21: this:notify
#6:@last-c*onnection line 23: this:notify
#6:@last-c*onnection line 25: this:notify
#6:@gender line 3: player:notify
#6:@gender line 4: player:notify
#6:@gender line 5: player:notify
#6:@gender line 9: player:notify
#6:@gender line 11: player:notify
#6:@gender line 13: player:notify
#6:@gender line 15: player:notify
#6:@exam*ine line 3: player:notify
#6:@exam*ine line 10: player:notify
#6:@exam*ine line 11: player:notify
#6:@exam*ine line 16: player:notify
#6:@exam*ine line 19: player:notify
#6:@exam*ine line 23: player:notify
#6:@exam*ine line 25: player:notify
#6:@exam*ine line 46: player:notify
#6:@exam*ine line 55: player:notify
#6:@exam*ine line 100: player:notify
#6:@exam*ine line 102: player:notify
#6:@exam*ine line 104: player:notify
#6:exam*ine line 3: player:notify
#6:@memory line 3: player:notify
#6:@memory line 7: player:notify
#6:@memory line 8: player:notify
#6:@memory line 22: player:notify
#6:@memory line 29: player:notify
#6:@memory line 30: player:notify
#6:@memory line 31: player:notify
#6:@memory line 32: player:notify
#6:@version line 6: player:notify
#6:@version line 9: player:notify
#6:@version line 11: player:notify
#6:@version line 13: player:notify
#6:@uptime line 1: player:notify
#6:moveto line 3: this:notify
#6:@registerme line 4: player:notify
#6:@registerme line 8: who:notify
#6:@registerme line 26: who:notify
#6:@registerme line 31: who:notify
#6:@registerme line 35: who:notify
#6:@registerme line 40: who:notify
#6:@registerme line 44: who:notify
#6:@registerme line 47: who:notify
#6:@registerme line 50: who:notify
#6:@registerme line 57: who:notify
#6:@age line 18: player:notify
#6:@age line 20: player:notify
#6:@age line 22: player:notify
#6:@age line 29: player:notify
#6:news line 28: player:notify
#6:news line 32: player:notify
#6:news line 39: player:notify
#6:@edit line 8: player:notify
#6:@edit line 9: player:notify
#6:notify_lines_suspended line 5: this:notify
#6:@password line 3: player:notify
#6:@password line 8: player:notify
#6:@password line 11: player:notify
#6:@password line 14: player:notify
#6:@password line 20: player:notify
#6:@password line 25: player:notify
#6:@ping line 8: this:notify
#6:_ping line 2: this:notify
#6:_ping line 2: this:notify
#6:@unping line 1: player:notify
#11:@* line 8: player:notify
#11:@* line 19: player:notify
#11:@* line 21: player:notify
#11:@* line 23: player:notify
#11:@* line 25: player:notify
#11:@* line 26: player:notify
#11:@* line 32: player:notify
#11:@* line 34: player:notify
#11:@* line 37: player:notify
#11:@* line 39: player:notify
#11:@* line 41: player:notify
#12:last line 9: player:notify
#12:last line 38: player:notify
#12:last line 39: player:notify
#12:last line 43: player:notify
#14:__fix line 15: player:notify
#14:_repair line 26: player:notify
#14:_repair line 41: player:notify
#14:_repair line 46: player:notify
#14:_repair line 49: player:notify
#14:_repair line 70: player:notify
#14:_repair line 79: player:notify
#14:_repair line 84: player:notify
#14:_repair line 90: player:notify
#14:_repair line 95: player:notify
#14:_repair line 99: player:notify
#14:_repair line 108: player:notify
#14:_repair line 117: player:notify
#14:_repair line 142: player:notify
#21:make_exit line 11: player:notify
#24:set_programmer line 20: player:notify
#24:set_programmer line 21: player:notify
#24:set_programmer line 24: player:notify
#24:do_make_player line 12: player:notify
#24:do_make_player line 14: player:notify
#24:do_make_player line 21: player:notify
#24:do_make_player line 23: player:notify
#24:do_make_player line 28: player:notify
#24:do_make_player line 32: player:notify
#24:do_make_player line 34: player:notify
#24:do_make_player line 39: player:notify
#24:do_make_player line 42: player:notify
#24:do_register line 13: player:notify
#24:do_register line 17: player:notify
#24:do_register line 19: player:notify
#24:do_register line 29: player:notify
#24:do_new_password line 10: player:notify
#24:do_new_password line 14: player:notify
#24:do_new_password line 16: player:notify
#24:do_new_password line 24: player:notify
#24:newt_player line 11: player:notify
#24:newt_player line 23: player:notify
#24:newt_player line 28: player:notify
#24:_mac_moomail_fix line 5: player:notify
#24:_mac_moomail_fix line 12: player:notify
#24:make_init_verb line 4: player:notify
#24:make_init_verb line 8: player:notify
#24:make_init_verb line 10: player:notify
#24:make_init_verb line 39: player:notify
#24:make_init_verb line 40: player:notify
#24:make_init_verb line 42: player:notify
#24:make_init_verb line 43: player:notify
#24:make_init_verb line 46: player:notify
#24:make_init_verb line 47: player:notify
#31:@add-feature line 2: player:notify
#32:@ansi-setup line 9: player:notify
#32:@ansi-setup line 18: player:notify
#32:@ansi-setup line 22: player:notify
#32:@ansi-setup line 32: player:notify
#32:@ansi-setup line 34: player:notify
#32:@ansi-setup line 37: player:notify
#32:@ansi-setup line 44: player:notify
#32:@ansi-setup line 49: player:notify
#32:@ansi-setup line 55: player:notify
#32:@ansi-setup line 66: player:notify
#32:@ansi-setup line 71: player:notify
#32:@ansi-setup line 75: $player:notify
#32:@ansi-setup line 75: player:notify
#32:@ansi-setup line 80: player:notify
#32:@ansi-setup line 87: player:notify
#32:@ansi-setup line 100: player:notify
#32:@ansi-setup line 116: player:notify
#32:@ansi-setup line 130: player:notify
#32:@ansi-setup line 135: player:notify
#32:@ansi-setup line 139: player:notify
#32:@ansi-setup line 147: player:notify
#32:@ansi-setup line 160: player:notify
#32:@ansi-setup line 164: player:notify
#32:@ansi-setup line 167: player:notify
#32:@ansi-setup line 172: player:notify
#32:@ansi-setup line 178: player:notify
#32:@ansi-setup line 185: player:notify
#32:@ansi-setup line 187: player:notify
#32:@ansi-setup line 192: player:notify
#32:@ansi-setup line 194: player:notify
#40:@mail line 9: player:notify
#40:@mail line 13: player:notify
#40:@read line 9: player:notify
#40:@next line 3: player:notify
#40:@rmm*ail line 8: player:notify
#40:@rmm*ail line 13: player:notify
#40:@rmm*ail line 17: player:notify
#40:@renumber line 10: player:notify
#40:@renumber line 13: player:notify
#40:@renumber line 15: player:notify
#40:@renumber line 18: player:notify
#40:@unrmm*ail line 15: player:notify
#40:@unrmm*ail line 21: player:notify
#40:@unrmm*ail line 24: player:notify
#40:@unrmm*ail line 27: player:notify
#40:@unrmm*ail line 29: player:notify
#40:@answer line 5: player:notify
#40:@forward line 7: player:notify
#40:@forward line 10: player:notify
#40:@forward line 34: player:notify
#40:@forward line 36: player:notify
#40:@forward line 38: player:notify
#40:@typo line 7: player:notify
#40:@typo line 9: player:notify
#40:@typo line 20: player:notify
#40:@skip line 10: player:notify
#40:@skip line 16: player:notify
#40:@subscribe*-quick line 24: player:notify
#40:@subscribe*-quick line 27: player:notify
#40:@subscribe*-quick line 32: player:notify
#40:@subscribe*-quick line 35: player:notify
#40:@subscribe*-quick line 43: player:notify
#40:@subscribe*-quick line 48: player:notify
#40:@subscribe*-quick line 51: player:notify
#40:@subscribe*-quick line 58: player:notify
#40:@subscribe*-quick line 66: player:notify
#40:@subscribe*-quick line 73: player:notify
#40:@subscribe*-quick line 79: player:notify
#40:@subscribe*-quick line 86: player:notify
#40:@rn line 15: player:notify
#40:@rn line 21: player:notify
#40:@rn line 24: player:notify
#40:@rn line 28: player:notify
#40:@rn line 31: player:notify
#40:@rn line 33: player:notify
#40:@unsub*scribe line 19: player:notify
#40:@unsub*scribe line 24: player:notify
#40:@unsub*scribe line 27: player:notify
#40:@unsub*scribe line 31: player:notify
#40:@unsub*scribe line 43: player:notify
#40:@netforw*ard line 8: player:notify
#40:@netforw*ard line 16: player:notify
#40:@netforw*ard line 19: player:notify
#40:@netforw*ard line 25: player:notify
#40:@@sendmail line 16: player:notify
#40:@@sendmail line 20: player:notify
#40:@@sendmail line 37: player:notify
#40:@@sendmail line 42: player:notify
#40:@@sendmail line 48: player:notify
#40:@@sendmail line 51: player:notify
#40:@@sendmail line 56: player:notify
#40:@@sendmail line 59: player:notify
#40:@@sendmail line 64: player:notify
#40:@@sendmail line 66: player:notify
#40:@@sendmail line 68: player:notify
#40:@@sendmail line 72: player:notify
#40:@@sendmail line 74: player:notify
#40:@@sendmail line 77: player:notify
#40:@@sendmail line 78: player:notify
#40:@keep-m*ail line 5: player:notify
#40:@keep-m*ail line 11: player:notify
#40:@keep-m*ail line 16: player:notify
#40:@keep-m*ail line 18: player:notify
#40:@keep-m*ail line 24: player:notify
#40:@keep-m*ail line 29: player:notify
#40:@keep-m*ail line 31: player:notify
#40:@keep-m*ail line 33: player:notify
#40:@resend line 10: player:notify
#40:@resend line 13: player:notify
#40:@resend line 43: player:notify
#40:@resend line 45: player:notify
#40:@resend line 48: player:notify
#40:@resend line 69: player:notify
#40:@resend line 71: player:notify
#40:@resend line 73: player:notify
#40:@unread line 8: player:notify
#40:@refile line 8: player:notify
#40:@refile line 16: player:notify
#40:@refile line 23: player:notify
#40:@refile line 29: player:notify
#40:@quickr*eply line 8: player:notify
#40:@quickr*eply line 12: player:notify
#40:@quickr*eply line 16: player:notify
#40:@quickr*eply line 18: player:notify
#40:@quickr*eply line 21: player:notify
#40:@quickr*eply line 24: player:notify
#40:@quickr*eply line 27: player:notify
#40:@quickr*eply line 31: player:notify
#40:@quickr*eply line 35: player:notify
#40:@quickr*eply line 37: player:notify
#40:@mail-all-new*-mail line 11: player:notify
#40:@mail-all-new*-mail line 13: player:notify
#40:@mail-all-new*-mail line 16: player:notify
#40:@mail-all-new*-mail line 18: player:notify
#40:@mail-all-new*-mail line 23: player:notify
#40:@mail-all-new*-mail line 25: player:notify
#40:@read-all-new*-mail line 16: player:notify
#40:@read-all-new*-mail line 18: player:notify
#40:@read-all-new*-mail line 21: player:notify
#40:@read-all-new*-mail line 22: player:notify
#40:@read-all-new*-mail line 30: player:notify
#40:@read-all-new*-mail line 37: player:notify
#40:@read-all-new*-mail line 38: player:notify
#40:@read-all-new*-mail line 43: player:notify
#40:@read-all-new*-mail line 45: player:notify
#40:@quick*send line 10: player:notify
#40:@quick*send line 13: player:notify
#40:@quick*send line 37: player:notify
#40:@quick*send line 40: player:notify
#40:@quick*send line 43: player:notify
#40:@quick*send line 49: player:notify
#40:@quick*send line 56: player:notify
#40:@quick*send line 58: player:notify
#45:__fix line 9: player:notify
#46:raw_send line 23: player:notify
#46:raw_send line 28: player:notify
#46:__convert_new line 21: player:notify
#46:__convert_new line 26: player:notify
#46:__convert_new line 31: player:notify
#46:__convert_new line 41: player:notify
#46:__convert_new line 44: player:notify
#47:send line 3: player:notify
#47:send line 5: player:notify
#47:send line 7: player:notify
#47:send line 12: player:notify
#47:send line 27: player:notify
#47:send line 28: player:notify
#47:send line 31: player:notify
#47:send line 34: player:notify
#50:enter line 6: player:notify
#50:y*ank line 12: player:notify
#50:y*ank line 30: player:notify
#50:y*ank line 33: player:notify
#50:y*ank line 36: player:notify
#50:y*ank line 44: player:notify
#50:y*ank line 51: player:notify
#50:y*ank line 62: player:notify
#50:y*ank line 65: player:notify
#50:y*ank line 67: player:notify
#50:y*ank line 73: player:notify
#50:y*ank line 76: player:notify
#50:y*ank line 78: player:notify
#57:@chown*# line 2: player:notify
#57:@chown*# line 8: player:notify
#57:@chown*# line 22: player:notify
#57:@chown*# line 24: player:notify
#57:@chown*# line 29: player:notify
#57:@chown*# line 31: player:notify
#57:@chown*# line 35: player:notify
#57:@chown*# line 37: player:notify
#57:@chown*# line 42: player:notify
#57:@chown*# line 49: player:notify
#57:@chown*# line 51: player:notify
#57:@chown*# line 57: player:notify
#57:@shout line 14: player:notify
#57:@grant line 6: player:notify
#57:@grant line 11: player:notify
#57:@grant line 20: player:notify
#57:@grant line 26: player:notify
#57:@grant line 65: player:notify
#57:@grant line 67: player:notify
#57:@programmer line 4: player:notify
#57:@programmer line 7: player:notify
#57:@programmer line 9: player:notify
#57:@programmer line 12: player:notify
#57:@programmer line 13: player:notify
#57:@programmer line 21: player:notify
#57:@programmer line 23: player:notify
#57:make-core-database line 2: player:notify
#57:make-core-database line 5: player:notify
#57:make-core-database line 9: player:notify
#57:make-core-database line 12: player:notify
#57:make-core-database line 16: player:notify
#57:make-core-database line 22: player:notify
#57:make-core-database line 46: player:notify
#57:make-core-database line 51: player:notify
#57:make-core-database line 76: player:notify
#57:make-core-database line 80: player:notify
#57:make-core-database line 92: player:notify
#57:make-core-database line 111: player:notify
#57:make-core-database line 123: player:notify
#57:make-core-database line 127: player:notify
#57:make-core-database line 139: player:notify
#57:@shutdown line 2: player:notify
#57:@shutdown line 5: player:notify
#57:@shutdown line 16: player:notify
#57:@dump-d*atabase line 3: player:notify
#57:@who-calls line 5: player:notify
#57:@who-calls line 6: player:notify
#57:mcd_2 line 11: player:notify
#57:mcd_2 line 30: player:notify
#57:mcd_2 line 37: player:notify
#57:mcd_2 line 46: player:notify
#57:mcd_2 line 72: player:notify
#57:mcd_2 line 79: player:notify
#57:mcd_2 line 80: player:notify
#57:mcd_2 line 86: player:notify
#57:mcd_2 line 87: player:notify
#57:mcd_2 line 101: player:notify
#57:mcd_2 line 108: player:notify
#57:mcd_2 line 110: player:notify
#57:@toad line 15: player:notify
#57:@toad line 20: player:notify
#57:@toad line 23: player:notify
#57:@toad line 31: player:notify
#57:@toad line 34: player:notify
#57:@toad line 39: player:notify
#57:@toad line 45: player:notify
#57:@toad line 50: player:notify
#57:@toad line 54: player:notify
#57:@untoad line 4: player:notify
#57:@untoad line 6: player:notify
#57:@untoad line 9: player:notify
#57:@untoad line 11: player:notify
#57:@untoad line 13: player:notify
#57:@untoad line 14: player:notify
#57:@untoad line 16: player:notify
#57:@untoad line 18: player:notify
#57:@untoad line 20: player:notify
#57:@untoad line 21: player:notify
#57:@untoad line 23: player:notify
#57:@quota line 4: player:notify
#57:@quota line 11: player:notify
#57:@quota line 30: player:notify
#57:@quota line 37: player:notify
#57:@quota line 39: player:notify
#57:@players line 19: player:notify
#57:@players line 33: player:notify
#57:@players line 83: player:notify
#57:@players line 84: player:notify
#57:@players line 85: player:notify
#57:@players line 86: player:notify
#57:@players line 87: player:notify
#57:@players line 106: player:notify
#57:@players line 108: player:notify
#57:@players line 110: player:notify
#57:@players line 111: player:notify
#57:@players line 112: player:notify
#57:@players line 113: player:notify
#57:@players line 114: player:notify
#57:kill_aux_wizard_parse line 20: player:notify
#57:@grepcore line 3: player:notify
#57:@grepcore line 8: player:notify
#57:@grepcore line 9: player:notify
#57:@net-who line 7: player:notify
#57:@abort-sh*utdown line 2: player:notify
#57:@abort-sh*utdown line 4: player:notify
#57:@newt line 8: player:notify
#57:@newt line 12: player:notify
#57:@newt line 15: player:notify
#57:@newt line 18: player:notify
#57:@unnewt line 7: player:notify
#57:@unnewt line 13: player:notify
#57:@unnewt line 19: player:notify
#57:@new-password line 9: player:notify
#57:@log line 6: player:notify
#57:@log line 9: player:notify
#57:@log line 16: player:notify
#57:@guests line 4: player:notify
#57:@guests line 6: player:notify
#57:@guests line 7: player:notify
#57:@guests line 53: player:notify
#57:@guests line 54: player:notify
#57:@guests line 62: player:notify
#57:@guests line 65: player:notify
#57:@guests line 67: player:notify
#57:@guests line 70: player:notify
#57:@guests line 73: player:notify
#57:@blacklist line 8: player:notify
#57:@blacklist line 22: player:notify
#57:@blacklist line 49: player:notify
#57:@blacklist line 67: player:notify
#57:@blacklist line 69: player:notify
#57:@blacklist line 78: player:notify
#57:@blacklist line 99: player:notify
#57:@blacklist line 101: player:notify
#57:@blacklist line 111: player:notify
#57:@blacklist line 114: player:notify
#57:@blacklist line 123: player:notify
#57:@blacklist line 127: player:notify
#57:@blacklist line 129: player:notify
#57:@blacklist line 138: player:notify
#57:@blacklist line 142: player:notify
#57:@blacklist line 144: player:notify
#57:@blacklist line 153: player:notify
#57:@blacklist line 156: player:notify
#57:@blacklist line 170: player:notify
#57:@temp-newt line 8: player:notify
#57:@temp-newt line 14: player:notify
#57:@deprog*rammer line 6: player:notify
#57:@deprog*rammer line 10: player:notify
#57:@deprog*rammer line 15: player:notify
#57:@deprog*rammer line 29: player:notify
#57:@deprog*rammer line 31: player:notify
#57:@deprog*rammer line 33: player:notify
#57:display_list line 29: player:notify
#57:check_site_entries line 17: player:notify
#57:check_site_entries line 19: player:notify
#57:check_site_entries line 21: player:notify
#57:check_site_entries line 35: player:notify
#57:check_site_entries line 37: player:notify
#57:check_site_entries line 39: player:notify
#57:@lock-login line 10: player:notify
#57:@lock-login line 12: player:notify
#57:@lock-login line 15: player:notify
#57:@lock-login line 23: player:notify
#57:@fullprops line 35: player:notify
#58:@prop*erty line 3: player:notify
#58:@prop*erty line 4: player:notify
#58:@prop*erty line 13: player:notify
#58:@prop*erty line 26: player:notify
#58:@prop*erty line 47: player:notify
#58:@prop*erty line 52: player:notify
#58:@prop*erty line 55: player:notify
#58:@prop*erty line 59: player:notify
#58:@prop*erty line 64: player:notify
#58:@prop*erty line 65: player:notify
#58:@prop*erty line 68: player:notify
#58:@chmod*# line 4: player:notify
#58:@chmod*# line 10: player:notify
#58:@chmod*# line 11: player:notify
#58:@chmod*# line 19: player:notify
#58:@chmod*# line 21: player:notify
#58:@chmod*# line 27: player:notify
#58:@chmod*# line 29: player:notify
#58:@chmod*# line 34: player:notify
#58:@chmod*# line 36: player:notify
#58:@chmod*# line 38: player:notify
#58:@chmod*# line 42: player:notify
#58:@chmod*# line 44: player:notify
#58:@chmod*# line 49: player:notify
#58:@chmod*# line 58: player:notify
#58:@chmod*# line 60: player:notify
#58:@chmod*# line 62: player:notify
#58:@chmod*# line 65: player:notify
#58:@chmod*# line 67: player:notify
#58:@chmod*# line 82: player:notify
#58:@chmod*# line 90: player:notify
#58:@chmod*# line 92: player:notify
#58:@args*# line 6: player:notify
#58:@args*# line 7: player:notify
#58:@args*# line 11: player:notify
#58:@args*# line 18: player:notify
#58:@args*# line 20: player:notify
#58:@args*# line 27: player:notify
#58:@args*# line 29: player:notify
#58:@args*# line 31: player:notify
#58:@args*# line 37: player:notify
#58:@args*# line 39: player:notify
#58:@args*# line 41: player:notify
#58:@args*# line 45: player:notify
#58:@args*# line 47: player:notify
#58:eval*-d line 15: player:notify
#58:eval*-d line 17: player:notify
#58:eval*-d line 22: player:notify
#58:@rmprop*erty line 3: player:notify
#58:@rmprop*erty line 13: player:notify
#58:@rmprop*erty line 15: player:notify
#58:@rmprop*erty line 17: player:notify
#58:@verb line 3: player:notify
#58:@verb line 4: player:notify
#58:@verb line 11: player:notify
#58:@verb line 24: player:notify
#58:@verb line 28: player:notify
#58:@verb line 45: player:notify
#58:@verb line 50: player:notify
#58:@verb line 55: player:notify
#58:@verb line 57: player:notify
#58:@verb line 59: player:notify
#58:@rmverb*# line 3: player:notify
#58:@rmverb*# line 7: player:notify
#58:@rmverb*# line 9: player:notify
#58:@rmverb*# line 11: player:notify
#58:@rmverb*# line 17: player:notify
#58:@rmverb*# line 19: player:notify
#58:@rmverb*# line 33: player:notify
#58:@rmverb*# line 42: player:notify
#58:@rmverb*# line 44: player:notify
#58:@rmverb*# line 47: player:notify
#58:@forked line 20: player:notify
#58:@forked line 25: player:notify
#58:@forked line 26: player:notify
#58:@forked line 33: player:notify
#58:@forked line 37: player:notify
#58:@forked line 40: player:notify
#58:@forked line 42: player:notify
#58:@kill line 35: player:notify
#58:@kill line 75: player:notify
#58:@kill line 78: player:notify
#58:@kill line 122: player:notify
#58:@kill line 125: player:notify
#58:@kill line 127: player:notify
#58:@copy line 7: player:notify
#58:@copy line 8: player:notify
#58:@copy line 11: player:notify
#58:@copy line 14: player:notify
#58:@copy line 15: player:notify
#58:@copy line 16: player:notify
#58:@copy line 36: player:notify
#58:@copy line 41: player:notify
#58:@copy line 43: player:notify
#58:@copy line 47: player:notify
#58:@copy line 53: player:notify
#58:@copy line 68: player:notify
#58:@copy line 77: player:notify
#58:@copy line 81: player:notify
#58:@copy line 83: player:notify
#58:_kill_task_message line 3: player:notify
#58:@prog*ram line 12: player:notify
#58:@prog*ram line 16: player:notify
#58:@prog*ram line 20: player:notify
#58:@prog*ram line 22: player:notify
#58:@prog*ram line 24: player:notify
#58:@prog*ram line 30: player:notify
#58:@prog*ram line 32: player:notify
#58:@prog*ram line 54: player:notify
#58:@prog*ram line 74: player:notify
#58:@prog*ram line 76: player:notify
#58:@prog*ram line 83: player:notify
#58:@prog*ram line 85: player:notify
#58:@prog*ram line 87: player:notify
#58:@prog*ram line 92: player:notify
#58:@prog*ram line 93: player:notify
#58:@prog*ram line 95: player:notify
#58:@prog*ram line 96: player:notify
#58:@prog*ram line 99: player:notify
#58:@prog*ram line 100: player:notify
#58:@setenv line 5: player:notify
#58:@setenv line 8: player:notify
#58:@setenv line 11: player:notify
#58:@setenv line 14: player:notify
#58:@pros*pectus line 12: player:notify
#58:@d*isplay line 3: player:notify
#58:@db*size line 6: player:notify
#58:@db*size line 13: player:notify
#58:@gethelp line 10: player:notify
#58:@gethelp line 13: player:notify
#58:@gethelp line 19: player:notify
#58:@gethelp line 29: player:notify
#58:@gethelp line 31: player:notify
#58:@gethelp line 34: player:notify
#58:@grep line 6: player:notify
#58:@grep line 12: player:notify
#58:@grep line 24: player:notify
#58:@grep line 27: player:notify
#58:@grep line 28: player:notify
#58:@s*how line 3: player:notify
#58:@check-p*roperty line 5: player:notify
#58:@check-p*roperty line 9: player:notify
#58:@check-p*roperty line 11: player:notify
#58:@check-p*roperty line 13: player:notify
#58:@check-p*roperty line 14: player:notify
#58:@check-p*roperty line 16: player:notify
#58:@clearp*roperty line 5: player:notify
#58:@clearp*roperty line 11: player:notify
#58:@clearp*roperty line 15: player:notify
#58:@clearp*roperty line 17: player:notify
#58:@clearp*roperty line 19: player:notify
#58:@disown line 5: player:notify
#58:@disown line 13: player:notify
#58:@disown line 28: player:notify
#58:@disown line 30: player:notify
#58:@disown line 32: player:notify
#58:@disown line 35: player:notify
#58:@disown line 38: player:notify
#58:@dump line 13: player:notify
#58:@dump line 40: player:notify
#58:@dump line 41: player:notify
#58:@dump line 56: player:notify
#58:@dump line 58: player:notify
#58:@dump line 59: player:notify
#58:@dump line 61: player:notify
#58:@dump line 66: player:notify
#58:@dump line 74: player:notify
#58:@dump line 79: player:notify
#58:@dump line 81: player:notify
#58:@dump line 85: player:notify
#58:@dump line 88: player:notify
#58:@dump line 90: player:notify
#58:@dump line 101: player:notify
#58:@dump line 107: player:notify
#58:@dump line 114: player:notify
#58:@dump line 117: player:notify
#58:@dump line 126: player:notify
#58:@dump line 139: player:notify
#58:@dump line 141: player:notify
#58:@dump line 143: player:notify
#58:@dump line 146: player:notify
#58:@dump line 150: player:notify
#58:@dump line 152: player:notify
#58:@dump line 168: player:notify
#58:#* line 11: player:notify
#58:#* line 58: player:notify
#58:#* line 62: player:notify
#58:#* line 65: player:notify
#58:@progo*ptions line 16: player:notify
#58:@progo*ptions line 21: player:notify
#58:@progo*ptions line 24: player:notify
#58:@list*# line 22: player:notify
#58:@list*# line 27: player:notify
#58:@list*# line 35: player:notify
#58:@list*# line 42: player:notify
#58:@list*# line 46: player:notify
#58:@list*# line 54: player:notify
#58:@list*# line 60: player:notify
#58:@list*# line 62: player:notify
#58:@list*# line 73: player:notify
#58:@list*# line 75: player:notify
#58:@list*# line 91: player:notify
#58:@list*# line 93: player:notify
#58:@list*# line 96: player:notify
#58:@list*# line 108: player:notify
#58:@list*# line 109: player:notify
#58:@list*# line 111: player:notify
#58:@list*# line 116: player:notify
#58:@list*# line 121: player:notify
#58:@list*# line 123: player:notify
#58:@list*# line 128: player:notify
#58:@list*# line 139: player:notify
#58:@forked-v*erbose line 20: player:notify
#58:@forked-v*erbose line 25: player:notify
#58:@forked-v*erbose line 26: player:notify
#58:@forked-v*erbose line 33: player:notify
#58:@forked-v*erbose line 37: player:notify
#58:@forked-v*erbose line 41: player:notify
#58:@forked-v*erbose line 43: player:notify
#59:show_object line 3: player:notify
#59:show_object line 4: player:notify
#59:show_object line 13: player:notify
#59:show_object line 24: player:notify
#59:show_object line 27: player:notify
#59:show_object line 30: player:notify
#59:show_object line 35: player:notify
#59:show_object line 38: player:notify
#59:show_object line 43: player:notify
#59:show_object line 47: player:notify
#59:show_object line 52: player:notify
#59:show_object line 55: player:notify
#59:show_object line 58: player:notify
#59:show_property line 4: player:notify
#59:show_property line 5: player:notify
#59:show_property line 10: player:notify
#59:show_property line 13: player:notify
#59:show_property line 14: player:notify
#59:show_property line 15: player:notify
#59:show_property line 17: player:notify
#59:show_verbdef line 4: player:notify
#59:show_verbdef line 7: player:notify
#59:show_verbdef line 13: player:notify
#59:show_verbdef line 17: player:notify
#59:show_verbdef line 18: player:notify
#59:show_verbdef line 19: player:notify
#59:show_verbdef line 20: player:notify
#59:show_verbdef line 21: player:notify
#59:show_verbdef line 22: player:notify
#59:find_verbs_containing line 17: player:notify
#59:find_verbs_containing line 29: player:notify
#59:find_verbs_containing line 30: player:notify
#59:_find_verbs_containing line 9: player:notify
#59:_find_verbs_containing line 14: player:notify
#59:_find_verbs_containing line 18: player:notify
#59:find_verbs_matching line 17: player:notify
#59:find_verbs_matching line 28: player:notify
#59:find_verbs_matching line 29: player:notify
#59:_find_verbs_matching line 9: player:notify
#59:_find_verbs_matching line 14: player:notify
#59:_find_verbs_matching line 18: player:notify
#59:_grep_verb_code line 9: player:notify
#61:news_display_seq_full line 5: player:notify
#61:news_display_seq_full line 6: player:notify
#61:news_display_seq_full line 11: player:notify
#61:news_display_seq_full line 14: player:notify
#61:touch line 2: player:notify
#61:@clearnews line 4: player:notify
#61:@clearnews line 6: player:notify
#61:@addnews line 6: player:notify
#61:@addnews line 8: player:notify
#61:@addnews line 12: player:notify
#61:@addnews line 15: player:notify
#61:@rmnews line 6: player:notify
#61:@rmnews line 8: player:notify
#61:@rmnews line 12: player:notify
#61:@rmnews line 15: player:notify
#61:@setnews line 3: player:notify
#61:@setnews line 5: player:notify
#61:@setnews line 9: player:notify
#61:@setnews line 13: player:notify
#61:@setnews line 16: player:notify
#62:@destroy-demo line 11: player:notify
#62:@destroy-demo line 13: player:notify
#63:show*-history line 5: player:notify
#78:load line 7: player:notify
#78:load line 10: player:notify
#91:@add-feature line 2: player:notify
#95:@ansi-o*ptions line 18: player:notify
#95:@ansi-o*ptions line 23: player:notify
#95:@ansi-o*ptions line 26: player:notify
#95:notify line 6: pass(
#95:@ansi-t*est line 3: player:notify
#95:@ansi-t*est line 5: player:notify
#95:set_name line 8: player:notify
#95:set_aliases line 14: player:notify
#95:@ansi-s*tatus line 32: player:notify
#95:@ansi-s*tatus line 37: player:notify
#95:@ansi-s*tatus line 44: player:notify
#95:@ansi-s*tatus line 52: player:notify
#95:@ansi-s*tatus line 55: player:notify
#95:@ansi-s*tatus line 57: player:notify
#95:@ansi-s*tatus line 60: player:notify
#95:@ansi-s*tatus line 70: player:notify
#95:@ansi-s*tatus line 72: player:notify
#95:@ansi-s*tatus line 75: player:notify
#95:@ansi-s*tatus line 79: player:notify
#95:@ansi-s*tatus line 81: player:notify
#95:@ansi-s*tatus line 83: player:notify
#95:@ansi-s*tatus line 85: player:notify
#95:@ansi-s*tatus line 96: player:notify
#95:@ansi-s*tatus line 98: player:notify
#95:@ansi-s*tatus line 101: player:notify
#95:@ansi-title line 15: player:notify
#95:@ansi-title line 17: player:notify
#95:@ansi-title line 21: player:notify
#95:@ansi-title line 24: player:notify
#95:@ansi-title line 26: player:notify
#95:@ansi-title line 30: player:notify
#95:@ansi-title line 32: player:notify
#95:@ansi-title line 35: player:notify
#95:@ansi-title line 41: player:notify
#95:@ansi-title line 43: player:notify
#95:@ansi-title line 46: player:notify
#95:@ansi-title line 61: player:notify
#95:@ansi-title line 63: player:notify
#95:@ansi-title line 66: player:notify
#95:@ansi-title line 68: player:notify
#100:do_reap line 28: player:notify
#102:wield line 4: player:notify
#102:wield line 14: player:notify
#102:wield line 18: player:notify
#104:loot line 6: player:notify
#109:unwield line 4: player:notify
#109:fire line 21: player:notify
#118:@vdig line 13: player:notify
#118:@vdig line 14: player:notify
#118:@vdig line 24: player:notify
#118:@vdig line 36: player:notify
#118:@vdig line 38: player:notify
#118:@vdig line 41: player:notify
#118:@vdig line 44: player:notify
#118:@vdig line 50: player:notify
#118:@vdig line 51: player:notify
#118:@vdig line 52: player:notify
#118:@vdig line 60: player:notify
#120:use line 2: player:notify
#143:pub-ban line 8: player:notify
#164:pr*ess line 3: player:notify
#164:pr*ess line 7: player:notify
#164:pr*ess line 9: player:notify
#164:pr*ess line 32: player:notify
#164:pr*ess line 40: player:notify
#164:pr*ess line 42: player:notify
#164:pr*ess line 61: player:notify
#164:pr*ess line 76: player:notify
#164:pr*ess line 115: player:notify
#164:pr*ess line 135: player:notify
#164:pr*ess line 156: player:notify
#164:make_generic_corner line 2: player:notify
#164:make_park_exits line 2: player:notify
#164:make_park_exits line 7: player:notify
#164:make_park_exits line 28: player:notify
#164:make_park_exits line 49: player:notify
#164:make_park_exits line 70: player:notify
#164:make_park_exits line 91: player:notify
#164:make_park_exits line 112: player:notify
#164:make_park_exits line 133: player:notify
#164:make_park_exits line 154: player:notify

Source

1line = args[1];
2if (this.pagelen)
3if (!(this in connected_players()))
4"...drop it on the floor...";
5return 0;
6elseif ((caller != this) && (!$perm_utils:controls(caller_perms(), this)))
7return E_PERM;
8endif
9"...need wizard perms if this and this.owner are different, since...";
10"...only this can notify() and only this.owner can read .linebuffer...";
11if ((player == this) && (this.linetask[2] != task_id()))
12"...player has started a new task...";
13"....linetask[2] is the taskid of the most recent player task...";
14if (this.linetask[2] != this.linetask[1])
15this.linesleft = this.pagelen - 2;
16endif
17this.linetask[2] = task_id();
18endif
19"... digest the current line...";
20if (this.linelen > 0)
21lbuf = {@this.linebuffer, @this:linesplit(line, this.linelen)};
22else
23lbuf = {@this.linebuffer, line};
24endif
25"... print out what we can...";
26if (this.linesleft)
27howmany = min(this.linesleft, length(lbuf));
28for l in (lbuf[1..howmany])
29notify(this, l);
30endfor
31this.linesleft = this.linesleft - howmany;
32lbuf[1..howmany] = {};
33endif
34if (lbuf)
35"...see if we need to say ***More***";
36if (this.linetask[1] != this.linetask[2])
37"....linetask[1] is the taskid of the most recent player task";
38"...   for which ***More*** was printed...";
39this.linetask[1] = this.linetask[2];
40fork (0)
41if (lb = this.linebuffer)
42notify(this, strsub(this.more_msg, "%n", tostr(length(lb))));
43endif
44endfork
45endif
46llen = length(lbuf);
47if (llen > 500)
48"...way too much saved text, flush some of it...";
49lbuf[1..llen - 100] = {"*** buffer overflow, lines flushed ***"};
50endif
51endif
52this.linebuffer = lbuf;
53else
54if (caller != this)
55set_task_perms(caller_perms());
56endif
57if (this.linelen > 0)
58for l in (this:linesplit(line, this.linelen))
59notify(this, l);
60endfor
61else
62notify(this, line);
63endif
64endif

`notify_lines`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#4:@recreate line 10: player:notify_lines
#4:@build-o*ptions line 13: player:notify_lines
#4:@build-o*ptions line 28: player:notify_lines
#6:@pagelen*gth line 19: this:notify_lines
#6:?* line 23: player:notify_lines
#6:@mailo*ptions line 13: player:notify_lines
#6:@mailo*ptions line 28: player:notify_lines
#6:@exam*ine line 14: player:notify_lines
#6:@exam*ine line 101: player:notify_lines
#6:tell_lines line 18: this:notify_lines
#6:set_pagelength line 11: this:notify_lines
#24:make_init_verb line 38: player:notify_lines
#31:@request line 11: player:notify_lines
#40:@answer line 7: player:notify_lines
#40:@typo line 13: player:notify_lines
#40:@typo line 15: player:notify_lines
#40:@quickr*eply line 10: player:notify_lines
#57:@grant line 21: player:notify_lines
#57:display_list line 27: player:notify_lines
#58:eval*-d line 20: player:notify_lines
#58:@kill line 14: player:notify_lines
#58:@kill line 66: player:notify_lines
#58:@prog*ram line 91: player:notify_lines
#58:@gethelp line 16: player:notify_lines
#58:@gethelp line 36: player:notify_lines
#58:@grep line 7: player:notify_lines
#58:@dump line 155: player:notify_lines
#58:#* line 42: player:notify_lines
#58:#* line 60: player:notify_lines
#58:@progo*ptions line 13: player:notify_lines
#58:@progo*ptions line 28: player:notify_lines
#61:news_display_seq_full line 10: player:notify_lines
#95:@ansi-o*ptions line 15: player:notify_lines
#95:@ansi-o*ptions line 30: player:notify_lines
#95:@ansi-t*est line 4: player:notify_lines
#95:@ansi-s*tatus line 31: player:notify_lines
#95:@ansi-s*tatus line 35: player:notify_lines
#95:@ansi-s*tatus line 61: player:notify_lines
#95:@ansi-title line 38: player:notify_lines

Source

1if (($perm_utils:controls(caller_perms(), this) || (caller == this)) || (caller_perms() == this))
2set_task_perms(caller_perms());
3for line in ((typeof(lines = args[1]) != LIST) ? {lines} | lines)
4this:notify(tostr(line));
5endfor
6else
7return E_PERM;
8endif

`linesplit`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:notify line 21: this:linesplit
#6:notify line 58: this:linesplit

Source

1":linesplit(line,len) => list of substrings of line";
2"used by :notify to split up long lines if .linelen>0";
3{line, len} = args;
4cline = {};
5while (length(line) > len)
6cutoff = rindex(line[1..len], " ");
7if (nospace = cutoff < ((4 * len) / 5))
8cutoff = len + 1;
9nospace = line[cutoff] != " ";
10endif
11cline = {@cline, line[1..cutoff - 1]};
12line = (nospace ? " " | "") + line[cutoff..$];
13endwhile
14return {@cline, line};

`linelen`

Spec this none thisFlags rxdOwner #36Definer #6

Referenced by

#6:tell_contents line 5: player:linelen
#6:@ch*eck-full line 17: player:linelen
#14:display_seq_headers line 12: player:linelen
#21:do_audit line 42: player:linelen
#21:do_audit_item line 15: player:linelen
#32:fill_string line 4: player:linelen
#40:receive_message line 18: this:linelen
#40:format_for_netforward line 5: this:linelen
#40:format_for_netforward_debug line 5: this:linelen
#46:display_seq_headers line 9: player:linelen
#50:fill_string(noansi) line 3: player:linelen
#58:@d*isplay line 166: this:linelen
#59:callers_text line 2: player:linelen
#90:at_item line 20: this:linelen
#91:tell_contents line 6: player:linelen
#91:@stats line 2: player:linelen
#91:@stats line 4: player:linelen
#91:@stats line 7: player:linelen
#91:@stats line 10: player:linelen
#91:@stats line 13: player:linelen
#91:@stats line 15: player:linelen
#91:@stats line 17: player:linelen
#91:@stats line 18: player:linelen
#91:@stats line 23: player:linelen
#91:@stats line 26: player:linelen
#91:@stats line 27: player:linelen
#91:@stats line 28: player:linelen
#91:@stats line 33: player:linelen
#95:@ansi-t*est line 3: player:linelen
#95:at_item line 15: this:linelen
#95:confunc line 10: this:linelen
#95:@ansi-s*tatus line 89: player:linelen
#95:@ansi-title line 27: player:linelen
#96:ansi_log line 2: player:linelen
#104:look_self line 3: player:linelen
#107:tell_contents line 6: player:linelen
#141:description line 13: player:linelen
#141:description line 15: player:linelen
#141:description line 18: player:linelen
#141:description line 21: player:linelen
#141:description line 24: player:linelen
#141:description line 26: player:linelen
#141:description line 28: player:linelen
#141:description line 29: player:linelen
#141:description line 30: player:linelen
#141:description line 31: player:linelen

Source

1return abs(this.linelen);

`@more`

Spec any none noneFlags rdOwner #2Definer #6

Referenced by

#95:@more line 7: pass(

Source

1if (player != this)
2"... somebody's being sneaky...";
3"... Can't do set_task_perms(player) since we need to be `this'...";
4"... to notify and `this.owner' to change +c properties...";
5return;
6elseif (!(lbuf = this.linebuffer))
7this.linesleft = this.pagelen - 2;
8notify(this, "*** No more ***");
9elseif (index("flush", dobjstr || "x") == 1)
10this.linesleft = this.pagelen - 2;
11notify(this, tostr("*** Flushed ***  ", length(lbuf), " lines"));
12this.linebuffer = {};
13elseif ((index("rest", dobjstr || "x") == 1) || (!this.pagelen))
14this.linesleft = this.pagelen - 2;
15for l in (lbuf)
16notify(this, l);
17endfor
18this.linebuffer = {};
19else
20howmany = min(this.pagelen - 2, llen = length(lbuf = this.linebuffer));
21for l in (lbuf[1..howmany])
22notify(this, l);
23endfor
24this.linesleft = (this.pagelen - 2) - howmany;
25this.linebuffer = lbuf[howmany + 1..llen];
26if (howmany < llen)
27notify(this, strsub(this.more_msg, "%n", tostr(llen - howmany)));
28this.linetask[1] = task_id();
29endif
30endif
31this.linetask[2] = task_id();

`@wrap`

Spec none any noneFlags rdOwner #36Definer #6

Referenced by

none

Source

1if (player != this)
2"... someone is being sneaky...";
3"... Can't do set_task_perms(player) since we need to be `this'...";
4"... to notify and `this.owner' to change +c properties...";
5return;
6endif
7linelen = player.linelen;
8if (!(prepstr in {"on", "off"}))
9player:notify("Usage:  @wrap on|off");
10player:notify(tostr("Word wrap is currently ", (linelen > 0) ? "on" | "off", "."));
11return;
12endif
13player.linelen = abs(linelen) * ((prepstr == "on") ? 1 | -1);
14player:notify(tostr("Word wrap is now ", prepstr, "."));

`@linelen*gth`

Spec any none noneFlags rdOwner #36Definer #6

Referenced by

none

Source

1if (callers() ? (caller != this) && (!$perm_utils:controls(caller_perms(), this)) | (player != this))
2"... somebody is being sneaky ...";
3return;
4endif
5curlen = player.linelen;
6wrap = curlen > 0;
7wrapstr = wrap ? "on" | "off";
8if (!dobjstr)
9player:notify(tostr("Usage:  ", verb, " <number>"));
10player:notify(tostr("Current line length is ", abs(curlen), ".  Word wrapping is ", wrapstr, "."));
11return;
12endif
13newlen = toint(dobjstr);
14if (newlen < 0)
15player:notify("Line length can't be a negative number.");
16return;
17elseif (newlen < 10)
18player:notify("You don't want your linelength that small.  Setting it to 10.");
19newlen = 10;
20endif
21this:set_linelength(newlen);
22player:notify(tostr("Line length is now ", abs(player.linelen), ".  Word wrapping is ", wrapstr, "."));
23if (!wrap)
24player:notify("To enable word wrapping, type `@wrap on'.");
25endif

`@pagelen*gth`

Spec any none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1"@pagelength number  -- sets page buffering to that many lines (or 0 to turn off page buffering)";
2if (player != this)
3"... somebody is being sneaky ...";
4"... Can't do set_task_perms(player) since we need to be `this'...";
5"... to notify and `this.owner' to change +c properties...";
6return;
7elseif (!dobjstr)
8notify(player, tostr("Usage:  ", verb, " <number>"));
9notify(player, tostr("Current page length is ", player.pagelen, "."));
10return;
11elseif (0 > (newlen = toint(dobjstr)))
12notify(player, "Page length can't be a negative number.");
13return;
14elseif (newlen == 0)
15player.pagelen = 0;
16notify(player, "Page buffering off.");
17if (lb = this.linebuffer)
18"queued text remains";
19this:notify_lines(lb);
20clear_property(this, "linebuffer");
21endif
22elseif (newlen < 5)
23player.pagelen = 5;
24notify(player, "Too small.  Setting it to 5.");
25else
26notify(player, tostr("Page length is now ", player.pagelen = newlen, "."));
27endif
28if (this.linebuffer)
29notify(this, strsub(this.more_msg, "%n", tostr(length(this.linebuffer))));
30player.linetask = {task_id(), task_id()};
31player.linesleft = 0;
32else
33player.linetask = {0, task_id()};
34player.linesleft = player.pagelen - 2;
35endif

`tell`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#0:do_command line 10: player:tell
#0:do_command line 11: player:tell
#0:do_command line 17: player:tell
#0:do_command line 18: player:tell
#0:do_command line 19: player:tell
#1:look_self line 5: player:tell
#3:say line 4: player:tell
#3:tell_contents line 4: player:tell
#3:tell_contents line 6: player:tell
#3:tell_contents line 11: player:tell
#3:tell_contents line 13: player:tell
#3:tell_contents line 17: player:tell
#3:tell_contents line 28: player:tell
#3:tell_contents line 31: player:tell
#3:@exits line 2: player:tell
#3:@exits line 4: player:tell
#3:@exits line 9: player:tell
#3:@exits line 11: player:tell
#3:@exits line 16: player:tell
#3:look_self line 2: player:tell
#3:@entrances line 2: player:tell
#3:@entrances line 4: player:tell
#3:@entrances line 9: player:tell
#3:@entrances line 11: player:tell
#3:@entrances line 16: player:tell
#3:go line 2: player:tell
#3:go line 16: player:tell
#3:go line 18: player:tell
#3:l*ook line 16: player:tell
#3:l*ook line 23: player:tell
#3:l*ook line 25: player:tell
#3:@add-exit line 3: player:tell
#3:@add-exit line 11: player:tell
#3:@add-exit line 17: player:tell
#3:@add-exit line 23: player:tell
#3:@add-exit line 27: player:tell
#3:@add-exit line 30: player:tell
#3:@add-exit line 34: player:tell
#3:@add-exit line 36: player:tell
#3:@add-entrance line 3: player:tell
#3:@add-entrance line 11: player:tell
#3:@add-entrance line 17: player:tell
#3:@add-entrance line 21: player:tell
#3:@add-entrance line 25: player:tell
#3:@add-entrance line 27: player:tell
#3:e line 6: player:tell
#3:e line 8: player:tell
#3:@eject line 6: player:tell
#3:@eject line 9: player:tell
#3:@eject line 12: player:tell
#3:@eject line 17: player:tell
#3:@resident*s line 2: player:tell
#3:@resident*s line 11: player:tell
#3:@resident*s line 15: player:tell
#3:@resident*s line 31: player:tell
#3:@resident*s line 34: player:tell
#3:@resident*s line 39: player:tell
#3:@resident*s line 42: player:tell
#3:@remove-exit line 3: player:tell
#3:@remove-exit line 11: player:tell
#3:@remove-exit line 14: player:tell
#3:@remove-exit line 17: player:tell
#3:@remove-entrance line 3: player:tell
#3:@remove-entrance line 12: player:tell
#3:@remove-entrance line 15: player:tell
#3:@remove-entrance line 18: player:tell
#3:here_huh line 11: player:tell
#3:-* line 8: player:tell
#3:-* line 12: player:tell
#3:-* line 18: player:tell
#3:-* line 21: player:tell
#4:@sort-owned*-objects line 14: player:tell
#4:@sort-owned*-objects line 17: player:tell
#4:@sort-owned*-objects line 21: player:tell
#4:@add-owned line 2: player:tell
#4:@add-owned line 6: player:tell
#4:@add-owned line 8: player:tell
#4:@add-owned line 10: player:tell
#4:@add-owned line 13: player:tell
#4:@verify-owned line 5: player:tell
#4:@verify-owned line 7: player:tell
#4:@verify-owned line 12: player:tell
#4:@cl*asses line 6: player:tell
#4:@cl*asses line 17: player:tell
#4:@cl*asses line 29: player:tell
#4:@cl*asses line 30: player:tell
#4:@cl*asses line 33: player:tell
#4:@cl*asses line 36: player:tell
#4:@cl*asses line 40: player:tell
#4:@cl*asses line 41: player:tell
#4:@cl*asses line 43: player:tell
#4:@cl*asses line 44: player:tell
#4:classes_2 line 3: player:tell
#4:classes_2 line 5: player:tell
#4:@set*prop line 7: player:tell
#4:@set*prop line 30: player:tell
#4:@set*prop line 33: player:tell
#4:@set*prop line 38: player:tell
#4:@set*prop line 40: player:tell
#4:@measure line 15: player:tell
#4:@measure line 17: player:tell
#4:@measure line 19: player:tell
#4:@measure line 21: player:tell
#4:@measure line 22: player:tell
#4:@measure line 32: player:tell
#4:@measure line 42: player:tell
#4:@measure line 52: player:tell
#4:@measure line 60: player:tell
#4:@measure line 62: player:tell
#4:@measure line 72: player:tell
#4:@measure line 82: player:tell
#4:@measure line 92: player:tell
#4:@measure line 94: player:tell
#4:@measure line 99: player:tell
#4:@measure line 101: player:tell
#4:@measure line 104: player:tell
#4:@measure line 108: player:tell
#4:@measure line 117: player:tell
#5:g*et line 3: player:tell
#5:g*et line 5: player:tell
#5:g*et line 9: player:tell
#5:g*et line 14: player:tell
#5:dr*op line 3: player:tell
#5:dr*op line 5: player:tell
#5:gi*ve line 3: player:tell
#5:gi*ve line 5: player:tell
#5:gi*ve line 8: player:tell
#5:gi*ve line 10: player:tell
#5:gi*ve line 14: player:tell
#5:gi*ve line 17: player:tell
#6:init_for_core line 5: player:tell
#6:my_huh line 32: player:tell
#6:tell_contents line 7: player:tell
#6:@gag*! line 18: player:tell
#6:wh*isper line 1: this:tell
#6:wh*isper line 2: player:tell
#6:page line 10: player:tell
#6:page line 30: player:tell
#6:page line 38: player:tell
#6:page line 40: player:tell
#6:page line 42: player:tell
#6:i line 4: player:tell
#6:look_self line 1: player:tell
#6:look_self line 4: player:tell
#6:look_self line 6: player:tell
#6:look_self line 9: player:tell
#6:home line 3: player:tell
#6:home line 6: player:tell
#6:home line 9: player:tell
#6:home line 12: player:tell
#6:home line 24: player:tell
#6:home line 26: player:tell
#6:g*et line 1: player:tell
#6:g*et line 2: this:tell
#6:@move line 9: player:tell
#6:@move line 14: player:tell
#6:@move line 19: player:tell
#6:@move line 33: player:tell
#6:@move line 35: player:tell
#6:@move line 38: player:tell
#6:@move line 40: player:tell
#6:@eject line 24: dobj:tell
#6:@eject line 30: dobj:tell
#6:@who line 8: player:tell
#6:@mode line 6: player:tell
#6:@mode line 12: player:tell
#6:@mode line 14: player:tell
#6:@mode line 22: player:tell
#6:@add-feature line 13: player:tell
#6:@add-feature line 15: player:tell
#6:@add-feature line 17: player:tell
#6:@add-feature line 21: player:tell
#6:@add-feature line 23: player:tell
#6:@add-feature line 24: player:tell
#6:@add-feature line 28: player:tell
#6:@add-feature line 30: player:tell
#6:@add-feature line 31: player:tell
#6:@remove-feature line 12: player:tell
#6:@remove-feature line 14: player:tell
#6:@remove-feature line 18: player:tell
#6:@features line 4: player:tell
#6:@features line 19: player:tell
#6:@features line 20: player:tell
#6:@features line 22: player:tell
#6:@features line 24: player:tell
#6:@features line 33: player:tell
#6:@features line 35: player:tell
#6:@features line 37: player:tell
#6:announce*_all_but line 9: this:tell
#6:@set-note-string line 15: player:tell
#6:@set-note-string line 17: player:tell
#6:@set-note-string line 19: player:tell
#6:@set-note-string line 24: player:tell
#6:@set-note-string line 26: player:tell
#6:@set-note-string line 29: player:tell
#6:@lastlog line 5: player:tell
#6:@lastlog line 34: player:tell
#6:@lastlog line 36: player:tell
#6:@lastlog line 41: player:tell
#6:@lastlog line 42: player:tell
#6:@registerme line 14: player:tell
#6:@registerme line 16: player:tell
#6:@registerme line 18: player:tell
#6:@registerme line 21: player:tell
#6:@move-new line 4: player:tell
#6:@move-new line 23: player:tell
#6:_ping line 9: player:tell
#7:look_self line 4: player:tell
#7:g*et line 2: player:tell
#8:p*ut line 4: player:tell
#8:p*ut line 6: player:tell
#8:p*ut line 10: player:tell
#8:p*ut line 12: player:tell
#8:p*ut line 17: player:tell
#8:p*ut line 22: player:tell
#8:re*move line 4: player:tell
#8:re*move line 6: player:tell
#8:re*move line 8: player:tell
#8:re*move line 11: player:tell
#8:re*move line 15: player:tell
#8:re*move line 22: player:tell
#8:re*move line 26: player:tell
#8:re*move line 28: player:tell
#8:open line 3: player:tell
#8:open line 7: player:tell
#8:open line 12: player:tell
#8:@lock_for_open line 4: player:tell
#8:@lock_for_open line 5: player:tell
#8:@lock_for_open line 9: player:tell
#8:@lock_for_open line 10: player:tell
#8:@lock_for_open line 12: player:tell
#8:close line 2: player:tell
#8:close line 5: player:tell
#8:@unlock_for_open line 4: player:tell
#8:@unlock_for_open line 6: player:tell
#8:tell_contents line 2: player:tell
#8:tell_contents line 4: player:tell
#8:tell_contents line 7: player:tell
#8:@opacity line 2: player:tell
#8:@opacity line 4: player:tell
#8:@opacity line 6: player:tell
#9:r*ead line 2: player:tell
#9:r*ead line 6: player:tell
#9:r*ead line 8: player:tell
#9:r*ead line 9: player:tell
#9:r*ead line 11: player:tell
#9:er*ase line 3: player:tell
#9:er*ase line 5: player:tell
#9:wr*ite line 3: player:tell
#9:wr*ite line 5: player:tell
#9:del*ete line 2: player:tell
#9:del*ete line 4: player:tell
#9:del*ete line 11: player:tell
#9:del*ete line 14: player:tell
#9:encrypt line 4: player:tell
#9:encrypt line 5: player:tell
#9:encrypt line 9: player:tell
#9:encrypt line 10: player:tell
#9:encrypt line 12: player:tell
#9:decrypt line 4: player:tell
#9:decrypt line 6: player:tell
#9:mailme line 4: player:tell
#9:mailme line 6: player:tell
#9:mailme line 8: player:tell
#9:mailme line 10: player:tell
#9:mailme line 12: player:tell
#9:mailme line 13: player:tell
#11:give line 5: player:tell
#11:give line 7: player:tell
#11:give line 9: player:tell
#11:give line 13: player:tell
#11:give line 15: player:tell
#11:give line 19: player:tell
#11:give line 22: player:tell
#11:get line 5: player:tell
#11:get line 9: player:tell
#11:get line 11: player:tell
#11:get line 15: player:tell
#11:get line 18: player:tell
#11:drop line 5: player:tell
#11:drop line 9: player:tell
#11:drop line 11: player:tell
#14:receive_batch line 11: player:tell
#14:display_seq_headers line 23: player:tell
#14:display_seq_headers line 29: player:tell
#14:list_rmm line 26: player:tell
#14:list_rmm line 32: player:tell
#14:rm_message_seq line 11: player:tell
#14:renumber line 48: player:tell
#14:renumber line 53: player:tell
#14:_repair line 144: player:tell
#14:repair line 5: player:tell
#14:repair line 7: player:tell
#14:repair line 9: player:tell
#14:repair line 11: player:tell
#14:repair line 13: player:tell
#14:repair line 15: player:tell
#14:restore_from line 39: player:tell
#14:restore_from line 61: player:tell
#14:restore_from line 63: player:tell
#14:restore_from line 65: player:tell
#16:prune line 43: player:tell
#16:report_prune_progress line 1: player:tell
#16:report_prune_progress line 13: player:tell
#16:report_prune_progress line 14: player:tell
#16:report_prune_progress line 16: player:tell
#16:report_prune_progress line 19: player:tell
#16:report_prune_progress line 23: player:tell
#17:display_seq_headers line 5: player:tell
#20:match_player_or_object line 19: player:tell
#21:make_exit line 25: player:tell
#21:make_exit line 27: player:tell
#21:make_exit line 31: player:tell
#21:make_exit line 35: player:tell
#21:do_audit line 11: player:tell
#21:do_audit line 13: player:tell
#21:do_audit line 42: player:tell
#21:do_audit_item line 15: player:tell
#24:unset_player line 21: player:tell
#24:initialize_owned line 5: player:tell
#24:initialize_owned line 14: player:tell
#24:initialize_owned line 16: player:tell
#24:verify_owned_objects line 9: player:tell
#24:show_missing_help line 14: player:tell
#24:show_missing_help line 17: player:tell
#24:show_missing_help line 19: player:tell
#24:make_player line 17: player:tell
#24:do_make_player line 36: player:tell
#24:do_new_password line 19: player:tell
#24:do_new_password line 21: player:tell
#24:do_new_password line 27: player:tell
#24:do_new_password line 29: player:tell
#24:do_new_password line 33: player:tell
#24:flush_editors line 7: player:tell
#25:load line 23: player:tell
#25:prune line 43: player:tell
#25:report_prune_progress line 1: player:tell
#25:report_prune_progress line 13: player:tell
#25:report_prune_progress line 14: player:tell
#25:report_prune_progress line 16: player:tell
#25:report_prune_progress line 19: player:tell
#25:report_prune_progress line 23: player:tell
#29:display_seq_headers line 8: player:tell
#29:display_seq_headers line 23: player:tell
#29:display_seq_headers line 29: player:tell
#31:create line 2: player:tell
#31:create line 4: player:tell
#31:@last-c*onnection line 2: player:tell
#31:@request line 4: player:tell
#31:@request line 7: player:tell
#31:@kids line 4: player:tell
#32:self_diagnostic line 10: player:tell
#32:cutoff_locs line 22: player:tell
#32:test_benchmark line 6: player:tell
#32:test_benchmark line 36: player:tell
#32:@ansi-setup line 5: player:tell
#32:@ansi-setup line 7: player:tell
#37:_kill_subtrees line 9: player:tell
#37:depth line 5: player:tell
#37:count_entries line 4: player:tell
#37:count_chars line 7: player:tell
#37:count line 5: player:tell
#37:count line 7: player:tell
#37:count line 9: player:tell
#39:load line 16: player:tell
#39:load line 20: player:tell
#39:load line 29: player:tell
#39:load line 34: player:tell
#39:check line 4: player:tell
#39:check line 13: player:tell
#39:check line 18: player:tell
#39:suspend_restart line 6: player:tell
#39:suspend_restart line 10: player:tell
#40:notify_mail line 23: this:tell
#40:parse_folder_spec line 15: player:tell
#40:parse_folder_spec line 19: player:tell
#40:parse_mailread_cmd line 18: player:tell
#40:parse_mailread_cmd line 31: player:tell
#40:parse_mailread_cmd line 33: player:tell
#40:parse_mailread_cmd line 44: player:tell
#40:@netforw*ard line 5: player:tell
#40:@nn line 19: player:tell
#40:@add-notify line 11: player:tell
#40:@add-notify line 13: player:tell
#40:@add-notify line 16: player:tell
#40:@add-notify line 26: player:tell
#40:@add-notify line 28: player:tell
#40:@add-notify line 31: player:tell
#40:@add-notify line 32: player:tell
#41:add line 12: player:tell
#41:add line 16: player:tell
#41:add line 23: player:tell
#43:time_sub line 24: player:tell
#45:set_aliases line 14: player:tell
#45:set_aliases line 17: player:tell
#45:look_self line 29: player:tell
#45:look_self line 42: player:tell
#45:date_sort line 12: player:tell
#45:set_name line 10: player:tell
#45:set_name line 13: player:tell
#45:@validate line 5: player:tell
#45:@validate line 7: player:tell
#45:@validate line 9: player:tell
#45:@validate line 11: player:tell
#45:@validate line 13: player:tell
#45:@validate line 15: player:tell
#45:@validate line 18: player:tell
#45:@set_expire line 9: player:tell
#45:@set_expire line 11: player:tell
#45:@set_expire line 13: player:tell
#45:@set_expire line 15: player:tell
#45:@set_expire line 17: player:tell
#45:@set_expire line 19: player:tell
#45:@set_expire line 22: player:tell
#45:@register line 13: player:tell
#45:@register line 15: player:tell
#45:@register line 18: player:tell
#45:@register line 20: player:tell
#45:@register line 21: player:tell
#45:@register line 27: player:tell
#45:@register line 29: player:tell
#45:@register line 31: player:tell
#45:@register line 36: player:tell
#45:@register line 41: player:tell
#46:resolve_addr line 24: player:tell
#46:resolve_addr line 28: player:tell
#46:resolve_addr line 37: player:tell
#46:check_names line 14: player:tell
#46:check_names line 17: player:tell
#46:check_names line 20: player:tell
#46:check_names line 23: player:tell
#46:match_failed line 4: player:tell
#46:match_failed line 6: player:tell
#46:match_failed line 9: player:tell
#46:match_failed line 11: player:tell
#46:match_failed line 14: player:tell
#46:display_seq_headers line 16: player:tell
#46:display_seq_headers line 21: player:tell
#46:rm_message_seq line 9: player:tell
#46:expunge_rmm line 35: player:tell
#46:expunge_rmm line 41: player:tell
#46:renumber line 37: player:tell
#46:renumber line 40: player:tell
#47:parse_invoke line 16: player:tell
#47:pri*nt line 7: player:tell
#47:pri*nt line 9: player:tell
#47:subj*ect: line 2: player:tell
#47:subj*ect: line 4: player:tell
#47:subj*ect: line 6: player:tell
#47:subj*ect: line 8: player:tell
#47:to*: line 2: player:tell
#47:to*: line 4: player:tell
#47:to*: line 8: player:tell
#47:also*-to: line 2: player:tell
#47:also*-to: line 6: player:tell
#47:not-to*: line 2: player:tell
#47:not-to*: line 16: player:tell
#47:not-to*: line 21: player:tell
#47:not-to*: line 28: player:tell
#47:not-to*: line 35: player:tell
#47:parse_recipients line 9: player:tell
#47:parse_msg_headers line 27: player:tell
#47:parse_msg_headers line 30: player:tell
#47:check_answer_flags line 17: player:tell
#47:check_answer_flags line 20: player:tell
#47:check_answer_flags line 24: player:tell
#47:reply-to*: line 2: player:tell
#47:reply-to*: line 10: player:tell
#47:who line 9: player:tell
#47:who line 16: player:tell
#47:who line 18: player:tell
#47:subsc*ribe line 1: player:tell
#47:subsc*ribe line 4: player:tell
#47:subsc*ribe line 13: player:tell
#47:subsc*ribe line 21: player:tell
#47:subsc*ribe line 25: player:tell
#47:unsubsc*ribe line 2: player:tell
#47:unsubsc*ribe line 11: player:tell
#47:unsubsc*ribe line 17: player:tell
#47:unsubsc*ribe line 23: player:tell
#48:e*dit line 2: player:tell
#48:save line 2: player:tell
#48:save line 18: player:tell
#48:save line 20: player:tell
#48:save line 22: player:tell
#48:save line 25: player:tell
#48:init_session line 5: player:tell
#48:parse_invoke line 8: player:tell
#48:note_match_failed line 11: player:tell
#48:note_match_failed line 18: player:tell
#48:w*hat line 3: player:tell
#48:mode line 3: player:tell
#48:mode line 8: player:tell
#48:mode line 11: player:tell
#48:mode line 13: player:tell
#48:mode line 14: player:tell
#48:mode line 17: player:tell
#48:mode line 20: player:tell
#48:mode line 22: player:tell
#49:e*dit line 2: player:tell
#49:com*pile line 3: player:tell
#49:com*pile line 17: player:tell
#49:com*pile line 19: player:tell
#49:com*pile line 21: player:tell
#49:com*pile line 39: player:tell
#49:com*pile line 41: player:tell
#49:com*pile line 65: player:tell
#49:com*pile line 67: player:tell
#49:com*pile line 70: player:tell
#49:com*pile line 72: player:tell
#49:com*pile line 76: player:tell
#49:parse_invoke line 7: player:tell
#49:parse_invoke line 13: player:tell
#49:parse_invoke line 19: player:tell
#49:parse_invoke line 36: player:tell
#49:comment line 7: player:tell
#49:comment line 9: player:tell
#49:comment line 23: player:tell
#49:uncomment line 7: player:tell
#49:uncomment line 9: player:tell
#49:uncomment line 27: player:tell
#49:uncomment line 28: player:tell
#49:uncomment line 32: player:tell
#50:say line 5: player:tell
#50:emote line 5: player:tell
#50:enter line 2: player:tell
#50:lis*t line 11: player:tell
#50:lis*t line 13: player:tell
#50:lis*t line 20: player:tell
#50:lis*t line 25: player:tell
#50:lis*t line 39: player:tell
#50:lis*t line 41: player:tell
#50:lis*t line 50: player:tell
#50:lis*t line 56: player:tell
#50:ins*ert line 18: player:tell
#50:ins*ert line 21: player:tell
#50:ins*ert line 23: player:tell
#50:ins*ert line 26: player:tell
#50:ins*ert line 33: player:tell
#50:ins*ert line 36: player:tell
#50:del*ete line 2: player:tell
#50:del*ete line 4: player:tell
#50:del*ete line 6: player:tell
#50:del*ete line 9: player:tell
#50:f*ind line 5: player:tell
#50:f*ind line 7: player:tell
#50:f*ind line 9: player:tell
#50:f*ind line 19: player:tell
#50:s*ubst line 5: player:tell
#50:s*ubst line 7: player:tell
#50:s*ubst line 9: player:tell
#50:s*ubst line 11: player:tell
#50:s*ubst line 35: player:tell
#50:m*ove line 3: player:tell
#50:m*ove line 13: player:tell
#50:m*ove line 15: player:tell
#50:m*ove line 17: player:tell
#50:m*ove line 19: player:tell
#50:m*ove line 21: player:tell
#50:m*ove line 23: player:tell
#50:m*ove line 54: player:tell
#50:join*literal line 2: player:tell
#50:join*literal line 4: player:tell
#50:join*literal line 6: player:tell
#50:join*literal line 8: player:tell
#50:fill line 3: player:tell
#50:fill line 5: player:tell
#50:fill line 7: player:tell
#50:fill line 22: player:tell
#50:pub*lish line 2: player:tell
#50:pub*lish line 6: player:tell
#50:pub*lish line 8: player:tell
#50:pub*lish line 10: player:tell
#50:w*hat line 2: player:tell
#50:w*hat line 4: player:tell
#50:w*hat line 5: player:tell
#50:w*hat line 6: player:tell
#50:w*hat line 8: player:tell
#50:abort line 2: player:tell
#50:abort line 4: player:tell
#50:done line 4: player:tell
#50:done line 7: player:tell
#50:done line 11: player:tell
#50:done line 19: player:tell
#50:list_line line 4: player:tell
#50:invoke line 12: player:tell
#50:invoke line 16: player:tell
#50:invoke line 18: player:tell
#50:invoke line 24: player:tell
#50:invoke line 27: player:tell
#50:invoke line 29: player:tell
#50:@flush line 8: player:tell
#50:@flush line 12: player:tell
#50:@flush line 15: player:tell
#50:@flush line 22: player:tell
#50:@flush line 28: player:tell
#50:@flush line 33: player:tell
#50:@stateprop line 2: player:tell
#50:@stateprop line 21: player:tell
#50:@stateprop line 23: player:tell
#50:@rmstateprop line 2: player:tell
#50:@rmstateprop line 4: player:tell
#50:@rmstateprop line 6: player:tell
#50:print line 5: player:tell
#50:print line 7: player:tell
#50:do_flush line 9: player:tell
#54:burn line 7: player:tell
#56:suspend line 30: player:tell
#56:suspend line 34: player:tell
#56:suspend line 38: player:tell
#56:suspend line 44: player:tell
#56:suspend_if_needed line 7: player:tell
#56:explain_syntax line 10: player:tell
#56:kill_if_laggy line 4: player:tell
#57:@grant line 39: player:tell
#57:@quota line 19: player:tell
#57:@make-player line 7: player:tell
#57:@register line 5: player:tell
#57:@guests line 21: player:tell
#57:@guests line 76: player:tell
#57:@corify line 5: player:tell
#57:@corify line 15: player:tell
#57:@corify line 23: player:tell
#57:@corify line 26: player:tell
#57:@corify line 31: player:tell
#57:@make-guest line 4: player:tell
#57:@make-guest line 8: player:tell
#57:@make-guest line 20: player:tell
#57:@make-guest line 23: player:tell
#57:@make-guest line 26: player:Tell
#57:@make-guest line 33: player:Tell
#57:@make-guest line 34: player:Tell
#57:@make-guest line 36: player:Tell
#57:@make-guest line 45: player:tell
#57:@temp-newt line 2: player:tell
#57:@temp-newt line 6: player:tell
#57:@temp-newt line 11: player:tell
#57:@temp-newt line 24: player:tell
#57:@summon line 5: player:Tell
#57:@summon line 12: player:tell
#57:@summon line 16: player:tell
#57:@summon line 22: player:tell
#57:@fullprops line 55: player:tell
#58:@prop*erty line 7: player:tell
#58:eval*-d line 6: player:tell
#58:eval*-d line 9: player:tell
#58:@verb line 7: player:tell
#58:@dump line 122: player:tell
#58:@verbs* line 5: player:tell
#58:@verbs* line 11: player:tell
#58:@verbs* line 22: player:tell
#58:@greprop*s line 13: player:tell
#58:@greprop*s line 23: player:tell
#58:@greprop*s line 41: player:tell
#58:@greprop*s line 43: player:tell
#58:@greprop*s line 51: player:tell
#58:@greprop*s line 60: player:tell
#58:@greprop*s line 61: player:tell
#58:@core line 8: player:tell
#58:@core line 13: player:tell
#58:@core line 17: player:tell
#58:@core line 22: player:tell
#58:@core line 25: player:tell
#58:@core line 30: player:tell
#59:dump_verbs line 10: player:tell
#61:check line 4: player:tell
#61:check line 6: player:tell
#61:check line 8: player:tell
#62:@destroy-demo line 2: player:tell
#62:@destroy-demo line 14: player:tell
#63:show*-history line 8: player:tell
#63:request line 10: player:tell
#63:request line 12: player:tell
#63:request line 14: player:tell
#63:request line 16: player:tell
#63:request line 21: player:tell
#63:request line 26: player:tell
#64:look_self line 1: player:tell
#71:look_self line 2: player:tell
#71:cleanup line 9: player:tell
#71:cleanup line 14: player:tell
#71:cleanup_list line 5: player:tell
#71:cleanup_list line 8: player:tell
#71:cleanup_list line 10: player:tell
#71:cleanup_list line 22: player:tell
#71:cleanup_list line 24: player:tell
#71:cleanup_list line 30: player:tell
#71:cleanup_list line 32: player:tell
#71:clean_status line 8: player:tell
#71:clean_status line 9: player:tell
#71:clean_status line 10: player:tell
#71:clean_status line 11: player:tell
#71:@begin line 27: player:tell
#71:@begin line 28: player:tell
#72:email_will_fail line 5: player:tell
#72:email_will_fail line 24: player:tell
#74:look_self line 6: player:tell
#74:look_self line 8: player:tell
#75:show_text line 9: player:tell
#75:display_cache line 6: player:tell
#75:display_cache line 23: player:tell
#75:display_cache line 25: player:tell
#77:parse_dig_room line 19: player:tell
#80:display_quota line 23: player:tell
#80:display_quota_summary line 2: player:tell
#80:display_quota_summary line 3: player:tell
#80:display_quota_summary line 5: player:tell
#80:display_quota_summary line 7: player:tell
#80:display_quota_summary line 11: player:tell
#80:display_quota_summary line 13: player:tell
#80:display_quota_summary line 18: player:tell
#80:do_summary line 4: player:tell
#80:do_summary line 5: player:tell
#80:do_summary line 6: player:tell
#80:do_summary line 8: player:tell
#80:do_summary line 9: player:tell
#82:display_quota line 6: player:tell
#82:display_quota line 8: player:tell
#82:display_quota line 12: player:tell
#82:display_quota line 14: player:tell
#84:list line 3: player:tell
#84:list line 9: player:tell
#84:list line 12: player:tell
#84:list line 15: player:tell
#84:list line 21: player:tell
#84:list line 23: player:tell
#87:wait_for_response line 16: player:tell
#90:@rooms line 6: player:tell
#90:@go line 4: player:tell
#90:teleport line 10: player:tell
#90:teleport line 25: player:tell
#90:teleport line 32: player:tell
#90:teleport line 36: player:tell
#90:teleport_messages line 5: player:tell
#90:@move line 4: player:tell
#90:@move line 21: player:tell
#90:@addr*oom line 4: player:tell
#90:@addr*oom line 19: player:tell
#90:@addr*oom line 22: player:tell
#90:@rmr*oom line 4: player:tell
#90:@rmr*oom line 10: player:tell
#90:@rmr*oom line 13: player:tell
#90:@join line 3: player:tell
#90:@join line 11: player:tell
#90:@join line 13: player:tell
#90:@join line 32: player:tell
#90:@find line 3: player:tell
#90:@find line 17: player:tell
#90:@find line 24: player:tell
#90:@ways line 8: player:tell
#90:tell_ways line 7: player:tell
#90:internal_at line 7: player:tell
#90:internal_at line 15: player:tell
#90:confunc line 13: player:tell
#90:@ref*use line 3: player:tell
#90:@ref*use line 9: player:tell
#90:@ref*use line 13: player:tell
#90:@unref*use line 5: player:tell
#90:@unref*use line 7: player:tell
#90:@unref*use line 27: player:tell
#90:@unref*use line 29: player:tell
#90:@refusals line 8: player:tell
#90:@refusal-r*eporting line 3: player:tell
#90:@refusal-r*eporting line 6: player:tell
#90:@refusal-r*eporting line 9: player:tell
#90:@refusal-r*eporting line 11: player:tell
#90:@refusal-r*eporting line 12: player:tell
#90:@refusal-r*eporting line 13: player:tell
#90:parse_refuse_arguments line 42: player:tell
#90:wh*isper line 3: player:tell
#90:@stats line 3: player:tell
#90:@stats line 11: player:tell
#90:@award line 5: player:tell
#90:@award line 8: player:tell
#90:@award line 22: player:tell
#90:@award line 25: player:tell
#90:@sanctuaries line 8: player:tell
#90:whois line 4: player:tell
#90:whois line 33: player:tell
#90:whois line 42: player:tell
#90:whois line 47: player:tell
#90:whois line 48: player:tell
#90:whois line 69: player:tell
#90:whois line 70: player:tell
#90:whois line 72: player:tell
#90:whois line 74: player:tell
#91:quickpage line 12: player:tell
#91:quickpage line 14: player:tell
#91:follow line 7: player:tell
#91:follow line 10: player:tell
#91:follow line 49: player:tell
#91:follow line 51: player:tell
#91:capture line 8: player:tell
#91:capture line 11: player:tell
#91:capture line 14: player:tell
#91:release line 6: player:tell
#91:release line 14: player:tell
#91:release line 17: player:tell
#91:release line 23: player:tell
#91:release line 25: player:tell
#91:look_self line 1: player:tell
#91:look_self line 4: player:tell
#91:look_self line 8: player:tell
#91:look_self line 11: player:tell
#91:tell_contents line 8: player:tell
#91:look_state line 2: player:tell
#91:look_state line 4: player:tell
#91:look_state line 6: player:tell
#91:look_state line 9: player:tell
#91:@he*alth line 11: player:tell
#91:@he*alth line 13: player:tell
#91:tell line 7: pass(
#91:my_huh line 3: player:tell
#91:g*et line 10: player:tell
#91:g*et line 26: player:tell
#91:g*et line 31: player:tell
#91:g*et line 35: player:tell
#91:dr*op line 8: player:tell
#91:dr*op line 13: player:tell
#91:dr*op line 50: player:tell
#91:gi*ve line 3: player:tell
#91:gi*ve line 10: player:tell
#91:gi*ve line 25: player:tell
#91:gi*ve line 29: player:tell
#91:gi*ve line 31: player:tell
#91:gi*ve line 40: player:tell
#91:gi*ve line 42: player:tell
#91:gi*ve line 44: player:tell
#91:gi*ve line 49: player:tell
#91:@kids line 25: player:tell
#91:@boost line 4: player:tell
#91:@boost line 9: player:tell
#91:@boost line 15: player:tell
#91:@boost line 24: player:tell
#91:@boost line 27: player:tell
#91:@boost line 31: player:tell
#91:@boost line 35: player:tell
#91:@boost line 42: player:tell
#91:@boost line 45: player:tell
#91:@features line 12: player:tell
#91:@features line 13: player:tell
#91:@features line 14: player:tell
#91:@features line 16: player:tell
#91:@features line 18: player:tell
#91:@features line 20: player:tell
#91:_loot line 9: player:tell
#91:_loot line 16: player:tell
#91:@roll line 11: player:tell
#91:speak*ing line 2: player:Tell
#91:speak*ing line 3: player:Tell
#91:speak*ing line 8: player:tell
#91:speak*ing line 10: player:tell
#91:speak*ing line 11: player:tell
#91:speak*ing line 18: player:Tell
#91:speak*ing line 25: player:Tell
#91:remember line 3: player:Tell
#91:remember line 3: player:Tell
#91:remember line 5: player:Tell
#91:remember line 9: player:tell
#91:remember line 11: player:tell
#91:remember line 16: player:tell
#91:@remembered line 3: player:tell
#91:@remembered line 5: player:tell
#92:@paste line 26: player:tell
#92:@pasteto line 18: player:tell
#94:@gen*der line 2: player:tell
#94:@gen*der line 4: player:tell
#95:@ansi-o*ptions line 11: player:tell
#95:say line 9: player:tell
#95:@ansi-s*tatus line 29: player:tell
#95:@ansi-title line 9: player:tell
#98:max_from_free line 7: player:tell
#98:boost_cost line 6: player:tell
#98:boost_cost line 13: player:tell
#98:boost_cost line 18: player:tell
#98:parse_stat_level line 13: player:tell
#98:parse_stat_level line 14: player:tell
#98:parse_stat_level line 15: player:tell
#98:parse_stat_level line 16: player:tell
#98:parse_stat_level line 17: player:tell
#98:parse_stat_level line 18: player:tell
#98:@awards line 3: player:tell
#98:@awards line 12: player:tell
#98:@addskill line 10: player:tell
#98:@addskill line 16: player:tell
#98:@addskill line 18: player:tell
#98:@addskill line 22: player:tell
#98:@addskill line 38: player:tell
#98:@addskill line 39: player:tell
#98:@addskill line 41: player:tell
#98:@addskill line 44: player:tell
#98:@addskill line 46: player:tell
#98:@addskill line 50: player:tell
#98:@addskill line 57: player:tell
#98:@addskill line 58: player:tell
#98:@addskill line 59: player:tell
#98:@addskill line 60: player:tell
#98:@addskill line 62: player:tell
#98:@addskill line 65: player:tell
#98:@addskill line 69: player:tell
#98:@addskill line 78: player:tell
#98:@addskill line 81: player:tell
#98:@addskill line 83: player:tell
#98:@addskill line 87: player:tell
#98:@addskill line 92: player:tell
#98:@deadstuff line 5: player:tell
#98:@deadstuff line 8: player:tell
#98:@deadstuff line 9: player:tell
#98:@deadstuff line 10: player:tell
#98:@deadstuff line 13: player:tell
#98:@deadstuff line 14: player:tell
#98:@deadstuff line 15: player:tell
#98:@set-sales line 10: player:tell
#98:@set-sales line 12: player:tell
#98:@set-sales line 13: player:tell
#98:@set-sales line 15: player:tell
#98:@set-sales line 19: player:tell
#98:@set-sales line 22: player:tell
#99:kill line 4: player:tell
#99:kill line 9: player:tell
#99:kill line 17: player:tell
#99:kill line 21: player:tell
#99:kill line 32: player:tell
#99:kill line 42: player:tell
#99:look_self line 7: player:tell
#99:look_self line 8: player:tell
#99:look_self line 19: player:tell
#99:look_self line 22: player:tell
#99:look_self line 24: player:tell
#99:@sched*uler line 26: player:tell
#99:@sched*uler line 29: player:tell
#99:@sched*uler line 31: player:tell
#99:@sched*uler line 33: player:tell
#99:@reset line 3: player:tell
#99:@reset line 10: player:tell
#99:@reset line 18: player:tell
#99:@list-ch*eckpoints line 4: player:tell
#99:@list-ch*eckpoints line 5: player:tell
#99:@list-ch*eckpoints line 7: player:tell
#99:@list-ch*eckpoints line 10: player:tell
#100:@gather line 12: player:tell
#100:@save line 3: player:tell
#100:@save line 8: player:tell
#100:@save line 10: player:tell
#100:@doomed line 6: player:tell
#100:@doomed line 9: player:tell
#100:@protected line 6: player:tell
#100:do_reap line 7: player:tell
#100:do_reap line 14: player:tell
#100:do_reap line 22: player:tell
#100:do_reap line 33: player:tell
#100:do_reap line 39: player:tell
#100:@harvest line 6: player:tell
#100:@harvest line 8: player:tell
#100:@harvest line 10: player:tell
#100:@harvest line 12: player:tell
#100:@harvest line 14: player:tell
#100:@harvest line 22: player:tell
#100:@update-reg*istration line 3: player:tell
#100:@update-reg*istration line 7: player:tell
#100:@update-reg*istration line 28: player:tell
#100:@update-reg*istration line 39: player:tell
#100:@update-reg*istration line 48: player:tell
#100:@retire*-fully line 7: player:tell
#100:@retire*-fully line 9: player:tell
#100:@retire*-fully line 11: player:tell
#100:@retire*-fully line 13: player:tell
#100:@retire*-fully line 15: player:tell
#100:@retire*-fully line 17: player:tell
#100:@retire*-fully line 24: player:tell
#100:@moosize line 2: player:tell
#102:wield line 21: player:tell
#103:@add-currency line 8: player:tell
#103:@add-currency line 10: player:tell
#104:@add-fake line 3: player:tell
#104:@add-fake line 5: player:tell
#104:@rm-fake line 3: player:tell
#104:@rm-fake line 5: player:tell
#104:@fakes line 9: player:tell
#104:@fakes line 12: player:tell
#104:order line 7: player:tell
#104:order line 9: player:tell
#104:order line 10: player:tell
#104:l*ook line 34: player:tell
#104:l*ook line 46: player:tell
#104:l*ook line 48: player:tell
#104:replace_detail line 8: player:tell
#104:@det*ail line 6: player:tell
#104:@det*ail line 8: player:tell
#104:@det*ail line 12: player:tell
#104:@det*ail line 14: player:tell
#104:@detail-a*lias line 7: player:tell
#104:@detail-a*lias line 9: player:tell
#104:@detail-a*lias line 11: player:tell
#104:remove_detail line 6: player:tell
#104:@rmdet*ail line 5: player:tell
#104:@edit-d*etail line 12: player:tell
#104:@edit-d*etail line 14: player:tell
#104:@rmdetail-a*lias line 7: player:tell
#104:@rmdetail-a*lias line 10: player:tell
#104:@newseat line 5: player:tell
#104:@newseat line 8: player:tell
#104:@rmseat line 9: player:tell
#104:@rmseat line 16: player:tell
#104:@descseat line 5: player:tell
#104:@descseat line 8: player:tell
#104:@maxseat line 5: player:tell
#104:@maxseat line 7: player:tell
#104:@maxseat line 12: player:tell
#104:@maxseat line 15: player:tell
#104:@maxseat line 18: player:tell
#104:@seatalias line 5: player:tell
#104:@seatalias line 10: player:tell
#104:@seatalias line 15: player:tell
#104:@rmseatalias line 8: player:tell
#104:sit line 8: player:tell
#104:sit line 23: player:tell
#104:stand line 9: player:tell
#104:swim line 4: player:tell
#104:swim line 19: player:tell
#104:dry line 9: player:tell
#104:push line 5: player:tell
#104:push line 7: player:tell
#104:push line 17: player:tell
#104:push line 23: player:tell
#104:push line 28: player:tell
#104:push line 38: player:tell
#104:push line 40: player:tell
#104:push line 43: player:tell
#104:push line 45: player:tell
#104:who_do_what line 37: player:tell
#104:who_do_what line 49: player:tell
#104:huh_dry line 4: player:tell
#104:attack_bypass line 4: player:tell
#104:attack line 7: player:tell
#104:attack line 9: player:tell
#104:attack line 21: player:tell
#104:attack line 29: player:tell
#104:attack line 35: player:tell
#104:attack line 71: player:tell
#104:attack line 73: player:tell
#104:attack line 75: player:tell
#104:attack line 78: player:tell
#104:mooicide line 12: player:tell
#104:mooicide line 15: player:tell
#104:queue_attack line 10: player:tell
#104:queue_attack line 14: player:tell
#104:tell_exits line 16: player:tell
#104:tell_exits line 19: player:tell
#104:look_self line 2: player:tell
#104:look_self line 4: player:tell
#104:look_self line 8: player:tell
#104:look_self line 15: player:tell
#104:look_self line 18: player:tell
#104:huh line 17: player:tell
#104:huh line 19: player:tell
#104:huh line 21: player:tell
#104:@outdoor*s line 5: player:tell
#104:@outdoor*s line 9: player:tell
#104:@outdoor*s line 14: player:tell
#104:@outdoor*s line 17: player:tell
#104:@outdoor*s line 19: player:tell
#104:tell_contents line 3: player:tell
#104:tell_contents line 8: player:tell
#104:tell_contents line 10: player:tell
#104:tell_contents line 15: player:tell
#104:tell_contents line 17: player:tell
#104:tell_contents line 21: player:tell
#104:tell_contents line 34: player:tell
#104:tell_contents line 38: player:tell
#104:tell_contents line 40: player:tell
#104:loot line 8: player:tell
#104:loot line 12: player:tell
#104:loot line 16: player:tell
#104:loot line 25: player:tell
#104:loot line 48: player:tell
#104:loot line 50: player:tell
#104:loot line 53: player:tell
#104:loot line 57: player:tell
#104:loot line 60: player:tell
#104:com*mand line 21: player:tell
#104:com*mand line 36: player:tell
#104:com*mand line 38: player:tell
#104:dig line 6: player:tell
#104:dig line 10: player:tell
#104:dig line 20: player:tell
#107:g*et line 5: player:tell
#107:g*et line 8: player:tell
#107:capture line 6: player:tell
#107:capture line 9: player:tell
#107:release line 6: player:tell
#107:release line 13: player:tell
#107:release line 19: player:tell
#107:release line 21: player:tell
#107:@com*bat line 2: player:tell
#107:@com*bat line 7: player:tell
#107:@com*bat line 26: player:tell
#107:tell_contents line 8: player:tell
#107:eat line 2: player:tell
#107:eat line 4: player:tell
#107:look_self line 5: player:Tell
#107:look_self line 9: player:tell
#107:look_self line 11: player:tell
#107:look_self line 13: player:tell
#107:look_self line 16: player:tell
#107:look_self line 18: player:tell
#107:look_self line 21: player:tell
#107:@start line 7: player:tell
#107:@start line 12: player:tell
#107:@start line 18: player:tell
#107:@start line 34: player:tell
#107:@start line 36: player:tell
#107:_loot line 9: player:tell
#107:_loot line 13: player:tell
#109:load line 3: player:tell
#109:load line 20: player:tell
#109:load line 23: player:tell
#109:do_shoot line 24: player:tell
#109:fire line 14: player:tell
#115:look_self line 2: player:tell
#115:look_self line 5: player:tell
#116:@start line 7: player:tell
#116:@start line 11: player:tell
#116:@start line 13: player:tell
#116:@start line 19: player:tell
#116:@start line 21: player:tell
#116:watch line 2: player:tell
#116:watch line 6: player:tell
#116:watch line 9: player:tell
#116:watch line 14: player:tell
#116:watch line 16: player:tell
#116:say line 5: player:tell
#116:l*ook line 4: player:tell
#116:l*ook line 46: player:tell
#116:l*ook line 48: player:tell
#116:l*ook line 50: player:tell
#116:look_self line 5: player:Tell
#116:look_self line 9: player:tell
#116:look_self line 11: player:tell
#116:look_self line 14: player:tell
#116:look_self line 16: player:tell
#116:look_self line 19: player:tell
#116:look_self line 22: player:Tell
#116:_loot line 3: player:tell
#116:_loot line 14: player:tell
#116:_loot line 21: player:tell
#116:@addlang*uage line 2: player:tell
#116:@addlang*uage line 6: player:tell
#116:@addlang*uage line 9: player:tell
#116:@addlang*uage line 11: player:tell
#116:@rmlang*uage line 2: player:tell
#116:@rmlang*uage line 6: player:tell
#116:@rmlang*uage line 8: player:tell
#116:@rmlang*uage line 12: player:tell
#116:ask line 2: player:tell
#116:ask line 15: player:tell
#116:ask line 53: player:tell
#116:ask line 61: player:tell
#116:ask line 85: player:tell
#117:remove line 2: player:tell
#117:remove line 4: player:tell
#117:don line 5: player:tell
#117:don line 10: player:tell
#117:don line 12: player:tell
#118:add_virtual_exit line 9: player:tell
#118:add_virtual_exit line 13: player:tell
#118:add_virtual_exit line 15: player:tell
#118:@remove-vexit line 2: player:tell
#118:@remove-vexit line 4: player:tell
#118:@vways line 5: player:tell
#118:@vways line 7: player:tell
#118:@vways line 9: player:tell
#118:@vways line 11: player:tell
#118:@vlock line 10: player:tell
#118:@vlock line 12: player:tell
#118:@vlock line 14: player:tell
#118:@vlock line 23: player:tell
#118:@vlock line 24: player:tell
#118:@vlock line 25: player:tell
#118:@vlock line 30: player:tell
#118:@vlock line 32: player:tell
#118:@vlock line 33: player:tell
#118:@vlock line 36: player:tell
#118:@vlock line 37: player:tell
#118:@vunlock line 2: player:tell
#118:@vunlock line 4: player:tell
#118:@vunlock line 6: player:tell
#118:@vunlock line 8: player:tell
#118:@vunlock line 11: player:tell
#118:con*vert-exit line 3: player:tell
#118:con*vert-exit line 5: player:Tell
#118:con*vert-exit line 11: player:tell
#118:con*vert-exit line 21: player:tell
#118:con*vert-exit line 32: player:tell
#118:con*vert-exit line 37: player:tell
#118:@add-ventrance line 2: player:tell
#118:@add-ventrance line 4: player:tell
#118:@add-ventrance line 7: player:tell
#118:@remove-ventrance line 2: player:tell
#118:@remove-ventrance line 4: player:tell
#118:@remove-ventrance line 7: player:Tell
#119:@exset line 11: player:tell
#119:@exset line 15: player:tell
#119:tell_exits line 10: player:tell
#119:tell_exits line 12: player:tell
#119:n line 11: player:tell
#119:n line 13: player:tell
#119:player_to_loc line 10: player:tell
#119:l*ook line 29: player:tell
#119:@myloc line 1: player:tell
#119:@maze*-move line 4: player:tell
#119:@maze*-move line 15: player:tell
#119:@maze*-move line 19: player:tell
#119:@maze*-move line 23: player:tell
#119:@maze*-move line 26: player:tell
#119:go line 10: player:tell
#120:use line 4: player:tell
#120:use line 5: player:tell
#120:use line 11: player:tell
#120:do_heal line 6: player:tell
#120:do_heal line 8: player:tell
#120:do_heal line 10: player:tell
#120:do_heal line 12: player:tell
#120:do_heal line 14: player:tell
#120:do_heal line 46: player:tell
#120:look_self line 8: player:tell
#122:put line 2: player:tell
#122:put line 4: player:tell
#122:put line 10: player:tell
#122:put line 13: player:tell
#122:rem*ove line 2: player:tell
#122:rem*ove line 4: player:tell
#122:rem*ove line 6: player:tell
#122:rem*ove line 8: player:tell
#123:r*ead line 3: player:tell
#123:r*ead line 7: player:tell
#123:r*ead line 8: player:tell
#123:r*ead line 15: player:tell
#123:r*ead line 16: player:tell
#123:r*ead line 18: player:tell
#123:r*ead line 19: player:tell
#123:wr*ite line 8: player:tell
#126:@setup line 2: player:tell
#126:@setup line 7: player:Tell
#126:@setup line 8: player:Tell
#126:@setup line 9: player:Tell
#126:@setup line 24: player:tell
#127:turn line 4: player:tell
#127:turn line 11: player:tell
#127:turn line 21: player:tell
#127:light line 3: player:tell
#127:light line 10: player:tell
#129:payme line 6: player:tell
#129:payme line 8: player:tell
#129:payme line 11: player:tell
#129:payme line 15: player:tell
#129:o*ut line 2: player:tell
#129:withdraw line 3: player:tell
#129:withdraw line 6: player:tell
#131:eat line 2: player:tell
#131:eat line 4: player:tell
#131:eat line 6: player:tell
#131:eat line 16: player:tell
#132:eat line 2: player:tell
#132:eat line 4: player:tell
#132:eat line 6: player:tell
#132:eat line 16: player:tell
#133:worship line 7: player:tell
#133:worship line 8: player:tell
#133:worship line 20: player:tell
#133:join line 2: player:tell
#133:join line 13: player:tell
#133:join line 16: player:tell
#133:join line 19: player:tell
#133:join line 23: player:tell
#133:join line 25: player:tell
#133:donate line 3: player:tell
#133:donate line 7: player:tell
#133:donate line 12: player:tell
#133:donate line 21: player:tell
#134:list line 12: player:tell
#134:list line 16: player:tell
#134:list line 26: player:tell
#134:list line 30: player:tell
#134:list line 31: player:tell
#134:list line 32: player:tell
#134:list line 33: player:tell
#134:stock line 3: player:tell
#134:stock line 7: player:tell
#134:stock line 11: player:tell
#134:unstock line 3: player:tell
#134:unstock line 8: player:tell
#134:unstock line 11: player:tell
#134:sell line 28: player:tell
#134:ask line 27: player:tell
#134:sell_product line 43: player:tell
#134:check_stocks line 3: player:tell
#134:check_stocks line 11: player:tell
#134:check_stocks line 12: player:tell
#134:check_stocks line 14: player:tell
#135:reg*ister line 2: player:tell
#135:reg*ister line 7: player:tell
#135:reg*ister line 10: player:tell
#135:reg*ister line 12: player:tell
#135:reg*ister line 17: player:tell
#135:reg*ister line 18: player:tell
#135:reg*ister line 25: player:tell
#135:reg*ister line 28: player:tell
#135:reg*ister line 31: player:tell
#135:view line 15: player:tell
#135:view line 18: player:tell
#135:view line 23: player:tell
#135:huh line 10: player:tell
#135:dis_match_object line 19: player:tell
#135:unregister line 2: player:tell
#135:unregister line 7: player:tell
#135:unregister line 12: player:tell
#135:unregister line 15: player:tell
#135:unregister line 18: player:tell
#138:reset line 4: player:tell
#140:l*ook line 3: player:tell
#140:l*ook line 6: player:tell
#140:look_self line 6: player:tell
#140:o*ut line 2: player:tell
#140:yell line 2: player:tell
#140:yell line 8: player:tell
#140:@exdescribe line 2: player:tell
#140:@exdescribe line 4: player:tell
#140:@exdescribe line 7: player:tell
#140:dr*op line 3: player:tell
#140:dr*op line 5: player:tell
#140:dr*op line 11: player:tell
#140:g*et line 2: player:tell
#140:g*et line 7: player:tell
#140:enter line 2: player:tell
#140:@listen line 4: player:Tell
#140:@listen line 6: player:tell
#140:@listen line 10: player:tell
#140:@listen line 12: player:tell
#140:@listen line 15: player:tell
#140:@listen line 18: player:tell
#140:@clear line 4: player:tell
#140:@clear line 6: player:tell
#140:@clear line 10: player:tell
#140:@clear line 12: player:tell
#140:@clear line 15: player:tell
#140:@clear line 18: player:tell
#141:facts line 25: player:tell
#141:roll line 3: player:tell
#141:pick_race line 10: player:tell
#141:pick_race line 12: player:tell
#141:pick_race line 13: player:tell
#141:pick_race line 15: player:tell
#141:pick_race line 25: player:tell
#141:pick_race line 28: player:tell
#141:pick_race line 32: player:tell
#141:pick_race line 41: player:tell
#141:pick_race line 50: player:tell
#141:pick_race line 54: player:tell
#141:set line 3: player:tell
#141:set line 9: player:tell
#141:set line 19: player:tell
#141:set line 26: player:tell
#141:set line 27: player:tell
#141:pick_org line 6: player:tell
#141:pick_org line 8: player:tell
#141:pick_org line 9: player:tell
#141:pick_org line 11: player:tell
#141:pick_org line 22: player:tell
#141:pick_org line 25: player:tell
#141:pick_org line 29: player:tell
#141:pick_org line 38: player:tell
#141:pick_org line 42: player:tell
#141:o*ut line 5: player:tell
#141:o*ut line 10: player:tell
#143:cb line 15: player:tell
#143:cb line 17: player:tell
#143:cb line 25: player:tell
#143:broadcast line 4: player:tell
#143:sign_on line 3: player:tell
#143:sign_off line 5: player:tell
#143:sign_off line 7: player:tell
#143:show_who line 9: player:tell
#144:link line 3: player:tell
#144:link line 6: player:tell
#144:link line 14: player:tell
#144:link line 16: player:tell
#144:bot* line 3: player:tell
#144:bot* line 5: player:tell
#144:bot* line 11: player:tell
#158:g*et line 5: player:tell
#164:pr*ess line 28: player:tell
#164:pr*ess line 48: player:tell
#164:pr*ess line 121: player:tell
#164:pr*ess line 154: player:tell
#165:dr*op line 6: player:tell
#165:dr*op line 8: player:tell
#165:dr*op line 15: player:tell
#165:dr*op line 17: player:tell
#165:dr*op line 40: player:tell
#166:dr*op line 7: player:tell
#166:dr*op line 18: player:tell
#166:dr*op line 20: player:tell
#166:dr*op line 24: player:tell

Source

1if (this.gaglist || this.paranoid)
2"Check the above first, default case, to save ticks.  Paranoid gaggers are cost an extra three or so ticks by this, probably a net savings.";
3if (this:gag_p())
4return;
5endif
6if (this.paranoid == 1)
7$paranoid_db:add_data(this, {{@callers(), {player, "<cmd-line>", player}}, args});
8elseif (this.paranoid == 2)
9z = this:whodunnit({@callers(), {player, "", player}}, {this, $no_one}, {})[3];
10args = {"(", z.name, " ", z, ") ", @args};
11endif
12endif
13pass(@args);

`gag_p`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:tell line 3: this:gag_p
#6:tell_lines line 7: this:gag_p

Source

1if (player in this.gaglist)
2return 1;
3elseif (gag = this.gaglist)
4for x in (callers())
5if (((x[1] == #-1) && (x[3] == #-1)) && (x[2] != ""))
6elseif ((x[1] in gag) || (x[4] in gag))
7return 1;
8endif
9endfor
10endif
11return 0;
12"--- old definition --";
13if (player in this.gaglist)
14return 1;
15elseif (this.gaglist)
16for x in (callers())
17if (valid(x[1]))
18if (x[1] in this.gaglist)
19return 1;
20endif
21endif
22endfor
23endif
24return 0;

`set_gaglist`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:@gag*! line 21: player:set_gaglist

Source

1":set_gaglist(@newlist) => this.gaglist = newlist";
2if (!((caller == this) || $perm_utils:controls(caller_perms(), this)))
3return E_PERM;
4else
5return this.gaglist = args;
6endif

`@gag*!`

Spec any any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(player);
2if (player != this)
3player:notify("Permission denied.");
4return;
5endif
6if (!args)
7player:notify(tostr("Usage:  ", verb, " <player or object> [<player or object>...]"));
8return;
9endif
10victims = $string_utils:match_player_or_object(@args);
11changed = 0;
12for p in (victims)
13if (p in player.gaglist)
14player:notify(tostr("You are already gagging ", p.name, "."));
15elseif (p == player)
16player:notify("Gagging yourself is a bad idea.");
17elseif (children(p) && (verb != "@gag!"))
18player:tell("If you really want to gag all descendents of ", $string_utils:nn(p), ", use `@gag! ", p, "' instead.");
19else
20changed = 1;
21player:set_gaglist(@setadd(this.gaglist, p));
22endif
23endfor
24if (changed)
25this:("@listgag")();
26endif

`@listgag @gaglist @gagged`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(valid(caller_perms()) ? caller_perms() | player);
2if (!this.gaglist)
3player:notify(tostr("You are ", callers() ? "no longer gagging anything." | "not gagging anything right now."));
4else
5player:notify(tostr("You are ", callers() ? "now" | "currently", " gagging ", $string_utils:english_list($list_utils:map_arg(2, $string_utils, "pronoun_sub", "%n (%#)", this.gaglist)), "."));
6endif
7gl = {};
8if (args)
9player:notify("Searching for players who may be gagging you...");
10for p in (players())
11if ((typeof(`p.gaglist ! E_PERM') == LIST) && (this in p.gaglist))
12gl = {@gl, p};
13endif
14$command_utils:suspend_if_needed(10, "...searching gaglist...");
15endfor
16if (gl || (!callers()))
17player:notify(tostr($string_utils:english_list($list_utils:map_arg(2, $string_utils, "pronoun_sub", "%n (%#)", gl), "No one"), " appear", (length(gl) <= 1) ? "s" | "", " to be gagging you."));
18endif
19endif

`@ungag`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1if ((player != this) || ((caller != this) && (!$perm_utils:controls(caller_perms(), this))))
2player:notify("Permission denied.");
3elseif (dobjstr == "")
4player:notify(tostr("Usage:  ", verb, " <player>  or  ", verb, " everyone"));
5elseif (dobjstr == "everyone")
6this.gaglist = {};
7player:notify("You are no longer gagging anyone or anything.");
8else
9if (valid(dobj))
10match = dobj;
11elseif ((match = toobj(dobjstr)) > #0)
12else
13match = $string_utils:match(dobjstr, this.gaglist, "name", this.gaglist, "aliases");
14endif
15if (match == $failed_match)
16player:notify(tostr("You don't seem to be gagging anything named ", dobjstr, "."));
17elseif (match == $ambiguous_match)
18player:notify(tostr("I don't know which \"", dobjstr, "\" you mean."));
19else
20this.gaglist = setremove(this.gaglist, match);
21player:notify(tostr(valid(match) ? match.name | match, " removed from gag list."));
22endif
23this:("@listgag")();
24endif

`whodunnit`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:tell line 9: this:whodunnit
#6:@ch*eck-full line 23: this:whodunnit
#6:tell_lines line 11: this:whodunnit

Source

1{record, trust, mistrust} = args;
2s = {this, "???", this};
3for w in (record)
4if (((((!valid(s[3])) || s[3].wizard) || (s[3] in trust)) && (!(s[3] in mistrust))) || (s[1] == this))
5s = w;
6else
7return s;
8endif
9endfor
10return s;

`@ch*eck-full`

Spec any any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1responsible = $paranoid_db:get_data(this);
2if (length(verb) <= 6)
3"@check, not @check-full";
4n = 5;
5trust = {this, $no_one};
6"... trust no one, my friend.... no one....  --Herod";
7mistrust = {};
8for k in (args)
9if (z = $code_utils:toint(k))
10n = z;
11elseif (k[1] == "!")
12mistrust = listappend(mistrust, $string_utils:match_player(k[2..$]));
13else
14trust = listappend(trust, $string_utils:match_player(k));
15endif
16endfor
17msg_width = player:linelen() - 60;
18for q in ((n > (y = length(responsible))) ? responsible | responsible[(y - n) + 1..y])
19msg = tostr(@q[2]);
20if (length(msg) > msg_width)
21msg = msg[1..msg_width];
22endif
23s = this:whodunnit(q[1], trust, mistrust);
24text = valid(s[1]) ? s[1].name | "** NONE **";
25this:notify(tostr($string_utils:left(tostr((length(text) > 13) ? text[1..13] | text, " (", s[1], ")"), 20), $string_utils:left(s[2], 15), $string_utils:left(tostr((length(s[3].name) > 13) ? s[3].name[1..13] | s[3].name, " (", s[3], ")"), 20), msg));
26endfor
27this:notify("*** finished ***");
28else
29"@check-full, from @traceback by APHiD";
30"s_i_n's by Ho_Yan 10/18/94";
31matches = {};
32if (length(match = argstr) == 0)
33player:notify(tostr("Usage: ", verb, " <string> --or-- ", verb, " <number>"));
34return;
35endif
36if (!responsible)
37player:notify("No text has been saved by the monitor.  (See `help @paranoid').");
38else
39if (typeof(x = $code_utils:toint(argstr)) == ERR)
40for line in (responsible)
41if (index(tostr(@line[$]), argstr))
42matches = {@matches, line};
43endif
44endfor
45else
46matches = responsible[($ - x) + 1..$];
47endif
48if (matches)
49for match in (matches)
50$command_utils:suspend_if_needed(3);
51text = tostr(@match[$]);
52player:notify("Traceback for:");
53player:notify(text);
54"Moved cool display code to $code_utils, 3/29/95, Ho_Yan";
55$code_utils:display_callers(listdelete(mm = match[1], length(mm)));
56endfor
57player:notify("**** finished ****");
58else
59player:notify(tostr("No matches for \"", argstr, "\" found."));
60endif
61endif
62endif

`@paranoid`

Spec any any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1if ((args == {}) || ((typ = args[1]) == ""))
2$paranoid_db:set_kept_lines(this, 10);
3this.paranoid = 1;
4this:notify("Anti-spoofer on and keeping 10 lines.");
5elseif (index("immediate", typ))
6$paranoid_db:set_kept_lines(this, 0);
7this.paranoid = 2;
8this:notify("Anti-spoofer now in immediate mode.");
9elseif (index("off", typ) || (typ == "0"))
10this.paranoid = 0;
11$paranoid_db:set_kept_lines(this, 0);
12this:notify("Anti-spoofer off.");
13elseif ((tostr(y = toint(typ)) != typ) || (y < 0))
14this:notify(tostr("Usage: ", verb, " <lines to be kept>     to turn on your anti-spoofer."));
15this:notify(tostr("       ", verb, " off                    to turn it off."));
16this:notify(tostr("       ", verb, " immediate              to use immediate mode."));
17else
18this.paranoid = 1;
19$paranoid_db:set_kept_lines(this, y = min(y, 30));
20this:notify(tostr("Anti-spoofer on and keeping ", y, " lines."));
21endif

`@sw*eep`

Spec none none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1buggers = 1;
2found_listener = 0;
3here = this.location;
4for thing in (setremove(here.contents, this))
5tellwhere = $object_utils:has_verb(thing, "tell");
6notifywhere = $object_utils:has_verb(thing, "notify");
7if (thing in connected_players())
8this:notify(tostr(thing.name, " (", thing, ") is listening."));
9found_listener = 1;
10elseif ($object_utils:has_callable_verb(thing, "sweep_msg") && (typeof(msg = thing:sweep_msg()) == STR))
11this:notify(tostr(thing.name, " (", thing, ") ", msg, "."));
12found_listener = 1;
13elseif (tellwhere && (((owner = verb_info(tellwhere[1], "tell")[1]) != this) && (!owner.wizard)))
14this:notify(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"));
15found_listener = 1;
16elseif (notifywhere && (((owner = verb_info(notifywhere[1], "notify")[1]) != this) && (!owner.wizard)))
17this:notify(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"));
18found_listener = 1;
19endif
20endfor
21buggers = {};
22for v in ({"announce", "announce_all", "announce_all_but", "say", "emote", "huh", "here_huh", "huh2", "whisper", "here_explain_syntax"})
23vwhere = $object_utils:has_verb(here, v);
24if (vwhere && (((owner = verb_info(vwhere[1], v)[1]) != this) && (!owner.wizard)))
25buggers = setadd(buggers, owner);
26endif
27endfor
28if (buggers != {})
29if ($object_utils:has_verb(here, "sweep_msg") && (typeof(msg = here:sweep_msg()) == STR))
30this:notify(tostr(here.name, " (", here, ") ", msg, "."));
31else
32this:notify(tostr(here.name, " (", here, ") may have been bugged by ", $string_utils:english_list($list_utils:map_prop(buggers, "name")), "."));
33endif
34elseif (!found_listener)
35this:notify("Communications look secure.");
36endif

`wh*isper`

Spec any at/to thisFlags rxdOwner #2Definer #6

Referenced by

#90:wh*isper line 6: pass(

Source

1this:tell(player.name, " whispers, \"", dobjstr, "\"");
2player:tell("You whisper, \"", dobjstr, "\" to ", this.name, ".");

`page`

Spec any any anyFlags rxdOwner #2Definer #6

Referenced by

#91:quickpage line 44: player:page

Source

1nargs = length(args);
2if (nargs < 1)
3player:notify(tostr("Usage: ", verb, " <player> [with <message>]"));
4return;
5endif
6who = $string_utils:match_player(args[1]);
7if ($command_utils:player_match_result(who, args[1])[1])
8return;
9elseif (who in this.gaglist)
10player:tell("You have ", who:title(), " @gagged.  If you paged ", $gender_utils:get_pronoun("o", who), ", ", $gender_utils:get_pronoun("s", who), " wouldn't be able to answer you.");
11return;
12endif
13"for pronoun_sub's benefit...";
14dobj = who;
15iobj = player;
16header = player:page_origin_msg();
17text = "";
18if (nargs > 1)
19if ((args[2] == "with") && (nargs > 2))
20msg_start = 3;
21else
22msg_start = 2;
23endif
24msg = $string_utils:from_list(args[msg_start..nargs], " ");
25text = tostr($string_utils:pronoun_sub(($string_utils:index_delimited(header, player.name) ? "%S" | "%N") + " %<pages>, \""), msg, "\"");
26endif
27result = text ? who:receive_page(header, text) | who:receive_page(header);
28if (result == 2)
29"not connected";
30player:tell((typeof(msg = who:page_absent_msg()) == STR) ? msg | $string_utils:pronoun_sub("%n is not currently logged in.", who));
31if (length(who.messages) > 20)
32"too much old mail to receive messages.";
33return;
34endif
35mail = text ? $command_utils:yes_or_no("Would you like the page sent as mail?") | 0;
36if (mail)
37$mail_agent:send_message(player, who, "While you were out...", {header, text});
38return player:tell("Message sent.");
39endif
40player:tell("Page cancelled.");
41else
42player:tell(who:page_echo_msg());
43endif

`receive_page`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#90:receive_page line 7: pass(

Source

1"called by $player:page.  Two args, the page header and the text, all pre-processed by the page command.  Could be extended to provide haven abilities, multiline pages, etc.  Indeed, at the moment it just does :tell_lines, so we already do have multiline pages, if someone wants to take advantage of it.";
2"Return codes:";
3"  1:  page was received";
4"  2:  player is not connected";
5"  0:  page refused";
6"If a specialization wants to refuse a page, it should return 0 to say it was refused.  If it uses pass(@args) it should propagate back up the return value.  It is possible that this code should interact with gagging and return 0 if the page was gagged.";
7if (this:is_listening())
8this:tell_lines(args);
9return 1;
10else
11return 2;
12endif

`page_origin_msg page_echo_msg page_absent_msg`

Spec this none thisFlags rxdOwner #36Definer #6

Referenced by

#6:page line 16: player:page_origin_msg
#90:page_echo_msg line 6: pass(

Source

1"set_task_perms(this.owner)";
2return (msg = `this.(verb) ! ANY') ? $string_utils:pronoun_sub(this.(verb), this) | "";

`i inv*entory`

Spec none none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1if (c = player:contents())
2this:tell_contents(c);
3else
4player:tell("You are empty-handed.");
5endif

`look_self`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#104:l*ook line 4: player:look_self

Source

1player:tell(this:titlec());
2pass();
3if (!(this in connected_players()))
4player:tell($gender_utils:pronoun_sub("%{:He} %{!is} sleeping.", this));
5elseif ((idle = idle_seconds(this)) < 60)
6player:tell($gender_utils:pronoun_sub("%{:He} %{!is} awake and %{!looks} alert.", this));
7else
8time = $string_utils:from_seconds(idle);
9player:tell($gender_utils:pronoun_sub("%{:He} %{!is} awake, but %{!has} been staring off into space for ", this), time, ".");
10endif
11if (c = this:contents())
12this:tell_contents(c);
13endif

`home`

Spec none none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1start = this.location;
2if (start == this.home)
3player:tell("You're already home!");
4return;
5elseif (typeof(this.home) != OBJ)
6player:tell("You've got a weird home, pal.  I've reset it to the default one.");
7this.home = $player_start;
8elseif (!valid(this.home))
9player:tell("Oh no!  Your home's been recycled.  Time to look around for a new one.");
10this.home = $player_start;
11else
12player:tell("You click your heels three times.");
13endif
14this:moveto(this.home);
15if (!valid(start))
16elseif (start == this.location)
17start:announce(player.name, " ", $gender_utils:get_conj("learns", player), " that you can never go home...");
18else
19start:announce(player.name, " ", $gender_utils:get_conj("goes", player), " home.");
20endif
21if (this.location == this.home)
22this.location:announce(player.name, " ", $gender_utils:get_conj("comes", player), " home.");
23elseif (this.location == start)
24player:tell("Either home doesn't want you, or you don't really want to go.");
25else
26player:tell("Wait a minute!  This isn't your home...");
27if (valid(this.location))
28this.location:announce(player.name, " ", $gender_utils:get_conj("arrives", player), ", looking quite bewildered.");
29endif
30endif

`@sethome`

Spec none none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(this);
2here = this.location;
3if (!$object_utils:has_callable_verb(here, "accept_for_abode"))
4player:notify("This is a pretty odd place.  You should make your home in an actual room.");
5elseif (here:accept_for_abode(this))
6this.home = here;
7player:notify(tostr(here.name, " is your new home."));
8else
9player:notify(tostr("This place doesn't want to be your home.  Contact ", here.owner.name, " to be added to the residents list of this place, or choose another place as your home."));
10endif

`g*et take`

Spec this none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1player:tell("This is not a pick-up joint!");
2this:tell(player.name, " tried to pick you up.");

`@move @teleport`

Spec any at/to anyFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"'@move <object> to <place>' - Teleport an object. Example: '@move trash to #11' to move trash to the closet.";
2set_task_perms((caller == this) ? this | $no_one);
3dobj = this:my_match_object(dobjstr);
4iobj = this:my_match_object(iobjstr);
5if ($command_utils:object_match_failed(dobj, dobjstr) || ((iobj != $nothing) && $command_utils:object_match_failed(iobj, iobjstr)))
6return;
7endif
8if ((!$perm_utils:controls(this, dobj)) && (this != dobj))
9player:tell("You may only @move your own things.");
10return;
11endif
12old_loc = dobj.location;
13if (old_loc == iobj)
14player:tell(dobj.name, " is already ", valid(iobj) ? "in " + iobj.name | "nowhere", ".");
15return;
16endif
17dobj:moveto(iobj);
18if (dobj.location == iobj)
19player:tell("Moved.");
20if (is_player(dobj))
21if (valid(old_loc))
22old_loc:announce_all(dobj.name, " disappears suddenly for parts unknown.");
23if (dobj != player)
24dobj:tell("You have been moved by ", player.name, ".");
25endif
26endif
27if (valid(dobj.location))
28dobj.location:announce(dobj.name, " materializes out of thin air.");
29endif
30endif
31elseif (dobj.location == old_loc)
32if ($object_utils:contains(dobj, iobj))
33player:tell(iobj.name, " is inside of ", dobj.name, "!");
34else
35player:tell($string_utils:pronoun_sub("Either %d doesn't want to go, or %i doesn't want to accept %[dpo]."));
36endif
37elseif (dobj == player)
38player:tell("You have been deflected from your original destination.");
39else
40player:tell($string_utils:pronoun_sub("%D has been deflected from %[dpp] original destination."));
41endif

`@eject @eject! @eject!!`

Spec any out of/from inside/from anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(player);
2if (iobjstr == "here")
3iobj = player.location;
4elseif (iobjstr == "me")
5iobj = player;
6elseif ($command_utils:object_match_failed(iobj, iobjstr))
7return;
8endif
9if (!$perm_utils:controls(player, iobj))
10player:notify(tostr("You are not the owner of ", iobj.name, "."));
11return;
12endif
13if (dobjstr == "me")
14dobj = player;
15elseif (($failed_match == (dobj = $string_utils:literal_object(dobjstr))) && $command_utils:object_match_failed(dobj = iobj:match(dobjstr), dobjstr))
16return;
17endif
18if (dobj.location != iobj)
19player:notify(tostr(dobj.name, "(", dobj, ") is not in ", iobj.name, "(", iobj, ")."));
20return;
21endif
22if (dobj.wizard)
23player:notify(tostr("Sorry, you can't ", verb, " a wizard."));
24dobj:tell(player.name, " tried to ", verb, " you.");
25return;
26endif
27iobj:((verb == "@eject") ? "eject" | "eject_basic")(dobj);
28player:notify($object_utils:has_callable_verb(iobj, "ejection_msg") ? iobj:ejection_msg() | $room:ejection_msg());
29if (verb != "@eject!!")
30dobj:tell($object_utils:has_callable_verb(iobj, "victim_ejection_msg") ? iobj:victim_ejection_msg() | $room:victim_ejection_msg());
31endif
32iobj:announce_all_but({player, dobj}, $object_utils:has_callable_verb(iobj, "oejection_msg") ? iobj:oejection_msg() | $room:oejection_msg());

`whereis @whereis`

Spec any any anyFlags rxdOwner #2Definer #6

Referenced by

none

Source

1if (!args)
2them = connected_players();
3else
4who = $command_utils:player_match_result($string_utils:match_player(args), args);
5if (length(who) <= 1)
6if (!who[1])
7player:notify("Where is who?");
8endif
9return;
10elseif (who[1])
11player:notify("");
12endif
13them = listdelete(who, 1);
14endif
15lmax = rmax = 0;
16for p in (them)
17player:notify(tostr($string_utils:left($string_utils:nn(p), 25), " ", $string_utils:nn(p.location)));
18endfor

`@who`

Spec any any anyFlags rxdOwner #2Definer #6

Referenced by

#95:@who line 5: pass(

Source

1if (caller != player)
2return E_PERM;
3endif
4plyrs = args ? listdelete($command_utils:player_match_result($string_utils:match_player(args), args), 1) | connected_players();
5if (!plyrs)
6return;
7elseif (length(plyrs) > 100)
8player:tell("You have requested a listing of ", length(plyrs), " players.  Please either specify individual players you are interested in, to reduce the number of players in any single request, or else use the `@users' command instead.  The lag thanks you.");
9return;
10endif
11$code_utils:show_who_listing(plyrs);

`@wizards`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"@wizards [all]";
2if (caller != player)
3return E_PERM;
4endif
5if (args)
6$code_utils:show_who_listing($wiz_utils:all_wizards());
7else
8$code_utils:show_who_listing($wiz_utils:connected_wizards()) || player:notify("No wizards currently logged in.");
9endif

`?* help info*rmation @help`

Spec any any anyFlags rxdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(callers() ? caller_perms() | player);
2"...this code explicitly relies on being !d in several places...";
3if ((index(verb, "?") != 1) || (length(verb) <= 1))
4what = $string_utils:trimr(argstr);
5elseif (argstr)
6what = tostr(verb[2..$], " ", $string_utils:trimr(argstr));
7else
8what = verb[2..$];
9endif
10if (valid(o = this:my_match_object(what)) && (help_msg = o:help_msg()))
11return this:tell_lines(help_msg);
12endif
13"...find a db that claims to know about `what'...";
14dblist = $code_utils:help_db_list();
15result = $code_utils:help_db_search(what, dblist);
16if (!result)
17"... note: all of the last-resort stuff...";
18"... is now located on $help:find_topics/get_topic...";
19$wiz_utils:missed_help(what, result);
20player:notify(tostr("Sorry, but no help is available on `", what, "'."));
21elseif (result[1] == $ambiguous_match)
22$wiz_utils:missed_help(what, result);
23player:notify_lines(tostr("Sorry, but the topic-name `", what, "' is ambiguous.  I don't know which of the following topics you mean:"));
24for x in ($help:columnize(@$help:sort_topics(result[2])))
25player:notify(tostr("   ", x));
26endfor
27else
28{help, topic} = result;
29if (topic != what)
30player:notify(tostr("Showing help on `", topic, "':"));
31player:notify("----");
32endif
33dblist = dblist[1 + (help in dblist)..$];
34if (1 == (text = help:get_topic(topic, dblist)))
35"...get_topic took matters into its own hands...";
36elseif (text)
37"...these can get long...";
38for line in ((typeof(text) == LIST) ? text | {text})
39if (typeof(line) != STR)
40player:notify("Odd results from help -- complain to a wizard.");
41else
42player:notify(line);
43endif
44(ticks_left() < 4000) && suspend(0);
45endfor
46else
47player:notify(tostr("Help DB ", help, " thinks it knows about `", what, "' but something's messed up."));
48player:notify(tostr("Tell ", help.owner.wizard ? "" | tostr(help.owner.name, " (", help.owner, ") or "), "a wizard."));
49endif
50endif

`display_option`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#58:@d*isplay line 41: this:display_option
#58:@d*isplay line 81: this:display_option
#58:@d*isplay line 135: this:display_option
#58:@d*isplay line 151: this:display_option

Source

1":display_option(name) => returns the value of the specified @display option";
2if ((caller == this) || $perm_utils:controls(caller_perms(), this))
3return $display_options:get(this.display_options, args[1]);
4else
5return E_PERM;
6endif

`edit_option`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#49:com*pile line 53: player:edit_option
#49:fetch_verb_code line 6: player:edit_option
#50:invoke line 39: player:edit_option
#50:y*ank line 58: player:edit_option

Source

1":edit_option(name) => returns the value of the specified edit option";
2if ((caller == this) || ($object_utils:isa(caller, $generic_editor) || $perm_utils:controls(caller_perms(), this)))
3return $edit_options:get(this.edit_options, args[1]);
4else
5return E_PERM;
6endif

`set_mail_option set_edit_option set_display_option`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1":set_edit_option(oname,value)";
2":set_display_option(oname,value)";
3":set_mail_option(oname,value)";
4"Changes the value of the named option.";
5"Returns a string error if something goes wrong.";
6if (!((caller == this) || $perm_utils:controls(caller_perms(), this)))
7return tostr(E_PERM);
8endif
9"...this is kludgy, but it saves me from writing the same verb 3 times.";
10"...there's got to be a better way to do this...";
11verb[1..4] = "";
12foo_options = verb + "s";
13"...";
14if (typeof(s = #0.(foo_options):set(this.(foo_options), @args)) == STR)
15return s;
16elseif (s == this.(foo_options))
17return 0;
18else
19this.(foo_options) = s;
20return 1;
21endif

`@mailoptions @mail-options @editoptions @edit-options @displayoptions @display-options`

Spec any any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1"@<what>-option <option> [is] <value>   sets <option> to <value>";
2"@<what>-option <option>=<value>        sets <option> to <value>";
3"@<what>-option +<option>     sets <option>   (usually equiv. to <option>=1";
4"@<what>-option -<option>     resets <option> (equiv. to <option>=0)";
5"@<what>-option !<option>     resets <option> (equiv. to <option>=0)";
6"@<what>-option <option>      displays value of <option>";
7set_task_perms(player);
8what = {"mail", "edit", "display"}[index("med", verb[2])];
9options = what + "_options";
10option_pkg = #0.(options);
11set_option = ("set_" + what) + "_option";
12if (!args)
13player:notify_lines({("Current " + what) + " options:", "", @option_pkg:show(this.(options), option_pkg.names)});
14return;
15elseif (typeof(presult = option_pkg:parse(args)) == STR)
16player:notify(presult);
17return;
18else
19if (length(presult) > 1)
20if (typeof(sresult = this:(set_option)(@presult)) == STR)
21player:notify(sresult);
22return;
23elseif (!sresult)
24player:notify("No change.");
25return;
26endif
27endif
28player:notify_lines(option_pkg:show(this.(options), presult[1]));
29endif

`set_name`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#95:set_name line 6: pass(
#95:set_name line 11: pass(

Source

1"set_name(newname) attempts to change this.name to newname";
2"  => E_PERM   if you don't own this";
3"  => E_INVARG if the name is already taken or prohibited for some reason";
4"  => E_NACC   if the player database is not taking new names right now.";
5"  => E_ARGS   if the name is too long (controlled by $login.max_player_name)";
6if (!($perm_utils:controls(caller_perms(), this) || (this == caller)))
7return E_PERM;
8elseif (!is_player(this))
9"we don't worry about the names of player classes.";
10set_task_perms(caller_perms());
11return pass(@args);
12elseif ($player_db.frozen)
13return E_NACC;
14elseif (length(name = args[1]) > $login.max_player_name)
15return E_ARGS;
16elseif (!($player_db:available(name, this) in {this, 1}))
17return E_INVARG;
18else
19old = this.name;
20this.name = name;
21if ((name != old) && (!(old in this.aliases)))
22$player_db:delete(old);
23endif
24$player_db:insert(name, this);
25return 1;
26endif

`set_aliases`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#95:set_aliases line 6: pass(
#95:set_aliases line 16: pass(

Source

1"set_aliases(alias_list)";
2"For changing player aliases, we check to make sure that none of the aliases match existing player names/aliases.  Aliases containing spaces are not entered in the $player_db and so are not subject to this restriction ($string_utils:match_player will not match on them, however, so they only match if used in the immediate room, e.g., with match_object() or somesuch).";
3"Also we make sure that the .name is included in the .alias list.  In any situation where .name and .aliases are both being changed, do the name change first.";
4"  => 1        if successful, and aliases changed from previous setting.";
5"  => 0        if resulting work didn't change aliases from previous.";
6"  => E_PERM   if you don't own this";
7"  => E_NACC   if the player database is not taking new aliases right now.";
8"  => E_TYPE   if alias_list is not a list";
9"  => E_INVARG if any element of alias_list is not a string";
10if (!($perm_utils:controls(caller_perms(), this) || (this == caller)))
11return E_PERM;
12elseif (!is_player(this))
13"we don't worry about the names of player classes.";
14return pass(@args);
15elseif ($player_db.frozen)
16return E_NACC;
17elseif (typeof(aliases = args[1]) != LIST)
18return E_TYPE;
19elseif ((length(aliases = setadd(aliases, this.name)) > ($object_utils:has_property($local, "max_player_aliases") ? $local.max_player_aliases | $maxint)) && (length(aliases) >= length(this.aliases)))
20return E_INVARG;
21else
22for a in (aliases)
23if (typeof(a) != STR)
24return E_INVARG;
25endif
26if ((!(index(a, " ") || index(a, "	"))) && (!($player_db:available(a, this) in {this, 1})))
27aliases = setremove(aliases, a);
28endif
29endfor
30changed = 0;
31old = this.aliases;
32this.aliases = aliases;
33for a in (old)
34if (!(a in aliases))
35$player_db:delete2(a, this);
36changed = 1;
37endif
38endfor
39for a in (aliases)
40if (!(index(a, " ") || index(a, "	")))
41$player_db:insert(a, this);
42if (!(a in old))
43changed = 1;
44endif
45endif
46endfor
47return changed;
48endif

`@rename*#`

Spec any at/to anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1if ((player != caller) || (player != this))
2return;
3endif
4set_task_perms(player);
5bynumber = verb == "@rename#";
6spec = $code_utils:parse_verbref(dobjstr);
7if (spec)
8if (!player.programmer)
9return player:notify(tostr(E_PERM));
10endif
11object = this:my_match_object(spec[1]);
12if (!$command_utils:object_match_failed(object, spec[1]))
13vname = spec[2];
14if (bynumber)
15vname = $code_utils:toint(vname);
16if (vname == E_TYPE)
17return player:notify("Verb number expected.");
18elseif ((vname < 1) || `vname > length(verbs(object)) ! E_PERM => 0')
19return player:notify("Verb number out of range.");
20endif
21endif
22try
23info = verb_info(object, vname);
24try
25result = set_verb_info(object, vname, listset(info, iobjstr, 3));
26player:notify("Verb name changed.");
27except e (ANY)
28player:notify(e[2]);
29endtry
30except (E_VERBNF)
31player:notify("That object does not define that verb.");
32except e (ANY)
33player:notify(e[2]);
34endtry
35endif
36elseif (bynumber)
37player:notify("@rename# can only be used with verbs.");
38elseif (pspec = $code_utils:parse_propref(dobjstr))
39if (!player.programmer)
40return player:notify(tostr(E_PERM));
41endif
42object = this:my_match_object(pspec[1]);
43if (!$command_utils:object_match_failed(object, pspec[1]))
44pname = pspec[2];
45try
46info = property_info(object, pname);
47try
48result = set_property_info(object, pname, {@info, iobjstr});
49player:notify("Property name changed.");
50except e (ANY)
51player:notify(e[2]);
52endtry
53except (E_PROPNF)
54player:notify("That object does not define that property.");
55except e (ANY)
56player:notify(e[2]);
57endtry
58endif
59else
60object = this:my_match_object(dobjstr);
61if (!$command_utils:object_match_failed(object, dobjstr))
62old_name = object.name;
63old_aliases = object.aliases;
64if (e = $building_utils:set_names(object, iobjstr))
65if (strcmp(object.name, old_name) == 0)
66name_message = tostr("Name of ", object, " (", old_name, ") is unchanged");
67else
68name_message = tostr("Name of ", object, " changed to \"", object.name, "\"");
69endif
70aliases = $string_utils:from_value(object.aliases, 1);
71if (object.aliases == old_aliases)
72alias_message = tostr(".  Aliases are unchanged (", aliases, ").");
73else
74alias_message = tostr(", with aliases ", aliases, ".");
75endif
76player:notify(name_message + alias_message);
77elseif (e == E_INVARG)
78player:notify("That particular name change not allowed (see help @rename).");
79if (object == player)
80player:notify($player_db:why_bad_name(player, iobjstr));
81endif
82elseif (e == E_NACC)
83player:notify("Oops.  You can't update that name right now; try again in a few minutes.");
84elseif (e == E_ARGS)
85player:notify(tostr("Sorry, name too long.  Maximum number of characters in a name:  ", $login.max_player_name));
86elseif (e == 0)
87player:notify("Name and aliases remain unchanged.");
88else
89player:notify(tostr(e));
90endif
91endif
92endif

`@addalias# @add-alias#`

Spec any at/to anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1"Syntax: @addalias <alias>[,...,<alias>] to <object>";
2"        @addalias <alias>[,...,<alias>] to <object>:<verb>";
3"";
4"The first form is used to add aliases to an object's list of aliases.  You can separate multiple aliases with commas.  The aliases will be checked against the object's current aliases and all aliases not already in the object's list of aliases will be added.";
5"";
6"Example:";
7"Muchkin wants to add new aliases to Rover the Wonder Dog:";
8"  @addalias Dog,Wonder Dog to Rover";
9"Since Rover the Wonder Dog already has the alias \"Dog\" but does not have the alias \"Wonder Dog\", Munchkin sees:";
10"  Rover the Wonder Dog(#4237) already has the alias Dog.";
11"  Alias Wonder Dog added to Rover the Wonder Dog(#4237).";
12"";
13"If the object is a player, spaces will also be assumed to be separations between aliases and each alias will be checked against the Player Name Database to make sure no one else is using it. Any already used aliases will be identified.";
14"";
15"Example:";
16"Munchkin wants to add his nicknames to his own list of aliases:";
17"  @addalias Foobar Davey to me";
18"@Addalias recognizes that Munchkin is trying to add an alias to a valid player and checks the aliases against the Player Name Database.  Unfortunately, DaveTheMan is already using the alias \"Davey\" so Munchkin sees:";
19"  DaveTheMan(#5432) is already using the alias Davey";
20"  Alias Foobar added to Munchkin(#1523).";
21"";
22"The second form of the @addalias command is for use by programmers, to add aliases to a verb they own.  All commas and spaces are assumed to be separations between aliases.";
23if (player != this)
24return;
25endif
26set_task_perms(player);
27bynumber = verb[$] == "#";
28spec = $code_utils:parse_verbref(iobjstr);
29if (spec)
30if (!player.programmer)
31return player:notify(tostr(E_PERM));
32endif
33object = player:my_match_object(spec[1]);
34if (!$command_utils:object_match_failed(object, spec[1]))
35vname = spec[2];
36if (bynumber)
37if ((vname = $code_utils:toint(vname)) == E_TYPE)
38return player:notify("Verb number expected.");
39elseif ((vname < 1) || `vname > length(verbs(object)) ! E_PERM => 0')
40return player:notify("Verb number out of range.");
41endif
42endif
43try
44info = verb_info(object, vname);
45old_aliases = $string_utils:explode(info[3]);
46used = {};
47for alias in (new_aliases = $list_utils:remove_duplicates($string_utils:explode(strsub(dobjstr, ",", " "))))
48if (alias in old_aliases)
49used = {@used, alias};
50new_aliases = setremove(new_aliases, alias);
51endif
52endfor
53if (used)
54player:notify(tostr(object.name, "(", object, "):", vname, " already has the alias", (length(used) > 1) ? "es" | "", " ", $string_utils:english_list(used), "."));
55endif
56if (new_aliases)
57info = listset(info, aliases = $string_utils:from_list({@old_aliases, @new_aliases}, " "), 3);
58try
59result = set_verb_info(object, vname, info);
60player:notify(tostr("Alias", (length(new_aliases) > 1) ? "es" | "", " ", $string_utils:english_list(new_aliases), " added to verb ", object.name, "(", object, "):", vname));
61player:notify(tostr("Verbname is now ", object.name, "(", object, "):\"", aliases, "\""));
62except e (ANY)
63player:notify(e[2]);
64endtry
65endif
66except (E_VERBNF)
67player:notify("That object does not define that verb.");
68except e (ANY)
69player:notify(e[2]);
70endtry
71endif
72elseif (bynumber)
73player:notify(tostr(verb, " can only be used with verbs."));
74else
75object = player:my_match_object(iobjstr);
76if (!$command_utils:object_match_failed(object, iobjstr))
77old_aliases = object.aliases;
78used = {};
79for alias in (new_aliases = $list_utils:remove_duplicates($list_utils:map_arg($string_utils, "trim", $string_utils:explode(is_player(object) ? strsub(dobjstr, " ", ",") | dobjstr, ","))))
80if (alias in old_aliases)
81used = {@used, alias};
82new_aliases = setremove(new_aliases, alias);
83elseif (is_player(object) && valid(someone = $player_db:find_exact(alias)))
84player:notify(tostr(someone.name, "(", someone, ") is already using the alias ", alias, "."));
85new_aliases = setremove(new_aliases, alias);
86endif
87endfor
88if (used)
89player:notify(tostr(object.name, "(", object, ") already has the alias", (length(used) > 1) ? "es" | "", " ", $string_utils:english_list(used), "."));
90endif
91if (new_aliases)
92if ((e = object:set_aliases(aliases = {@old_aliases, @new_aliases})) && (object.aliases == aliases))
93player:notify(tostr("Alias", (length(new_aliases) > 1) ? "es" | "", " ", $string_utils:english_list(new_aliases), " added to ", object.name, "(", object, ")."));
94player:notify(tostr("Aliases for ", $string_utils:nn(object), " are now ", $string_utils:from_value(aliases, 1)));
95elseif (e)
96player:notify("That particular name change not allowed (see help @rename or help @addalias).");
97elseif (e == E_INVARG)
98if ($object_utils:has_property(#0, "local"))
99if ($object_utils:has_property($local, "max_player_aliases"))
100max = $local.max_player_aliases;
101player:notify(("You are not allowed more than " + tostr(max)) + " aliases.");
102endif
103else
104player:notify("You are not allowed any more aliases.");
105endif
106elseif (e == E_NACC)
107player:notify("Oops.  You can't update that object's aliases right now; try again in a few minutes.");
108elseif (e == 0)
109player:notify("Aliases not changed as expected!");
110player:notify(tostr("Aliases for ", $string_utils:nn(object), " are now ", $string_utils:from_value(object.aliases, 1)));
111else
112player:notify(tostr(e));
113endif
114endif
115endif
116endif

`@rmalias# @rm-alias#`

Spec any out of/from inside/from anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1"Syntax: @rmalias <alias>[,...,<alias>] from <object>";
2"        @rmalias <alias>[,...,<alias>] from <object>:<verb>";
3"";
4"The first form is used to remove aliases from an object.  If the object is a valid player, space and commas will be assumed to be separations between unwanted aliases.  Otherwise, only commas will be assumed to be separations.";
5"[5/10/93 Nosredna: flushed above is_player feature";
6"Note that @rmalias will not affect the object's name, only its aliases.";
7"";
8"The second form is for use by programmers, to remove aliases from a verb they own.  All spaces and commas are assumed to be separations between unwanted aliases.";
9if (player != this)
10return;
11endif
12set_task_perms(player);
13bynumber = verb[$] == "#";
14spec = $code_utils:parse_verbref(iobjstr);
15if (spec)
16if (!player.programmer)
17player:notify(tostr(E_PERM));
18endif
19object = player:my_match_object(spec[1]);
20if (!$command_utils:object_match_failed(object, spec[1]))
21vname = spec[2];
22if (bynumber)
23if ((vname = $code_utils:toint(vname)) == E_TYPE)
24return player:notify("Verb number expected.");
25elseif ((vname < 1) || `vname > length(verbs(object)) ! E_PERM => 0')
26return player:notify("Verb number out of range.");
27endif
28endif
29try
30info = verb_info(object, vname);
31old_aliases = $string_utils:explode(info[3]);
32not_used = {};
33for alias in (bad_aliases = $list_utils:remove_duplicates($string_utils:explode(strsub(dobjstr, ",", " "))))
34if (!(alias in old_aliases))
35not_used = {@not_used, alias};
36bad_aliases = setremove(bad_aliases, alias);
37else
38old_aliases = setremove(old_aliases, alias);
39endif
40endfor
41if (not_used)
42player:notify(tostr(object.name, "(", object, "):", vname, " does not have the alias", (length(not_used) > 1) ? "es" | "", " ", $string_utils:english_list(not_used), "."));
43endif
44if (bad_aliases && old_aliases)
45info = listset(info, aliases = $string_utils:from_list(old_aliases, " "), 3);
46try
47result = set_verb_info(object, vname, info);
48player:notify(tostr("Alias", (length(bad_aliases) > 1) ? "es" | "", " ", $string_utils:english_list(bad_aliases), " removed from verb ", object.name, "(", object, "):", vname));
49player:notify(tostr("Verbname is now ", object.name, "(", object, "):\"", aliases, "\""));
50except e (ANY)
51player:notify(e[2]);
52endtry
53elseif (!old_aliases)
54player:notify("You have to leave a verb with at least one alias.");
55endif
56except (E_VERBNF)
57player:notify("That object does not define that verb.");
58except e (ANY)
59player:notify(e[2]);
60endtry
61endif
62elseif (bynumber)
63player:notify(tostr(verb, " can only be used with verbs."));
64else
65object = player:my_match_object(iobjstr);
66if (!$command_utils:object_match_failed(object, iobjstr))
67old_aliases = object.aliases;
68not_used = {};
69for alias in (bad_aliases = $list_utils:remove_duplicates($list_utils:map_arg($string_utils, "trim", $string_utils:explode(dobjstr, ","))))
70"removed is_player(object) ? strsub(dobjstr, \" \", \",\") | --Nosredna";
71if (!(alias in old_aliases))
72not_used = {@not_used, alias};
73bad_aliases = setremove(bad_aliases, alias);
74else
75old_aliases = setremove(old_aliases, alias);
76endif
77endfor
78if (not_used)
79player:notify(tostr(object.name, "(", object, ") does not have the alias", (length(not_used) > 1) ? "es" | "", " ", $string_utils:english_list(not_used), "."));
80endif
81if (bad_aliases)
82if (e = object:set_aliases(old_aliases))
83player:notify(tostr("Alias", (length(bad_aliases) > 1) ? "es" | "", " ", $string_utils:english_list(bad_aliases), " removed from ", object.name, "(", object, ")."));
84player:notify(tostr("Aliases for ", object.name, "(", object, ") are now ", $string_utils:from_value(old_aliases, 1)));
85elseif (e == E_INVARG)
86player:notify("That particular name change not allowed (see help @rename or help @rmalias).");
87elseif (e == E_NACC)
88player:notify("Oops.  You can't update that object's aliases right now; try again in a few minutes.");
89elseif (e == 0)
90player:notify("Aliases not changed as expected!");
91player:notify(tostr("Aliases for ", $string_utils:nn(object), " are ", $string_utils:from_value(object.aliases, 1)));
92else
93player:notify(tostr(e));
94endif
95endif
96endif
97endif

`@desc*ribe`

Spec any as anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(player);
2dobj = player:my_match_object(dobjstr);
3if ($command_utils:object_match_failed(dobj, dobjstr))
4"...lose...";
5elseif (e = dobj:set_description(iobjstr))
6player:notify("Description set.");
7else
8player:notify(tostr(e));
9endif

`@mess*ages`

Spec any none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(player);
2if (dobjstr == "")
3player:notify(tostr("Usage:  ", verb, " <object>"));
4return;
5endif
6dobj = player:my_match_object(dobjstr);
7if ($command_utils:object_match_failed(dobj, dobjstr))
8return;
9endif
10found_one = 0;
11props = $object_utils:all_properties(dobj);
12if (typeof(props) == ERR)
13player:notify("You can't read the messages on that.");
14return;
15endif
16for pname in (props)
17len = length(pname);
18if ((len > 4) && (pname[len - 3..len] == "_msg"))
19found_one = 1;
20msg = `dobj.(pname) ! ANY';
21if (msg == E_PERM)
22value = "isn't readable by you.";
23elseif (!msg)
24value = "isn't set.";
25elseif (typeof(msg) == LIST)
26value = "is a list.";
27elseif (typeof(msg) != STR)
28value = "is corrupted! **";
29else
30value = "is " + $string_utils:print(msg);
31endif
32player:notify(tostr("@", pname[1..len - 4], " ", dobjstr, " ", value));
33endif
34endfor
35if (!found_one)
36player:notify("That object doesn't have any messages to set.");
37endif

`@notedit`

Spec any none noneFlags rdOwner #36Definer #6

Referenced by

none

Source

1$note_editor:invoke(dobjstr, verb);

`@last-c*onnection`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"@last-c           reports when and from where you last connected.";
2"@last-c all       adds the 10 most recent places you connected from.";
3"@last-c confunc   is like `@last-c' but is silent on first login.";
4opts = {"all", "confunc"};
5i = 0;
6if (caller != this)
7return E_PERM;
8elseif (args && ((length(args) > 1) || (!(i = $string_utils:find_prefix(args[1], opts)))))
9this:notify(tostr("Usage:  ", verb, " [all]"));
10return;
11endif
12opt_all = i && (opts[i] == "all");
13opt_confunc = i && (opts[i] == "confunc");
14if (!(prev = this.previous_connection))
15this:notify("Something was broken when you logged in; tell a wizard.");
16elseif (prev[1] == 0)
17opt_confunc || this:notify("Your previous connection was before we started keeping track.");
18elseif (prev[1] > time())
19this:notify("This is your first time connected.");
20else
21this:notify(tostr("Last connected ", this:ctime(prev[1]), " from ", prev[2]));
22if (opt_all)
23this:notify("Previous connections have been from the following sites:");
24for l in (this.all_connect_places)
25this:notify("   " + l);
26endfor
27endif
28endif

`set_gender`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:@gender line 7: this:set_gender
#31:do_reset line 11: this:set_gender

Source

1"set_gender(newgender) attempts to change this.gender to newgender";
2"  => E_PERM   if you don't own this or aren't its parent";
3"  => Other return values as from $gender_utils:set.";
4if (!($perm_utils:controls(caller_perms(), this) || (this == caller)))
5return E_PERM;
6else
7result = $gender_utils:set(this, args[1]);
8this.gender = (typeof(result) == STR) ? result | args[1];
9return result;
10endif

`@gender`

Spec any none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(valid(caller_perms()) ? caller_perms() | player);
2if (!args)
3player:notify(tostr("Your gender is currently ", this.gender, "."));
4player:notify($string_utils:pronoun_sub("Your pronouns:  %s,%o,%p,%q,%r,%S,%O,%P,%Q,%R"));
5player:notify(tostr("Available genders:  ", $string_utils:english_list($gender_utils.genders, "", " or ")));
6else
7result = this:set_gender(args[1]);
8quote = (result == E_NONE) ? "\"" | "";
9player:notify(tostr("Gender set to ", quote, this.gender, quote, "."));
10if (typeof(result) != ERR)
11player:notify($string_utils:pronoun_sub("Your pronouns:  %s,%o,%p,%q,%r,%S,%O,%P,%Q,%R"));
12elseif (result != E_NONE)
13player:notify(tostr("Couldn't set pronouns:  ", result));
14else
15player:notify("Pronouns unchanged.");
16endif
17endif

`set_brief`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:@mode line 18: this:set_brief
#6:@mode line 20: this:set_brief

Source

1"set_brief(value)";
2"set_brief(value, anything)";
3"If <anything> is given, add value to the current value; otherwise, just set the value.";
4if (!($perm_utils:controls(caller_perms(), this) || (this == caller)))
5return E_PERM;
6else
7if (length(args) == 1)
8this.brief = args[1];
9else
10this.brief = this.brief + args[1];
11endif
12endif

`@mode`

Spec any any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1"@mode <mode>";
2"Current modes are brief and verbose.";
3"General verb for setting player `modes'.";
4"Modes are coded right here in the verb.";
5if (caller != this)
6player:tell("You can't set someone else's modes.");
7return E_PERM;
8endif
9modes = {"brief", "verbose"};
10mode = modes[$string_utils:find_prefix(dobjstr, modes)];
11if (!mode)
12player:tell("Unknown mode \"", dobjstr, "\".  Known modes:");
13for mode in (modes)
14player:tell("  ", mode);
15endfor
16return 0;
17elseif (mode == "brief")
18this:set_brief(1);
19elseif (mode == "verbose")
20this:set_brief(0);
21endif
22player:tell($string_utils:capitalize(mode), " mode set.");
23return 1;

`@exam*ine`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"This verb should probably go away once 'examine' is in place.";
2if (dobjstr == "")
3player:notify(tostr("Usage:  ", verb, " <object>"));
4return;
5endif
6what = $string_utils:match_object(dobjstr, player.location);
7if ($command_utils:object_match_failed(what, dobjstr))
8return;
9endif
10player:notify(tostr(what.name, " (", what, ") is owned by ", valid(what.owner) ? what.owner.name | "a recycled player", " (", what.owner, ")."));
11player:notify(tostr("Aliases:  ", $string_utils:english_list(what.aliases)));
12desc = what:description();
13if (desc)
14player:notify_lines(desc);
15else
16player:notify("(No description set.)");
17endif
18if ($perm_utils:controls(player, what))
19player:notify(tostr("Key:  ", $lock_utils:unparse_key(what.key)));
20endif
21contents = what.contents;
22if (contents)
23player:notify("Contents:");
24for item in (contents)
25player:notify(tostr("  ", item.name, " (", item, ")"));
26endfor
27endif
28"Use dobjstr, not shortest alias.";
29name = dobjstr;
30"name = what.name;";
31"if (typeof(what.aliases) == LIST && what.aliases != {})";
32"for alias in (what.aliases)";
33"if (length(alias) <= length(name))";
34"name = alias;";
35"endif";
36"endfor";
37"endif";
38vrbs = {};
39commands_ok = what in {player, player.location};
40dull_classes = {$root_class, $room, $player, $prog};
41what = what;
42printed_working_msg = 0;
43while (what != $nothing)
44if ($command_utils:running_out_of_time())
45if (!printed_working_msg)
46player:notify("Working on list of obvious verbs...");
47printed_working_msg = 1;
48endif
49suspend(0);
50endif
51if (!(what in dull_classes))
52for i in [1..length(verbs(what))]
53if ($command_utils:running_out_of_time())
54if (!printed_working_msg)
55player:notify("Working on list of obvious verbs...");
56printed_working_msg = 1;
57endif
58suspend(0);
59endif
60info = verb_info(what, i);
61syntax = verb_args(what, i);
62if ((index(info[2], "r") && ((syntax[2..3] != {"none", "this"}) && (commands_ok || ("this" in syntax)))) && verb_code(what, i))
63{dobj, prep, iobj} = syntax;
64if (syntax == {"any", "any", "any"})
65prep = "none";
66endif
67if (prep != "none")
68for x in ($string_utils:explode(prep, "/"))
69if (length(x) <= length(prep))
70prep = x;
71endif
72endfor
73endif
74"This is the correct way to handle verbs ending in *";
75vname = info[3];
76while (j = index(vname, "* "))
77vname = tostr(vname[1..j - 1], "<anything>", vname[j + 1..$]);
78endwhile
79if (vname[$] == "*")
80vname = vname[1..$ - 1] + "<anything>";
81endif
82vname = strsub(vname, " ", "/");
83rest = "";
84if (prep != "none")
85rest = " " + ((prep == "any") ? "<anything>" | prep);
86if (iobj != "none")
87rest = tostr(rest, " ", (iobj == "this") ? name | "<anything>");
88endif
89endif
90if (dobj != "none")
91rest = tostr(" ", (dobj == "this") ? name | "<anything>", rest);
92endif
93vrbs = setadd(vrbs, ("  " + vname) + rest);
94endif
95endfor
96endif
97what = parent(what);
98endwhile
99if (vrbs)
100player:notify("Obvious Verbs:");
101player:notify_lines(vrbs);
102printed_working_msg && player:notify("(End of list.)");
103elseif (printed_working_msg)
104player:notify("No obvious verbs found.");
105endif

`exam*ine`

Spec any none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1set_task_perms(player);
2if (!dobjstr)
3player:notify(tostr("Usage:  ", verb, " <object>"));
4return E_INVARG;
5endif
6what = player.location:match_object(dobjstr);
7if ($command_utils:object_match_failed(what, dobjstr))
8return;
9endif
10what:do_examine(player);

`add_feature`

Spec this none thisFlags rxdOwner #36Definer #6

Referenced by

#6:init_for_core line 18: this:add_feature
#6:@add-feature line 14: player:add_feature
#31:do_reset line 22: this:add_feature

Source

1"Add a feature to this player's features list.  Caller must be this or have suitable permissions (this or wizardly).";
2"If this is a nonprogrammer, then ask feature if it is feature_ok (that is, if it has a verb :feature_ok which returns a true value, or a property .feature_ok which is true).";
3"After adding feature, call feature:feature_add(this).";
4"Returns true if successful, E_INVARG if not a valid object, and E_PERM if !feature_ok or if caller doesn't have permission.";
5if ((caller == this) || $perm_utils:controls(caller_perms(), this))
6feature = args[1];
7if ((typeof(feature) != OBJ) || (!valid(feature)))
8return E_INVARG;
9"Not a valid object.";
10endif
11if ($code_utils:verb_or_property(feature, "feature_ok", this))
12"The object is willing to be a feature.";
13if (typeof(this.features) == LIST)
14"If list, we can simply setadd the feature.";
15this.features = setadd(this.features, feature);
16else
17"If not, we erase the old value and create a new list.";
18this.features = {feature};
19endif
20"Tell the feature it's just been added.";
21try
22feature:feature_add(this);
23except (ANY)
24"just ignore errors.";
25endtry
26return 1;
27"We're done.";
28else
29return E_PERM;
30"Feature isn't feature_ok.";
31endif
32else
33return E_PERM;
34"Caller doesn't have permission.";
35endif

`remove_feature`

Spec this none thisFlags rxdOwner #36Definer #6

Referenced by

#6:my_huh line 17: this:remove_feature
#6:@remove-feature line 11: player:remove_feature
#31:do_reset line 17: this:remove_feature
#91:@features line 5: this:remove_feature

Source

1"Remove a feature from this player's features list.  Caller must be this, or have permissions of this, a wizard, or feature.owner.";
2"Returns true if successful, E_PERM if caller didn't have permission.";
3feature = args[1];
4if (((caller == this) || $perm_utils:controls(caller_perms(), this)) || (caller_perms() == feature.owner))
5if (typeof(this.features) == LIST)
6"If this is a list, we can just setremove...";
7this.features = setremove(this.features, feature);
8"Otherwise, we leave it alone.";
9endif
10"Let the feature know it's been removed.";
11try
12feature:feature_remove(this);
13except (ANY)
14"just ignore errors.";
15endtry
16return 1;
17"We're done.";
18else
19return E_PERM;
20"Caller didn't have permission.";
21endif

`@add-feature @addfeature`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

#31:@add-feature line 4: pass(
#91:@add-feature line 4: pass(

Source

1"Usage:";
2"  @add-feature";
3"  @add-feature <feature object>";
4"Modified 10 Oct 94, by Michele, to check the warehouse and match.";
5"Lists all features or adds an object to your features list.";
6set_task_perms(player);
7if (dobjstr)
8if (dobj == $failed_match)
9dobj = $feature.warehouse:match_object(dobjstr);
10endif
11if (!$command_utils:object_match_failed(dobj, dobjstr))
12if (dobj in player.features)
13player:tell(dobjstr, " is already one of your features.");
14elseif (player:add_feature(dobj))
15player:tell(dobj, " (", dobj.name, ") added as a feature.");
16else
17player:tell("You can't seem to add ", dobj, " (", dobj.name, ") to your features list.");
18endif
19endif
20else
21player:tell("Usage:  @add-feature <object>");
22if (length($feature.warehouse.contents) < 20)
23player:tell("Available features include:");
24player:tell("--------------------------");
25fe = {};
26for c in ($feature.warehouse.contents)
27fe = {(c in player.features) ? c:title() + " (*)" | c:title()};
28player:tell("  " + $string_utils:english_list(fe));
29endfor
30player:tell("--------------------------");
31player:tell("A * after the feature name means that you already have that feature.");
32endif
33endif

`@remove-feature @rmfeature`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"Usage:  @remove-feature <feature object>";
2"Remove an object from your .features list.";
3set_task_perms(player);
4if (dobjstr)
5features = player.features;
6if (!valid(dobj))
7dobj = $string_utils:match(dobjstr, features, "name", features, "aliases");
8endif
9if (!$command_utils:object_match_failed(dobj, dobjstr))
10if (dobj in features)
11player:remove_feature(dobj);
12player:tell(dobj, " (", dobj.name, ") removed from your features list.");
13else
14player:tell(dobjstr, " is not one of your features.");
15endif
16endif
17else
18player:tell("Usage:  @remove-feature <object>");
19endif

`@features`

Spec any for/about anyFlags rxdOwner #2Definer #6

Referenced by

#91:@features line 22: pass(

Source

1"Usage:  @features [<name>] for <player>";
2"List the feature objects matching <name> used by <player>.";
3if (!iobjstr)
4player:tell("Usage: @features [<name>] for <player>");
5return;
6elseif ($command_utils:player_match_failed(whose = $string_utils:match_player(iobjstr), iobjstr))
7return;
8endif
9features = {};
10for feature in (whose.features)
11if (!valid(feature))
12whose:remove_feature(feature);
13elseif ((!dobjstr) || ((dobjstr in feature.aliases) || ((pref = $string_utils:find_prefix(dobjstr, feature.aliases)) || (pref == $ambiguous_match))))
14features = listappend(features, feature);
15endif
16endfor
17if (features)
18len = max(length("Feature"), length(tostr(max_object()))) + 1;
19player:tell($string_utils:left("Feature", len), "Name");
20player:tell($string_utils:left("-------", len), "----");
21for feature in (features)
22player:tell($string_utils:left(tostr(feature), len), feature.name);
23endfor
24player:tell($string_utils:left("-------", len), "----");
25cstr = ((tostr(length(features)) + " feature") + ((length(features) > 1) ? "s" | "")) + " found";
26if (whose != this)
27cstr = ((((cstr + " on ") + whose.name) + " (") + tostr(whose)) + ")";
28endif
29if (dobjstr)
30cstr = ((cstr + " matching \"") + dobjstr) + "\"";
31endif
32cstr = cstr + ".";
33player:tell(cstr);
34elseif (dobjstr)
35player:tell("No features found on ", whose.name, " (", whose, ") matching \"", dobjstr, "\".");
36else
37player:tell("No features found on ", whose.name, " (", whose, ").");
38endif

`@memory`

Spec none none noneFlags rdOwner #36Definer #6

Referenced by

none

Source

1stats = {memory_usage()};
2if (!stats)
3player:notify("Sorry, but no memory-usage statistics are available for this server.");
4return;
5endif
6su = $string_utils;
7player:notify("Block Size   # In Use    # Free    Bytes In Use   Bytes Free");
8player:notify("----------   --------   --------   ------------   ----------");
9nused = nfree = bytesused = bytesfree = 0;
10kilo = 1024;
11meg = kilo * kilo;
12for x in (stats)
13if (x[2..3] != {0, 0})
14bsize = x[1];
15if ((bsize % meg) == 0)
16bsize = tostr(bsize / meg, " M");
17elseif ((bsize % kilo) == 0)
18bsize = tostr(bsize / kilo, " K");
19endif
20bused = x[1] * x[2];
21bfree = x[1] * x[3];
22player:notify(tostr(su:left(bsize, 10), "   ", su:right(su:group_number(x[2]), 8), "   ", su:right(su:group_number(x[3]), 8), "   ", su:right(su:group_number(bused), 12), "   ", su:right(su:group_number(bfree), 10)));
23nused = nused + x[2];
24nfree = nfree + x[3];
25bytesused = bytesused + bused;
26bytesfree = bytesfree + bfree;
27endif
28endfor
29player:notify("");
30player:notify(tostr(su:left("Totals:", 10), "   ", su:right(su:group_number(nused), 8), "   ", su:right(su:group_number(nfree), 8), "   ", su:right(su:group_number(bytesused), 12), "   ", su:right(su:group_number(bytesfree), 10)));
31player:notify("");
32player:notify(tostr("Total Memory Size: ", su:group_number(bytesused + bytesfree), " bytes."));

`@version`

Spec none none noneFlags rdOwner #36Definer #6

Referenced by

none

Source

1if ($object_utils:has_property($local, "server_hardware"))
2hw = (" on " + $local.server_hardware) + ".";
3else
4hw = ".";
5endif
6player:notify(tostr("The MOO is currently running version ", server_version(), " of the LambdaMOO server code", hw));
7try
8{MOOname, sversion, coretime} = $core_history[1];
9player:notify(tostr("The database was derived from a core created on ", $time_utils:time_sub("$n $t, $Y", coretime), " at ", MOOname, " for version ", sversion, " of the server."));
10except (E_RANGE)
11player:notify("The database was created from scratch.");
12except (ANY)
13player:notify("No information is available on the database version.");
14endtry

`@uptime`

Spec none none noneFlags rdOwner #36Definer #6

Referenced by

none

Source

1player:notify(tostr("The server has been up for ", $time_utils:english_time(time() - $last_restart_time), "."));

`@quit`

Spec none none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1boot_player(player);
2"-- argh, let the player decide; #3:disfunc() takes care of this --Rog";
3"player:moveto(player.home)";

`examine_commands_ok`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1return this == args[1];

`is_listening`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:receive_page line 7: this:is_listening
#21:do_audit line 18: player:is_listening

Source

1"return true if player is active.";
2return typeof(`idle_seconds(this) ! ANY') != ERR;

`moveto`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:home line 14: this:moveto
#50:done line 9: player:moveto
#104:attack_bypass line 19: player:moveto
#116:birth line 6: this:moveto
#116:birth line 8: this:moveto
#116:wander line 27: this:moveto
#140:o*ut line 7: player:moveto
#140:enter line 7: player:moveto
#146:init_for_core line 1: this:moveto
#159:init_for_core line 2: this:moveto

Source

1if (args[1] == #-1)
2return E_INVARG;
3this:notify("You are now in #-1, The Void.  Type `home' to get back.");
4endif
5set_task_perms(caller_perms());
6pass(@args);

`announce*_all_but`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1return this.location:(verb)(@args);
2"temporarily let player:announce be noisy to player";
3if (verb == "announce_all_but")
4if (this in args[1])
5return;
6endif
7args = args[2..$];
8endif
9this:tell("(from within you) ", @args);

`linewrap`

Spec this none thisFlags rxdOwner #36Definer #6

Referenced by

none

Source

1"Return a true value if this needs linewrapping.";
2"default is true if .linelen > 0";
3return this.linelen > 0;

`@set-note-string @set-note-text`

Spec any none noneFlags rdOwner #2Definer #6

Referenced by

none

Source

1"Usage:  @set-note-{string | text} {#xx | #xx.pname}";
2"        ...lines of text...";
3"        .";
4"";
5"For use by clients' local editors, to save new text for a note or object property.  See $note_editor:local_editing_info() for details.";
6set_task_perms(player);
7text = $command_utils:read_lines();
8if ((verb == "@set-note-string") && (length(text) <= 1))
9text = text ? text[1] | "";
10endif
11if (spec = $code_utils:parse_propref(argstr))
12o = toobj(spec[1]);
13p = spec[2];
14if ($object_utils:has_verb(o, vb = "set_" + p) && (typeof(e = o:(vb)(text)) != ERR))
15player:tell("Set ", p, " property of ", o.name, " (", o, ") via :", vb, ".");
16elseif (text != (e = `o.(p) = text ! ANY'))
17player:tell("Error:  ", e);
18else
19player:tell("Set ", p, " property of ", o.name, " (", o, ").");
20endif
21elseif (typeof(note = $code_utils:toobj(argstr)) == OBJ)
22e = note:set_text(text);
23if (typeof(e) == ERR)
24player:tell("Error:  ", e);
25else
26player:tell("Set text of ", note.name, " (", note, ").");
27endif
28else
29player:tell("Error:  Malformed argument to ", verb, ": ", argstr);
30endif

`verb_sub`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1text = args[1];
2if (a = `$list_utils:assoc(text, this.verb_subs) ! ANY')
3return a[2];
4else
5return $gender_utils:get_conj(text, this);
6endif

`ownership_quota`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1if ($perm_utils:controls(caller_perms(), this))
2return this.(verb);
3else
4return E_PERM;
5endif

`tell_lines`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#0:handle_uncaught_error line 6: #2:tell_lines
#1:look_self line 3: player:tell_lines
#4:@measure line 8: player:tell_lines
#4:@measure line 118: player:tell_lines
#5:dr*op line 9: player:tell_lines
#5:dr*op line 14: player:tell_lines
#6:tell_contents line 16: player:tell_lines
#6:tell_contents line 17: player:tell_lines
#6:receive_page line 8: this:tell_lines
#6:?* line 11: this:tell_lines
#6:@users line 4: player:tell_lines
#11:drop line 15: player:tell_lines
#11:drop line 18: player:tell_lines
#31:confunc line 6: this:tell_lines
#46:look_self line 1: player:tell_lines
#47:parse_invoke line 5: player:tell_lines
#47:showlists line 1: player:tell_lines
#48:parse_invoke line 5: player:tell_lines
#49:comment line 11: player:tell_lines
#49:uncomment line 11: player:tell_lines
#50:lis*t line 43: player:tell_lines
#50:del*ete line 8: player:tell_lines
#50:print line 3: player:tell_lines
#63:look_self line 9: player:tell_lines
#71:look_self line 1: player:tell_lines
#74:look_self line 4: player:tell_lines
#84:list line 2: player:tell_lines
#84:list line 14: player:tell_lines
#90:@join line 30: player:tell_lines
#90:print_at_items line 5: player:tell_lines
#90:@refusals line 15: player:tell_lines
#91:look_self line 2: player:tell_lines
#91:tell_contents line 20: player:tell_lines
#91:tell_contents line 21: player:tell_lines
#91:@kids line 11: this:tell_lines
#91:@kids line 13: this:tell_lines
#91:@kids line 15: this:tell_lines
#91:@stats line 47: player:tell_lines
#91:cash line 9: this:tell_lines
#91:cash line 12: this:tell_lines
#98:parse_stat_level line 23: player:tell_lines
#99:@sched*uler line 22: player:tell_lines
#100:@doomed line 10: player:tell_lines
#100:@protected line 7: player:tell_lines
#104:l*ook line 23: player:tell_lines
#104:l*ook line 25: player:tell_lines
#104:l*ook line 27: player:tell_lines
#104:tell_exits line 31: player:tell_lines
#104:look_self line 13: player:tell_lines
#104:look_self line 27: player:tell_lines
#107:tell_contents line 20: player:tell_lines
#107:tell_contents line 21: player:tell_lines
#107:look_self line 3: player:tell_lines
#116:look_self line 3: player:tell_lines
#120:look_self line 11: player:tell_lines
#134:list line 25: player:tell_lines
#140:look_self line 4: player:tell_lines
#141:facts line 4: player:tell_lines
#141:facts line 6: player:tell_lines
#141:roll line 6: player:tell_lines
#141:clear line 16: player:tell_lines
#141:org line 4: player:tell_lines
#141:pick_race line 26: player:tell_lines
#141:pick_race line 64: player:tell_lines
#141:set line 22: player:tell_lines
#141:pick_org line 23: player:tell_lines
#141:pick_org line 56: player:tell_lines
#141:o*ut line 6: player:tell_lines
#143:cb line 35: player:tell_lines
#143:show_who line 10: player:tell_lines

Source

1lines = args[1];
2if (typeof(lines) != LIST)
3lines = {lines};
4endif
5if (this.gaglist || this.paranoid)
6"Check the above first, default case, to save ticks.  Paranoid gaggers are cost an extra three or so ticks by this, probably a net savings.";
7if (this:gag_p())
8return;
9endif
10if (this.paranoid == 2)
11z = this:whodunnit({@callers(), {player, "", player}}, {this, $no_one}, {})[3];
12lines = {((("[start text by " + z.name) + " (") + tostr(z)) + ")]", @lines, ((("[end text by " + z.name) + " (") + tostr(z)) + ")]"};
13elseif (this.paranoid == 1)
14$paranoid_db:add_data(this, {{@callers(), {player, "<cmd-line>", player}}, lines});
15endif
16endif
17"don't gather stats for now: $list_utils:check_nonstring_tell_lines(lines)";
18this:notify_lines(lines);

`@lastlog`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"Copied from generic room (#3):@lastlog by Haakon (#2) Wed Dec 30 13:30:02 1992 PST";
2if (dobjstr != "")
3dobj = $string_utils:match_player(dobjstr);
4if (!valid(dobj))
5player:tell("Who?");
6return;
7endif
8folks = {dobj};
9else
10folks = players();
11endif
12day = week = month = ever = never = {};
13a_day = (24 * 60) * 60;
14a_week = 7 * a_day;
15a_month = 30 * a_day;
16now = time();
17for x in (folks)
18when = x.last_connect_time;
19how_long = now - when;
20if ((when == 0) || (when > now))
21never = {@never, x};
22elseif (how_long < a_day)
23day = {@day, x};
24elseif (how_long < a_week)
25week = {@week, x};
26elseif (how_long < a_month)
27month = {@month, x};
28else
29ever = {@ever, x};
30endif
31endfor
32for entry in ({{day, "the last day"}, {week, "the last week"}, {month, "the last 30 days"}, {ever, "recorded history"}})
33if (entry[1])
34player:tell("Players who have connected within ", entry[2], ":");
35for x in (entry[1])
36player:tell("  ", x.name, " last connected ", ctime(x.last_connect_time), ".");
37endfor
38endif
39endfor
40if (never)
41player:tell("Players who have never connected:");
42player:tell("  ", $string_utils:english_list($list_utils:map_prop(never, "name")));
43endif

`set_linelength`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:@linelen*gth line 21: this:set_linelength

Source

1"Set linelength.  Linelength must be an integer >= 10.";
2"If wrap is currently off (i.e. linelength is less than 0), maintains sign.  That is, this function *takes* an absolute value, and coerces the sign to be appropriate.";
3"If you want to override the dwimming of wrap, pass in a second argument.";
4"returns E_PERM if not allowed, E_INVARG if linelength is too low, otherwise the linelength.";
5if ((caller != this) && (!$perm_utils:controls(caller_perms(), this)))
6return E_PERM;
7elseif (abs(len = args[1]) < 10)
8return E_INVARG;
9elseif (length(args) > 1)
10this.linelen = len;
11else
12"DWIM here.";
13this.linelen = (this.linelen > 0) ? len | (-len);
14return len;
15endif

`set_pagelength`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"Set pagelength. Must be an integer >= 5, or 0 to turn pagelength off.";
2"Returns E_PERM if you shouldn't be doing this, E_INVARG if it's too low, otherwise, what it got set to.";
3if ((caller != this) && (!$perm_utils:controls(caller_perms(), this)))
4return E_PERM;
5elseif (((len = args[1]) < 5) && (len != 0))
6return E_INVARG;
7else
8if ((this.pagelen = len) == 0)
9if (lb = this.linebuffer)
10"queued text remains";
11this:notify_lines(lb);
12clear_property(this, "linebuffer");
13endif
14endif
15return len;
16endif

`set_home`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"set_home(newhome) attempts to change this.home to newhome";
2"E_TYPE   if newhome doesn't have a callable :accept_for_abode verb.";
3"E_INVARG if newhome won't accept you as a resident.";
4"E_PERM   if you don't own this and aren't its parent.";
5"1        if it works.";
6newhome = args[1];
7if ((caller == this) || $perm_utils:controls(caller_perms(), this))
8if ($object_utils:has_callable_verb(newhome, "accept_for_abode"))
9if (newhome:accept_for_abode(this))
10return (typeof(e = `this.home = args[1] ! ANY') != ERR) || e;
11else
12return E_INVARG;
13endif
14else
15return E_TYPE;
16endif
17else
18return E_PERM;
19endif

`@registerme`

Spec any any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1"@registerme as <email-address> -- enter a new email address for player";
2"   will change the database entry, assign a new password, and mail the new password to the player at the given email address.";
3if (player != this)
4return player:notify(tostr(E_PERM));
5endif
6who = this;
7if ($object_utils:isa(this, $guest))
8who:notify("Sorry, guests should use the '@request' command to request a character.");
9return;
10endif
11connection = $string_utils:connection_hostname(connection_name(who));
12if (!argstr)
13if (who.email_address)
14player:tell("You are currently registered as:  ", who.email_address);
15else
16player:tell("You are not currently registered.");
17endif
18player:tell("Use @registerme as <address> to change this.");
19return;
20elseif (((prepstr != "as") || (!iobjstr)) || dobjstr)
21player:tell("Usage: @registerme as <address>");
22return;
23endif
24email = iobjstr;
25if (email == this.email_address)
26who:notify("That is your current address.  Not changed.");
27return;
28elseif (reason = $wiz_utils:check_reregistration(this, email, connection))
29if (reason[1] == "-")
30if (!$command_utils:yes_or_no(reason[2..$] + ". Automatic registration not allowed. Ask to be registered at this address anyway?"))
31who:notify("Okay.");
32return;
33endif
34else
35return who:notify(tostr(reason, " Please try again."));
36endif
37endif
38if ($network.active && (!reason))
39if (!$command_utils:yes_or_no(tostr("If you continue, your password will be changed, the new password mailed to `", email, "'. Do you want to continue?")))
40return who:notify("Registration terminated.");
41endif
42password = $wiz_utils:random_password(5);
43old = who.email_address || "[ unregistered ]";
44who:notify(tostr("Registering you, and changing your password and mailing new one to ", email, "."));
45result = $network:sendmail(email, tostr("Your ", $network.MOO_Name, " character, ", who.name), "Reply-to: " + $login.registration_address, @$generic_editor:fill_string(tostr("Your ", $network.MOO_name, " character, ", $string_utils:nn(who), " has been registered to this email address (", email, "), and a new password assigned.  The new password is `", password, "'. Please keep your password secure. You can change your password with the @password command."), 75));
46if (result != 0)
47who:notify(tostr("Mail sending did not work: ", reason, ". Reregistration terminated."));
48return;
49endif
50who:notify(tostr("Mail with your new password forwarded. If you do not get it, send regular email to ", $login.registration_address, " with your character name."));
51$mail_agent:send_message($new_player_log, $new_player_log, "reg " + $string_utils:nn(this), {email, tostr("formerly ", old)});
52$registration_db:add(this, email, "Reregistered at " + ctime());
53this.email_address = email;
54who.password = crypt(password);
55who.last_password_time = time();
56else
57who:notify("No automatic reregistration: your request will be forwarded.");
58if (typeof(curreg = $registration_db:find(email)) == LIST)
59additional_info = {"Current registration information for this email address:", @$registration_db:describe_registration(curreg)};
60else
61additional_info = {};
62endif
63$mail_agent:send_message(this, $registration_db.registrar, "Registration request", {((("Reregistration request from " + $string_utils:nn(who)) + " connected via ") + connection) + ":", "", (("@register " + who.name) + " ") + email, ("@new-password " + who.name) + " is ", "", "Reason this request was forwarded:", reason, @additional_info});
64endif

`ctime`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:@last-c*onnection line 21: this:ctime
#29:display_seq_headers line 16: player:ctime
#29:display_seq_headers line 19: player:ctime
#46:msg_summary_line line 7: player:ctime
#46:msg_summary_line line 10: player:ctime
#58:@d*isplay line 131: this:ctime
#80:display_quota_summary line 3: player:ctime

Source

1":ctime([INT time]) => STR as the function.";
2"May be hacked by players and player-classes to reflect differences in time-zone.";
3return ctime(@args);

`@age`

Spec any none noneFlags rdOwner #36Definer #6

Referenced by

none

Source

1if ((dobjstr == "") || (dobj == player))
2dobj = player;
3else
4dobj = $string_utils:match_player(dobjstr);
5if (!valid(dobj))
6$command_utils:player_match_failed(dobj, dobjstr);
7return;
8endif
9endif
10time = dobj.first_connect_time;
11if (time == $maxint)
12duration = time() - dobj.last_disconnect_time;
13if (duration < 86400)
14notice = $string_utils:from_seconds(duration);
15else
16notice = $time_utils:english_time((duration / 86400) * 86400);
17endif
18player:notify(tostr(dobj.name, " has never connected.  It was created ", notice, " ago."));
19elseif (time == 0)
20player:notify(tostr(dobj.name, " first connected before initial connections were being recorded."));
21else
22player:notify(tostr(dobj.name, " first connected on ", ctime(time)));
23duration = time() - time;
24if (duration < 86400)
25notice = $string_utils:from_seconds(duration);
26else
27notice = $time_utils:english_time((duration / 86400) * 86400);
28endif
29player:notify(tostr($string_utils:pronoun_sub("%S %<is> ", dobj), notice, " old."));
30endif

`news`

Spec any none noneFlags rxdOwner #2Definer #6

Referenced by

none

Source

1"Usage: news [contents] [articles]";
2"";
3"Common uses:";
4"news           -- display all current news, or as @mail-options decree";
5"news new       -- display articles you haven't seen yet";
6"news all       -- display all current news";
7"news contents  -- display headers of current news";
8"news <article> -- display article";
9"news archive   -- display news which has been marked as archived.";
10set_task_perms(player);
11cur = this:get_current_message($news) || {0, 0};
12arch = 0;
13if (((!args) && (o = player:mail_option("news"))) && (o != "all"))
14"no arguments, use the player's default";
15args = {o};
16elseif (args == {"all"})
17args = {};
18elseif (args == {"archive"})
19arch = 1;
20args = {};
21endif
22if (hdrs_only = args && (args[1] == "contents"))
23"Do the mail contents list";
24args[1..1] = {};
25endif
26if (args)
27if (typeof(seq = $news:_parse(args, @cur)) == STR)
28player:notify(seq);
29return;
30elseif (seq = $seq_utils:intersection(seq, $news.current_news))
31else
32player:notify((args == {"new"}) ? "No new news." | "None of those are current articles.");
33return;
34endif
35elseif (arch && (seq = $news.archive_news))
36"yduJ hates this coding style.  Just so you know.";
37elseif (seq = $news.current_news)
38else
39player:notify("No news");
40return;
41endif
42if (hdrs_only)
43$news:display_seq_headers(seq, @cur);
44else
45player:set_current_message($news, @$news:news_display_seq_full(seq));
46endif

`@edit`

Spec any any anyFlags rdOwner #36Definer #6

Referenced by

none

Source

1"Calls the verb editor on verbs, the note editor on properties, and on anything else assumes it's an object for which you want to edit the .description.";
2if (!args)
3((player in $note_editor.active) ? $note_editor | $verb_editor):invoke(dobjstr, verb);
4elseif ($code_utils:parse_verbref(args[1]))
5if (player.programmer)
6$verb_editor:invoke(argstr, verb);
7else
8player:notify("You need to be a programmer to do this.");
9player:notify("If you want to become a programmer, talk to a wizard.");
10return;
11endif
12else
13$note_editor:invoke(dobjstr, verb);
14endif

`erase_paranoid_data`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:disfunc line 5: this:erase_paranoid_data
#31:disfunc line 7: this:erase_paranoid_data

Source

1if (!($perm_utils:controls(caller_perms(), this) || (this == caller)))
2return E_PERM;
3else
4$paranoid_db:erase_data(this);
5endif

`@move-new`

Spec any any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1"'@move <object> to <place>' - Teleport an object. Example: '@move trash to #11' to move trash to the closet.";
2set_task_perms((caller == this) ? this | $no_one);
3if ((prepstr != "to") || (!iobjstr))
4player:tell("Usage: @move <object> to <location>");
5return;
6endif
7if ((!dobjstr) || (dobjstr == "me"))
8dobj = this;
9else
10dobj = here:match_object(dobjstr);
11if (!valid(dobj))
12dobj = player:my_match_object(dobjstr);
13endif
14endif
15if ($command_utils:object_match_failed(dobj, dobjstr))
16return;
17endif
18iobj = this:lookup_room(iobjstr);
19if ((iobj != $nothing) && $command_utils:object_match_failed(iobj, iobjstr))
20return;
21endif
22if (((!player.programmer) && (!$perm_utils:controls(this, dobj))) && (this != dobj))
23player:tell("You may only @move your own things.");
24return;
25endif
26this:teleport(dobj, iobj);

`notify_lines_suspended`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1if (($perm_utils:controls(caller_perms(), this) || (caller == this)) || (caller_perms() == this))
2set_task_perms(caller_perms());
3for line in ((typeof(lines = args[1]) != LIST) ? {lines} | lines)
4(ticks_left() < 4000) && suspend(0);
5this:notify(tostr(line));
6endfor
7else
8return E_PERM;
9endif

`_chparent`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#4:@chparent line 14: player:_chparent
#119:@exset line 7: player:_chparent

Source

1set_task_perms(caller_perms());
2return chparent(@args);

`@users`

Spec none none noneFlags rxdOwner #36Definer #6

Referenced by

none

Source

1"Prints a count and compact list of the currently-connected players.";
2cp = connected_players();
3linelen = abs(player.linelen) || 79;
4player:tell_lines({tostr("There are ", length(cp), " players connected:"), @$generic_editor:fill_string($string_utils:english_list($list_utils:sort_suspended(0, $list_utils:map_prop(cp, "name"))), linelen)});

`@password`

Spec any any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1if (typeof(player.password) != STR)
2if (length(args) != 1)
3return player:notify(tostr("Usage:  ", verb, " <new-password>"));
4else
5new_password = args[1];
6endif
7elseif (length(args) != 2)
8player:notify(tostr("Usage:  ", verb, " <old-password> <new-password>"));
9return;
10elseif (player.password != crypt(tostr(args[1]), player.password))
11player:notify("That's not your old password.");
12return;
13elseif (is_clear_property(player, "password"))
14player:notify("Your password has a `clear' property.  Please refer to a wizard for assistance in changing it.");
15return;
16else
17new_password = args[2];
18endif
19if (r = $password_verifier:reject_password(new_password, player))
20player:notify(r);
21return;
22endif
23player.password = crypt(tostr(new_password));
24player.last_password_time = time();
25player:notify("New password set.");

`recycle`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

none

Source

1if ((caller == this) || $perm_utils:controls(caller_perms(), this))
2pass(@args);
3features = this.features;
4"Have to do this, or :feature_remove thinks you're a liar and doesn't believe.";
5this.features = {};
6for x in (features)
7try
8x:feature_remove(this);
9except (ANY)
10"Ignore errors";
11endtry
12endfor
13endif

`gc_gaglist`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:disfunc line 6: this:gc_gaglist

Source

1((caller == this) || $perm_utils:controls(caller_perms(), this)) || raise(E_PERM);
2if (g = this.gaglist)
3recycler = $recycler;
4for o in (g)
5if (!recycler:valid(o))
6g = setremove(g, o);
7endif
8endfor
9this.gaglist = g;
10endif

`@ping @idle`

Spec none any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1"This verb is for people who get idle connections dropped at irritating frequencies of 15 minutes or less. It will not continue past a 1000 second idle.";
2"@ping/@idle                              => connection check every 4 minutes.";
3"@ping/@idle with noise/info/report/trace => reports ip data.";
4"";
5"@unping/@unidle to stop the insanity.";
6this.ping_task[2] = (iobjstr in {"noise", "report", "info", "trace"}) ? 1 | 0;
7(!$scheduler:valid_task(this.ping_task[1])) && this:_ping();
8this:notify("You will be pinged every 4 minutes.");

`_ping`

Spec this none thisFlags rxdOwner #2Definer #6

Referenced by

#6:@ping line 7: this:_ping

Source

1if (caller in {this, $scheduler})
2this.ping_task[2] ? this:notify(connection_name(this)) | this:notify("");
3if (((this in connected_players()) && (!$scheduler:valid_task(this.ping_task[1]))) && (idle_seconds(this) < 1000))
4this.ping_task[1] = $scheduler:schedule(240, this, "_ping", {this.ping_task[2]});
5else
6this.ping_task = {0, 0};
7endif
8else
9player:tell($string_utils:nn(caller), " is not valid.");
10endif

`@unping @unidle`

Spec none any anyFlags rdOwner #2Definer #6

Referenced by

none

Source

1($scheduler:valid_task(this.ping_task[1]) && $scheduler:kill_task({this.ping_task[1]})) && player:notify("Glad you're back. :-)");

generic player #6

Verbs

Properties

Ancestry

Call graph

Source

init_for_core

Referenced by

Source

confunc

Referenced by

Source

disfunc

Referenced by

Source

initialize

Referenced by

Source

acceptable

Referenced by

Source

my_huh

Referenced by

Source

last_huh

Referenced by

Source

my_match_object

Referenced by

Source

tell_contents

Referenced by

Source

titlec

Referenced by

Source

notify

Referenced by

Source

notify_lines

Referenced by

Source

linesplit

Referenced by

Source

linelen

Referenced by

Source

@more

Referenced by

Source

@wrap

Referenced by

Source

@linelen*gth

Referenced by

Source

@pagelen*gth

Referenced by

Source

tell

Referenced by

Source

gag_p

Referenced by

Source

set_gaglist

Referenced by

Source

@gag*!

Referenced by

Source

@listgag @gaglist @gagged

Referenced by

Source

@ungag

Referenced by

Source

whodunnit

Referenced by

generic player `#6`

`init_for_core`

`confunc`

`disfunc`

`initialize`

`acceptable`

`my_huh`

`last_huh`

`my_match_object`

`tell_contents`

`titlec`

`notify`

`notify_lines`

`linesplit`

`linelen`

`@more`

`@wrap`

`@linelen*gth`

`@pagelen*gth`

`tell`

`gag_p`

`set_gaglist`

`@gag*!`

`@listgag @gaglist @gagged`

`@ungag`

`whodunnit`

`@ch*eck-full`

`@paranoid`

`@sw*eep`

`wh*isper`

`page`

`receive_page`

`page_origin_msg page_echo_msg page_absent_msg`

`i inv*entory`

`look_self`

`home`

`@sethome`

`g*et take`

`@move @teleport`

`@eject @eject! @eject!!`

`whereis @whereis`

`@who`

`@wizards`

`?* help info*rmation @help`

`display_option`

`edit_option`

`set_mail_option set_edit_option set_display_option`

`@mailoptions @mail-options @editoptions @edit-options @displayoptions @display-options`

`set_name`