Tons of changes; re-indent, use termios, fix warnings, add prototypes...

Games is almost clean; only hack is left...

1 files changed, 732 insertions, 524 deletions

diff --git a/larn/store.c b/larn/store.c
index 24226e09..01a3b483 100644
--- a/larn/store.c
+++ b/larn/store.c
@@ -1,4 +1,4 @@
-/*	$NetBSD: store.c,v 1.5 1997/07/13 20:21:41 christos Exp $	*/
+/*	$NetBSD: store.c,v 1.6 1997/10/18 20:03:52 christos Exp $	 */
 
 /*-
  * Copyright (c) 1988 The Regents of the University of California.
@@ -33,155 +33,181 @@
  * SUCH DAMAGE.
  */
 
+#include <sys/cdefs.h>
 #ifndef lint
 #if 0
-static char sccsid[] = "@(#)store.c	5.4 (Berkeley) 5/13/91";
+static char     sccsid[] = "@(#)store.c	5.4 (Berkeley) 5/13/91";
 #else
-static char rcsid[] = "$NetBSD: store.c,v 1.5 1997/07/13 20:21:41 christos Exp $";
+__RCSID("$NetBSD: store.c,v 1.6 1997/10/18 20:03:52 christos Exp $");
 #endif
-#endif /* not lint */
+#endif				/* not lint */
 
-/*	store.c		Larn is copyrighted 1986 by Noah Morgan. */
+/* store.c		Larn is copyrighted 1986 by Noah Morgan. */
 #include "header.h"
