[unix-history] / usr / src / games / larn / display.c

/*	display.c		Larn is copyrighted 1986 by Noah Morgan. */
#include "header.h"
#define makecode(_a,_b,_c) (((_a)<<16) + ((_b)<<8) + (_c))

static int minx,maxx,miny,maxy,k,m;
static char bot1f=0,bot2f=0,bot3f=0;
char always=0;
/*
	bottomline()

	now for the bottom line of the display
 */
bottomline()
	{	recalc();	bot1f=1;	}
bottomhp()
	{	bot2f=1;	}
bottomspell()
	{	bot3f=1;	}
bottomdo()
	{
	if (bot1f) { bot3f=bot1f=bot2f=0; bot_linex(); return; }
	if (bot2f) { bot2f=0; bot_hpx(); }
	if (bot3f) { bot3f=0; bot_spellx(); }
	}

bot_linex()
	{
	register int i;
	if (cbak[SPELLS] <= -50 || (always))
		{
		cursor( 1,18);
		if (c[SPELLMAX]>99)  lprintf("Spells:%3d(%3d)",(long)c[SPELLS],(long)c[SPELLMAX]);
						else lprintf("Spells:%3d(%2d) ",(long)c[SPELLS],(long)c[SPELLMAX]);
		lprintf(" AC: %-3d  WC: %-3d  Level",(long)c[AC],(long)c[WCLASS]);
		if (c[LEVEL]>99) lprintf("%3d",(long)c[LEVEL]);
					else lprintf(" %-2d",(long)c[LEVEL]);
		lprintf(" Exp: %-9d %s\n",(long)c[EXPERIENCE],class[c[LEVEL]-1]);
		lprintf("HP: %3d(%3d) STR=%-2d INT=%-2d ",
			(long)c[HP],(long)c[HPMAX],(long)(c[STRENGTH]+c[STREXTRA]),(long)c[INTELLIGENCE]);
		lprintf("WIS=%-2d CON=%-2d DEX=%-2d CHA=%-2d LV:",
			(long)c[WISDOM],(long)c[CONSTITUTION],(long)c[DEXTERITY],(long)c[CHARISMA]);

		if ((level==0) || (wizard))  c[TELEFLAG]=0;
		if (c[TELEFLAG])  lprcat(" ?");  else  lprcat(levelname[level]);
		lprintf("  Gold: %-6d",(long)c[GOLD]);
		always=1;  botside();
		c[TMP] = c[STRENGTH]+c[STREXTRA];
		for (i=0; i<100; i++) cbak[i]=c[i];
		return;
		}

	botsub(makecode(SPELLS,8,18),"%3d");
	if (c[SPELLMAX]>99)  botsub(makecode(SPELLMAX,12,18),"%3d)");
					else botsub(makecode(SPELLMAX,12,18),"%2d) ");
	botsub(makecode(HP,5,19),"%3d");
	botsub(makecode(HPMAX,9,19),"%3d");
	botsub(makecode(AC,21,18),"%-3d");
	botsub(makecode(WCLASS,30,18),"%-3d");
	botsub(makecode(EXPERIENCE,49,18),"%-9d");
	if (c[LEVEL] != cbak[LEVEL])
		{ cursor(59,18);	lprcat(class[c[LEVEL]-1]);  }
	if (c[LEVEL]>99) botsub(makecode(LEVEL,40,18),"%3d");
				else botsub(makecode(LEVEL,40,18)," %-2d");
	c[TMP] = c[STRENGTH]+c[STREXTRA];	botsub(makecode(TMP,18,19),"%-2d");
	botsub(makecode(INTELLIGENCE,25,19),"%-2d");
	botsub(makecode(WISDOM,32,19),"%-2d");
	botsub(makecode(CONSTITUTION,39,19),"%-2d");
	botsub(makecode(DEXTERITY,46,19),"%-2d");
	botsub(makecode(CHARISMA,53,19),"%-2d");
	if ((level != cbak[CAVELEVEL]) || (c[TELEFLAG] != cbak[TELEFLAG]))
		{
		if ((level==0) || (wizard))  c[TELEFLAG]=0;
		cbak[TELEFLAG] = c[TELEFLAG];
		cbak[CAVELEVEL] = level;	cursor(59,19);
		if (c[TELEFLAG])  lprcat(" ?");  else  lprcat(levelname[level]);
		}
	botsub(makecode(GOLD,69,19),"%-6d");
	botside();
	}

