⟦0a8a1cac3⟧

TextFile

/*
 * func1.c  Phantasia support routines
 */

#include "phant.h"

int findname(name,stat) 	    /* return location of character 'name' */
reg char    *name;		    /* return -1 if not found, fill structure */
reg struct stats *stat; 	    /* if pointer is non-null */
{
FILE	*fp;
struct	stats	sbuf;
int	loc = 0;

    if (stat == NULL)
	stat = &sbuf;
    fp = fopen(peoplefile,"r");
    while (fread((char *) stat,sizeof(sbuf),1,fp))
	if (!strcmp(stat->name,name))
	    {
	    fclose(fp);
	    return (loc);
	    }
	else
	    ++loc;
    fclose(fp);
    return (-1);
}

int findspace() 	    /* allocate space for a character in peoplefile */
{
FILE	*fp;
struct	stats	buf;
reg int loc;

    loc = 0;
    fp = fopen(peoplefile,"r");
    while (fread((char *) &buf,sizeof(buf),1,fp))
	{
	if (!strcmp(buf.name,"<null>"))
	    {
	    fclose(fp);
	    return (loc);
	    }
	else
	    ++loc;
	}
    fclose(fp);
    fp = fopen(peoplefile,ACCESS);
    fseek(fp,(long) (loc * sizeof(buf)),0);
    initchar(&buf);
    strcpy(buf.name,"inuse");
    fwrite((char *) &buf,sizeof(buf),1,fp);
    fclose(fp);
    return (loc);
}

int findchar(stat)		/* retrieve a character from file */
reg struct  stats   *stat;
{
reg int loc = 0, loop;
char	name[21];

    clear();
    mvprintw(10,0,"What was your character's name ? ");
    getstring(name,21);
    trunc(name);
    if ((loc = findname(name, stat)) >= 0)
	{
	move(11,0);
	refresh();
	nocrmode();
	for (loop = 0; loop < 2; ++loop)
	    if (!strcmp(getpass("Password ? "),stat->pswd))
		{
		crmode();
		return (loc);
		}
	    else
		printf("No good.\n");
	exit1();
	/*NOTREACHED*/
	}
    else
	    addstr("\n\nNot found.\n");
    exit1();
/*NOTREACHED*/
}

void	leave(stat)		/* save character in file */
reg struct  stats   *stat;
{
long	ltemp;

    if (!stat->lvl)
	strcpy(stat->name,"<null>");
    stat->status = OFF;
    time(&ltemp);
    stat->age += ltemp - secs;
    update(stat,fileloc);
    exit1();
    /*NOTREACHED*/
}

void	death(stat)		/* remove a player after dying */
reg struct  stats   *stat;
{
FILE	*fp;
char	aline[100];
int ch;
reg int loop;
long	ltemp;

    clear();
    if (stat->typ == 99)
	if (stat->rng.duration)
	    {
	    addstr("Valar should be more cautious.  You've been killed.\n");
	    printw("You only have %d more chance(s).\n",--stat->rng.duration);
	    paws(3);
	    stat->nrg = stat->mxn;
	    return;
	    }
	else
	    {
	    addstr("You had your chances, but Valar aren't totally\n");
	    addstr("immortal.  You are now left to wither and die . . .\n");
	    paws(3);
	    stat->brn = stat->lvl /25;
	    stat->nrg = stat->mxn;
	    stat->quks = stat->swd = 0;
	    stat->typ = 90;
	    return;
	    }
    if (stat->lvl > 9999)
	addstr("Characters greater than level 10K must be retired.  Sorry.");
    switch(stat->rng.type)
	{
	case -DLREG:
	case -NAZREG:
	    mvaddstr(4,0,"Your ring saved you from death!\n");
	    refresh();
	    stat->rng.type = NONE;
	    stat->nrg = stat->mxn/12+1;
	    stat->crn -= (stat->crn > 0);
	    return;
	case DLBAD:
	case -DLBAD:
	case NAZBAD:
	case -NAZBAD:
	case -SPOILED:
	case SPOILED:
	    mvaddstr(4,0,"Your ring has taken control of you and turned you into a monster!\n");
	    fp = fopen(monsterfile,"r");
	    for (loop = 0; loop <= 13; ++loop)
		fgets(aline,100,fp);
	    ltemp = ftell(fp);
	    fclose(fp);
	    fp = fopen(monsterfile,ACCESS);
	    fseek(fp,ltemp,0);
	    fprintf(fp,"%-20s",stat->name);
	    fclose(fp);
	}
    scoreboard(stat);
    fp = fopen(lastdead,"w");
    fprintf(fp,"%s   Login:  %s  Level: %d  Type: %d",stat->name,stat->login,stat->lvl,stat->typ);
    fclose(fp);
    initchar(stat);
    strcpy(stat->name,"<null>");
    update(stat,fileloc);
    clear();
    move(10,0);
    switch ((int) roll(1,5))
	{
	case 1:
	    addstr("You've crapped out!  ");
	    break;
	case 2:
	    addstr("You have been disemboweled.  ");
	    break;
	case 3:
	    addstr("You've been mashed, mauled, and spit upon.  (You're dead.)\n");
	    break;
	case 4:
	    addstr("You died!  ");
	    break;
	case 5:
	    addstr("You're a complete failure -- you've died!!\n");
	}
    addstr("Care to give it another try ? ");
    ch = getans("NY", FALSE);
    if (ch == 'Y')
	{
	endwin();
	execl(gameprog, "phantasia", "-s", (su ? "-S": (char *) NULL), 0);
	}
    exit1();
    /*NOTREACHED*/
}

