home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nethack-3.1 / src / rip.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-05-26  |  3.2 KB  |  131 lines
  1. /*    SCCS Id: @(#)rip.c    3.1    91/08/05
  2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  3. /* NetHack may be freely redistributed.  See license for details. */
  4.  
  5. #include "hack.h"
  6.  
  7. static void FDECL(center, (int, char *));
  8.  
  9. extern const char *killed_by_prefix[];
  10.  
  11. static const char *rip_txt[] = {
  12. "                       ----------",
  13. "                      /          \\",
  14. "                     /    REST    \\",
  15. "                    /      IN      \\",
  16. "                   /     PEACE      \\",
  17. "                  /                  \\",
  18. "                  |                  |", /* Name of player */
  19. "                  |                  |", /* Amount of $ */
  20. "                  |                  |", /* Type of death */
  21. "                  |                  |", /* . */
  22. "                  |                  |", /* . */
  23. "                  |                  |", /* . */
  24. "                  |       1001       |", /* Real year of death */
  25. "                 *|     *  *  *      | *",
  26. "        _________)/\\\\_//(\\/(/\\)/\\//\\/|_)_______",
  27. 0
  28. };
  29.  
  30. #define STONE_LINE_CENT 28    /* char[] element of center of stone face */
  31. #define STONE_LINE_LEN 16    /* # chars that fit on one line
  32.                  * (note 1 ' ' border)
  33.                  */
  34. #define NAME_LINE 6        /* *char[] line # for player name */
  35. #define GOLD_LINE 7        /* *char[] line # for amount of gold */
  36. #define DEATH_LINE 8        /* *char[] line # for death description */
  37. #define YEAR_LINE 12        /* *char[] line # for year */
  38.  
  39. char **rip;
  40.  
  41. static void
  42. center(line, text)
  43. int line;
  44. char *text;
  45. {
  46.     register char *ip,*op;
  47.     ip = text;
  48.     op = &rip[line][STONE_LINE_CENT - ((strlen(text)+1)>>1)];
  49.     while(*ip) *op++ = *ip++;
  50. }
  51.  
  52. void
  53. outrip(how, tmpwin)
  54. int how;
  55. winid tmpwin;
  56. {
  57.     register char **dp;
  58.     register char *dpx;
  59.     char buf[BUFSZ];
  60.     register int x;
  61.     int line;
  62.  
  63.     rip = dp = (char **) alloc(sizeof(rip_txt));
  64.     if (!dp) return;
  65.     for (x = 0; rip_txt[x]; x++) {
  66.         dp[x] = (char *) alloc((unsigned int)(strlen(rip_txt[x]) + 1));
  67.         if (!dp[x]) return;
  68.         Strcpy(dp[x], rip_txt[x]);
  69.     }
  70.     dp[x] = (char *)0;
  71.  
  72.     /* Put name on stone */
  73.     Sprintf(buf, "%s", plname);
  74.     buf[STONE_LINE_LEN] = 0;
  75.     center(NAME_LINE, buf);
  76.  
  77.     /* Put $ on stone */
  78.     Sprintf(buf, "%ld Au", u.ugold);
  79.     buf[STONE_LINE_LEN] = 0; /* It could be a *lot* of gold :-) */
  80.     center(GOLD_LINE, buf);
  81.  
  82.     /* Put together death description */
  83.     switch (killer_format) {
  84.         default: impossible("bad killer format?");
  85.         case KILLED_BY_AN:
  86.             Strcpy(buf, killed_by_prefix[how]);
  87.             Strcat(buf, an(killer));
  88.             break;
  89.         case KILLED_BY:
  90.             Strcpy(buf, killed_by_prefix[how]);
  91.             Strcat(buf, killer);
  92.             break;
  93.         case NO_KILLER_PREFIX:
  94.             Strcpy(buf, killer);
  95.             break;
  96.     }
  97.  
  98.     /* Put death type on stone */
  99.     for (line=DEATH_LINE, dpx = buf; line<YEAR_LINE; line++) {
  100.         register int i,i0;
  101.         char tmpchar;
  102.  
  103.         if ( (i0=strlen(dpx)) > STONE_LINE_LEN) {
  104.                 for(i = STONE_LINE_LEN;
  105.                     ((i0 > STONE_LINE_LEN) && i); i--)
  106.                     if(dpx[i] == ' ') i0 = i;
  107.                 if(!i) i0 = STONE_LINE_LEN;
  108.         }
  109.         tmpchar = dpx[i0];
  110.         dpx[i0] = 0;
  111.         center(line, dpx);
  112.         if (tmpchar != ' ') {
  113.             dpx[i0] = tmpchar;
  114.             dpx= &dpx[i0];
  115.         } else  dpx= &dpx[i0+1];
  116.     }
  117.  
  118.     /* Put year on stone */
  119.     Sprintf(buf, "%4d", getyear());
  120.     center(YEAR_LINE, buf);
  121.  
  122.     putstr(tmpwin, 0, "");
  123.     for(; *dp; dp++)
  124.         putstr(tmpwin, 0, *dp);
  125.  
  126.     putstr(tmpwin, 0, "");
  127.     putstr(tmpwin, 0, "");
  128. }
  129.  
  130. /*rip.c*/
  131.