/*
	special subroutine to update only the gold number on the bottomlines
	called from ogold()
 */
bottomgold()
	{
	botsub(makecode(GOLD,69,19),"%-6d");
/*	botsub(GOLD,"%-6d",69,19); */
	}

/*
	special routine to update hp and level fields on bottom lines
	called in monster.c hitplayer() and spattack()
 */
bot_hpx()
	{
	if (c[EXPERIENCE] != cbak[EXPERIENCE])
		{
		recalc();	 bot_linex();
		}
	else botsub(makecode(HP,5,19),"%3d");	
	}

/*
	special routine to update number of spells called from regen()
 */
bot_spellx()
	{
	botsub(makecode(SPELLS,9,18),"%2d");
	}

/*
	common subroutine for a more economical bottomline()
 */
static struct bot_side_def
	{
	int typ;
	char *string;
	}
	bot_data[] =
	{
	STEALTH,"stealth",		UNDEADPRO,"undead pro",		SPIRITPRO,"spirit pro",
	CHARMCOUNT,"Charm",		TIMESTOP,"Time Stop",		HOLDMONST,"Hold Monst",
	GIANTSTR,"Giant Str",	FIRERESISTANCE,"Fire Resit", DEXCOUNT,"Dexterity",
	STRCOUNT,"Strength",	SCAREMONST,"Scare",			HASTESELF,"Haste Self",
	CANCELLATION,"Cancel",	INVISIBILITY,"Invisible",	ALTPRO,"Protect 3",
	PROTECTIONTIME,"Protect 2", WTW,"Wall-Walk"
	};

botside()
	{
	register int i,idx;
	for (i=0; i<17; i++)
		{
		idx = bot_data[i].typ;
		if ((always) || (c[idx] != cbak[idx]))
		   {
		   if ((always) || (cbak[idx] == 0))
				{ if (c[idx]) { cursor(70,i+1); lprcat(bot_data[i].string); } }  else
		   if (c[idx]==0)     { cursor(70,i+1); lprcat("          "); }
		   cbak[idx]=c[idx];
		   }
		}
	always=0;
	}

static botsub(idx,str)
	register int idx;
	char *str;
	{
	register int x,y;
	y = idx & 0xff;		x = (idx>>8) & 0xff;	  idx >>= 16;
	if (c[idx] != cbak[idx])
		{ cbak[idx]=c[idx];  cursor(x,y);  lprintf(str,(long)c[idx]); }
	}

/*
 *	subroutine to draw only a section of the screen
 *	only the top section of the screen is updated.  If entire lines are being
 *	drawn, then they will be cleared first.
 */
int d_xmin=0,d_xmax=MAXX,d_ymin=0,d_ymax=MAXY;	/* for limited screen drawing */
draws(xmin,xmax,ymin,ymax)
	int xmin,xmax,ymin,ymax;
	{
	register int i,idx;
	if (xmin==0 && xmax==MAXX) /* clear section of screen as needed */
		{
		if (ymin==0) cl_up(79,ymax);
		else for (i=ymin; i<ymin; i++)  cl_line(1,i+1);
		xmin = -1;
		}
	d_xmin=xmin;	d_xmax=xmax;	d_ymin=ymin;	d_ymax=ymax;	/* for limited screen drawing */
	drawscreen();
	if (xmin<=0 && xmax==MAXX) /* draw stuff on right side of screen as needed*/
		{
		for (i=ymin; i<ymax; i++)
			{
			idx = bot_data[i].typ;
			if (c[idx])
				{
				cursor(70,i+1); lprcat(bot_data[i].string);
				}
			cbak[idx]=c[idx];
			}
		}
	}

/*
	drawscreen()

	subroutine to redraw the whole screen as the player knows it
 */
