Home | History | Annotate | Line # | Download | only in larn
regen.c revision 1.1
      1  1.1  cgd /* regen.c 			Larn is copyrighted 1986 by Noah Morgan. */
      2  1.1  cgd #include "header.h"
      3  1.1  cgd /*
      4  1.1  cgd 	*******
      5  1.1  cgd 	REGEN()
      6  1.1  cgd 	*******
      7  1.1  cgd 	regen()
      8  1.1  cgd 
      9  1.1  cgd 	subroutine to regenerate player hp and spells
     10  1.1  cgd  */
     11  1.1  cgd regen()
     12  1.1  cgd 	{
     13  1.1  cgd 	register int i,flag;
     14  1.1  cgd 	register long *d;
     15  1.1  cgd 	d = c;
     16  1.1  cgd #ifdef EXTRA
     17  1.1  cgd 	d[MOVESMADE]++;
     18  1.1  cgd #endif
     19  1.1  cgd 	if (d[TIMESTOP])  { if(--d[TIMESTOP]<=0) bottomline();  return; }	/* for stop time spell */
     20  1.1  cgd 	flag=0;
     21  1.1  cgd 
     22  1.1  cgd 	if (d[STRENGTH]<3)	{ d[STRENGTH]=3; flag=1; }
     23  1.1  cgd 	if ((d[HASTESELF]==0) || ((d[HASTESELF] & 1) == 0))
     24  1.1  cgd 		gtime++;
     25  1.1  cgd 
     26  1.1  cgd 	if (d[HP] != d[HPMAX])
     27  1.1  cgd 		if (d[REGENCOUNTER]-- <= 0)		/*	regenerate hit points	*/
     28  1.1  cgd 			{
     29  1.1  cgd 			d[REGENCOUNTER] = 22 + (d[HARDGAME]<<1) - d[LEVEL];
     30  1.1  cgd 			if ((d[HP] += d[REGEN]) > d[HPMAX])  d[HP] = d[HPMAX];
     31  1.1  cgd 			bottomhp();
     32  1.1  cgd 			}
     33  1.1  cgd 
     34  1.1  cgd 	if (d[SPELLS] < d[SPELLMAX])		/*	regenerate spells	*/
     35  1.1  cgd 		if (d[ECOUNTER]-- <= 0)
     36  1.1  cgd 			{
     37  1.1  cgd 			d[ECOUNTER] = 100+4*(d[HARDGAME]-d[LEVEL]-d[ENERGY]);
     38  1.1  cgd 			d[SPELLS]++;	bottomspell();
     39  1.1  cgd 			}
     40  1.1  cgd 
     41  1.1  cgd 	if (d[HERO])			if (--d[HERO]<=0) { for (i=0; i<6; i++) d[i] -= 10; flag=1; }
     42  1.1  cgd 	if (d[ALTPRO])			if (--d[ALTPRO]<=0)			{ d[MOREDEFENSES]-=3; flag=1; }
     43  1.1  cgd 	if (d[PROTECTIONTIME])	if (--d[PROTECTIONTIME]<=0)	{ d[MOREDEFENSES]-=2; flag=1; }
     44  1.1  cgd 	if (d[DEXCOUNT])		if (--d[DEXCOUNT]<=0)		{ d[DEXTERITY]-=3; flag=1; }
     45  1.1  cgd 	if (d[STRCOUNT])		if (--d[STRCOUNT]<=0)		{ d[STREXTRA]-=3; flag=1; }
     46  1.1  cgd 	if (d[BLINDCOUNT])		if (--d[BLINDCOUNT]<=0)		{ cursors();  lprcat("\nThe blindness lifts  "); beep(); }
     47  1.1  cgd 	if (d[CONFUSE])			if (--d[CONFUSE]<=0) { cursors();  lprcat("\nYou regain your senses"); beep(); }
     48  1.1  cgd 	if (d[GIANTSTR])		if (--d[GIANTSTR]<=0) { d[STREXTRA] -= 20; flag=1; }
     49  1.1  cgd 	if (d[CHARMCOUNT])		if ((--d[CHARMCOUNT]) <= 0) flag=1;
     50  1.1  cgd 	if (d[INVISIBILITY])	if ((--d[INVISIBILITY]) <= 0) flag=1;
     51  1.1  cgd 	if (d[CANCELLATION])	if ((--d[CANCELLATION]) <= 0) flag=1;
     52  1.1  cgd 	if (d[WTW])				if ((--d[WTW]) <= 0) flag=1;
     53  1.1  cgd 	if (d[HASTESELF])		if ((--d[HASTESELF]) <= 0) flag=1;
     54  1.1  cgd 	if (d[AGGRAVATE])		--d[AGGRAVATE];
     55  1.1  cgd 	if (d[SCAREMONST])		if ((--d[SCAREMONST]) <= 0) flag=1;
     56  1.1  cgd 	if (d[STEALTH])			if ((--d[STEALTH]) <= 0) flag=1;
     57  1.1  cgd 	if (d[AWARENESS])		--d[AWARENESS];
     58  1.1  cgd 	if (d[HOLDMONST])		if ((--d[HOLDMONST]) <= 0) flag=1;
     59  1.1  cgd 	if (d[HASTEMONST])		--d[HASTEMONST];
     60  1.1  cgd 	if (d[FIRERESISTANCE])	if ((--d[FIRERESISTANCE]) <= 0) flag=1;
     61  1.1  cgd 	if (d[GLOBE])			if (--d[GLOBE]<=0) { d[MOREDEFENSES]-=10; flag=1; }
     62  1.1  cgd 	if (d[SPIRITPRO])		if (--d[SPIRITPRO] <= 0) flag=1;
     63  1.1  cgd 	if (d[UNDEADPRO])		if (--d[UNDEADPRO] <= 0) flag=1;
     64  1.1  cgd 	if (d[HALFDAM])			if (--d[HALFDAM]<=0)  { cursors();  lprcat("\nYou now feel better "); beep(); }
     65  1.1  cgd 	if (d[SEEINVISIBLE])
     66  1.1  cgd 	  if (--d[SEEINVISIBLE]<=0)
     67  1.1  cgd 		{ monstnamelist[INVISIBLESTALKER] = ' ';
     68  1.1  cgd 		  cursors();  lprcat("\nYou feel your vision return to normal"); beep(); }
     69  1.1  cgd 	if (d[ITCHING])
     70  1.1  cgd 		{
     71  1.1  cgd 		if (d[ITCHING]>1)
     72  1.1  cgd 			if ((d[WEAR]!= -1) || (d[SHIELD]!= -1))
     73  1.1  cgd 				if (rnd(100)<50)
     74  1.1  cgd 					{
     75  1.1  cgd 					d[WEAR]=d[SHIELD]= -1; cursors();
     76  1.1  cgd 					lprcat("\nThe hysteria of itching forces you to remove your armor!");
     77  1.1  cgd 					beep(); recalc();  bottomline();
     78  1.1  cgd 					}
     79  1.1  cgd 		if (--d[ITCHING]<=0) { cursors();  lprcat("\nYou now feel the irritation subside!"); beep(); }
     80  1.1  cgd 		}
     81  1.1  cgd 	if (d[CLUMSINESS])
     82  1.1  cgd 		{
     83  1.1  cgd 		if (d[WIELD] != -1)
     84  1.1  cgd 			if (d[CLUMSINESS]>1)
     85  1.1  cgd 			  if (item[playerx][playery]==0)	/* only if nothing there */
     86  1.1  cgd 				if (rnd(100)<33) /* drop your weapon due to clumsiness */
     87  1.1  cgd 					drop_object((int)d[WIELD]);
     88  1.1  cgd 		if (--d[CLUMSINESS]<=0) { cursors();  lprcat("\nYou now feel less awkward!"); beep(); }
     89  1.1  cgd 		}
     90  1.1  cgd 	if (flag) bottomline();
     91  1.1  cgd 	}
     92  1.1  cgd 
     93