games/larn/main.c

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