/*
 * func0.c	Phantasia support routines
 */

#include "phant.h"

void	treasure(stat,treastyp,size)		/* select a treasure */
reg	struct	stats	*stat;
short	treastyp;
reg	int	size;
{
reg	int	which;
int	ch;
double	temp, temp2;
char	aline[35];
FILE	*fp;

	which = roll(1,3);
	move(3,0);
	clrtobot();
	move(5,0);
	if (rnd() > 0.65)	/* gold and gems */
		if (treastyp > 7)	/* gems */
			{
			temp = roll(1,(treastyp - 7)*(treastyp - 7)*(size - 1)/4);
			printw("You have discovered %.0f gems!  Will you pick them up ? ",temp);
			ch = rgetch();
			addch('\n');
			if (toupper(ch) == 'Y')
				if (rnd() < treastyp/40 + 0.05)	/* cursed */
					{
					addstr("They were cursed!\n");
					goto CURSE;
					}
				else
					stat->gem += temp;
			return;
			}
		else	/* gold */
			{
			temp = roll(treastyp*10,treastyp*treastyp*10*(size - 1));
			printw("You have found %.0f gold pieces.  Do you want to pick them up ? ",temp);
			ch = rgetch();
			addch('\n');
			if (toupper(ch) == 'Y')
				if (rnd() < treastyp/35 + 0.04)	/* cursed */
					{
					addstr("They were cursed!\n");
					goto CURSE;
					}
				else
					{
					stat->gld += floor(0.9 * temp);
					fp = fopen(goldfile,"r");
					fread((char *) &temp2,sizeof(double),1,fp);
					fclose(fp);
					fp = fopen(goldfile,"w");
					temp2 += floor(temp/10);
					fwrite((char *) &temp2,sizeof(double),1,fp);
					fclose(fp);
					}
			return;
			}
	else	/* other treasures */
		{
		addstr("You have found some treasure.  Do you want to inspect it ? ");
		ch = rgetch();
		addch('\n');
		if (toupper(ch) != 'Y')
			return;
		else
			if (rnd() < 0.08 && treastyp != 4)
				{
				addstr("It was cursed!\n");
				goto CURSE;
				}
			else
				switch(treastyp)
					{
					case 1:
						switch(which)
							{
							case 1:
								addstr("You've discovered a power booster!\n");
								stat->man += roll(size*4,size*30);
								break;
							case 2:
								addstr("You have encountered a druid.\n");
								stat->exp += roll(0,2000 + size*400);
								break;
							case 3:
								addstr("You have found a holy orb.\n");
								stat->sin = max(0,stat->sin - 0.25);
								break;
							}
						break;
					case 2:
						switch (which)
							{
							case 1:
								addstr("You have found an amulet.\n");
								++stat->amu;
								break;
							case 2:
								addstr("You've found some holy water!\n");
								++stat->hw;
								break;
							case 3:
								addstr("You've met a hermit!\n");
								stat->sin *= 0.75;
								stat->man += 12*size;
								break;
							}
						break;
					case 3:
						switch (which)
							{
							case 1:
								temp = roll(7,30 + size/10);
								printw("You've found a +%.0f shield!\n",temp);
								if (temp >= stat->shd)
									stat->shd = temp;
								else
									somebetter();
								break;
							case 2:
								addstr("You have rescued a virgin.  Will you be honorable ? ");
								ch = rgetch();
								if (toupper(ch) == 'Y')
									stat->vrg = TRUE;
								else
									{
									stat->exp += 2000*size;
									++stat->sin;
									}
								break;
							case 3:
								addstr("You've discovered some athelas!\n");
								--stat->psn;
								break;
							}
						break;
					case 4:
						addstr("You've found a scroll.  Will you read it ? ");
						ch = rgetch();
						addch('\n');
						if (toupper(ch) == 'Y')
							switch ((int) roll(1,6))
								{
								case 1:
									addstr("It throws up a shield for you next monster.\n");
									paws(8);
									longjmp(fightenv,2);
									/*NOTREACHED*/
								case 2:
									addstr("It makes you invisible for you next monster.\n");
									paws(8);
									speed = 1e6;
									longjmp(fightenv,0);
									/*NOTREACHED*/
								case 3:
									addstr("It increases your strength ten fold to fight your next monster.\n");
									paws(8);
									strength *= 10;
									longjmp(fightenv,0);
									/*NOTREACHED*/
								case 4:
									addstr("It is a general knowledge scroll.\n");
									stat->brn += roll(2,size);
									stat->mag += roll(1,size/2);
									break;
							case 5:
								addstr("It tells you how to pick your next monster.\n");
								addstr("Which monster do you want [0-99] ? ");
								which = inflt();
								which = min(99,max(0,which));
								fight(stat,which);
								break;
							case 6:
								addstr("It was cursed!\n");
								goto CURSE;
							}
						break;
					case 5:
						switch (which)
							{
							case 1:
								temp = roll(size/4+5,size/2 + 9);
								printw("You've discovered a +%.0f dagger.\n",temp);
								if (temp >= stat->swd)
									stat->swd = temp;
								else
									somebetter();
								break;
							case 2:
								temp = roll(7.5 + size*3,size * 2 + 160);
								printw("You have found some +%.0f armour!\n",temp);
								if (temp >= stat->shd)
									stat->shd = temp;
								else
									somebetter();
								break;
							case 3:
								addstr("You've found a tablet.\n");
								stat->brn += 4.5*size;
								break;
							}
						break;
					case 6:
						switch (which)
							{
							case 1:
								addstr("You've found a priest.\n");
								stat->nrg = stat->mxn + stat->shd;
								stat->sin /= 2;
								stat->man += 24*size;
								stat->brn += size;
								break;
							case 2:
								addstr("You have come upon Robin Hood!\n");
								stat->shd += size*2;
								stat->str += size/2.5 + 1;
								break;
							case 3:
									temp = roll(2 + size/4,size/1.2 + 10);
								printw("You have found a +%.0f axe!\n",temp);
								if (temp >= stat->swd)
									stat->swd = temp;
								else
									somebetter();
								break;
							}
						break;
					case 7:
						switch (which)
							{
							case 1:
								addstr("You've discovered a charm!\n");
								++stat->chm;
								break;
							case 2:
								addstr("You have encountered Merlyn!\n");
								stat->brn += size + 5;
								stat->mag += size/3 + 5;
								stat->man += size*10;
								break;
							case 3:
								temp = roll(5+size/3,size/1.5 + 20);
								printw("You have found a +%.0f war hammer!\n",temp);
								if (temp >= stat->swd)
									stat->swd = temp;
								else
									somebetter();
								break;
							}
						break;
					case 8:
						switch (which)
							{
							case 1:
								addstr("You have found a healing potion.\n");
								stat->psn = min(-2,stat->psn-2);
								break;
							case 2:
								addstr("You have discovered a transporter.  Do you wish to go anywhere ? ");
								ch = rgetch();
								addch('\n');
								if (toupper(ch) == 'Y')
									{
									addstr("X Y Coordinates ? ");
									getstring(aline,80);
									sscanf(aline,"%F %F",&stat->x,&stat->y);
									stat->x = floor(stat->x);
									stat->y = floor(stat->y);
									}
								break;
							case 3:
								temp = roll(10 + size/1.2,size*3 + 30);
								printw("You've found a +%.0f sword!\n",temp);
								if (temp >= stat->swd)
									stat->swd = temp;
								else
									somebetter();
								break;
							}
						break;
					case 10:
					case 11:
					case 12:
					case 13:
						if (rnd() < 0.33)
							{
							if (treastyp == 10)
								{
								addstr("You've found a pair of elven boots!\n");
								stat->quk += 2;
								break;
								}
							else if (treastyp == 11 && !stat->pal)
								{
								addstr("You've acquired Saruman's palantir.\n");
								stat->pal = TRUE;
								break;
								}
							else if (!stat->rng.type && stat->typ < 20 && (treastyp == 12 || treastyp == 13))
								{
								if (treastyp == 12)
									if (rnd() < 0.8)
										{
										which = NAZREG;
										temp = 15;
										}
									else
										{
										which = NAZBAD;
										temp = 10 + rngcalc(stat->typ) + roll(0,5);
										}
								else
									if (rnd() > 0.9)
										{
										which = DLREG;
										temp = 0;
										}
									else
										{
										which = DLBAD;
										temp = 15 + rngcalc(stat->typ) + roll(0,5);
										}
									addstr("You've discovered a ring.  Will you pick it up ? ");
									ch = rgetch();
									addch('\n');
									if (toupper(ch) == 'Y')
										{
										stat->rng.type = which;
										stat->rng.duration = temp;
										}
								}
							break;
							}
						case 9:
							switch (which)
								{
								case 1:
									if (!(stat->lvl > 1000 || stat->crn > floor((double) stat->lvl/100)
											|| stat->lvl < 10))
										{
										addstr("You have found a golden crown!\n");
										++stat->crn;
										break;
										}
								case 2:
									addstr("You've been blessed!\n");
									stat->bls = TRUE;
									stat->sin /=3;
									stat->nrg = stat->mxn + stat->shd;
									stat->man += 100*size;
									break;
								case 3:
									temp = roll(1,size/5+5);
									temp = min(temp,99);
									printw("You have discovered some +%.0f quicksilver!\n",temp);
									if (temp >= stat->quks)
										stat->quks = temp;
									else
										somebetter();
									break;
								}
							break;
						}
		refresh();
		return;
		}
CURSE:	if (stat->chm)
		{
		addstr("But your charm saved you!\n");
		--stat->chm;
		}
	else if (stat->amu)
		{
		addstr("But your amulet saved you!\n");
		--stat->amu;
		}
	else
		{
		stat->nrg = (stat->mxn + stat->shd)/10;
		stat->psn += 0.25;
		}
}

