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