diag.c

/* diag.c */
#include <sys/types.h>
#include <sys/stat.h>
#include <stdlib.h>
#include <time.h>

#include "larncons.h"
#include "larndata.h"
#include "larnfunc.h"

static void	greedy(void);
static void	fsorry(void);
static void	fcheat(void);


/*
    ***************************
    DIAG -- dungeon diagnostics
    ***************************

    subroutine to print out data for debugging
 */
#ifdef EXTRA
static int rndcount[16];

int diag(void)
{
	int i, j;
	int hit, dam;

    cursors();  lwclose();
    if (lcreat(diagfile) < 0)   /*  open the diagnostic file    */
        {
        lcreat((char*)0); lprcat("\ndiagnostic failure\n"); return(-1);
        }

    write(1,"\nDiagnosing . . .\n",18);
    lprcat("\n\nBeginning of DIAG diagnostics ----------\n");

/*  for the character attributes    */

    lprintf("\n\nPlayer attributes:\n\nHit points: %2d(%2d)",(long)c[HP],(long)c[HPMAX]);
    lprintf("\ngold: %d  Experience: %d  Character level: %d  Level in caverns: %d",
        (long)c[GOLD],(long)c[EXPERIENCE],(long)c[LEVEL],(long)level);
    lprintf("\nTotal types of monsters: %d",(long)MAXMONST+8);

    lprcat("\f\nHere's the dungeon:\n\n");

    i=level;
    for (j=0; j<MAXLEVEL+MAXVLEVEL; j++)
        {
        newcavelevel(j);
        lprintf("\nMaze for level %s:\n",levelname[level]);
        diagdrawscreen();
        }
    newcavelevel(i);

    lprcat("\f\nNow for the monster data:\n\n");
    lprcat("   Monster Name      LEV  AC   DAM  ATT  DEF    GOLD   HP     EXP   \n");
    lprcat("--------------------------------------------------------------------------\n");
    for (i=0; i<=MAXMONST+8; i++)
        {
        lprintf("%19s  %2d  %3d ",monster[i].name,(long)monster[i].level,(long)monster[i].armorclass);
        lprintf(" %3d  %3d  %3d  ",(long)monster[i].damage,(long)monster[i].attack,(long)monster[i].defense);
        lprintf("%6d  %3d   %6d\n",(long)monster[i].gold,(long)monster[i].hitpoints,(long)monster[i].experience);
        }

    lprcat("\n\nHere's a Table for the to hit percentages\n");
    lprcat("\n     We will be assuming that players level = 2 * monster level");
    lprcat("\n     and that the players dexterity and strength are 16.");
    lprcat("\n    to hit: if (rnd(22) < (2[monst AC] + your level + dex + WC/8 -1)/2) then hit");
    lprcat("\n    damage = rund(8) + WC/2 + STR - c[HARDGAME] - 4");
    lprcat("\n    to hit:  if rnd(22) < to hit  then player hits\n");
    lprcat("\n    Each entry is as follows:  to hit / damage / number hits to kill\n");
    lprcat("\n          monster     WC = 4         WC = 20        WC = 40");
    lprcat("\n---------------------------------------------------------------");
    for (i=0; i<=MAXMONST+8; i++)
        {
        hit = 2*monster[i].armorclass+2*monster[i].level+16;
        dam = 16 - c[HARDGAME];
        lprintf("\n%20s   %2d/%2d/%2d       %2d/%2d/%2d       %2d/%2d/%2d",
                    monster[i].name,
                    (long)(hit/2),(long)max(0,dam+2),(long)(monster[i].hitpoints/(dam+2)+1),
                    (long)((hit+2)/2),(long)max(0,dam+10),(long)(monster[i].hitpoints/(dam+10)+1),
                    (long)((hit+5)/2),(long)max(0,dam+20),(long)(monster[i].hitpoints/(dam+20)+1));
        }

    lprcat("\n\nHere's the list of available potions:\n\n");
    for (i=0; i<MAXPOTION; i++) lprintf("%20s\n",&potionname[i][1]);
    lprcat("\n\nHere's the list of available scrolls:\n\n");
    for (i=0; i<MAXSCROLL; i++) lprintf("%20s\n",&scrollname[i][1]);
    lprcat("\n\nHere's the spell list:\n\n");
    lprcat("spell          name           description\n");
    lprcat("-------------------------------------------------------------------------------------------\n\n");
    for (j=0; j<SPNUM; j++)
        {
        lprc(' ');  lprcat(spelcode[j]);
        lprintf(" %21s  %s\n",spelname[j],speldescript[j]); 
        }

    lprcat("\n\nFor the c[] array:\n");
    for (j=0; j<100; j+=10)
        {
        lprintf("\nc[%2d] = ",(long)j); for (i=0; i<9; i++) lprintf("%5d ",(long)c[i+j]);
        }

    lprcat("\n\nTest of random number generator ----------------");
    lprcat("\n    for 25,000 calls divided into 16 slots\n\n");

    for (i=0; i<16; i++)  rndcount[i]=0;
    for (i=0; i<25000; i++) rndcount[rund(16)]++;
    for (i=0; i<16; i++)  { lprintf("  %5d",(long)rndcount[i]); if (i==7) lprc('\n'); }

    lprcat("\n\n");         lwclose();
    lcreat((char*)0);       lprcat("Done Diagnosing . . .");
    return(0);
}