void	callmonster(which,size,mons)		/* fill a structure with monster 'which' of size 'size' */
reg	int	which, size;
reg	struct	mstats	*mons;
{
FILE	*fp;
char	instr[100];

	which = min(which,99);
	fp = fopen(monsterfile,"r");
	for (++which; which; --which)
		fgets(instr,100,fp);
	strncpy(mons->name,instr,24);
	mons->name[24] = '\0';
	sscanf(instr + 24,"%F%F%F%F%F%d%d%d",&mons->str,&mons->brn,&mons->spd,&mons->hit,
		&mons->exp,&mons->trs,&mons->typ,&mons->flk);
	if (mons->typ == 2)	/* Modnar */
		{
		mons->str *= rnd() + 0.5;
		mons->brn *= rnd() + 0.5;
		mons->spd *= rnd() + 0.5;
		mons->hit *= rnd() + 0.5;
		mons->exp *= rnd() + 0.5;
		mons->trs *= rnd();
		}
	else if (mons->typ == 3)	/* mimic */
		{
		fseek(fp,0L,0);
		for (which = roll(0,100); which; --which)
			fgets(instr,100,fp);
		strncpy(mons->name,instr,24);
		}
	trunc(mons->name);
	mons->str += (size-1)*mons->str/2;
	mons->brn *= size;
	mons->spd += size * 1.e-9;
	mons->hit *= size;
	mons->exp *= size;
	fclose(fp);
}

