Dredful (#96)

(an instance of generic wizard made by Dredful)

     Simply speaking, Dred is Dredful.

Dredful is carrying dbMeter, Core Updater, medal, Generics Registry FO and Registry Db.

Go to location of this object, Zero Surface.


Dredful owns Dredful Zero Surface Wizard-Mail Local-Specific Help DB Local Clearinghouse graffiti Core-Updates Login Watcher Features Feature Object dbMeter Core Updater paper bag Player-Requests Generic Utilities Package Switching Quota-Requests Player Request Board Second Character Registry Grim Reaper Generic Dispenser Network Utilities


VERB SOURCE CODE:

whl: 
lists = $code_utils:help_db_list();
g = {};
if (args)
    which = argstr;
    for d in (lists)
        if ($object_utils:has_property(d, which))
            g = {@g, d};
        endif
    endfor
    if (g)
        this:tell($string_utils:name_and_number_list(g));
    else
        this:tell("Topic not found: ", argstr);
    endif
else
    this:tell("Which topic?");
endif
.

find_write: 
if (player != this)
    return E_PERM;
endif
found = {};
for d in [1..tonum(max_object())]
    for f in (verbs(t = toobj(d)))
        res = verb_info(t, $string_utils:strip_chars($string_utils:words(f)[1], "*"));
        if (index(res[2], "w"))
            found = {@found, $string_utils:print({t, f, @res})};
        endif
        $command_utils:suspend_if_needed(0);
    endfor
    $command_utils:suspend_if_needed(0);
endfor
$mail_agent:send_message(this, this, "Writable verbs in the db", found);
.

new-add-massmail: 
if (player != this)
    player:tell(E_PERM);
    return;
endif
player:tell("Starting mass-mail");
msg = {tostr("From Dredful@", $network.moo_name, ":")};
msg = {@msg, "", tostr("Currently, you have a character on our MOO, ", $network.moo_name, 
".")};
msg = {@msg, "", "The address for our MOO has just been changed to:", "", "dhalgren.english.washington.edu 
7777"};
msg = {@msg, "", "Please make a note of this.", "", tostr("If you still have problems 
connecting, please send email to ", $login.registration_address, "."), "", "Thanks.", 
"Dredful"};
for d in (players()[204..length(players())])
    if (d.email_address && (!$object_utils:isa(d, $guest)))
        player:tell("...", d);
        $network:sendmail(d.email_address, "Dhalgren address change", "Reply-to: 
" + $login.registration_address, @msg);
    endif
    $command_utils:suspend_if_needed(2, "[< suspending massmail >]");
endfor
player:tell("Done massmail");
.


PROPERTY DATA:
      user
      temp
      login_watcher