5c85f4a3324f2bc82b9e8dfcb9e527883d356f8b
[dragonfly.git] / games / larn / tok.c
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", (char *) 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