games/larn/display.c

   1 /*      display.c               Larn is copyrighted 1986 by Noah Morgan. */
   2 /* $FreeBSD: src/games/larn/display.c,v 1.4 1999/11/16 02:57:21 billf Exp $ */
   3 /* $DragonFly: src/games/larn/display.c,v 1.2 2003/06/17 04:25:24 dillon Exp $ */
   4 #include "header.h"
   5 #define makecode(_a,_b,_c) (((_a)<<16) + ((_b)<<8) + (_c))
   6
   7 static int minx,maxx,miny,maxy,k,m;
   8 static char bot1f=0,bot2f=0,bot3f=0;
   9 char always=0;
  10 /*
  11         bottomline()
  12
  13         now for the bottom line of the display
  14  */
  15 bottomline()
  16         {       recalc();       bot1f=1;        }
  17 bottomhp()
  18         {       bot2f=1;        }
  19 bottomspell()
  20         {       bot3f=1;        }
  21 bottomdo()
  22         {
  23         if (bot1f) { bot3f=bot1f=bot2f=0; bot_linex(); return; }
  24         if (bot2f) { bot2f=0; bot_hpx(); }
  25         if (bot3f) { bot3f=0; bot_spellx(); }
  26         }
  27
  28 static void botsub();
  29
  30 bot_linex()
  31         {
  32         int i;
  33         if (cbak[SPELLS] <= -50 || (always))
  34                 {
  35                 cursor( 1,18);
  36                 if (c[SPELLMAX]>99)  lprintf("Spells:%3d(%3d)",(long)c[SPELLS],(long)c[SPELLMAX]);
  37                                                 else lprintf("Spells:%3d(%2d) ",(long)c[SPELLS],(long)c[SPELLMAX]);
  38                 lprintf(" AC: %-3d  WC: %-3d  Level",(long)c[AC],(long)c[WCLASS]);
  39                 if (c[LEVEL]>99) lprintf("%3d",(long)c[LEVEL]);
  40                                         else lprintf(" %-2d",(long)c[LEVEL]);
  41                 lprintf(" Exp: %-9d %s\n",(long)c[EXPERIENCE],class[c[LEVEL]-1]);
  42                 lprintf("HP: %3d(%3d) STR=%-2d INT=%-2d ",
  43                         (long)c[HP],(long)c[HPMAX],(long)(c[STRENGTH]+c[STREXTRA]),(long)c[INTELLIGENCE]);
  44                 lprintf("WIS=%-2d CON=%-2d DEX=%-2d CHA=%-2d LV:",
  45                         (long)c[WISDOM],(long)c[CONSTITUTION],(long)c[DEXTERITY],(long)c[CHARISMA]);
  46
  47                 if ((level==0) || (wizard))  c[TELEFLAG]=0;
  48                 if (c[TELEFLAG])  lprcat(" ?");  else  lprcat(levelname[level]);
  49                 lprintf("  Gold: %-6d",(long)c[GOLD]);
  50                 always=1;  botside();
  51                 c[TMP] = c[STRENGTH]+c[STREXTRA];
  52                 for (i=0; i<100; i++) cbak[i]=c[i];
  53                 return;
  54                 }
  55
  56         botsub(makecode(SPELLS,8,18),"%3d");
  57         if (c[SPELLMAX]>99)  botsub(makecode(SPELLMAX,12,18),"%3d)");
  58                                         else botsub(makecode(SPELLMAX,12,18),"%2d) ");
  59         botsub(makecode(HP,5,19),"%3d");
  60         botsub(makecode(HPMAX,9,19),"%3d");
  61         botsub(makecode(AC,21,18),"%-3d");
  62         botsub(makecode(WCLASS,30,18),"%-3d");
  63         botsub(makecode(EXPERIENCE,49,18),"%-9d");
  64         if (c[LEVEL] != cbak[LEVEL])
  65                 { cursor(59,18);        lprcat(class[c[LEVEL]-1]);  }
  66         if (c[LEVEL]>99) botsub(makecode(LEVEL,40,18),"%3d");
  67                                 else botsub(makecode(LEVEL,40,18)," %-2d");
  68         c[TMP] = c[STRENGTH]+c[STREXTRA];       botsub(makecode(TMP,18,19),"%-2d");
  69         botsub(makecode(INTELLIGENCE,25,19),"%-2d");
  70         botsub(makecode(WISDOM,32,19),"%-2d");
  71         botsub(makecode(CONSTITUTION,39,19),"%-2d");
  72         botsub(makecode(DEXTERITY,46,19),"%-2d");
  73         botsub(makecode(CHARISMA,53,19),"%-2d");
  74         if ((level != cbak[CAVELEVEL]) || (c[TELEFLAG] != cbak[TELEFLAG]))
  75                 {
  76                 if ((level==0) || (wizard))  c[TELEFLAG]=0;
  77                 cbak[TELEFLAG] = c[TELEFLAG];
  78                 cbak[CAVELEVEL] = level;        cursor(59,19);
  79                 if (c[TELEFLAG])  lprcat(" ?");  else  lprcat(levelname[level]);
  80                 }
  81         botsub(makecode(GOLD,69,19),"%-6d");
  82         botside();
  83         }
  84
  85 /*
  86         special subroutine to update only the gold number on the bottomlines
  87         called from ogold()
  88  */
  89 bottomgold()
  90         {
  91         botsub(makecode(GOLD,69,19),"%-6d");
  92 /*      botsub(GOLD,"%-6d",69,19); */
  93         }
  94
  95 /*
  96         special routine to update hp and level fields on bottom lines
  97         called in monster.c hitplayer() and spattack()
  98  */
  99 bot_hpx()
 100         {
 101         if (c[EXPERIENCE] != cbak[EXPERIENCE])
 102                 {
 103                 recalc();        bot_linex();
 104                 }
 105         else botsub(makecode(HP,5,19),"%3d");
 106         }
 107
 108 /*
 109         special routine to update number of spells called from regen()
 110  */
 111 bot_spellx()
 112         {
 113         botsub(makecode(SPELLS,9,18),"%2d");
 114         }
 115
 116 /*
 117         common subroutine for a more economical bottomline()
 118  */
 119 static struct bot_side_def
 120         {
 121         int typ;
 122         char *string;
 123         }
 124         bot_data[] =
 125         {
 126         STEALTH,"stealth",              UNDEADPRO,"undead pro",         SPIRITPRO,"spirit pro",
 127         CHARMCOUNT,"Charm",             TIMESTOP,"Time Stop",           HOLDMONST,"Hold Monst",
 128         GIANTSTR,"Giant Str",   FIRERESISTANCE,"Fire Resit", DEXCOUNT,"Dexterity",
 129         STRCOUNT,"Strength",    SCAREMONST,"Scare",                     HASTESELF,"Haste Self",
 130         CANCELLATION,"Cancel",  INVISIBILITY,"Invisible",       ALTPRO,"Protect 3",
 131         PROTECTIONTIME,"Protect 2", WTW,"Wall-Walk"
 132         };
 133
 134 botside()
 135         {
 136         int i,idx;
 137         for (i=0; i<17; i++)
 138                 {
 139                 idx = bot_data[i].typ;
 140                 if ((always) || (c[idx] != cbak[idx]))
 141                    {
 142                    if ((always) || (cbak[idx] == 0))
 143                                 { if (c[idx]) { cursor(70,i+1); lprcat(bot_data[i].string); } }  else
 144                    if (c[idx]==0)     { cursor(70,i+1); lprcat("          "); }
 145                    cbak[idx]=c[idx];
 146                    }
 147                 }
 148         always=0;
 149         }
 150
 151 static void
 152 botsub(idx,str)
 153         int idx;
 154         char *str;
 155         {
 156         int x,y;
 157         y = idx & 0xff;         x = (idx>>8) & 0xff;      idx >>= 16;
 158         if (c[idx] != cbak[idx])
 159                 { cbak[idx]=c[idx];  cursor(x,y);  lprintf(str,(long)c[idx]); }
 160         }
 161
 162 /*
 163  *      subroutine to draw only a section of the screen
 164  *      only the top section of the screen is updated.  If entire lines are being
 165  *      drawn, then they will be cleared first.
 166  */
 167 int d_xmin=0,d_xmax=MAXX,d_ymin=0,d_ymax=MAXY;  /* for limited screen drawing */
 168 draws(xmin,xmax,ymin,ymax)
 169         int xmin,xmax,ymin,ymax;
 170         {
 171         int i,idx;
 172         if (xmin==0 && xmax==MAXX) /* clear section of screen as needed */
 173                 {
 174                 if (ymin==0) cl_up(79,ymax);
 175                 else for (i=ymin; i<ymin; i++)  cl_line(1,i+1);
 176                 xmin = -1;
 177                 }
 178         d_xmin=xmin;    d_xmax=xmax;    d_ymin=ymin;    d_ymax=ymax;    /* for limited screen drawing */
 179         drawscreen();
 180         if (xmin<=0 && xmax==MAXX) /* draw stuff on right side of screen as needed*/
 181                 {
 182                 for (i=ymin; i<ymax; i++)
 183                         {
 184                         idx = bot_data[i].typ;
 185                         if (c[idx])
 186                                 {
 187                                 cursor(70,i+1); lprcat(bot_data[i].string);
 188                                 }
 189                         cbak[idx]=c[idx];
 190                         }
 191                 }
 192         }
 193
 194 /*
 195         drawscreen()
 196
 197         subroutine to redraw the whole screen as the player knows it
 198  */
 199 char screen[MAXX][MAXY],d_flag; /* template for the screen */
 200 drawscreen()
 201         {
 202         int i,j,k;
 203         int lastx,lasty;  /* variables used to optimize the object printing */
 204         if (d_xmin==0 && d_xmax==MAXX && d_ymin==0 && d_ymax==MAXY)
 205                 {
 206                 d_flag=1;  clear(); /* clear the screen */
 207                 }
 208         else
 209                 {
 210                 d_flag=0;  cursor(1,1);
 211                 }
 212         if (d_xmin<0)
 213                 d_xmin=0; /* d_xmin=-1 means display all without bottomline */
 214
 215         for (i=d_ymin; i<d_ymax; i++)
 216           for (j=d_xmin; j<d_xmax; j++)
 217                 if (know[j][i]==0)  screen[j][i] = ' ';  else
 218                 if (k=mitem[j][i])  screen[j][i] = monstnamelist[k];  else
 219                 if ((k=item[j][i])==OWALL) screen[j][i] = '#';
 220                 else screen[j][i] = ' ';
 221
 222         for (i=d_ymin; i<d_ymax; i++)
 223                 {
 224                 j=d_xmin;  while ((screen[j][i]==' ') && (j<d_xmax)) j++;
 225                 /* was m=0 */
 226                 if (j >= d_xmax)  m=d_xmin; /* don't search backwards if blank line */
 227                 else
 228                         {       /* search backwards for end of line */
 229                         m=d_xmax-1;  while ((screen[m][i]==' ') && (m>d_xmin)) --m;
 230                         if (j<=m)  cursor(j+1,i+1);  else continue;
 231                         }
 232                 while (j <= m)
 233                         {
 234                         if (j <= m-3)
 235                                 {
 236                                 for (k=j; k<=j+3; k++) if (screen[k][i] != ' ') k=1000;
 237                                 if (k < 1000)
 238                                         { while(screen[j][i]==' ' && j<=m) j++;  cursor(j+1,i+1); }
 239                                 }
 240                         lprc(screen[j++][i]);
 241                         }
 242                 }
 243         setbold();              /* print out only bold objects now */
 244
 245         for (lastx=lasty=127, i=d_ymin; i<d_ymax; i++)
 246                 for (j=d_xmin; j<d_xmax; j++)
 247                         {
 248                         if (k=item[j][i])
 249                                 if (k != OWALL)
 250                                         if ((know[j][i]) && (mitem[j][i]==0))
 251                                                 if (objnamelist[k]!=' ')
 252                                                         {
 253                                                         if (lasty!=i+1 || lastx!=j)
 254                                                                 cursor(lastx=j+1,lasty=i+1); else lastx++;
 255                                                         lprc(objnamelist[k]);
 256                                                         }
 257                         }
 258
 259         resetbold();  if (d_flag)  { always=1; botside(); always=1; bot_linex(); }
 260         oldx=99;
 261         d_xmin = 0 , d_xmax = MAXX , d_ymin = 0 , d_ymax = MAXY; /* for limited screen drawing */
 262         }
 263 \f
 264 /*
 265         showcell(x,y)
 266
 267         subroutine to display a cell location on the screen
 268  */
 269 showcell(x,y)
 270         int x,y;
 271         {
 272         int i,j,k,m;
 273         if (c[BLINDCOUNT])  return;     /* see nothing if blind         */
 274         if (c[AWARENESS]) { minx = x-3; maxx = x+3;     miny = y-3;     maxy = y+3; }
 275                         else      { minx = x-1; maxx = x+1;     miny = y-1;     maxy = y+1; }
 276
 277         if (minx < 0) minx=0;           if (maxx > MAXX-1) maxx = MAXX-1;
 278         if (miny < 0) miny=0;           if (maxy > MAXY-1) maxy = MAXY-1;
 279
 280         for (j=miny; j<=maxy; j++)
 281           for (m=minx; m<=maxx; m++)
 282                 if (know[m][j]==0)
 283                         {
 284                         cursor(m+1,j+1);
 285                         x=maxx;  while (know[x][j]) --x;
 286                         for (i=m; i<=x; i++)
 287                                 {
 288                                 if ((k=mitem[i][j]) != 0)  lprc(monstnamelist[k]);
 289                                 else switch(k=item[i][j])
 290                                         {
 291                                         case OWALL:  case 0: case OIVTELETRAP:  case OTRAPARROWIV:
 292                                         case OIVDARTRAP: case OIVTRAPDOOR:
 293                                                 lprc(objnamelist[k]);   break;
 294
 295                                         default: setbold(); lprc(objnamelist[k]); resetbold();
 296                                         };
 297                                 know[i][j]=1;
 298                                 }
 299                         m = maxx;
 300                         }
 301         }
 302
 303 /*
 304         this routine shows only the spot that is given it.  the spaces around
 305         these coordinated are not shown
 306         used in godirect() in monster.c for missile weapons display
 307  */
 308 show1cell(x,y)
 309         int x,y;
 310         {
 311         if (c[BLINDCOUNT])  return;     /* see nothing if blind         */
 312         cursor(x+1,y+1);
 313         if ((k=mitem[x][y]) != 0)  lprc(monstnamelist[k]);
 314                 else switch(k=item[x][y])
 315                         {
 316                         case OWALL:  case 0:  case OIVTELETRAP:  case OTRAPARROWIV:
 317                         case OIVDARTRAP: case OIVTRAPDOOR:
 318                                 lprc(objnamelist[k]);   break;
 319
 320                         default: setbold(); lprc(objnamelist[k]); resetbold();
 321                         };
 322         know[x][y]|=1;  /* we end up knowing about it */
 323         }
 324
 325 /*
 326         showplayer()
 327
 328         subroutine to show where the player is on the screen
 329         cursor values start from 1 up
 330  */
 331 showplayer()
 332         {
 333         cursor(playerx+1,playery+1);
 334         oldx=playerx;  oldy=playery;
 335         }
 336
 337 /*
 338         moveplayer(dir)
 339
 340         subroutine to move the player from one room to another
 341         returns 0 if can't move in that direction or hit a monster or on an object
 342         else returns 1
 343         nomove is set to 1 to stop the next move (inadvertent monsters hitting
 344         players when walking into walls) if player walks off screen or into wall
 345  */
 346 short diroffx[] = { 0,  0, 1,  0, -1,  1, -1, 1, -1 };
 347 short diroffy[] = { 0,  1, 0, -1,  0, -1, -1, 1,  1 };
 348 moveplayer(dir)
 349         int dir;                        /*      from = present room #  direction = [1-north]
 350                                                         [2-east] [3-south] [4-west] [5-northeast]
 351                                                         [6-northwest] [7-southeast] [8-southwest]
 352                                                 if direction=0, don't move--just show where he is */
 353         {
 354         int k,m,i,j;
 355         if (c[CONFUSE]) if (c[LEVEL]<rnd(30)) dir=rund(9); /*if confused any dir*/
 356         k = playerx + diroffx[dir];             m = playery + diroffy[dir];
 357         if (k<0 || k>=MAXX || m<0 || m>=MAXY) { nomove=1; return(yrepcount = 0); }
 358         i = item[k][m];                 j = mitem[k][m];
 359         if (i==OWALL && c[WTW]==0) { nomove=1;  return(yrepcount = 0); }                /*      hit a wall      */
 360         if (k==33 && m==MAXY-1 && level==1)
 361                 {
 362                 newcavelevel(0); for (k=0; k<MAXX; k++) for (m=0; m<MAXY; m++)
 363                 if (item[k][m]==OENTRANCE)
 364                   { playerx=k; playery=m; positionplayer();  drawscreen(); return(0); }
 365                 }
 366         if (j>0)     { hitmonster(k,m); return(yrepcount = 0); } /* hit a monster*/
 367         lastpx = playerx;                       lastpy = playery;
 368         playerx = k;            playery = m;
 369         if (i && i!=OTRAPARROWIV && i!=OIVTELETRAP && i!=OIVDARTRAP && i!=OIVTRAPDOOR) return(yrepcount = 0);  else return(1);
 370         }
 371 \f
 372 /*
 373  *      function to show what magic items have been discovered thus far
 374  *      enter with -1 for just spells, anything else will give scrolls & potions
 375  */
 376 static int lincount,count;
 377 seemagic(arg)
 378         int arg;
 379         {
 380         int i,number;
 381         count = lincount = 0;  nosignal=1;
 382
 383         if (arg== -1) /* if display spells while casting one */
 384                 {
 385                 for (number=i=0; i<SPNUM; i++) if (spelknow[i]) number++;
 386                 number = (number+2)/3 + 4;      /* # lines needed to display */
 387                 cl_up(79,number);  cursor(1,1);
 388                 }
 389         else
 390                 {
 391                 resetscroll();  clear();
 392                 }
 393
 394         lprcat("The magic spells you have discovered thus far:\n\n");
 395         for (i=0; i<SPNUM; i++)
 396                 if (spelknow[i])
 397                         { lprintf("%s %-20s ",spelcode[i],spelname[i]);  seepage(); }
 398
 399         if (arg== -1)
 400                 {
 401                 seepage();  more();      nosignal=0;
 402                 draws(0,MAXX,0,number);  return;
 403                 }
 404
 405         lincount += 3;  if (count!=0) { count=2;  seepage(); }
 406
 407         lprcat("\nThe magic scrolls you have found to date are:\n\n");
 408         count=0;
 409         for (i=0; i<MAXSCROLL; i++)
 410                 if (scrollname[i][0])
 411                   if (scrollname[i][1]!=' ')
 412                         { lprintf("%-26s",&scrollname[i][1]);  seepage(); }
 413
 414         lincount += 3;  if (count!=0) { count=2;  seepage(); }
 415
 416         lprcat("\nThe magic potions you have found to date are:\n\n");
 417         count=0;
 418         for (i=0; i<MAXPOTION; i++)
 419                 if (potionname[i][0])
 420                   if (potionname[i][1]!=' ')
 421                         { lprintf("%-26s",&potionname[i][1]);  seepage(); }
 422
 423         if (lincount!=0) more();        nosignal=0;  setscroll();       drawscreen();
 424         }
 425
 426 /*
 427  *      subroutine to paginate the seemagic function
 428  */
 429 seepage()
 430         {
 431         if (++count==3)
 432                 {
 433                 lincount++;     count=0;        lprc('\n');
 434                 if (lincount>17) {      lincount=0;  more();  clear();  }
 435                 }
 436         }