-+-+-+-+-+-+-+-+ START OF PART 22 -+-+-+-+-+-+-+-+
Xint rmst=80;    /*  random monster creation counter     */
Xint userid;     /* the players login user id number */
Xchar nowelcome=0,nomove=0; /* if (nomove) then don't count next iteration as
V a
X                              move */
Xstatic char viewflag=0;    /* if viewflag then we have done a 99 stay here
X                              and don't showcell in the main loop */
Xchar restorflag=0;         /* 1 means restore has been done    */
Xchar prompt_mode = 0;         /* 1 if prompting for actions */
X
X#ifdef MSDOS
X
Xstatic char cmdhelp`5B`5D = "\
XCmd line format: larn `5B-slicnhp`5D `5B-o<optsfile>`5D `5B-##`5D `5B++`5D\n
V\
X  -s   show the scoreboard\n\
X  -l   show the logfile (wizard id only)\n\
X  -i   show scoreboard with inventories of dead characters\n\
X  -c   create new scoreboard (wizard id only)\n\
X  -n   suppress welcome message on starting game\n\
X  -##  specify level of difficulty (example: -5)\n\
X  -h   print this help text\n\
X  -p   prompt for actions on objects\n\
X  ++   restore game from checkpoint file\n\
X  -o<optsfile>   specify larnopts filename to be used instead of \"larn.opt\
V"\n\
X";
X
X# else
X
Xstatic char cmdhelp`5B`5D = "\
XCmd line format: larn `5B-slicnhp`5D `5B-o<optsfile>`5D `5B-##`5D `5B++`5D\n
V\
X  -s   show the scoreboard\n\
X  -l   show the logfile (wizard id only)\n\
X  -i   show scoreboard with inventories of dead characters\n\
X  -c   create new scoreboard (wizard id only)\n\
X  -n   suppress welcome message on starting game\n\
X  -##  specify level of difficulty (example: -5)\n\
X  -h   print this help text\n\
X  -p   prompt for actions on objects\n\
X  ++   restore game from checkpoint file\n\
X  -o<optsfile>   specify .larnopts filename to be used instead of \"`7E/.lar
Vnopts\"\n\
X";
X
X# endif
X
X#ifdef MSDOS
Xint save_mode = 0;      /* 1 if doing a save game */
Xjmp_buf save_jbuf;      /* To recover from disk full errors */
X#endif
X
X#ifdef VT100
Xstatic char *termtypes`5B`5D = `7B "vt100", "vt101", "vt102", "vt103", "vt12
V5",
X    "vt131", "vt140", "vt180", "vt220", "vt240", "vt241", "vt320", "vt340",
X    "vt341"  `7D;
X#endif
X
X#ifdef VMS
X# define EXIT_FAILURE
X# define EXIT_SUCCESS 1
X#else
X# define EXIT_FAILURE 1
X# define EXIT_SUCCESS 0
X#endif
X
X/*
X    ************
X    MAIN PROGRAM
X    ************
X*/
Xmain(argc,argv)
X    int argc;
X    char **argv;
X    `7B
X    register int i,j;
X    int hard = -1;
X    char *ptr=0;
X#ifdef VT100
X    char *ttype;
X#endif
X#ifndef MSDOS
X    struct passwd *pwe,*getpwuid();
X#endif
X
X/*
X *  first task is to identify the player
X */
X#ifndef VT100
X    init_term();    /* setup the terminal (find out what type) for termcap *
V/
X#endif
X#ifdef MSDOS
X    ptr = "PLAYER";
X#else
X#ifdef VMS
X    ptr = getenv("USER");
X#else
X    if (((ptr = getlogin()) == 0) `7C`7C (*ptr==0)) /* try to get login name
V */
X      if (pwe=getpwuid(getuid())) /* can we get it from /etc/passwd? */
X        ptr = pwe->pw_name;
X      else
X      if ((ptr = getenv("USER")) == 0)
X        if ((ptr = getenv("LOGNAME")) == 0)
X          `7B
X          noone: write(2, "Can't find your logname.  Who Are You?\n",39);
X                 exit();
X          `7D
X    if (ptr==0) goto noone;
X    if (strlen(ptr)==0) goto noone;
X#endif
X#endif
X
X/*
X *  second task is to prepare the pathnames the player will need
X */
X    strcpy(loginname,ptr); /* save loginname of the user for logging purpose
Vs */
X    strcpy(logname,ptr);    /* this will be overwritten with the players nam
Ve */
X
X/* Set up the input and output buffers.
X */
X    lpbuf    = (char *)malloc((5* BUFBIG)>>2);  /* output buffer */
X    inbuffer = (char *)malloc((5*MAXIBUF)>>2);  /* output buffer */
X    if ((lpbuf==0) `7C`7C (inbuffer==0))`20
X        died(-285); /* malloc() failure */
X
X# ifdef MSDOS
X    /* LARNHOME now comes from the options file, so it must be read in
X     * before constructing the other file names.  Unfortunately we have
X     * to look for the -o option now.
X     */
X    strcpy(optsfile, LARNOPTS);
X    for (i = 1; i < argc; i++)
X        if (strncmp(argv`5Bi`5D, "-o", 2) == 0)`20
X            `7B
X            argv`5Bi`5D`5B0`5D = 0;         /* remove this argv */
X            if (argv`5Bi`5D`5B2`5D != '\0')
X                strncpy(optsfile, &argv`5Bi`5D`5B2`5D, PATHLEN);
X            else
X                `7B
X                strncpy(optsfile, argv`5Bi + 1`5D, PATHLEN);
X                argv`5Bi + 1`5D`5B0`5D = 0; /* and this argv */
X                `7D
X            optsfile`5BPATHLEN - 1`5D = 0;
X            break;
X            `7D
X    readopts();
X    append_slash(larndir);
X
X    /* Savefile and swapfile can be given explicitly as options
X     */
X    if (!savefilename`5B0`5D)
X        `7B
X        strcpy(savefilename, larndir);
X        strcat(savefilename, SAVEFILE);
X        `7D
X    if (!swapfile`5B0`5D)
X        `7B
X        strcpy(swapfile, larndir);
X        strcat(swapfile, SWAPFILE);
X        `7D
X    strcpy(scorefile, larndir);
X    strcpy(logfile, larndir);
X    strcpy(helpfile, larndir);
X    strcpy(larnlevels, larndir);
X    strcpy(fortfile, larndir);
X    strcpy(playerids, larndir);
X    strcpy(ckpfile, larndir);
X#  ifdef EXTRA
X    strcpy(diagfile,larndir);
X#  endif
X
X# else /* MSDOS */
X
X    if ((ptr = getenv("HOME")) == 0)
X        ptr = ".";
X#ifdef SAVEINHOME
X    /* save file name in home directory */
X# ifdef VMS
X    sprintf(savefilename, "%s%s",ptr, SAVEFILE);
X# else
X    sprintf(savefilename, "%s/%s",ptr, SAVEFILE);
X# endif VMS
X#else
X    strcat(savefilename,logname);   /* prepare savefile name */
X    strcat(savefilename,".sav");    /* prepare savefile name */
X#endif
X#ifdef VMS
X    sprintf(optsfile, "%s%s",ptr, LARNOPTS);   /* the options filename */
X#else
X    sprintf(optsfile, "%s/%s",ptr, LARNOPTS);   /* the options filename */
X#endif VMS
X
X# endif /* MSDOS */
X
X    strcat(scorefile, SCORENAME);   /* the larn scoreboard filename */
X    strcat(logfile, LOGFNAME);      /* larn activity logging filename */
X    strcat(helpfile, HELPNAME);     /* the larn on-line help file */
X    strcat(larnlevels, LEVELSNAME); /* the pre-made cave level data file */
X    strcat(fortfile, FORTSNAME);    /* the fortune data file name */
X    strcat(playerids, PLAYERIDS);   /* the playerid data file name */
X    strcat(ckpfile, CKPFILE);
X
X# ifdef TIMECHECK
X    strcat(holifile, HOLIFILE);     /* the holiday data file name */
X# endif
X
X# ifdef EXTRA
X    strcat(diagfile, DIAGFILE);
X# endif
X
X#ifdef VT100
X/*
X *  check terminal type to avoid users who have not vt100 type terminals
X */
X    ttype = getenv("TERM");
X    for (j=1, i=0; i<sizeof(termtypes)/sizeof(char *); i++)
X        if (strcmp(ttype,termtypes`5Bi`5D) == 0) `7B j=0;  break; `7D
X    if (j)
X        `7B
X        lprcat("Sorry, Larn needs a VT100 family terminal for all it's featu
Vres.\n"); lflush();
X        exit(EXIT_FAILURE);
X        `7D
X#endif
X
X/*
X *  now make scoreboard if it is not there (don't clear)`20
X */
X    if (access(scorefile,0) == -1) /* not there */
X        makeboard();
X
X/*
X *  now process the command line arguments`20
X */
X    for (i=1; i<argc; i++)
X        `7B
X        if (argv`5Bi`5D`5B0`5D == '-')
X          switch(argv`5Bi`5D`5B1`5D)
X            `7B
X            case 's':          /* show scoreboard   */
X                showscores();
X                exit(EXIT_SUCCESS);
X
X            case 'l':          /* show log file     */
X                diedlog();
X                exit(EXIT_SUCCESS);
X
X            case 'i':          /* show all scoreboard */
X                showallscores();
X                exit(EXIT_SUCCESS);
X
X            case 'c':          /* anyone with password can create scoreboard
V */
X                lprcat("Preparing to initialize the scoreboard.\n");
X                if (getpassword() != 0)  /*make new scoreboard*/
X                    `7B
X                    makeboard();
X                    lprc('\n');
X                    showscores();
X                    `7D
X                exit(EXIT_SUCCESS);
X
X            case 'n':          /* no welcome msg   */
X                nowelcome=1;
X                argv`5Bi`5D`5B0`5D=0;
X                break;
X
X            case '0': case '1': case '2': case '3': case '4': case '5':
X            case '6': case '7': case '8': case '9': /* for hardness */
X                hard = atoi(&argv`5Bi`5D`5B1`5D);
X                break;
X
X            case 'h':          /* print out command line arguments */
X            case '?':
X                write(1,cmdhelp,sizeof(cmdhelp));
X                exit(EXIT_SUCCESS);
X
X            case 'o':          /* specify a .larnopts filename */
X                if (argv`5Bi`5D+2 != '\0')
X                    strncpy(optsfile,argv`5Bi`5D+2,127);
X                else
X                    `7B
X                    strncpy( optsfile, argv`5Bi+1`5D`5B0`5D, 127 );
X                    argv`5Bi+1`5D`5B0`5D = '\0';
X                    `7D
X                break;
X
X            case 'p':          /* set 'prompt_mode' flag */
X                prompt_mode = 1 ;
X                break ;
X
X            default:
X                printf("Unknown option <%s>\n",argv`5Bi`5D);
X                write(1,cmdhelp,sizeof(cmdhelp));
X                exit(EXIT_SUCCESS);
X            `7D;
X
X        if (strcmp(argv`5Bi`5D, "++") == 0)
X            restorflag = 1;
X    `7D
X
X#ifndef MSDOS
X    readopts();     /* read the options file if there is one */
X#endif
X
X#ifdef TIMECHECK
X/*
X *  this section of code checks to see if larn is allowed during working hou
Vrs
X */
X    if (dayplay==0) /* check for not-during-daytime-hours */
X      if (playable())
X        `7B
X        write(2,"Sorry, Larn can not be played during working hours.\n",52);
X        exit(EXIT_SUCCESS);
X        `7D
X#endif TIMECHECK
X
X#ifdef UIDSCORE
X    userid = geteuid(); /* obtain the user's effective id number */
X#else UIDSCORE
X    userid = getplid(logname);  /* obtain the players id number */
X#endif UIDSCORE
X#ifdef VMS
X    wisid = userid;
X#endif VMS
X    if (userid < 0)`20
X        `7B`20
X        write(2,"Can't obtain playerid\n",22);
X        if (userid==-2) printf("Error appending to file\n");
X        exit(EXIT_SUCCESS);
X        `7D
X
X#ifdef HIDEBYLINK
X/*
X *  this section of code causes the program to look like something else to p
Vs
X */
X    if (strcmp(psname,argv`5B0`5D)) /* if a different process name only */
X        `7B
X        if ((i=access(psname,1)) < 0)
X            `7B       /* link not there */
X            if (link(argv`5B0`5D,psname)>=0)
X                `7B
X                argv`5B0`5D = psname;   execv(psname,argv);
X                `7D
X            `7D
X        else
X            unlink(psname);
X        `7D
X
X    for (i=1; i<argc; i++)
X        `7B
X        szero(argv`5Bi`5D); /* zero the argument to avoid ps snooping */
X        `7D
X#endif HIDEBYLINK
X
X/*
X *  He really wants to play, so malloc the memory for the dungeon.
X */
X# ifdef MSDOS
X    allocate_memory();
X# else
X    cell = (struct cel *)malloc(sizeof(struct cel)*(MAXLEVEL+MAXVLEVEL)*MAXX
V*MAXY);
X    if (cell == 0) died(-285);  /* malloc failure */
X# endif
X    lcreat((char*)0);  `20
X    newgame();      /*  set the initial clock  */
X
X    if (restorflag == 1)           /* restore checkpoint file */
X        `7B
X        clear();
X        hitflag = 1;
X        restoregame(ckpfile);
X        `7D
X    else if (access(savefilename,0)==0)   /* restore game if need to */
X        `7B
X        clear();   `20
X        restorflag = 1;
X        hitflag=1; `20
X        restoregame(savefilename);  /* restore last game    */
X        `7D
X    sigsetup();     /* trap all needed signals  */
X    setupvt100();   /*  setup the terminal special mode             */
X    sethard(hard);  /* set up the desired difficulty                */
X    if (c`5BHP`5D==0)   /* create new game */
X        `7B
X        makeplayer();   /*  make the character that will play           */
X        newcavelevel(0);/*  make the dungeon                            */
X        predostuff = 1; /* tell signals that we are in the welcome screen */
X        if (nowelcome==0)
X            welcome();     /* welcome the player to the game */
X# ifdef MSDOS
X        /* Display their mail if they've just won the previous game
X         */
X        checkmail();
X# endif
X        `7D
X
X    lprc(T_INIT);   /* Reinit the screen because of welcome and check mail
X                     * having embedded escape sequences.*/
X    drawscreen();   /*  show the initial dungeon                    */
X    predostuff = 2; /* tell the trap functions that they must do a showplaye
Vr()
X               from here on */
X    /* nice(1); /* games should be run niced */
X    yrepcount = hit2flag = 0;
X    /* init previous player position to be current position, so we don't
X       reveal any stuff on the screen prematurely.
X    */
X    oldx = playerx ;
X    oldy = playery;
X    gtime = -1;
X
X    /* MAINLOOP
X       find objects, move stuff, get commands, regenerate
X    */
X    while (1)
X        `7B
X        if (dropflag==0)
X            /* see if there is an object here.
X
X               If in prompt mode, identify and prompt; else
X               identify, pickup if ( auto pickup and not move-no-pickup ),
X               never prompt.
X            */
X            if (prompt_mode)
X                lookforobject( TRUE, FALSE, TRUE );
X            else
X                lookforobject( TRUE, ( auto_pickup && !move_no_pickup ), FAL
VSE );
X            else
X                dropflag=0; /* don't show it just dropped an item */
X
X        /* handle global activity
X           update game time, move spheres, move walls, move monsters
X           all the stuff affected by TIMESTOP and HASTESELF
X        */
X        if (c`5BTIMESTOP`5D <= 0)
X            if (c`5BHASTESELF`5D == 0 `7C`7C
X               (c`5BHASTESELF`5D & 1) == 0)
X                `7B
X                gtime++;
X                movsphere();
X
X                if (hitflag==0)
X                    `7B
X                    if (c`5BHASTEMONST`5D)
X                        movemonst();
X                    movemonst();
X                    `7D
X                `7D
X
+-+-+-+-+-+-+-+-  END  OF PART 22 +-+-+-+-+-+-+-+-