Delphi msg (trunk only)

<email deleted> wrote:
> * Angering the Oracle then entering her room still gives
> "Hello, <Dudley>, welcome to Delphi!"
This commit is contained in:
nethack.allison
2006-05-10 23:13:28 +00:00
parent e0e3bf2453
commit 45b59990cd
2 changed files with 23 additions and 10 deletions
+1
View File
@@ -136,6 +136,7 @@ preform autopickup and/or report on objects at the spot when a failed #untrap
attempt causes the hero to move onto a trap's location attempt causes the hero to move onto a trap's location
thrown silver weapon hitting silver-hating poly'd hero got double silver damage thrown silver weapon hitting silver-hating poly'd hero got double silver damage
wielded silver weapon hitting silver-hating poly'd hero lacked silver message wielded silver weapon hitting silver-hating poly'd hero lacked silver message
don't welcome the hero to Delphi if the Oracle was angered before first entry
Platform- and/or Interface-Specific Fixes Platform- and/or Interface-Specific Fixes
+22 -10
View File
@@ -13,7 +13,7 @@ STATIC_DCL int FDECL(still_chewing,(XCHAR_P,XCHAR_P));
STATIC_DCL void NDECL(dosinkfall); STATIC_DCL void NDECL(dosinkfall);
#endif #endif
STATIC_DCL boolean FDECL(findtravelpath, (BOOLEAN_P)); STATIC_DCL boolean FDECL(findtravelpath, (BOOLEAN_P));
STATIC_DCL boolean FDECL(monstinroom, (struct permonst *,int)); STATIC_DCL boolean FDECL(monstinroom, (struct permonst *,int,struct monst **));
STATIC_DCL boolean FDECL(doorless_door, (int,int)); STATIC_DCL boolean FDECL(doorless_door, (int,int));
STATIC_DCL void FDECL(move_update, (BOOLEAN_P)); STATIC_DCL void FDECL(move_update, (BOOLEAN_P));
@@ -1649,16 +1649,23 @@ stillinwater:;
} }
STATIC_OVL boolean STATIC_OVL boolean
monstinroom(mdat,roomno) monstinroom(mdat,roomno,mon)
struct permonst *mdat; struct permonst *mdat;
struct monst **mon;
int roomno; int roomno;
{ {
register struct monst *mtmp; register struct monst *mtmp;
if (mon) *mon = (struct monst *)0;
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
if(!DEADMONSTER(mtmp) && mtmp->data == mdat && if(!DEADMONSTER(mtmp) && mtmp->data == mdat &&
index(in_rooms(mtmp->mx, mtmp->my, 0), roomno + ROOMOFFSET)) index(in_rooms(mtmp->mx, mtmp->my, 0), roomno + ROOMOFFSET)) {
/* If the monster is one-of-a-kind then update mon
* with a pointer to that monster.
*/
if (mon && (mdat->geno & G_UNIQ)) *mon = mtmp;
return(TRUE); return(TRUE);
}
return(FALSE); return(FALSE);
} }
@@ -1801,7 +1808,7 @@ void
check_special_room(newlev) check_special_room(newlev)
register boolean newlev; register boolean newlev;
{ {
register struct monst *mtmp; struct monst *mtmp, *uniquemon = (struct monst *)0;
char *ptr; char *ptr;
move_update(newlev); move_update(newlev);
@@ -1855,18 +1862,23 @@ register boolean newlev;
You("enter an anthole!"); You("enter an anthole!");
break; break;
case BARRACKS: case BARRACKS:
if(monstinroom(&mons[PM_SOLDIER], roomno) || if(monstinroom(&mons[PM_SOLDIER], roomno, &uniquemon) ||
monstinroom(&mons[PM_SERGEANT], roomno) || monstinroom(&mons[PM_SERGEANT], roomno, &uniquemon) ||
monstinroom(&mons[PM_LIEUTENANT], roomno) || monstinroom(&mons[PM_LIEUTENANT], roomno, &uniquemon) ||
monstinroom(&mons[PM_CAPTAIN], roomno)) monstinroom(&mons[PM_CAPTAIN], roomno, &uniquemon))
You("enter a military barracks!"); You("enter a military barracks!");
else else
You("enter an abandoned barracks."); You("enter an abandoned barracks.");
break; break;
case DELPHI: case DELPHI:
if(monstinroom(&mons[PM_ORACLE], roomno)) if(monstinroom(&mons[PM_ORACLE], roomno, &uniquemon)) {
verbalize("%s, %s, welcome to Delphi!", if (uniquemon && !uniquemon->mpeaceful)
verbalize("You're in Delphi, %s.",
plname);
else
verbalize("%s, %s, welcome to Delphi!",
Hello((struct monst *) 0), plname); Hello((struct monst *) 0), plname);
}
break; break;
case TEMPLE: case TEMPLE:
intemple(roomno + ROOMOFFSET); intemple(roomno + ROOMOFFSET);