mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-25 11:37:56 +00:00
219 lines
5.4 KiB
C
219 lines
5.4 KiB
C
/* 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);
|
|
}
|
|
|