Site-Locks (#70)

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.mail_forward = {player, this};
    this.mail_notify = {player};
    for p in ({"moderator_forward", "moderator_notify", "writers", "readers", "expire_period", 
"last_used_time"})
        this.(p) = $mail_recipient.(p);
    endfor
    this.moderated = 1;
else
    return E_PERM;
endif
.