struct	/* lookup table for rolling stats and making increases upon gaining levels */
	{
	struct
		{
		int	base;
		int	interval;
		float	increase;
		} quick,      strength,      manna,	    energy,	   brains,	  magic;
	} table[7] =
		{
/* mag. usr: */ 30, 6, 0.0,   20, 6, 2.0,    50,51,75.0,    30,16,20.0,    60,26, 6.0,	  5, 5,2.75,
/* fighter:  */ 30, 6, 0.0,   40,16, 3.0,    30,21,40.0,    45,26,30.0,    25,21, 3.0,	  3, 4, 1.5,
/* elf:      */ 32, 7, 0.0,   35,11, 2.5,    45,46,65.0,    30,21,25.0,    40,26, 4.0,	  4, 4, 2.0,
/* dwarf:    */ 25, 6, 0.0,   45,21, 5.0,    25,21,30.0,    60,41,35.0,    20,21, 2.5,	  2, 4, 1.0,
/* halfling: */ 34, 0, 0.0,   20, 6, 2.0,    25,21,30.0,    55,36,30.0,    40,36, 4.5,	  1, 4, 1.0,
/* exprmnto: */ 27, 0, 0.0,   25, 0, 0.0,    100,0, 0.0,    35, 0, 0.0,    25, 0, 0.0,	  2, 0, 0.0,
/* super:    */ 38, 0, 0.0,   65, 0, 0.0,    100,0, 0.0,    80, 0, 0.0,    85, 0, 0.0,	  9, 0, 0.0
		};