void	update(stat,place)	    /* update charac file */
reg struct  stats   *stat;
reg int place;
{
FILE	*fp;

    fp = fopen(peoplefile,ACCESS);
    fseek(fp,(long) (place*sizeof(*stat)),0);
    fwrite((char *) stat,sizeof(*stat),1,fp);
    fclose(fp);
}

void	printplayers(stat)	    /* show users */
reg struct  stats   *stat;
{
FILE	*fp;
struct	stats	buf;
reg int loop = 0;
double	mloc;
long	ltmp;
int ch;

    if (stat->blind)
	{
	mvaddstr(8,0,"You can't see anyone.\n");
	return;
	}
    mloc = circ(stat->x,stat->y);
    mvaddstr(8,0,"Name                         X         Y       Lvl  Type  Login\n");
    fp = fopen(peoplefile,"r");
    while (fread((char *) &buf,sizeof(buf),1,fp))
	{
	if (buf.status)
	    {
	    ch = (buf.status == CLOAKED) ? '?' : 'W';
	    if (stat->typ > 10 || buf.typ > 10 || 
		mloc >= circ(buf.x,buf.y) || stat->pal)
		if (buf.status != CLOAKED || (stat->typ == 99 && stat->pal))
		    if (buf.typ == 99)
			addstr("The Valar is watching you. . .\n");
		    else if (buf.wormhole)
			printw("%-20s         %c         %c    %6u  %3d   %-9s\n",
			    buf.name,ch,ch,buf.lvl,buf.typ,buf.login);
		    else
			printw("%-20s  %8.0f  %8.0f    %6u  %3d   %-9s\n",
			    buf.name,buf.x,buf.y,buf.lvl,buf.typ,buf.login);
		else
		    if (buf.typ == 99)
			--loop;
		    else
			printw("%-20s         ?         ?    %6u  %3d   %-9s\n",
			    buf.name,buf.lvl,buf.typ,buf.login);
	    ++loop;
	    }
	}
    fclose(fp);
    time(&ltmp);
    printw("Total users = %d    %s\n",loop,ctime(&ltmp));
    refresh();
}


