initial import of 386bsd-0.1 sources

1 files changed, 218 insertions, 0 deletions

diff --git a/larn/tok.c b/larn/tok.c
new file mode 100644
index 00000000..ee4039b4
--- /dev/null
+++ b/larn/tok.c
@@ -0,0 +1,218 @@
+/* tok.c		Larn is copyrighted 1986 by Noah Morgan. */
+#include <sys/types.h>
+#ifdef SYSV
+#include <fcntl.h>
+#include <termio.h>
+#else SYSV
+#include <sys/ioctl.h>
+#endif SYSV
+#include "header.h"
+
+static char lastok=0;
+int yrepcount=0,dayplay=0;
+#ifndef FLUSHNO
+#define FLUSHNO 5
+#endif FLUSHNO
+static int flushno=FLUSHNO;	/* input queue flushing threshold */
+#define MAXUM 52	/* maximum number of user re-named monsters */
+#define MAXMNAME 40	/* max length of a monster re-name */
+static char usermonster[MAXUM][MAXMNAME]; /* the user named monster name goes here */
+static char usermpoint=0;			/* the user monster pointer */
+
+/*
+	lexical analyzer for larn
+ */
+yylex()
+	{
+	char cc;
+	int ic;
+	if (hit2flag) { hit2flag=0;  yrepcount=0;  return(' '); }
+	if (yrepcount>0)	{ --yrepcount;  return(lastok);	} else yrepcount=0;
+	if (yrepcount==0) { bottomdo(); showplayer(); }	/*	show where the player is	*/
+	lflush();  
+	while (1)
+		{
+		c[BYTESIN]++;
+		if (ckpflag)
+		  if ((c[BYTESIN] % 400) == 0)	/* check for periodic checkpointing */
+			{
+#ifndef DOCHECKPOINTS
+			savegame(ckpfile);
+#else
+			wait(0);	/* wait for other forks to finish */
+			if (fork() == 0) { savegame(ckpfile); exit(); }
+#endif
+
+
+#ifdef TIMECHECK
+			if (dayplay==0)
+			  if (playable())
+				{
+				cursor(1,19);
+				lprcat("\nSorry, but it is now time for work.  Your game has been saved.\n"); beep();
+				lflush();  savegame(savefilename);  wizard=nomove=1;  sleep(4);
+				died(-257);
+				}
+#endif TIMECHECK
+
+			}
+
+		do		/* if keyboard input buffer is too big, flush some of it */
+			{
+			ioctl(0,FIONREAD,&ic);
+			if (ic>flushno)   read(0,&cc,1);
+			}
+		while (ic>flushno);
+
+		if (read(0,&cc,1) != 1) return(lastok = -1);
+
+		if (cc == 'Y'-64)	/* control Y -- shell escape */
+			{
+			resetscroll();  clear(); /* scrolling region, home, clear, no attributes */
+			if ((ic=fork())==0) /* child */
+				{
+				execl("/bin/csh",0);	exit();
+				}
+			wait(0);
+			if (ic<0) /* error */
+				{
+				write(2,"Can't fork off a shell!\n",25); sleep(2);
+				}
+
+			setscroll();
+			return(lastok = 'L'-64);	/* redisplay screen */
+			}
+		
+		if ((cc <= '9') && (cc >= '0'))
+			{ yrepcount = yrepcount*10 + cc - '0'; }
+		else	{ if (yrepcount>0) --yrepcount;  return(lastok = cc); }
+		}
+	}
+
+/*
+ *	flushall()		Function to flush all type-ahead in the input buffer
+ */
+flushall()
+	{
+	char cc;
+	int ic;
+	for (;;)		/* if keyboard input buffer is too big, flush some of it */
+		{
+		ioctl(0,FIONREAD,&ic);
+		if (ic<=0) return;
+		while (ic>0)   { read(0,&cc,1); --ic; } /* gobble up the byte */
+		}
+	}
+
+/*
+	function to set the desired hardness 
+	enter with hard= -1 for default hardness, else any desired hardness
+ */
+sethard(hard)
+	int hard;
+	{
+	register int j,k,i;
+	j=c[HARDGAME]; hashewon(); 
+	if (restorflag==0)	/* don't set c[HARDGAME] if restoring game */
+		{
+		if (hard >= 0) c[HARDGAME]= hard;
+		}
+	else c[HARDGAME]=j; /* set c[HARDGAME] to proper value if restoring game */
+
+	if (k=c[HARDGAME])
+	  for (j=0; j<=MAXMONST+8; j++)
+		{
+		i = ((6+k)*monster[j].hitpoints+1)/6;
+		monster[j].hitpoints = (i<0) ? 32767 : i;
+		i = ((6+k)*monster[j].damage+1)/5;
+		monster[j].damage = (i>127) ? 127 : i;
+		i = (10*monster[j].gold)/(10+k);
+		monster[j].gold = (i>32767) ? 32767 : i;
+		i = monster[j].armorclass - k;
+		monster[j].armorclass = (i< -127) ? -127 : i;
+		i = (7*monster[j].experience)/(7+k) + 1;
+		monster[j].experience = (i<=0) ? 1 : i;
+		}				
+	}
+
+/*
+	function to read and process the larn options file
+ */
+readopts()
+	{
+	register char *i;
+	register int j,k;
+	int flag;
+	flag=1;	/* set to 0 if he specifies a name for his character */
+	if (lopen(optsfile) < 0)
+		{
+		strcpy(logname,loginname); return; /* user name if no character name */
+		}
+	i = " ";
+	while (*i)
+	  {
+	  if ((i=(char *)lgetw()) == 0) break; /* check for EOF */
+	  while ((*i==' ') || (*i=='\t')) i++; /* eat leading whitespace */
+	  switch(*i)
+		{
+		case 'b':	if (strcmp(i,"bold-objects") == 0)  boldon=1;
+					break;
+
+		case 'e':	if (strcmp(i,"enable-checkpointing") == 0) ckpflag=1;
+					break;
+
+		case 'i':	if (strcmp(i,"inverse-objects") == 0)  boldon=0;
+					break;
+
+		case 'f':	if (strcmp(i,"female") 	== 0)	sex=0; /* male or female */
+					break;
+
+		case 'm':	if (strcmp(i,"monster:")== 0)   /* name favorite monster */
+						{
+						if ((i=lgetw())==0) break;
+						if (strlen(i)>=MAXMNAME) i[MAXMNAME-1]=0;
+						strcpy(usermonster[usermpoint],i); 
+						if (usermpoint >= MAXUM) break; /* defined all of em */
+						if (isalpha(j=usermonster[usermpoint][0]))
+							{
+							for (k=1; k<MAXMONST+8; k++) /* find monster */
+							  if (monstnamelist[k] == j)
+								{
+								monster[k].name = &usermonster[usermpoint++][0];
+								break;
+								}
+							}
+						}
+					else if (strcmp(i,"male") == 0)	sex=1;
+					break;
+
+		case 'n':	if (strcmp(i,"name:") == 0) /* defining players name */
+						{
+						if ((i=lgetw())==0) break;
+						if (strlen(i)>=LOGNAMESIZE) i[LOGNAMESIZE-1]=0;
+						strcpy(logname,i); flag=0;
+						}
+					else if (strcmp(i,"no-introduction") == 0) nowelcome=1;
+					else if (strcmp(i,"no-beep") == 0) nobeep=1;
+					break;
+
+		case 'p':	if (strcmp(i,"process-name:")== 0) 
+						{
+						if ((i=lgetw())==0) break;
+						if (strlen(i)>=PSNAMESIZE) i[PSNAMESIZE-1]=0;
+						strcpy(psname,i);
+						}
+					else if (strcmp(i,"play-day-play") == 0)  dayplay=1;
+					break;
+
+		case 's':	if (strcmp(i,"savefile:") == 0) /* defining savefilename */
+						{
+						if ((i=lgetw())==0) break;
+						strcpy(savefilename,i); flag=0;
+						}
+					break;
+		};
+	  }
+	if (flag)  strcpy(logname,loginname);
+	}
+