void	genchar(res,type)				/* init a charac struct */
int	type;
reg	struct	stats	*res;
{
register int	subscript;

	if (type < '1' || type > '6')
		if (type != '7' || !su)
			type = '2';	/* fighter is default */
	subscript = type - '1';
	res->quk = roll(table[subscript].quick.base,table[subscript].quick.interval);
	res->str = roll(table[subscript].strength.base,table[subscript].strength.interval);
	res->man = roll(table[subscript].manna.base,table[subscript].manna.interval);
	res->mxn = res->nrg = roll(table[subscript].energy.base,table[subscript].energy.interval);
	res->brn = roll(table[subscript].brains.base,table[subscript].brains.interval);
	res->mag = roll(table[subscript].magic.base,table[subscript].magic.interval);
	res->typ = subscript;
	if (subscript < 6)
		++res->typ;
	if (type == '5')
		res->exp = roll(600,200);	/* give halfling some exp. */
}

void	movelvl(stat)				/* update stats for new level */
reg	struct	stats	*stat;
{
reg	int	type;
reg	unsigned new;
double	inc;

	changed = TRUE;
	type = abs(stat->typ);
	if (type < 6)
		;	/* normal */
	else if (type < 10)
		type = roll(1,5);	/* experimento */
	else if (type < 20)
		{
		type -= 10;	/* king */
		if (type > 5)
			type = roll(1,5);	/* experimento */
		}
	else if (type < 26)
		type -= 20;	/* council of wise */
	else
		type = roll(1,5);	/* everything else */
	new = level(stat->exp);
	inc = new - stat->lvl;
	--type; 		/* set up for subscripting into table */
	stat->str += table[type].strength.increase * inc;
	stat->man += table[type].manna.increase * inc;
	stat->brn += table[type].brains.increase * inc;
	stat->mag += table[type].magic.increase * inc;
	stat->mxn += table[type].energy.increase * inc;
	stat->nrg = stat->mxn + stat->shd;
	if ((stat->lvl = min(10000,new)) >= 1000)
		{	/* no longer able to be king */
		stat->gld += stat->crn * 5000;
		stat->crn = 0;
		stat->typ = abs(stat->typ);
		}
	if (stat->lvl >= 3000 && stat->typ < 20)
		{	/* make a member of the council */
		mvaddstr(6,0,"You have made it to the Council of the Wise.\nGood Luck on your search for the Holy Grail.\n");
		stat->rng.type = 0;
		stat->rng.duration = 3;
		stat->typ = abs(stat->typ) + (stat->typ > 10 ? 10 :20);
		}
}

char	*printloc(x,y)			/* return a pointer to a string specifying location */
double	x,y;		/* also, set some global flags */
{
reg	int	size, loc;
reg	char	*label;
static	char	res[80],
		*nametable[4][4] =	 /* names of places */
		{
		"Anorien",	"Ithilien",	"Rohan",	"Lorien",
		"Gondor",	"Mordor",	"Dunland",	"Rovanion",
		"South Gondor", "Khand",	"Eriador",	"The Iron Hills",
		"Far Harad",	"Near Harad",	"The Northern Waste", "Rhun"
		};

	throne = beyond = marsh = FALSE;
	if (wmhl)
		return (strcpy(res," is in the Wormholes"));
	else if (valhala)
		return (strcpy(res," is in Valhala"));
	else if ((size = circ(x,y)) >= 1000)
		{
		if (max(abs(x),abs(y)) > 1100000)
			{
			label = "The Point of No Return";
			beyond = TRUE;
			}
		else
			label = "The Ashen Mountains";
		}
	else if (size >= 55)
		label = "Morannon";
	else if (size >= 35)
		label = "Kennaquahair";
	else if (size >= 20)
		{
		label = "The Dead Marshes";
		marsh = TRUE;
		}
	else if (size >= 9)
		label = "The Outer Waste";
	else if (size >= 5)
		label = "The Moors Adventurous";
	else
		{
		if (!x && !y)
			{
			label = "The Lord's Chamber";
			throne = TRUE;
			}
		else
			{
			loc = (x > 0) + 2 * (y >= 0);
			label = nametable[size-1][loc];
			}
		}
	sprintf(res," is in %s  (%.0f,%.0f)",label,x,y);
	return (res);
}

void	initchar(stat)				/* put in some default values */
reg	struct	stats	*stat;
{
	stat->x = roll(-125,251);
	stat->y = roll(-125,251);
	stat->exp = stat->lvl = stat->sin = 0;
	stat->crn = stat->psn = 0;
	stat->rng.type = NONE;
	stat->rng.duration = 0;
	stat->blind = stat->vrg = stat->pal = FALSE;
	stat->hw = stat->amu = stat->bls = 0;
	stat->chm = 0;
	stat->gem = 0.1;
	stat->gld = roll(25,50) + roll(0,25) + 0.1;
	stat->quks = stat->swd = stat->shd = 0;
	stat->typ = 0;
	stat->status = stat->tampered = OFF;
	stat->scratch1 = stat->scratch2 = 0.0;
	stat->wormhole = 0;
	stat->age = 0;
	stat->degen = 1;
}

