Function dig_up_grave

src/dig.c:1026–1089

}

staticfn void
dig_up_grave(coord *cc)
{
    struct obj *otmp;
    int what_happens;
    coordxy dig_x, dig_y;

    if (!cc) {
        dig_x = u.ux;
        dig_y = u.uy;
    } else {
        dig_x = cc->x;
        dig_y = cc->y;
        if (!isok(dig_x, dig_y))
            return;
    }

    /* Grave-robbing is frowned upon... */
    exercise(A_WIS, FALSE);
    if (Role_if(PM_ARCHEOLOGIST)) {
        adjalign(-sgn(u.ualign.type) * 3);
        You_feel("like a despicable grave-robber!");
    } else if (Role_if(PM_SAMURAI)) {
        adjalign(-sgn(u.ualign.type));
        You("disturb the honorable dead!");
    } else if (u.ualign.type == A_LAWFUL) {
        if (u.ualign.record > -10)
            adjalign(-1);
        You("have violated the sanctity of this grave!");
    }

    /* -1: force default case for empty grave */
    what_happens = levl[dig_x][dig_y].emptygrave ? -1 : rn2(5);
    switch (what_happens) {
    case 0:
    case 1:
        You("unearth a corpse.");
        if ((otmp = mk_tt_object(CORPSE, dig_x, dig_y)) != 0)
            otmp->age -= (TAINT_AGE + 1); /* this is an *OLD* corpse */
        break;
    case 2:
        if (!Blind)
            pline("%s!", Hallucination ? "Dude!  The living dead"
                                       : "The grave's owner is very upset");
        (void) makemon(mkclass(S_ZOMBIE, 0), dig_x, dig_y, MM_NOMSG);
        break;
    case 3:
        if (!Blind)
            pline("%s!", Hallucination ? "I want my mummy"
                                       : "You've disturbed a tomb");
        (void) makemon(mkclass(S_MUMMY, 0), dig_x, dig_y, MM_NOMSG);
        break;
    default:
        /* No corpse */
        pline_The("grave is unoccupied.  Strange...");
        break;
    }
    levl[dig_x][dig_y].typ = ROOM;