home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / games / larn / tok.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-05-02  |  5.4 KB  |  219 lines
  1. /* tok.c        Larn is copyrighted 1986 by Noah Morgan. */
  2. #include <sys/types.h>
  3. #ifdef SYSV
  4. #include <fcntl.h>
  5. #include <termio.h>
  6. #else SYSV
  7. #include <sys/ioctl.h>
  8. #endif SYSV
  9. #include "header.h"
  10.  
  11. static char lastok=0;
  12. int yrepcount=0,dayplay=0;
  13. #ifndef FLUSHNO
  14. #define FLUSHNO 5
  15. #endif FLUSHNO
  16. static int flushno=FLUSHNO;    /* input queue flushing threshold */
  17. #define MAXUM 52    /* maximum number of user re-named monsters */
  18. #define MAXMNAME 40    /* max length of a monster re-name */
  19. static char usermonster[MAXUM][MAXMNAME]; /* the user named monster name goes here */
  20. static char usermpoint=0;            /* the user monster pointer */
  21.  
  22. /*
  23.     lexical analyzer for larn
  24.  */
  25. yylex()
  26.     {
  27.     char cc;
  28.     int ic;
  29.     if (hit2flag) { hit2flag=0;  yrepcount=0;  return(' '); }
  30.     if (yrepcount>0)    { --yrepcount;  return(lastok);    } else yrepcount=0;
  31.     if (yrepcount==0) { bottomdo(); showplayer(); }    /*    show where the player is    */
  32.     lflush();  
  33.     while (1)
  34.         {
  35.         c[BYTESIN]++;
  36.         if (ckpflag)
  37.           if ((c[BYTESIN] % 400) == 0)    /* check for periodic checkpointing */
  38.             {
  39. #ifndef DOCHECKPOINTS
  40.             savegame(ckpfile);
  41. #else
  42.             wait(0);    /* wait for other forks to finish */
  43.             if (fork() == 0) { savegame(ckpfile); exit(); }
  44. #endif
  45.  
  46.  
  47. #ifdef TIMECHECK
  48.             if (dayplay==0)
  49.               if (playable())
  50.                 {
  51.                 cursor(1,19);
  52.                 lprcat("\nSorry, but it is now time for work.  Your game has been saved.\n"); beep();
  53.                 lflush();  savegame(savefilename);  wizard=nomove=1;  sleep(4);
  54.                 died(-257);
  55.                 }
  56. #endif TIMECHECK
  57.  
  58.             }
  59.  
  60.         do        /* if keyboard input buffer is too big, flush some of it */
  61.             {
  62.             ioctl(0,FIONREAD,&ic);
  63.             if (ic>flushno)   read(0,&cc,1);
  64.             }
  65.         while (ic>flushno);
  66.  
  67.         if (read(0,&cc,1) != 1) return(lastok = -1);
  68.  
  69.         if (cc == 'Y'-64)    /* control Y -- shell escape */
  70.             {
  71.             resetscroll();  clear(); /* scrolling region, home, clear, no attributes */
  72.             if ((ic=fork())==0) /* child */
  73.                 {
  74.                 execl("/bin/csh",0);    exit();
  75.                 }
  76.             wait(0);
  77.             if (ic<0) /* error */
  78.                 {
  79.                 write(2,"Can't fork off a shell!\n",25); sleep(2);
  80.                 }
  81.  
  82.             setscroll();
  83.             return(lastok = 'L'-64);    /* redisplay screen */
  84.             }
  85.         
  86.         if ((cc <= '9') && (cc >= '0'))
  87.             { yrepcount = yrepcount*10 + cc - '0'; }
  88.         else    { if (yrepcount>0) --yrepcount;  return(lastok = cc); }
  89.         }
  90.     }
  91.  
  92. /*
  93.  *    flushall()        Function to flush all type-ahead in the input buffer
  94.  */
  95. flushall()
  96.     {
  97.     char cc;
  98.     int ic;
  99.     for (;;)        /* if keyboard input buffer is too big, flush some of it */
  100.         {
  101.         ioctl(0,FIONREAD,&ic);
  102.         if (ic<=0) return;
  103.         while (ic>0)   { read(0,&cc,1); --ic; } /* gobble up the byte */
  104.         }
  105.     }
  106.  
  107. /*
  108.     function to set the desired hardness 
  109.     enter with hard= -1 for default hardness, else any desired hardness
  110.  */
  111. sethard(hard)
  112.     int hard;
  113.     {
  114.     register int j,k,i;
  115.     j=c[HARDGAME]; hashewon(); 
  116.     if (restorflag==0)    /* don't set c[HARDGAME] if restoring game */
  117.         {
  118.         if (hard >= 0) c[HARDGAME]= hard;
  119.         }
  120.     else c[HARDGAME]=j; /* set c[HARDGAME] to proper value if restoring game */
  121.  
  122.     if (k=c[HARDGAME])
  123.       for (j=0; j<=MAXMONST+8; j++)
  124.         {
  125.         i = ((6+k)*monster[j].hitpoints+1)/6;
  126.         monster[j].hitpoints = (i<0) ? 32767 : i;
  127.         i = ((6+k)*monster[j].damage+1)/5;
  128.         monster[j].damage = (i>127) ? 127 : i;
  129.         i = (10*monster[j].gold)/(10+k);
  130.         monster[j].gold = (i>32767) ? 32767 : i;
  131.         i = monster[j].armorclass - k;
  132.         monster[j].armorclass = (i< -127) ? -127 : i;
  133.         i = (7*monster[j].experience)/(7+k) + 1;
  134.         monster[j].experience = (i<=0) ? 1 : i;
  135.         }                
  136.     }
  137.  
  138. /*
  139.     function to read and process the larn options file
  140.  */
  141. readopts()
  142.     {
  143.     register char *i;
  144.     register int j,k;
  145.     int flag;
  146.     flag=1;    /* set to 0 if he specifies a name for his character */
  147.     if (lopen(optsfile) < 0)
  148.         {
  149.         strcpy(logname,loginname); return; /* user name if no character name */
  150.         }
  151.     i = " ";
  152.     while (*i)
  153.       {
  154.       if ((i=(char *)lgetw()) == 0) break; /* check for EOF */
  155.       while ((*i==' ') || (*i=='\t')) i++; /* eat leading whitespace */
  156.       switch(*i)
  157.         {
  158.         case 'b':    if (strcmp(i,"bold-objects") == 0)  boldon=1;
  159.                     break;
  160.  
  161.         case 'e':    if (strcmp(i,"enable-checkpointing") == 0) ckpflag=1;
  162.                     break;
  163.  
  164.         case 'i':    if (strcmp(i,"inverse-objects") == 0)  boldon=0;
  165.                     break;
  166.  
  167.         case 'f':    if (strcmp(i,"female")     == 0)    sex=0; /* male or female */
  168.                     break;
  169.  
  170.         case 'm':    if (strcmp(i,"monster:")== 0)   /* name favorite monster */
  171.                         {
  172.                         if ((i=lgetw())==0) break;
  173.                         if (strlen(i)>=MAXMNAME) i[MAXMNAME-1]=0;
  174.                         strcpy(usermonster[usermpoint],i); 
  175.                         if (usermpoint >= MAXUM) break; /* defined all of em */
  176.                         if (isalpha(j=usermonster[usermpoint][0]))
  177.                             {
  178.                             for (k=1; k<MAXMONST+8; k++) /* find monster */
  179.                               if (monstnamelist[k] == j)
  180.                                 {
  181.                                 monster[k].name = &usermonster[usermpoint++][0];
  182.                                 break;
  183.                                 }
  184.                             }
  185.                         }
  186.                     else if (strcmp(i,"male") == 0)    sex=1;
  187.                     break;
  188.  
  189.         case 'n':    if (strcmp(i,"name:") == 0) /* defining players name */
  190.                         {
  191.                         if ((i=lgetw())==0) break;
  192.                         if (strlen(i)>=LOGNAMESIZE) i[LOGNAMESIZE-1]=0;
  193.                         strcpy(logname,i); flag=0;
  194.                         }
  195.                     else if (strcmp(i,"no-introduction") == 0) nowelcome=1;
  196.                     else if (strcmp(i,"no-beep") == 0) nobeep=1;
  197.                     break;
  198.  
  199.         case 'p':    if (strcmp(i,"process-name:")== 0) 
  200.                         {
  201.                         if ((i=lgetw())==0) break;
  202.                         if (strlen(i)>=PSNAMESIZE) i[PSNAMESIZE-1]=0;
  203.                         strcpy(psname,i);
  204.                         }
  205.                     else if (strcmp(i,"play-day-play") == 0)  dayplay=1;
  206.                     break;
  207.  
  208.         case 's':    if (strcmp(i,"savefile:") == 0) /* defining savefilename */
  209.                         {
  210.                         if ((i=lgetw())==0) break;
  211.                         strcpy(savefilename,i); flag=0;
  212.                         }
  213.                     break;
  214.         };
  215.       }
  216.     if (flag)  strcpy(logname,loginname);
  217.     }
  218.  
  219.