void	trade(stat)				/* trading post */
reg	struct	stats	*stat;
{
static	struct
		{
		char	*item;
		int	cost;
		}	menu[] =
			{
			"Manna",1,
			"Shield",5,
			"Book",200,
			"Sword",500,
			"Charm",1000,
			"Quiksilver",2500,
			"Blessing",7000,
			"Gem",1000	/* this is only to ease changing the value of gems */
			};
double	temp;
int	ch;
reg	int	size, loop;
bool	cheat = FALSE;

	changed = TRUE;
	clear();
	addstr("You are at a trading post. All purchases must be made with gold.");
	size = sqrt(abs(stat->x/100)) + 1;
	size = min(7,size);
	mvprintw(4,0,"L:Leave  P:Purchase  S:Sell Gems ? ");
	move(6,0);
	for (loop = 0; loop < size; ++loop)
		printw("(%d) %-10s: %6d\n",loop+1,menu[loop].item,menu[loop].cost);
PROMPT:	mvprintw(1,0,"Gold:  %9.0f  Gems:  %9.0f  Level:   %6u  Charms: %6d\n",stat->gld,stat->gem,stat->lvl,stat->chm);
	printw("Shield:%9.0f  Sword: %9.0f  Quicksilver:%3d  Blessed: %s",
		stat->shd,stat->swd,stat->quks,(stat->bls ? " True" : "False"));
	move(4,36);
	ch = rgetch();
	move(15,0);
	clrtobot();
	switch(toupper(ch))
		{
		case 'L':
		case '\n':
			stat->x -= floor(stat->x/10);
			stat->y -= floor(stat->y/10);
			return;
		case 'P':
			mvaddstr(15,0,"What what would you like to buy ? ");
			ch = rgetch();
			move(15,0);
			clrtoeol();
			if (ch - '0' > size)
				addstr("Sorry, this merchant doesn't have that.");
			else
				switch (toupper(ch))
					{
					case '1':
						printw("Manna is one per %d gold piece.  How many do you want (%.0f max) ? ",menu[0].cost,floor(stat->gld/menu[0].cost));
						temp = inflt();
						if (temp * menu[0].cost > stat->gld || temp < 0)
							goto CHEAT;
						else
							{
							stat->gld -= floor(temp) * menu[0].cost;
							if (rnd() < 0.02)
								goto DISHON;
							else
								stat->man += floor(temp);
							}
						break;
					case '2':
						printw("Shields are %d per +1.  How many do you want (%.0f max) ? ",menu[1].cost,floor(stat->gld/menu[1].cost));
						temp = inflt();
						if (!temp)
							break;
						if (temp * menu[1].cost > stat->gld || temp < 0)
							goto CHEAT;
						else
							{
							stat->gld -= floor(temp) * menu[1].cost;
							if (rnd() < 0.02)
								goto DISHON;
							else
								stat->shd = floor(temp);
							}
						break;
					case '3':
						printw("A book costs %d gp.  How many do you want (%.0f max) ? ",menu[2].cost,floor(stat->gld/menu[2].cost));
						temp = inflt();
						if (temp * menu[2].cost > stat->gld || temp < 0)
							goto CHEAT;
						else
							{
							stat->gld -= floor(temp) * menu[2].cost;
							if (rnd() < 0.02)
								goto DISHON;
							else
								if (rnd()*temp > stat->lvl/10 && temp != 1)
									{
									printw("\nYou blew your mind!\n");
									stat->brn /= 5;
									}
								else
									stat->brn += floor(temp)*roll(25,10);
							}
						break;
					case '4':
						printw("Swords are %d gp per +1.  How many + do you want (%.0f max) ? ",menu[3].cost,floor(stat->gld/menu[3].cost));
						temp = inflt();
						if (!temp)
							break;
						if (temp * menu[3].cost > stat->gld || temp < 0)
							goto CHEAT;
						else
							{
							stat->gld -= floor(temp) * menu[3].cost;
							if (rnd() < 0.02)
								goto DISHON;
							else
								stat->swd = floor(temp);
							}
						break;
					case '5':
						printw("A charm costs %d gp.  How many do you want (%.0f max) ? ",menu[4].cost,floor(stat->gld/menu[4].cost));
						temp = inflt();
						if (temp * menu[4].cost > stat->gld || temp < 0)
							goto CHEAT;
						else
							{
							stat->gld -= floor(temp) * menu[4].cost;
							if (rnd() < 0.02)
								goto DISHON;
							else
								stat->chm += floor(temp);
							}
						break;
					case '6':
						printw("Quicksilver is %d gp per +1.  How many + do you want (%.0f max) ? ",menu[5].cost,floor(stat->gld/menu[5].cost));
						temp = inflt();
						if (!temp)
							break;
						if (temp * menu[5].cost > stat->gld || temp < 0)
							goto CHEAT;
						else
							{
							stat->gld -= floor(temp) * menu[5].cost;
							if (rnd() < 0.02)
								goto DISHON;
							else
								stat->quks = min(99,floor(temp));
							}
						break;
					case '7':
						printw("A blessing requires a %d gp donation.  Still want one ? ",menu[6].cost);
						ch = rgetch();
						if (toupper(ch) == 'Y')
							if (stat->gld < menu[6].cost)
								goto CHEAT;
							else
								{
								stat->gld -= menu[6].cost;
								if (rnd() < 0.02)
									goto DISHON;
								else
									stat->bls = TRUE;
								}
						break;
					}
			break;
		case 'S':
			mvprintw(15,0,"A gem is worth %d gp.  How many do you want to sell (%.0f max) ? ",menu[7].cost,stat->gem);
			temp = inflt();
			if (temp > stat->gem || temp < 0)
				goto CHEAT;
			else
				{
				stat->gem -= floor(temp);
				stat->gld += floor(temp) * menu[7].cost;
				}
		}
	goto PROMPT;

CHEAT:	move(17,0);
	if (!cheat)
		{
		addstr("Come on, merchants aren't stupid.  Stop cheating.\n");
		cheat = TRUE;
		goto PROMPT;
		}
	else
		{
		addstr("You had your chance.  This merchant happens to be\n");
		printw("a %.0f level magic user, and you made %s mad!\n",roll(size*10,size*20),(rnd() < 0.5) ? "him" : "her");
		stat->x += roll(-250,500)*size;
		stat->y += roll(-250,500)*size;
		stat->nrg = min(size*20,stat->mxn);
		++stat->sin;
		paws(23);
		}
	return;

DISHON:	mvaddstr(17,0,"The merchant stole your money!");
	refresh();
	stat->x -= floor(stat->x/10);
	stat->y -= floor(stat->y/10);
	sleep(2);
}

