X-Git-Url: https://git.cameronkatri.com/bsdgames-darwin.git/blobdiff_plain/1c12287131d94d97a43442c4e787449541bbf342..4dd58b5eb4589ed8653e2e5f7d44138dcd56c357:/hack/hack.pri.c

diff --git a/hack/hack.pri.c b/hack/hack.pri.c
index 7e5eb893..8e8c5bd4 100644
--- a/hack/hack.pri.c
+++ b/hack/hack.pri.c
@@ -1,132 +1,161 @@
+/*	$NetBSD: hack.pri.c,v 1.5 1997/10/19 16:58:50 christos Exp $	*/
+
 /*
  * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
  */
 
+#include <sys/cdefs.h>
 #ifndef lint
-static char rcsid[] = "$Id: hack.pri.c,v 1.3 1993/12/02 03:07:18 mycroft Exp $";
-#endif /* not lint */
+__RCSID("$NetBSD: hack.pri.c,v 1.5 1997/10/19 16:58:50 christos 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;
+#include "extern.h"
+xchar           scrlx, scrhx, scrly, scrhy;	/* corners of new area on
+						 * screen */
 
+void
 swallowed()
 {
-	char ulook[] = "|@|";
+	char            ulook[] = "|@|";
 	ulook[1] = u.usym;
 
 	cls();
-	curs(u.ux-1, u.uy+1);
+	curs(u.ux - 1, u.uy + 1);
 	fputs("/-\\", stdout);
-	curx = u.ux+2;
-	curs(u.ux-1, u.uy+2);
+	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);
+	curx = u.ux + 2;
+	curs(u.ux - 1, u.uy + 3);
 	fputs("\\-/", stdout);
-	curx = u.ux+2;
+	curx = u.ux + 2;
 	u.udispl = 1;
 	u.udisx = u.ux;
 	u.udisy = u.uy;
 }
 
 
-/*VARARGS1*/
-boolean panicking;
+/* VARARGS1 */
+boolean         panicking;
 
-panic(str,a1,a2,a3,a4,a5,a6)
-char *str;
+void
+#ifdef __STDC__
+panic(const char *fmt, ...)
+#else
+panic(va_alist)
+	va_dcl
+#endif
 {
-	if(panicking++) exit(1);    /* avoid loops - this should never happen*/
+	va_list ap;
+#ifndef __STDC__
+	const char *fmt;
+	va_start(ap);
+	fmt = va_arg(ap, const char *);
+#else
+	va_start(ap, fmt);
+#endif
+	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);
+	vprintf(fmt, ap);
+	va_end(ap);
 #ifdef DEBUG
 #ifdef UNIX
-	if(!fork())
+	if (!fork())
 		abort();	/* generate core dump */
-#endif UNIX
-#endif DEBUG
+#endif	/* UNIX */
+#endif	/* DEBUG */
 	more();			/* contains a fflush() */
 	done("panicked");
 }
 
-atl(x,y,ch)
-register x,y;
+void
+atl(x, y, ch)
+int x, y, ch;
 {
-	register struct rm *crm = &levl[x][y];
+	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);
+	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;
+	if (crm->seen && crm->scrsym == ch)
+		return;
 	crm->scrsym = ch;
 	crm->new = 1;
-	on_scr(x,y);
+	on_scr(x, y);
 }
 
