]> git.cameronkatri.com Git - bsdgames-darwin.git/blob - larn/main.c
git.ckatri.com / bsdgames-darwin.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
src/games/quiz from Lite
[bsdgames-darwin.git] / larn / main.c
1 #ifndef lint
2 static char rcsid[] = "$NetBSD: main.c,v 1.6 1995/04/22 07:34:07 cgd Exp $";
3 #endif /* not lint */
4
5 /* main.c */
6 #include <sys/types.h>
7 #include "header.h"
8 #include <pwd.h>
9 static char copyright[]="\nLarn is copyrighted 1986 by Noah Morgan.\n";
10 int srcount=0; /* line counter for showstr() */
11 int dropflag=0; /* if 1 then don't lookforobject() next round */
12 int rmst=80; /* random monster creation counter */
13 int userid; /* the players login user id number */
14 char nowelcome=0,nomove=0; /* if (nomove) then don't count next iteration as a move */
15 static char viewflag=0;
16 /* if viewflag then we have done a 99 stay here and don't showcell in the main loop */
17 char restorflag=0; /* 1 means restore has been done */
18 static char cmdhelp[] = "\
19 Cmd line format: larn [-slicnh] [-o<optsifle>] [-##] [++]\n\
20 -s show the scoreboard\n\
21 -l show the logfile (wizard id only)\n\
22 -i show scoreboard with inventories of dead characters\n\
23 -c create new scoreboard (wizard id only)\n\
24 -n suppress welcome message on starting game\n\
25 -## specify level of difficulty (example: -5)\n\
26 -h print this help text\n\
27 ++ restore game from checkpoint file\n\
28 -o<optsfile> specify .larnopts filename to be used instead of \"~/.larnopts\"\n\
29 ";
30 #ifdef VT100
31 static char *termtypes[] = { "vt100", "vt101", "vt102", "vt103", "vt125",
32 "vt131", "vt140", "vt180", "vt220", "vt240", "vt241", "vt320", "vt340",
33 "vt341" };
34 #endif VT100
35 /*
36 ************
37 MAIN PROGRAM
38 ************
39 */
40 main(argc,argv)
41 int argc;
42 char **argv;
43 {
44 register int i,j;
45 int hard;
46 char *ptr=0,*ttype;
47 struct passwd *pwe;
48
49 /*
50 * first task is to identify the player
51 */
52 #ifndef VT100
53 init_term(); /* setup the terminal (find out what type) for termcap */
54 #endif VT100
55 if (((ptr = getlogin()) == 0) || (*ptr==0)) /* try to get login name */
56 if (pwe=getpwuid(getuid())) /* can we get it from /etc/passwd? */
57 ptr = pwe->pw_name;
58 else
59 if ((ptr = getenv("USER")) == 0)
60 if ((ptr = getenv("LOGNAME")) == 0)
61 {
62 noone: write(2, "Can't find your logname. Who Are You?\n",39);
63 exit();
64 }
65 if (ptr==0) goto noone;
66 if (strlen(ptr)==0) goto noone;
67 /*
68 * second task is to prepare the pathnames the player will need
69 */
70 strcpy(loginname,ptr); /* save loginname of the user for logging purposes */
71 strcpy(logname,ptr); /* this will be overwritten with the players name */
72 if ((ptr = getenv("HOME")) == 0) ptr = ".";
73 strcpy(savefilename, ptr);
74 strcat(savefilename, "/Larn.sav"); /* save file name in home directory */
75 sprintf(optsfile, "%s/.larnopts",ptr); /* the .larnopts filename */
76
77 /*
78 * now malloc the memory for the dungeon
79 */
80 cell = (struct cel *)malloc(sizeof(struct cel)*(MAXLEVEL+MAXVLEVEL)*MAXX*MAXY);
81 if (cell == 0) died(-285); /* malloc failure */
82 lpbuf = malloc((5* BUFBIG)>>2); /* output buffer */
83 inbuffer = malloc((5*MAXIBUF)>>2); /* output buffer */
84 if ((lpbuf==0) || (inbuffer==0)) died(-285); /* malloc() failure */
85
86 lcreat((char*)0); newgame(); /* set the initial clock */ hard= -1;
87
88 #ifdef VT100
89 /*
90 * check terminal type to avoid users who have not vt100 type terminals
91 */
92 ttype = getenv("TERM");
93 for (j=1, i=0; i<sizeof(termtypes)/sizeof(char *); i++)
94 if (strcmp(ttype,termtypes[i]) == 0) { j=0; break; }
95 if (j)
96 {
97 lprcat("Sorry, Larn needs a VT100 family terminal for all it's features.\n"); lflush();
98 exit();
99 }
100 #endif VT100
101
102 /*
103 * now make scoreboard if it is not there (don't clear)
104 */
105 if (access(scorefile,0) == -1) /* not there */
106 makeboard();
107
108 /*
109 * now process the command line arguments
110 */
111 for (i=1; i<argc; i++)
112 {
113 if (argv[i][0] == '-')
114 switch(argv[i][1])
115 {
116 case 's': showscores(); exit(); /* show scoreboard */
117
118 case 'l': /* show log file */
119 diedlog(); exit();
120
121 case 'i': showallscores(); exit(); /* show all scoreboard */
122
123 case 'c': /* anyone with password can create scoreboard */
124 lprcat("Preparing to initialize the scoreboard.\n");
125 if (getpassword() != 0) /*make new scoreboard*/
126 {
127 makeboard(); lprc('\n'); showscores();
128 }
129 exit();
130
131 case 'n': /* no welcome msg */ nowelcome=1; argv[i][0]=0; break;
132
133 case '0': case '1': case '2': case '3': case '4': case '5':
134 case '6': case '7': case '8': case '9': /* for hardness */
135 sscanf(&argv[i][1],"%d",&hard);
136 break;
137
138 case 'h': /* print out command line arguments */
139 write(1,cmdhelp,sizeof(cmdhelp)); exit();
140
141 case 'o': /* specify a .larnopts filename */
142 strncpy(optsfile,argv[i]+2,127); break;
143
144 default: printf("Unknown option <%s>\n",argv[i]); exit();
145 };
146
147 if (argv[i][0] == '+')
148 {
149 clear(); restorflag = 1;
150 if (argv[i][1] == '+')
151 {
152 hitflag=1; restoregame(ckpfile); /* restore checkpointed game */
153 }
154 i = argc;
155 }
156 }
157
158 readopts(); /* read the options file if there is one */
159
160
161 #ifdef UIDSCORE
162 userid = geteuid(); /* obtain the user's effective id number */
163 #else UIDSCORE
164 userid = getplid(logname); /* obtain the players id number */
165 #endif UIDSCORE
166 if (userid < 0) { write(2,"Can't obtain playerid\n",22); exit(); }
167
168 #ifdef HIDEBYLINK
169 /*
170 * this section of code causes the program to look like something else to ps
171 */
172 if (strcmp(psname,argv[0])) /* if a different process name only */
173 {
174 if ((i=access(psname,1)) < 0)
175 { /* link not there */
176 if (link(argv[0],psname)>=0)
177 {
178 argv[0] = psname; execv(psname,argv);
179 }
180 }
181 else
182 unlink(psname);
183 }
184
185 for (i=1; i<argc; i++)
186 {
187 szero(argv[i]); /* zero the argument to avoid ps snooping */
188 }
189 #endif HIDEBYLINK
190
191 if (access(savefilename,0)==0) /* restore game if need to */
192 {
193 clear(); restorflag = 1;
194 hitflag=1; restoregame(savefilename); /* restore last game */
195 }
196 sigsetup(); /* trap all needed signals */
197 sethard(hard); /* set up the desired difficulty */
198 setupvt100(); /* setup the terminal special mode */
199 if (c[HP]==0) /* create new game */
200 {
201 makeplayer(); /* make the character that will play */
202 newcavelevel(0);/* make the dungeon */
203 predostuff = 1; /* tell signals that we are in the welcome screen */
204 if (nowelcome==0) welcome(); /* welcome the player to the game */
205 }
206 drawscreen(); /* show the initial dungeon */
207 predostuff = 2; /* tell the trap functions that they must do a showplayer()
208 from here on */
209 /* nice(1); /* games should be run niced */
210 yrepcount = hit2flag = 0;
211 while (1)
212 {
213 if (dropflag==0) lookforobject(); /* see if there is an object here */
214 else dropflag=0; /* don't show it just dropped an item */
215 if (hitflag==0) { if (c[HASTEMONST]) movemonst(); movemonst(); } /* move the monsters */
216 if (viewflag==0) showcell(playerx,playery); else viewflag=0; /* show stuff around player */
217 if (hit3flag) flushall();
218 hitflag=hit3flag=0; nomove=1;
219 bot_linex(); /* update bottom line */
220 while (nomove)
221 {
222 if (hit3flag) flushall();
223 nomove=0; parse();
224 } /* get commands and make moves */
225 regen(); /* regenerate hp and spells */
226 if (c[TIMESTOP]==0)
227 if (--rmst <= 0)
228 { rmst = 120-(level<<2); fillmonst(makemonst(level)); }
229 }
230 }
231 \f
232 /*
233 showstr()
234
235 show character's inventory
236 */
237 showstr()
238 {
239 register int i,number;
240 for (number=3, i=0; i<26; i++)
241 if (iven[i]) number++; /* count items in inventory */
242 t_setup(number); qshowstr(); t_endup(number);
243 }
244
245 qshowstr()
246 {
247 register int i,j,k,sigsav;
248 srcount=0; sigsav=nosignal; nosignal=1; /* don't allow ^c etc */
249 if (c[GOLD]) { lprintf(".) %d gold pieces",(long)c[GOLD]); srcount++; }
250 for (k=26; k>=0; k--)
251 if (iven[k])
252 { for (i=22; i<84; i++)
253 for (j=0; j<=k; j++) if (i==iven[j]) show3(j); k=0; }
254
255 lprintf("\nElapsed time is %d. You have %d mobuls left",(long)((gtime+99)/100+1),(long)((TIMELIMIT-gtime)/100));
256 more(); nosignal=sigsav;
257 }
258
259 /*
260 * subroutine to clear screen depending on # lines to display
261 */
262 t_setup(count)
263 register int count;
264 {
265 if (count<20) /* how do we clear the screen? */
266 {
267 cl_up(79,count); cursor(1,1);
268 }
269 else
270 {
271 resetscroll(); clear();
272 }
273 }
274
275 /*
276 * subroutine to restore normal display screen depending on t_setup()
277 */
278 t_endup(count)
279 register int count;
280 {
281 if (count<18) /* how did we clear the screen? */
282 draws(0,MAXX,0,(count>MAXY) ? MAXY : count);
283 else
284 {
285 drawscreen(); setscroll();
286 }
287 }
288
289 /*
290 function to show the things player is wearing only
291 */
292 showwear()
293 {
294 register int i,j,sigsav,count;
295 sigsav=nosignal; nosignal=1; /* don't allow ^c etc */
296 srcount=0;
297
298 for (count=2,j=0; j<=26; j++) /* count number of items we will display */
299 if (i=iven[j])
300 switch(i)
301 {
302 case OLEATHER: case OPLATE: case OCHAIN:
303 case ORING: case OSTUDLEATHER: case OSPLINT:
304 case OPLATEARMOR: case OSSPLATE: case OSHIELD:
305 count++;
306 };
307
308 t_setup(count);
309
310 for (i=22; i<84; i++)
311 for (j=0; j<=26; j++)
312 if (i==iven[j])
313 switch(i)
314 {
315 case OLEATHER: case OPLATE: case OCHAIN:
316 case ORING: case OSTUDLEATHER: case OSPLINT:
317 case OPLATEARMOR: case OSSPLATE: case OSHIELD:
318 show3(j);
319 };
320 more(); nosignal=sigsav; t_endup(count);
321 }
322
323 /*
324 function to show the things player can wield only
325 */
326 showwield()
327 {
328 register int i,j,sigsav,count;
329 sigsav=nosignal; nosignal=1; /* don't allow ^c etc */
330 srcount=0;
331
332 for (count=2,j=0; j<=26; j++) /* count how many items */
333 if (i=iven[j])
334 switch(i)
335 {
336 case ODIAMOND: case ORUBY: case OEMERALD: case OSAPPHIRE:
337 case OBOOK: case OCHEST: case OLARNEYE: case ONOTHEFT:
338 case OSPIRITSCARAB: case OCUBEofUNDEAD:
339 case OPOTION: case OSCROLL: break;
340 default: count++;
341 };
342
343 t_setup(count);
344
345 for (i=22; i<84; i++)
346 for (j=0; j<=26; j++)
347 if (i==iven[j])
348 switch(i)
349 {
350 case ODIAMOND: case ORUBY: case OEMERALD: case OSAPPHIRE:
351 case OBOOK: case OCHEST: case OLARNEYE: case ONOTHEFT:
352 case OSPIRITSCARAB: case OCUBEofUNDEAD:
353 case OPOTION: case OSCROLL: break;
354 default: show3(j);
355 };
356 more(); nosignal=sigsav; t_endup(count);
357 }
358
359 /*
360 * function to show the things player can read only
361 */
362 showread()
363 {
364 register int i,j,sigsav,count;
365 sigsav=nosignal; nosignal=1; /* don't allow ^c etc */
366 srcount=0;
367
368 for (count=2,j=0; j<=26; j++)
369 switch(iven[j])
370 {
371 case OBOOK: case OSCROLL: count++;
372 };
373 t_setup(count);
374
375 for (i=22; i<84; i++)
376 for (j=0; j<=26; j++)
377 if (i==iven[j])
378 switch(i)
379 {
380 case OBOOK: case OSCROLL: show3(j);
381 };
382 more(); nosignal=sigsav; t_endup(count);
383 }
384
385 /*
386 * function to show the things player can eat only
387 */
388 showeat()
389 {
390 register int i,j,sigsav,count;
391 sigsav=nosignal; nosignal=1; /* don't allow ^c etc */
392 srcount=0;
393
394 for (count=2,j=0; j<=26; j++)
395 switch(iven[j])
396 {
397 case OCOOKIE: count++;
398 };
399 t_setup(count);
400
401 for (i=22; i<84; i++)
402 for (j=0; j<=26; j++)
403 if (i==iven[j])
404 switch(i)
405 {
406 case OCOOKIE: show3(j);
407 };
408 more(); nosignal=sigsav; t_endup(count);
409 }
410
411 /*
412 function to show the things player can quaff only
413 */
414 showquaff()
415 {
416 register int i,j,sigsav,count;
417 sigsav=nosignal; nosignal=1; /* don't allow ^c etc */
418 srcount=0;
419
420 for (count=2,j=0; j<=26; j++)
421 switch(iven[j])
422 {
423 case OPOTION: count++;
424 };
425 t_setup(count);
426
427 for (i=22; i<84; i++)
428 for (j=0; j<=26; j++)
429 if (i==iven[j])
430 switch(i)
431 {
432 case OPOTION: show3(j);
433 };
434 more(); nosignal=sigsav; t_endup(count);
435 }
436
437 show1(idx,str2)
438 register int idx;
439 register char *str2[];
440 {
441 lprintf("\n%c) %s",idx+'a',objectname[iven[idx]]);
442 if (str2!=0 && str2[ivenarg[idx]][0]!=0) lprintf(" of%s",str2[ivenarg[idx]]);
443 }
444
445 show3(index)
446 register int index;
447 {
448 switch(iven[index])
449 {
450 case OPOTION: show1(index,potionname); break;
451 case OSCROLL: show1(index,scrollname); break;
452
453 case OLARNEYE: case OBOOK: case OSPIRITSCARAB:
454 case ODIAMOND: case ORUBY: case OCUBEofUNDEAD:
455 case OEMERALD: case OCHEST: case OCOOKIE:
456 case OSAPPHIRE: case ONOTHEFT: show1(index,(char **)0); break;
457
458 default: lprintf("\n%c) %s",index+'a',objectname[iven[index]]);
459 if (ivenarg[index]>0) lprintf(" + %d",(long)ivenarg[index]);
460 else if (ivenarg[index]<0) lprintf(" %d",(long)ivenarg[index]);
461 break;
462 }
463 if (c[WIELD]==index) lprcat(" (weapon in hand)");
464 if ((c[WEAR]==index) || (c[SHIELD]==index)) lprcat(" (being worn)");
465 if (++srcount>=22) { srcount=0; more(); clear(); }
466 }
467
468 /*
469 subroutine to randomly create monsters if needed
470 */
471 randmonst()
472 {
473 if (c[TIMESTOP]) return; /* don't make monsters if time is stopped */
474 if (--rmst <= 0)
475 {
476 rmst = 120 - (level<<2); fillmonst(makemonst(level));
477 }
478 }
479
480 \f
481 /*
482 parse()
483
484 get and execute a command
485 */
486 parse()
487 {
488 register int i,j,k,flag;
489 while (1)
490 {
491 k = yylex();
492 switch(k) /* get the token from the input and switch on it */
493 {
494 case 'h': moveplayer(4); return; /* west */
495 case 'H': run(4); return; /* west */
496 case 'l': moveplayer(2); return; /* east */
497 case 'L': run(2); return; /* east */
498 case 'j': moveplayer(1); return; /* south */
499 case 'J': run(1); return; /* south */
500 case 'k': moveplayer(3); return; /* north */
501 case 'K': run(3); return; /* north */
502 case 'u': moveplayer(5); return; /* northeast */
503 case 'U': run(5); return; /* northeast */
504 case 'y': moveplayer(6); return; /* northwest */
505 case 'Y': run(6); return; /* northwest */
506 case 'n': moveplayer(7); return; /* southeast */
507 case 'N': run(7); return; /* southeast */
508 case 'b': moveplayer(8); return; /* southwest */
509 case 'B': run(8); return; /* southwest */
510
511 case '.': if (yrepcount) viewflag=1; return; /* stay here */
512
513 case 'w': yrepcount=0; wield(); return; /* wield a weapon */
514
515 case 'W': yrepcount=0; wear(); return; /* wear armor */
516
517 case 'r': yrepcount=0;
518 if (c[BLINDCOUNT]) { cursors(); lprcat("\nYou can't read anything when you're blind!"); } else
519 if (c[TIMESTOP]==0) readscr(); return; /* to read a scroll */
520
521 case 'q': yrepcount=0; if (c[TIMESTOP]==0) quaff(); return; /* quaff a potion */
522
523 case 'd': yrepcount=0; if (c[TIMESTOP]==0) dropobj(); return; /* to drop an object */
524
525 case 'c': yrepcount=0; cast(); return; /* cast a spell */
526
527 case 'i': yrepcount=0; nomove=1; showstr(); return; /* status */
528
529 case 'e': yrepcount=0;
530 if (c[TIMESTOP]==0) eatcookie(); return; /* to eat a fortune cookie */
531
532 case 'D': yrepcount=0; seemagic(0); nomove=1; return; /* list spells and scrolls */
533
534 case '?': yrepcount=0; help(); nomove=1; return; /* give the help screen*/
535
536 case 'S': clear(); lprcat("Saving . . ."); lflush();
537 savegame(savefilename); wizard=1; died(-257); /* save the game - doesn't return */
538
539 case 'Z': yrepcount=0; if (c[LEVEL]>9) { oteleport(1); return; }
540 cursors(); lprcat("\nAs yet, you don't have enough experience to use teleportation");
541 return; /* teleport yourself */
542
543 case '^': /* identify traps */ flag=yrepcount=0; cursors();
544 lprc('\n'); for (j=playery-1; j<playery+2; j++)
545 {
546 if (j < 0) j=0; if (j >= MAXY) break;
547 for (i=playerx-1; i<playerx+2; i++)
548 {
549 if (i < 0) i=0; if (i >= MAXX) break;
550 switch(item[i][j])
551 {
552 case OTRAPDOOR: case ODARTRAP:
553 case OTRAPARROW: case OTELEPORTER:
554 lprcat("\nIts "); lprcat(objectname[item[i][j]]); flag++;
555 };
556 }
557 }
558 if (flag==0) lprcat("\nNo traps are visible");
559 return;
560
561 #if WIZID
562 case '_': /* this is the fudge player password for wizard mode*/
563 yrepcount=0; cursors(); nomove=1;
564 if (userid!=wisid)
565 {
566 lprcat("Sorry, you are not empowered to be a wizard.\n");
567 scbr(); /* system("stty -echo cbreak"); */
568 lflush(); return;
569 }
570 if (getpassword()==0)
571 {
572 scbr(); /* system("stty -echo cbreak"); */ return;
573 }
574 wizard=1; scbr(); /* system("stty -echo cbreak"); */
575 for (i=0; i<6; i++) c[i]=70; iven[0]=iven[1]=0;
576 take(OPROTRING,50); take(OLANCE,25); c[WIELD]=1;
577 c[LANCEDEATH]=1; c[WEAR] = c[SHIELD] = -1;
578 raiseexperience(6000000L); c[AWARENESS] += 25000;
579 {
580 register int i,j;
581 for (i=0; i<MAXY; i++)
582 for (j=0; j<MAXX; j++) know[j][i]=1;
583 for (i=0; i<SPNUM; i++) spelknow[i]=1;
584 for (i=0; i<MAXSCROLL; i++) scrollname[i]=scrollhide[i];
585 for (i=0; i<MAXPOTION; i++) potionname[i]=potionhide[i];
586 }
587 for (i=0; i<MAXSCROLL; i++)
588 if (strlen(scrollname[i])>2) /* no null items */
589 { item[i][0]=OSCROLL; iarg[i][0]=i; }
590 for (i=MAXX-1; i>MAXX-1-MAXPOTION; i--)
591 if (strlen(potionname[i-MAXX+MAXPOTION])>2) /* no null items */
592 { item[i][0]=OPOTION; iarg[i][0]=i-MAXX+MAXPOTION; }
593 for (i=1; i<MAXY; i++)
594 { item[0][i]=i; iarg[0][i]=0; }
595 for (i=MAXY; i<MAXY+MAXX; i++)
596 { item[i-MAXY][MAXY-1]=i; iarg[i-MAXY][MAXY-1]=0; }
597 for (i=MAXX+MAXY; i<MAXX+MAXY+MAXY; i++)
598 { item[MAXX-1][i-MAXX-MAXY]=i; iarg[MAXX-1][i-MAXX-MAXY]=0; }
599 c[GOLD]+=25000; drawscreen(); return;
600 #endif
601
602 case 'T': yrepcount=0; cursors(); if (c[SHIELD] != -1) { c[SHIELD] = -1; lprcat("\nYour shield is off"); bottomline(); } else
603 if (c[WEAR] != -1) { c[WEAR] = -1; lprcat("\nYour armor is off"); bottomline(); }
604 else lprcat("\nYou aren't wearing anything");
605 return;
606
607 case 'g': cursors();
608 lprintf("\nThe stuff you are carrying presently weighs %d pounds",(long)packweight());
609 case ' ': yrepcount=0; nomove=1; return;
610
611 case 'v': yrepcount=0; cursors();
612 lprintf("\nCaverns of Larn, Version %d.%d, Diff=%d",(long)VERSION,(long)SUBVERSION,(long)c[HARDGAME]);
613 if (wizard) lprcat(" Wizard"); nomove=1;
614 if (cheat) lprcat(" Cheater");
615 lprcat(copyright);
616 return;
617
618 case 'Q': yrepcount=0; quit(); nomove=1; return; /* quit */
619
620 case 'L'-64: yrepcount=0; drawscreen(); nomove=1; return; /* look */
621
622 #if WIZID
623 #ifdef EXTRA
624 case 'A': yrepcount=0; nomove=1; if (wizard) { diag(); return; } /* create diagnostic file */
625 return;
626 #endif
627 #endif
628 case 'P': cursors();
629 if (outstanding_taxes>0)
630 lprintf("\nYou presently owe %d gp in taxes.",(long)outstanding_taxes);
631 else
632 lprcat("\nYou do not owe any taxes.");
633 return;
634 };
635 }
636 }
637
638 parse2()
639 {
640 if (c[HASTEMONST]) movemonst(); movemonst(); /* move the monsters */
641 randmonst(); regen();
642 }
643
644 run(dir)
645 int dir;
646 {
647 register int i;
648 i=1; while (i)
649 {
650 i=moveplayer(dir);
651 if (i>0) { if (c[HASTEMONST]) movemonst(); movemonst(); randmonst(); regen(); }
652 if (hitflag) i=0;
653 if (i!=0) showcell(playerx,playery);
654 }
655 }
656
657 /*
658 function to wield a weapon
659 */
660 wield()
661 {
662 register int i;
663 while (1)
664 {
665 if ((i = whatitem("wield"))=='\33') return;
666 if (i != '.')
667 {
668 if (i=='*') showwield();
669 else if (iven[i-'a']==0) { ydhi(i); return; }
670 else if (iven[i-'a']==OPOTION) { ycwi(i); return; }
671 else if (iven[i-'a']==OSCROLL) { ycwi(i); return; }
672 else if ((c[SHIELD]!= -1) && (iven[i-'a']==O2SWORD)) { lprcat("\nBut one arm is busy with your shield!"); return; }
673 else { c[WIELD]=i-'a'; if (iven[i-'a'] == OLANCE) c[LANCEDEATH]=1; else c[LANCEDEATH]=0; bottomline(); return; }
674 }
675 }
676 }
677
678 /*
679 common routine to say you don't have an item
680 */
681 ydhi(x)
682 int x;
683 { cursors(); lprintf("\nYou don't have item %c!",x); }
684 ycwi(x)
685 int x;
686 { cursors(); lprintf("\nYou can't wield item %c!",x); }
687
688 /*
689 function to wear armor
690 */
691 wear()
692 {
693 register int i;
694 while (1)
695 {
696 if ((i = whatitem("wear"))=='\33') return;
697 if (i != '.')
698 {
699 if (i=='*') showwear(); else
700 switch(iven[i-'a'])
701 {
702 case 0: ydhi(i); return;
703 case OLEATHER: case OCHAIN: case OPLATE: case OSTUDLEATHER:
704 case ORING: case OSPLINT: case OPLATEARMOR: case OSSPLATE:
705 if (c[WEAR] != -1) { lprcat("\nYou're already wearing some armor"); return; }
706 c[WEAR]=i-'a'; bottomline(); return;
707 case OSHIELD: if (c[SHIELD] != -1) { lprcat("\nYou are already wearing a shield"); return; }
708 if (iven[c[WIELD]]==O2SWORD) { lprcat("\nYour hands are busy with the two handed sword!"); return; }
709 c[SHIELD] = i-'a'; bottomline(); return;
710 default: lprcat("\nYou can't wear that!");
711 };
712 }
713 }
714 }
715
716 /*
717 function to drop an object
718 */
719 dropobj()
720 {
721 register int i;
722 register char *p;
723 long amt;
724 p = &item[playerx][playery];
725 while (1)
726 {
727 if ((i = whatitem("drop"))=='\33') return;
728 if (i=='*') showstr(); else
729 {
730 if (i=='.') /* drop some gold */
731 {
732 if (*p) { lprcat("\nThere's something here already!"); return; }
733 lprcat("\n\n");
734 cl_dn(1,23);
735 lprcat("How much gold do you drop? ");
736 if ((amt=readnum((long)c[GOLD])) == 0) return;
737 if (amt>c[GOLD])
738 { lprcat("\nYou don't have that much!"); return; }
739 if (amt<=32767)
740 { *p=OGOLDPILE; i=amt; }
741 else if (amt<=327670L)
742 { *p=ODGOLD; i=amt/10; amt = 10*i; }
743 else if (amt<=3276700L)
744 { *p=OMAXGOLD; i=amt/100; amt = 100*i; }
745 else if (amt<=32767000L)
746 { *p=OKGOLD; i=amt/1000; amt = 1000*i; }
747 else
748 { *p=OKGOLD; i=32767; amt = 32767000L; }
749 c[GOLD] -= amt;
750 lprintf("You drop %d gold pieces",(long)amt);
751 iarg[playerx][playery]=i; bottomgold();
752 know[playerx][playery]=0; dropflag=1; return;
753 }
754 drop_object(i-'a');
755 return;
756 }
757 }
758 }
759
760 /*
761 * readscr() Subroutine to read a scroll one is carrying
762 */
763 readscr()
764 {
765 register int i;
766 while (1)
767 {
768 if ((i = whatitem("read"))=='\33') return;
769 if (i != '.')
770 {
771 if (i=='*') showread(); else
772 {
773 if (iven[i-'a']==OSCROLL) { read_scroll(ivenarg[i-'a']); iven[i-'a']=0; return; }
774 if (iven[i-'a']==OBOOK) { readbook(ivenarg[i-'a']); iven[i-'a']=0; return; }
775 if (iven[i-'a']==0) { ydhi(i); return; }
776 lprcat("\nThere's nothing on it to read"); return;
777 }
778 }
779 }
780 }
781
782 /*
783 * subroutine to eat a cookie one is carrying
784 */
785 eatcookie()
786 {
787 register int i;
788 char *p;
789 while (1)
790 {
791 if ((i = whatitem("eat"))=='\33') return;
792 if (i != '.')
793 if (i=='*') showeat(); else
794 {
795 if (iven[i-'a']==OCOOKIE)
796 {
797 lprcat("\nThe cookie was delicious.");
798 iven[i-'a']=0;
799 if (!c[BLINDCOUNT])
800 {
801 if (p=fortune())
802 {
803 lprcat(" Inside you find a scrap of paper that says:\n");
804 lprcat(p);
805 }
806 }
807 return;
808 }
809 if (iven[i-'a']==0) { ydhi(i); return; }
810 lprcat("\nYou can't eat that!"); return;
811 }
812 }
813 }
814
815 /*
816 * subroutine to quaff a potion one is carrying
817 */
818 quaff()
819 {
820 register int i;
821 while (1)
822 {
823 if ((i = whatitem("quaff"))=='\33') return;
824 if (i != '.')
825 {
826 if (i=='*') showquaff(); else
827 {
828 if (iven[i-'a']==OPOTION) { quaffpotion(ivenarg[i-'a']); iven[i-'a']=0; return; }
829 if (iven[i-'a']==0) { ydhi(i); return; }
830 lprcat("\nYou wouldn't want to quaff that, would you? "); return;
831 }
832 }
833 }
834 }
835
836 /*
837 function to ask what player wants to do
838 */
839 whatitem(str)
840 char *str;
841 {
842 int i;
843 cursors(); lprintf("\nWhat do you want to %s [* for all] ? ",str);
844 i=0; while (i>'z' || (i<'a' && i!='*' && i!='\33' && i!='.')) i=getchar();
845 if (i=='\33') lprcat(" aborted");
846 return(i);
847 }
848
849 /*
850 subroutine to get a number from the player
851 and allow * to mean return amt, else return the number entered
852 */
853 unsigned long readnum(mx)
854 long mx;
855 {
856 register int i;
857 register unsigned long amt=0;
858 sncbr();
859 if ((i=getchar()) == '*') amt = mx; /* allow him to say * for all gold */
860 else
861 while (i != '\n')
862 {
863 if (i=='\033') { scbr(); lprcat(" aborted"); return(0); }
864 if ((i <= '9') && (i >= '0') && (amt<99999999))
865 amt = amt*10+i-'0';
866 i = getchar();
867 }
868 scbr(); return(amt);
869 }
870
871 #ifdef HIDEBYLINK
872 /*
873 * routine to zero every byte in a string
874 */
875 szero(str)
876 register char *str;
877 {
878 while (*str)
879 *str++ = 0;
880 }
881 #endif HIDEBYLINK
Port of NetBSD games to Darwin