]> 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
avoid unnecessary floating point ops
[bsdgames-darwin.git] / larn / main.c
1 /* $NetBSD: main.c,v 1.25 2012/06/19 05:30:43 dholland Exp $ */
2
3 /* main.c */
4 #include <sys/cdefs.h>
5 #ifndef lint
6 __RCSID("$NetBSD: main.c,v 1.25 2012/06/19 05:30:43 dholland Exp $");
7 #endif /* not lint */
8
9 #include <sys/types.h>
10 #include <stdio.h>
11 #include <pwd.h>
12 #include <unistd.h>
13 #include <stdlib.h>
14 #include <string.h>
15 #include "header.h"
16 #include "extern.h"
17
18 static void showstr(void);
19 static void t_setup(int);
20 static void t_endup(int);
21 static void showwear(void);
22 static void showwield(void);
23 static void showread(void);
24 static void showeat(void);
25 static void showquaff(void);
26 static void show1(int, const char *[]);
27 static void randmonst(void);
28 static void parse(void);
29 static void run(int);
30 static void wield(void);
31 static void ydhi(int);
32 static void ycwi(int);
33 static void wear(void);
34 static void dropobj(void);
35 static void readscr(void);
36 static void eatcookie(void);
37 static void quaff(void);
38 static int whatitem(const char *);
39
40 static char copyright[] = "\nLarn is copyrighted 1986 by Noah Morgan.\n";
41 int srcount = 0; /* line counter for showstr() */
42 int dropflag = 0; /* if 1 then don't lookforobject() next round */
43 int rmst = 80; /* random monster creation counter */
44 int userid; /* the players login user id number */
45 gid_t gid, egid; /* used for security */
46 u_char nowelcome = 0, nomove = 0; /* if (nomove) then don't
47 * count next iteration as a
48 * move */
49 static char viewflag = 0;
50 /*
51 * if viewflag then we have done a 99 stay here and don't showcell in the
52 * main loop
53 */
54 u_char restorflag = 0; /* 1 means restore has been done */
55 static char cmdhelp[] = "\
56 Cmd line format: larn [-slicnh] [-o<optsfile>] [-##] [++]\n\
57 -s show the scoreboard\n\
58 -l show the logfile (wizard id only)\n\
59 -i show scoreboard with inventories of dead characters\n\
60 -c create new scoreboard (wizard id only)\n\
61 -n suppress welcome message on starting game\n\
62 -## specify level of difficulty (example: -5)\n\
63 -h print this help text\n\
64 ++ restore game from checkpoint file\n\
65 -o<optsfile> specify .larnopts filename to be used instead of \"~/.larnopts\"\n\
66 ";
67 #ifdef VT100
68 static char *termtypes[] = {"vt100", "vt101", "vt102", "vt103", "vt125",
69 "vt131", "vt140", "vt180", "vt220", "vt240", "vt241", "vt320", "vt340",
70 "vt341"};
71 #endif /* VT100 */
72 /*
73 ************
74 MAIN PROGRAM
75 ************
76 */
77 int
78 main(int argc, char **argv)
79 {
80 int i;
81 int hard;
82 const char *ptr = 0;
83 struct passwd *pwe;
84
85 i = 0;
86 egid = getegid();
87 gid = getgid();
88 setegid(gid); /* give up "games" if we have it */
89 /*
90 * first task is to identify the player
91 */
92 #ifndef VT100
93 init_term(); /* setup the terminal (find out what type)
94 * for termcap */
95 #endif /* VT100 */
96 /* try to get login name */
97 if (((ptr = getlogin()) == 0) || (*ptr == 0)) {
98 /* can we get it from /etc/passwd? */
99 if ((pwe = getpwuid(getuid())) != NULL)
100 ptr = pwe->pw_name;
101 else if ((ptr = getenv("USER")) == 0)
102 if ((ptr = getenv("LOGNAME")) == 0) {
103 noone: write(2, "Can't find your logname. Who Are You?\n", 39);
104 exit(1);
105 }
106 }
107 if (ptr == 0)
108 goto noone;
109 if (strlen(ptr) == 0)
110 goto noone;
111 /*
112 * second task is to prepare the pathnames the player will need
113 */
114 strcpy(loginname, ptr); /* save loginname of the user for logging
115 * purposes */
116 strcpy(logname, ptr); /* this will be overwritten with the players
117 * name */
118 if ((ptr = getenv("HOME")) == NULL)
119 ptr = ".";
120 strcpy(savefilename, ptr);
121 strcat(savefilename, "/Larn.sav"); /* save file name in home
122 * directory */
123 snprintf(optsfile, sizeof(optsfile), "%s/.larnopts", ptr);
124 /* the .larnopts filename */
125
126 /*
127 * now malloc the memory for the dungeon
128 */
129 cell = (struct cel *) malloc(sizeof(struct cel) * (MAXLEVEL + MAXVLEVEL) * MAXX * MAXY);
130 if (cell == 0)
131 died(-285); /* malloc failure */
132 lpbuf = malloc((5 * BUFBIG) >> 2); /* output buffer */
133 inbuffer = malloc((5 * MAXIBUF) >> 2); /* output buffer */
134 if ((lpbuf == 0) || (inbuffer == 0))
135 died(-285); /* malloc() failure */
136
137 lcreat((char *) 0);
138 newgame(); /* set the initial clock */
139 hard = -1;
140
141 #ifdef VT100
142 /*
143 * check terminal type to avoid users who have not vt100 type terminals
144 */
145 ttype = getenv("TERM");
146 for (j = 1, i = 0; i < sizeof(termtypes) / sizeof(char *); i++)
147 if (strcmp(ttype, termtypes[i]) == 0) {
148 j = 0;
149 break;
150 }
151 if (j) {
152 lprcat("Sorry, Larn needs a VT100 family terminal for all its features.\n");
153 lflush();
154 exit(1);
155 }
156 #endif /* VT100 */
157
158 /*
159 * now make scoreboard if it is not there (don't clear)
160 */
161 if (access(scorefile, 0) == -1) /* not there */
162 makeboard();
163
164 /*
165 * now process the command line arguments
166 */
167 for (i = 1; i < argc; i++) {
168 if (argv[i][0] == '-')
169 switch (argv[i][1]) {
170 case 's':
171 showscores();
172 exit(0); /* show scoreboard */
173
174 case 'l': /* show log file */
175 diedlog();
176 exit(0);
177
178 case 'i':
179 showallscores();
180 exit(0); /* show all scoreboard */
181
182 case 'c': /* anyone with password can create
183 * scoreboard */
184 lprcat("Preparing to initialize the scoreboard.\n");
185 if (getpassword() != 0) { /* make new scoreboard */
186 makeboard();
187 lprc('\n');
188 showscores();
189 }
190 exit(0);
191
192 case 'n': /* no welcome msg */
193 nowelcome = 1;
194 argv[i][0] = 0;
195 break;
196
197 case '0':
198 case '1':
199 case '2':
200 case '3':
201 case '4':
202 case '5':
203 case '6':
204 case '7':
205 case '8':
206 case '9': /* for hardness */
207 sscanf(&argv[i][1], "%d", &hard);
208 break;
209
210 case 'h': /* print out command line arguments */
211 write(1, cmdhelp, sizeof(cmdhelp));
212 exit(0);
213
214 case 'o': /* specify a .larnopts filename */
215 strncpy(optsfile, argv[i] + 2, 127);
216 break;
217
218 default:
219 printf("Unknown option <%s>\n", argv[i]);
220 exit(1);
221 };
222
223 if (argv[i][0] == '+') {
224 clear();
225 restorflag = 1;
226 if (argv[i][1] == '+') {
227 hitflag = 1;
228 restoregame(ckpfile); /* restore checkpointed
229 * game */
230 }
231 i = argc;
232 }
233 }
234
235 readopts(); /* read the options file if there is one */
236
237
238 #ifdef UIDSCORE
239 userid = geteuid(); /* obtain the user's effective id number */
240 #else /* UIDSCORE */
241 userid = getplid(logname); /* obtain the players id number */
242 #endif /* UIDSCORE */
243 if (userid < 0) {
244 write(2, "Can't obtain playerid\n", 22);
245 exit(1);
246 }
247 #ifdef HIDEBYLINK
248 /*
249 * this section of code causes the program to look like something else to ps
250 */
251 if (strcmp(psname, argv[0])) { /* if a different process name only */
252 if ((i = access(psname, 1)) < 0) { /* link not there */
253 if (link(argv[0], psname) >= 0) {
254 argv[0] = psname;
255 execv(psname, argv);
256 }
257 } else
258 unlink(psname);
259 }
260 for (i = 1; i < argc; i++) {
261 szero(argv[i]); /* zero the argument to avoid ps snooping */
262 }
263 #endif /* HIDEBYLINK */
264
265 if (access(savefilename, 0) == 0) { /* restore game if need to */
266 clear();
267 restorflag = 1;
268 hitflag = 1;
269 restoregame(savefilename); /* restore last game */
270 }
271 sigsetup(); /* trap all needed signals */
272 sethard(hard); /* set up the desired difficulty */
273 setupvt100(); /* setup the terminal special mode */
274 if (c[HP] == 0) { /* create new game */
275 makeplayer(); /* make the character that will play */
276 newcavelevel(0);/* make the dungeon */
277 predostuff = 1; /* tell signals that we are in the welcome
278 * screen */
279 if (nowelcome == 0)
280 welcome(); /* welcome the player to the game */
281 }
282 drawscreen(); /* show the initial dungeon */
283 predostuff = 2; /* tell the trap functions that they must do
284 * a showplayer() from here on */
285 #if 0
286 nice(1); /* games should be run niced */
287 #endif
288 yrepcount = hit2flag = 0;
289 while (1) {
290 if (dropflag == 0)
291 lookforobject(); /* see if there is an object
292 * here */
293 else
294 dropflag = 0; /* don't show it just dropped an item */
295 if (hitflag == 0) {
296 if (c[HASTEMONST])
297 movemonst();
298 movemonst();
299 } /* move the monsters */
300 if (viewflag == 0)
301 showcell(playerx, playery);
302 else
303 viewflag = 0; /* show stuff around player */
304 if (hit3flag)
305 flushall();
306 hitflag = hit3flag = 0;
307 nomove = 1;
308 bot_linex(); /* update bottom line */
309 while (nomove) {
310 if (hit3flag)
311 flushall();
312 nomove = 0;
313 parse();
314 } /* get commands and make moves */
315 regen(); /* regenerate hp and spells */
316 if (c[TIMESTOP] == 0)
317 if (--rmst <= 0) {
318 rmst = 120 - (level << 2);
319 fillmonst(makemonst(level));
320 }
321 }
322 }
323
324
325 /*
326 showstr()
327
328 show character's inventory
329 */
330 static void
331 showstr(void)
332 {
333 int i, number;
334 for (number = 3, i = 0; i < 26; i++)
335 if (iven[i])
336 number++; /* count items in inventory */
337 t_setup(number);
338 qshowstr();
339 t_endup(number);
340 }
341
342 void
343 qshowstr(void)
344 {
345 int i, j, k, sigsav;
346 srcount = 0;
347 sigsav = nosignal;
348 nosignal = 1; /* don't allow ^c etc */
349 if (c[GOLD]) {
350 lprintf(".) %ld gold pieces", (long) c[GOLD]);
351 srcount++;
352 }
353 for (k = 26; k >= 0; k--)
354 if (iven[k]) {
355 for (i = 22; i < 84; i++)
356 for (j = 0; j <= k; j++)
357 if (i == iven[j])
358 show3(j);
359 k = 0;
360 }
361 lprintf("\nElapsed time is %ld. You have %ld mobuls left", (long) ((gltime + 99) / 100 + 1), (long) ((TIMELIMIT - gltime) / 100));
362 more();
363 nosignal = sigsav;
364 }
365
366 /*
367 * subroutine to clear screen depending on # lines to display
368 */
369 static void
370 t_setup(int count)
371 {
372 if (count < 20) { /* how do we clear the screen? */
373 cl_up(79, count);
374 cursor(1, 1);
375 } else {
376 resetscroll();
377 clear();
378 }
379 }
380
381 /*
382 * subroutine to restore normal display screen depending on t_setup()
383 */
384 static void
385 t_endup(int count)
386 {
387 if (count < 18) /* how did we clear the screen? */
388 draws(0, MAXX, 0, (count > MAXY) ? MAXY : count);
389 else {
390 drawscreen();
391 setscroll();
392 }
393 }
394
395 /*
396 function to show the things player is wearing only
397 */
398 static void
399 showwear(void)
400 {
401 int i, j, sigsav, count;
402 sigsav = nosignal;
403 nosignal = 1; /* don't allow ^c etc */
404 srcount = 0;
405
406 for (count = 2, j = 0; j <= 26; j++) /* count number of items we
407 * will display */
408 if ((i = iven[j]) != 0)
409 switch (i) {
410 case OLEATHER:
411 case OPLATE:
412 case OCHAIN:
413 case ORING:
414 case OSTUDLEATHER:
415 case OSPLINT:
416 case OPLATEARMOR:
417 case OSSPLATE:
418 case OSHIELD:
419 count++;
420 };
421
422 t_setup(count);
423
424 for (i = 22; i < 84; i++)
425 for (j = 0; j <= 26; j++)
426 if (i == iven[j])
427 switch (i) {
428 case OLEATHER:
429 case OPLATE:
430 case OCHAIN:
431 case ORING:
432 case OSTUDLEATHER:
433 case OSPLINT:
434 case OPLATEARMOR:
435 case OSSPLATE:
436 case OSHIELD:
437 show3(j);
438 };
439 more();
440 nosignal = sigsav;
441 t_endup(count);
442 }
443
444 /*
445 function to show the things player can wield only
446 */
447 static void
448 showwield(void)
449 {
450 int i, j, sigsav, count;
451 sigsav = nosignal;
452 nosignal = 1; /* don't allow ^c etc */
453 srcount = 0;
454
455 for (count = 2, j = 0; j <= 26; j++) /* count how many items */
456 if ((i = iven[j]) != 0)
457 switch (i) {
458 case ODIAMOND:
459 case ORUBY:
460 case OEMERALD:
461 case OSAPPHIRE:
462 case OBOOK:
463 case OCHEST:
464 case OLARNEYE:
465 case ONOTHEFT:
466 case OSPIRITSCARAB:
467 case OCUBEofUNDEAD:
468 case OPOTION:
469 case OSCROLL:
470 break;
471 default:
472 count++;
473 };
474
475 t_setup(count);
476
477 for (i = 22; i < 84; i++)
478 for (j = 0; j <= 26; j++)
479 if (i == iven[j])
480 switch (i) {
481 case ODIAMOND:
482 case ORUBY:
483 case OEMERALD:
484 case OSAPPHIRE:
485 case OBOOK:
486 case OCHEST:
487 case OLARNEYE:
488 case ONOTHEFT:
489 case OSPIRITSCARAB:
490 case OCUBEofUNDEAD:
491 case OPOTION:
492 case OSCROLL:
493 break;
494 default:
495 show3(j);
496 };
497 more();
498 nosignal = sigsav;
499 t_endup(count);
500 }
501
502 /*
503 * function to show the things player can read only
504 */
505 static void
506 showread(void)
507 {
508 int i, j, sigsav, count;
509 sigsav = nosignal;
510 nosignal = 1; /* don't allow ^c etc */
511 srcount = 0;
512
513 for (count = 2, j = 0; j <= 26; j++)
514 switch (iven[j]) {
515 case OBOOK:
516 case OSCROLL:
517 count++;
518 };
519 t_setup(count);
520
521 for (i = 22; i < 84; i++)
522 for (j = 0; j <= 26; j++)
523 if (i == iven[j])
524 switch (i) {
525 case OBOOK:
526 case OSCROLL:
527 show3(j);
528 };
529 more();
530 nosignal = sigsav;
531 t_endup(count);
532 }
533
534 /*
535 * function to show the things player can eat only
536 */
537 static void
538 showeat(void)
539 {
540 int i, j, sigsav, count;
541 sigsav = nosignal;
542 nosignal = 1; /* don't allow ^c etc */
543 srcount = 0;
544
545 for (count = 2, j = 0; j <= 26; j++)
546 switch (iven[j]) {
547 case OCOOKIE:
548 count++;
549 };
550 t_setup(count);
551
552 for (i = 22; i < 84; i++)
553 for (j = 0; j <= 26; j++)
554 if (i == iven[j])
555 switch (i) {
556 case OCOOKIE:
557 show3(j);
558 };
559 more();
560 nosignal = sigsav;
561 t_endup(count);
562 }
563
564 /*
565 function to show the things player can quaff only
566 */
567 static void
568 showquaff(void)
569 {
570 int i, j, sigsav, count;
571 sigsav = nosignal;
572 nosignal = 1; /* don't allow ^c etc */
573 srcount = 0;
574
575 for (count = 2, j = 0; j <= 26; j++)
576 switch (iven[j]) {
577 case OPOTION:
578 count++;
579 };
580 t_setup(count);
581
582 for (i = 22; i < 84; i++)
583 for (j = 0; j <= 26; j++)
584 if (i == iven[j])
585 switch (i) {
586 case OPOTION:
587 show3(j);
588 };
589 more();
590 nosignal = sigsav;
591 t_endup(count);
592 }
593
594 static void
595 show1(int idx, const char *str2[])
596 {
597 lprintf("\n%c) %s", idx + 'a', objectname[iven[idx]]);
598 if (str2 != 0 && str2[ivenarg[idx]][0] != 0)
599 lprintf(" of%s", str2[ivenarg[idx]]);
600 }
601
602 void
603 show3(int indx)
604 {
605 switch (iven[indx]) {
606 case OPOTION:
607 show1(indx, potionname);
608 break;
609 case OSCROLL:
610 show1(indx, scrollname);
611 break;
612
613 case OLARNEYE:
614 case OBOOK:
615 case OSPIRITSCARAB:
616 case ODIAMOND:
617 case ORUBY:
618 case OCUBEofUNDEAD:
619 case OEMERALD:
620 case OCHEST:
621 case OCOOKIE:
622 case OSAPPHIRE:
623 case ONOTHEFT:
624 show1(indx, NULL);
625 break;
626
627 default:
628 lprintf("\n%c) %s", indx + 'a', objectname[iven[indx]]);
629 if (ivenarg[indx] > 0)
630 lprintf(" + %ld", (long) ivenarg[indx]);
631 else if (ivenarg[indx] < 0)
632 lprintf(" %ld", (long) ivenarg[indx]);
633 break;
634 }
635 if (c[WIELD] == indx)
636 lprcat(" (weapon in hand)");
637 if ((c[WEAR] == indx) || (c[SHIELD] == indx))
638 lprcat(" (being worn)");
639 if (++srcount >= 22) {
640 srcount = 0;
641 more();
642 clear();
643 }
644 }
645
646 /*
647 subroutine to randomly create monsters if needed
648 */
649 static void
650 randmonst(void)
651 {
652 if (c[TIMESTOP])
653 return; /* don't make monsters if time is stopped */
654 if (--rmst <= 0) {
655 rmst = 120 - (level << 2);
656 fillmonst(makemonst(level));
657 }
658 }
659
660
661
662 /*
663 parse()
664
665 get and execute a command
666 */
667 static void
668 parse(void)
669 {
670 int i, j, k, flag;
671 while (1) {
672 k = yylex();
673 switch (k) { /* get the token from the input and switch on
674 * it */
675 case 'h':
676 moveplayer(4);
677 return; /* west */
678 case 'H':
679 run(4);
680 return; /* west */
681 case 'l':
682 moveplayer(2);
683 return; /* east */
684 case 'L':
685 run(2);
686 return; /* east */
687 case 'j':
688 moveplayer(1);
689 return; /* south */
690 case 'J':
691 run(1);
692 return; /* south */
693 case 'k':
694 moveplayer(3);
695 return; /* north */
696 case 'K':
697 run(3);
698 return; /* north */
699 case 'u':
700 moveplayer(5);
701 return; /* northeast */
702 case 'U':
703 run(5);
704 return; /* northeast */
705 case 'y':
706 moveplayer(6);
707 return; /* northwest */
708 case 'Y':
709 run(6);
710 return; /* northwest */
711 case 'n':
712 moveplayer(7);
713 return; /* southeast */
714 case 'N':
715 run(7);
716 return; /* southeast */
717 case 'b':
718 moveplayer(8);
719 return; /* southwest */
720 case 'B':
721 run(8);
722 return; /* southwest */
723
724 case '.':
725 if (yrepcount)
726 viewflag = 1;
727 return; /* stay here */
728
729 case 'w':
730 yrepcount = 0;
731 wield();
732 return; /* wield a weapon */
733
734 case 'W':
735 yrepcount = 0;
736 wear();
737 return; /* wear armor */
738
739 case 'r':
740 yrepcount = 0;
741 if (c[BLINDCOUNT]) {
742 cursors();
743 lprcat("\nYou can't read anything when you're blind!");
744 } else if (c[TIMESTOP] == 0)
745 readscr();
746 return; /* to read a scroll */
747
748 case 'q':
749 yrepcount = 0;
750 if (c[TIMESTOP] == 0)
751 quaff();
752 return; /* quaff a potion */
753
754 case 'd':
755 yrepcount = 0;
756 if (c[TIMESTOP] == 0)
757 dropobj();
758 return; /* to drop an object */
759
760 case 'c':
761 yrepcount = 0;
762 cast();
763 return; /* cast a spell */
764
765 case 'i':
766 yrepcount = 0;
767 nomove = 1;
768 showstr();
769 return; /* status */
770
771 case 'e':
772 yrepcount = 0;
773 if (c[TIMESTOP] == 0)
774 eatcookie();
775 return; /* to eat a fortune cookie */
776
777 case 'D':
778 yrepcount = 0;
779 seemagic(0);
780 nomove = 1;
781 return; /* list spells and scrolls */
782
783 case '?':
784 yrepcount = 0;
785 help();
786 nomove = 1;
787 return; /* give the help screen */
788
789 case 'S':
790 clear();
791 lprcat("Saving . . .");
792 lflush();
793 savegame(savefilename);
794 wizard = 1;
795 died(-257); /* save the game - doesn't return */
796
797 case 'Z':
798 yrepcount = 0;
799 if (c[LEVEL] > 9) {
800 oteleport(1);
801 return;
802 }
803 cursors();
804 lprcat("\nAs yet, you don't have enough experience to use teleportation");
805 return; /* teleport yourself */
806
807 case '^': /* identify traps */
808 flag = yrepcount = 0;
809 cursors();
810 lprc('\n');
811 for (j = playery - 1; j < playery + 2; j++) {
812 if (j < 0)
813 j = 0;
814 if (j >= MAXY)
815 break;
816 for (i = playerx - 1; i < playerx + 2; i++) {
817 if (i < 0)
818 i = 0;
819 if (i >= MAXX)
820 break;
821 switch (item[i][j]) {
822 case OTRAPDOOR:
823 case ODARTRAP:
824 case OTRAPARROW:
825 case OTELEPORTER:
826 lprcat("\nIt's ");
827 lprcat(objectname[item[i][j]]);
828 flag++;
829 };
830 }
831 }
832 if (flag == 0)
833 lprcat("\nNo traps are visible");
834 return;
835
836 #if WIZID
837 case '_': /* this is the fudge player password for
838 * wizard mode */
839 yrepcount = 0;
840 cursors();
841 nomove = 1;
842 if (userid != wisid) {
843 lprcat("Sorry, you are not empowered to be a wizard.\n");
844 scbr(); /* system("stty -echo cbreak"); */
845 lflush();
846 return;
847 }
848 if (getpassword() == 0) {
849 scbr(); /* system("stty -echo cbreak"); */
850 return;
851 }
852 wizard = 1;
853 scbr(); /* system("stty -echo cbreak"); */
854 for (i = 0; i < 6; i++)
855 c[i] = 70;
856 iven[0] = iven[1] = 0;
857 take(OPROTRING, 50);
858 take(OLANCE, 25);
859 c[WIELD] = 1;
860 c[LANCEDEATH] = 1;
861 c[WEAR] = c[SHIELD] = -1;
862 raiseexperience(6000000L);
863 c[AWARENESS] += 25000;
864 {
865 int i, j;
866 for (i = 0; i < MAXY; i++)
867 for (j = 0; j < MAXX; j++)
868 know[j][i] = 1;
869 for (i = 0; i < SPNUM; i++)
870 spelknow[i] = 1;
871 for (i = 0; i < MAXSCROLL; i++)
872 scrollname[i] = scrollhide[i];
873 for (i = 0; i < MAXPOTION; i++)
874 potionname[i] = potionhide[i];
875 }
876 for (i = 0; i < MAXSCROLL; i++)
877 if (strlen(scrollname[i]) > 2) { /* no null items */
878 item[i][0] = OSCROLL;
879 iarg[i][0] = i;
880 }
881 for (i = MAXX - 1; i > MAXX - 1 - MAXPOTION; i--)
882 if (strlen(potionname[i - MAXX + MAXPOTION]) > 2) { /* no null items */
883 item[i][0] = OPOTION;
884 iarg[i][0] = i - MAXX + MAXPOTION;
885 }
886 for (i = 1; i < MAXY; i++) {
887 item[0][i] = i;
888 iarg[0][i] = 0;
889 }
890 for (i = MAXY; i < MAXY + MAXX; i++) {
891 item[i - MAXY][MAXY - 1] = i;
892 iarg[i - MAXY][MAXY - 1] = 0;
893 }
894 for (i = MAXX + MAXY; i < MAXX + MAXY + MAXY; i++) {
895 item[MAXX - 1][i - MAXX - MAXY] = i;
896 iarg[MAXX - 1][i - MAXX - MAXY] = 0;
897 }
898 c[GOLD] += 25000;
899 drawscreen();
900 return;
901 #endif
902
903 case 'T':
904 yrepcount = 0;
905 cursors();
906 if (c[SHIELD] != -1) {
907 c[SHIELD] = -1;
908 lprcat("\nYour shield is off");
909 bottomline();
910 } else if (c[WEAR] != -1) {
911 c[WEAR] = -1;
912 lprcat("\nYour armor is off");
913 bottomline();
914 } else
915 lprcat("\nYou aren't wearing anything");
916 return;
917
918 case 'g':
919 cursors();
920 lprintf("\nThe stuff you are carrying presently weighs %ld pounds", (long) packweight());
921 case ' ':
922 yrepcount = 0;
923 nomove = 1;
924 return;
925
926 case 'v':
927 yrepcount = 0;
928 cursors();
929 lprintf("\nCaverns of Larn, Version %ld.%ld, Diff=%ld",
930 (long) VERSION, (long) SUBVERSION,
931 (long) c[HARDGAME]);
932 if (wizard)
933 lprcat(" Wizard");
934 nomove = 1;
935 if (cheat)
936 lprcat(" Cheater");
937 lprcat(copyright);
938 return;
939
940 case 'Q':
941 yrepcount = 0;
942 quit();
943 nomove = 1;
944 return; /* quit */
945
946 case 'L' - 64:
947 yrepcount = 0;
948 drawscreen();
949 nomove = 1;
950 return; /* look */
951
952 #if WIZID
953 #ifdef EXTRA
954 case 'A':
955 yrepcount = 0;
956 nomove = 1;
957 if (wizard) {
958 diag();
959 return;
960 } /* create diagnostic file */
961 return;
962 #endif
963 #endif
964 case 'P':
965 cursors();
966 if (outstanding_taxes > 0)
967 lprintf("\nYou presently owe %ld gp in taxes.",
968 (long) outstanding_taxes);
969 else
970 lprcat("\nYou do not owe any taxes.");
971 return;
972 };
973 }
974 }
975
976 void
977 parse2(void)
978 {
979 if (c[HASTEMONST])
980 movemonst();
981 movemonst(); /* move the monsters */
982 randmonst();
983 regen();
984 }
985
986 static void
987 run(int dir)
988 {
989 int i;
990 i = 1;
991 while (i) {
992 i = moveplayer(dir);
993 if (i > 0) {
994 if (c[HASTEMONST])
995 movemonst();
996 movemonst();
997 randmonst();
998 regen();
999 }
1000 if (hitflag)
1001 i = 0;
1002 if (i != 0)
1003 showcell(playerx, playery);
1004 }
1005 }
1006
1007 /*
1008 function to wield a weapon
1009 */
1010 static void
1011 wield(void)
1012 {
1013 int i;
1014 while (1) {
1015 if ((i = whatitem("wield")) == '\33')
1016 return;
1017 if (i != '.') {
1018 if (i == '*')
1019 showwield();
1020 else if (iven[i - 'a'] == 0) {
1021 ydhi(i);
1022 return;
1023 } else if (iven[i - 'a'] == OPOTION) {
1024 ycwi(i);
1025 return;
1026 } else if (iven[i - 'a'] == OSCROLL) {
1027 ycwi(i);
1028 return;
1029 } else if ((c[SHIELD] != -1) && (iven[i - 'a'] == O2SWORD)) {
1030 lprcat("\nBut one arm is busy with your shield!");
1031 return;
1032 } else {
1033 c[WIELD] = i - 'a';
1034 if (iven[i - 'a'] == OLANCE)
1035 c[LANCEDEATH] = 1;
1036 else
1037 c[LANCEDEATH] = 0;
1038 bottomline();
1039 return;
1040 }
1041 }
1042 }
1043 }
1044
1045 /*
1046 common routine to say you don't have an item
1047 */
1048 static void
1049 ydhi(int x)
1050 {
1051 cursors();
1052 lprintf("\nYou don't have item %c!", x);
1053 }
1054 static void
1055 ycwi(int x)
1056 {
1057 cursors();
1058 lprintf("\nYou can't wield item %c!", x);
1059 }
1060
1061 /*
1062 function to wear armor
1063 */
1064 static void
1065 wear(void)
1066 {
1067 int i;
1068 while (1) {
1069 if ((i = whatitem("wear")) == '\33')
1070 return;
1071 if (i != '.') {
1072 if (i == '*')
1073 showwear();
1074 else
1075 switch (iven[i - 'a']) {
1076 case 0:
1077 ydhi(i);
1078 return;
1079 case OLEATHER:
1080 case OCHAIN:
1081 case OPLATE:
1082 case OSTUDLEATHER:
1083 case ORING:
1084 case OSPLINT:
1085 case OPLATEARMOR:
1086 case OSSPLATE:
1087 if (c[WEAR] != -1) {
1088 lprcat("\nYou're already wearing some armor");
1089 return;
1090 }
1091 c[WEAR] = i - 'a';
1092 bottomline();
1093 return;
1094 case OSHIELD:
1095 if (c[SHIELD] != -1) {
1096 lprcat("\nYou are already wearing a shield");
1097 return;
1098 }
1099 if (iven[c[WIELD]] == O2SWORD) {
1100 lprcat("\nYour hands are busy with the two handed sword!");
1101 return;
1102 }
1103 c[SHIELD] = i - 'a';
1104 bottomline();
1105 return;
1106 default:
1107 lprcat("\nYou can't wear that!");
1108 };
1109 }
1110 }
1111 }
1112
1113 /*
1114 function to drop an object
1115 */
1116 static void
1117 dropobj(void)
1118 {
1119 int i;
1120 unsigned char *p;
1121 long amt;
1122 p = &item[playerx][playery];
1123 while (1) {
1124 if ((i = whatitem("drop")) == '\33')
1125 return;
1126 if (i == '*')
1127 showstr();
1128 else {
1129 if (i == '.') { /* drop some gold */
1130 if (*p) {
1131 lprcat("\nThere's something here already!");
1132 return;
1133 }
1134 lprcat("\n\n");
1135 cl_dn(1, 23);
1136 lprcat("How much gold do you drop? ");
1137 if ((amt = readnum((long) c[GOLD])) == 0)
1138 return;
1139 if (amt > c[GOLD]) {
1140 lprcat("\nYou don't have that much!");
1141 return;
1142 }
1143 if (amt <= 32767) {
1144 *p = OGOLDPILE;
1145 i = amt;
1146 } else if (amt <= 327670L) {
1147 *p = ODGOLD;
1148 i = amt / 10;
1149 amt = 10 * i;
1150 } else if (amt <= 3276700L) {
1151 *p = OMAXGOLD;
1152 i = amt / 100;
1153 amt = 100 * i;
1154 } else if (amt <= 32767000L) {
1155 *p = OKGOLD;
1156 i = amt / 1000;
1157 amt = 1000 * i;
1158 } else {
1159 *p = OKGOLD;
1160 i = 32767;
1161 amt = 32767000L;
1162 }
1163 c[GOLD] -= amt;
1164 lprintf("You drop %ld gold pieces", (long)amt);
1165 iarg[playerx][playery] = i;
1166 bottomgold();
1167 know[playerx][playery] = 0;
1168 dropflag = 1;
1169 return;
1170 }
1171 drop_object(i - 'a');
1172 return;
1173 }
1174 }
1175 }
1176
1177 /*
1178 * readscr() Subroutine to read a scroll one is carrying
1179 */
1180 static void
1181 readscr(void)
1182 {
1183 int i;
1184 while (1) {
1185 if ((i = whatitem("read")) == '\33')
1186 return;
1187 if (i != '.') {
1188 if (i == '*')
1189 showread();
1190 else {
1191 if (iven[i - 'a'] == OSCROLL) {
1192 read_scroll(ivenarg[i - 'a']);
1193 iven[i - 'a'] = 0;
1194 return;
1195 }
1196 if (iven[i - 'a'] == OBOOK) {
1197 readbook(ivenarg[i - 'a']);
1198 iven[i - 'a'] = 0;
1199 return;
1200 }
1201 if (iven[i - 'a'] == 0) {
1202 ydhi(i);
1203 return;
1204 }
1205 lprcat("\nThere's nothing on it to read");
1206 return;
1207 }
1208 }
1209 }
1210 }
1211
1212 /*
1213 * subroutine to eat a cookie one is carrying
1214 */
1215 static void
1216 eatcookie(void)
1217 {
1218 const char *p;
1219 int i;
1220
1221 while (1) {
1222 if ((i = whatitem("eat")) == '\33')
1223 return;
1224 if (i != '.') {
1225 if (i == '*')
1226 showeat();
1227 else {
1228 if (iven[i - 'a'] == OCOOKIE) {
1229 lprcat("\nThe cookie was delicious.");
1230 iven[i - 'a'] = 0;
1231 if (!c[BLINDCOUNT]) {
1232 if ((p = fortune()) != NULL) {
1233 lprcat(" Inside you find a scrap of paper that says:\n");
1234 lprcat(p);
1235 }
1236 }
1237 return;
1238 }
1239 if (iven[i - 'a'] == 0) {
1240 ydhi(i);
1241 return;
1242 }
1243 lprcat("\nYou can't eat that!");
1244 return;
1245 }
1246 }
1247 }
1248 }
1249
1250 /*
1251 * subroutine to quaff a potion one is carrying
1252 */
1253 static void
1254 quaff(void)
1255 {
1256 int i;
1257 while (1) {
1258 if ((i = whatitem("quaff")) == '\33')
1259 return;
1260 if (i != '.') {
1261 if (i == '*')
1262 showquaff();
1263 else {
1264 if (iven[i - 'a'] == OPOTION) {
1265 quaffpotion(ivenarg[i - 'a']);
1266 iven[i - 'a'] = 0;
1267 return;
1268 }
1269 if (iven[i - 'a'] == 0) {
1270 ydhi(i);
1271 return;
1272 }
1273 lprcat("\nYou wouldn't want to quaff that, would you? ");
1274 return;
1275 }
1276 }
1277 }
1278 }
1279
1280 /*
1281 function to ask what player wants to do
1282 */
1283 static int
1284 whatitem(const char *str)
1285 {
1286 int i;
1287 cursors();
1288 lprintf("\nWhat do you want to %s [* for all] ? ", str);
1289 i = 0;
1290 while (i > 'z' || (i < 'a' && i != '*' && i != '\33' && i != '.'))
1291 i = ttgetch();
1292 if (i == '\33')
1293 lprcat(" aborted");
1294 return (i);
1295 }
1296
1297 /*
1298 subroutine to get a number from the player
1299 and allow * to mean return amt, else return the number entered
1300 */
1301 unsigned long
1302 readnum(long mx)
1303 {
1304 int i;
1305 unsigned long amt = 0;
1306 sncbr();
1307 if ((i = ttgetch()) == '*')
1308 amt = mx; /* allow him to say * for all gold */
1309 else
1310 while (i != '\n') {
1311 if (i == '\033') {
1312 scbr();
1313 lprcat(" aborted");
1314 return (0);
1315 }
1316 if ((i <= '9') && (i >= '0') && (amt < 99999999))
1317 amt = amt * 10 + i - '0';
1318 i = ttgetch();
1319 }
1320 scbr();
1321 return (amt);
1322 }
1323
1324 #ifdef HIDEBYLINK
1325 /*
1326 * routine to zero every byte in a string
1327 */
1328 void
1329 szero(str)
1330 char *str;
1331 {
1332 while (*str)
1333 *str++ = 0;
1334 }
1335 #endif /* HIDEBYLINK */
Port of NetBSD games to Darwin