roleplay note #123

Parent #54Owner #2Flags Source QuestCore.db

Aliases: roleplay note

6 verbs · 27 properties · 0 children

Verbs

Properties

Ancestry

• #1 Root Class

  • #102 subthing

    • #5 generic thing

      • #9 generic note

        • #54 generic letter

          • #123 roleplay note

Ancestors (nearest first): #54 generic letter → #9 generic note → #5 generic thing → #102 subthing → #1 Root Class

Children: none

Call graph

Source

if (valid(this.lang) && (!$lang_utils:can_speak(player, this.lang)))
if (!this:is_readable_by(valid(caller_perms()) ? caller_perms() | player))
player:tell("Sorry, but it seems to be written in some code that you can't read.");
else
text = this:text();
if (text)
player:tell("It is written ", $lang_utils:in_line_for(this.lang, player));
player:tell();
text = (typeof(text) == LIST) ? text | {text};
for line in [1..length(text)]
text[line] = this.lang:encrypt(player, text[line]);
(ticks_left() < 4000) && suspend(0);
endfor
player:tell_lines_suspended(text);
player:tell();
player:tell("(You finish reading.)");
else
player:tell();
player:tell("(It appears to be blank.)");
endif
endif
else
pass(@args);
endif

if (parent(player) != $rpgamer)
return pass(@args);
elseif (!("examine_verbs" in $list_utils:slice(callers(), 2)))
return this:examine_verbs(player) || {};
endif

if ((this != $rp_note) && ((caller == this) || $perm_utils:controls(caller_perms(), this)))
fork (0)
chparent(this, $light);
this.shows_units = 0;
this.rechargable = 0;
$building_utils:set_names(this, "a small fire:small fire,fire,flame");
this.x_loc = player.x_loc;
this.y_loc = player.y_loc;
this.take_failed_msg = "It's too hot to touch.";
while ((!$object_utils:isa(this.location, $rpg_room)) && (this.location != $nothing))
this:moveto(`this.location.location ! ANY => $nothing');
endwhile
this.key = this.location;
this.description = "The flame burns brightly.";
this.power_units = 1;
this:_ignite();
endfork
return 1;
else
return E_PERM;
endif

if (`length(plangs = player.languages[1]) > 1 ! ANY => 0')
lang = $command_utils:read("the language in which you wish to write it");
if (valid(target = $string_utils:match(lang, plangs, "lang_name")))
this.lang = target;
else
this.lang = $default_lang;
endif
player:tell("The text will appear as if written in ", this.lang.lang_name, ".");
else
this.lang = $default_lang;
endif
pass(@args);

if (this:is_writable_by(valid(caller_perms()) ? caller_perms() | player))
this.lang = "";
endif
pass(@args);

if (this.lang && this.text)
desc = (typeof(this.description) == LIST) ? this.description | {this.description};
return {@desc, tostr("It is written ", $lang_utils:in_line_for(this.lang, player))};
endif
return this.description;