Pragmaticter `#1359`

Parent #26026Owner —Flags Source rpg_march_2006/Dependencies/1359.txt

Aliases: Pragmaticter, Pragma

7 verbs · 33 properties · 1 children

Verbs

Verb Spec Flags Definer Lines

@things-to-do @todo any any any rxd #1359 21

@thing-done @done any none none rxd #1359 12

confunc this none this #1359 5

get_todo this none this #1359 1

i inv*entory none none none rxd #1359 16

receive_page this none this #1359 1

slurp none none none #1359 5

Verb	Spec	Flags	Definer	Lines
`@things-to-do @todo`	`any any any`	`rxd`	#1359	21
`@thing-done @done`	`any none none`	`rxd`	#1359	12
`confunc`	`this none this`		#1359	5
`get_todo`	`this none this`		#1359	1
`i inv*entory`	`none none none`	`rxd`	#1359	16
`receive_page`	`this none this`		#1359	1
`slurp`	`none none none`		#1359	5

Properties

Property Definer Flags Owner Value

last_read_pc_news #1359 — 0

last_player_paged #1359 — not readable (E_PERM)

idle_watched #1359 — not readable (E_PERM)

crosspost_list #1359 — not readable (E_PERM)

spoof_attribution #1359 — " --"

idle_messages #1359 — not readable (E_PERM)

respond_to #1359 — not readable (E_PERM)

moved_by #1359 — {}

sessile #1359 — 0

witnessing #1359 — not readable (E_PERM)

rooms #1359 — {{"Living", #17}, {"Dining", #28}, {"Library", #1670}, {"Pool", #1428}}

messages_going #1359 — not readable (E_PERM)

mail_options #1359 — {"sticky", {"@mail", "new"}}

current_message #1359 — not readable (E_PERM)

messages #1359 — not readable (E_PERM)

features #1359 — {#55317, #30203, #40842, #26787}

previous_connection #1359 — not readable (E_PERM)

email_address #1359 — not readable (E_PERM)

help #1359 — #55502

linebuffer #1359 — not readable (E_PERM)

current_folder #1359 — not readable (E_PERM)

all_connect_places #1359 — not readable (E_PERM)

last_connect_place #1359 — not readable (E_PERM)

lines #1359 — not readable (E_PERM)

ownership_quota #1359 — not readable (E_PERM)

password #1359 — not readable (E_PERM)

size_quota #1359 — not readable (E_PERM)

last_password_time #1359 — not readable (E_PERM)

last_connect_attempt #1359 — not readable (E_PERM)

key #1359 — not readable (E_PERM)

aliases #1359 — {"Pragmaticter", "Pragma"}

Property	Definer	Owner	Value
`last_read_pc_news`	#1359	—	`0`
`last_player_paged`	#1359	—	not readable (E_PERM)
`idle_watched`	#1359	—	not readable (E_PERM)
`crosspost_list`	#1359	—	not readable (E_PERM)
`spoof_attribution`	#1359	—	`" --"`
`idle_messages`	#1359	—	not readable (E_PERM)
`respond_to`	#1359	—	not readable (E_PERM)
`moved_by`	#1359	—	`{}`
`sessile`	#1359	—	`0`
`witnessing`	#1359	—	not readable (E_PERM)
`rooms`	#1359	—	`{{"Living", #17}, {"Dining", #28}, {"Library", #1670}, {"Pool", #1428}}`
`messages_going`	#1359	—	not readable (E_PERM)
`mail_options`	#1359	—	`{"sticky", {"@mail", "new"}}`
`current_message`	#1359	—	not readable (E_PERM)
`messages`	#1359	—	not readable (E_PERM)
`features`	#1359	—	`{#55317, #30203, #40842, #26787}`
`previous_connection`	#1359	—	not readable (E_PERM)
`email_address`	#1359	—	not readable (E_PERM)
`help`	#1359	—	`#55502`
`linebuffer`	#1359	—	not readable (E_PERM)
`current_folder`	#1359	—	not readable (E_PERM)
`all_connect_places`	#1359	—	not readable (E_PERM)
`last_connect_place`	#1359	—	not readable (E_PERM)
`lines`	#1359	—	not readable (E_PERM)
`ownership_quota`	#1359	—	not readable (E_PERM)
`password`	#1359	—	not readable (E_PERM)
`size_quota`	#1359	—	not readable (E_PERM)
`last_password_time`	#1359	—	not readable (E_PERM)
`last_connect_attempt`	#1359	—	not readable (E_PERM)
`key`	#1359	—	not readable (E_PERM)
`aliases`	#1359	—	`{"Pragmaticter", "Pragma"}`
`description`	#1359	—	value (372 chars) `{"This player class essentially extends the parser through clever use of :my_huh. It allows you to @remember and @forget objects so you can refer to them even if they aren't in the room and you've forgotten the number; it also allows you to tell your puppets and pets (as listed in the .puppets and .pets properties) what to do with commands like \"Watson, come here\"."}`
`object_size`	#1359	—	`{6857, 1141286565}`

