Function newmail

src/mail.c:398–456

Deliver a scroll of mail. */ ARGSUSED*/

/* Deliver a scroll of mail. */
/*ARGSUSED*/
staticfn void
newmail(struct mail_info *info)
{
    struct monst *md;
    coord start, stop;
    boolean message_seen = FALSE;

    /* Try to find good starting and stopping places. */
    if (!md_start(&start) || !md_stop(&stop, &start))
        goto give_up;

    /* Make the daemon.  Have it rush towards the hero. */
    if (!(md = makemon(&mons[PM_MAIL_DAEMON], start.x, start.y, NO_MM_FLAGS)))
        goto give_up;
    if (!md_rush(md, stop.x, stop.y))
        goto go_back;

    message_seen = TRUE;
    if (!Deaf) {
        SetVoice(md, 0, 80, 0);
        verbalize("%s, %s!  %s.", Hello(md), svp.plname, info->display_txt);
    } else {
        pline("Message:  %s.", info->display_txt);
    }

    if (info->message_typ) {
        struct obj *obj = mksobj(SCR_MAIL, FALSE, FALSE);

        if (info->object_nam)
            obj = oname(obj, info->object_nam, ONAME_NO_FLAGS);
        if (info->response_cmd)
            new_omailcmd(obj, info->response_cmd);

        if (!m_next2u(md)) {
            if (!Deaf) {
                SetVoice(md, 0, 80, 0);
                verbalize("Catch!");
            } else {
                /* don't bother with nonverbal alternative ... */
                ;
            }
        }
        display_nhwindow(WIN_MESSAGE, FALSE);
        obj = hold_another_object(obj, "Oops!", (const char *) 0,
                                  (const char *) 0);
        nhUse(obj);
    }

 go_back:
    /* zip back to starting location */
    if (!md_rush(md, start.x, start.y))
        md->mx = md->my = 0; /* for mongone, md is not on map */
    mongone(md);

 give_up:
    /* deliver some classes of messages even if no daemon ever shows up */
    if (!message_seen && info->message_typ == MSG_OTHER)
        pline("Hark!  \"%s.\"", info->display_txt);