-on_scr(x,y)
-register x,y;
+void
+on_scr(x, y)
+int x, y;
 {
-	if(x < scrlx) scrlx = x;
-	if(x > scrhx) scrhx = x;
-	if(y < scrly) scrly = y;
-	if(y > scrhy) scrhy = 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
-*/
+/*
+ * 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 */
+void
+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 */
+	if ((int) x == -1 && (int) y >= 0) {	/* open or close call */
 		let = y;
 		prevx = -1;
 		return;
 	}
-	if(prevx >= 0 && cansee(prevx,prevy)) {
+	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);
+	if (x >= 0) {		/* normal call */
+		if (cansee(x, y))
+			at(x, y, let);
 		prevx = x;
 		prevy = y;
-	} else {	/* close call */
+	} 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 */
+void
+Tmp_at(x, y)
+	schar           x, y;
+{
+	static char     let;
+	static xchar    cnt;
+	static coord    tc[COLNO];	/* but watch reflecting beams! */
+	int 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--) {
+		while (cnt--) {
 			xx = tc[cnt].x;
 			yy = tc[cnt].y;
 			prl(xx, yy);
@@ -135,89 +164,106 @@ register xx,yy;
 		cnt = let = 0;	/* superfluous */
 		return;
 	}
-	if((int)x == -2) {	/* change let call */
+	if ((int) x == -2) {	/* change let call */
 		let = y;
 		return;
 	}
 	/* normal call */
-	if(cansee(x,y)) {
-		if(cnt) delay_output();
-		at(x,y,let);
+	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?");
+		if (++cnt >= COLNO)
+			panic("Tmp_at overflow?");
 		levl[x][y].new = 0;	/* prevent pline-nscr erasing --- */
 	}
 }
 
-setclipped(){
+void
+setclipped()
+{
 	error("Hack needs a screen of size at least %d by %d.\n",
-		ROWNO+2, COLNO);
+	      ROWNO + 2, COLNO);
 }
 
-at(x,y,ch)
-register xchar x,y;
-char ch;
+void
+at(x, y, ch)
+	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) {
+	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) {
+#endif	/* lint */
+	if (!ch) {
 		impossible("At gets null at %d %d.", x, y);
 		return;
 	}
 	y += 2;
-	curs(x,y);
+	curs(x, y);
 	(void) putchar(ch);
 	curx++;
 }
 
-prme(){
-	if(!Invisible) at(u.ux,u.uy,u.usym);
+void
+prme()
+{
+	if (!Invisible)
+		at(u.ux, u.uy, u.usym);
 }
 
+int
 doredraw()
 {
 	docrt();
-	return(0);
+	return (0);
 }
 
+void
 docrt()
 {
-	register x,y;
-	register struct rm *room;
-	register struct monst *mtmp;
+	int x, y;
+	struct rm      *room;
+	struct monst   *mtmp;
 
-	if(u.uswallow) {
+	if (u.uswallow) {
 		swallowed();
 		return;
 	}
 	cls();
 
-/* Some ridiculous code to get display of @ and monsters (almost) right */
-	if(!Invisible) {
+	/*
+	 * 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;
+	} else
+		u.udispl = 0;
 
-	seemons();	/* reset old positions */
-	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
+	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) {
+	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);
+				at(x, y, room->scrsym);
+			} else if (room->seen)
+				at(x, y, room->scrsym);
 	scrlx = COLNO;
 	scrly = ROWNO;
 	scrhx = scrhy = 0;
@@ -225,61 +271,65 @@ docrt()
 	bot();
 }
 
-docorner(xmin,ymax) register xmin,ymax; {
-	register x,y;
-	register struct rm *room;
-	register struct monst *mtmp;
+void
+docorner(xmin, ymax)
+	int xmin, ymax;
+{
+	int x, y;
+	struct rm      *room;
+	struct monst   *mtmp;
 
-	if(u.uswallow) {	/* Can be done more efficiently */
+	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 */
 
-	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);
+	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 (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);
+	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);
+void
+curs_on_u()
+{
+	curs(u.ux, u.uy + 2);
 }
 
+void
 pru()
 {
-	if(u.udispl && (Invisible || u.udisx != u.ux || u.udisy != u.uy))
+	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) {
+		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) {
+		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;
@@ -290,293 +340,327 @@ pru()
 
 #ifndef NOWORM
 #include	"def.wseg.h"
-extern struct wseg *m_atseg;
-#endif NOWORM
+#endif	/* NOWORM */
 
 /* print a position that is visible for @ */
-prl(x,y)
+void
+prl(x, y)
 {
-	register struct rm *room;
-	register struct monst *mtmp;
-	register struct obj *otmp;
+	struct rm      *room;
+	struct monst   *mtmp;
+	struct obj     *otmp;
 
-	if(x == u.ux && y == u.uy && (!Invisible)) {
+	if (x == u.ux && y == u.uy && (!Invisible)) {
 		pru();
 		return;
 	}
-	if(!isok(x,y)) return;
+	if (!isok(x, y))
+		return;
 	room = &levl[x][y];
-	if((!room->typ) ||
-	   (IS_ROCK(room->typ) && levl[u.ux][u.uy].typ == CORR))
+	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)) {
+	if ((mtmp = m_at(x, y)) && !mtmp->mhide &&
+	    (!mtmp->minvis || See_invisible)) {
 #ifndef NOWORM
-		if(m_atseg)
+		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)) {
+#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 == ' ') {
+	} 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);
+		newsym(x, y);
+		on_scr(x, y);
 	}
 	room->seen = 1;
 }
 
 char
-news0(x,y)
-register xchar x,y;
+news0(x, y)
+	xchar           x, y;
 {
-	register struct obj *otmp;
-	register struct trap *ttmp;
-	struct rm *room;
-	register char tmp;
+	struct obj     *otmp;
+	struct trap    *ttmp;
+	struct rm      *room;
+	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:
+	if (!room->seen)
+		tmp = ' ';
+	else if (room->typ == POOL)
 		tmp = POOL_SYM;
-		break;
-*/
-	default:
-		tmp = ERRCHAR;
-	}
-	return(tmp);
+	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;
+void
+newsym(x, y)
+	int x, y;
 {
-	atl(x,y,news0(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;
+void
+mnewsym(x, y)
+	int x, y;
 {
-	register struct rm *room;
-	char newscrsym;
+	struct rm      *room;
+	char            newscrsym;
 
-	if(!vism_at(x,y)) {
+	if (!vism_at(x, y)) {
 		room = &levl[x][y];
-		newscrsym = news0(x,y);
-		if(room->scrsym != newscrsym) {
+		newscrsym = news0(x, y);
+		if (room->scrsym != newscrsym) {
 			room->scrsym = newscrsym;
 			room->seen = 0;
 		}
 	}
 }
 
-nosee(x,y)
-register x,y;
+void
+nosee(x, y)
+	int x, y;
 {
-	register struct rm *room;
+	struct rm      *room;
 
-	if(!isok(x,y)) return;
+	if (!isok(x, y))
+		return;
 	room = &levl[x][y];
-	if(room->scrsym == '.' && !room->lit && !Blind) {
+	if (room->scrsym == '.' && !room->lit && !Blind) {
 		room->scrsym = ' ';
 		room->new = 1;
-		on_scr(x,y);
+		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));
+void
+prl1(x, y)
+	int 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);
+			prl(x, y - 1);
+			prl(x, y);
+			prl(x, y + 1);
 		}
 	} else {
-		prl(x-1,y);
-		prl(x,y);
-		prl(x+1,y);
+		prl(x - 1, y);
+		prl(x, y);
+		prl(x + 1, y);
 	}
 }
 
-nose1(x,y)
-register x,y;
+void
+nose1(x, y)
+	int 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);
+	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);
+			nosee(x, y - 1);
+			nosee(x, y);
+			nosee(x, y + 1);
 		}
 	} else {
-		nosee(x-1,y);
-		nosee(x,y);
-		nosee(x+1,y);
+		nosee(x - 1, y);
+		nosee(x, y);
+		nosee(x + 1, y);
 	}
 }