char screen[MAXX][MAXY],d_flag;	/* template for the screen */
drawscreen()
	{
	register int i,j,k;
	int lastx,lasty;  /* variables used to optimize the object printing */
	if (d_xmin==0 && d_xmax==MAXX && d_ymin==0 && d_ymax==MAXY)
		{
		d_flag=1;  clear(); /* clear the screen */
		}
	else 
		{
		d_flag=0;  cursor(1,1);
		}
	if (d_xmin<0)
		d_xmin=0; /* d_xmin=-1 means display all without bottomline */

	for (i=d_ymin; i<d_ymax; i++)
	  for (j=d_xmin; j<d_xmax; j++)
		if (know[j][i]==0)  screen[j][i] = ' ';  else
		if (k=mitem[j][i])  screen[j][i] = monstnamelist[k];  else
		if ((k=item[j][i])==OWALL) screen[j][i] = '#';
		else screen[j][i] = ' ';

	for (i=d_ymin; i<d_ymax; i++)
		{
		j=d_xmin;  while ((screen[j][i]==' ') && (j<d_xmax)) j++;
		/* was m=0 */
		if (j >= d_xmax)  m=d_xmin; /* don't search backwards if blank line */
		else
			{	/* search backwards for end of line */
			m=d_xmax-1;  while ((screen[m][i]==' ') && (m>d_xmin)) --m;
			if (j<=m)  cursor(j+1,i+1);  else continue;
			}
		while (j <= m)
			{
			if (j <= m-3) 
				{
				for (k=j; k<=j+3; k++) if (screen[k][i] != ' ') k=1000;
				if (k < 1000)
					{ while(screen[j][i]==' ' && j<=m) j++;  cursor(j+1,i+1); }
				}
			lprc(screen[j++][i]);
			}
		}
	setbold();		/* print out only bold objects now */

	for (lastx=lasty=127, i=d_ymin; i<d_ymax; i++)
		for (j=d_xmin; j<d_xmax; j++)
			{
			if (k=item[j][i])
				if (k != OWALL)
					if ((know[j][i]) && (mitem[j][i]==0))
						if (objnamelist[k]!=' ')
							{
							if (lasty!=i+1 || lastx!=j)
								cursor(lastx=j+1,lasty=i+1); else lastx++;
							lprc(objnamelist[k]);
							}
			}

	resetbold();  if (d_flag)  { always=1; botside(); always=1; bot_linex(); }
	oldx=99;
	d_xmin = 0 , d_xmax = MAXX , d_ymin = 0 , d_ymax = MAXY; /* for limited screen drawing */
	}
\f
/*
	showcell(x,y)

	subroutine to display a cell location on the screen
 */
showcell(x,y)
	int x,y;
	{
	register int i,j,k,m;
	if (c[BLINDCOUNT])  return;	/* see nothing if blind		*/
	if (c[AWARENESS]) { minx = x-3;	maxx = x+3;	miny = y-3;	maxy = y+3; }
			else	  { minx = x-1;	maxx = x+1;	miny = y-1;	maxy = y+1; }

	if (minx < 0) minx=0;		if (maxx > MAXX-1) maxx = MAXX-1;
	if (miny < 0) miny=0;		if (maxy > MAXY-1) maxy = MAXY-1;

	for (j=miny; j<=maxy; j++)
	  for (m=minx; m<=maxx; m++)
		if (know[m][j]==0)
			{
			cursor(m+1,j+1);
			x=maxx;  while (know[x][j]) --x;
			for (i=m; i<=x; i++)
				{
				if ((k=mitem[i][j]) != 0)  lprc(monstnamelist[k]);
				else switch(k=item[i][j])
					{
					case OWALL:  case 0: case OIVTELETRAP:  case OTRAPARROWIV:
					case OIVDARTRAP: case OIVTRAPDOOR:	
						lprc(objnamelist[k]);	break;

					default: setbold(); lprc(objnamelist[k]); resetbold();
					};
				know[i][j]=1;
				}
			m = maxx;
			}
	}

/*
	this routine shows only the spot that is given it.  the spaces around
	these coordinated are not shown
	used in godirect() in monster.c for missile weapons display
 */
show1cell(x,y)
	int x,y;
	{
	if (c[BLINDCOUNT])  return;	/* see nothing if blind		*/
	cursor(x+1,y+1);
	if ((k=mitem[x][y]) != 0)  lprc(monstnamelist[k]);
		else switch(k=item[x][y])
			{
			case OWALL:  case 0:  case OIVTELETRAP:  case OTRAPARROWIV: 
			case OIVDARTRAP: case OIVTRAPDOOR:	
				lprc(objnamelist[k]);	break;

			default: setbold(); lprc(objnamelist[k]); resetbold();
			};
	know[x][y]|=1;	/* we end up knowing about it */
	}

/*
	showplayer()

	subroutine to show where the player is on the screen
	cursor values start from 1 up
 */
showplayer()
	{
	cursor(playerx+1,playery+1);
	oldx=playerx;  oldy=playery;
	}

/*
	moveplayer(dir)

	subroutine to move the player from one room to another
	returns 0 if can't move in that direction or hit a monster or on an object
	else returns 1
	nomove is set to 1 to stop the next move (inadvertent monsters hitting
	players when walking into walls) if player walks off screen or into wall
 */