void	titlestuff()		    /* print out a header */
{
FILE	*fp;
char	instr[80], hiname[21], nxtname[21], aline[80];
bool	cowfound = FALSE, kingfound = FALSE;
struct	stats	buf;
double	hiexp, nxtexp;
unsigned    hilvl, nxtlvl;
reg int loop;

    mvaddstr(0,15,"W e l c o m e   t o   P h a n t a s i a (vers. 3.3)!");
    if ((fp = fopen(motd,"r")) != NULL && fgets(instr,80,fp))
	{
	mvaddstr(2,40 - strlen(instr)/2,instr);
	fclose(fp);
	}
    if ((fp = fopen(peoplefile,"r")) == NULL)
	{
	error(peoplefile);
	/*NOTREACHED*/
	}
    while (fread((char *) &buf,sizeof(buf),1,fp))
	if (buf.typ > 10 && buf.typ < 20)
	    {
	    sprintf(instr,"The present ruler is %s  Level:%d",buf.name,buf.lvl);
	    mvaddstr(4,40 - strlen(instr)/2,instr);
	    kingfound = TRUE;
	    break;
	    }
    if (!kingfound)
	mvaddstr(4,24,"There is no ruler at this time.");
    fseek(fp,0L,0);
    while (fread((char *) &buf,sizeof(buf),1,fp))
	if (buf.typ == 99)
	    {
	    sprintf(instr,"The Valar is %s   Login:  %s",buf.name,buf.login);
	    mvaddstr(6,40 - strlen(instr)/2,instr);
	    break;
	    }
    fseek(fp,0L,0);
    while (fread((char *) &buf,sizeof(buf),1,fp))
	if (buf.typ > 20 && buf.typ < 90)
	    {
	    if (!cowfound)
		{
		mvaddstr(8,30,"Council of the Wise:");
		loop = 10;
		cowfound = TRUE;
		}
	    /* This assumes a finite (<=5) number of C.O.W.: */
	    sprintf(instr,"%s   Login:  %s",buf.name,buf.login);
	    mvaddstr(loop++,40 - strlen(instr)/2,instr);
	    }
    fseek(fp,0L,0);
    *nxtname = *hiname = '\0';
    hiexp = 0.0;
    nxtlvl = hilvl = 0;
    while (fread((char *) &buf,sizeof(buf),1,fp))
	if (buf.exp > hiexp && buf.typ < 20)
	    {
	    nxtexp = hiexp;
	    hiexp = buf.exp;
	    nxtlvl = hilvl;
	    hilvl = buf.lvl;
	    strcpy(nxtname,hiname);
	    strcpy(hiname,buf.name);
	    }
	else if (buf.exp > nxtexp && buf.typ < 20)
	    {
	    nxtexp = buf.exp;
	    nxtlvl = buf.lvl;
	    strcpy(nxtname,buf.name);
	    }
    fclose(fp);
    mvaddstr(15,28,"Highest characters are:");
    sprintf(instr,"%s  Level:%d   and   %s  Level:%d",hiname,hilvl,nxtname,nxtlvl);
    mvaddstr(17,40 - strlen(instr)/2,instr);
    if ((fp = fopen(lastdead,"r")) != NULL)
	{
	fgets(aline,80,fp);
	sprintf(instr,"The last character to die is %s",aline);
	mvaddstr(19,40 - strlen(instr)/2,instr);
	fclose(fp);
	}
    refresh();
}



void	printmonster()		    /* do a monster list on the terminal */
{
FILE	*fp;
reg int count = 0;
char	instr[100];

    puts(" #  Name                    Str     Brains  Quick   Hits    Exp     Treas   Type    Flock%\n");
    fp = fopen(monsterfile,"r");
    while (fgets(instr,100,fp))
	printf("%2d  %s",count++,instr);
    fclose(fp);
}

void	exit1() 		/* exit, but cleanup */
{
    move(23,0);
    refresh();
    nocrmode();
    endwin();
    exit(0);
    /*NOTREACHED*/
}

