Bakunin (#116)
(an instance of generic wizard made by Bakunin)
All in your mind, where it all began.
Bakunin is carrying Generic Breakable Exit.
Go to location of this object, The Loft.
Bakunin owns Bakunin Thinking Feature Always Already window window
VERB SOURCE CODE:
kick:
player:tell("You kick ", this.name, ".");
this:tell(player.name, " just kicked you.");
.
@paste:
"Usage: @paste ";
"Announce a series of entered lines to the room the player is in.";
"Before the lines are quoted, player.paste_header is run through";
"$string_utils:pronoun_sub(), and if the result contains the player's";
"name, it is used as a header. Otherwise player.name centered in a";
"line of dashes is used.";
"A footer comes afterwards, likewise derived from player.paste_footer.";
" and are placed before and after each line.";
"";
"This verb is, as one might guess, designed for pasting text to MOO using";
"GnuEmacs or a windowing system. You should remember that after you";
"have pasted the lines in, you must type . on a line by itself, or you'll";
"sit around waiting for $command_utils:read_lines() to finish _forever_.";
len = length(args);
prefix = len ? args[1] | "";
suffix = (len > 1) ? args[2] | "";
lines = $command_utils:read_lines();
to_tell = {$string_utils:pronoun_sub_secure("", "") || $string_utils:center(player.name,
75, "-")};
for line in (lines)
to_tell = listappend(to_tell, (prefix + line) + suffix);
endfor
if (this.paste_footer)
to_tell = listappend(to_tell, $string_utils:pronoun_sub(this.paste_footer));
endif
for thing in (player.location.contents)
$command_utils:suspend_if_needed(0);
thing:tell_lines(to_tell);
endfor
player:tell("Done @pasting.");
.
PROPERTY DATA:
|