-#endif QUEST
+#endif	/* QUEST */
 
-vism_at(x,y)
-register x,y;
+int
+vism_at(x, y)
+	int x, y;
 {
-	register struct monst *mtmp;
+	struct monst   *mtmp;
 
-	return((x == u.ux && y == u.uy && !Invisible)
-			? 1 :
-	       (mtmp = m_at(x,y))
-			? ((Blind && Telepat) || canseemon(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;
-		}
+void
+pobj(obj)
+	struct obj     *obj;
+{
+	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);
+	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
+#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);
+void
+unpobj(obj)
+	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) {
+void
+seeobjs()
+{
+	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);
+		if (obj->olet == FOOD_SYM && obj->otyp >= CORPSE
+		    && obj->age + 250 < moves)
+			delobj(obj);
 	}
-	for(obj = invent; obj; obj = obj2) {
+	for (obj = invent; obj; obj = obj2) {
 		obj2 = obj->nobj;
-		if(obj->olet == FOOD_SYM && obj->otyp >= CORPSE
-			&& obj->age + 250 < moves)
-				useup(obj);
+		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 == ';')
+void
+seemons()
+{
+	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);
+				      levl[mtmp->mx][mtmp->my].typ == POOL);
 		pmon(mtmp);
 #ifndef NOWORM
-		if(mtmp->wormno) wormsee(mtmp->wormno);
-#endif 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)
+void
+pmon(mon)
+	struct monst   *mon;
+{
+	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);
+	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){
+void
+unpmon(mon)
+	struct monst   *mon;
+{
+	if (mon->mdispl) {
 		newsym(mon->mdx, mon->mdy);
 		mon->mdispl = 0;
 	}
 }
 
+void
 nscr()
 {
-	register x,y;
-	register struct rm *room;
+	int x, y;
+	struct rm      *room;
 
-	if(u.uswallow || u.ux == FAR || flags.nscrinh) return;
+	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) {
+	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);
+				at(x, y, room->scrsym);
 			}
 	scrhx = scrhy = 0;
 	scrlx = COLNO;
@@ -584,78 +668,87 @@ nscr()
 }
 
 /* 100 suffices for bot(); no relation with COLNO */
