666 lines
13 KiB
C
666 lines
13 KiB
C
/*
|
|
* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
|
|
*/
|
|
|
|
#ifndef lint
|
|
static char rcsid[] = "$Id: hack.pri.c,v 1.3 1993/12/02 03:07:18 mycroft Exp $";
|
|
#endif /* not lint */
|
|
|
|
#include "hack.h"
|
|
#include <stdio.h>
|
|
xchar scrlx, scrhx, scrly, scrhy; /* corners of new area on screen */
|
|
|
|
extern char *hu_stat[]; /* in eat.c */
|
|
extern char *CD;
|
|
|
|
swallowed()
|
|
{
|
|
char ulook[] = "|@|";
|
|
ulook[1] = u.usym;
|
|
|
|
cls();
|
|
curs(u.ux-1, u.uy+1);
|
|
fputs("/-\\", stdout);
|
|
curx = u.ux+2;
|
|
curs(u.ux-1, u.uy+2);
|
|
fputs(ulook, stdout);
|
|
curx = u.ux+2;
|
|
curs(u.ux-1, u.uy+3);
|
|
fputs("\\-/", stdout);
|
|
curx = u.ux+2;
|
|
u.udispl = 1;
|
|
u.udisx = u.ux;
|
|
u.udisy = u.uy;
|
|
}
|
|
|
|
|
|
/*VARARGS1*/
|
|
boolean panicking;
|
|
|
|
panic(str,a1,a2,a3,a4,a5,a6)
|
|
char *str;
|
|
{
|
|
if(panicking++) exit(1); /* avoid loops - this should never happen*/
|
|
home();
|
|
puts(" Suddenly, the dungeon collapses.");
|
|
fputs(" ERROR: ", stdout);
|
|
printf(str,a1,a2,a3,a4,a5,a6);
|
|
#ifdef DEBUG
|
|
#ifdef UNIX
|
|
if(!fork())
|
|
abort(); /* generate core dump */
|
|
#endif UNIX
|
|
#endif DEBUG
|
|
more(); /* contains a fflush() */
|
|
done("panicked");
|
|
}
|
|
|
|
atl(x,y,ch)
|
|
register x,y;
|
|
{
|
|
register struct rm *crm = &levl[x][y];
|
|
|
|
if(x<0 || x>COLNO-1 || y<0 || y>ROWNO-1){
|
|
impossible("atl(%d,%d,%c)",x,y,ch);
|
|
return;
|
|
}
|
|
if(crm->seen && crm->scrsym == ch) return;
|
|
crm->scrsym = ch;
|
|
crm->new = 1;
|
|
on_scr(x,y);
|
|
}
|
|
|
|
on_scr(x,y)
|
|
register x,y;
|
|
{
|
|
if(x < scrlx) scrlx = x;
|
|
if(x > scrhx) scrhx = x;
|
|
if(y < scrly) scrly = y;
|
|
if(y > scrhy) scrhy = y;
|
|
}
|
|
|
|
/* call: (x,y) - display
|
|
(-1,0) - close (leave last symbol)
|
|
(-1,-1)- close (undo last symbol)
|
|
(-1,let)-open: initialize symbol
|
|
(-2,let)-change let
|
|
*/
|
|
|
|
tmp_at(x,y) schar x,y; {
|
|
static schar prevx, prevy;
|
|
static char let;
|
|
if((int)x == -2){ /* change let call */
|
|
let = y;
|
|
return;
|
|
}
|
|
if((int)x == -1 && (int)y >= 0){ /* open or close call */
|
|
let = y;
|
|
prevx = -1;
|
|
return;
|
|
}
|
|
if(prevx >= 0 && cansee(prevx,prevy)) {
|
|
delay_output();
|
|
prl(prevx, prevy); /* in case there was a monster */
|
|
at(prevx, prevy, levl[prevx][prevy].scrsym);
|
|
}
|
|
if(x >= 0){ /* normal call */
|
|
if(cansee(x,y)) at(x,y,let);
|
|
prevx = x;
|
|
prevy = y;
|
|
} else { /* close call */
|
|
let = 0;
|
|
prevx = -1;
|
|
}
|
|
}
|
|
|
|
/* like the previous, but the symbols are first erased on completion */
|
|
Tmp_at(x,y) schar x,y; {
|
|
static char let;
|
|
static xchar cnt;
|
|
static coord tc[COLNO]; /* but watch reflecting beams! */
|
|
register xx,yy;
|
|
if((int)x == -1) {
|
|
if(y > 0) { /* open call */
|
|
let = y;
|
|
cnt = 0;
|
|
return;
|
|
}
|
|
/* close call (do not distinguish y==0 and y==-1) */
|
|
while(cnt--) {
|
|
xx = tc[cnt].x;
|
|
yy = tc[cnt].y;
|
|
prl(xx, yy);
|
|
at(xx, yy, levl[xx][yy].scrsym);
|
|
}
|
|
cnt = let = 0; /* superfluous */
|
|
return;
|
|
}
|
|
if((int)x == -2) { /* change let call */
|
|
let = y;
|
|
return;
|
|
}
|
|
/* normal call */
|
|
if(cansee(x,y)) {
|
|
if(cnt) delay_output();
|
|
at(x,y,let);
|
|
tc[cnt].x = x;
|
|
tc[cnt].y = y;
|
|
if(++cnt >= COLNO) panic("Tmp_at overflow?");
|
|
levl[x][y].new = 0; /* prevent pline-nscr erasing --- */
|
|
}
|
|
}
|
|
|
|
setclipped(){
|
|
error("Hack needs a screen of size at least %d by %d.\n",
|
|
ROWNO+2, COLNO);
|
|
}
|
|
|
|
at(x,y,ch)
|
|
register xchar x,y;
|
|
char ch;
|
|
{
|
|
#ifndef lint
|
|
/* if xchar is unsigned, lint will complain about if(x < 0) */
|
|
if(x < 0 || x > COLNO-1 || y < 0 || y > ROWNO-1) {
|
|
impossible("At gets 0%o at %d %d.", ch, x, y);
|
|
return;
|
|
}
|
|
#endif lint
|
|
if(!ch) {
|
|
impossible("At gets null at %d %d.", x, y);
|
|
return;
|
|
}
|
|
y += 2;
|
|
curs(x,y);
|
|
(void) putchar(ch);
|
|
curx++;
|
|
}
|
|
|
|
prme(){
|
|
if(!Invisible) at(u.ux,u.uy,u.usym);
|
|
}
|
|
|
|
doredraw()
|
|
{
|
|
docrt();
|
|
return(0);
|
|
}
|
|
|
|
docrt()
|
|
{
|
|
register x,y;
|
|
register struct rm *room;
|
|
register struct monst *mtmp;
|
|
|
|
if(u.uswallow) {
|
|
swallowed();
|
|
return;
|
|
}
|
|
cls();
|
|
|
|
/* Some ridiculous code to get display of @ and monsters (almost) right */
|
|
if(!Invisible) {
|
|
levl[(u.udisx = u.ux)][(u.udisy = u.uy)].scrsym = u.usym;
|
|
levl[u.udisx][u.udisy].seen = 1;
|
|
u.udispl = 1;
|
|
} else u.udispl = 0;
|
|
|
|
seemons(); /* reset old positions */
|
|
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
|
|
mtmp->mdispl = 0;
|
|
seemons(); /* force new positions to be shown */
|
|
/* This nonsense should disappear soon --------------------------------- */
|
|
|
|
for(y = 0; y < ROWNO; y++)
|
|
for(x = 0; x < COLNO; x++)
|
|
if((room = &levl[x][y])->new) {
|
|
room->new = 0;
|
|
at(x,y,room->scrsym);
|
|
} else if(room->seen)
|
|
at(x,y,room->scrsym);
|
|
scrlx = COLNO;
|
|
scrly = ROWNO;
|
|
scrhx = scrhy = 0;
|
|
flags.botlx = 1;
|
|
bot();
|
|
}
|
|
|
|
docorner(xmin,ymax) register xmin,ymax; {
|
|
register x,y;
|
|
register struct rm *room;
|
|
register struct monst *mtmp;
|
|
|
|
if(u.uswallow) { /* Can be done more efficiently */
|
|
swallowed();
|
|
return;
|
|
}
|
|
|
|
seemons(); /* reset old positions */
|
|
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
|
|
if(mtmp->mx >= xmin && mtmp->my < ymax)
|
|
mtmp->mdispl = 0;
|
|
seemons(); /* force new positions to be shown */
|
|
|
|
for(y = 0; y < ymax; y++) {
|
|
if(y > ROWNO && CD) break;
|
|
curs(xmin,y+2);
|
|
cl_end();
|
|
if(y < ROWNO) {
|
|
for(x = xmin; x < COLNO; x++) {
|
|
if((room = &levl[x][y])->new) {
|
|
room->new = 0;
|
|
at(x,y,room->scrsym);
|
|
} else
|
|
if(room->seen)
|
|
at(x,y,room->scrsym);
|
|
}
|
|
}
|
|
}
|
|
if(ymax > ROWNO) {
|
|
cornbot(xmin-1);
|
|
if(ymax > ROWNO+1 && CD) {
|
|
curs(1,ROWNO+3);
|
|
cl_eos();
|
|
}
|
|
}
|
|
}
|
|
|
|
curs_on_u(){
|
|
curs(u.ux, u.uy+2);
|
|
}
|
|
|
|
pru()
|
|
{
|
|
if(u.udispl && (Invisible || u.udisx != u.ux || u.udisy != u.uy))
|
|
/* if(! levl[u.udisx][u.udisy].new) */
|
|
if(!vism_at(u.udisx, u.udisy))
|
|
newsym(u.udisx, u.udisy);
|
|
if(Invisible) {
|
|
u.udispl = 0;
|
|
prl(u.ux,u.uy);
|
|
} else
|
|
if(!u.udispl || u.udisx != u.ux || u.udisy != u.uy) {
|
|
atl(u.ux, u.uy, u.usym);
|
|
u.udispl = 1;
|
|
u.udisx = u.ux;
|
|
u.udisy = u.uy;
|
|
}
|
|
levl[u.ux][u.uy].seen = 1;
|
|
}
|
|
|
|
#ifndef NOWORM
|
|
#include "def.wseg.h"
|
|
extern struct wseg *m_atseg;
|
|
#endif NOWORM
|
|
|
|
/* print a position that is visible for @ */
|
|
prl(x,y)
|
|
{
|
|
register struct rm *room;
|
|
register struct monst *mtmp;
|
|
register struct obj *otmp;
|
|
|
|
if(x == u.ux && y == u.uy && (!Invisible)) {
|
|
pru();
|
|
return;
|
|
}
|
|
if(!isok(x,y)) return;
|
|
room = &levl[x][y];
|
|
if((!room->typ) ||
|
|
(IS_ROCK(room->typ) && levl[u.ux][u.uy].typ == CORR))
|
|
return;
|
|
if((mtmp = m_at(x,y)) && !mtmp->mhide &&
|
|
(!mtmp->minvis || See_invisible)) {
|
|
#ifndef NOWORM
|
|
if(m_atseg)
|
|
pwseg(m_atseg);
|
|
else
|
|
#endif NOWORM
|
|
pmon(mtmp);
|
|
}
|
|
else if((otmp = o_at(x,y)) && room->typ != POOL)
|
|
atl(x,y,otmp->olet);
|
|
else if(mtmp && (!mtmp->minvis || See_invisible)) {
|
|
/* must be a hiding monster, but not hiding right now */
|
|
/* assume for the moment that long worms do not hide */
|
|
pmon(mtmp);
|
|
}
|
|
else if(g_at(x,y) && room->typ != POOL)
|
|
atl(x,y,'$');
|
|
else if(!room->seen || room->scrsym == ' ') {
|
|
room->new = room->seen = 1;
|
|
newsym(x,y);
|
|
on_scr(x,y);
|
|
}
|
|
room->seen = 1;
|
|
}
|
|
|
|
char
|
|
news0(x,y)
|
|
register xchar x,y;
|
|
{
|
|
register struct obj *otmp;
|
|
register struct trap *ttmp;
|
|
struct rm *room;
|
|
register char tmp;
|
|
|
|
room = &levl[x][y];
|
|
if(!room->seen) tmp = ' ';
|
|
else if(room->typ == POOL) tmp = POOL_SYM;
|
|
else if(!Blind && (otmp = o_at(x,y))) tmp = otmp->olet;
|
|
else if(!Blind && g_at(x,y)) tmp = '$';
|
|
else if(x == xupstair && y == yupstair) tmp = '<';
|
|
else if(x == xdnstair && y == ydnstair) tmp = '>';
|
|
else if((ttmp = t_at(x,y)) && ttmp->tseen) tmp = '^';
|
|
else switch(room->typ) {
|
|
case SCORR:
|
|
case SDOOR:
|
|
tmp = room->scrsym; /* %% wrong after killing mimic ! */
|
|
break;
|
|
case HWALL:
|
|
tmp = '-';
|
|
break;
|
|
case VWALL:
|
|
tmp = '|';
|
|
break;
|
|
case LDOOR:
|
|
case DOOR:
|
|
tmp = '+';
|
|
break;
|
|
case CORR:
|
|
tmp = CORR_SYM;
|
|
break;
|
|
case ROOM:
|
|
if(room->lit || cansee(x,y) || Blind) tmp = '.';
|
|
else tmp = ' ';
|
|
break;
|
|
/*
|
|
case POOL:
|
|
tmp = POOL_SYM;
|
|
break;
|
|
*/
|
|
default:
|
|
tmp = ERRCHAR;
|
|
}
|
|
return(tmp);
|
|
}
|
|
|
|
newsym(x,y)
|
|
register x,y;
|
|
{
|
|
atl(x,y,news0(x,y));
|
|
}
|
|
|
|
/* used with wand of digging (or pick-axe): fill scrsym and force display */
|
|
/* also when a POOL evaporates */
|
|
mnewsym(x,y)
|
|
register x,y;
|
|
{
|
|
register struct rm *room;
|
|
char newscrsym;
|
|
|
|
if(!vism_at(x,y)) {
|
|
room = &levl[x][y];
|
|
newscrsym = news0(x,y);
|
|
if(room->scrsym != newscrsym) {
|
|
room->scrsym = newscrsym;
|
|
room->seen = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
nosee(x,y)
|
|
register x,y;
|
|
{
|
|
register struct rm *room;
|
|
|
|
if(!isok(x,y)) return;
|
|
room = &levl[x][y];
|
|
if(room->scrsym == '.' && !room->lit && !Blind) {
|
|
room->scrsym = ' ';
|
|
room->new = 1;
|
|
on_scr(x,y);
|
|
}
|
|
}
|
|
|
|
#ifndef QUEST
|
|
prl1(x,y)
|
|
register x,y;
|
|
{
|
|
if(u.dx) {
|
|
if(u.dy) {
|
|
prl(x-(2*u.dx),y);
|
|
prl(x-u.dx,y);
|
|
prl(x,y);
|
|
prl(x,y-u.dy);
|
|
prl(x,y-(2*u.dy));
|
|
} else {
|
|
prl(x,y-1);
|
|
prl(x,y);
|
|
prl(x,y+1);
|
|
}
|
|
} else {
|
|
prl(x-1,y);
|
|
prl(x,y);
|
|
prl(x+1,y);
|
|
}
|
|
}
|
|
|
|
nose1(x,y)
|
|
register x,y;
|
|
{
|
|
if(u.dx) {
|
|
if(u.dy) {
|
|
nosee(x,u.uy);
|
|
nosee(x,u.uy-u.dy);
|
|
nosee(x,y);
|
|
nosee(u.ux-u.dx,y);
|
|
nosee(u.ux,y);
|
|
} else {
|
|
nosee(x,y-1);
|
|
nosee(x,y);
|
|
nosee(x,y+1);
|
|
}
|
|
} else {
|
|
nosee(x-1,y);
|
|
nosee(x,y);
|
|
nosee(x+1,y);
|
|
}
|
|
}
|
|
#endif QUEST
|
|
|
|
vism_at(x,y)
|
|
register x,y;
|
|
{
|
|
register struct monst *mtmp;
|
|
|
|
return((x == u.ux && y == u.uy && !Invisible)
|
|
? 1 :
|
|
(mtmp = m_at(x,y))
|
|
? ((Blind && Telepat) || canseemon(mtmp)) :
|
|
0);
|
|
}
|
|
|
|
#ifdef NEWSCR
|
|
pobj(obj) register struct obj *obj; {
|
|
register int show = (!obj->oinvis || See_invisible) &&
|
|
cansee(obj->ox,obj->oy);
|
|
if(obj->odispl){
|
|
if(obj->odx != obj->ox || obj->ody != obj->oy || !show)
|
|
if(!vism_at(obj->odx,obj->ody)){
|
|
newsym(obj->odx, obj->ody);
|
|
obj->odispl = 0;
|
|
}
|
|
}
|
|
if(show && !vism_at(obj->ox,obj->oy)){
|
|
atl(obj->ox,obj->oy,obj->olet);
|
|
obj->odispl = 1;
|
|
obj->odx = obj->ox;
|
|
obj->ody = obj->oy;
|
|
}
|
|
}
|
|
#endif NEWSCR
|
|
|
|
unpobj(obj) register struct obj *obj; {
|
|
/* if(obj->odispl){
|
|
if(!vism_at(obj->odx, obj->ody))
|
|
newsym(obj->odx, obj->ody);
|
|
obj->odispl = 0;
|
|
}
|
|
*/
|
|
if(!vism_at(obj->ox,obj->oy))
|
|
newsym(obj->ox,obj->oy);
|
|
}
|
|
|
|
seeobjs(){
|
|
register struct obj *obj, *obj2;
|
|
for(obj = fobj; obj; obj = obj2) {
|
|
obj2 = obj->nobj;
|
|
if(obj->olet == FOOD_SYM && obj->otyp >= CORPSE
|
|
&& obj->age + 250 < moves)
|
|
delobj(obj);
|
|
}
|
|
for(obj = invent; obj; obj = obj2) {
|
|
obj2 = obj->nobj;
|
|
if(obj->olet == FOOD_SYM && obj->otyp >= CORPSE
|
|
&& obj->age + 250 < moves)
|
|
useup(obj);
|
|
}
|
|
}
|
|
|
|
seemons(){
|
|
register struct monst *mtmp;
|
|
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon){
|
|
if(mtmp->data->mlet == ';')
|
|
mtmp->minvis = (u.ustuck != mtmp &&
|
|
levl[mtmp->mx][mtmp->my].typ == POOL);
|
|
pmon(mtmp);
|
|
#ifndef NOWORM
|
|
if(mtmp->wormno) wormsee(mtmp->wormno);
|
|
#endif NOWORM
|
|
}
|
|
}
|
|
|
|
pmon(mon) register struct monst *mon; {
|
|
register int show = (Blind && Telepat) || canseemon(mon);
|
|
if(mon->mdispl){
|
|
if(mon->mdx != mon->mx || mon->mdy != mon->my || !show)
|
|
unpmon(mon);
|
|
}
|
|
if(show && !mon->mdispl){
|
|
atl(mon->mx,mon->my,
|
|
(!mon->mappearance
|
|
|| u.uprops[PROP(RIN_PROTECTION_FROM_SHAPE_CHANGERS)].p_flgs
|
|
) ? mon->data->mlet : mon->mappearance);
|
|
mon->mdispl = 1;
|
|
mon->mdx = mon->mx;
|
|
mon->mdy = mon->my;
|
|
}
|
|
}
|
|
|
|
unpmon(mon) register struct monst *mon; {
|
|
if(mon->mdispl){
|
|
newsym(mon->mdx, mon->mdy);
|
|
mon->mdispl = 0;
|
|
}
|
|
}
|
|
|
|
nscr()
|
|
{
|
|
register x,y;
|
|
register struct rm *room;
|
|
|
|
if(u.uswallow || u.ux == FAR || flags.nscrinh) return;
|
|
pru();
|
|
for(y = scrly; y <= scrhy; y++)
|
|
for(x = scrlx; x <= scrhx; x++)
|
|
if((room = &levl[x][y])->new) {
|
|
room->new = 0;
|
|
at(x,y,room->scrsym);
|
|
}
|
|
scrhx = scrhy = 0;
|
|
scrlx = COLNO;
|
|
scrly = ROWNO;
|
|
}
|
|
|
|
/* 100 suffices for bot(); no relation with COLNO */
|
|
char oldbot[100], newbot[100];
|
|
cornbot(lth)
|
|
register int lth;
|
|
{
|
|
if(lth < sizeof(oldbot)) {
|
|
oldbot[lth] = 0;
|
|
flags.botl = 1;
|
|
}
|
|
}
|
|
|
|
bot()
|
|
{
|
|
register char *ob = oldbot, *nb = newbot;
|
|
register int i;
|
|
extern char *eos();
|
|
if(flags.botlx) *ob = 0;
|
|
flags.botl = flags.botlx = 0;
|
|
#ifdef GOLD_ON_BOTL
|
|
(void) sprintf(newbot,
|
|
"Level %-2d Gold %-5lu Hp %3d(%d) Ac %-2d Str ",
|
|
dlevel, u.ugold, u.uhp, u.uhpmax, u.uac);
|
|
#else
|
|
(void) sprintf(newbot,
|
|
"Level %-2d Hp %3d(%d) Ac %-2d Str ",
|
|
dlevel, u.uhp, u.uhpmax, u.uac);
|
|
#endif GOLD_ON_BOTL
|
|
if(u.ustr>18) {
|
|
if(u.ustr>117)
|
|
(void) strcat(newbot,"18/**");
|
|
else
|
|
(void) sprintf(eos(newbot), "18/%02d",u.ustr-18);
|
|
} else
|
|
(void) sprintf(eos(newbot), "%-2d ",u.ustr);
|
|
#ifdef EXP_ON_BOTL
|
|
(void) sprintf(eos(newbot), " Exp %2d/%-5lu ", u.ulevel,u.uexp);
|
|
#else
|
|
(void) sprintf(eos(newbot), " Exp %2u ", u.ulevel);
|
|
#endif EXP_ON_BOTL
|
|
(void) strcat(newbot, hu_stat[u.uhs]);
|
|
if(flags.time)
|
|
(void) sprintf(eos(newbot), " %ld", moves);
|
|
if(strlen(newbot) >= COLNO) {
|
|
register char *bp0, *bp1;
|
|
bp0 = bp1 = newbot;
|
|
do {
|
|
if(*bp0 != ' ' || bp0[1] != ' ' || bp0[2] != ' ')
|
|
*bp1++ = *bp0;
|
|
} while(*bp0++);
|
|
}
|
|
for(i = 1; i<COLNO; i++) {
|
|
if(*ob != *nb){
|
|
curs(i,ROWNO+2);
|
|
(void) putchar(*nb ? *nb : ' ');
|
|
curx++;
|
|
}
|
|
if(*ob) ob++;
|
|
if(*nb) nb++;
|
|
}
|
|
(void) strcpy(oldbot, newbot);
|
|
}
|
|
|
|
#ifdef WAN_PROBING
|
|
mstatusline(mtmp) register struct monst *mtmp; {
|
|
pline("Status of %s: ", monnam(mtmp));
|
|
pline("Level %-2d Gold %-5lu Hp %3d(%d) Ac %-2d Dam %d",
|
|
mtmp->data->mlevel, mtmp->mgold, mtmp->mhp, mtmp->mhpmax,
|
|
mtmp->data->ac, (mtmp->data->damn + 1) * (mtmp->data->damd + 1));
|
|
}
|
|
#endif WAN_PROBING
|
|
|
|
cls(){
|
|
if(flags.toplin == 1)
|
|
more();
|
|
flags.toplin = 0;
|
|
|
|
clear_screen();
|
|
|
|
flags.botlx = 1;
|
|
}
|