void	printstats(stat)				/* show characteristics */
reg	struct	stats	*stat;
{
	mvprintw(0,0,"%s%s\n",stat->name,printloc(stat->x,stat->y));
	mvprintw(1,0,"Level :%7u   Energy  :%9.0f(%9.0f)  Manna:%9.0f  Users:%3d\n",
		stat->lvl,stat->nrg,stat->mxn + stat->shd,stat->man,users);
	mvprintw(2,0,"Quick :%3.0f(%3d)  Strength:%9.0f(%9.0f)  Gold :%9.0f    ",
		speed,stat->quk + stat->quks,strength,stat->str + stat->swd,stat->gld);
	switch (stat->status)
		{
		case PLAYING:
			if (stat->nrg < 0.2 * (stat->mxn + stat->shd))
				addstr("Low Energy\n");
			else if (stat->blind)
				addstr("Blind\n");
			else
				clrtoeol();
			break;
		case CLOAKED:
			addstr("Cloaked\n");
			break;
		case INBATTLE:
			addstr("In Battle\n");
			break;
		case OFF:
			addstr("Off\n");
		}
}

void	showall(stat)				/* show special items */
reg	struct	stats	*stat;
{
static	char	*flags[] =
			{
			"False",
			" True"
			};

	mvprintw(6,0,"Type: %3d  --  ",stat->typ);
	switch (abs(stat->typ))
		{
		case 1:
		case 11:
		case 21:
			addstr("Magic User");
			break;
		case 2:
		case 12:
		case 22:
			addstr("Fighter");
			break;
		case 3:
		case 13:
		case 23:
			addstr("Elf");
			break;
		case 4:
		case 14:
		case 24:
			addstr("Dwarf");
			break;
		case 5:
		case 15:
		case 25:
			addstr("Halfling");
			break;
		case 6:
		case 16:
		case 26:
			addstr("Experimento");
			break;
		case 90:
			addstr("Ex-Valar");
			break;
		case 99:
			addstr("Valar");
		}
	if (stat->typ > 10 && stat->typ < 90)
		if (stat->typ > 20)
			addstr(" (Council of Wise)");
		else
			addstr(" (King)");
		addch('\n');
	mvprintw(7,0,"Experience: %9.0f",stat->exp);
	mvprintw(8,0,"Brains    : %9.0f",stat->brn);
	mvprintw(9,0,"Magic Lvl : %9.0f",stat->mag);
	mvprintw(10,0,"Sin       : %9.5f",stat->sin);
	mvprintw(11,0,"Poison    : %9.5f",stat->psn);
	mvprintw(12,0,"Gems      : %9.0f",stat->gem);
	mvprintw(13,0,"Age       : %9d",stat->age);
	mvprintw(7,40,"Holy Water: %9d",stat->hw);
	mvprintw(8,40,"Amulets   : %9d",stat->amu);
	mvprintw(9,40,"Charms    : %9d",stat->chm);
	mvprintw(10,40,"Crowns    : %9d",stat->crn);
	mvprintw(11,40,"Shield    : %9.0f",stat->shd);
	mvprintw(12,40,"Sword     : %9.0f",stat->swd);
	mvprintw(13,40,"Quickslver: %9d",stat->quks);

	mvprintw(14,0,"Blessing: %s   Ring: %s   Virgin: %s   Palantir: %s",
		flags[stat->bls],flags[stat->rng.type != 0],flags[stat->vrg],flags[stat->pal]);
}

