static void realtime_tasks(void)
{
int prev_moonphase = flags.moonphase;
int prev_friday13 = flags.friday13;
boolean msg_moonphase = TRUE;
boolean msg_friday13 = TRUE;
flags.moonphase = phase_of_the_moon();
if (flags.moonphase == FULL_MOON && prev_moonphase != FULL_MOON) {
change_luck(1);
} else if (flags.moonphase != FULL_MOON && prev_moonphase == FULL_MOON) {
change_luck(-1);
} else if (flags.moonphase == NEW_MOON && prev_moonphase != NEW_MOON) {
/* Do nothing, but show message. */
} else {
msg_moonphase = FALSE;
}
flags.friday13 = friday_13th();
if (flags.friday13 && !prev_friday13) {
change_luck(-1);
} else if (!flags.friday13 && prev_friday13) {
change_luck(1);
} else {
msg_friday13 = FALSE;
}
realtime_messages(msg_moonphase, msg_friday13);
}
int
dosit()
{
static const char *sit_message = "sit on the %s.";
register struct trap *trap;
register int typ = levl[u.ux][u.uy].typ;
if(Levitation) {
pline("You're sitting on air.");
return 0;
}
if(OBJ_AT(u.ux, u.uy)) {
register struct obj *obj;
obj = level.objects[u.ux][u.uy];
You("sit on %s.", the(xname(obj)));
if(!Is_box(obj)) pline("It's not very comfortable...");
} else if ((trap = t_at(u.ux, u.uy)) != 0) {
if (u.utrap) {
exercise(A_WIS, FALSE); /* you're getting stuck longer */
if(u.utraptype == TT_BEARTRAP) {
You("can't sit down with your %s in the bear trap.", body_part(FOOT));
u.utrap++;
} else if(u.utraptype == TT_PIT) {
if(trap->ttyp == SPIKED_PIT) {
You("sit down on a spike. Ouch!");
losehp(1, "sitting on an iron spike", KILLED_BY);
exercise(A_STR, FALSE);
} else
You("sit down in the pit.");
u.utrap += rn2(5);
} else if(u.utraptype == TT_WEB) {
You("sit in the spider web and get entangled further!");
u.utrap += rn1(10, 5);
} else if(u.utraptype == TT_LAVA) {
/* Must have fire resistance or they'd be dead already */
You("sit in the lava!");
u.utrap += rnd(4);
losehp(d(2,10), "sitting in lava", KILLED_BY);
} else if(u.utraptype == TT_INFLOOR) {
You("can't maneuver to sit!");
u.utrap++;
}
} else {
You("sit down.");
dotrap(trap);
}
} else if(Underwater || Is_waterlevel(&u.uz)) {
if (Is_waterlevel(&u.uz))
pline("There are no cushions floating nearby.");
else
You("sit down in the muddy bottom.");
} else if(is_pool(u.ux, u.uy)) {
You("sit in the water.");
if (!rn2(10) && uarm)
(void) rust_dmg(uarm, "armor", 1, TRUE);
#ifdef POLYSELF
/* Note: without POLYSELF, this can't _happen_ without */
/* water walking boots.... */
if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
(void) rust_dmg(uarm, "armor", 1, TRUE);
#endif
#ifdef SINKS
} else if(IS_SINK(typ)) {
You(sit_message, defsyms[S_sink].explanation);
Your("%s gets wet.", humanoid(uasmon) ? "rump" : "underside");
#endif
} else if(IS_ALTAR(typ)) {
You(sit_message, defsyms[S_altar].explanation);
altar_wrath(u.ux, u.uy);
} else if(typ == STAIRS) {
You(sit_message, "stairs");
} else if(typ == LADDER) {
You(sit_message, "ladder");
} else if (is_lava(u.ux, u.uy)) {
/* must be WWalking */
You(sit_message, "lava");
pline("The lava burns you!");
losehp(d((Fire_resistance ? 2 : 10), 10),
"sitting on lava", KILLED_BY);
} else if (is_ice(u.ux, u.uy)) {
You(sit_message, defsyms[S_ice].explanation);
if (!Cold_resistance) pline("The ice feels cold.");
} else if (typ == DRAWBRIDGE_DOWN) {
You(sit_message, "drawbridge");
} else if(IS_THRONE(typ)) {
You(sit_message, defsyms[S_throne].explanation);
if (rnd(6) > 4) {
switch (rnd(13)) {
case 1:
(void) adjattrib(rn2(A_MAX), -rn1(4,3), FALSE);
losehp(rnd(10), "cursed throne", KILLED_BY_AN);
break;
case 2:
(void) adjattrib(rn2(A_MAX), 1, FALSE);
break;
case 3:
pline("A%s electric shock shoots through your body!",
(Shock_resistance) ? "" : " massive");
losehp(Shock_resistance ? rnd(6) : rnd(30),
"electric chair", KILLED_BY_AN);
exercise(A_CON, FALSE);
break;
case 4:
You("feel much, much better!");
if(u.uhp >= (u.uhpmax - 5)) u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L,TRUE);
make_sick(0L,FALSE);
heal_legs();
flags.botl = 1;
break;
case 5:
take_gold();
break;
case 6:
if(u.uluck + rn2(5) < 0) {
You("feel your luck is changing.");
change_luck(1);
} else makewish();
break;
case 7:
{
register int cnt = rnd(10);
pline("A voice echoes:");
verbalize("Thy audience hath been summoned, %s!",
flags.female ? "Dame" : "Sire");
while(cnt--)
(void) makemon(courtmon(), u.ux, u.uy);
break;
}
case 8:
pline("A voice echoes:");
verbalize("By thy Imperious order, %s...",
flags.female ? "Dame" : "Sire");
do_genocide(1);
break;
case 9:
pline("A voice echoes:");
verbalize("A curse upon thee for sitting upon this most holy throne!");
if (Luck > 0) {
make_blinded(Blinded + rn1(100,250),TRUE);
} else rndcurse();
break;
case 10:
if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
if (level.flags.nommap) {
pline(
"A terrible drone fills your head!");
make_confused(HConfusion + rnd(30),
FALSE);
} else {
pline("An image forms in your mind.");
do_mapping();
}
} else {
Your("vision becomes clear.");
HSee_invisible |= FROMOUTSIDE;
newsym(u.ux, u.uy);
}
break;
case 11:
if (Luck < 0) {
You("feel threatened.");
aggravate();
} else {
You("feel a wrenching sensation.");
tele(); /* teleport him */
}
break;
case 12:
You("are granted an insight!");
if (invent) {
int ret, cval = rn2(5); /* agrees w/seffects() */
/* use up `cval' "charges"; 0 is special case */
do {
ret = ggetobj("identify", identify, cval);
if (ret < 0) break; /* quit */
} while (ret == 0 || (cval -= ret) > 0);
}
break;
case 13:
Your("mind turns into a pretzel!");
make_confused(HConfusion + rn1(7,16),FALSE);
break;
default: impossible("throne effect");
break;
}
} else You("feel somehow out of place...");
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
/* may have teleported */
pline("The throne vanishes in a puff of logic.");
levl[u.ux][u.uy].typ = ROOM;
if(Invisible) newsym(u.ux,u.uy);
}
#ifdef POLYSELF
} else if (lays_eggs(uasmon) || u.umonnum == PM_QUEEN_BEE) {
struct obj *uegg;
if (!flags.female) {
pline("Males can't lay eggs!");
return 0;
}
if (u.uhunger < (int)objects[EGG].oc_nutrition) {
You("don't have enough energy to lay an egg.");
return 0;
}
uegg = mksobj(EGG, FALSE, FALSE);
uegg->spe = 1;
uegg->quan = 1;
uegg->owt = weight(uegg);
uegg->corpsenm =
(u.umonnum==PM_QUEEN_BEE ? PM_KILLER_BEE : monsndx(uasmon));
uegg->known = uegg->dknown = 1;
You("lay an egg.");
dropy(uegg);
stackobj(uegg);
morehungry((int)objects[EGG].oc_nutrition);
#endif
} else if (u.uswallow)
pline("There are no seats in here!");
else
pline("Having fun sitting on the %s?", surface(u.ux,u.uy));
return(1);
}
int
dosit()
{
static const char sit_message[] = "VERB_SITZEN auf OBJECT KASUS_DATIV ARTIKEL_BESTIMMTER %s."; /* EN static const char sit_message[] = "sit on the %s."; */
register struct trap *trap;
register int typ = levl[u.ux][u.uy].typ;
#ifdef STEED
if (u.usteed) {
You("VERB_SITZEN bereits auf KASUS_DATIV %s.", mon_nam(u.usteed)); /* EN You("are already sitting on %s.", mon_nam(u.usteed)); */
return (0);
}
#endif
if(!can_reach_floor()) {
if (Levitation)
You("VERB_SCHLAGEN Purzelbäume."); /* EN You("tumble in place."); */
else
You("VERB_SITZEN auf Luft."); /* EN You("are sitting on air."); */
return 0;
} else if (is_pool(u.ux, u.uy) && !Underwater) { /* water walking */
goto in_water;
}
if(OBJ_AT(u.ux, u.uy)) {
register struct obj *obj;
obj = level.objects[u.ux][u.uy];
You("VERB_SITZEN auf OBJECT KASUS_DATIV %s.", the(xname(obj))); /* EN You("sit on %s.", the(xname(obj))); */
if (!(Is_box(obj) || objects[obj->otyp].oc_material == CLOTH))
pline("Das ist nicht sehr bequem ..."); /* EN pline("It's not very comfortable..."); */
} else if ((trap = t_at(u.ux, u.uy)) != 0 ||
(u.utrap && (u.utraptype >= TT_LAVA))) {
if (u.utrap) {
exercise(A_WIS, FALSE); /* you're getting stuck longer */
if(u.utraptype == TT_BEARTRAP) {
pline("Mit KASUS_DATIV PRONOMEN_POSSESSIV %s in KASUS_DATIV ARTIKEL_BESTIMMTER NOUN_BEARTRAP SUBJECT_IM_SATZ VERB_KOENNEN PRONOMEN_PERSONAL OBJECT PRONOMEN_PERSONAL nicht hinsetzen.", body_part(FOOT)); /* EN You_cant("sit down with your %s in the bear trap.", body_part(FOOT)); */
u.utrap++;
} else if(u.utraptype == TT_PIT) {
if(trap->ttyp == SPIKED_PIT) {
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL auf einen Stachel. Aua!"); /* EN You("sit down on a spike. Ouch!"); */
losehp(1, "durch Sitzen auf einen Eisenstachel", KILLED_WITHOUT_PREPOSITION); /* EN losehp(1, "sitting on an iron spike", KILLED_BY); */
exercise(A_STR, FALSE);
} else
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL in die Grube."); /* EN You("sit down in the pit."); */
u.utrap += rn2(5);
} else if(u.utraptype == TT_WEB) {
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL ins Spinnenetz und VERB_VERHEDDERN OBJECT PRONOMEN_PERSONAL noch mehr!"); /* EN You("sit in the spider web and get entangled further!"); */
u.utrap += rn1(10, 5);
} else if(u.utraptype == TT_LAVA) {
/* Must have fire resistance or they'd be dead already */
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL in die Lava!"); /* EN You("sit in the lava!"); */
u.utrap += rnd(4);
losehp(d(2,10), "durch Sitzen in Lava", KILLED_WITHOUT_PREPOSITION); /* EN losehp(d(2,10), "sitting in lava", KILLED_BY); */
} else if(u.utraptype == TT_INFLOOR) {
You("VERB_CAN OBJECT PRONOMEN_PERSONAL nicht richtig hinsetzen!"); /* EN You_cant("maneuver to sit!"); */
u.utrap++;
}
} else {
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL hin."); /* EN You("sit down."); */
dotrap(trap, 0);
}
} else if(Underwater || Is_waterlevel(&u.uz)) {
if (Is_waterlevel(&u.uz))
pline("Hier gibt es keine Sitzkissen."); /* EN There("are no cushions floating nearby."); */
else
You("VERB_SETZEN OBJECT PRONOMEN_PERSONAL auf den schlammigen Untergrund."); /* EN You("sit down on the muddy bottom."); */
} else if(is_pool(u.ux, u.uy)) {
in_water:
You("VERB_SITZEN im Wasser."); /* EN You("sit in the water."); */
if (!rn2(10) && uarm)
(void) rust_dmg(uarm, "NOUN_ARMOR", 1, TRUE, &youmonst); /* EN (void) rust_dmg(uarm, "armor", 1, TRUE, &youmonst); */
if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
(void) rust_dmg(uarm, "NOUN_ARMOR", 1, TRUE, &youmonst); /* EN (void) rust_dmg(uarm, "armor", 1, TRUE, &youmonst); */
#ifdef SINKS
} else if(IS_SINK(typ)) {
You(sit_message, defsyms[S_sink].explanation);
Your("%s VERB_WERDEN nass.", humanoid(youmonst.data) ? "NOUN_HINTERTEIL" : "NOUN_UNTERSEITE"); /* EN Your("%s gets wet.", humanoid(youmonst.data) ? "rump" : "underside"); */
#endif
} else if(IS_ALTAR(typ)) {
You(sit_message, defsyms[S_altar].explanation);
altar_wrath(u.ux, u.uy);
} else if(IS_GRAVE(typ)) {
You(sit_message, defsyms[S_grave].explanation);
} else if(typ == STAIRS) {
You(sit_message, "NOUN_STUFEs"); /* EN You(sit_message, "stairs"); */
} else if(typ == LADDER) {
You(sit_message, "NOUN_LADDER"); /* EN You(sit_message, "ladder"); */
} else if (is_lava(u.ux, u.uy)) {
/* must be WWalking */
You(sit_message, "NOUN_LAVA"); /* EN You(sit_message, "lava"); */
burn_away_slime();
if (likes_lava(youmonst.data)) {
pline_The("NOUN_LAVA fühlt sich warm an."); /* EN pline_The("lava feels warm."); */
return 1;
}
pline_The("NOUN_LAVA VERB_VERBRENNEN OBJECT PRONOMEN_PERSONAL!"); /* EN pline_The("lava burns you!"); */
losehp(d((Fire_resistance ? 2 : 10), 10),
"durch Sitzen auf Lava", KILLED_WITHOUT_PREPOSITION); /* EN "sitting on lava", KILLED_BY); */
} else if (is_ice(u.ux, u.uy)) {
You(sit_message, defsyms[S_ice].explanation);
if (!Cold_resistance) pline_The("NOUN_ICE fühlt sich kalt an."); /* EN if (!Cold_resistance) pline_The("ice feels cold."); */
} else if (typ == DRAWBRIDGE_DOWN) {
You(sit_message, "NOUN_DRAWBRIDGE"); /* EN You(sit_message, "drawbridge"); */
} else if(IS_THRONE(typ)) {
You(sit_message, defsyms[S_throne].explanation);
if (rnd(6) > 4) {
switch (rnd(13)) {
case 1:
(void) adjattrib(rn2(A_MAX), -rn1(4,3), FALSE);
losehp(rnd(10), "ADJEKTIV_CURSED NOUN_THRON", KILLED_BY_AN); /* EN losehp(rnd(10), "cursed throne", KILLED_BY_AN); */
break;
case 2:
(void) adjattrib(rn2(A_MAX), 1, FALSE);
break;
case 3:
pline("SUBJECT ARTIKEL_UNBESTIMMTER%s elektrischer NOUN_SCHLAG VERB_SCHIESSEN OBJECT durch PRONOMEN_POSSESSIV NOUN_BODY!", /* EN pline("A%s electric shock shoots through your body!", */
(Shock_resistance) ? "" : " massiver"); /* EN (Shock_resistance) ? "n" : " massive"); */
losehp(Shock_resistance ? rnd(6) : rnd(30),
"ADJEKTIV_ELEKTRISCH NOUN_STUHL", KILLED_BY_AN); /* EN "electric chair", KILLED_BY_AN); */
exercise(A_CON, FALSE);
break;
case 4:
Du_fuehlst_dich("viel, viel besser!"); /* EN You_feel("much, much better!"); */
if (Upolyd) {
if (u.mh >= (u.mhmax - 5)) u.mhmax += 4;
u.mh = u.mhmax;
}
if(u.uhp >= (u.uhpmax - 5)) u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L,TRUE);
make_sick(0L, (char *) 0, FALSE, SICK_ALL);
heal_legs();
flags.botl = 1;
break;
case 5:
take_gold();
break;
case 6:
if(u.uluck + rn2(5) < 0) {
You("VERB_FUEHLEN, NEUER_SATZ SUBJECT_IM_SATZ wie PRONOMEN_POSSESSIV NOUN_LUCK sich ändert."); /* EN You_feel("your luck is changing."); */
change_luck(1);
} else makewish();
break;
case 7:
{
register int cnt = rnd(10);
pline("Eine Stimme ertönt:"); /* EN pline("A voice echoes:"); */
verbalize("Euer Auditorium erwartet Euch bereits, %s!", /* EN verbalize("Thy audience hath been summoned, %s!", */
flags.female ? "Gebieterin" : "Gebieter"); /* EN flags.female ? "Dame" : "Sire"); */
while(cnt--)
(void) makemon(courtmon(), u.ux, u.uy, NO_MM_FLAGS);
break;
}
case 8:
pline("Eine Stimme ertönt:"); /* EN pline("A voice echoes:"); */
verbalize("Wie es Euch beliebt, %s...", /* EN verbalize("By thy Imperious order, %s...", */
flags.female ? "Gebieterin" : "Gebieter"); /* EN flags.female ? "Dame" : "Sire"); */
do_genocide(5); /* REALLY|ONTHRONE, see do_genocide() */
break;
case 9:
pline("Eine Stimme ertönt:"); /* EN pline("A voice echoes:"); */
verbalize("SATZBEGINN MODIFIER_VERB_IMPERATIV VERB_SEIN verflucht dafür, NEUER_SATZ dass SUBJECT_IM_SATZ PRONOMEN_PERSONAL OBJECT PRONOMEN_PERSONAL auf diesem allerheiligsten Thron niedergelassen VERB_HABEN!"); /* EN verbalize("A curse upon thee for sitting upon this most holy throne!"); */
if (Luck > 0) {
make_blinded(Blinded + rn1(100,250),TRUE);
} else rndcurse();
break;
case 10:
if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
if (level.flags.nommap) {
pline(
"Ein schreckliches Dröhnen erfüllt KASUS_AKKUSATIV PRONOMEN_POSSESSIV NOUN_KOPF!"); /* EN "A terrible drone fills your head!"); */
make_confused(HConfusion + rnd(30),
FALSE);
} else {
pline("Ein Bild formt sich in KASUS_DATIV PRONOMEN_POSSESSIV NOUN_GEDANKEs."); /* EN pline("An image forms in your mind."); */
do_mapping();
}
} else {
Your("NOUN_BLICK klärt sich."); /* EN Your("vision becomes clear."); */
HSee_invisible |= FROMOUTSIDE;
newsym(u.ux, u.uy);
}
break;
case 11:
if (Luck < 0) {
Du_fuehlst_dich("bedroht."); /* EN You_feel("threatened."); */
aggravate();
} else {
Du_spuerst("einen reißenden Schmerz."); /* EN You_feel("a wrenching sensation."); */
tele(); /* teleport him */
}
break;
case 12:
Dir_wird("eine Einsicht gewährt!"); /* EN You("are granted an insight!"); */
if (invent) {
/* rn2(5) agrees w/seffects() */
identify_pack(rn2(5));
}
break;
case 13:
Your("NOUN_VERSTAND verknotet sich zu einer Bretzel!"); /* EN Your("mind turns into a pretzel!"); */
make_confused(HConfusion + rn1(7,16),FALSE);
break;
default: impossible("throne effect");
break;
}
} else {
if (is_prince(youmonst.data))
Du_fuehlst_dich("hier sehr wohl."); /* EN You_feel("very comfortable here."); */
else
Du_fuehlst_dich("irgendwie fehl am Platz ..."); /* EN You_feel("somehow out of place..."); */
}
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
/* may have teleported */
levl[u.ux][u.uy].typ = ROOM;
pline_The("NOUN_THRON VERB_AUFLOESEN sich in ein Logikwölkchen SATZKLAMMER."); /* EN pline_The("throne vanishes in a puff of logic."); */
newsym(u.ux,u.uy);
}
} else if (lays_eggs(youmonst.data)) {
struct obj *uegg;
if (!flags.female) {
pline("Männchen können keine Eier legen!"); /* EN pline("Males can't lay eggs!"); */
return 0;
}
if (u.uhunger < (int)objects[EGG].oc_nutrition) {
You("VERB_HAVE nicht genug Energie um ein Ei zu legen."); /* EN You("don't have enough energy to lay an egg."); */
return 0;
}
uegg = mksobj(EGG, FALSE, FALSE);
uegg->spe = 1;
uegg->quan = 1;
uegg->owt = weight(uegg);
uegg->corpsenm = egg_type_from_parent(u.umonnum, FALSE);
uegg->known = uegg->dknown = 1;
attach_egg_hatch_timeout(uegg);
You("VERB_LEGEN ein Ei."); /* EN You("lay an egg."); */
dropy(uegg);
stackobj(uegg);
morehungry((int)objects[EGG].oc_nutrition);
} else if (u.uswallow)
pline("Hier gibt es keine Sitzmöglichkeiten!"); /* EN There("are no seats in here!"); */
else
pline("Spaß daran, %s zu sitzen?", auf_dem_Boden(u.ux,u.uy)); /* EN pline("Having fun sitting on the %s?", surface(u.ux,u.uy)); */
return(1);
}
int
dosit()
{
static const char sit_message[] = "sit on the %s.";
register struct trap *trap;
register int typ = levl[u.ux][u.uy].typ;
#ifdef STEED
if (u.usteed) {
You("are already sitting on %s.", mon_nam(u.usteed));
return (0);
}
#endif
if(!can_reach_floor()) {
if (Levitation)
You("tumble in place.");
else
You("are sitting on air.");
return 0;
} else if (is_pool(u.ux, u.uy) && !Underwater) { /* water walking */
goto in_water;
}
if(OBJ_AT(u.ux, u.uy)) {
register struct obj *obj;
obj = level.objects[u.ux][u.uy];
You("sit on %s.", the(xname(obj)));
if (!(Is_box(obj) || objects[obj->otyp].oc_material == CLOTH))
pline("It's not very comfortable...");
} else if ((trap = t_at(u.ux, u.uy)) != 0 ||
(u.utrap && (u.utraptype >= TT_LAVA))) {
if (u.utrap) {
exercise(A_WIS, FALSE); /* you're getting stuck longer */
if(u.utraptype == TT_BEARTRAP) {
You_cant("sit down with your %s in the bear trap.", body_part(FOOT));
u.utrap++;
} else if(u.utraptype == TT_PIT) {
if(trap->ttyp == SPIKED_PIT) {
You("sit down on a spike. Ouch!");
losehp(1, "sitting on an iron spike", KILLED_BY);
exercise(A_STR, FALSE);
} else
You("sit down in the pit.");
u.utrap += rn2(5);
} else if(u.utraptype == TT_WEB) {
You("sit in the spider web and get entangled further!");
u.utrap += rn1(10, 5);
} else if(u.utraptype == TT_LAVA) {
/* Must have fire resistance or they'd be dead already */
You("sit in the lava!");
u.utrap += rnd(4);
losehp(d(2,10), "sitting in lava", KILLED_BY);
} else if(u.utraptype == TT_INFLOOR) {
You_cant("maneuver to sit!");
u.utrap++;
}
} else {
You("sit down.");
dotrap(trap, 0);
}
} else if(Underwater || Is_waterlevel(&u.uz)) {
if (Is_waterlevel(&u.uz))
There("are no cushions floating nearby.");
else
You("sit down on the muddy bottom.");
} else if(is_pool(u.ux, u.uy)) {
in_water:
You("sit in the water.");
if (!rn2(10) && uarm)
(void) rust_dmg(uarm, "armor", 1, TRUE, &youmonst);
if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
(void) rust_dmg(uarm, "armor", 1, TRUE, &youmonst);
#ifdef SINKS
} else if(IS_SINK(typ)) {
You(sit_message, defsyms[S_sink].explanation);
Your("%s gets wet.", humanoid(youmonst.data) ? "rump" : "underside");
#endif
} else if(IS_ALTAR(typ)) {
You(sit_message, defsyms[S_altar].explanation);
altar_wrath(u.ux, u.uy);
} else if(IS_GRAVE(typ)) {
You(sit_message, defsyms[S_grave].explanation);
} else if(typ == STAIRS) {
You(sit_message, "stairs");
} else if(typ == LADDER) {
You(sit_message, "ladder");
} else if (is_lava(u.ux, u.uy)) {
/* must be WWalking */
You(sit_message, "lava");
burn_away_slime();
if (likes_lava(youmonst.data)) {
pline_The("lava feels warm.");
return 1;
}
pline_The("lava burns you!");
losehp(d((Fire_resistance ? 2 : 10), 10),
"sitting on lava", KILLED_BY);
} else if (is_ice(u.ux, u.uy)) {
You(sit_message, defsyms[S_ice].explanation);
if (!Cold_resistance) pline_The("ice feels cold.");
} else if (typ == DRAWBRIDGE_DOWN) {
You(sit_message, "drawbridge");
} else if(IS_THRONE(typ)) {
You(sit_message, defsyms[S_throne].explanation);
if (rnd(6) > 4) {
switch (rnd(13)) {
case 1:
(void) adjattrib(rn2(A_MAX), -rn1(4,3), FALSE);
losehp(rnd(10), "cursed throne", KILLED_BY_AN);
break;
case 2:
(void) adjattrib(rn2(A_MAX), 1, FALSE);
break;
case 3:
pline("A%s electric shock shoots through your body!",
(Shock_resistance) ? "n" : " massive");
losehp(Shock_resistance ? rnd(6) : rnd(30),
"electric chair", KILLED_BY_AN);
exercise(A_CON, FALSE);
break;
case 4:
You_feel("much, much better!");
if (Upolyd) {
if (u.mh >= (u.mhmax - 5)) u.mhmax += 4;
u.mh = u.mhmax;
}
if(u.uhp >= (u.uhpmax - 5)) u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L,TRUE);
make_sick(0L, (char *) 0, FALSE, SICK_ALL);
heal_legs();
flags.botl = 1;
break;
case 5:
take_gold();
break;
case 6:
if(u.uluck + rn2(5) < 0) {
You_feel("your luck is changing.");
change_luck(1);
} else makewish();
break;
case 7:
{
register int cnt = rnd(10);
pline("A voice echoes:");
verbalize("Thy audience hath been summoned, %s!",
flags.female ? "Dame" : "Sire");
while(cnt--)
(void) makemon(courtmon(), u.ux, u.uy, NO_MM_FLAGS);
break;
}
case 8:
pline("A voice echoes:");
verbalize("By thy Imperious order, %s...",
flags.female ? "Dame" : "Sire");
do_genocide(5); /* REALLY|ONTHRONE, see do_genocide() */
break;
case 9:
pline("A voice echoes:");
verbalize("A curse upon thee for sitting upon this most holy throne!");
if (Luck > 0) {
make_blinded(Blinded + rn1(100,250),TRUE);
} else rndcurse();
break;
case 10:
if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
if (level.flags.nommap) {
pline(
"A terrible drone fills your head!");
make_confused(HConfusion + rnd(30),
FALSE);
} else {
pline("An image forms in your mind.");
do_mapping();
}
} else {
Your("vision becomes clear.");
HSee_invisible |= FROMOUTSIDE;
newsym(u.ux, u.uy);
}
break;
case 11:
if (Luck < 0) {
You_feel("threatened.");
aggravate();
} else {
You_feel("a wrenching sensation.");
tele(); /* teleport him */
}
break;
case 12:
You("are granted an insight!");
if (invent) {
/* rn2(5) agrees w/seffects() */
identify_pack(rn2(5));
}
break;
case 13:
Your("mind turns into a pretzel!");
make_confused(HConfusion + rn1(7,16),FALSE);
break;
default: impossible("throne effect");
break;
}
} else {
if (is_prince(youmonst.data))
You_feel("very comfortable here.");
else
You_feel("somehow out of place...");
}
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
/* may have teleported */
levl[u.ux][u.uy].typ = ROOM;
pline_The("throne vanishes in a puff of logic.");
newsym(u.ux,u.uy);
}
} else if (lays_eggs(youmonst.data)) {
struct obj *uegg;
if (!flags.female) {
pline("Males can't lay eggs!");
return 0;
}
if (u.uhunger < (int)objects[EGG].oc_nutrition) {
You("don't have enough energy to lay an egg.");
return 0;
}
uegg = mksobj(EGG, FALSE, FALSE);
uegg->spe = 1;
uegg->quan = 1;
uegg->owt = weight(uegg);
uegg->corpsenm = egg_type_from_parent(u.umonnum, FALSE);
uegg->known = uegg->dknown = 1;
attach_egg_hatch_timeout(uegg);
You("lay an egg.");
dropy(uegg);
stackobj(uegg);
morehungry((int)objects[EGG].oc_nutrition);
} else if (u.uswallow)
There("are no seats in here!");
else
pline("Having fun sitting on the %s?", surface(u.ux,u.uy));
return(1);
}
int
dosit() {
#ifdef THRONES
register int cnt;
#endif
if(Levitation) {
pline("There's nothing to sit on up here.");
#ifdef THRONES
} else if(IS_THRONE(levl[u.ux][u.uy].typ)) {
if (rnd(6) > 4) {
switch (rnd(13)) {
case 1:
adjattrib(rn2(A_MAX), -rn1(4,3), FALSE);
losehp(rnd(10), "cursed throne", KILLED_BY_AN);
break;
case 2:
adjattrib(rn2(A_MAX), 1, FALSE);
break;
case 3:
pline("A%s charge of electricity shoots through your body!",
(Shock_resistance) ? "" : " massive");
if(Shock_resistance)
losehp(rnd(6), "electric chair", KILLED_BY_AN);
else losehp(rnd(30), "electric chair", KILLED_BY_AN);
break;
case 4:
You("feel much, much better!");
if(u.uhp >= (u.uhpmax - 5)) u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L,TRUE);
make_sick(0L,FALSE);
heal_legs();
flags.botl = 1;
break;
case 5:
take_gold();
break;
case 6:
if(u.uluck + rn2(5) < 0) {
You("feel your luck is changing.");
change_luck(1);
} else makewish();
break;
case 7:
cnt = rnd(10);
You("hear a voice echo:");
pline("\"Thy audience hath been summoned, Sire!\"");
while(cnt--)
(void) makemon(courtmon(), u.ux, u.uy);
break;
case 8:
You("hear a voice echo:");
pline("\"By thy Imperious order, Sire...\"");
do_genocide(1);
break;
case 9:
You("hear a voice echo:");
pline("\"A curse upon thee for sitting upon this most holy throne!\"");
if (Luck > 0) {
make_blinded(Blinded + rn1(100,250),TRUE);
} else rndcurse();
break;
case 10:
if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
pline("An image forms in your mind.");
do_mapping();
} else {
Your("vision clarifies.");
HSee_invisible |= INTRINSIC;
}
break;
case 11:
if (Luck < 0) {
You("feel threatened.");
aggravate();
} else {
You("feel a wrenching sensation.");
tele(); /* teleport him */
}
break;
case 12:
You("are granted a gift of insight!");
while (!ggetobj("identify", identify, rn2(5))
&& invent);
break;
case 13:
Your("mind turns into a pretzel!");
make_confused(HConfusion + rn1(7,16),FALSE);
break;
default: impossible("throne effect");
break;
}
} else You("feel somehow out of place...");
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
pline("The throne vanishes in a puff of logic.");
/* levl[u.ux][u.uy].scrsym = ROOM_SYM; */
levl[u.ux][u.uy].typ = ROOM;
if(Invisible) newsym(u.ux,u.uy);
}
#endif
#ifdef POLYSELF
} else if (lays_eggs(uasmon) || u.umonnum == PM_QUEEN_BEE) {
struct obj *uegg;
if (u.uhunger < objects[EGG].nutrition) {
You("are too weak to lay an egg.");
return 0;
}
uegg = mksobj(EGG, 0);
uegg->spe = 1;
uegg->quan = 1;
uegg->owt = weight(uegg);
uegg->corpsenm =
(u.umonnum==PM_QUEEN_BEE ? PM_KILLER_BEE : monsndx(uasmon));
uegg->known = uegg->dknown = 1;
You("lay an egg.");
dropy(uegg);
stackobj(uegg);
morehungry(objects[EGG].nutrition);
#endif
} else
pline("Having fun sitting on the floor?");
return(1);
}
void
moveloop()
{
#if defined(MICRO) || defined(WIN32)
char ch;
int abort_lev;
#endif
int moveamt = 0, wtcap = 0, change = 0;
boolean didmove = FALSE, monscanmove = FALSE;
flags.moonphase = phase_of_the_moon();
if(flags.moonphase == FULL_MOON) {
You("are lucky! Full moon tonight.");
change_luck(1);
} else if(flags.moonphase == NEW_MOON) {
pline("Be careful! New moon tonight.");
}
flags.friday13 = friday_13th();
if (flags.friday13) {
pline("Watch out! Bad things can happen on Friday the 13th.");
change_luck(-1);
}
initrack();
/* Note: these initializers don't do anything except guarantee that
we're linked properly.
*/
decl_init();
monst_init();
monstr_init(); /* monster strengths */
objects_init();
commands_init();
(void) encumber_msg(); /* in case they auto-picked up something */
u.uz0.dlevel = u.uz.dlevel;
youmonst.movement = NORMAL_SPEED; /* give the hero some movement points */
for(;;) {
get_nh_event();
#ifdef POSITIONBAR
do_positionbar();
#endif
didmove = flags.move;
if(didmove) {
/* actual time passed */
youmonst.movement -= NORMAL_SPEED;
do { /* hero can't move this turn loop */
wtcap = encumber_msg();
flags.mon_moving = TRUE;
do {
monscanmove = movemon();
if (youmonst.movement >= NORMAL_SPEED)
{
curmonst = &youmonst;
break; /* it's now your turn */
}
} while (monscanmove);
flags.mon_moving = FALSE;
if (!monscanmove && youmonst.movement < NORMAL_SPEED) {
/* both you and the monsters are out of steam this round */
/* set up for a new turn */
struct monst *mtmp;
mcalcdistress(); /* adjust monsters' trap, blind, etc */
/* reallocate movement rations to monsters */
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
mtmp->movement += mcalcmove(mtmp);
if(!rn2(u.uevent.udemigod ? 25 :
(depth(&u.uz) > depth(&stronghold_level)) ? 50 : 70))
(void) makemon((struct permonst *)0, 0, 0, NO_MM_FLAGS);
/* calculate how much time passed. */
#ifdef STEED
if (u.usteed && u.umoved) {
/* your speed doesn't augment steed's speed */
moveamt = mcalcmove(u.usteed);
} else
#endif
{
moveamt = youmonst.data->mmove;
if (Very_fast) { /* speed boots or potion */
/* average movement is 1.67 times normal */
moveamt += NORMAL_SPEED / 2;
if (rn2(3) == 0) moveamt += NORMAL_SPEED / 2;
} else if (Fast) {
/* average movement is 1.33 times normal */
if (rn2(3) != 0) moveamt += NORMAL_SPEED / 2;
}
}
switch (wtcap) {
case UNENCUMBERED: break;
case SLT_ENCUMBER: moveamt -= (moveamt / 4); break;
case MOD_ENCUMBER: moveamt -= (moveamt / 2); break;
case HVY_ENCUMBER: moveamt -= ((moveamt * 3) / 4); break;
case EXT_ENCUMBER: moveamt -= ((moveamt * 7) / 8); break;
default: break;
}
youmonst.movement += moveamt;
if (youmonst.movement < 0) youmonst.movement = 0;
settrack();
monstermoves++;
moves++;
/********************************/
/* once-per-turn things go here */
/********************************/
if (flags.bypasses) clear_bypasses();
if(Glib) glibr();
nh_timeout();
run_regions();
if (u.ublesscnt) u.ublesscnt--;
if(flags.time && !flags.run)
flags.botl = 1;
/* One possible result of prayer is healing. Whether or
* not you get healed depends on your current hit points.
* If you are allowed to regenerate during the prayer, the
* end-of-prayer calculation messes up on this.
* Another possible result is rehumanization, which requires
* that encumbrance and movement rate be recalculated.
*/
if (u.uinvulnerable) {
/* for the moment at least, you're in tiptop shape */
wtcap = UNENCUMBERED;
} else if (Upolyd && youmonst.data->mlet == S_EEL &&
!is_pool(u.ux,u.uy) && !Is_waterlevel(&u.uz) &&
!(u.uswallow &&
u.ustuck->data == &mons[PM_WATER_ELEMENTAL])) {
if (u.mh > 1) {
u.mh--;
flags.botl = 1;
} else if (u.mh < 1)
killer_format = KILLED_BY_AN,
rehumanize("inability to breathe air");
} else if (Upolyd && u.mh < u.mhmax) {
if (u.mh < 1)
rehumanize(0);
else if (Regeneration ||
(wtcap < MOD_ENCUMBER && !(moves%20))) {
flags.botl = 1;
u.mh++;
}
} else if (u.uhp < u.uhpmax &&
(wtcap < MOD_ENCUMBER || !u.umoved || Regeneration)) {
if (u.ulevel > 9 && !(moves % 3)) {
int heal, Con = (int) ACURR(A_CON);
if (Con <= 12) {
heal = 1;
} else {
heal = rnd(Con);
if (heal > u.ulevel-9) heal = u.ulevel-9;
}
flags.botl = 1;
u.uhp += heal;
if(u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
} else if (Regeneration ||
(u.ulevel <= 9 &&
!(moves % ((MAXULEV+12) / (u.ulevel+2) + 1)))) {
flags.botl = 1;
u.uhp++;
}
}
/* moving around while encumbered is hard work */
if (wtcap > MOD_ENCUMBER && u.umoved) {
if(!(wtcap < EXT_ENCUMBER ? moves%30 : moves%10)) {
if (Upolyd && u.mh > 1) {
u.mh--;
} else if (!Upolyd && u.uhp > 1) {
u.uhp--;
} else {
You("pass out from exertion!");
exercise(A_CON, FALSE);
fall_asleep(-10, FALSE);
}
}
}
if ((u.uen < u.uenmax) &&
((wtcap < MOD_ENCUMBER &&
(!(moves%((MAXULEV + 8 - u.ulevel) *
(Role_if(PM_WIZARD) ? 3 : 4) / 6))))
|| Energy_regeneration)) {
u.uen += rn1((int)(ACURR(A_WIS) + ACURR(A_INT)) / 15 + 1,1);
if (u.uen > u.uenmax) u.uen = u.uenmax;
flags.botl = 1;
}
if(!u.uinvulnerable) {
if(Teleportation && !rn2(85)) {
xchar old_ux = u.ux, old_uy = u.uy;
tele();
if (u.ux != old_ux || u.uy != old_uy) {
if (!next_to_u()) {
check_leash(old_ux, old_uy);
}
#ifdef REDO
/* clear doagain keystrokes */
pushch(0);
savech(0);
#endif
}
}
/* delayed change may not be valid anymore */
if ((change == 1 && !Polymorph) ||
(change == 2 && u.ulycn == NON_PM))
change = 0;
if(Polymorph && !rn2(100))
change = 1;
else if (u.ulycn >= LOW_PM && !Upolyd &&
!rn2(80 - (20 * night())))
change = 2;
if (change && !Unchanging) {
if (multi >= 0) {
if (occupation)
stop_occupation();
else
nomul(0);
if (change == 1) polyself(FALSE);
else you_were();
change = 0;
}
}
if(u.utrap && u.utraptype == TT_LAVA) {
if(!is_lava(u.ux,u.uy))
u.utrap = 0;
else if (!u.uinvulnerable) {
u.utrap -= 1<<8;
if(u.utrap < 1<<8) {
killer_format = KILLED_BY;
killer = "molten lava";
You("sink below the surface and die.");
done(DISSOLVED);
} else if(didmove && !u.umoved) {
Norep("You sink deeper into the lava.");
u.utrap += rnd(4);
}
}
}
}
if(Searching && multi >= 0) (void) dosearch0(1);
dosounds();
/* hack - make sure damage from storms is not blamed
on the player */
flags.mon_moving = TRUE;
do_storms();
flags.mon_moving = FALSE;
gethungry();
age_spells();
exerchk();
invault();
if (u.uhave.amulet) amulet();
if (!rn2(40+(int)(ACURR(A_DEX)*3)))
u_wipe_engr(rnd(3));
if (u.uevent.udemigod && !u.uinvulnerable) {
if (u.udg_cnt) u.udg_cnt--;
if (!u.udg_cnt) {
intervene();
u.udg_cnt = rn1(200, 50);
}
}
restore_attrib();
/* underwater and waterlevel vision are done here */
if (Is_waterlevel(&u.uz))
movebubbles();
else if (Underwater)
under_water(0);
/* vision while buried done here */
else if (u.uburied) under_ground(0);
/* when immobile, count is in turns */
if(multi < 0) {
if (++multi == 0) { /* finished yet? */
unmul((char *)0);
/* if unmul caused a level change, take it now */
if (u.utotype) deferred_goto();
}
}
}
} while (youmonst.movement<NORMAL_SPEED); /* hero can't move loop */
/******************************************/
/* once-per-hero-took-time things go here */
/******************************************/
curmonst = &youmonst;
} /* actual time passed */
/****************************************/
/* once-per-player-input things go here */
/****************************************/
find_ac();
if(!flags.mv || Blind) {
/* redo monsters if hallu or wearing a helm of telepathy */
if (HHallucination &&
!Halluc_resistance) { /* update screen randomly */
/*
see_monsters();
see_objects();
see_traps();
if (u.uswallow) swallowed(0);
*/
if (u.uswallow) {
swallowed(1);
} else if (Underwater && !Is_waterlevel(&u.uz)) {
under_water(1);
} else if (u.uburied) {
under_ground(1);
} else {
register int x, y;
register struct rm *lev;
vision_recalc(2);
/*clear_nhwindow(WIN_MAP);*/
clear_glyph_buffer();
for (x = 1; x < COLNO; x++) {
lev = &levl[x][0];
for (y = 0; y < ROWNO; y++, lev++)
if (lev->glyph != cmap_to_glyph(S_stone))
show_glyph(x,y,lev->glyph);
}
vision_recalc(0);
see_monsters();
}
} else if (Unblind_telepat) {
see_monsters();
} else if (Warning || Warn_of_mon)
see_monsters();
if (vision_full_recalc) vision_recalc(0); /* vision! */
}
#ifdef REALTIME_ON_BOTL
if(iflags.showrealtime) {
/* Update the bottom line if the number of minutes has
* changed */
if(get_realtime() / 60 != realtime_data.last_displayed_time / 60)
flags.botl = 1;
}
#endif
if(flags.botl || flags.botlx) bot();
flags.move = 1;
if(multi >= 0 && occupation) {
#if defined(MICRO) || defined(WIN32)
abort_lev = 0;
if (kbhit()) {
if ((ch = Getchar()) == ABORT)
abort_lev++;
# ifdef REDO
else
pushch(ch);
# endif /* REDO */
}
if (!abort_lev && (*occupation)() == 0)
#else
if ((*occupation)() == 0)
#endif
occupation = 0;
if(
#if defined(MICRO) || defined(WIN32)
abort_lev ||
#endif
monster_nearby()) {
stop_occupation();
reset_eat();
}
#if defined(MICRO) || defined(WIN32)
if (!(++occtime % 7))
display_nhwindow(WIN_MAP, FALSE);
#endif
continue;
}
if ((u.uhave.amulet || Clairvoyant) &&
!In_endgame(&u.uz) && !BClairvoyant &&
!(moves % 15) && !rn2(2))
do_vicinity_map();
#ifdef WIZARD
if (iflags.sanity_check)
sanity_check();
#endif
#ifdef CLIPPING
/* just before rhack */
cliparound(u.ux, u.uy);
#endif
u.umoved = FALSE;
if (multi > 0) {
lookaround();
if (!multi) {
/* lookaround may clear multi */
flags.move = 0;
if (flags.time) flags.botl = 1;
continue;
}
if (flags.mv) {
if(multi < COLNO && !--multi)
flags.travel = iflags.travel1 = flags.mv = flags.run = 0;
domove();
} else {
--multi;
rhack(save_cm);
}
} else if (multi == 0) {
#ifdef MAIL
ckmailstatus();
#endif
rhack((char *)0);
}
if (u.utotype) /* change dungeon level */
deferred_goto(); /* after rhack() */
/* !flags.move here: multiple movement command stopped */
else if (flags.time && (!flags.move || !flags.mv))
flags.botl = 1;
if (vision_full_recalc) vision_recalc(0); /* vision! */
/* when running in non-tport mode, this gets done through domove() */
if ((!flags.run || iflags.runmode == RUN_TPORT) &&
(multi && (!flags.travel ? !(multi % 7) : !(moves % 7L)))) {
if (flags.time && flags.run) flags.botl = 1;
display_nhwindow(WIN_MAP, FALSE);
}
}
}
int
dosave()
{
#ifdef KEEP_SAVE
/*WAC for reloading*/
register int fd;
#endif
clear_nhwindow(WIN_MESSAGE);
if(yn("Really save?") == 'n') {
clear_nhwindow(WIN_MESSAGE);
if(multi > 0) nomul(0);
} else {
clear_nhwindow(WIN_MESSAGE);
pline("Saving...");
#if defined(UNIX) || defined(VMS) || defined(__EMX__)
program_state.done_hup = 0;
#endif
#ifdef KEEP_SAVE
saverestore = FALSE;
if (flags.keep_savefile)
if(yn("Really quit?") == 'n') saverestore = TRUE;
if(dosave0() && !saverestore) {
#else
if(dosave0()) {
#endif
program_state.something_worth_saving = 0;
u.uhp = -1; /* universal game's over indicator */
/* make sure they see the Saving message */
display_nhwindow(WIN_MESSAGE, TRUE);
exit_nhwindows("Be seeing you...");
terminate(EXIT_SUCCESS);
}
/*WAC redraw later
else (void)doredraw();*/
}
#ifdef KEEP_SAVE
if (saverestore) {
/*WAC pulled this from pcmain.c - restore game from the file just saved*/
fd = create_levelfile(0);
if (fd < 0) {
raw_print("Cannot create lock file");
} else {
hackpid = 1;
write(fd, (genericptr_t) &hackpid, sizeof(hackpid));
close(fd);
}
#ifdef MFLOPPY
level_info[0].where = ACTIVE;
#endif
fd = restore_saved_game();
if (fd >= 0) dorecover(fd);
check_special_room(FALSE);
flags.move = 0;
/*WAC correct these after restore*/
if(flags.moonphase == FULL_MOON)
change_luck(1);
if(flags.friday13)
change_luck(-1);
if(iflags.window_inited)
clear_nhwindow(WIN_MESSAGE);
}
saverestore = FALSE;
#endif
(void)doredraw();
return 0;
}
#if defined(UNIX) || defined(VMS) || defined (__EMX__) || defined(WIN32)
/*ARGSUSED*/
void
hangup(sig_unused) /* called as signal() handler, so sent at least one arg */
int sig_unused;
{
# ifdef NOSAVEONHANGUP
(void) signal(SIGINT, SIG_IGN);
clearlocks();
# ifndef VMS
terminate(EXIT_FAILURE);
# endif
# else /* SAVEONHANGUP */
if (!program_state.done_hup++) {
if (program_state.something_worth_saving)
(void) dosave0();
# ifdef VMS
/* don't call exit when already within an exit handler;
that would cancel any other pending user-mode handlers */
if (!program_state.exiting)
# endif
{
clearlocks();
terminate(EXIT_FAILURE);
}
}
# endif
return;
}
#endif
/* returns 1 if save successful */
int
dosave0()
{
const char *fq_save;
register int fd, ofd;
xchar ltmp;
d_level uz_save;
char whynot[BUFSZ];
if (!SAVEF[0])
return 0;
fq_save = fqname(SAVEF, SAVEPREFIX, 1); /* level files take 0 */
#if defined(UNIX) || defined(VMS)
(void) signal(SIGHUP, SIG_IGN);
#endif
#ifndef NO_SIGNAL
(void) signal(SIGINT, SIG_IGN);
#endif
#if defined(MICRO) && defined(MFLOPPY)
if (!saveDiskPrompt(0)) return 0;
#endif
HUP if (iflags.window_inited) {
uncompress_area(fq_save, SAVEF);
fd = open_savefile();
if (fd > 0) {
(void) close(fd);
clear_nhwindow(WIN_MESSAGE);
There("seems to be an old save file.");
if (yn("Overwrite the old file?") == 'n') {
compress_area(fq_save, SAVEF);
#ifdef KEEP_SAVE
/*WAC don't restore if you didn't save*/
saverestore = FALSE;
#endif
return 0;
}
}
}
HUP mark_synch(); /* flush any buffered screen output */
fd = create_savefile();
if(fd < 0) {
HUP pline("Cannot open save file.");
(void) delete_savefile(); /* ab@unido */
return(0);
}
vision_recalc(2); /* shut down vision to prevent problems
in the event of an impossible() call */
/* undo date-dependent luck adjustments made at startup time */
if(flags.moonphase == FULL_MOON) /* ut-sally!fletcher */
change_luck(-1); /* and unido!ab */
if(flags.friday13)
change_luck(1);
if(iflags.window_inited)
HUP clear_nhwindow(WIN_MESSAGE);
#if defined(MICRO) && defined(TTY_GRAPHICS)
if (!strncmpi("tty", windowprocs.name, 3)) {
dotcnt = 0;
dotrow = 2;
curs(WIN_MAP, 1, 1);
putstr(WIN_MAP, 0, "Saving:");
}
#endif
#ifdef MFLOPPY
/* make sure there is enough disk space */
if (iflags.checkspace) {
long fds, needed;
savelev(fd, ledger_no(&u.uz), COUNT_SAVE);
savegamestate(fd, COUNT_SAVE);
needed = bytes_counted;
for (ltmp = 1; ltmp <= maxledgerno(); ltmp++)
if (ltmp != ledger_no(&u.uz) && level_info[ltmp].where)
needed += level_info[ltmp].size + (sizeof ltmp);
fds = freediskspace(fq_save);
if (needed > fds) {
HUP {
There("is insufficient space on SAVE disk.");
pline("Require %ld bytes but only have %ld.", needed, fds);
}
flushout();
(void) close(fd);
(void) delete_savefile();
return 0;
}
co_false();
}
/* #sit command */
int
dosit()
{
/*JP
static const char sit_message[] = "sit on the %s.";
*/
static const char sit_message[] = "%sに座った．";
register struct trap *trap = t_at(u.ux, u.uy);
register int typ = levl[u.ux][u.uy].typ;
if (u.usteed) {
/*JP
You("are already sitting on %s.", mon_nam(u.usteed));
*/
You("もう%sに座っている．", mon_nam(u.usteed));
return 0;
}
if (u.uundetected && is_hider(youmonst.data) && u.umonnum != PM_TRAPPER)
u.uundetected = 0; /* no longer on the ceiling */
if (!can_reach_floor(FALSE)) {
if (u.uswallow)
/*JP
There("are no seats in here!");
*/
pline("ここには椅子がない！");
else if (Levitation)
/*JP
You("tumble in place.");
*/
You("その場で宙返りした．");
else
/*JP
You("are sitting on air.");
*/
You("空中に座った．");
return 0;
} else if (u.ustuck && !sticks(youmonst.data)) {
/* holding monster is next to hero rather than beneath, but
hero is in no condition to actually sit at has/her own spot */
if (humanoid(u.ustuck->data))
/*JP
pline("%s won't offer %s lap.", Monnam(u.ustuck), mhis(u.ustuck));
*/
pline("%sはひざを出さなかった．", Monnam(u.ustuck));
else
/*JP
pline("%s has no lap.", Monnam(u.ustuck));
*/
pline("%sにはひざがない．", Monnam(u.ustuck));
return 0;
} else if (is_pool(u.ux, u.uy) && !Underwater) { /* water walking */
goto in_water;
}
if (OBJ_AT(u.ux, u.uy)
/* ensure we're not standing on the precipice */
&& !uteetering_at_seen_pit(trap)) {
register struct obj *obj;
obj = level.objects[u.ux][u.uy];
if (youmonst.data->mlet == S_DRAGON && obj->oclass == COIN_CLASS) {
#if 0 /*JP*/
You("coil up around your %shoard.",
(obj->quan + money_cnt(invent) < u.ulevel * 1000) ? "meager "
: "");
#else
You("%sお宝のまわりでとぐろを巻いた．",
(obj->quan + money_cnt(invent) < u.ulevel * 1000) ? "わずかな"
: "");
#endif
} else {
/*JP
You("sit on %s.", the(xname(obj)));
*/
You("%sに座った．", the(xname(obj)));
if (!(Is_box(obj) || objects[obj->otyp].oc_material == CLOTH))
/*JP
pline("It's not very comfortable...");
*/
pline("あまり座りごこちがよくない．．．");
}
} else if (trap != 0 || (u.utrap && (u.utraptype >= TT_LAVA))) {
if (u.utrap) {
exercise(A_WIS, FALSE); /* you're getting stuck longer */
if (u.utraptype == TT_BEARTRAP) {
/*JP
You_cant("sit down with your %s in the bear trap.",
*/
pline("%sが熊の罠にはさまっているので座れない．",
body_part(FOOT));
u.utrap++;
} else if (u.utraptype == TT_PIT) {
if (trap && trap->ttyp == SPIKED_PIT) {
/*JP
You("sit down on a spike. Ouch!");
*/
You("トゲの上に座った．いてっ！");
losehp(Half_physical_damage ? rn2(2) : 1,
/*JP
"sitting on an iron spike", KILLED_BY);
*/
"鉄のトゲの上に座って", KILLED_BY);
exercise(A_STR, FALSE);
} else
/*JP
You("sit down in the pit.");
*/
You("落し穴の中で座った．");
u.utrap += rn2(5);
} else if (u.utraptype == TT_WEB) {
/*JP
You("sit in the spider web and get entangled further!");
*/
You("くもの巣の中で座ったら，ますます絡まった！");
u.utrap += rn1(10, 5);
} else if (u.utraptype == TT_LAVA) {
/* Must have fire resistance or they'd be dead already */
/*JP
You("sit in the lava!");
*/
You("溶岩の中に座った！");
if (Slimed)
burn_away_slime();
u.utrap += rnd(4);
/*JP
losehp(d(2, 10), "sitting in lava",
*/
losehp(d(2, 10), "溶岩の中に座って",
KILLED_BY); /* lava damage */
} else if (u.utraptype == TT_INFLOOR
|| u.utraptype == TT_BURIEDBALL) {
/*JP
You_cant("maneuver to sit!");
*/
You("座るような動作ができない！");
u.utrap++;
}
} else {
/*JP
You("sit down.");
*/
You("座った．");
dotrap(trap, 0);
}
} else if (Underwater || Is_waterlevel(&u.uz)) {
if (Is_waterlevel(&u.uz))
/*JP
There("are no cushions floating nearby.");
*/
pline("近くに浮いているクッションはない．");
else
/*JP
You("sit down on the muddy bottom.");
*/
You("どろどろした底に座った．");
} else if (is_pool(u.ux, u.uy)) {
in_water:
/*JP
You("sit in the water.");
*/
You("水の中で座った．");
if (!rn2(10) && uarm)
/*JP
(void) water_damage(uarm, "armor", TRUE);
*/
(void) water_damage(uarm, "鎧", TRUE);
if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
/*JP
(void) water_damage(uarm, "armor", TRUE);
*/
(void) water_damage(uarm, "鎧", TRUE);
} else if (IS_SINK(typ)) {
You(sit_message, defsyms[S_sink].explanation);
/*JP
Your("%s gets wet.", humanoid(youmonst.data) ? "rump" : "underside");
*/
Your("%sは濡れた．", humanoid(youmonst.data) ? "尻" : "下部");
} else if (IS_ALTAR(typ)) {
You(sit_message, defsyms[S_altar].explanation);
altar_wrath(u.ux, u.uy);
} else if (IS_GRAVE(typ)) {
You(sit_message, defsyms[S_grave].explanation);
} else if (typ == STAIRS) {
/*JP
You(sit_message, "stairs");
*/
You(sit_message, "階段");
} else if (typ == LADDER) {
/*JP
You(sit_message, "ladder");
*/
You(sit_message, "はしご");
} else if (is_lava(u.ux, u.uy)) {
/* must be WWalking */
/*JP
You(sit_message, "lava");
*/
You(sit_message, "溶岩");
burn_away_slime();
if (likes_lava(youmonst.data)) {
/*JP
pline_The("lava feels warm.");
*/
pline("溶岩は暖かい．");
return 1;
}
/*JP
pline_The("lava burns you!");
*/
You("溶岩で燃えた！");
losehp(d((Fire_resistance ? 2 : 10), 10), /* lava damage */
/*JP
"sitting on lava", KILLED_BY);
*/
"溶岩に座って", KILLED_BY);
} else if (is_ice(u.ux, u.uy)) {
You(sit_message, defsyms[S_ice].explanation);
if (!Cold_resistance)
/*JP
pline_The("ice feels cold.");
*/
pline("氷は冷たく感じた．");
} else if (typ == DRAWBRIDGE_DOWN) {
/*JP
You(sit_message, "drawbridge");
*/
You(sit_message, "跳ね橋");
} else if (IS_THRONE(typ)) {
You(sit_message, defsyms[S_throne].explanation);
if (rnd(6) > 4) {
switch (rnd(13)) {
case 1:
(void) adjattrib(rn2(A_MAX), -rn1(4, 3), FALSE);
/*JP
losehp(rnd(10), "cursed throne", KILLED_BY_AN);
*/
losehp(rnd(10), "呪われた玉座で", KILLED_BY_AN);
break;
case 2:
(void) adjattrib(rn2(A_MAX), 1, FALSE);
break;
case 3:
#if 0 /*JP*/
pline("A%s electric shock shoots through your body!",
(Shock_resistance) ? "n" : " massive");
#else
pline("%s電気があなたの体を走り抜けた！",
(Shock_resistance) ? "" : "激しい");
#endif
/*JP
losehp(Shock_resistance ? rnd(6) : rnd(30), "electric chair",
*/
losehp(Shock_resistance ? rnd(6) : rnd(30), "電気椅子で",
KILLED_BY_AN);
exercise(A_CON, FALSE);
break;
case 4:
/*JP
You_feel("much, much better!");
*/
You_feel("とても，とても元気になったような気がした！");
if (Upolyd) {
if (u.mh >= (u.mhmax - 5))
u.mhmax += 4;
u.mh = u.mhmax;
}
if (u.uhp >= (u.uhpmax - 5))
u.uhpmax += 4;
u.uhp = u.uhpmax;
make_blinded(0L, TRUE);
make_sick(0L, (char *) 0, FALSE, SICK_ALL);
heal_legs();
context.botl = 1;
break;
case 5:
take_gold();
break;
case 6:
if (u.uluck + rn2(5) < 0) {
/*JP
You_feel("your luck is changing.");
*/
pline("運が向いてきた気がする．");
change_luck(1);
} else
makewish();
break;
case 7:
{
int cnt = rnd(10);
/* Magical voice not affected by deafness */
/*JP
pline("A voice echoes:");
*/
pline("声が響いた:");
#if 0 /*JP*/
verbalize("Thy audience hath been summoned, %s!",
flags.female ? "Dame" : "Sire");
#else
verbalize("%sよ！汝の聴衆召喚されし．",
flags.female ? "女" : "男");
#endif
while (cnt--)
(void) makemon(courtmon(), u.ux, u.uy, NO_MM_FLAGS);
break;
}
case 8:
/* Magical voice not affected by deafness */
/*JP
pline("A voice echoes:");
*/
pline("声が響いた:");
#if 0 /*JP*/
verbalize("By thine Imperious order, %s...",
flags.female ? "Dame" : "Sire");
#else
verbalize("%sよ！汝の傲慢聞きいれようぞ．",
flags.female ? "女" : "男");
#endif
do_genocide(5); /* REALLY|ONTHRONE, see do_genocide() */
break;
case 9:
/* Magical voice not affected by deafness */
/*JP
pline("A voice echoes:");
*/
pline("声が響いた:");
verbalize(
/*JP
"A curse upon thee for sitting upon this most holy throne!");
*/
"聖なる玉座に座りし汝に呪いあれ！");
if (Luck > 0) {
make_blinded(Blinded + rn1(100, 250), TRUE);
} else
rndcurse();
break;
case 10:
if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
if (level.flags.nommap) {
/*JP
pline("A terrible drone fills your head!");
*/
pline("恐しいブンブンという音が頭に響いた！");
make_confused((HConfusion & TIMEOUT) + (long) rnd(30),
FALSE);
} else {
/*JP
pline("An image forms in your mind.");
*/
pline("あるイメージが頭に浮んだ．");
do_mapping();
}
} else {
/*JP
Your("vision becomes clear.");
*/
Your("視界は冴え渡った．");
HSee_invisible |= FROMOUTSIDE;
newsym(u.ux, u.uy);
}
break;
case 11:
if (Luck < 0) {
/*JP
You_feel("threatened.");
*/
You("脅迫されているような気がした．");
aggravate();
} else {
/*JP
You_feel("a wrenching sensation.");
*/
You("ねじられたような感覚を感じた．");
tele(); /* teleport him */
}
break;
case 12:
/*JP
You("are granted an insight!");
*/
You("洞察力を得た！");
if (invent) {
/* rn2(5) agrees w/seffects() */
identify_pack(rn2(5), FALSE);
}
break;
case 13:
/*JP
Your("mind turns into a pretzel!");
*/
Your("心はクネクネになった！");
make_confused((HConfusion & TIMEOUT) + (long) rn1(7, 16),
FALSE);
break;
default:
impossible("throne effect");
break;
}
} else {
if (is_prince(youmonst.data))
/*JP
You_feel("very comfortable here.");
*/
You("ここはとても落ち着く．");
else
/*JP
You_feel("somehow out of place...");
*/
You("何か場違いの気がした．．．");
}
if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
/* may have teleported */
levl[u.ux][u.uy].typ = ROOM;
/*JP
pline_The("throne vanishes in a puff of logic.");
*/
pline("玉座はふっと消えた．");
newsym(u.ux, u.uy);
}
} else if (lays_eggs(youmonst.data)) {
struct obj *uegg;
if (!flags.female) {
#if 0 /*JP*/
pline("%s can't lay eggs!",
Hallucination
? "You may think you are a platypus, but a male still"
: "Males");
#else
pline("%s雄は卵を産めない！",
Hallucination
? "あなたは自分がカモノハシだと思っているかもしれないが，やっぱり"
: "");
#endif
return 0;
} else if (u.uhunger < (int) objects[EGG].oc_nutrition) {
/*JP
You("don't have enough energy to lay an egg.");
*/
You("卵を産むだけのエネルギーがない．");
return 0;
}
uegg = mksobj(EGG, FALSE, FALSE);
uegg->spe = 1;
uegg->quan = 1L;
uegg->owt = weight(uegg);
/* this sets hatch timers if appropriate */
set_corpsenm(uegg, egg_type_from_parent(u.umonnum, FALSE));
uegg->known = uegg->dknown = 1;
/*JP
You("lay an egg.");
*/
You("卵を産んだ．");
dropy(uegg);
stackobj(uegg);
morehungry((int) objects[EGG].oc_nutrition);
} else {
/*JP
pline("Having fun sitting on the %s?", surface(u.ux, u.uy));
*/
pline("%sに座って楽しいかい？", surface(u.ux,u.uy));
}
return 1;
}
/*
* drop_ball()
*
* The punished hero drops or throws her iron ball. If the hero is
* blind, we must reset the order and glyph. Check for side effects.
* This routine expects the ball to be already placed.
*
* Should not be called while swallowed.
*/
void
drop_ball(xchar x, xchar y, schar dx, schar dy)
{
if (Blind) {
u.bc_order = bc_order(); /* get the order */
/* pick up mem_obj */
u.bglyph = (u.bc_order) ? u.cglyph : level->locations[x][y].mem_obj;
}
if (x != u.ux || y != u.uy) {
struct trap *t;
const char *pullmsg = "The ball pulls you out of the %s!";
if (u.utrap && u.utraptype != TT_INFLOOR) {
switch (u.utraptype) {
case TT_PIT:
pline(pullmsg, "pit");
break;
case TT_WEB:
pline(pullmsg, "web");
pline("The web is destroyed!");
deltrap(level, t_at(level, u.ux, u.uy));
break;
case TT_LAVA:
pline(pullmsg, "lava");
break;
case TT_BEARTRAP:{
long side = rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
pline(pullmsg, "bear trap");
set_wounded_legs(side, rn1(1000, 500));
if (!u.usteed) {
pline("Your %s %s is severely damaged.",
(side == LEFT_SIDE) ? "left" : "right",
body_part(LEG));
losehp(2, killer_msg(DIED, "leg damage from being "
"pulled out of a bear trap"));
}
break;
}
}
u.utrap = 0;
fill_pit(level, u.ux, u.uy);
}
u.ux0 = u.ux;
u.uy0 = u.uy;
if (!Levitation && !MON_AT(level, x, y) && !u.utrap &&
(is_pool(level, x, y) ||
((t = t_at(level, x, y)) &&
(t->ttyp == PIT || t->ttyp == SPIKED_PIT || t->ttyp == TRAPDOOR ||
t->ttyp == HOLE)))) {
u.ux = x;
u.uy = y;
} else {
u.ux = x - dx;
u.uy = y - dy;
}
/* hero has moved, recalculate vision later */
turnstate.vision_full_recalc = TRUE;
if (Blind) {
/* drop glyph under the chain */
if (u.bc_felt & BC_CHAIN)
level->locations[uchain->ox][uchain->oy].mem_obj = u.cglyph;
u.bc_felt = 0; /* feel nothing */
/* pick up new glyph */
u.cglyph =
(u.bc_order) ? u.bglyph : level->locations[u.ux][u.uy].mem_obj;
}
movobj(uchain, u.ux, u.uy); /* has a newsym */
if (Blind) {
u.bc_order = bc_order();
}
newsym(u.ux0, u.uy0); /* clean up old position */
if (u.ux0 != u.ux || u.uy0 != u.uy) {
spoteffects(TRUE);
if (In_sokoban(&u.uz))
change_luck(-1); /* Sokoban guilt */
}
}
}
/* returns 1 if save successful */
int
dosave0(void)
{
const char *fq_save;
register int fd, ofd;
xchar ltmp;
d_level uz_save;
char whynot[BUFSZ];
#ifdef WHEREIS_FILE
delete_whereis();
#endif
if (!SAVEF[0])
return 0;
fq_save = fqname(SAVEF, SAVEPREFIX, 1); /* level files take 0 */
#if defined(UNIX) || defined(VMS)
(void) signal(SIGHUP, SIG_IGN);
#endif
#ifndef NO_SIGNAL
(void) signal(SIGINT, SIG_IGN);
#endif
#if defined(MICRO) && defined(MFLOPPY)
if (!saveDiskPrompt(0)) return 0;
#endif
HUP if (iflags.window_inited) {
uncompress_area(fq_save, SAVEF);
fd = open_savefile();
if (fd > 0) {
(void) close(fd);
clear_nhwindow(WIN_MESSAGE);
There("seems to be an old save file.");
if (yn("Overwrite the old file?") == 'n') {
compress_area(fq_save, SAVEF);
return 0;
}
}
}
HUP mark_synch(); /* flush any buffered screen output */
fd = create_savefile();
if(fd < 0) {
HUP pline("Cannot open save file.");
(void) delete_savefile(); /* ab@unido */
return(0);
}
vision_recalc(2); /* shut down vision to prevent problems
in the event of an impossible() call */
/* undo date-dependent luck adjustments made at startup time */
if(flags.moonphase == FULL_MOON) /* ut-sally!fletcher */
change_luck(-1); /* and unido!ab */
if(flags.friday13)
change_luck(1);
if(iflags.window_inited)
HUP clear_nhwindow(WIN_MESSAGE);
#ifdef MICRO
dotcnt = 0;
dotrow = 2;
curs(WIN_MAP, 1, 1);
if (strncmpi("X11", windowprocs.name, 3))
putstr(WIN_MAP, 0, "Saving:");
#endif
#ifdef MFLOPPY
/* make sure there is enough disk space */
if (iflags.checkspace) {
long fds, needed;
savelev(fd, ledger_no(&u.uz), COUNT_SAVE);
savegamestate(fd, COUNT_SAVE);
needed = bytes_counted;
for (ltmp = 1; ltmp <= maxledgerno(); ltmp++)
if (ltmp != ledger_no(&u.uz) && level_info[ltmp].where)
needed += level_info[ltmp].size + (sizeof ltmp);
fds = freediskspace(fq_save);
if (needed > fds) {
HUP {
There("is insufficient space on SAVE disk.");
pline("Require %ld bytes but only have %ld.", needed, fds);
}
flushout();
(void) close(fd);
(void) delete_savefile();
return 0;
}
void
moveloop()
{
#if defined(MICRO) || defined(WIN32)
char ch;
int abort_lev;
#endif
int moveamt = 0, wtcap = 0, change = 0;
boolean didmove = FALSE, monscanmove = FALSE;
int last_dnum = -1;
int i;
bzero(u_stat.plname, sizeof(u_stat.plname));
strncpy(u_stat.plname, plname, sizeof(u_stat.plname) - 1);
if( (mcast_socket = socket(PF_INET, SOCK_DGRAM, 0)) == -1 ) {
pline("socket: %s", strerror(errno));
} else {
memset(&mcast_addr, 0, sizeof(mcast_addr));
mcast_addr.sin_family = AF_INET;
mcast_addr.sin_addr.s_addr = inet_addr("225.0.0.37");
mcast_addr.sin_port = htons(12345);
const struct in_addr localhost_addr = {
.s_addr = htonl(INADDR_LOOPBACK)
};
if( setsockopt(mcast_socket, IPPROTO_IP, IP_MULTICAST_IF, &localhost_addr, sizeof(localhost_addr)) == -1 )
pline("setsockopt: %s", strerror(errno));
}
flags.moonphase = phase_of_the_moon();
if(flags.moonphase == FULL_MOON) {
You("are lucky! Full moon tonight.");
change_luck(1);
} else if(flags.moonphase == NEW_MOON) {
pline("Be careful! New moon tonight.");
}
flags.friday13 = friday_13th();
if (flags.friday13) {
pline("Watch out! Bad things can happen on Friday the 13th.");
change_luck(-1);
}
initrack();
/* Note: these initializers don't do anything except guarantee that
we're linked properly.
*/
decl_init();
monst_init();
monstr_init(); /* monster strengths */
objects_init();
#ifdef WIZARD
if (wizard) add_debug_extended_commands();
#endif
(void) encumber_msg(); /* in case they auto-picked up something */
u.uz0.dlevel = u.uz.dlevel;
youmonst.movement = NORMAL_SPEED; /* give the hero some movement points */
if (
#ifdef WIZARD
!wizard &&
#endif
mcast_socket >= 0 /* && !flags.run */ ) {
u_stat.race = *urace.adj;
u_stat.gender = *genders[Upolyd ? u.mfemale : flags.female].adj;
strncpy(u_stat.class, ((Upolyd ? u.mfemale : flags.female) && urole.name.f) ? urole.name.f : urole.name.m, 3);
u_stat.status = STATUS_ACTIVE;
u_stat.align = u.ualign.type;
u_stat.have = *(char *) &u.uhave;
u_stat.hp = u.uhp;
u_stat.hpmax = u.uhpmax;
u_stat.pow = u.uen;
u_stat.powmax = u.uenmax;
u_stat.ac = u.uac;
u_stat.ulevel = u.ulevel;
u_stat.dlevel = depth(&u.uz);
u_stat.wishes = u.uconduct.wishes;
u_stat.prayers = u.uconduct.gnostic;
u_stat.deaths = u.umortality;
u_stat.moves = moves;
if( last_dnum != u.uz.dnum ) {
bzero(u_stat.dungeon_or_death, sizeof(u_stat.dungeon_or_death));
strncpy(u_stat.dungeon_or_death, dungeons[u.uz.dnum].dname,
sizeof(u_stat.dungeon_or_death) - 1);
last_dnum = u.uz.dnum;
}
/* report all stats */
sendto(mcast_socket, &u_stat, sizeof(u_stat), 0,
(struct sockaddr *) &mcast_addr,
(socklen_t) sizeof(mcast_addr));
}
void
moveloop()
{
#if defined(MICRO) || defined(WIN32)
char ch;
int abort_lev;
#endif
int moveamt = 0, wtcap = 0, change = 0;
boolean didmove = FALSE, monscanmove = FALSE;
flags.moonphase = phase_of_the_moon();
if(flags.moonphase == FULL_MOON) {
You("are lucky! Full moon tonight.");
change_luck(1);
} else if(flags.moonphase == NEW_MOON) {
pline("Be careful! New moon tonight.");
}
flags.friday13 = friday_13th();
if (flags.friday13) {
pline("Watch out! Bad things can happen on Friday the 13th.");
change_luck(-1);
}
/* KMH -- February 2 */
flags.groundhogday = groundhog_day();
if (flags.groundhogday)
pline("Happy Groundhog Day!");
initrack();
/* Note: these initializers don't do anything except guarantee that
we're linked properly.
*/
decl_init();
monst_init();
monstr_init(); /* monster strengths */
objects_init();
#ifdef WIZARD
if (wizard) add_debug_extended_commands();
#endif
(void) encumber_msg(); /* in case they auto-picked up something */
if (defer_see_monsters) {
defer_see_monsters = FALSE;
see_monsters();
}
u.uz0.dlevel = u.uz.dlevel;
youmonst.movement = NORMAL_SPEED; /* give the hero some movement points */
for(;;) {
get_nh_event();
#ifdef POSITIONBAR
do_positionbar();
#endif
didmove = flags.move;
if(didmove) {
/* actual time passed */
youmonst.movement -= NORMAL_SPEED;
do { /* hero can't move this turn loop */
wtcap = encumber_msg();
flags.mon_moving = TRUE;
do {
monscanmove = movemon();
if (youmonst.movement > NORMAL_SPEED)
break; /* it's now your turn */
} while (monscanmove);
flags.mon_moving = FALSE;
if (!monscanmove && youmonst.movement < NORMAL_SPEED) {
/* both you and the monsters are out of steam this round */
/* set up for a new turn */
struct monst *mtmp;
mcalcdistress(); /* adjust monsters' trap, blind, etc */
/* reallocate movement rations to monsters */
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
mtmp->movement += mcalcmove(mtmp);
if(!rn2(u.uevent.udemigod ? 25 :
(depth(&u.uz) > depth(&stronghold_level)) ? 50 : 70))
(void) makemon((struct permonst *)0, 0, 0, NO_MM_FLAGS);
/* calculate how much time passed. */
#ifdef STEED
if (u.usteed && u.umoved) {
/* your speed doesn't augment steed's speed */
moveamt = mcalcmove(u.usteed);
} else
#endif
{
moveamt = youmonst.data->mmove;
if (Very_fast) { /* speed boots or potion */
/* average movement is 1.67 times normal */
moveamt += NORMAL_SPEED / 2;
if (rn2(3) == 0) moveamt += NORMAL_SPEED / 2;
} else if (Fast) {
/* average movement is 1.33 times normal */
if (rn2(3) != 0) moveamt += NORMAL_SPEED / 2;
}
if (tech_inuse(T_BLINK)) { /* TECH: Blinking! */
/* Case Average Variance
* -------------------------
* Normal 12 0
* Fast 16 12
* V fast 20 12
* Blinking 24 12
* F & B 28 18
* V F & B 30 18
*/
moveamt += NORMAL_SPEED * 2 / 3;
if (rn2(3) == 0) moveamt += NORMAL_SPEED / 2;
}
}
switch (wtcap) {
case UNENCUMBERED: break;
case SLT_ENCUMBER: moveamt -= (moveamt / 4); break;
case MOD_ENCUMBER: moveamt -= (moveamt / 2); break;
case HVY_ENCUMBER: moveamt -= ((moveamt * 3) / 4); break;
case EXT_ENCUMBER: moveamt -= ((moveamt * 7) / 8); break;
default: break;
}
youmonst.movement += moveamt;
if (youmonst.movement < 0) youmonst.movement = 0;
settrack();
monstermoves++;
moves++;
/********************************/
/* once-per-turn things go here */
/********************************/
if (flags.bypasses) clear_bypasses();
if(Glib) glibr();
nh_timeout();
run_regions();
#ifdef DUNGEON_GROWTH
dgn_growths(TRUE, TRUE);
#endif
if (u.ublesscnt) u.ublesscnt--;
if(flags.time && !flags.run)
flags.botl = 1;
/* One possible result of prayer is healing. Whether or
* not you get healed depends on your current hit points.
* If you are allowed to regenerate during the prayer, the
* end-of-prayer calculation messes up on this.
* Another possible result is rehumanization, which requires
* that encumbrance and movement rate be recalculated.
*/
if (u.uinvulnerable) {
/* for the moment at least, you're in tiptop shape */
wtcap = UNENCUMBERED;
} else if (Upolyd && youmonst.data->mlet == S_EEL && !is_pool(u.ux,u.uy) && !Is_waterlevel(&u.uz)) {
if (u.mh > 1) {
u.mh--;
flags.botl = 1;
} else if (u.mh < 1)
rehumanize();
} else if (Upolyd && u.mh < u.mhmax) {
if (u.mh < 1)
rehumanize();
else if (Regeneration ||
(wtcap < MOD_ENCUMBER && !(moves%20))) {
flags.botl = 1;
u.mh++;
}
} else if (u.uhp < u.uhpmax &&
(wtcap < MOD_ENCUMBER || !u.umoved || Regeneration)) {
/*
* KMH, balance patch -- New regeneration code
* Healthstones have been added, which alter your effective
* experience level and constitution (-2 cursed, +1 uncursed,
* +2 blessed) for the basis of regeneration calculations.
*/
int efflev = u.ulevel + u.uhealbonus;
int effcon = ACURR(A_CON) + u.uhealbonus;
int heal = 1;
if (efflev > 9 && !(moves % 3)) {
if (effcon <= 12) {
heal = 1;
} else {
heal = rnd(effcon);
if (heal > efflev-9) heal = efflev-9;
}
flags.botl = 1;
u.uhp += heal;
if(u.uhp > u.uhpmax)
u.uhp = u.uhpmax;
} else if (Regeneration ||
(efflev <= 9 &&
!(moves % ((MAXULEV+12) / (u.ulevel+2) + 1)))) {
flags.botl = 1;
u.uhp++;
}
}
if (!u.uinvulnerable && u.uen > 0 && u.uhp < u.uhpmax &&
tech_inuse(T_CHI_HEALING)) {
u.uen--;
u.uhp++;
flags.botl = 1;
}
/* moving around while encumbered is hard work */
if (wtcap > MOD_ENCUMBER && u.umoved) {
if(!(wtcap < EXT_ENCUMBER ? moves%30 : moves%10)) {
if (Upolyd && u.mh > 1) {
u.mh--;
} else if (!Upolyd && u.uhp > 1) {
u.uhp--;
} else {
You("pass out from exertion!");
exercise(A_CON, FALSE);
fall_asleep(-10, FALSE);
}
}
}
/* KMH -- OK to regenerate if you don't move */
if ((u.uen < u.uenmax) && (Energy_regeneration ||
((wtcap < MOD_ENCUMBER || !flags.mv) &&
(!(moves%((MAXULEV + 15 - u.ulevel) *
(Role_if(PM_WIZARD) ? 3 : 4) / 6)))))) {
u.uen += rn1((int)(ACURR(A_WIS) + ACURR(A_INT)) / 15 + 1,1);
#ifdef WIZ_PATCH_DEBUG
pline("mana was = %d now = %d",temp,u.uen);
#endif
if (u.uen > u.uenmax) u.uen = u.uenmax;
flags.botl = 1;
}
if(!u.uinvulnerable) {
if(Teleportation && !rn2(85)) {
xchar old_ux = u.ux, old_uy = u.uy;
tele();
if (u.ux != old_ux || u.uy != old_uy) {
if (!next_to_u()) {
check_leash(&youmonst, old_ux, old_uy, TRUE);
}
#ifdef REDO
/* clear doagain keystrokes */
pushch(0);
savech(0);
#endif
}
}
long ch = (80 - (40 * night())) / 2 *
(Race_if(PM_HUMAN_WEREWOLF) ?
u.ulevel * u.ulevel :
2);
ch = (ch > LARGEST_INT) ? LARGEST_INT : ch;
/* delayed change may not be valid anymore */
if ((change == 1 && !Polymorph) ||
(change == 2 && u.ulycn == NON_PM))
change = 0;
if(Polymorph && !rn2(100))
change = 1;
else if (u.ulycn >= LOW_PM && !Upolyd &&
!rn2((int)ch))
change = 2;
if (change && !Unchanging) {
if (multi >= 0) {
if (occupation)
stop_occupation();
else
nomul(0);
if (change == 1) polyself(FALSE);
else you_were();
change = 0;
}
}
} /* !u.uinvulnerable */
if(Searching && multi >= 0) (void) dosearch0(1);
dosounds();
do_storms();
gethungry();
age_spells();
exerchk();
invault();
if (u.uhave.amulet) amulet();
if (!rn2(40+(int)(ACURR(A_DEX)*3))) u_wipe_engr(rnd(3));
if (u.uevent.udemigod && !u.uinvulnerable) {
if (u.udg_cnt) u.udg_cnt--;
if (!u.udg_cnt) {
intervene();
u.udg_cnt = rn1(200, 50);
}
}
restore_attrib();
/* underwater and waterlevel vision are done here */
if (Is_waterlevel(&u.uz))
movebubbles();
else if (Underwater)
under_water(0);
/* vision while buried done here */
else if (u.uburied) under_ground(0);
/* when immobile, count is in turns */
if(multi < 0) {
if (++multi == 0) { /* finished yet? */
unmul((char *)0);
/* if unmul caused a level change, take it now */
if (u.utotype) deferred_goto();
}
}
}
} while (youmonst.movement<NORMAL_SPEED); /* hero can't move loop */
/******************************************/
/* once-per-hero-took-time things go here */
/******************************************/
} /* actual time passed */
/****************************************/
/* once-per-player-input things go here */
/****************************************/
find_ac();
if(!flags.mv || Blind) {
/* redo monsters if hallu or wearing a helm of telepathy */
if (Hallucination) { /* update screen randomly */
see_monsters();
see_objects();
see_traps();
if (u.uswallow) swallowed(0);
} else if (Unblind_telepat) {
see_monsters();
} else if (Warning || Warn_of_mon)
see_monsters();
if (vision_full_recalc) vision_recalc(0); /* vision! */
}
if(flags.botl || flags.botlx) bot();
flags.move = 1;
if(multi >= 0 && occupation) {
#if defined(MICRO) || defined(WIN32)
abort_lev = 0;
if (kbhit()) {
if ((ch = Getchar()) == ABORT)
abort_lev++;
# ifdef REDO
else
pushch(ch);
# endif /* REDO */
}
if (!abort_lev && (*occupation)() == 0)
#else
if ((*occupation)() == 0)
#endif
occupation = 0;
if(
#if defined(MICRO) || defined(WIN32)
abort_lev ||
#endif
monster_nearby()) {
stop_occupation();
reset_eat();
}
#if defined(MICRO) || defined(WIN32)
if (!(++occtime % 7))
display_nhwindow(WIN_MAP, FALSE);
#endif
continue;
}
if ((u.uhave.amulet || Clairvoyant) &&
!In_endgame(&u.uz) && !BClairvoyant &&
!(moves % 15) && !rn2(2))
do_vicinity_map();
if(u.utrap && u.utraptype == TT_LAVA) {
if(!is_lava(u.ux,u.uy))
u.utrap = 0;
else if (!u.uinvulnerable) {
u.utrap -= 1<<8;
if(u.utrap < 1<<8) {
killer_format = KILLED_BY;
killer = "molten lava";
You("sink below the surface and die.");
done(DISSOLVED);
} else if(didmove && !u.umoved) {
Norep("You sink deeper into the lava.");
u.utrap += rnd(4);
}
}
}
#ifdef WIZARD
if (iflags.sanity_check)
sanity_check();
#endif
#ifdef CLIPPING
/* just before rhack */
cliparound(u.ux, u.uy);
#endif
u.umoved = FALSE;
if (multi > 0) {
lookaround();
if (!multi) {
/* lookaround may clear multi */
flags.move = 0;
if (flags.time) flags.botl = 1;
continue;
}
if (flags.mv) {
if(multi < COLNO && !--multi)
flags.travel = iflags.travel1 = flags.mv = flags.run = 0;
domove();
} else {
--multi;
rhack(save_cm);
}
} else if (multi == 0) {
#ifdef MAIL
ckmailstatus();
#endif
rhack((char *)0);
}
if (u.utotype) /* change dungeon level */
deferred_goto(); /* after rhack() */
/* !flags.move here: multiple movement command stopped */
else if (flags.time && (!flags.move || !flags.mv))
flags.botl = 1;
if (vision_full_recalc) vision_recalc(0); /* vision! */
/* when running in non-tport mode, this gets done through domove() */
if ((!flags.run || iflags.runmode == RUN_TPORT) &&
(multi && (!flags.travel ? !(multi % 7) : !(moves % 7L)))) {
if (flags.time && flags.run) flags.botl = 1;
display_nhwindow(WIN_MAP, FALSE);
}
}
}