initial import of NetBSD tree

1 files changed, 700 insertions, 0 deletions

diff --git a/games/larn/store.c b/games/larn/store.c
new file mode 100644
index 00000000000..3f49ba61faf
--- /dev/null
+++ b/games/larn/store.c
@@ -0,0 +1,700 @@
+/*	$NetBSD: store.c,v 1.4 1995/03/23 08:34:20 cgd Exp $	*/
+
+/*-
+ * Copyright (c) 1988 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+#if 0
+static char sccsid[] = "@(#)store.c	5.4 (Berkeley) 5/13/91";
+#else
+static char rcsid[] = "$NetBSD: store.c,v 1.4 1995/03/23 08:34:20 cgd Exp $";
+#endif
+#endif /* not lint */
+
+/*	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	}
+ };
+
+/*
+	function for the dnd store
+ */
+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();
+
+dnd_hed()
+	{
+	register int i;
+	for (i=dnditm; i<26+dnditm; i++)	dnditem(i);
+	cursor(50,18); lprcat("You have ");
+	}
+
+static void
+handsfull()
+{
+	lprcat("\nYou can't carry anything more!");
+	lflush();
+	nap(2200);
+}
+
+static void
+outofstock()
+{
+	lprcat("\nSorry, but we are out of that item.");
+	lflush();
+	nap(2200);
+}
+
+static void nogold()
+{
+	lprcat("\nYou don't have enough gold to pay for that!");
+	lflush();
+	nap(2200);
+}
+
+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;
+	}
+
+  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)
+
+	to print the item list;  used in dndstore() enter with the index into itm
+ */
+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));
+	}
+
+
+/*
+	for the college of larn
+ */
+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
+ */
+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*/
+	lprc('\n');
+	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");
+	lprc('\n');
+	if (course[3]==0) lprcat("\t\td)  Applied Wizardry            20 mobuls");
+	lprc('\n');
+	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");
+	lprc('\n');
+	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");
+
+	lprcat("\n\n\t\tAll courses cost 250 gold pieces.");
+	cursor(30,18);
+	lprcat("You are presently carrying ");
+	}
+
+oschool()
+	{
+	register 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; }
+		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)
+			  {
+			  gtime += 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 */
+			  }
+			nap(1000);
+			}
+		}
+	}
+
+/*
+ *	for the first national bank of Larn
+ */
+int lasttime=0;	/* last time he was in bank */
+static void banktitle();
+
+obank()
+	{
+	banktitle("    Welcome to the First National Bank of Larn.");
+	}
+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);
+		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;
+		}
+	lprcat("\n\n\tGemstone\t      Appraisal\t\tGemstone\t      Appraisal");
+	obanksub();		nosignal = 0; /* enable signals */
+	drawscreen();
+	}
+
+/*
+ *	function to put interest on your bank account
+ */
+ointerest()
+	{
+	register int i;
+	if (c[BANKACCOUNT]<0) c[BANKACCOUNT] = 0;
+	else if ((c[BANKACCOUNT]>0) && (c[BANKACCOUNT]<500000))
+		{
+		i = (gtime-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 = (gtime/100)*100;
+	}
+
+static short gemorder[26]={0};	/* the reference to screen location for each */
+static long gemvalue[26]={0};	/* the appraisal of the gems */
+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-((gtime*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]);
+		}
+	}
+
+/*
+	subroutine to appraise any stone for the bank
+ */
+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-((gtime*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();
+	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("damaged, we will pay only 10% of their new value.\n\n");
+	}
+
+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.");
+		}
+	}
+  }
+
+cnsitm()
+	{ lprcat("\nSorry, we can't accept unidentified objects."); }
+
+/*
+ *	for the Larn Revenue Service
+ */
+olrs()
+	{
+	register 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; }
+		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);
+		else
+			lprcat("You do not owe us any taxes.           ");
+		cursor(1,8);
+		if (c[GOLD]>0)
+			lprintf("You have %6d gp.    ",(long)c[GOLD]);
+		else
+			lprcat("You have no gold pieces.  ");
+		}
+	}