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