void	init1() 		/* set up for screen updating */
{
	/* catch/ingnore signals */
#ifdef	BSD41
    sigignore(SIGQUIT);
    sigignore(SIGALRM);
    sigignore(SIGTERM);
    sigignore(SIGTSTP);
    sigignore(SIGTTIN);
    sigignore(SIGTTOU);
    sighold(SIGINT);
    sigset(SIGHUP,ill_sig);
    sigset(SIGTRAP,ill_sig);
    sigset(SIGIOT,ill_sig);
    sigset(SIGEMT,ill_sig);
    sigset(SIGFPE,ill_sig);
    sigset(SIGBUS,ill_sig);
    sigset(SIGSEGV,ill_sig);
    sigset(SIGSYS,ill_sig);
    sigset(SIGPIPE,ill_sig);
#endif
#ifdef	BSD42
    signal(SIGQUIT,SIG_IGN);
    signal(SIGALRM,SIG_IGN);
    signal(SIGTERM,SIG_IGN);
    signal(SIGTSTP,SIG_IGN);
    signal(SIGTTIN,SIG_IGN);
    signal(SIGTTOU,SIG_IGN);
    signal(SIGINT,SIG_IGN);
    signal(SIGHUP,ill_sig);
    signal(SIGTRAP,ill_sig);
    signal(SIGIOT,ill_sig);
    signal(SIGEMT,ill_sig);
    signal(SIGFPE,ill_sig);
    signal(SIGBUS,ill_sig);
    signal(SIGSEGV,ill_sig);
    signal(SIGSYS,ill_sig);
    signal(SIGPIPE,ill_sig);
#endif
#ifdef	SYS3
    signal(SIGINT,SIG_IGN);
    signal(SIGQUIT,SIG_IGN);
    signal(SIGTERM,SIG_IGN);
    signal(SIGALRM,SIG_IGN);
    signal(SIGHUP,ill_sig);
    signal(SIGTRAP,ill_sig);
    signal(SIGIOT,ill_sig);
    signal(SIGEMT,ill_sig);
    signal(SIGFPE,ill_sig);
    signal(SIGBUS,ill_sig);
    signal(SIGSEGV,ill_sig);
    signal(SIGSYS,ill_sig);
    signal(SIGPIPE,ill_sig);
#endif
#ifdef	SYS5
    signal(SIGINT,SIG_IGN);
    signal(SIGQUIT,SIG_IGN);
    signal(SIGTERM,SIG_IGN);
    signal(SIGALRM,SIG_IGN);
    signal(SIGHUP,ill_sig);
    signal(SIGTRAP,ill_sig);
    signal(SIGIOT,ill_sig);
    signal(SIGEMT,ill_sig);
    signal(SIGFPE,ill_sig);
    signal(SIGBUS,ill_sig);
    signal(SIGSEGV,ill_sig);
    signal(SIGSYS,ill_sig);
    signal(SIGPIPE,ill_sig);
#endif
    srand((unsigned) time((long *) NULL));  /* prime random numbers */
    initscr();
    noecho();
    crmode();
    clear();
    refresh();
}

void	getstring(cp,mx)		/* get a string from the stdscr at current y,x */
reg char    *cp;
reg int mx;
{
reg int loop = 0, x, y, xorig;
int ch;

    getyx(stdscr,y,xorig);
    clrtoeol();
    refresh();
    while((ch = getch()) != '\n' && loop < mx - 1)
	switch (ch)
	    {
	    case '\033':    /* escape */
	    case '\010':    /* backspace */
		if (loop)
		    {
		    --loop;
		    getyx(stdscr,y,x);
		    mvaddch(y,x-1,' ');
		    move(y,x-1);
		    refresh();
		    }
		break;
	    case '\030':    /* ctrl-x */
		loop = 0;
		move(y,xorig);
		clrtoeol();
		refresh();
		break;
	    default:
		if (ch >= ' ') /* printing char */
		    {
		    addch(ch);
		    cp[loop++] = ch;
		    refresh();
		    }
	    }
    cp[loop] = '\0';
}


void	showusers(screen)	    /* print a list of all characters */
bool	screen;
{
struct	stats	buf;
FILE	*fp;

    if (screen)
	{
	clear();
	refresh();
	}
    if (fp = fopen(peoplefile,"r"))
	{
	puts("Current characters on file are:\n");
	while (fread((char *) &buf,sizeof(buf),1,fp))
	    if (strcmp("<null>",buf.name))
		printf("%-20s   Login: %-9s  Level: %6d  Type: %3d\n",buf.name,buf.login,buf.lvl,buf.typ);
	fclose(fp);
	}
    if (screen)
	{
	putchar('\n');
	putchar('\n');
	paws(22);
	clear();
	}
}

