home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug048.ark / PPONG.C < prev    next >
Encoding:
C/C++ Source or Header  |  1984-04-29  |  7.0 KB  |  263 lines
  1. /*
  2.    Polish Pong game for H19/H89, RHH (Robert H. Halstead) August 1980: 
  3.  
  4.    Object is to guide the little ball around the screen by setting up
  5.    and removing blockade sections. All control is via the keypad; "4"
  6.    and "6" cause blockades to be formed at the current position of the
  7.    roving ball, while pressing "5" at the exact moment the ball hits a
  8.    blockade should make that blockade disappear. Oh yes, and the POINT
  9.    of all this is to make the ball hit the little square target--once
  10.    this is done, the square will disappear and reappear somewhere else,
  11.    to be hit again. Go for hitting the target the specified number of
  12.    times AS QUICKLY AS POSSIBLE. Your score is how many seconds you
  13.    took; the lower the better.
  14.    Keys "8" and "2" speed up and slow down the ball; as you get better,
  15.    try it at a faster speed!
  16. */  
  17.  
  18. #include "bdscio.h"
  19.  
  20. #define    MAXX    78        /* horizontal size of board */
  21. #define    MAXY    23        /* vertical size */
  22. #define    MAXTARG    20        /* # of targets per game */
  23. #define    ISPEED    400        /* initial ball speed */
  24. #define    SPEEDINC 100        /* increments/decrements in ball speed */
  25.  
  26. #define    TIMX    50        /* locations of status strings */
  27. #define    TIMY    23
  28. #define    TARGX    30
  29. #define    TARGY    23
  30. #define    SPEEDX    10
  31. #define    SPEEDY    23
  32. #define    BESTX    70
  33. #define    BESTY    23
  34.  
  35. #define    CONINF    1        /* console input FDOS function */
  36.  
  37. #define    MSPS    960        /* "millisecs" per second */
  38.  
  39. #define    QUITCH    3        /* ^C quits the program */
  40. #define    DELETE    0177        /* DELETE restarts the game */
  41.  
  42. #define    XOFF    ('S'&037)    /* flow control chars */
  43. #define    XON    ('Q'&037)
  44.  
  45. #define    EGRAPH    "\033F"        /* H19 escape sequences */
  46. #define    XGRAPH    "\033G"
  47. #define    REGKPM    "\033u\033>"
  48.  
  49. #define VBAR    '`'        /* H19 alternate graphic chars */
  50. #define    HBAR    'a'
  51. #define    SLASH    'x'
  52. #define    BSLASH    'y'
  53. #define    BALL    '^'
  54. #define    TARGET    'i'
  55.  
  56. char board[MAXX][MAXY];        /* board with current layout */
  57.  
  58. int ballx,bally,ballxv,ballyv;    /* state of ball */
  59. int Speed,Dist;            /* speed of ball */
  60. int TargLeft;            /* number of targets left */
  61. int MSecs,Secs;            /* bookkeeping for time elapsed */
  62. int NewTime;            /* nonzero if time has changed */
  63. int Best;            /* best score so far */
  64. int InChar;            /* character read from input */
  65.  
  66. putchx(c)
  67.  int c;
  68.   {    if (++MSecs >= MSPS)
  69.       { MSecs = 0; Secs++; 
  70.         NewTime = 1;
  71.       }
  72.     Dist += Speed;
  73.     if (bios(2))
  74.       { InChar = bios(3) & 0177;
  75.         if (InChar == QUITCH)
  76.           {    InChar = -1;
  77.         outs(0,MAXY-1,XGRAPH);
  78.         prints(CURSORON);
  79.         exit(0);
  80.           }
  81.         if (InChar == XOFF)
  82.           {    while (InChar != XON)
  83.           { while (!bios(2));
  84.             InChar = bios(3) & 0177;
  85.           }
  86.         InChar = -1;
  87.           }
  88.       }
  89.     bios(4,c);
  90.     if (c == '\n') putchx('\r');
  91.   }
  92.  
  93. /*
  94. int getch()            /* get a char from console, no echo */
  95.   {    int c;
  96.     c = inp(CDATA);
  97.     return(c);
  98.   }
  99. */
  100.  
  101. prints(s)            /* put out a string */
  102.  char *s;
  103.   {    int c;
  104.     while (c = *s++) putchx(c);
  105.   }
  106.  
  107. puts(s)                /* same as prints, but "srand1" needs it */
  108.  char *s;
  109.   {
  110.     prints(s);
  111.   }
  112.  
  113. ouch(ch,x,y)            /* put character at position */
  114.  int ch,x,y;
  115.   {
  116.     putchx(ESC); putchx('Y'); putchx(y+32); putchx(x+32); putchx(ch);
  117.   }
  118.  
  119. outs(x,y,s)            /* put string at position (x,y) */
  120.  int x,y;
  121.  char *s;
  122.   {
  123.     putchx(ESC); putchx('Y'); putchx(y+32); putchx(x+32);
  124.     prints(s);
  125.   }
  126.  
  127. puttarg()
  128.   {    char buff[100];
  129.     sprintf(buff,"\033p%2d\033q",TargLeft);
  130.     outs(TARGX,TARGY,buff);
  131.   }
  132.  
  133. puttime()
  134.   {    char buff[100];
  135.     sprintf(buff,"\033p%3d\033q",Secs);
  136.     outs(TIMX,TIMY,buff);
  137.   }
  138.  
  139. putspeed()
  140.   {    char buff[100];
  141.     sprintf(buff,"\033p%3d\033q",Speed/10);
  142.     outs(SPEEDX,SPEEDY,buff);
  143.   }
  144.     
  145. int moveball()
  146.   {    int i,nx,ny;
  147.     Dist = 0;
  148.     i = InChar;
  149.     if (i > 0)
  150.       { InChar = -1;
  151.         switch (i)
  152.           {    case '4':            /* lay down backslash */
  153.             if (board[ballx][bally] == ' ')
  154.               board[ballx][bally] = BSLASH;
  155.              else putchx(7);
  156.             break;
  157.  
  158.         case '6':            /* lay down slash */
  159.             if (board[ballx][bally] == ' ')
  160.               board[ballx][bally] = SLASH;
  161.              else putchx(7);
  162.             break;
  163.  
  164.         case '5':            /* delete current char */
  165.             i = board[ballx][bally];
  166.             if (i == SLASH || i == BSLASH) board[ballx][bally] = ' ';
  167.              else putchx(7);
  168.             break;
  169.  
  170.         case '8':            /* go faster */
  171.             if (Speed < 1000) { Speed += SPEEDINC; putspeed(); }
  172.             break;
  173.  
  174.         case '2':            /* go slower */
  175.             if (Speed > SPEEDINC+50) { Speed -= SPEEDINC; putspeed(); }
  176.             break;
  177.  
  178.         case DELETE:            /* start a new game */
  179.             return(0);
  180.  
  181.         default:
  182.             putchx(7); break;
  183.           }
  184.       }
  185.     switch (board[ballx][bally])
  186.       { case ' ':    break;
  187.         case VBAR:    ballxv = -ballxv; break;
  188.         case HBAR:    ballyv = -ballyv; break;
  189.         case BSLASH: i = ballxv; ballxv = ballyv; ballyv = i; break;
  190.         case SLASH:    i = ballxv; ballxv = -ballyv; ballyv = -i; break;
  191.         case TARGET:
  192.         if (--TargLeft <= 0) return(0);
  193.         puttarg();
  194.         board[ballx][bally] = ' ';
  195.         do {    nx = rand()%(MAXX-2) + 1;
  196.             ny = rand()%(MAXY-2) + 1;
  197.            } while (board[nx][ny] != ' ');
  198.         board[nx][ny] = TARGET;
  199.         ouch(TARGET,nx,ny);
  200.         break;
  201.       }
  202.     nx = ballx + ballxv;
  203.     ny = bally + ballyv;
  204.     ouch(BALL,nx,ny);
  205.     ouch(board[ballx][bally],ballx,bally);
  206.     if (NewTime) { puttime(); NewTime = 0; }
  207.     ballx = nx; bally = ny;
  208.     while (Dist < (ballyv?22000:10000)) putchx(1);
  209.                     /* further delay to slow ball down */
  210.     return(1);
  211.   }
  212.  
  213. main()
  214.   {    puts("Welcome to Polish Pong!\n"); sleep(10);
  215.     Best = 32767;
  216.     Speed = ISPEED;        /* governs how fast ball moves */
  217.     while (playgame());
  218.   }
  219.  
  220. int playgame()
  221.   {    int i,j;
  222.     char buff[100];        /* temp */
  223.     InChar = -1;            /* initially, no char typed in */
  224.     srand1("\033H\033GType any key to start game:  \033K");
  225.     if (bdos(1) == QUITCH)         /* clear the input character */
  226.         exit();            /* and quit on control-C    */
  227.     InChar = -1;        /* clear space out of input buffer */
  228.     ballx = rand()%(MAXX-2) + 1;
  229.     bally = rand()%(MAXY-2) + 1;
  230.     ballxv = ballyv = 0;
  231.     i = (rand()&2) - 1;
  232.     if (rand()&1) ballxv = i; else ballyv = i;
  233.     for (i = 0; i < MAXX; i++) for (j = 0; j < MAXY; j++) board[i][j] = ' ';
  234.     for (i = 0; i < MAXX; i++) board[i][0] = board[i][MAXY-1] = HBAR;
  235.     for (i = 0; i < MAXY; i++) board[0][i] = board[MAXX-1][i] = VBAR;
  236.     board[0][0] = 'f';        /* special corner pieces */
  237.     board[0][MAXY-1] = 'e';
  238.     board[MAXX-1][0] = 'c';
  239.     board[MAXX-1][MAXY-1] = 'd';
  240.     board[rand()%(MAXX-2)+1][rand()%(MAXY-2)+1] = TARGET;
  241.                     /* place initial target */
  242.     TargLeft = MAXTARG;    /* start with full complement of targets */
  243.     prints(REGKPM); prints(CLEARS); prints(EGRAPH); prints(CURSOROFF);
  244.     for (j = 0; j < MAXY; j++)
  245.       { for (i = 0; i < MAXX; i++) putchx(board[i][j]);
  246.         putchx('\n');
  247.       }
  248.     outs(TIMX-11,TIMY,"\033G\033pTime Used: ");
  249.     outs(TARGX-14,TARGY,"Targets Left: ");
  250.     if (Best < 32767)
  251.       { sprintf(buff,"Best Time: %3d",Best);
  252.         outs(BESTX-11,BESTY,buff);
  253.       }
  254.     outs(SPEEDX-7,SPEEDY,"Speed: \033F\033q");
  255.     putspeed();
  256.     puttarg();
  257.     MSecs = Secs = 0; puttime();
  258.     ouch(BALL,ballx,bally);
  259.     while (moveball());
  260.     if (TargLeft == 0 && Secs < Best) Best = Secs;
  261.     return(1);
  262.   }
  263.