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