Player-Creation-Log #12

Parent #9Owner #29Flags readSource hellcore/hellcore.db

Aliases: Player-Creation-Log, PCL

5 verbs · 37 properties · 0 children

Verbs

Properties

Ancestry

• #1 root

  • #37 Generic Mail Recipient

    • #9 Generic Large-Capacity Mail Recipient

      • #12 Player-Creation-Log

Ancestors (nearest first): #9 Generic Large-Capacity Mail Recipient → #37 Generic Mail Recipient → #1 root

Children: none

Call graph

Source

":display_seq_headers(msg_seq[,cur])";
if (!this:ok(caller, caller_perms()))
return E_PERM;
endif
player:tell("       WHEN    BY        WHO                 EMAIL-ADDRESS");
pass(@args);

when = ctime(args[1])[5..10];
from = args[2];
by = $string_utils:left(from[1..index(from, " (") - 1], -9);
subject = args[4];
who = subject[1..(open = index(subject, " (")) - 1];
if ((close = rindex(subject, ")")) > open)
who = who[1..min(9, $)] + subject[open..close];
endif
who = $string_utils:left(who, 18);
line = args[("" in args) + 1];
email = line[1..index(line + " ", " ") - 1];
if (!index(email, "@"))
email = "??";
endif
return tostr(when, "  ", by, " ", who, "  ", email);

if (caller_perms().wizard)
pass();
"this:rm_message_seq({1, 1 + this:length_all_msgs()})";
"this:expunge_rmm()";
for p in (properties(this))
$command_utils:suspend_if_needed(0);
if (p && (p[1] == " "))
delete_property(this, p);
endif
endfor
this.messages = this.messages_going = {};
this:_fix_last_msg_date();
this._genprop = "";
this.mail_forward = {};
this.mail_notify = {player};
player.current_message = {@player.current_message, {this, 0, 0}};
for p in ({"moderator_forward", "writers", "readers", "expire_period", "last_used_time"})
clear_property(this, p);
endfor
this.moderated = {this};
else
return E_PERM;
endif

"Copied from Generic Mail Recipient (#6419):is_usable_by by Rog (#4292) Tue Mar  2 10:02:32 1993 PST";
return (!this.moderated) || ((this:is_writable_by(who = args[1]) || (who in this.moderated)) || who.wizard);

"Stop breaking the expire task completely with out of seconds/ticks.";
if (this:ok_write(caller, caller_perms()))
fork (0)
pass(@args);
endfork
else
return E_PERM;
endif