short diroffx[] = { 0,  0, 1,  0, -1,  1, -1, 1, -1 };
short diroffy[] = { 0,  1, 0, -1,  0, -1, -1, 1,  1 };
moveplayer(dir)
	int dir;			/*	from = present room #  direction = [1-north]
							[2-east] [3-south] [4-west] [5-northeast]
							[6-northwest] [7-southeast] [8-southwest]
						if direction=0, don't move--just show where he is */
	{
	register int k,m,i,j;
	if (c[CONFUSE]) if (c[LEVEL]<rnd(30)) dir=rund(9); /*if confused any dir*/
	k = playerx + diroffx[dir];		m = playery + diroffy[dir];
	if (k<0 || k>=MAXX || m<0 || m>=MAXY) { nomove=1; return(yrepcount = 0); }
	i = item[k][m];			j = mitem[k][m];
	if (i==OWALL && c[WTW]==0) { nomove=1;  return(yrepcount = 0); }		/*	hit a wall	*/
	if (k==33 && m==MAXY-1 && level==1)
		{
		newcavelevel(0); for (k=0; k<MAXX; k++) for (m=0; m<MAXY; m++)
		if (item[k][m]==OENTRANCE)
		  { playerx=k; playery=m; positionplayer();  drawscreen(); return(0); }
		}
	if (j>0)     { hitmonster(k,m);	return(yrepcount = 0); } /* hit a monster*/
	lastpx = playerx;			lastpy = playery;
	playerx = k;		playery = m;
	if (i && i!=OTRAPARROWIV && i!=OIVTELETRAP && i!=OIVDARTRAP && i!=OIVTRAPDOOR) return(yrepcount = 0);  else return(1);
	}
\f
/*
 *	function to show what magic items have been discovered thus far
 *	enter with -1 for just spells, anything else will give scrolls & potions
 */
static int lincount,count;
seemagic(arg)
	int arg;
	{
	register int i,number;
	count = lincount = 0;  nosignal=1;

	if (arg== -1) /* if display spells while casting one */
		{
		for (number=i=0; i<SPNUM; i++) if (spelknow[i]) number++;
		number = (number+2)/3 + 4;	/* # lines needed to display */
		cl_up(79,number);  cursor(1,1);
		}
	else
		{
		resetscroll();  clear();
		}

	lprcat("The magic spells you have discovered thus far:\n\n");
	for (i=0; i<SPNUM; i++)
		if (spelknow[i])
			{ lprintf("%s %-20s ",spelcode[i],spelname[i]);  seepage(); }

	if (arg== -1)
		{
		seepage();  more();	 nosignal=0;
		draws(0,MAXX,0,number);  return;
		}

	lincount += 3;  if (count!=0) { count=2;  seepage(); }

	lprcat("\nThe magic scrolls you have found to date are:\n\n");
	count=0;
	for (i=0; i<MAXSCROLL; i++)
		if (scrollname[i][0])
		  if (scrollname[i][1]!=' ')
			{ lprintf("%-26s",&scrollname[i][1]);  seepage(); }

	lincount += 3;  if (count!=0) { count=2;  seepage(); }

	lprcat("\nThe magic potions you have found to date are:\n\n");
	count=0;
	for (i=0; i<MAXPOTION; i++)
		if (potionname[i][0])
		  if (potionname[i][1]!=' ')
			{ lprintf("%-26s",&potionname[i][1]);  seepage(); }

	if (lincount!=0) more();	nosignal=0;  setscroll();	drawscreen();
	}

/*
 *	subroutine to paginate the seemagic function
 */
seepage()
	{
	if (++count==3)
		{
		lincount++;	count=0;	lprc('\n');
		if (lincount>17) {	lincount=0;  more();  clear();	}
		}
	}