void	kingstuff(stat) 	    /* stuff upon entering throne */
reg struct  stats   *stat;
{
FILE	*fp;
struct	stats	buf;
struct	nrgvoid vbuf;
reg int loc = 0;

    if (stat->typ < 10) /* check to see if king -- assumes crown */
	{
	fp = fopen(peoplefile,"r");
	while (fread((char *) &buf,sizeof(buf),1,fp))
	    if (buf.typ > 10 && buf.typ < 20)	/* found old king */
		if (buf.status != OFF)
		    {
		    mvaddstr(4,0,"The king is playing, so you cannot steal his throne\n");
		    stat->x = stat->y = 9;
		    move(6,0);
		    fclose(fp);
		    return;
		    }
		else
		    {
		    buf.typ -= 10;
		    if (buf.crn)
			--buf.crn;
		    fclose(fp);
		    update(&buf,loc);
KING:		    stat->typ = abs(stat->typ) + 10;
		    mvaddstr(4,0,"You have become king!\n");
		    fp = fopen(messfile,"w");
		    fprintf(fp,"All hail the new king!");
		    fclose(fp);
		    /* clear all energy voids */
		    fp = fopen(voidfile,"r");
		    fread((char *) &vbuf,sizeof(vbuf),1,fp);
		    fclose(fp);
		    fp = fopen(voidfile,"w");
		    fwrite((char *) &vbuf,sizeof(vbuf),1,fp);
		    fclose(fp);
		    goto EXIT;
		    }
	    else
		++loc;
	fclose(fp);   /* old king not found -- install new one */
	goto KING;
	}
EXIT:	mvaddstr(6,0,"0:Decree  ");
}

void	paws(where)		/* wait for input to continue */
int where;
{
    mvaddstr(where,0,"-- more --");
    getans(" ", FALSE);
}

