/*
 * fight.c   Phantasia monster fighting routine
 *
 *	1.1	(2.11BSD) 1996/10/26
 */

/*
 * The code exists here for fight to the finish.  Simply add code to
 * set 'fgttofin = TRUE' as an option.	Everything else is here.
 */
#include "phant.h"

void	fight(stat,particular)			/* monster fighting routine */
reg	struct	stats	*stat;
int	particular;
{
bool	fghttofin = FALSE, luckout = FALSE;
char	aline[80];
double	monhit, mdamage, sdamage, monspd, maxspd, inflict, monstr, temp, shield;
int	ch;
reg	int	whichm, size, hwmany, lines;
struct	mstats	monster;

	fghting = changed = TRUE;
	shield = 0.0;
	if (setjmp(fightenv) == 2)
		shield = roll(100 + (stat->mxn + stat->shd)*6.2,3000);
	hwmany = 0;
	size = (valhala) ? stat->lvl/5 : circ(stat->x,stat->y);
	if (particular >= 0)
		whichm = particular;
	else if (marsh)
		whichm = roll(0,15);
	else if (size > 24)
		whichm = roll(14,86);
	else if (size > 15)
		whichm = roll(0,50) + roll(14,37);
	else if (size > 8)
		whichm = roll(0,50) + roll(14,26);
	else if (size > 3)
		whichm = roll(14,50);
	else 
		whichm = roll(14,25);

CALL:	move(3,0);
	clrtobot();
	move(5,0);
	lines = 6;
	callmonster(whichm,size,&monster);
	if (stat->blind)
		strcpy(monster.name,"a monster");
	++hwmany;
	if (monster.typ == 1)	/* unicorn */
		if (stat->vrg)
			{
			printw("You just subdued %s, thanx to the virgin.",monster.name);
			stat->vrg = FALSE;
			goto FINISH;
			}
		else
			{
			printw("You just saw %s running away!",monster.name);
			goto LEAVE;
			}
	if (monster.typ == 2 && stat->typ > 20)
		{
		strcpy(monster.name,"Morgoth");
		monster.str = rnd()*(stat->mxn + stat->shd)/1.4 + rnd()*(stat->mxn + stat->shd)/1.5;
		monster.brn = stat->brn;
		monster.hit = stat->str*30;
		monster.typ = 23;
		monster.spd = speed*1.1 + speed*(stat->typ == 90);
		monster.flk = monster.trs = monster.exp = 0;
		mvprintw(4,0,"You've encountered %s, Bane of the Council and Valar.",monster.name);
		}
	fghttofin = luckout = FALSE;
	monstr = monster.str;
	monhit = monster.hit;
	mdamage = sdamage = 0;
	monspd = maxspd = monster.spd;
	*monster.name = toupper(*monster.name);

TOP:	mvprintw(5,0,"You are being attacked by %s,   EXP: %.0f   (Size: %d)",monster.name,monster.exp,size);
	printstats(stat);
	mvprintw(1,26,"%20.0f",stat->nrg + shield);
	if (monster.typ == 4 && stat->bls && stat->chm)
		{
		mvprintw(6,0,"You just overpowered %s!",monster.name);
		lines = 7;
		stat->bls = FALSE;
		--stat->chm;
		goto FINISH;
		}
	monster.spd = min(monster.spd + 1,maxspd);
	if (rnd()*monster.spd > rnd()*speed && monster.typ != 4 && monster.typ != 16)
		{
		if (monster.typ)
			switch (monster.typ)	/* do special things */
				{
				case 5: /* Leanan-Sidhe */
					if (rnd() > 0.25)
						goto NORMALHIT;
					inflict = roll(1,(size - 1)/2);
					inflict = min(stat->str,inflict);
					mvprintw(lines++,0,"%s sapped %0.f of your strength!",monster.name,inflict);
					stat->str -= inflict;
					strength -= inflict;
					break;
				case 6: /* Saruman */
					if (stat->pal)
						{
						mvprintw(lines++,0,"Wormtongue stole your palantir!");
						stat->pal = FALSE;
						}
					else if (rnd() > 0.2)
						goto NORMALHIT;
					else if (rnd() > 0.5)
						{
						mvprintw(lines++,0,"%s transformed your gems into gold!",monster.name);
						stat->gld += stat->gem;
						stat->gem = 0.0;
						}
					else
						{
						mvprintw(lines++,0,"%s scrambled your stats!",monster.name);
						scramble(stat);
						}
					break;
				case 7: /* Thaumaturgist */
					if (rnd() > 0.15)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s transported you!",monster.name);
					stat->x += sgn(stat->x)*roll(50*size,250*size);
					stat->y += sgn(stat->y)*roll(50*size,250*size);
					goto LEAVE;
				case 8: /* Balrog */
					inflict = roll(10,monster.str);
					inflict = min(stat->exp,inflict);
					mvprintw(lines++,0,"%s took away %0.f experience points.",monster.name,inflict);
					stat->exp -= inflict;
					break;
				case 9: /* Vortex */
					if (rnd() > 0.2)
						goto NORMALHIT;
					inflict = roll(0,7.5*size);
					inflict = min(stat->man,floor(inflict));
					mvprintw(lines++,0,"%s sucked up %.0f of your manna!",monster.name,inflict);
					stat->man -= inflict;
					break;
				case 10:	/* Nazgul */
					if (rnd() > 0.3)
						goto NORMALHIT;
					if (stat->rng.type && stat->rng.type < 10)
						{
						mvaddstr(lines++,0,"Will you relinguish your ring ? ");
						ch = rgetch();
						if (toupper(ch) == 'Y')
							{
							stat->rng.type = NONE;
							goto LEAVE;
							}
						}
					mvprintw(lines++,0,"%s neutralized 1/5 of your brain!",monster.name);
					stat->brn *= 0.8;
					break;
				case 11:	/* Tiamat */
					if (rnd() > 0.6)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s took half your gold and gems and flew off.",monster.name);
					stat->gld = floor(stat->gld/2);
					stat->gem = floor(stat->gem/2);
					goto LEAVE;
				case 12:	/* Kobold */
					if (rnd() >.7)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s stole one gold piece and ran away.",monster.name);
					stat->gld = max(0,stat->gld-1);
					goto LEAVE;
				case 13:	/* Shelob */
					if (rnd() > 0.5)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s has bitten and poisoned you!",monster.name);
					++stat->psn;
					break;
				case 14:	/* Faeries */
					if (!stat->hw)
						goto NORMALHIT;
					mvprintw(lines++,0,"Your holy water killed it!");
					--stat->hw;
					goto FINISH;
				case 15:	/* Lamprey */
					if (rnd() > 0.7)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s bit and poisoned you!",monster.name);
					stat->psn += 0.25;
					break;
				case 17:	/* Bonnacon */
					if (rnd() > 0.1)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s farted and scampered off.",monster.name);
					stat->nrg /= 2;
					goto LEAVE;
				case 18:	/* Smeagol */
					if (rnd() > 0.5 || !stat->rng.type)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s tried to steal your ring, ",monster.name);
					if (rnd() > 0.1)
						addstr("but was unsuccessful.");
					else
						{
						addstr("and ran away with it!");
						stat->rng.type = NONE;
						goto LEAVE;
						}
					break;
				case 19:	/* Succubus */
					if (rnd() > 0.3)
						goto NORMALHIT;
					inflict = roll(15,size*10);
					inflict = min(inflict,stat->nrg);
					mvprintw(lines++,0,"%s sapped %0.f of your energy.",monster.name,inflict);
					stat->nrg -= inflict;
					break;
				case 20:	/* Cerberus */
					if (rnd() > 0.25)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s took all your metal treasures!",monster.name);
					stat->swd = stat->shd =stat->gld = stat->crn = 0;
					goto LEAVE;
				case 21:	/* Ungoliant */
					if (rnd() > 0.1)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s poisoned you, and took one quik.",monster.name);
					stat->psn += 5;
					--stat->quk;
					break;
				case 22:	/* Jabberwock */
					if (rnd() > 0.1)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s flew away, and left you to contend with one of its friends.",monster.name);
					whichm = 55 + 22*(rnd() > 0.5);
					goto CALL;
				case 24:	/* Troll */
					if (rnd() > 0.5)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s partially regenerated his energy.!",monster.name);
					monster.hit += floor((monhit*size - monster.hit)/2);
					monster.str = monstr;
					mdamage = sdamage = 0;
					maxspd = monspd;
					break;
				case 25:	/* wraith */
					if (rnd() > 0.3 || stat->blind)
						goto NORMALHIT;
					mvprintw(lines++,0,"%s blindeed you!",monster.name);
					stat->blind = TRUE;
					break;
				default:
					goto NORMALHIT;
				}
		else
NORMALHIT:		{
			inflict = rnd()*monster.str + 0.5;
			mvprintw(lines++,0,"%s hit you %.0f times!",monster.name,inflict);
SPECIALHIT:		if ((shield -= inflict) < 0)
				{
				stat->nrg += shield;
				shield = 0;
				}
			}
		}
	else
		{
		if (fghttofin)
			goto MELEE;
		mvaddstr(3,0,"1:Melee  2:Skirmish  3:Evade  4:Spell  5:Nick  ");
		if (!luckout)
			if (monster.typ == 23)
				addstr("6:Ally  ");
			else
				addstr("6:Luckout  ");
		if (stat->rng.type > 0)
			addstr("7:Use Ring  ");
		else
			clrtoeol();
		ch = gch(stat->rng.type);
		move(lines = 6,0);
		clrtobot();
		switch (ch)
			{
			default:
			case '1':	/* melee */
MELEE:				inflict = roll(strength/2 + 5,1.3*strength) + (stat->rng.type < 0 ? strength : 0);
				mdamage += inflict;
				monster.str = monstr - mdamage/monhit*monstr/4;
				goto HITMONSTER;
			case '2':	/* skirmish */
				inflict = roll(strength/3 + 3,1.1*strength) + (stat->rng.type < 0 ? strength : 0);
				sdamage += inflict;
				maxspd = monspd - sdamage/monhit*monspd/4;
				goto HITMONSTER;
			case '3':	/* evade */
				if ((monster.typ == 4 || monster.typ == 16
				|| rnd()*speed*stat->brn > rnd()*monster.spd*monster.brn)
				&& (monster.typ != 23))
					{
					mvaddstr(lines++,0,"You got away!");
					stat->x += roll(-2,5);
					stat->y += roll(-2,5);
					goto LEAVE;
					}
				else
					mvprintw(lines++,0,"%s is still after you!",monster.name);
				break;
			case '4':	/* spell */
				lines = 7;
				mvaddstr(3,0,"\n\n");
				mvaddstr(3,0,"1:All or Nothing");
				if (stat->mag >= 3)
					mvaddstr(3,18,"2:Magic Bolt");
				if (stat->mag >= 7)
					mvaddstr(3,32,"3:Force Field");
				if (stat->mag >= 10)
					mvaddstr(3,47,"4:Transform");
				if(stat->mag >= 15)
					mvaddstr(3,60,"5:Increase Might\n");
				if (stat->mag >= 20)
					mvaddstr(4,0,"6:Invisibility");
				if (stat->mag >= 25)
					mvaddstr(4,18,"7:Transport");
				if (stat->mag >= 30)
					mvaddstr(4,32,"8:Paralyze");
				if (stat->typ > 20)
					mvaddstr(4,52,"9:Specify");
				mvaddstr(6,0,"Spell ? ");
				ch = rgetch();
				mvaddstr(3,0,"\n\n");
				if (monster.typ == 23 && ch != '4')
					illspell();
				else
					switch (ch)
						{
						case '1':	/* all or nothing */
							{
							inflict = (rnd() < 0.25) ? (monster.hit*1.0001 + 1) : 0;
							if (monster.typ == 4)
								inflict *= .9;
							if (stat->man)
								--stat->man;
							maxspd *= 2;
							monspd *= 2;
							monster.spd = max(1,monster.spd * 2);
							monstr = monster.str *= 2;
							goto HITMONSTER;
							}
						case '2':	/* magic bolt */
							if (stat->mag < 3)
								illspell();
							else
								{
								do
									{
									mvaddstr(6,0,"How much manna for bolt? ");
									getstring(aline,80);
									sscanf(aline,"%F",&temp);
									}
								while (temp < 0 || temp > stat->man);
								stat->man -= floor(temp);
								inflict = temp*roll(10,sqrt(stat->mag/3.0 + 1.0));
								mvaddstr(6,0,"Magic Bolt fired!\n");
								if (monster.typ == 4)
									inflict = 0.0;
								goto HITMONSTER;
								}
						case '5':	/* increase might */
							{
							if (stat->mag < 15)
								illspell();
							else if (stat->man < 55)
								nomanna();
							else
								{
								stat->man -= 55;
								strength += (1.2*(stat->str+stat->swd)+5-strength)/2;
								mvprintw(6,0,"New strength:  %.0f\n",strength);
								}
							break;
							}
						case '3':	/* force field */
							{
							if (stat->mag < 7)
								illspell();
							else if (stat->man < 20)
								nomanna();
							else
								{
								shield = (stat->mxn + stat->shd)*4.2 + 45;
								stat->man -= 20;
								mvaddstr(6,0,"Force Field up.\n");
								}
							break;
							}
						case '4':	/* transform */
							{
							if (stat->mag < 10)
								illspell();
							else if (stat->man < 35)
								nomanna();
							else
								{
								stat->man -= 35;
								whichm = roll(0,100);
								goto CALL;
								}
							break;
							}
						case '6':	/* invisible */
							{
							if (stat->mag < 20)
								illspell();
							else if (stat->man < 45)
								nomanna();
							else
								{
								stat->man -= 45;
								speed += (1.2*(stat->quk+stat->quks)+5-speed)/2;
								mvprintw(6,0,"New quik :  %.0f\n",speed);
								}
							break;
							}
						case '7':	/* transport */
							{
							if (stat->mag < 25)
								illspell();
							else if (stat->man < 50)
								nomanna();
							else
								{
								stat->man -= 50;
								if (stat->brn + stat->mag < monster.exp/300*rnd())
									{
									mvaddstr(6,0,"Transport backfired!\n");
									stat->x += (250*size*rnd() + 50*size)*sgn(stat->x);
									stat->y += (250*size*rnd() + 50*size)*sgn(stat->y);
									goto LEAVE;
									}
								else
									{
									mvprintw(6,0,"%s is transported.\n",monster.name);
									monster.trs *= (rnd() > 0.3);
									goto FINISH;
									}
								}
							break;
							}
						case '8':	/* paralyze */
							{
							if (stat->mag < 30)
									illspell();
							else if (stat->man < 60)
								nomanna();
							else
								{
								stat->man -= 60;
								if (stat->mag > monster.exp/1000*rnd())
									{
									mvprintw(6,0,"%s is held.\n",monster.name);
									monster.spd = -2;
									}
								else
									mvaddstr(6,0,"Monster unaffected.\n");
								}
							break;
							}
						case '9':	/* specify */
							{
							if (stat->typ < 20)
								illspell();
							else if (stat->man < 1000)
								nomanna();
							else
								{
								mvaddstr(6,0,"Which monster do you want [0-99] ? ");
								whichm = inflt();
								whichm = max(0,min(99,whichm));
								stat->man -= 1000;
								goto CALL;
								}
							break;
							}
						}
				break;
			case '5':
				inflict = 1 + stat->swd;
				stat->exp += floor(monster.exp/10);
				monster.exp *= 0.92;
				maxspd += 2;
				monster.spd = (monster.spd < 0) ? 0 : monster.spd + 2;
				if (monster.typ == 4)
					{
					mvprintw(lines++,0,"You hit %s %.0f times, and made him mad!",monster.name,inflict);
					stat->quk /= 2;
					stat->x += sgn(stat->x)*roll(50*size,250*size);
					stat->y += sgn(stat->y)*roll(50*size,250*size);
					stat->y += (250*size*rnd() + 50*size)*sgn(stat->y);
					goto LEAVE;
					}
				else
					goto HITMONSTER;
			case '6':	/* luckout */
				if (luckout)
					mvaddstr(lines++,0,"You already tried that.");
				else
					if (monster.typ == 23)
						if (rnd() < stat->sin/100)								{
							mvprintw(lines++,0,"%s accepted!",monster.name);
							goto LEAVE;
							}
						else
							{
							luckout = TRUE;
							mvaddstr(lines++,0,"Nope, he's not interested.");
							}
					else
						if ((rnd() + .333)*stat->brn < (rnd() + .333)*monster.brn)
							{
							luckout = TRUE;
							mvprintw(lines++,0,"You blew it, %s.",stat->name);
							}
						else
							{
							mvaddstr(lines++,0,"You made it!");
							goto FINISH;
							}
				break;
			case '\014':	/* clear screen */
				clear();
				break;
			case '7':	/* use ring */
				if (stat->rng.type > 0)
					{
					mvaddstr(lines++,0,"Now using ring.");
						stat->rng.type = -stat->rng.type;
						if (abs(stat->rng.type) != DLREG)
							--stat->rng.duration;
						goto NORMALHIT;
					}
				break;
			}
		goto BOT;
HITMONSTER:		{
			inflict = floor(inflict);
			mvprintw(lines++,0,"You hit %s %.0f times!",monster.name,inflict);
			if ((monster.hit -= inflict) >0)
				switch (monster.typ)
					{
					case 4: /* dark lord */
						inflict = stat->nrg + shield +1;
						goto SPECIALHIT;
					case 16:	/* shrieker */
						mvaddstr(lines++,0,"Shreeeek!!  You scared it, and it called one of its friends.");
						paws(lines);
						whichm = roll(70,30);
						goto CALL;
					}
			else
				{
				if (monster.typ == 23)	/* morgoth */
					mvaddstr(lines++,0,"You have defeated Morgoth, but he may return. . .");
				else
					mvprintw(lines++,0,"You killed it.  Good work, %s.",stat->name);
				goto FINISH;
				}
			}
		}
BOT:	refresh();
	if (lines == 23)
		{
		paws(23);
		move(lines = 6,0);
		clrtobot();
		}
	if (stat->nrg <= 0)
		{
		paws(lines);
		death(stat);
		goto LEAVE;
		}
	goto TOP;
FINISH:	stat->exp += monster.exp;
	if (rnd() < monster.flk/100.0)	/* flock monster */
		{
		paws(lines);
		fghttofin = FALSE;
		goto CALL;
		}
	else if (size > 1 && monster.trs && rnd() > pow(0.6,(double) (hwmany/3 + size/3)))	/* this takes # of flocks and size into account */
		{
		paws(lines);
		treasure(stat,monster.trs,size);
		}
LEAVE:	stat->rng.type = abs(stat->rng.type);
	paws(lines+3);
	move(4,0);
	clrtobot();
	fghting = FALSE;
}