2.11BSD/src/games/phantasia/func1.c
/*
* func1.c Phantasia support routines
*/
#include "phant.h"
bool findname(name) /* return TRUE if name in use */
reg char *name;
{
FILE *fp;
struct stats buf;
fp = fopen(peoplefile,"r");
while (fread((char *) &buf,sizeof(buf),1,fp))
if (!strcmp(buf.name,name))
{
fclose(fp);
mvaddstr(21,0,"Name already in use.\n");
refresh();
return (TRUE);
}
fclose(fp);
return (FALSE);
}
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];
FILE *fp;
if (fp = fopen(peoplefile,"r"))
{
clear();
mvprintw(10,0,"What was your character's name ? ");
getstring(name,21);
trunc(name);
while (fread((char *) stat,sizeof(*stat),1,fp))
{
if (!strcmp(stat->name,name))
{
move(11,0);
refresh();
fclose(fp);
nocrmode();
for (loop = 0; loop < 2; ++loop)
if (!strcmp(getpass("Password ? "),stat->pswd))
{
crmode();
return (loc);
}
else
printf("No good.\n");
exit1();
/*NOTREACHED*/
}
++loc;
}
}
fclose(fp);
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(<emp);
stat->age += ltemp - secs;
update(stat,fileloc);
exit1();
/*NOTREACHED*/
}
void talk(name) /* send message to all players */
reg char *name;
{
FILE *fp;
char aline[160];
mvaddstr(5,0,"Message ? ");
getstring(aline,160);
fp = fopen(messfile,"w");
if (*aline)
fprintf(fp,"%s: %s",name,aline);
fclose(fp);
}
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);
}
initchar(stat);
fp = fopen(lastdead,"w");
fprintf(fp,"%s Login: %s",stat->name,stat->login);
fclose(fp);
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 = rgetch();
if (toupper(ch) == 'Y')
{
endwin();
execl(gameprog,"phantasia","-s",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 loc;
long ltmp;
int ch;
if (stat->blind)
{
mvaddstr(6,0,"You can't see anyone.\n");
return;
}
loc = circ(stat->x,stat->y);
mvaddstr(6,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 || loc >= 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(<mp);
printw("Total users = %d %s\n",loop,ctime(<mp));
refresh();
}
void printhelp() /* print help file */
{
FILE *fp;
char instr[100];
fp = fopen(helpfile,"r");
while (fgets(instr,100,fp))
fputs(instr,stdout);
fclose(fp);
}
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.2)!");
fp = fopen(motd,"r");
if (fgets(instr,80,fp))
mvaddstr(2,40 - strlen(instr)/2,instr);
fclose(fp);
fp = fopen(peoplefile,"r");
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 (<=7) 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(17,28,"Highest characters are:");
sprintf(instr,"%s Level:%d and %s Level:%d",hiname,hilvl,nxtname,nxtlvl);
mvaddstr(19,40 - strlen(instr)/2,instr);
fp = fopen(lastdead,"r");
fgets(aline,80,fp);
sprintf(instr,"The last character to die is %s",aline);
mvaddstr(21,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);
#endif
#ifdef BSD42
signal(SIGQUIT,interrupt,1);
signal(SIGALRM,interrupt,1);
signal(SIGTERM,interrupt,1);
signal(SIGTSTP,interrupt,1);
signal(SIGTTIN,interrupt,1);
signal(SIGTTOU,interrupt,1);
signal(SIGINT,interrupt,1);
#endif
#ifdef USG3
signal(SIGINT,SIG_IGN);
signal(SIGQUIT,SIG_IGN);
signal(SIGTERM,SIG_IGN);
signal(SIGALRM,SIG_IGN);
#endif
#ifdef USG5
signal(SIGINT,SIG_IGN);
signal(SIGQUIT,SIG_IGN);
signal(SIGTERM,SIG_IGN);
signal(SIGALRM,SIG_IGN);
#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() /* print a list of all characters */
{
struct stats buf;
FILE *fp;
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: %6u\n",buf.name,buf.login,buf.lvl);
fclose(fp);
}
}
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(6,0,"The king is playing, so you cannot steal his throne\n");
stat->x = stat->y = 9;
move(3,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(6,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(3,0,"0:Decree ");
}
void paws(where) /* wait for input to continue */
int where;
{
mvaddstr(where,0,"-- more --");
rgetch();
}
void cstat() /* examine/change stats of a character */
{
struct stats charac;
char s[60], flag[2];
FILE *fp;
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);
if (fp = fopen(peoplefile,"r"))
while (fread((char *) &charac,sizeof(charac),1,fp))
if (!strcmp(s,charac.name))
goto FOUND;
else
++loc;
mvaddstr(11,0,"Not found.");
exit1();
/*NOTREACHED*/
FOUND: fclose(fp);
time(<emp);
today = localtime(<emp)->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\n",charac.quk);
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:Manna %.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? ");
c = rgetch();
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 manna */
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);
}
unsigned 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) - 1;
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;
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[5], 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 = 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++;
}