Commit	Line	Data
b96be5a8 KB	1	/* display.c Larn is copyrighted 1986 by Noah Morgan. */
	2	#include "header.h"
	3	#define makecode(_a,_b,_c) (((_a)<<16) + ((_b)<<8) + (_c))
	4
	5	static int minx,maxx,miny,maxy,k,m;
	6	static char bot1f=0,bot2f=0,bot3f=0;
	7	char always=0;
	8	/*
	9	bottomline()
	10
	11	now for the bottom line of the display
	12	*/
	13	bottomline()
	14	{ recalc(); bot1f=1; }
	15	bottomhp()
	16	{ bot2f=1; }
	17	bottomspell()
	18	{ bot3f=1; }
	19	bottomdo()
	20	{
	21	if (bot1f) { bot3f=bot1f=bot2f=0; bot_linex(); return; }
	22	if (bot2f) { bot2f=0; bot_hpx(); }
	23	if (bot3f) { bot3f=0; bot_spellx(); }
	24	}
	25
	26	bot_linex()
	27	{
	28	register int i;
	29	if (cbak[SPELLS] <= -50 \|\| (always))
	30	{
	31	cursor( 1,18);
	32	if (c[SPELLMAX]>99) lprintf("Spells:%3d(%3d)",(long)c[SPELLS],(long)c[SPELLMAX]);
	33	else lprintf("Spells:%3d(%2d) ",(long)c[SPELLS],(long)c[SPELLMAX]);
	34	lprintf(" AC: %-3d WC: %-3d Level",(long)c[AC],(long)c[WCLASS]);
	35	if (c[LEVEL]>99) lprintf("%3d",(long)c[LEVEL]);
	36	else lprintf(" %-2d",(long)c[LEVEL]);
	37	lprintf(" Exp: %-9d %s\n",(long)c[EXPERIENCE],class[c[LEVEL]-1]);
	38	lprintf("HP: %3d(%3d) STR=%-2d INT=%-2d ",
	39	(long)c[HP],(long)c[HPMAX],(long)(c[STRENGTH]+c[STREXTRA]),(long)c[INTELLIGENCE]);
	40	lprintf("WIS=%-2d CON=%-2d DEX=%-2d CHA=%-2d LV:",
	41	(long)c[WISDOM],(long)c[CONSTITUTION],(long)c[DEXTERITY],(long)c[CHARISMA]);
	42
	43	if ((level==0) \|\| (wizard)) c[TELEFLAG]=0;
	44	if (c[TELEFLAG]) lprcat(" ?"); else lprcat(levelname[level]);
	45	lprintf(" Gold: %-6d",(long)c[GOLD]);
	46	always=1; botside();
	47	c[TMP] = c[STRENGTH]+c[STREXTRA];
	48	for (i=0; i<100; i++) cbak[i]=c[i];
	49	return;
	50	}
	51
	52	botsub(makecode(SPELLS,8,18),"%3d");
	53	if (c[SPELLMAX]>99) botsub(makecode(SPELLMAX,12,18),"%3d)");
	54	else botsub(makecode(SPELLMAX,12,18),"%2d) ");
	55	botsub(makecode(HP,5,19),"%3d");
	56	botsub(makecode(HPMAX,9,19),"%3d");
	57	botsub(makecode(AC,21,18),"%-3d");
	58	botsub(makecode(WCLASS,30,18),"%-3d");
	59	botsub(makecode(EXPERIENCE,49,18),"%-9d");
	60	if (c[LEVEL] != cbak[LEVEL])
	61	{ cursor(59,18); lprcat(class[c[LEVEL]-1]); }
	62	if (c[LEVEL]>99) botsub(makecode(LEVEL,40,18),"%3d");
	63	else botsub(makecode(LEVEL,40,18)," %-2d");
	64	c[TMP] = c[STRENGTH]+c[STREXTRA]; botsub(makecode(TMP,18,19),"%-2d");
65	botsub(makecode(INTELLIGENCE,25,19),"%-2d");
66	botsub(makecode(WISDOM,32,19),"%-2d");
67	botsub(makecode(CONSTITUTION,39,19),"%-2d");
68	botsub(makecode(DEXTERITY,46,19),"%-2d");
69	botsub(makecode(CHARISMA,53,19),"%-2d");
70	if ((level != cbak[CAVELEVEL]) \|\| (c[TELEFLAG] != cbak[TELEFLAG]))
71	{
72	if ((level==0) \|\| (wizard)) c[TELEFLAG]=0;
73	cbak[TELEFLAG] = c[TELEFLAG];
74	cbak[CAVELEVEL] = level; cursor(59,19);
75	if (c[TELEFLAG]) lprcat(" ?"); else lprcat(levelname[level]);
76	}
77	botsub(makecode(GOLD,69,19),"%-6d");
78	botside();
79	}
80
81	/*
82	special subroutine to update only the gold number on the bottomlines
83	called from ogold()
84	*/
85	bottomgold()
86	{
87	botsub(makecode(GOLD,69,19),"%-6d");
88	/* botsub(GOLD,"%-6d",69,19); */
89	}
90
91	/*
92	special routine to update hp and level fields on bottom lines
93	called in monster.c hitplayer() and spattack()
94	*/
95	bot_hpx()
96	{
97	if (c[EXPERIENCE] != cbak[EXPERIENCE])
98	{
99	recalc(); bot_linex();
100	}
101	else botsub(makecode(HP,5,19),"%3d");
102	}
103
104	/*
105	special routine to update number of spells called from regen()
106	*/
107	bot_spellx()
108	{
109	botsub(makecode(SPELLS,9,18),"%2d");
110	}
111
112	/*
113	common subroutine for a more economical bottomline()
114	*/
115	static struct bot_side_def
116	{
117	int typ;
118	char *string;
119	}
120	bot_data[] =
121	{
122	STEALTH,"stealth", UNDEADPRO,"undead pro", SPIRITPRO,"spirit pro",
123	CHARMCOUNT,"Charm", TIMESTOP,"Time Stop", HOLDMONST,"Hold Monst",
124	GIANTSTR,"Giant Str", FIRERESISTANCE,"Fire Resit", DEXCOUNT,"Dexterity",
125	STRCOUNT,"Strength", SCAREMONST,"Scare", HASTESELF,"Haste Self",
126	CANCELLATION,"Cancel", INVISIBILITY,"Invisible", ALTPRO,"Protect 3",
127	PROTECTIONTIME,"Protect 2", WTW,"Wall-Walk"
128	};
129
130	botside()
131	{
132	register int i,idx;
133	for (i=0; i<17; i++)
134	{
135	idx = bot_data[i].typ;
136	if ((always) \|\| (c[idx] != cbak[idx]))
137	{
138	if ((always) \|\| (cbak[idx] == 0))
139	{ if (c[idx]) { cursor(70,i+1); lprcat(bot_data[i].string); } } else
140	if (c[idx]==0) { cursor(70,i+1); lprcat(" "); }
141	cbak[idx]=c[idx];
142	}
143	}
144	always=0;
145	}
146
147	static botsub(idx,str)
148	register int idx;
149	char *str;
150	{
151	register int x,y;
152	y = idx & 0xff; x = (idx>>8) & 0xff; idx >>= 16;
153	if (c[idx] != cbak[idx])
154	{ cbak[idx]=c[idx]; cursor(x,y); lprintf(str,(long)c[idx]); }
155	}
156
157	/*
158	* subroutine to draw only a section of the screen
159	* only the top section of the screen is updated. If entire lines are being
160	* drawn, then they will be cleared first.
161	*/
162	int d_xmin=0,d_xmax=MAXX,d_ymin=0,d_ymax=MAXY; /* for limited screen drawing */
163	draws(xmin,xmax,ymin,ymax)
164	int xmin,xmax,ymin,ymax;
165	{
166	register int i,idx;
167	if (xmin==0 && xmax==MAXX) /* clear section of screen as needed */
168	{
169	if (ymin==0) cl_up(79,ymax);
170	else for (i=ymin; i<ymin; i++) cl_line(1,i+1);
171	xmin = -1;
172	}
173	d_xmin=xmin; d_xmax=xmax; d_ymin=ymin; d_ymax=ymax; /* for limited screen drawing */
174	drawscreen();
175	if (xmin<=0 && xmax==MAXX) /* draw stuff on right side of screen as needed*/
176	{
177	for (i=ymin; i<ymax; i++)
178	{
179	idx = bot_data[i].typ;
180	if (c[idx])
181	{
182	cursor(70,i+1); lprcat(bot_data[i].string);
183	}
184	cbak[idx]=c[idx];
185	}
186	}
187	}
188
189	/*
190	drawscreen()
191
192	subroutine to redraw the whole screen as the player knows it
193	*/
194	char screen[MAXX][MAXY],d_flag; /* template for the screen */
195	drawscreen()
196	{
197	register int i,j,k;
198	int lastx,lasty; /* variables used to optimize the object printing */
199	if (d_xmin==0 && d_xmax==MAXX && d_ymin==0 && d_ymax==MAXY)
200	{
201	d_flag=1; clear(); /* clear the screen */
202	}
203	else
204	{
205	d_flag=0; cursor(1,1);
206	}
207	if (d_xmin<0)
208	d_xmin=0; /* d_xmin=-1 means display all without bottomline */
209
210	for (i=d_ymin; i<d_ymax; i++)
211	for (j=d_xmin; j<d_xmax; j++)
212	if (know[j][i]==0) screen[j][i] = ' '; else
213	if (k=mitem[j][i]) screen[j][i] = monstnamelist[k]; else
214	if ((k=item[j][i])==OWALL) screen[j][i] = '#';
215	else screen[j][i] = ' ';
216
217	for (i=d_ymin; i<d_ymax; i++)
218	{
219	j=d_xmin; while ((screen[j][i]==' ') && (j<d_xmax)) j++;
220	/* was m=0 */
221	if (j >= d_xmax) m=d_xmin; /* don't search backwards if blank line */
222	else
223	{ /* search backwards for end of line */
224	m=d_xmax-1; while ((screen[m][i]==' ') && (m>d_xmin)) --m;
225	if (j<=m) cursor(j+1,i+1); else continue;
226	}
227	while (j <= m)
228	{
229	if (j <= m-3)
230	{
231	for (k=j; k<=j+3; k++) if (screen[k][i] != ' ') k=1000;
232	if (k < 1000)
233	{ while(screen[j][i]==' ' && j<=m) j++; cursor(j+1,i+1); }
234	}
235	lprc(screen[j++][i]);
236	}
237	}
238	setbold(); /* print out only bold objects now */
239
240	for (lastx=lasty=127, i=d_ymin; i<d_ymax; i++)
241	for (j=d_xmin; j<d_xmax; j++)
242	{
243	if (k=item[j][i])
244	if (k != OWALL)
245	if ((know[j][i]) && (mitem[j][i]==0))
246	if (objnamelist[k]!=' ')
247	{
248	if (lasty!=i+1 \|\| lastx!=j)
249	cursor(lastx=j+1,lasty=i+1); else lastx++;
250	lprc(objnamelist[k]);
251	}
252	}
253
254	resetbold(); if (d_flag) { always=1; botside(); always=1; bot_linex(); }
255	oldx=99;
256	d_xmin = 0 , d_xmax = MAXX , d_ymin = 0 , d_ymax = MAXY; /* for limited screen drawing */
257	}
258	\f
259	/*
260	showcell(x,y)
261
262	subroutine to display a cell location on the screen
263	*/
264	showcell(x,y)
265	int x,y;
266	{
267	register int i,j,k,m;
268	if (c[BLINDCOUNT]) return; /* see nothing if blind */
269	if (c[AWARENESS]) { minx = x-3; maxx = x+3; miny = y-3; maxy = y+3; }
270	else { minx = x-1; maxx = x+1; miny = y-1; maxy = y+1; }
271
272	if (minx < 0) minx=0; if (maxx > MAXX-1) maxx = MAXX-1;
273	if (miny < 0) miny=0; if (maxy > MAXY-1) maxy = MAXY-1;
274
275	for (j=miny; j<=maxy; j++)
276	for (m=minx; m<=maxx; m++)
277	if (know[m][j]==0)
278	{
279	cursor(m+1,j+1);
280	x=maxx; while (know[x][j]) --x;
281	for (i=m; i<=x; i++)
282	{
283	if ((k=mitem[i][j]) != 0) lprc(monstnamelist[k]);
284	else switch(k=item[i][j])
285	{
286	case OWALL: case 0: case OIVTELETRAP: case OTRAPARROWIV:
287	case OIVDARTRAP: case OIVTRAPDOOR:
288	lprc(objnamelist[k]); break;
289
290	default: setbold(); lprc(objnamelist[k]); resetbold();
291	};
292	know[i][j]=1;
293	}
294	m = maxx;
295	}
296	}
297
298	/*
299	this routine shows only the spot that is given it. the spaces around
300	these coordinated are not shown
301	used in godirect() in monster.c for missile weapons display
302	*/
303	show1cell(x,y)
304	int x,y;
305	{
306	if (c[BLINDCOUNT]) return; /* see nothing if blind */
307	cursor(x+1,y+1);
308	if ((k=mitem[x][y]) != 0) lprc(monstnamelist[k]);
309	else switch(k=item[x][y])
310	{
311	case OWALL: case 0: case OIVTELETRAP: case OTRAPARROWIV:
312	case OIVDARTRAP: case OIVTRAPDOOR:
313	lprc(objnamelist[k]); break;
314
315	default: setbold(); lprc(objnamelist[k]); resetbold();
316	};
317	know[x][y]\|=1; /* we end up knowing about it */
318	}
319
320	/*
321	showplayer()
322
323	subroutine to show where the player is on the screen
324	cursor values start from 1 up
325	*/
326	showplayer()
327	{
328	cursor(playerx+1,playery+1);
329	oldx=playerx; oldy=playery;
330	}
331
332	/*
333	moveplayer(dir)
334
335	subroutine to move the player from one room to another
336	returns 0 if can't move in that direction or hit a monster or on an object
337	else returns 1
338	nomove is set to 1 to stop the next move (inadvertent monsters hitting
339	players when walking into walls) if player walks off screen or into wall
340	*/
341	short diroffx[] = { 0, 0, 1, 0, -1, 1, -1, 1, -1 };
342	short diroffy[] = { 0, 1, 0, -1, 0, -1, -1, 1, 1 };
343	moveplayer(dir)
344	int dir; /* from = present room # direction = [1-north]
345	[2-east] [3-south] [4-west] [5-northeast]
346	[6-northwest] [7-southeast] [8-southwest]
347	if direction=0, don't move--just show where he is */
348	{
349	register int k,m,i,j;
350	if (c[CONFUSE]) if (c[LEVEL]<rnd(30)) dir=rund(9); /if confused any dir/
351	k = playerx + diroffx[dir]; m = playery + diroffy[dir];
352	if (k<0 \|\| k>=MAXX \|\| m<0 \|\| m>=MAXY) { nomove=1; return(yrepcount = 0); }
353	i = item[k][m]; j = mitem[k][m];
354	if (i==OWALL && c[WTW]==0) { nomove=1; return(yrepcount = 0); } /* hit a wall */
355	if (k==33 && m==MAXY-1 && level==1)
356	{
357	newcavelevel(0); for (k=0; k<MAXX; k++) for (m=0; m<MAXY; m++)
358	if (item[k][m]==OENTRANCE)
359	{ playerx=k; playery=m; positionplayer(); drawscreen(); return(0); }
360	}
361	if (j>0) { hitmonster(k,m); return(yrepcount = 0); } /* hit a monster*/
362	lastpx = playerx; lastpy = playery;
363	playerx = k; playery = m;
364	if (i && i!=OTRAPARROWIV && i!=OIVTELETRAP && i!=OIVDARTRAP && i!=OIVTRAPDOOR) return(yrepcount = 0); else return(1);
365	}
366	\f
367	/*
368	* function to show what magic items have been discovered thus far
369	* enter with -1 for just spells, anything else will give scrolls & potions
370	*/
371	static int lincount,count;
372	seemagic(arg)
373	int arg;
374	{
375	register int i,number;
376	count = lincount = 0; nosignal=1;
377
378	if (arg== -1) /* if display spells while casting one */
379	{
380	for (number=i=0; i<SPNUM; i++) if (spelknow[i]) number++;
381	number = (number+2)/3 + 4; /* # lines needed to display */
382	cl_up(79,number); cursor(1,1);
383	}
384	else
385	{
386	resetscroll(); clear();
387	}
388
389	lprcat("The magic spells you have discovered thus far:\n\n");
390	for (i=0; i<SPNUM; i++)
391	if (spelknow[i])
392	{ lprintf("%s %-20s ",spelcode[i],spelname[i]); seepage(); }
393
394	if (arg== -1)
395	{
396	seepage(); more(); nosignal=0;
397	draws(0,MAXX,0,number); return;
398	}
399
400	lincount += 3; if (count!=0) { count=2; seepage(); }
401
402	lprcat("\nThe magic scrolls you have found to date are:\n\n");
403	count=0;
404	for (i=0; i<MAXSCROLL; i++)
405	if (scrollname[i][0])
406	if (scrollname[i][1]!=' ')
407	{ lprintf("%-26s",&scrollname[i][1]); seepage(); }
408
409	lincount += 3; if (count!=0) { count=2; seepage(); }
410
411	lprcat("\nThe magic potions you have found to date are:\n\n");
412	count=0;
413	for (i=0; i<MAXPOTION; i++)
414	if (potionname[i][0])
415	if (potionname[i][1]!=' ')
416	{ lprintf("%-26s",&potionname[i][1]); seepage(); }
417
418	if (lincount!=0) more(); nosignal=0; setscroll(); drawscreen();
419	}
420
421	/*
422	* subroutine to paginate the seemagic function
423	*/
424	seepage()
425	{
426	if (++count==3)
427	{
428	lincount++; count=0; lprc('\n');
429	if (lincount>17) { lincount=0; more(); clear(); }
430	}
431	}