void	cstat() 		/* examine/change stats of a character */
{
struct	stats charac;
char	s[60], flag[2];
reg int loc = 0;
int c, temp, today;
long	ltemp;
double	dtemp;

    flag[0] = 'F', flag[1] = 'T';
    mvaddstr(10,0,"Which character do you want to look at ? ");
    getstring(s,60);
    trunc(s);
    if ((loc = findname(s, &charac)) < 0)
	{
	mvaddstr(11,0,"Not found.");
	exit1();
	/*NOTREACHED*/
	}

    time(&ltemp);
    today = localtime(&ltemp)->tm_yday;
    if (!su)
	strcpy(charac.pswd,"XXXXXXXX");
    clear();
TOP:	mvprintw(0,0,"a:Name         %s\n",charac.name);
    printw("b:Password     %s\n",charac.pswd);
    printw(" :Login        %s\n",charac.login);
    temp = today - charac.lastused;
    if (temp < 0)
	temp += 365;
    printw("c:Used         %d\n",temp);
    mvprintw(5,0,"d:Experience   %.0f\n",charac.exp);
    printw("e:Level        %d\n",charac.lvl);
    printw("f:Strength     %.0f\n",charac.str);
    printw("g:Sword        %.0f\n",charac.swd);
    printw("h:Quickness    %d",charac.quk);
    if (charac.quk < 0)
	printw("(%d)\n",charac.tampered);
    else
	addch('\n');
    printw("i:Quikslvr     %d\n",charac.quks);
    printw("j:Energy       %.0f\n",charac.nrg);
    printw("k:Max-Nrg      %.0f\n",charac.mxn);
    printw("l:Shield       %.0f\n",charac.shd);
    printw("m:Magic        %.0f\n",charac.mag);
    printw("n:Mana         %.0f\n",charac.man);
    printw("o:Brains       %.0f\n",charac.brn);
    mvprintw(0,40,"p:X-coord      %.0f\n",charac.x);
    mvprintw(1,40,"q:Y-coord      %.0f\n",charac.y);
    if (su)
	mvprintw(2,40,"r:Wormhole     %d\n",charac.wormhole);
    else
	mvprintw(2,40,"r:Wormhole     %c\n",flag[charac.wormhole != 0]);
    mvprintw(3,40,"s:Type         %d\n",charac.typ);
    mvprintw(5,40,"t:Sin          %0.3f\n",charac.sin);
    mvprintw(6,40,"u:Poison       %0.3f\n",charac.psn);
    mvprintw(7,40,"v:Gold         %.0f\n",charac.gld);
    mvprintw(8,40,"w:Gem          %.0f\n",charac.gem);
    mvprintw(9,40,"x:Holy Water   %d\n",charac.hw);
    mvprintw(10,40,"y:Charms       %d\n",charac.chm);
    mvprintw(11,40,"z:Crowns       %d\n",charac.crn);
    mvprintw(12,40,"1:Amulets      %d\n",charac.amu);
    mvprintw(13,40,"2:Age          %d\n",charac.age);
    mvprintw(18,5,"3:Virgin %c  4:Blessed %c  5:Ring %c  6:Blind %c  7:Palantir %c",
	flag[charac.vrg],flag[charac.bls],flag[charac.rng.type != 0],flag[charac.blind],flag[charac.pal]);
    if (!su)
	exit1();
    mvaddstr(15,40,"!:Quit");
    mvaddstr(16,40,"?:Delete");
    mvaddstr(19,30,"8:Duration");
    mvaddstr(21,0,"What would you like to change? ");
    refresh();
    c = getch();
    switch(c)
	{
	case 'p':   /* change x coord */
	    mvprintw(23,0,"x = %f; x = ",charac.x);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.x = dtemp;
	    break;
	case 'q':   /* change y coord */
	    mvprintw(23,0,"y = %f; y = ",charac.y);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.y = dtemp;
	    break;
	case 'd':   /* change Experience */
	    mvprintw(23,0,"exp = %f; exp = ",charac.exp);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.exp = dtemp;
	    break;
	case 'e':   /* change level */
	    mvprintw(23,0,"lvl = %d; lvl;= ",charac.lvl);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.lvl = dtemp;
	    break;
	case 'h':   /* change quickness */
	    mvprintw(23,0,"quk = %d; quk;= ",charac.quk);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.quk = dtemp;
	    break;
	case 'f':   /* change strength */
	    mvprintw(23,0,"str = %f; str;= ",charac.str);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.str = dtemp;
	    break;
	case 't':   /* change Sin */
	    mvprintw(23,0,"sin = %f; sin;= ",charac.sin);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.sin = dtemp;
	    break;
	case 'n':   /* change mana */
	    mvprintw(23,0,"man = %f; man;= ",charac.man);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.man = dtemp;
	    break;
	case 'v':   /* change gold */
	    mvprintw(23,0,"gld = %f; gld;= ",charac.gld);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.gld = dtemp;
	    break;
	case 'j':   /* change energy */
	    mvprintw(23,0,"nrg = %f; nrg;= ",charac.nrg);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.nrg = dtemp;
	    break;
	case 'k':   /* change Maximum energy */
	    mvprintw(23,0,"mxn = %f; mxn;= ",charac.mxn);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.mxn = dtemp;
	    break;
	case 'm':   /* change magic */
	    mvprintw(23,0,"mag = %f; mag;= ",charac.mag);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.mag = dtemp;
	    break;
	case 'o':   /* change brains */
	    mvprintw(23,0,"brn = %f; brn;= ",charac.brn);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.brn = dtemp;
	    break;
	case 'z':   /* change crowns */
	    mvprintw(23,0,"crn = %d; crn;= ",charac.crn);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.crn = dtemp;
	    break;
	case '5':   /* change ring type */
	    mvprintw(23,0,"rng-type = %d; rng-type;= ",charac.rng.type);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.rng.type = dtemp;
	    break;
	case '8':   /* change ring duration */
	    mvprintw(23,0,"rng-duration = %d; rng-duration;= ",charac.rng.duration);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.rng.duration = dtemp;
	    break;
	case '7':   /* change palantir */
	    mvprintw(23,0,"pal = %d; pal;= ",charac.pal);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		{
		charac.pal = dtemp;
		charac.pal = (charac.pal != 0);
		}
	    break;
	case 'u':   /* change poison */
	    mvprintw(23,0,"psn = %f; psn;= ",charac.psn);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.psn = dtemp;
	    break;
	case 'x':   /* change holy water */
	    mvprintw(23,0,"hw = %d; hw;= ",charac.hw);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.hw = dtemp;
	    break;
	case '1':   /* change amulet */
	    mvprintw(23,0,"amu = %d; amu;= ",charac.amu);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.amu = dtemp;
	    break;
	case '4':   /* change Blessing */
	    mvprintw(23,0,"bls = %d; bls;= ",charac.bls);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		{
		charac.bls = dtemp;
		charac.bls = (charac.bls != 0);
		}
	    break;
	case 'y':   /* change Charm */
	    mvprintw(23,0,"chm = %d; chm;= ",charac.chm);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.chm = dtemp;
	    break;
	case 'w':   /* change Gems */
	    mvprintw(23,0,"gem = %f; gem;= ",charac.gem);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.gem = dtemp;
	    break;
	case 'i':   /* change Quicksilver */
	    mvprintw(23,0,"quks = %d; quks;= ",charac.quks);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.quks = dtemp;
	    break;
	case 'g':   /* change swords */
	    mvprintw(23,0,"swd = %f; swd;= ",charac.swd);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.swd = dtemp;
	    break;
	case 'l':   /* change shields */
	    mvprintw(23,0,"shd = %f; shd;= ",charac.shd);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.shd = dtemp;
	    break;
	case 's':   /* change type */
	    mvprintw(23,0,"typ = %d; typ;= ",charac.typ);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.typ = dtemp;
	    break;
	case '3':   /* change virgin */
	    mvprintw(23,0,"vrg = %d; vrg;= ",charac.vrg);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		{
		charac.vrg = dtemp;
		charac.vrg = (charac.vrg != 0);
		}
	    break;
	case 'c':   /* change last-used */
	    mvprintw(23,0,"last-used = %d; last-used;= ",charac.lastused);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.lastused = dtemp;
	    break;
	case 'b':	/* change password */
	    mvaddstr(23,0,"New password: ");
	    getstring(s,60);
	    if (*s)
		strcpy(charac.pswd,s);
	    break;
	case 'a':	/* change name */
	    mvaddstr(23,0,"New name: ");
	    getstring(s,60);
	    if (*s)
		strcpy(charac.name,s);
	    break;
	case 'r':   /* change wormhole */
	    mvprintw(23,0,"wormhole = %d; wormhole;= ",charac.wormhole);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.wormhole = dtemp;
	    break;
	case '2':   /* change age */
	    mvprintw(23,0,"age = %d; age;= ",charac.age);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		charac.age = dtemp;
	    break;
	case '6':   /* change blindness */
	    mvprintw(23,0,"blind = %d; blind;= ",charac.blind);
	    dtemp = inflt();
	    if (dtemp != 0.0)
		{
		charac.blind = dtemp;
		charac.blind = (charac.blind != 0);
		}
	    break;
	case '!':   /* quit, update */
	    goto LEAVE;
	case '?':   /* delete char */
	    strcpy(charac.name,"<null>");
	    initchar(&charac);
	    goto LEAVE;
	}
    goto TOP;
LEAVE:	charac.status = OFF;
    update(&charac,loc);
}