/*
    subroutine to draw the whole screen as the player knows it
 */
void diagdrawscreen(void)
{
    int i, j, k;

    for (i=0; i<MAXY; i++)

/*  for the east west walls of this line    */
        {
        for (j=0; j<MAXX; j++)  if (k=mitem[j][i]) lprc(monstnamelist[k]); else
                                lprc(objnamelist[item[j][i]]);
        lprc('\n');
        }
}
#endif

/*
    to save the game in a file
 */
static long int zzz=0;

int savegame(char *fname)
{
	int i,k;
	struct sphere *sp;

lflush();  savelevel();
    ointerest();
    if (lcreat(fname) < 0)
        {
        lcreat((char*)0); lprintf("\nCan't open file <%s> to save game\n",fname);
        return(-1);
        }

    set_score_output();

    lwrite((char*)beenhere,MAXLEVEL+MAXVLEVEL);
    for (k=0; k<MAXLEVEL+MAXVLEVEL; k++)
        if (beenhere[k])
            lwrite((char*)&cell[(long) k*MAXX*MAXY],sizeof(struct cel)*MAXY*MAXX);

    lwrite((char*)&c[0],100*sizeof(long));
    lprint((long)gtime);
lprc(level);
    lprc(playerx);
lprc(playery);
	    
    lwrite((char*)iven,26); lwrite((char*)ivenarg,26*sizeof(short));
    
    for (k=0; k<MAXSCROLL; k++) {
	    
	    lprc(scrollname[k][0]);
    }
    
    for (k=0; k<MAXPOTION; k++)  {
	    
	    lprc(potionname[k][0]);
    }

    lwrite((char*)spelknow,SPNUM);
    
    lprc(wizard);
    
    lprc(rmst);     /*  random monster generation counter */
    
    for (i = 0; i < 90; i++) {
	    
	    lprc(dnd_item[i].qty);
    }
	    
    lwrite((char*)course,25);           lprc(cheat);        lprc(VERSION);
    for (i=0; i<MAXMONST; i++) lprc(monster[i].genocided); /* genocide info */
    for (sp=spheres; sp; sp=sp->p)
        lwrite((char*)sp,sizeof(struct sphere));    /* save spheres of annihilation */
    time(&zzz);         lprint((long)(zzz-initialtime));
    lwrite((char*)&zzz,sizeof(long));

    lwclose();  lastmonst[0] = 0;
    
    setscroll();

    lcreat((char*)0);
    return(0);
}

    
void restoregame(char *fname)
{
	int i, k;
	struct sphere *sp, *sp2;
	struct stat filetimes;

    cursors(); lprcat("\nRestoring . . .");  lflush();
    if (lopen(fname) <= 0)
        {
        lcreat((char*)0); lprintf("\nCan't open file <%s>to restore game\n",fname);
        nap(2000); c[GOLD]=c[BANKACCOUNT]=0;  died(-265); return;
        }
    lrfill((char*)beenhere,MAXLEVEL+MAXVLEVEL);

    for (k=0; k<MAXLEVEL+MAXVLEVEL; k++) {
        
	if (!beenhere[k]) continue;
	
	lrfill((char*)&cell[(long) k*MAXX*MAXY],
		sizeof(struct cel)*MAXY*MAXX
	);
   }

    lrfill((char*)&c[0],100*sizeof(long));  gtime = larint();
    level = c[CAVELEVEL] = lgetc();
    playerx = lgetc();      playery = lgetc();
    lrfill((char*)iven,26);
   lrfill((char*)ivenarg,26*sizeof(short));
    
    for (k = 0; k < MAXSCROLL; k++) {

	    scrollname[k][0] = lgetc();
    }
	    
    for (k=0; k<MAXPOTION; k++) {

	    potionname[k][0] = lgetc();
    }
    lrfill((char*)spelknow,SPNUM);      wizard = lgetc();
    rmst = lgetc();         /*  random monster creation flag */

    for (i=0; i<90; i++) {
	    
	    dnd_item[i].qty = lgetc();
    }
    
    lrfill((char*)course,25);           cheat = lgetc();
    if (VERSION != lgetc())     /*  version number  */
        {
        cheat=1;
        lprcat("Sorry, But your save file is for an older version of larn\n");
        nap(2000); c[GOLD]=c[BANKACCOUNT]=0;  died(-266); return;
        }

    for (i=0; i<MAXMONST; i++) monster[i].genocided=lgetc(); /* genocide info */
    for (sp=0,i=0; i<c[SPHCAST]; i++)
        {
        sp2 = sp;
        sp = (struct sphere *)malloc(sizeof(struct sphere));
        if (sp==0) { write(2,"Can't malloc() for sphere space\n",32); break; }
        lrfill((char*)sp,sizeof(struct sphere));    /* get spheres of annihilation */
        sp->p=0;    /* null out pointer */
        if (i==0) spheres=sp;   /* beginning of list */
            else sp2->p = sp;
        }

    time(&zzz);
    initialtime = zzz-larint();
    fstat(fd,&filetimes);   /*  get the creation and modification time of file  */
    lrfill((char*)&zzz,sizeof(long));   zzz += 6;
    if (filetimes.st_ctime > zzz) fsorry(); /*  file create time    */
    else if (filetimes.st_mtime > zzz) fsorry(); /* file modify time    */
    if (c[HP]<0) { died(284); return; } /* died a post mortem death */

    oldx = oldy = 0;

    lrclose();
   
    if (unlink(fname) < 0) fcheat(); /* can't unlink save file */
/*  for the greedy cheater checker  */
    for (k=0; k<6; k++) if (c[k]>99) greedy();
    if (c[HPMAX]>999 || c[SPELLMAX]>125) greedy();
    if (c[LEVEL]==25 && c[EXPERIENCE]>skill[24]) /* if patch up lev 25 player */
        {
        long tmp;
        tmp = c[EXPERIENCE]-skill[24]; /* amount to go up */
        c[EXPERIENCE] = skill[24];
        raiseexperience((long)tmp);
        }
    getlevel();  lasttime=gtime;
}

    
    
