examples/game.c

   1 /*
   2    File:   game.c
   3    Author: Rene' Jager
   4    Update: June 17, 1993
   5    Info:   game example for RICE
   6 */
   7
   8
   9 /* header files */
  10
  11 #include <stdlib.h>
  12 #include <stdio.h>
  13 #include <stdarg.h>
  14 #include <time.h>
  15
  16 #include <rice.h>
  17
  18
  19 /* global variables */
  20
  21 int stopGame = 0, autoGame = 0;
  22 int myMark, yourMark, emptyMark = ' ';
  23 int xTable[] = {0, 36, 40, 44}, yTable[] = {0, 10, 12, 14};
  24 int fieldTable[3][3] = {{' ', ' ', ' '}, {' ', ' ', ' '}, {' ', ' ', ' '}};
  25 int nrOfMoves = 0;
  26
  27
  28 /* compiler dependent functions, for different compilers: adjust code */
  29
  30 #if defined(_MSC_VER) || defined(_QC)
  31 #   define __MICROSOFTC__
  32 #endif
  33
  34
  35 #if defined(__MICROSOFTC__)
  36
  37 /* this part is coded for use with Microsoft C(++) 7.00 compiler */
  38
  39 #include <graph.h>
  40
  41
  42 /* hiding and showing cursor */
  43
  44 #define hideCursor()   _displaycursor(_GCURSOROFF)
  45 #define showCursor()   _displaycursor(_GCURSORON)
  46
  47
  48 /* goto position on screen */
  49
  50 #define gotoPos(x, y) _settextposition(y, x)
  51
  52
  53 /* goto position and put character */
  54
  55 #define putChar(x, y, c) gotoPos(x, y); _putch(c)
  56
  57
  58 /* write mark to screen */
  59
  60 void putMark(int x, int y, int c)
  61 {
  62    putChar(xTable[x], yTable[y], c);
  63    fieldTable[x - 1][y - 1] = c;
  64 }
  65
  66
  67 /* clear screen */
  68
  69 #define clearScreen() _clearscreen(_GCLEARSCREEN)
  70
  71
  72 #elif defined(__BORLANDC__)
  73
  74
  75 /* this part is coded for use with Borland C(++) 3.1 compiler */
  76
  77 #include <conio.h>
  78
  79
  80 /* hiding and showing cursor */
  81
  82 #define hideCursor()   _setcursortype(_NOCURSOR)
  83 #define showCursor()   _setcursortype(_NORMALCURSOR)
  84
  85
  86 /* goto position on screen */
  87
  88 #define gotoPos(x, y) gotoxy(x, y)
  89
  90
  91 /* goto position and put character */
  92
  93 #define putChar(x, y, c) gotoPos(x, y); putchar(c)
  94
  95
  96 /* write mark to screen */
  97
  98 void putMark(int x, int y, int c)
  99 {
 100    unsigned char buf[2];
 101    gettext(xTable[x], yTable[y], xTable[x], yTable[y], buf);
 102    fieldTable[x - 1][y - 1] = buf[0] = c;
 103    puttext(xTable[x], yTable[y], xTable[x], yTable[y], buf);
 104 }
 105
 106
 107 /* clear screen */
 108
 109 #define clearScreen() clrscr()
 110
 111
 112 /* increase stack length */
 113
 114 extern unsigned _stklen = 10000U;
 115
 116 #elif defined(__GNUC__) & defined(__MSDOS__)
 117
 118
 119 /* this part is coded for use with Gnu C++ (DJGPP 2.4.1) compiler */
 120
 121 #include <conio.h>   /* dummy header file including gppconio.h */
 122
 123
 124 /* hiding and showing cursor */
 125
 126 #define hideCursor()   _setcursortype(_NOCURSOR)
 127 #define showCursor()   _setcursortype(_NORMALCURSOR)
 128
 129
 130 /* goto position on screen */
 131
 132 #define gotoPos(x, y) gotoxy(x, y)
 133
 134
 135 /* goto position and put character */
 136
 137 #define putChar(x, y, c) gotoPos(x, y); putch(c)
 138
 139
 140 /* write mark to screen */
 141
 142 void putMark(int x, int y, int c)
 143 {
 144    unsigned char buf[2];
 145    gettext(xTable[x], yTable[y], xTable[x], yTable[y], buf);
 146    fieldTable[x - 1][y - 1] = buf[0] = c;
 147    puttext(xTable[x], yTable[y], xTable[x], yTable[y], buf);
 148 }
 149
 150
 151 /* clear screen */
 152
 153 #define clearScreen() clrscr()
 154
 155
 156 #else
 157 #   error Compiler should be Microsoft C/C++ 7.0 or Borland C++ 3.1
 158 #endif
 159
 160
 161 /* prototypes */
 162
 163 void printMsg(char *, ...);
 164
 165
 166 /* get mark from field */
 167
 168 int getMark(int x, int y)
 169 {
 170    return fieldTable[x - 1][y - 1];
 171 }
 172
 173
 174 /* sawp marks */
 175
 176 void SwapMark(int *m1, int *m2)
 177 {
 178    int m;
 179
 180    m = *m1;
 181    *m1 = *m2;
 182    *m2 = m;
 183 }
 184
 185
 186 /* do error */
 187
 188 void doError(char *msg)
 189 {
 190    gotoPos(1, 15);
 191    printMsg(0);
 192    gotoPos(1, 15);
 193    printMsg("\x7Error: %s\n", msg);
 194 }
 195
 196 void redirError(int kb, int type, char *msg)
 197 {
 198    doError(msg);
 199 }
 200
 201
 202 /* show message from kb */
 203
 204 void showInfo(char *msg)
 205 {
 206    if(autoGame)   /* just play, don't talk */
 207       return;
 208
 209    gotoPos(1, 15);
 210    printMsg(0);
 211    gotoPos(1, 15);
 212    printMsg(msg);
 213 }
 214
 215 void redirInfo(int kb, int argc, char *argv[], float *grade)
 216 {
 217    showInfo(argv[0]);
 218 }
 219
 220
 221 /* show field on screen */
 222
 223 void makeField(void)
 224 {
 225    int x, y;
 226
 227    x = xTable[2];
 228    y = yTable[2];
 229
 230    putChar(x - 7, y - 2, 'a');
 231    putChar(x - 7, y,     'b');
 232    putChar(x - 7, y + 2, 'c');
 233
 234    putChar(x - 4, y - 3, '1');
 235    putChar(x,     y - 3, '2');
 236    putChar(x + 4, y - 3, '3');
 237
 238    putChar(x - 2, y - 2, 179);
 239    putChar(x - 2, y - 1, 179);
 240    putChar(x - 2, y,     179);
 241    putChar(x - 2, y + 1, 179);
 242    putChar(x - 2, y + 2, 179);
 243    putChar(x + 2, y - 2, 179);
 244    putChar(x + 2, y - 1, 179);
 245    putChar(x + 2, y    , 179);
 246    putChar(x + 2, y + 1, 179);
 247    putChar(x + 2, y + 2, 179);
 248
 249    putChar(x - 5, y - 1, 196);
 250    putChar(x - 4, y - 1, 196);
 251    putChar(x - 3, y - 1, 196);
 252    putChar(x - 3, y + 1, 196);
 253    putChar(x - 4, y + 1, 196);
 254    putChar(x - 5, y + 1, 196);
 255    putChar(x - 1, y - 1, 196);
 256    putChar(x,     y - 1, 196);
 257    putChar(x + 1, y + 1, 196);
 258    putChar(x - 1, y + 1, 196);
 259    putChar(x,     y + 1, 196);
 260    putChar(x + 1, y - 1, 196);
 261    putChar(x + 5, y - 1, 196);
 262    putChar(x + 4, y - 1, 196);
 263    putChar(x + 3, y - 1, 196);
 264    putChar(x + 3, y + 1, 196);
 265    putChar(x + 4, y + 1, 196);
 266    putChar(x + 5, y + 1, 196);
 267
 268    putChar(x - 2, y - 1, 197);
 269    putChar(x - 2, y + 1, 197);
 270    putChar(x + 2, y - 1, 197);
 271    putChar(x + 2, y + 1, 197);
 272 }
 273
 274
 275 /* get position */
 276
 277 int getPos(int argc, char *argv[], int *x, int *y)
 278 {
 279    if(argc != 2)
 280    {
 281       doError("incomplete position");
 282       return -1;
 283    }
 284    *x = argv[1][1] - '1' + 1;
 285    *y = argv[1][0] - 'a' + 1;
 286    if(*x < 1 || 3 < *x || *y < 1 || 3 < *y)
 287    {
 288       doError("incorrect position");
 289       return -1;
 290    }
 291    return 0;
 292 }
 293
 294
 295 /* print a message */
 296
 297 void printMsg(char *msg, ...)
 298 {
 299    va_list arguments;
 300
 301    if(!msg)    /* clear line: dirty, but working */
 302       printf("                                       ");
 303    else
 304    {
 305       va_start(arguments, msg);
 306       vprintf(msg, arguments);
 307       va_end(arguments);
 308    }
 309    fflush(stdout);
 310 }
 311
 312
 313 /* get your mark */
 314
 315 void getYourMark(void)
 316 {
 317    do {
 318       gotoPos(1, 25);
 319       printMsg(0);
 320       gotoPos(1, 25);
 321       showCursor();
 322       printMsg("Put your mark (o/x): ");
 323       yourMark = getche();
 324       hideCursor();
 325    } while(yourMark != 'o' && yourMark != 'x');
 326
 327    myMark = (yourMark == 'o') ? 'x' : 'o';
 328 }
 329
 330
 331 /* get your move */
 332
 333 void getMove(void)
 334 {
 335    int x, y;
 336    do {
 337       do {
 338          gotoPos(1, 25);
 339          printMsg(0);
 340          gotoPos(1, 25);
 341          showCursor();
 342          printMsg("Your move [a..c][1..3]: ");
 343          fflush(stdout);
 344          y = getche();
 345          y -= 'a' - 1;
 346          x = getche();
 347          x -= '1' - 1;
 348          hideCursor();
 349       } while(x < 1 || x > 3 || y < 1 || y > 3);
 350    } while(getMark(x, y) != emptyMark);
 351
 352    putMark(x, y, yourMark);
 353    nrOfMoves++;
 354    gotoPos(1, 25);
 355    printMsg(0);
 356 }
 357
 358
 359 /* linker function */
 360
 361 RICE_Linker(theLinkerFunction)
 362 {
 363    RICE_Link("put me on",
 364    {
 365       int x; int y;
 366       if(getPos(rice_argc, rice_argv, &x, &y)) return;
 367       putMark(x, y, myMark);
 368       nrOfMoves++;
 369    });
 370
 371    RICE_Link("I am on",
 372    {
 373       int x; int y;
 374       if(getPos(rice_argc, rice_argv, &x, &y)) return;
 375       *rice_grade = (getMark(x, y) == myMark) ? 1.0 : 0.0;
 376    });
 377
 378    RICE_Link("you are on",
 379    {
 380       int x; int y;
 381       if(getPos(rice_argc, rice_argv, &x, &y)) return;
 382       *rice_grade = (getMark(x, y) == yourMark) ? 1.0 : 0.0;
 383    });
 384
 385    RICE_Link("is empty",
 386    {
 387       int x; int y;
 388       if(getPos(rice_argc, rice_argv, &x, &y)) return;
 389       *rice_grade = (getMark(x, y) == emptyMark) ? 1.0 : 0.0;
 390    });
 391
 392    RICE_Link("put me somewhere",
 393       putMark(1 + rand()%3, 1 + rand()%3, myMark);
 394       nrOfMoves++;
 395    );
 396
 397    RICE_Link("stop the game", stopGame = 1);
 398 }
 399
 400 RICE_LINKER theLinker = theLinkerFunction;
 401
 402
 403 /* main function */
 404
 405 #define GAME_KB "game.kb"
 406
 407 int main(int argc, char *argv[])
 408 {
 409    int theES, theOtherES = 0;
 410
 411    /* init dice */
 412    srand(time(0));
 413
 414    /* auto game */
 415    autoGame = (argc > 1);
 416
 417    /* put field on screen */
 418    hideCursor();
 419    clearScreen();
 420    makeField();
 421
 422    /* create and set up knowledge base */
 423    theES = rice_CreateES();
 424    rice_SetInteractive(theES, 0);
 425    rice_RedirectReport(theES, redirError);
 426    rice_RedirectInform(theES, redirInfo);
 427    rice_UseLinker(theES, 1, &theLinker);
 428    if(rice_CompileKB(theES, GAME_KB))
 429    {
 430       showCursor();
 431       exit(1);
 432    }
 433
 434    if(autoGame)   /* if autonomous game */
 435    {
 436       theOtherES = rice_CopyES(0, theES);
 437       if(argc > 1 && rice_CompileKB(theOtherES, (argc > 1) ? argv[1] : GAME_KB))
 438       {
 439          showCursor();
 440          exit(1);
 441       }
 442    }
 443
 444    /* get your mark */
 445    if(autoGame)
 446    {
 447       yourMark = 'x';
 448       myMark = 'o';
 449    }
 450    else
 451       getYourMark();
 452
 453    /* throw dice for starting */
 454    if(rand() > RAND_MAX/2)   /* other is first */
 455       if(autoGame)
 456       {
 457          SwapMark(&yourMark, &myMark);
 458          rice_InferKB(theOtherES);
 459          SwapMark(&yourMark, &myMark);
 460       }
 461       else
 462          getMove();
 463
 464    /* play game */
 465    while(!stopGame && nrOfMoves < 9)
 466    {
 467       rice_ClearKB(theES);
 468       rice_InferKB(theES);
 469
 470       if(!stopGame && nrOfMoves < 9)
 471          if(autoGame)
 472          {
 473             SwapMark(&yourMark, &myMark);
 474             rice_ClearKB(theOtherES);
 475             rice_InferKB(theOtherES);
 476             SwapMark(&yourMark, &myMark);
 477          }
 478          else
 479             getMove();
 480    }
 481
 482    /* goto bottom of screen */
 483    gotoPos(1, 25);
 484
 485    /* clean up expert systems */
 486    rice_DeleteES(theES);
 487    if(theOtherES) rice_DeleteES(theOtherES);
 488
 489    showCursor();
 490
 491    return 0;
 492 }
 493