-static int dndcount=0,dnditm=0;
-
-/*	this is the data for the stuff in the dnd store	*/
-int maxitm=83;	/* number of items in the dnd inventory table	*/
-struct _itm itm[90] = {
-/*cost 		iven name		iven arg   how
-  gp		  iven[]		ivenarg[]  many */
-
-{ 2,		OLEATHER,		0,		3	},
-{ 10,		OSTUDLEATHER,		0,		2	},
-{ 40,		ORING,			0,		2	},
-{ 85,		OCHAIN,			0,		2	},
-{ 220,		OSPLINT,		0,		1	},
-{ 400,		OPLATE,			0,		1	},
-{ 900,		OPLATEARMOR,		0,		1	},
-{ 2600,		OSSPLATE,		0,		1	},
-{ 150,		OSHIELD,		0,		1	},
-
-/*cost	 	iven name		iven arg   how
-  gp		  iven[]		ivenarg[]  many */
-
-{ 2,		ODAGGER,		0,		3	},
-{ 20,		OSPEAR,			0,		3	},
-{ 80,		OFLAIL,			0,		2	},
-{ 150,		OBATTLEAXE,		0,		2	},
-{ 450,		OLONGSWORD,		0,		2	},
-{ 1000,		O2SWORD,		0,		2	},
-{ 5000,		OSWORD,			0,		1	},
-{ 16500,	OLANCE,			0,		1	},
-{ 6000,		OSWORDofSLASHING,	0,		0	},
-{ 10000,	OHAMMER,		0,		0	},
-
-/*cost		iven name		iven arg   how
-  gp		  iven[]		ivenarg[]  many */
-
-{ 150,		OPROTRING,		1,		1	},
-{ 85,		OSTRRING,		1,		1	},
-{ 120,		ODEXRING,		1,		1	},
-{ 120,		OCLEVERRING,		1,		1	},
-{ 180,		OENERGYRING,		0,		1	},
-{ 125,		ODAMRING,		0,		1	},
-{ 220,		OREGENRING,		0,		1	},
-{ 1000,		ORINGOFEXTRA,		0,		1	},
-
-{ 280,		OBELT,			0,		1	},
-
-{ 400,		OAMULET,		0,		1	},
-
-{ 6500,		OORBOFDRAGON,		0,		0	},
-{ 5500,		OSPIRITSCARAB,		0,		0	},
-{ 5000,		OCUBEofUNDEAD,		0,		0	},
-{ 6000,		ONOTHEFT,		0,		0	},
-
-{ 590,		OCHEST,			6,		1	},
-{ 200,		OBOOK,			8,		1	},
-{ 10,		OCOOKIE,		0,		3	},
-
-/*cost		iven name		iven arg   how
-  gp		  iven[]		ivenarg[]  many */
-
-{ 20,		OPOTION,		0,		6	},
-{ 90,		OPOTION,		1,		5	},
-{ 520,		OPOTION,		2,		1	},
-{ 100,		OPOTION,		3,		2	},
-{ 50,		OPOTION,		4,		2	},
-{ 150,		OPOTION,		5,		2	},
-{ 70,		OPOTION,		6,		1	},
-{ 30,		OPOTION,		7,		7	},
-{ 200,		OPOTION,		8,		1	},
-{ 50,		OPOTION,		9,		1	},
-{ 80,		OPOTION,		10,		1	},
-
-/*cost		iven name		iven arg   how
-  gp		  iven[]		ivenarg[]  many */
-
-{ 30,		OPOTION,		11,		3	},
-{ 20,		OPOTION,		12,		5	},
-{ 40,		OPOTION,		13,		3	},
-{ 35,		OPOTION,		14,		2	},
-{ 520,		OPOTION,		15,		1	},
-{ 90,		OPOTION,		16,		2	},
-{ 200,		OPOTION,		17,		2	},
-{ 220,		OPOTION,		18,		4	},
-{ 80,		OPOTION,		19,		6	},
-{ 370,		OPOTION,		20,		3	},
-{ 50,		OPOTION,		22,		1	},
-{ 150,		OPOTION,		23,		3	},
-
-/*cost		iven name		iven arg   how
-  gp		  iven[]		ivenarg[]  many */
-
-{ 100,		OSCROLL,		0,		2	},
-{ 125,		OSCROLL,		1,		2	},
-{ 60,		OSCROLL,		2,		4	},
-{ 10,		OSCROLL,		3,		4	},
-{ 100,		OSCROLL,		4,		3	},
-{ 200,		OSCROLL,		5,		2	},
-{ 110,		OSCROLL,		6,		1	},
-{ 500,		OSCROLL,		7,		2	},
-{ 200,		OSCROLL,		8,		2	},
-{ 250,		OSCROLL,		9,		4	},
-{ 20,		OSCROLL,		10,		5	},
-{ 30,		OSCROLL,		11,		3	},
-
-/*cost 		iven name		iven arg   how
-  gp		  iven[]		ivenarg[]  many */
-
-{ 340,		OSCROLL,		12,		1	},
-{ 340,		OSCROLL,		13,		1	},
-{ 300,		OSCROLL,		14,		2	},
-{ 400,		OSCROLL,		15,		2	},
-{ 500,		OSCROLL,		16,		2	},
-{ 1000,		OSCROLL,		17,		1	},
-{ 500,		OSCROLL,		18,		1	},
-{ 340,		OSCROLL,		19,		2	},
-{ 220,		OSCROLL,		20,		3	},
-{ 3900,		OSCROLL,		21,		0	},
-{ 610,		OSCROLL,		22,		1	},
-{ 3000,		OSCROLL,		23,		0	}
- };
+#include "extern.h"
+
+static void handsfull __P((void));
+static void outofstock __P((void));
+static void nogold __P((void));
+static void dnditem __P((int));
+static void banktitle __P((char *));
+static void otradhead __P((void));
+
+static int      dndcount = 0, dnditm = 0;
+
+/* this is the data for the stuff in the dnd store	 */
+int             maxitm = 83;	/* number of items in the dnd inventory table	 */
+struct _itm     itm[90] = {
+	/*
+	 * cost 		iven name		iven arg   how gp
+	 * iven[]		ivenarg[]  many
+	 */
+
+	{2, OLEATHER, 0, 3},
+	{10, OSTUDLEATHER, 0, 2},
+	{40, ORING, 0, 2},
+	{85, OCHAIN, 0, 2},
+	{220, OSPLINT, 0, 1},
+	{400, OPLATE, 0, 1},
+	{900, OPLATEARMOR, 0, 1},
+	{2600, OSSPLATE, 0, 1},
+	{150, OSHIELD, 0, 1},
+
+	/*
+	 * cost	 	iven name		iven arg   how gp
+	 * iven[]		ivenarg[]  many
+	 */
+
+	{2, ODAGGER, 0, 3},
+	{20, OSPEAR, 0, 3},
+	{80, OFLAIL, 0, 2},
+	{150, OBATTLEAXE, 0, 2},
+	{450, OLONGSWORD, 0, 2},
+	{1000, O2SWORD, 0, 2},
+	{5000, OSWORD, 0, 1},
+	{16500, OLANCE, 0, 1},
+	{6000, OSWORDofSLASHING, 0, 0},
+	{10000, OHAMMER, 0, 0},
+
+	/*
+	 * cost		iven name		iven arg   how gp
+	 * iven[]		ivenarg[]  many
+	 */
+
+	{150, OPROTRING, 1, 1},
+	{85, OSTRRING, 1, 1},
+	{120, ODEXRING, 1, 1},
+	{120, OCLEVERRING, 1, 1},
+	{180, OENERGYRING, 0, 1},
+	{125, ODAMRING, 0, 1},
+	{220, OREGENRING, 0, 1},
+	{1000, ORINGOFEXTRA, 0, 1},
+
+	{280, OBELT, 0, 1},
+
+	{400, OAMULET, 0, 1},
+
+	{6500, OORBOFDRAGON, 0, 0},
+	{5500, OSPIRITSCARAB, 0, 0},
+	{5000, OCUBEofUNDEAD, 0, 0},
+	{6000, ONOTHEFT, 0, 0},
+
+	{590, OCHEST, 6, 1},
+	{200, OBOOK, 8, 1},
+	{10, OCOOKIE, 0, 3},
+
+	/*
+	 * cost		iven name		iven arg   how gp
+	 * iven[]		ivenarg[]  many
+	 */
+
+	{20, OPOTION, 0, 6},
+	{90, OPOTION, 1, 5},
+	{520, OPOTION, 2, 1},
+	{100, OPOTION, 3, 2},
+	{50, OPOTION, 4, 2},
+	{150, OPOTION, 5, 2},
+	{70, OPOTION, 6, 1},
+	{30, OPOTION, 7, 7},
+	{200, OPOTION, 8, 1},
+	{50, OPOTION, 9, 1},
+	{80, OPOTION, 10, 1},
+
+	/*
+	 * cost		iven name		iven arg   how gp
+	 * iven[]		ivenarg[]  many
+	 */
+
+	{30, OPOTION, 11, 3},
+	{20, OPOTION, 12, 5},
+	{40, OPOTION, 13, 3},
+	{35, OPOTION, 14, 2},
+	{520, OPOTION, 15, 1},
+	{90, OPOTION, 16, 2},
+	{200, OPOTION, 17, 2},
+	{220, OPOTION, 18, 4},
+	{80, OPOTION, 19, 6},
+	{370, OPOTION, 20, 3},
+	{50, OPOTION, 22, 1},
+	{150, OPOTION, 23, 3},
+
+	/*
+	 * cost		iven name		iven arg   how gp
+	 * iven[]		ivenarg[]  many
+	 */
+
+	{100, OSCROLL, 0, 2},
+	{125, OSCROLL, 1, 2},
+	{60, OSCROLL, 2, 4},
+	{10, OSCROLL, 3, 4},
+	{100, OSCROLL, 4, 3},
+	{200, OSCROLL, 5, 2},
+	{110, OSCROLL, 6, 1},
+	{500, OSCROLL, 7, 2},
+	{200, OSCROLL, 8, 2},
+	{250, OSCROLL, 9, 4},
+	{20, OSCROLL, 10, 5},
+	{30, OSCROLL, 11, 3},
+
+	/*
+	 * cost 		iven name		iven arg   how gp
+	 * iven[]		ivenarg[]  many
+	 */
+
+	{340, OSCROLL, 12, 1},
+	{340, OSCROLL, 13, 1},
+	{300, OSCROLL, 14, 2},
+	{400, OSCROLL, 15, 2},
+	{500, OSCROLL, 16, 2},
+	{1000, OSCROLL, 17, 1},
+	{500, OSCROLL, 18, 1},
+	{340, OSCROLL, 19, 2},
+	{220, OSCROLL, 20, 3},
+	{3900, OSCROLL, 21, 0},
+	{610, OSCROLL, 22, 1},
+	{3000, OSCROLL, 23, 0}
+};
 
 /*
 	function for the dnd store
  */
+void
 dnd_2hed()
-    {
+{
 	lprcat("Welcome to the Larn Thrift Shoppe.  We stock many items explorers find useful\n");
 	lprcat(" in their adventures.  Feel free to browse to your hearts content.\n");
 	lprcat("Also be advised, if you break 'em, you pay for 'em.");
-	}
-
-static void dnditem();
+}
 
+void
 dnd_hed()
-	{
-	register int i;
-	for (i=dnditm; i<26+dnditm; i++)	dnditem(i);
-	cursor(50,18); lprcat("You have ");
-	}
+{
+	int    i;
+	for (i = dnditm; i < 26 + dnditm; i++)
+		dnditem(i);
+	cursor(50, 18);
+	lprcat("You have ");
+}
 
 static void
 handsfull()
@@ -199,70 +225,94 @@ outofstock()
 	nap(2200);
 }
 
-static void nogold()
+static void 
+nogold()
 {
 	lprcat("\nYou don't have enough gold to pay for that!");
 	lflush();
 	nap(2200);
 }
 
+void
 dndstore()
