VAULT
troom->rtype = VAULT; /* treasure vault */
if (croom->rtype == VAULT) {
if (tmp < 0 || rooms[tmp].rtype != VAULT) {
if ((i = inroom(nx, ny)) >= 0 && rooms[i].rtype == VAULT)