games/larn/regen.c

   1 /* regen.c                      Larn is copyrighted 1986 by Noah Morgan. */
   2 /* $FreeBSD: src/games/larn/regen.c,v 1.4 1999/11/16 02:57:24 billf Exp $ */
   3 /* $DragonFly: src/games/larn/regen.c,v 1.3 2006/08/26 17:05:05 pavalos Exp $ */
   4 #include "header.h"
   5 /*
   6         *******
   7         REGEN()
   8         *******
   9         regen()
  10
  11         subroutine to regenerate player hp and spells
  12  */
  13 void
  14 regen(void)
  15 {
  16         int i, flag;
  17         long *d;
  18         d = c;
  19 #ifdef EXTRA
  20         d[MOVESMADE]++;
  21 #endif
  22         if (d[TIMESTOP]) {
  23                 if (--d[TIMESTOP] <= 0)
  24                         bottomline();
  25                 return;
  26         }                       /* for stop time spell */
  27         flag = 0;
  28
  29         if (d[STRENGTH] < 3) {
  30                 d[STRENGTH] = 3;
  31                 flag = 1;
  32         }
  33         if ((d[HASTESELF] == 0) || ((d[HASTESELF] & 1) == 0))
  34                 gtime++;
  35
  36         if (d[HP] != d[HPMAX])
  37                 if (d[REGENCOUNTER]-- <= 0) {   /* regenerate hit points */
  38                         d[REGENCOUNTER] = 22 + (d[HARDGAME] << 1) - d[LEVEL];
  39                         if ((d[HP] += d[REGEN]) > d[HPMAX])
  40                                 d[HP] = d[HPMAX];
  41                         bottomhp();
  42                 }
  43
  44         if (d[SPELLS] < d[SPELLMAX])    /* regenerate spells */
  45                 if (d[ECOUNTER]-- <= 0) {
  46                         d[ECOUNTER] = 100 + 4 * (d[HARDGAME] - d[LEVEL] - d[ENERGY]);
  47                         d[SPELLS]++;
  48                         bottomspell();
  49                 }
  50
  51         if (d[HERO])
  52                 if (--d[HERO] <= 0) {
  53                         for (i = 0; i < 6; i++)
  54                                 d[i] -= 10;
  55                         flag = 1;
  56                 }
  57         if (d[ALTPRO])
  58                 if (--d[ALTPRO] <= 0) {
  59                         d[MOREDEFENSES] -= 3;
  60                         flag = 1;
  61                 }
  62         if (d[PROTECTIONTIME])
  63                 if (--d[PROTECTIONTIME] <= 0) {
  64                         d[MOREDEFENSES] -= 2;
  65                         flag = 1;
  66                 }
  67         if (d[DEXCOUNT])
  68                 if (--d[DEXCOUNT] <= 0) {
  69                         d[DEXTERITY] -= 3;
  70                         flag = 1;
  71                 }
  72         if (d[STRCOUNT])
  73                 if (--d[STRCOUNT] <= 0) {
  74                         d[STREXTRA] -= 3;
  75                         flag = 1;
  76                 }
  77         if (d[BLINDCOUNT])
  78                 if (--d[BLINDCOUNT] <= 0) {
  79                         cursors();
  80                         lprcat("\nThe blindness lifts  ");
  81                         beep();
  82                 }
  83         if (d[CONFUSE])
  84                 if (--d[CONFUSE] <= 0) {
  85                         cursors();
  86                         lprcat("\nYou regain your senses");
  87                         beep();
  88                 }
  89         if (d[GIANTSTR])
  90                 if (--d[GIANTSTR] <= 0) {
  91                         d[STREXTRA] -= 20;
  92                         flag = 1;
  93                 }
  94         if (d[CHARMCOUNT])
  95                 if ((--d[CHARMCOUNT]) <= 0)
  96                         flag = 1;
  97         if (d[INVISIBILITY])
  98                 if ((--d[INVISIBILITY]) <= 0)
  99                         flag = 1;
 100         if (d[CANCELLATION])
 101                 if ((--d[CANCELLATION]) <= 0)
 102                         flag = 1;
 103         if (d[WTW])
 104                 if ((--d[WTW]) <= 0)
 105                         flag = 1;
 106         if (d[HASTESELF])
 107                 if ((--d[HASTESELF]) <= 0)
 108                         flag = 1;
 109         if (d[AGGRAVATE])
 110                 --d[AGGRAVATE];
 111         if (d[SCAREMONST])
 112                 if ((--d[SCAREMONST]) <= 0)
 113                         flag = 1;
 114         if (d[STEALTH])
 115                 if ((--d[STEALTH]) <= 0)
 116                         flag = 1;
 117         if (d[AWARENESS])
 118                 --d[AWARENESS];
 119         if (d[HOLDMONST])
 120                 if ((--d[HOLDMONST]) <= 0)
 121                         flag = 1;
 122         if (d[HASTEMONST])
 123                 --d[HASTEMONST];
 124         if (d[FIRERESISTANCE])
 125                 if ((--d[FIRERESISTANCE]) <= 0)
 126                         flag = 1;
 127         if (d[GLOBE])
 128                 if (--d[GLOBE] <= 0) {
 129                         d[MOREDEFENSES] -= 10;
 130                         flag = 1;
 131                 }
 132         if (d[SPIRITPRO])
 133                 if (--d[SPIRITPRO] <= 0)
 134                         flag = 1;
 135         if (d[UNDEADPRO])
 136                 if (--d[UNDEADPRO] <= 0)
 137                         flag = 1;
 138         if (d[HALFDAM])
 139                 if (--d[HALFDAM] <= 0) {
 140                         cursors();
 141                         lprcat("\nYou now feel better ");
 142                         beep();
 143                 }
 144         if (d[SEEINVISIBLE])
 145                 if (--d[SEEINVISIBLE] <= 0) {
 146                         monstnamelist[INVISIBLESTALKER] = ' ';
 147                         cursors();
 148                         lprcat("\nYou feel your vision return to normal");
 149                         beep();
 150                 }
 151         if (d[ITCHING]) {
 152                 if (d[ITCHING] > 1)
 153                         if ((d[WEAR] != -1) || (d[SHIELD] != -1))
 154                                 if (rnd(100) < 50) {
 155                                         d[WEAR] = d[SHIELD] = -1;
 156                                         cursors();
 157                                         lprcat("\nThe hysteria of itching forces you to remove your armor!");
 158                                         beep();
 159                                         recalc();
 160                                         bottomline();
 161                                 }
 162                 if (--d[ITCHING] <= 0) {
 163                         cursors();
 164                         lprcat("\nYou now feel the irritation subside!");
 165                         beep();
 166                 }
 167         }
 168         if (d[CLUMSINESS]) {
 169                 if (d[WIELD] != -1)
 170                         if (d[CLUMSINESS] > 1)
 171                                 if (item[playerx][playery] == 0)        /* only if nothing there */
 172                                         if (rnd(100) < 33)      /* drop your weapon due to clumsiness */
 173                                                 drop_object((int)d[WIELD]);
 174                 if (--d[CLUMSINESS] <= 0) {
 175                         cursors();
 176                         lprcat("\nYou now feel less awkward!");
 177                         beep();
 178                 }
 179         }
 180         if (flag)
 181                 bottomline();
 182 }