-  {
-  register int i;
-  dnditm = 0;
-  nosignal = 1; /* disable signals */
-  clear();  dnd_2hed();
-  if (outstanding_taxes>0)
-	{
-	lprcat("\n\nThe Larn Revenue Service has ordered us to not do business with tax evaders.\n"); beep();
-	lprintf("They have also told us that you owe %d gp in back taxes, and as we must\n",(long)outstanding_taxes);
-	lprcat("comply with the law, we cannot serve you at this time.  Soo Sorry.\n");
-	cursors();	
-	lprcat("\nPress "); standout("escape"); lprcat(" to leave: "); lflush();
-	i=0;
-	while (i!='\33') i=getchar();
-	drawscreen();  nosignal = 0; /* enable signals */ return;
+{
+	int    i;
+	dnditm = 0;
+	nosignal = 1;		/* disable signals */
+	clear();
+	dnd_2hed();
+	if (outstanding_taxes > 0) {
+		lprcat("\n\nThe Larn Revenue Service has ordered us to not do business with tax evaders.\n");
+		beep();
+		lprintf("They have also told us that you owe %d gp in back taxes, and as we must\n", (long) outstanding_taxes);
+		lprcat("comply with the law, we cannot serve you at this time.  Soo Sorry.\n");
+		cursors();
+		lprcat("\nPress ");
+		standout("escape");
+		lprcat(" to leave: ");
+		lflush();
+		i = 0;
+		while (i != '\33')
+			i = getchar();
+		drawscreen();
+		nosignal = 0;	/* enable signals */
+		return;
 	}
-
-  dnd_hed();
-  while (1)
-	{
-	cursor(59,18); lprintf("%d gold pieces",(long)c[GOLD]);
-	cltoeoln(); cl_dn(1,20);	/* erase to eod */
-	lprcat("\nEnter your transaction ["); standout("space");
-	lprcat(" for more, "); standout("escape");
-	lprcat(" to leave]? ");
-	i=0;
-	while ((i<'a' || i>'z') && (i!=' ') && (i!='\33') && (i!=12))  i=getchar();
-	if (i==12) { clear();  dnd_2hed();  dnd_hed(); }
-	else if (i=='\33')
-		{ drawscreen();  nosignal = 0; /* enable signals */ return; }
-	else if (i==' ')
-		{
-		cl_dn(1,4);
-		if ((dnditm += 26) >= maxitm) dnditm=0; dnd_hed();
-		}
-	else
-		{  /* buy something */
-		lprc(i);	/* echo the byte */
-		i += dnditm - 'a';
-		if (i>=maxitm) outofstock(); else
-		if (itm[i].qty <= 0) outofstock(); else
-		if (pocketfull()) handsfull(); else
-		if (c[GOLD] < itm[i].price*10) nogold(); else
-			{
-			if (itm[i].obj == OPOTION)
-				{ potionname[itm[i].arg] = potionhide[itm[i].arg]; }
-			else if (itm[i].obj == OSCROLL)
-				{ scrollname[itm[i].arg] = scrollhide[itm[i].arg]; }
-			c[GOLD] -= itm[i].price*10;
-			itm[i].qty--;  take(itm[i].obj,itm[i].arg);
-			if (itm[i].qty==0) dnditem(i);  nap(1001);
+	dnd_hed();
+	while (1) {
+		cursor(59, 18);
+		lprintf("%d gold pieces", (long) c[GOLD]);
+		cltoeoln();
+		cl_dn(1, 20);	/* erase to eod */
+		lprcat("\nEnter your transaction [");
+		standout("space");
+		lprcat(" for more, ");
+		standout("escape");
+		lprcat(" to leave]? ");
+		i = 0;
+		while ((i < 'a' || i > 'z') && (i != ' ') && (i != '\33') && (i != 12))
+			i = getchar();
+		if (i == 12) {
+			clear();
+			dnd_2hed();
+			dnd_hed();
+		} else if (i == '\33') {
+			drawscreen();
+			nosignal = 0;	/* enable signals */
+			return;
+		} else if (i == ' ') {
+			cl_dn(1, 4);
+			if ((dnditm += 26) >= maxitm)
+				dnditm = 0;
+			dnd_hed();
+		} else {	/* buy something */
+			lprc(i);/* echo the byte */
+			i += dnditm - 'a';
+			if (i >= maxitm)
+				outofstock();
+			else if (itm[i].qty <= 0)
+				outofstock();
+			else if (pocketfull())
+				handsfull();
+			else if (c[GOLD] < itm[i].price * 10)
+				nogold();
+			else {
+				if (itm[i].obj == OPOTION) {
+					potionname[itm[i].arg] = potionhide[itm[i].arg];
+				} else if (itm[i].obj == OSCROLL) {
+					scrollname[itm[i].arg] = scrollhide[itm[i].arg];
+				}
+				c[GOLD] -= itm[i].price * 10;
+				itm[i].qty--;
+				take(itm[i].obj, itm[i].arg);
+				if (itm[i].qty == 0)
+					dnditem(i);
+				nap(1001);
 			}
 		}
 
 	}
-  }
+}
 
 /*
 	dnditem(index)
@@ -271,430 +321,588 @@ dndstore()
  */
 static void
 dnditem(i)
-	register int i;
-	{
-	register int j,k;
-	if (i >= maxitm)  return;
-	cursor( (j=(i&1)*40+1) , (k=((i%26)>>1)+5) );
-	if (itm[i].qty == 0)  { lprintf("%39s","");  return; }
-	lprintf("%c) ",(i%26)+'a');
-	if (itm[i].obj == OPOTION)
-		{ lprintf("potion of%s", potionhide[itm[i].arg]); }
-	else if (itm[i].obj == OSCROLL)
-		{ lprintf("scroll of%s", scrollhide[itm[i].arg]); }
-	else lprintf("%s",objectname[itm[i].obj]);
-	cursor( j+31,k );  lprintf("%6d",(long)(itm[i].price*10));
+	int    i;
+{
+	int    j, k;
+	if (i >= maxitm)
+		return;
+	cursor((j = (i & 1) * 40 + 1), (k = ((i % 26) >> 1) + 5));
+	if (itm[i].qty == 0) {
+		lprintf("%39s", "");
+		return;
 	}
+	lprintf("%c) ", (i % 26) + 'a');
+	if (itm[i].obj == OPOTION) {
+		lprintf("potion of%s", potionhide[itm[i].arg]);
+	} else if (itm[i].obj == OSCROLL) {
+		lprintf("scroll of%s", scrollhide[itm[i].arg]);
+	} else
+		lprintf("%s", objectname[itm[i].obj]);
+	cursor(j + 31, k);
+	lprintf("%6d", (long) (itm[i].price * 10));
+}
+
+
 
-
 /*
 	for the college of larn
  */
-char course[26]={0};	/*	the list of courses taken	*/
-char coursetime[] = { 10, 15, 10, 20, 10, 10, 10, 5 };
+u_char          course[26] = {0};	/* the list of courses taken	 */
+char            coursetime[] = {10, 15, 10, 20, 10, 10, 10, 5};
 /*
 	function to display the header info for the school
  */
+void
 sch_hed()
-	{
+{
 	clear();
 	lprcat("The College of Larn offers the exciting opportunity of higher education to\n");
 	lprcat("all inhabitants of the caves.  Here is a list of the class schedule:\n\n\n");
 	lprcat("\t\t    Course Name \t       Time Needed\n\n");
 
-	if (course[0]==0) lprcat("\t\ta)  Fighters Training I         10 mobuls"); /*line 7 of crt*/
+	if (course[0] == 0)
+		lprcat("\t\ta)  Fighters Training I         10 mobuls");	/* line 7 of crt */
 	lprc('\n');
-	if (course[1]==0) lprcat("\t\tb)  Fighters Training II        15 mobuls");
+	if (course[1] == 0)
+		lprcat("\t\tb)  Fighters Training II        15 mobuls");
 	lprc('\n');
-	if (course[2]==0) lprcat("\t\tc)  Introduction to Wizardry    10 mobuls");
+	if (course[2] == 0)
+		lprcat("\t\tc)  Introduction to Wizardry    10 mobuls");
 	lprc('\n');
-	if (course[3]==0) lprcat("\t\td)  Applied Wizardry            20 mobuls");
+	if (course[3] == 0)
+		lprcat("\t\td)  Applied Wizardry            20 mobuls");
 	lprc('\n');
-	if (course[4]==0) lprcat("\t\te)  Behavioral Psychology       10 mobuls");
+	if (course[4] == 0)
+		lprcat("\t\te)  Behavioral Psychology       10 mobuls");
 	lprc('\n');
-	if (course[5]==0) lprcat("\t\tf)  Faith for Today             10 mobuls");
+	if (course[5] == 0)
+		lprcat("\t\tf)  Faith for Today             10 mobuls");
 	lprc('\n');
-	if (course[6]==0) lprcat("\t\tg)  Contemporary Dance          10 mobuls");
+	if (course[6] == 0)
+		lprcat("\t\tg)  Contemporary Dance          10 mobuls");
 	lprc('\n');
-	if (course[7]==0) lprcat("\t\th)  History of Larn              5 mobuls");
+	if (course[7] == 0)
+		lprcat("\t\th)  History of Larn              5 mobuls");
 
 	lprcat("\n\n\t\tAll courses cost 250 gold pieces.");
-	cursor(30,18);
+	cursor(30, 18);
 	lprcat("You are presently carrying ");
-	}
+}
 
+void
 oschool()
-	{
-	register int i;
-	long time_used;
-	nosignal = 1; /* disable signals */
+{
+	int    i;
+	long            time_used;
+	nosignal = 1;		/* disable signals */
 	sch_hed();
-	while (1)
-		{
-		cursor(57,18); lprintf("%d gold pieces.   ",(long)c[GOLD]); cursors();
-		lprcat("\nWhat is your choice ["); standout("escape");
-		lprcat(" to leave] ? ");  yrepcount=0;
-		i=0;  while ((i<'a' || i>'h') && (i!='\33') && (i!=12)) i=getchar();
-		if (i==12) { sch_hed();  continue; }
-		else if (i=='\33')
-			{ nosignal = 0; drawscreen();  /* enable signals */ return; }
+	while (1) {
+		cursor(57, 18);
+		lprintf("%d gold pieces.   ", (long) c[GOLD]);
+		cursors();
+		lprcat("\nWhat is your choice [");
+		standout("escape");
+		lprcat(" to leave] ? ");
+		yrepcount = 0;
+		i = 0;
+		while ((i < 'a' || i > 'h') && (i != '\33') && (i != 12))
+			i = getchar();
+		if (i == 12) {
+			sch_hed();
+			continue;
+		} else if (i == '\33') {
+			nosignal = 0;
+			drawscreen();	/* enable signals */
+			return;
+		}
 		lprc(i);
-		if (c[GOLD] < 250)  nogold();  else
-		if (course[i-'a'])
-			{ lprcat("\nSorry, but that class is filled."); nap(1000); }
-		else
-		if (i <= 'h')
-			{
-			c[GOLD] -= 250; time_used=0;
-			switch(i)
-				{
-				case 'a':	c[STRENGTH] += 2;  c[CONSTITUTION]++;
-							lprcat("\nYou feel stronger!");
-							cl_line(16,7);
-							break;
-
-				case 'b':	if (course[0]==0)
-								{
-								lprcat("\nSorry, but this class has a prerequisite of Fighters Training I");
-								c[GOLD]+=250;  time_used= -10000;  break;
-								}
-							lprcat("\nYou feel much stronger!");
-							cl_line(16,8);
-							c[STRENGTH] += 2;  c[CONSTITUTION] += 2;  break;
-
-				case 'c':	c[INTELLIGENCE] += 2; 
-							lprcat("\nThe task before you now seems more attainable!");
-							cl_line(16,9);  break;
-
-				case 'd':	if (course[2]==0)
-								{
-								lprcat("\nSorry, but this class has a prerequisite of Introduction to Wizardry");
-								c[GOLD]+=250;  time_used= -10000;  break;
-								}
-							lprcat("\nThe task before you now seems very attainable!");
-							cl_line(16,10);
-							c[INTELLIGENCE] += 2;  break;
-
-				case 'e':	c[CHARISMA] += 3;  
-							lprcat("\nYou now feel like a born leader!");
-							cl_line(16,11);  break;
-
-				case 'f':	c[WISDOM] += 2;  
-							lprcat("\nYou now feel more confident that you can find the potion in time!");
-							cl_line(16,12);  break;
-
-				case 'g':	c[DEXTERITY] += 3;  
-							lprcat("\nYou feel like dancing!");
-							cl_line(16,13);  break;
-
-				case 'h':	c[INTELLIGENCE]++;
-							lprcat("\nYour instructor told you that the Eye of Larn is rumored to be guarded\n");
-							lprcat("by a platinum dragon who possesses psionic abilities. ");
-							cl_line(16,14);  break;
-				}
-			time_used += coursetime[i-'a']*100;
-			if (time_used > 0)
-			  {
-			  gltime += time_used;
-			  course[i-'a']++;	/*	remember that he has taken that course	*/
-			  c[HP] = c[HPMAX];  c[SPELLS] = c[SPELLMAX]; /* he regenerated */ 
-
-			  if (c[BLINDCOUNT])	c[BLINDCOUNT]=1;  /* cure blindness too!  */
-			  if (c[CONFUSE])		c[CONFUSE]=1;	/*	end confusion	*/
-			  adjtime((long)time_used);	/* adjust parameters for time change */
-			  }
+		if (c[GOLD] < 250)
+			nogold();
+		else if (course[i - 'a']) {
+			lprcat("\nSorry, but that class is filled.");
 			nap(1000);
+		} else if (i <= 'h') {
+			c[GOLD] -= 250;
+			time_used = 0;
+			switch (i) {
+			case 'a':
+				c[STRENGTH] += 2;
+				c[CONSTITUTION]++;
+				lprcat("\nYou feel stronger!");
+				cl_line(16, 7);
+				break;
+
+			case 'b':
+				if (course[0] == 0) {
+					lprcat("\nSorry, but this class has a prerequisite of Fighters Training I");
+					c[GOLD] += 250;
+					time_used = -10000;
+					break;
+				}
+				lprcat("\nYou feel much stronger!");
+				cl_line(16, 8);
+				c[STRENGTH] += 2;
+				c[CONSTITUTION] += 2;
+				break;
+
+			case 'c':
+				c[INTELLIGENCE] += 2;
+				lprcat("\nThe task before you now seems more attainable!");
+				cl_line(16, 9);
+				break;
+
+			case 'd':
+				if (course[2] == 0) {
+					lprcat("\nSorry, but this class has a prerequisite of Introduction to Wizardry");
+					c[GOLD] += 250;
+					time_used = -10000;
+					break;
+				}
+				lprcat("\nThe task before you now seems very attainable!");
+				cl_line(16, 10);
+				c[INTELLIGENCE] += 2;
+				break;
+
+			case 'e':
+				c[CHARISMA] += 3;
+				lprcat("\nYou now feel like a born leader!");
+				cl_line(16, 11);
+				break;
+
+			case 'f':
+				c[WISDOM] += 2;
+				lprcat("\nYou now feel more confident that you can find the potion in time!");
+				cl_line(16, 12);
+				break;
+
+			case 'g':
+				c[DEXTERITY] += 3;
+				lprcat("\nYou feel like dancing!");
+				cl_line(16, 13);
+				break;
+
+			case 'h':
+				c[INTELLIGENCE]++;
+				lprcat("\nYour instructor told you that the Eye of Larn is rumored to be guarded\n");
+				lprcat("by a platinum dragon who possesses psionic abilities. ");
+				cl_line(16, 14);
+				break;
+			}
+			time_used += coursetime[i - 'a'] * 100;
+			if (time_used > 0) {
+				gltime += time_used;
+				course[i - 'a']++;	/* remember that he has
+							 * taken that course	 */
+				c[HP] = c[HPMAX];
+				c[SPELLS] = c[SPELLMAX];	/* he regenerated */
+
+				if (c[BLINDCOUNT])
+					c[BLINDCOUNT] = 1;	/* cure blindness too!  */
+				if (c[CONFUSE])
+					c[CONFUSE] = 1;	/* end confusion	 */
+				adjusttime((long) time_used);	/* adjust parameters for
+								 * time change */
 			}
+			nap(1000);
 		}
 	}
-
+}
+
+
 /*
  *	for the first national bank of Larn
  */
-int lasttime=0;	/* last time he was in bank */
-static void banktitle();
+int             lasttime = 0;	/* last time he was in bank */
 
+void
 obank()
-	{
+{
 	banktitle("    Welcome to the First National Bank of Larn.");
-	}
+}
+void
 obank2()
-	{
+{
 	banktitle("Welcome to the 5th level branch office of the First National Bank of Larn.");
-	}
+}
 static void
 banktitle(str)
-	char *str;
-	{
-	nosignal = 1; /* disable signals */
-	clear();  lprcat(str);
-	if (outstanding_taxes>0)
-		{
-		register int i;
-		lprcat("\n\nThe Larn Revenue Service has ordered that your account be frozen until all\n"); beep();
-		lprintf("levied taxes have been paid.  They have also told us that you owe %d gp in\n",(long)outstanding_taxes);
+	char           *str;
+{
+	nosignal = 1;		/* disable signals */
+	clear();
+	lprcat(str);
+	if (outstanding_taxes > 0) {
+		int    i;
+		lprcat("\n\nThe Larn Revenue Service has ordered that your account be frozen until all\n");
+		beep();
+		lprintf("levied taxes have been paid.  They have also told us that you owe %d gp in\n", (long) outstanding_taxes);
 		lprcat("taxes, and we must comply with them. We cannot serve you at this time.  Sorry.\n");
 		lprcat("We suggest you go to the LRS office and pay your taxes.\n");
-		cursors();	
-		lprcat("\nPress "); standout("escape"); lprcat(" to leave: "); lflush();
-		i=0;
-		while (i!='\33') i=getchar();
-		drawscreen();  nosignal = 0; /* enable signals */ return;
-		}
+		cursors();
+		lprcat("\nPress ");
+		standout("escape");
+		lprcat(" to leave: ");
+		lflush();
+		i = 0;
+		while (i != '\33')
+			i = getchar();
+		drawscreen();
+		nosignal = 0;	/* enable signals */
+		return;
+	}
 	lprcat("\n\n\tGemstone\t      Appraisal\t\tGemstone\t      Appraisal");
-	obanksub();		nosignal = 0; /* enable signals */
+	obanksub();
+	nosignal = 0;		/* enable signals */
 	drawscreen();
-	}
+}
 
 /*
  *	function to put interest on your bank account
  */
+void
 ointerest()
-	{
-	register int i;
-	if (c[BANKACCOUNT]<0) c[BANKACCOUNT] = 0;
-	else if ((c[BANKACCOUNT]>0) && (c[BANKACCOUNT]<500000))
-		{
-		i = (gltime-lasttime)/100; /* # mobuls elapsed */
-		while ((i-- > 0) && (c[BANKACCOUNT]<500000))
-			c[BANKACCOUNT] += c[BANKACCOUNT]/250;
-		if (c[BANKACCOUNT]>500000) c[BANKACCOUNT]=500000; /* interest limit */
-		}
-	lasttime = (gltime/100)*100;
+{
+	int    i;
+	if (c[BANKACCOUNT] < 0)
+		c[BANKACCOUNT] = 0;
+	else if ((c[BANKACCOUNT] > 0) && (c[BANKACCOUNT] < 500000)) {
+		i = (gltime - lasttime) / 100;	/* # mobuls elapsed */
+		while ((i-- > 0) && (c[BANKACCOUNT] < 500000))
+			c[BANKACCOUNT] += c[BANKACCOUNT] / 250;
+		if (c[BANKACCOUNT] > 500000)
+			c[BANKACCOUNT] = 500000;	/* interest limit */
 	}
+	lasttime = (gltime / 100) * 100;
+}
 
-static short gemorder[26]={0};	/* the reference to screen location for each */
-static long gemvalue[26]={0};	/* the appraisal of the gems */
+static short    gemorder[26] = {0};	/* the reference to screen location
+					 * for each */
+static long     gemvalue[26] = {0};	/* the appraisal of the gems */
+void
 obanksub()
-	{
-	unsigned long amt;
-	register int i,k;
-	ointerest();	/* credit any needed interest */
-
-	for (k=i=0; i<26; i++)
-		switch(iven[i])
-			{
-			case OLARNEYE: case ODIAMOND: case OEMERALD: 
-			case ORUBY: case OSAPPHIRE:
-
-					if (iven[i]==OLARNEYE)
-						{
-						gemvalue[i]=250000-((gltime*7)/100)*100;
-						if (gemvalue[i]<50000) gemvalue[i]=50000;
-						}
-					else gemvalue[i] = (255&ivenarg[i])*100;
-					gemorder[i]=k;
-					cursor( (k%2)*40+1 , (k>>1)+4 );
-					lprintf("%c) %s",i+'a',objectname[iven[i]]);
-					cursor( (k%2)*40+33 , (k>>1)+4 );
-					lprintf("%5d",(long)gemvalue[i]);  k++;
-			};
-	cursor(31,17); lprintf("You have %8d gold pieces in the bank.",(long)c[BANKACCOUNT]);
-	cursor(40,18); lprintf("You have %8d gold pieces",(long)c[GOLD]);
-	if (c[BANKACCOUNT]+c[GOLD] >= 500000)
+{
+	unsigned long   amt;
+	int    i, k;
+	ointerest();		/* credit any needed interest */
+
+	for (k = i = 0; i < 26; i++)
+		switch (iven[i]) {
+		case OLARNEYE:
+		case ODIAMOND:
+		case OEMERALD:
+		case ORUBY:
+		case OSAPPHIRE:
+
+			if (iven[i] == OLARNEYE) {
+				gemvalue[i] = 250000 - ((gltime * 7) / 100) * 100;
+				if (gemvalue[i] < 50000)
+					gemvalue[i] = 50000;
+			} else
+				gemvalue[i] = (255 & ivenarg[i]) * 100;
+			gemorder[i] = k;
+			cursor((k % 2) * 40 + 1, (k >> 1) + 4);
+			lprintf("%c) %s", i + 'a', objectname[iven[i]]);
+			cursor((k % 2) * 40 + 33, (k >> 1) + 4);
+			lprintf("%5d", (long) gemvalue[i]);
+			k++;
+		};
+	cursor(31, 17);
+	lprintf("You have %8d gold pieces in the bank.", (long) c[BANKACCOUNT]);
+	cursor(40, 18);
+	lprintf("You have %8d gold pieces", (long) c[GOLD]);
+	if (c[BANKACCOUNT] + c[GOLD] >= 500000)
 		lprcat("\nNote:  Larndom law states that only deposits under 500,000gp  can earn interest.");
-	while (1)
-		{
-		cl_dn(1,20);
-		lprcat("\nYour wish? [("); standout("d"); lprcat(") deposit, (");
-		standout("w"); lprcat(") withdraw, ("); standout("s");
-		lprcat(") sell a stone, or "); standout("escape"); lprcat("]  ");
-		yrepcount=0;
-		i=0; while (i!='d' && i!='w' && i!='s' && i!='\33') i=getchar();
-		switch(i)
-			{
-			case 'd':	lprcat("deposit\nHow much? ");	amt = readnum((long)c[GOLD]);
-						if (amt<0) { lprcat("\nSorry, but we can't take negative gold!"); nap(2000); amt=0; } else
-						if (amt>c[GOLD])
-						  { lprcat("  You don't have that much.");  nap(2000); }
-						else { c[GOLD] -= amt;  c[BANKACCOUNT] += amt; }
-						break;
-
-			case 'w':	lprcat("withdraw\nHow much? ");	amt = readnum((long)c[BANKACCOUNT]);
-						if (amt<0) { lprcat("\nSorry, but we don't have any negative gold!");  nap(2000); amt=0; }
-						else if (amt > c[BANKACCOUNT])
-						  { lprcat("\nYou don't have that much in the bank!"); nap(2000); }
-						else { c[GOLD] += amt;  c[BANKACCOUNT] -= amt; }		
-						break;
-
-			case 's':	lprcat("\nWhich stone would you like to sell? ");
-						i=0; while ((i<'a' || i>'z') && i!='*') i=getchar();
-						if (i=='*')
-						  for (i=0; i<26; i++)
-							{
-							if (gemvalue[i]) 
-								{
-								c[GOLD]+=gemvalue[i];  iven[i]=0;
-								gemvalue[i]=0;	k = gemorder[i];
-								cursor( (k%2)*40+1 , (k>>1)+4 );
-								lprintf("%39s","");
-								}
-							}
-						else
-							{
-							if (gemvalue[i=i-'a']==0) 
-								{
-								lprintf("\nItem %c is not a gemstone!",i+'a');
-								nap(2000); break;
-								}
-							c[GOLD]+=gemvalue[i];  iven[i]=0;
-							gemvalue[i]=0;	k = gemorder[i];
-							cursor( (k%2)*40+1 , (k>>1)+4 ); lprintf("%39s","");
-							}
-						break;
-
-			case '\33':	return;
-			};
-		cursor(40,17); lprintf("%8d",(long)c[BANKACCOUNT]);
-		cursor(49,18); lprintf("%8d",(long)c[GOLD]);
-		}
+	while (1) {
+		cl_dn(1, 20);
+		lprcat("\nYour wish? [(");
+		standout("d");
+		lprcat(") deposit, (");
+		standout("w");
+		lprcat(") withdraw, (");
+		standout("s");
+		lprcat(") sell a stone, or ");
+		standout("escape");
+		lprcat("]  ");
+		yrepcount = 0;
+		i = 0;
+		while (i != 'd' && i != 'w' && i != 's' && i != '\33')
+			i = getchar();
+		switch (i) {
+		case 'd':
+			lprcat("deposit\nHow much? ");
+			amt = readnum((long) c[GOLD]);
+			if (amt < 0) {
+				lprcat("\nSorry, but we can't take negative gold!");
+				nap(2000);
+				amt = 0;
+			} else if (amt > c[GOLD]) {
+				lprcat("  You don't have that much.");
+				nap(2000);
+			} else {
+				c[GOLD] -= amt;
+				c[BANKACCOUNT] += amt;
+			}
+			break;
+
+		case 'w':
+			lprcat("withdraw\nHow much? ");
+			amt = readnum((long) c[BANKACCOUNT]);
+			if (amt < 0) {
+				lprcat("\nSorry, but we don't have any negative gold!");
+				nap(2000);
+				amt = 0;
+			} else if (amt > c[BANKACCOUNT]) {
+				lprcat("\nYou don't have that much in the bank!");
+				nap(2000);
+			} else {
+				c[GOLD] += amt;
+				c[BANKACCOUNT] -= amt;
+			}
+			break;
+
+		case 's':
+			lprcat("\nWhich stone would you like to sell? ");
+			i = 0;
+			while ((i < 'a' || i > 'z') && i != '*')
+				i = getchar();
+			if (i == '*')
+				for (i = 0; i < 26; i++) {
+					if (gemvalue[i]) {
+						c[GOLD] += gemvalue[i];
+						iven[i] = 0;
+						gemvalue[i] = 0;
+						k = gemorder[i];
+						cursor((k % 2) * 40 + 1, (k >> 1) + 4);
+						lprintf("%39s", "");
+					}
+				}
+			else {
+				if (gemvalue[i = i - 'a'] == 0) {
+					lprintf("\nItem %c is not a gemstone!", i + 'a');
+					nap(2000);
+					break;
+				}
+				c[GOLD] += gemvalue[i];
+				iven[i] = 0;
+				gemvalue[i] = 0;
+				k = gemorder[i];
+				cursor((k % 2) * 40 + 1, (k >> 1) + 4);
+				lprintf("%39s", "");
+			}
+			break;
+
+		case '\33':
+			return;
+		};
+		cursor(40, 17);
+		lprintf("%8d", (long) c[BANKACCOUNT]);
+		cursor(49, 18);
+		lprintf("%8d", (long) c[GOLD]);
 	}
+}
 
 /*
 	subroutine to appraise any stone for the bank
  */
+void
 appraise(gemstone)
-	register int gemstone;
-	{
-	register int j,amt;
-	for (j=0; j<26; j++)
-	  if (iven[j]==gemstone)
-		{
-		lprintf("\nI see you have %s",objectname[gemstone]);
-		if (gemstone==OLARNEYE) lprcat("  I must commend you.  I didn't think\nyou could get it.");
-		lprcat("  Shall I appraise it for you? ");  yrepcount=0;
-		if (getyn()=='y')
-			{
-			lprcat("yes.\n  Just one moment please \n");  nap(1000);
-			if (gemstone==OLARNEYE)
-				{
-				amt = 250000-((gltime*7)/100)*100;
-				if (amt<50000) amt=50000;
-				}
-			else amt = (255 & ivenarg[j]) * 100;
-			lprintf("\nI can see this is an excellent stone, It is worth %d",(long)amt);
-			lprcat("\nWould you like to sell it to us? ");  yrepcount=0;
-			if (getyn()=='y') { lprcat("yes\n"); c[GOLD]+=amt;  iven[j]=0; }
-			else lprcat("no thank you.\n");
-			if (gemstone==OLARNEYE) lprcat("It is, of course, your privilege to keep the stone\n"); 
-			}
-		else lprcat("no\nO. K.\n");
+	int    gemstone;
+{
+	int    j, amt;
+	for (j = 0; j < 26; j++)
+		if (iven[j] == gemstone) {
+			lprintf("\nI see you have %s", objectname[gemstone]);
+			if (gemstone == OLARNEYE)
+				lprcat("  I must commend you.  I didn't think\nyou could get it.");
+			lprcat("  Shall I appraise it for you? ");
+			yrepcount = 0;
+			if (getyn() == 'y') {
+				lprcat("yes.\n  Just one moment please \n");
+				nap(1000);
+				if (gemstone == OLARNEYE) {
+					amt = 250000 - ((gltime * 7) / 100) * 100;
+					if (amt < 50000)
+						amt = 50000;
+				} else
+					amt = (255 & ivenarg[j]) * 100;
+				lprintf("\nI can see this is an excellent stone, It is worth %d", (long) amt);
+				lprcat("\nWould you like to sell it to us? ");
+				yrepcount = 0;
+				if (getyn() == 'y') {
+					lprcat("yes\n");
+					c[GOLD] += amt;
+					iven[j] = 0;
+				} else
+					lprcat("no thank you.\n");
+				if (gemstone == OLARNEYE)
+					lprcat("It is, of course, your privilege to keep the stone\n");
+			} else
+				lprcat("no\nO. K.\n");
 		}
-	}
+}
 /*
 	function for the trading post
  */
-static otradhead()
-	{
-    clear();
+static void
+otradhead()
+{
+	clear();
 	lprcat("Welcome to the Larn Trading Post.  We buy items that explorers no longer find\n");
-    lprcat("useful.  Since the condition of the items you bring in is not certain,\n");
-    lprcat("and we incur great expense in reconditioning the items, we usually pay\n");
-    lprcat("only 20% of their value were they to be new.  If the items are badly\n");
+	lprcat("useful.  Since the condition of the items you bring in is not certain,\n");
+	lprcat("and we incur great expense in reconditioning the items, we usually pay\n");
+	lprcat("only 20% of their value were they to be new.  If the items are badly\n");
 	lprcat("damaged, we will pay only 10% of their new value.\n\n");
-	}
+}
 
+void
 otradepost()
-  {
-  register int i,j,value,isub,izarg;
-  dnditm = dndcount = 0;
-  nosignal = 1; /* disable signals */
-  resetscroll();	otradhead();
-  while (1)
-	{
-	lprcat("\nWhat item do you want to sell to us ["); standout("*");
-	lprcat(" for list, or "); standout("escape"); lprcat("] ? ");
-	i=0; while (i>'z' || (i<'a' && i!='*' && i!='\33' && i!='.')) i=getchar();
-	if (i == '\33')
-		{ setscroll(); recalc(); drawscreen(); nosignal=0; /* enable signals */ return; }
-	isub = i - 'a';		j=0;
-	if (iven[isub]==OSCROLL) if (scrollname[ivenarg[isub]][0]==0)
-		{ j=1; cnsitm(); }	/* can't sell unidentified item */
-	if (iven[isub]==OPOTION) if (potionname[ivenarg[isub]][0]==0)
-		{ j=1; cnsitm(); }	/* can't sell unidentified item */
-	if (!j)
-	  if (i=='*') { clear(); qshowstr(); otradhead(); }
-	else  if (iven[isub]==0)  lprintf("\nYou don't have item %c!",isub+'a');
-	else
-		{
-		for (j=0; j<maxitm; j++)
-		  if ((itm[j].obj == iven[isub]) || (iven[isub] == ODIAMOND) || (iven[isub] == ORUBY) || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE))
-			{
-			srcount=0;  show3(isub);	/* show what the item was */
-			if ((iven[isub] == ODIAMOND) || (iven[isub] == ORUBY)
-				|| (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE))
-				value = 20*ivenarg[isub];
-			else
-			if ((itm[j].obj == OSCROLL) || (itm[j].obj == OPOTION))  value = 2*itm[j+ivenarg[isub]].price;
-			else
-				{
-				izarg=ivenarg[isub];  value = itm[j].price;	/* appreciate if a +n object */
-				if (izarg >= 0) value *= 2;
-				while ((izarg-- > 0) && ((value=14*(67+value)/10) < 500000));
-				}
-			lprintf("\nItem (%c) is worth %d gold pieces to us.  Do you want to sell it? ",i,(long)value);
-			yrepcount=0;
-			if (getyn()=='y')
-				{
-				lprcat("yes\n"); c[GOLD]+=value;
-				if (c[WEAR] == isub) c[WEAR] = -1;
-				if (c[WIELD] == isub) c[WIELD] = -1;
-				if (c[SHIELD] == isub) c[SHIELD] = -1;
-				adjustcvalues(iven[isub],ivenarg[isub]);
-				iven[isub]=0;
-				}
-			else lprcat("no thanks.\n");
-			j = maxitm+100;	/* get out of the inner loop */
-			}
-		if (j <= maxitm+2) lprcat("\nSo sorry, but we are not authorized to accept that item.");
+{
+	int    i, j, value, isub, izarg;
+	dnditm = dndcount = 0;
+	nosignal = 1;		/* disable signals */
+	resetscroll();
+	otradhead();
+	while (1) {
+		lprcat("\nWhat item do you want to sell to us [");
+		standout("*");
+		lprcat(" for list, or ");
+		standout("escape");
+		lprcat("] ? ");
+		i = 0;
+		while (i > 'z' || (i < 'a' && i != '*' && i != '\33' && i != '.'))
+			i = getchar();
+		if (i == '\33') {
+			setscroll();
+			recalc();
+			drawscreen();
+			nosignal = 0;	/* enable signals */
+			return;
 		}
+		isub = i - 'a';
+		j = 0;
+		if (iven[isub] == OSCROLL)
+			if (scrollname[ivenarg[isub]][0] == 0) {
+				j = 1;
+				cnsitm();
+			}	/* can't sell unidentified item */
+		if (iven[isub] == OPOTION)
+			if (potionname[ivenarg[isub]][0] == 0) {
+				j = 1;
+				cnsitm();
+			}	/* can't sell unidentified item */
+		if (!j)
+			if (i == '*') {
+				clear();
+				qshowstr();
+				otradhead();
+			} else if (iven[isub] == 0)
+				lprintf("\nYou don't have item %c!", isub + 'a');
+			else {
+				for (j = 0; j < maxitm; j++)
+					if ((itm[j].obj == iven[isub]) || (iven[isub] == ODIAMOND) || (iven[isub] == ORUBY) || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE)) {
+						srcount = 0;
+						show3(isub);	/* show what the item
+								 * was */
+						if ((iven[isub] == ODIAMOND) || (iven[isub] == ORUBY)
+						    || (iven[isub] == OEMERALD) || (iven[isub] == OSAPPHIRE))
+							value = 20 * ivenarg[isub];
+						else if ((itm[j].obj == OSCROLL) || (itm[j].obj == OPOTION))
+							value = 2 * itm[j + ivenarg[isub]].price;
+						else {
+							izarg = ivenarg[isub];
+							value = itm[j].price;	/* appreciate if a +n
+										 * object */
+							if (izarg >= 0)
+								value *= 2;
+							while ((izarg-- > 0) && ((value = 14 * (67 + value) / 10) < 500000));
+						}
+						lprintf("\nItem (%c) is worth %d gold pieces to us.  Do you want to sell it? ", i, (long) value);
+						yrepcount = 0;
+						if (getyn() == 'y') {
+							lprcat("yes\n");
+							c[GOLD] += value;
+							if (c[WEAR] == isub)
+								c[WEAR] = -1;
+							if (c[WIELD] == isub)
+								c[WIELD] = -1;
+							if (c[SHIELD] == isub)
+								c[SHIELD] = -1;
+							adjustcvalues(iven[isub], ivenarg[isub]);
+							iven[isub] = 0;
+						} else
+							lprcat("no thanks.\n");
+						j = maxitm + 100;	/* get out of the inner
+									 * loop */
+					}
+				if (j <= maxitm + 2)
+					lprcat("\nSo sorry, but we are not authorized to accept that item.");
+			}
 	}
-  }
+}
 
+void
 cnsitm()
-	{ lprcat("\nSorry, we can't accept unidentified objects."); }
+{
+	lprcat("\nSorry, we can't accept unidentified objects.");
+}
 
 /*
  *	for the Larn Revenue Service
  */
+void
 olrs()
-	{
-	register int i,first;
-	unsigned long amt;
-	first = nosignal = 1; /* disable signals */
-	clear();  resetscroll(); cursor(1,4);
+{
+	int    i, first;
+	unsigned long   amt;
+	first = nosignal = 1;	/* disable signals */
+	clear();
+	resetscroll();
+	cursor(1, 4);
 	lprcat("Welcome to the Larn Revenue Service district office.  How can we help you?");
-	while (1)
-		{
-		if (first) { first=0; goto nxt; }
+	while (1) {
+		if (first) {
+			first = 0;
+			goto nxt;
+		}
 		cursors();
 		lprcat("\n\nYour wish? [(");
 		standout("p");
 		lprcat(") pay taxes, or ");
 		standout("escape");
-		lprcat("]  ");  yrepcount=0;
-		i=0; while (i!='p' && i!='\33') i=getchar();
-		switch(i)
-			{
-			case 'p':	lprcat("pay taxes\nHow much? "); amt = readnum((long)c[GOLD]);
-						if (amt<0) { lprcat("\nSorry, but we can't take negative gold\n"); amt=0; } else
-						if (amt>c[GOLD])	lprcat("  You don't have that much.\n");
-						else  c[GOLD] -= paytaxes((long)amt);
-						break;
-
-			case '\33':	nosignal = 0; /* enable signals */
-						setscroll(); drawscreen();	return;
-			};
-
-nxt:	cursor(1,6);
-		if (outstanding_taxes>0)
-			lprintf("You presently owe %d gp in taxes.  ",(long)outstanding_taxes);
+		lprcat("]  ");
+		yrepcount = 0;
+		i = 0;
+		while (i != 'p' && i != '\33')
+			i = getchar();
+		switch (i) {
+		case 'p':
+			lprcat("pay taxes\nHow much? ");
+			amt = readnum((long) c[GOLD]);
+			if (amt < 0) {
+				lprcat("\nSorry, but we can't take negative gold\n");
+				amt = 0;
+			} else if (amt > c[GOLD])
+				lprcat("  You don't have that much.\n");
+			else
+				c[GOLD] -= paytaxes((long) amt);
+			break;
+
+		case '\33':
+			nosignal = 0;	/* enable signals */
+			setscroll();
+			drawscreen();
+			return;
+		};
+
+nxt:		cursor(1, 6);
+		if (outstanding_taxes > 0)
+			lprintf("You presently owe %d gp in taxes.  ", (long) outstanding_taxes);
 		else
 			lprcat("You do not owe us any taxes.           ");
-		cursor(1,8);
-		if (c[GOLD]>0)
-			lprintf("You have %6d gp.    ",(long)c[GOLD]);
+		cursor(1, 8);
+		if (c[GOLD] > 0)
+			lprintf("You have %6d gp.    ", (long) c[GOLD]);
 		else
 			lprcat("You have no gold pieces.  ");
-		}
 	}
+}