void	neatstuff(stat) 			/* random things */
reg	struct	stats	*stat;
{
double	temp;
int	ch;

	switch ((int) roll(0,100))
		{
		case 1:
		case 2:
			if (stat->psn > 0)
				{
				mvaddstr(5,0,"You've found a medic!  How much will you offer to be cured ? ");
				temp = inflt();
				if (temp < 0 || temp > stat->gld)
					{
					mvaddstr(6,0,"He was not amused, and made you worse.\n");
					++stat->psn;
					}
				else if (rnd()/2.0 > (temp + 1)/max(stat->gld,1))
					mvaddstr(6,0,"Sorry, he wasn't interested.\n");
				else
					{
					mvaddstr(6,0,"He accepted.");
					stat->psn = max(0,stat->psn-1);
					stat->gld -= floor(temp);
					}
				}
			break;
		case 3:
			mvaddstr(6,0,"You've been caught raping and pillaging!\n");
			stat->exp += 4000;
			stat->sin += 0.5;
			break;
		case 4:
			temp = roll(6,50);
			mvprintw(5,0,"You've found %.0f gold pieces, want them ? ",temp);
			clrtoeol();
			ch = rgetch();
			if (toupper(ch) == 'Y')
				stat->gld += temp;
			break;
		case 5:
			if (stat->sin > 1)
				{
				mvaddstr(6,0,"You've found a Holy Orb!\n");
				stat->sin -= 0.25;
				}
			break;
		case 6:
			if (stat->psn < 1)
				{
				mvaddstr(6,0,"You've been hit with a plague!\n");
				++stat->psn;
				}
			break;
		case 7:
			mvaddstr(6,0,"You've found some holy water.\n");
			++stat->hw;
			break;
		case 8:
			mvaddstr(6,0,"You've met a Guru. . .");
			if (rnd()*stat->sin > 1)
				addstr("You disgusted him with your sins!\n");
			else if (stat->psn > 0)
				{
				addstr("He looked kindly upon you, and cured you.\n");
				stat->psn = 0;
				}
			else
				{
				addstr("He rewarded you for your virtue.\n");
				stat->man += 50;
				stat->shd += 2;
				}
			break;
		case 9:
			mvaddstr(6,0,"You've found an amulet.\n");
			++stat->amu;
			break;
		case 10:
			if (stat->blind)
				{
				mvaddstr(6,0,"You've regained your sight!\n");
				stat->blind = FALSE;
				}
			break;
		default:
			if (stat->psn > 0)
				stat->nrg -= min(stat->psn*stat->mxn/45,0.9*stat->mxn);
			stat->nrg = max(stat->nrg,floor(stat->mxn/11));
		}
}