/*
 * subroutine to not allow greedy cheaters
 */
static void greedy(void)
{

#if WIZID
	if (wizard) {
		
		return;
	}
#endif

	lprcat("\n\nI am so sorry, but your character is a little TOO good!  Since this\n");
	lprcat("cannot normally happen from an honest game, I must assume that you cheated.\n");
	lprcat("In that you are GREEDY as well as a CHEATER, I cannot allow this game\n");
	lprcat("to continue.\n");

	nap(5000);
	c[GOLD] = c[BANKACCOUNT] = 0;
	died(-267);
}


/*
 * subroutine to not allow altered save files and terminate the attempted
 * restart
 */
static void fsorry(void)
{

	lprcat("\nSorry, but your savefile has been altered.\n");
	lprcat("However, seeing as I am a good sport, I will let you play.\n");
	lprcat("Be advised though, you won't be placed on the normal scoreboard.");
	
	cheat = 1;
	nap(4000);
}
    

/*
 * subroutine to not allow game if save file can't be deleted
 */
static void fcheat(void)
{

#if WIZID
	if (wizard) {
		
		return;
	}
#endif

	lprcat("\nSorry, but your savefile can't be deleted.  This can only mean\n");
	lprcat("that you tried to CHEAT by protecting the directory the savefile\n");
	lprcat("is in.  Since this is unfair to the rest of the larn community, I\n");
	lprcat("cannot let you play this game.\n");
	
	nap(5000);
	c[GOLD] = c[BANKACCOUNT] = 0;
	died(-268);
}