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