-char oldbot[100], newbot[100];
+char            oldbot[100], newbot[100];
+void
 cornbot(lth)
-register int lth;
+	int             lth;
 {
-	if(lth < sizeof(oldbot)) {
+	if (lth < sizeof(oldbot)) {
 		oldbot[lth] = 0;
 		flags.botl = 1;
 	}
 }
 
+void
 bot()
 {
-register char *ob = oldbot, *nb = newbot;
-register int i;
-extern char *eos();
-	if(flags.botlx) *ob = 0;
+	char           *ob = oldbot, *nb = newbot;
+	int             i;
+	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);
+		       "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);
+		       "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);
+		(void) sprintf(eos(newbot), "%-2d   ", u.ustr);
 #ifdef EXP_ON_BOTL
-	(void) sprintf(eos(newbot), "  Exp %2d/%-5lu ", u.ulevel,u.uexp);
+	(void) sprintf(eos(newbot), "  Exp %2d/%-5lu ", u.ulevel, u.uexp);
 #else
 	(void) sprintf(eos(newbot), "   Exp %2u  ", u.ulevel);
-#endif EXP_ON_BOTL
+#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;
+	if (flags.time)
+		(void) sprintf(eos(newbot), "  %ld", moves);
+	if (strlen(newbot) >= COLNO) {
+		char           *bp0, *bp1;
 		bp0 = bp1 = newbot;
 		do {
-			if(*bp0 != ' ' || bp0[1] != ' ' || bp0[2] != ' ')
+			if (*bp0 != ' ' || bp0[1] != ' ' || bp0[2] != ' ')
 				*bp1++ = *bp0;
-		} while(*bp0++);
+		} while (*bp0++);
 	}
-	for(i = 1; i<COLNO; i++) {
-		if(*ob != *nb){
-			curs(i,ROWNO+2);
+	for (i = 1; i < COLNO; i++) {
+		if (*ob != *nb) {
+			curs(i, ROWNO + 2);
 			(void) putchar(*nb ? *nb : ' ');
 			curx++;
 		}
-		if(*ob) ob++;
-		if(*nb) nb++;
+		if (*ob)
+			ob++;
+		if (*nb)
+			nb++;
 	}
 	(void) strcpy(oldbot, newbot);
 }
 
 #ifdef WAN_PROBING
-mstatusline(mtmp) register struct monst *mtmp; {
+void
+mstatusline(mtmp)
+	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));
+	      mtmp->data->mlevel, mtmp->mgold, mtmp->mhp, mtmp->mhpmax,
+	   mtmp->data->ac, (mtmp->data->damn + 1) * (mtmp->data->damd + 1));
 }
-#endif WAN_PROBING
+#endif	/* WAN_PROBING */
 
-cls(){
-	if(flags.toplin == 1)
+void
+cls()
+{
+	if (flags.toplin == 1)
 		more();
 	flags.toplin = 0;