description

#1359

—

value (372 chars)

{"This player class essentially extends the parser through clever use of :my_huh.  It allows you to @remember and @forget objects so you can refer to them even if they aren't in the room and you've forgotten the number; it also allows you to tell your puppets and pets (as listed in the .puppets and .pets properties) what to do with commands like \"Watson, come here\"."}

object_size #1359 — {6857, 1141286565}

Ancestry

#7069 Generic Player Class With Additional Features of Dubious Utility
- #5803 Experimental Guinea Pig Class with Even More Features of Dubious Utility
  - #8855 Player Class hacked with eval that does substitutions and assorted stuff
    #33337 Politically Correct Featureful Player Class Created Because Nobody Would @Copy Verbs To 8855
    #26026 Generic Super_Huh Player
    #1359 Pragmaticter
    #2693 Grand_Master

Ancestors (nearest first): #26026 Generic Super_Huh Player → #33337 Politically Correct Featureful Player Class Created Because Nobody Would @Copy Verbs To 8855 → #8855 Player Class hacked with eval that does substitutions and assorted stuff → #5803 Experimental Guinea Pig Class with Even More Features of Dubious Utility → #7069 Generic Player Class With Additional Features of Dubious Utility

Children: #2693 Grand_Master

Call graph

Source

`@things-to-do @todo`

Spec any any anyFlags rxdDefiner #1359

Referenced by

none

Source

1"Usage:  @todo <text>";
2"Add <text> to your list of things to do.";
3"";
4"Usage:  @todo";
5"List everything in your to-do list.";
6"";
7"See `@done' for removing things from your to-do list.";
8if (args)
9  player.todo = setadd(player.todo, argstr);
10  player:tell("Added \"", argstr, "\" to your @todo list.");
11else
12  if (todo = player.todo)
13    player:tell("- Things not yet done:");
14    for x in [1..length(todo)]
15      player:tell("  ", x, " - ", todo[x]);
16    endfor
17    player:tell("- End of list.");
18  else
19    player:tell("Everything seems to be done.");
20  endif
21endif

`@thing-done @done`

Spec any none noneFlags rxdDefiner #1359

Referenced by

none

Source

1"Usage:  @done <#>";
2"Remove the #-th reminder from your @todo list.";
3if ((x = tonum(argstr)) > 0)
4  if (x <= length(player.todo))
5    player:tell("Removed \"", player.todo[x], "\" from your @todo list.");
6    player.todo = listdelete(player.todo, x);
7  else
8    player:tell("You don't have that many things to do!");
9  endif
10else
11  player:tell("What's done?");
12endif

`confunc`

Spec this none thisDefiner #1359

Referenced by

none

Source

1if ((valid(cp = caller_perms()) && (caller != this)) && (!$perm_utils:controls(cp, this)))
2  return E_PERM;
3endif
4pass(@args);
5(lngth = length(this.todo)) && this:notify(((("You have " + tostr(lngth)) + " item") + ((lngth > 1) ? "s" | "")) + " in your @todo list.");

`get_todo`

Spec this none thisDefiner #1359

Referenced by

none

Source

1return (caller == this) ? this.todo | {};

`i inv*entory`

Spec none none noneFlags rxdDefiner #1359

Referenced by

none

Source

1"Copied from Sick's Slightly Sick Player Class (#40099):inventory by Sickness (#57140) Sun Jan 29 19:09:04 1995 PST";
2stuff = player:contents();
3short = long = {};
4width = player:linelen();
5objlen = length(tostr(max_object()));
6for thing in (stuff)
7  name = tostr($string_utils:right(thing, objlen), " ", thing:title());
8  if (length(name) < (width / 2))
9    short = {@short, name};
10  else
11    long = {@long, name};
12  endif
13endfor
14player:tell_lines((short || long) ? {"Carrying:", @$string_utils:columnize(short, 2, width), @long} | {"You are empty-handed."});
15"... Dred 5/26/94, empty-handed bit";
16"... Written by Sick,  7 Jan 93";

`receive_page`

Spec this none thisDefiner #1359

Referenced by

none

Source

1return pass("Shortest alias: " + $list_utils:shortest(player.aliases), @args);

`slurp`

Spec none none noneDefiner #1359

Referenced by

none

Source

1n = this;
2for t in ($recycler.contents)
3  (n > t) && (n = t);
4endfor
5return this:tell($string_utils:nn(n));

Pragmaticter #1359

Verbs

Properties

Ancestry

Call graph

Source

@things-to-do @todo

Referenced by

Source

@thing-done @done

Referenced by

Source

confunc

Referenced by

Source

get_todo

Referenced by

Source

i inv*entory

Referenced by

Source

receive_page

Referenced by

Source

slurp

Referenced by

Source

Pragmaticter `#1359`

`@things-to-do @todo`

`@thing-done @done`

`confunc`

`get_todo`

`i inv*entory`

`receive_page`

`slurp`