int level(expr) 	/* calculate level */
double	expr;
{
    if (expr < 1.1e+7)
	return (pow((expr/1000.0), 0.4875));
    else
	return (pow((expr/1250.0), 0.4865));
}

void	trunc(str)		/* remove blank spaces at the end of str[] */
reg char    *str;
{
reg int loop;
    loop = strlen(str);
    while (str[--loop] == ' ')
	str[loop] = '\0';
}

double	inflt() 	    /* get a floating point # from the terminal */
{
char	aline[80];
double	res;
    getstring(aline,80);
    if (sscanf(aline,"%F",&res) < 1)
	res = 0.0;
    return (res);
}

void	checkmov(stat)		    /* see if beyond PONR */
reg struct  stats   *stat;
{
    if (beyond)
	{
	stat->x = sgn(stat->x) * max(abs(stat->x),1.1e+6);
	stat->y = sgn(stat->y) * max(abs(stat->y),1.1e+6);
	}
}
void	scramble(stat)		/* mix up some stats */
reg struct  stats   *stat;
{
double	buf[6], temp;
reg int first, second;
reg double  *bp;

    bp = buf;
    *bp++ = stat->str;
    *bp++ = stat->man;
    *bp++ = stat->brn;
    *bp++ = stat->mag;
    *bp++ = stat->nrg;
    *bp = stat->sin;

    bp = buf;
    first = roll(0,5);
    second = roll(0,5);
    temp = bp[first];
    bp[first] = bp[second];
    bp[second] = temp;

    stat->str = *bp++;
    stat->man = *bp++;
    stat->brn = *bp++;
    stat->mag = *bp++;
    stat->nrg = *bp++;
    stat->sin = *bp;
}
DataMuseum.dk

DKUUG/EUUG Conference tapes

⟦0a8a1cac3⟧ TextFile

Derivation

TextFile
