guess.c

   1 /*
   2  * guess.c: Mastermind clone.
   3  */
   4
   5 #include <stdio.h>
   6 #include <stdlib.h>
   7 #include <string.h>
   8 #include <assert.h>
   9 #include <ctype.h>
  10 #include <math.h>
  11
  12 #include "puzzles.h"
  13
  14 #define FLASH_FRAME 0.5F
  15
  16 enum {
  17     COL_BACKGROUND,
  18     COL_FRAME, COL_CURSOR, COL_FLASH, COL_HOLD,
  19     COL_EMPTY, /* must be COL_1 - 1 */
  20     COL_1, COL_2, COL_3, COL_4, COL_5, COL_6, COL_7, COL_8, COL_9, COL_10,
  21     COL_CORRECTPLACE, COL_CORRECTCOLOUR,
  22     NCOLOURS
  23 };
  24
  25 struct game_params {
  26     int ncolours, npegs, nguesses;
  27     int allow_blank, allow_multiple;
  28 };
  29
  30 #define FEEDBACK_CORRECTPLACE  1
  31 #define FEEDBACK_CORRECTCOLOUR 2
  32
  33 typedef struct pegrow {
  34     int npegs;
  35     int *pegs;          /* 0 is 'empty' */
  36     int *feedback;      /* may well be unused */
  37 } *pegrow;
  38
  39 struct game_state {
  40     game_params params;
  41     pegrow *guesses;  /* length params->nguesses */
  42     int *holds;
  43     pegrow solution;
  44     int next_go; /* from 0 to nguesses-1;
  45                     if next_go == nguesses then they've lost. */
  46     int solved;   /* +1 = win, -1 = lose, 0 = still playing */
  47 };
  48
  49 static game_params *default_params(void)
  50 {
  51     game_params *ret = snew(game_params);
  52
  53     /* AFAIK this is the canonical Mastermind ruleset. */
  54     ret->ncolours = 6;
  55     ret->npegs = 4;
  56     ret->nguesses = 10;
  57
  58     ret->allow_blank = 0;
  59     ret->allow_multiple = 1;
  60
  61     return ret;
  62 }
  63
  64 static void free_params(game_params *params)
  65 {
  66     sfree(params);
  67 }
  68
  69 static game_params *dup_params(const game_params *params)
  70 {
  71     game_params *ret = snew(game_params);
  72     *ret = *params;                    /* structure copy */
  73     return ret;
  74 }
  75
  76 static const struct {
  77     char *name;
  78     game_params params;
  79 } guess_presets[] = {
  80     {"Standard", {6, 4, 10, FALSE, TRUE}},
  81     {"Super", {8, 5, 12, FALSE, TRUE}},
  82 };
  83
  84
  85 static int game_fetch_preset(int i, char **name, game_params **params)
  86 {
  87     if (i < 0 || i >= lenof(guess_presets))
  88         return FALSE;
  89
  90     *name = dupstr(guess_presets[i].name);
  91     /*
  92      * get round annoying const issues
  93      */
  94     {
  95         game_params tmp = guess_presets[i].params;
  96         *params = dup_params(&tmp);
  97     }
  98
  99     return TRUE;
 100 }
 101
 102 static void decode_params(game_params *params, char const *string)
 103 {
 104     char const *p = string;
 105     game_params *defs = default_params();
 106
 107     *params = *defs; free_params(defs);
 108
 109     while (*p) {
 110         switch (*p++) {
 111         case 'c':
 112             params->ncolours = atoi(p);
 113             while (*p && isdigit((unsigned char)*p)) p++;
 114             break;
 115
 116         case 'p':
 117             params->npegs = atoi(p);
 118             while (*p && isdigit((unsigned char)*p)) p++;
 119             break;
 120
 121         case 'g':
 122             params->nguesses = atoi(p);
 123             while (*p && isdigit((unsigned char)*p)) p++;
 124             break;
 125
 126         case 'b':
 127             params->allow_blank = 1;
 128             break;
 129
 130         case 'B':
 131             params->allow_blank = 0;
 132             break;
 133
 134         case 'm':
 135             params->allow_multiple = 1;
 136             break;
 137
 138         case 'M':
 139             params->allow_multiple = 0;
 140             break;
 141
 142         default:
 143             ;
 144         }
 145     }
 146 }
 147
 148 static char *encode_params(const game_params *params, int full)
 149 {
 150     char data[256];
 151
 152     sprintf(data, "c%dp%dg%d%s%s",
 153             params->ncolours, params->npegs, params->nguesses,
 154             params->allow_blank ? "b" : "B", params->allow_multiple ? "m" : "M");
 155
 156     return dupstr(data);
 157 }
 158
 159 static config_item *game_configure(const game_params *params)
 160 {
 161     config_item *ret;
 162     char buf[80];
 163
 164     ret = snewn(6, config_item);
 165
 166     ret[0].name = "Colours";
 167     ret[0].type = C_STRING;
 168     sprintf(buf, "%d", params->ncolours);
 169     ret[0].sval = dupstr(buf);
 170     ret[0].ival = 0;
 171
 172     ret[1].name = "Pegs per guess";
 173     ret[1].type = C_STRING;
 174     sprintf(buf, "%d", params->npegs);
 175     ret[1].sval = dupstr(buf);
 176     ret[1].ival = 0;
 177
 178     ret[2].name = "Guesses";
 179     ret[2].type = C_STRING;
 180     sprintf(buf, "%d", params->nguesses);
 181     ret[2].sval = dupstr(buf);
 182     ret[2].ival = 0;
 183
 184     ret[3].name = "Allow blanks";
 185     ret[3].type = C_BOOLEAN;
 186     ret[3].sval = NULL;
 187     ret[3].ival = params->allow_blank;
 188
 189     ret[4].name = "Allow duplicates";
 190     ret[4].type = C_BOOLEAN;
 191     ret[4].sval = NULL;
 192     ret[4].ival = params->allow_multiple;
 193
 194     ret[5].name = NULL;
 195     ret[5].type = C_END;
 196     ret[5].sval = NULL;
 197     ret[5].ival = 0;
 198
 199     return ret;
 200 }
 201
 202 static game_params *custom_params(const config_item *cfg)
 203 {
 204     game_params *ret = snew(game_params);
 205
 206     ret->ncolours = atoi(cfg[0].sval);
 207     ret->npegs = atoi(cfg[1].sval);
 208     ret->nguesses = atoi(cfg[2].sval);
 209
 210     ret->allow_blank = cfg[3].ival;
 211     ret->allow_multiple = cfg[4].ival;
 212
 213     return ret;
 214 }
 215
 216 static char *validate_params(const game_params *params, int full)
 217 {
 218     if (params->ncolours < 2 || params->npegs < 2)
 219         return "Trivial solutions are uninteresting";
 220     /* NB as well as the no. of colours we define, max(ncolours) must
 221      * also fit in an unsigned char; see new_game_desc. */
 222     if (params->ncolours > 10)
 223         return "Too many colours";
 224     if (params->nguesses < 1)
 225         return "Must have at least one guess";
 226     if (!params->allow_multiple && params->ncolours < params->npegs)
 227         return "Disallowing multiple colours requires at least as many colours as pegs";
 228     return NULL;
 229 }
 230
 231 static pegrow new_pegrow(int npegs)
 232 {
 233     pegrow pegs = snew(struct pegrow);
 234
 235     pegs->npegs = npegs;
 236     pegs->pegs = snewn(pegs->npegs, int);
 237     memset(pegs->pegs, 0, pegs->npegs * sizeof(int));
 238     pegs->feedback = snewn(pegs->npegs, int);
 239     memset(pegs->feedback, 0, pegs->npegs * sizeof(int));
 240
 241     return pegs;
 242 }
 243
 244 static pegrow dup_pegrow(pegrow pegs)
 245 {
 246     pegrow newpegs = new_pegrow(pegs->npegs);
 247
 248     memcpy(newpegs->pegs, pegs->pegs, newpegs->npegs * sizeof(int));
 249     memcpy(newpegs->feedback, pegs->feedback, newpegs->npegs * sizeof(int));
 250
 251     return newpegs;
 252 }
 253
 254 static void invalidate_pegrow(pegrow pegs)
 255 {
 256     memset(pegs->pegs, -1, pegs->npegs * sizeof(int));
 257     memset(pegs->feedback, -1, pegs->npegs * sizeof(int));
 258 }
 259
 260 static void free_pegrow(pegrow pegs)
 261 {
 262     sfree(pegs->pegs);
 263     sfree(pegs->feedback);
 264     sfree(pegs);
 265 }
 266
 267 static char *new_game_desc(const game_params *params, random_state *rs,
 268                            char **aux, int interactive)
 269 {
 270     unsigned char *bmp = snewn(params->npegs, unsigned char);
 271     char *ret;
 272     int i, c;
 273     pegrow colcount = new_pegrow(params->ncolours);
 274
 275     for (i = 0; i < params->npegs; i++) {
 276 newcol:
 277         c = random_upto(rs, params->ncolours);
 278         if (!params->allow_multiple && colcount->pegs[c]) goto newcol;
 279         colcount->pegs[c]++;
 280         bmp[i] = (unsigned char)(c+1);
 281     }
 282     obfuscate_bitmap(bmp, params->npegs*8, FALSE);
 283
 284     ret = bin2hex(bmp, params->npegs);
 285     sfree(bmp);
 286     free_pegrow(colcount);
 287     return ret;
 288 }
 289
 290 static char *validate_desc(const game_params *params, const char *desc)
 291 {
 292     unsigned char *bmp;
 293     int i;
 294
 295     /* desc is just an (obfuscated) bitmap of the solution; check that
 296      * it's the correct length and (when unobfuscated) contains only
 297      * sensible colours. */
 298     if (strlen(desc) != params->npegs * 2)
 299         return "Game description is wrong length";
 300     bmp = hex2bin(desc, params->npegs);
 301     obfuscate_bitmap(bmp, params->npegs*8, TRUE);
 302     for (i = 0; i < params->npegs; i++) {
 303         if (bmp[i] < 1 || bmp[i] > params->ncolours) {
 304             sfree(bmp);
 305             return "Game description is corrupted";
 306         }
 307     }
 308     sfree(bmp);
 309
 310     return NULL;
 311 }
 312
 313 static game_state *new_game(midend *me, const game_params *params,
 314                             const char *desc)
 315 {
 316     game_state *state = snew(game_state);
 317     unsigned char *bmp;
 318     int i;
 319
 320     state->params = *params;
 321     state->guesses = snewn(params->nguesses, pegrow);
 322     for (i = 0; i < params->nguesses; i++)
 323         state->guesses[i] = new_pegrow(params->npegs);
 324     state->holds = snewn(params->npegs, int);
 325     state->solution = new_pegrow(params->npegs);
 326
 327     bmp = hex2bin(desc, params->npegs);
 328     obfuscate_bitmap(bmp, params->npegs*8, TRUE);
 329     for (i = 0; i < params->npegs; i++)
 330         state->solution->pegs[i] = (int)bmp[i];
 331     sfree(bmp);
 332
 333     memset(state->holds, 0, sizeof(int) * params->npegs);
 334     state->next_go = state->solved = 0;
 335
 336     return state;
 337 }
 338
 339 static game_state *dup_game(const game_state *state)
 340 {
 341     game_state *ret = snew(game_state);
 342     int i;
 343
 344     *ret = *state;
 345
 346     ret->guesses = snewn(state->params.nguesses, pegrow);
 347     for (i = 0; i < state->params.nguesses; i++)
 348         ret->guesses[i] = dup_pegrow(state->guesses[i]);
 349     ret->holds = snewn(state->params.npegs, int);
 350     memcpy(ret->holds, state->holds, sizeof(int) * state->params.npegs);
 351     ret->solution = dup_pegrow(state->solution);
 352
 353     return ret;
 354 }
 355
 356 static void free_game(game_state *state)
 357 {
 358     int i;
 359
 360     free_pegrow(state->solution);
 361     for (i = 0; i < state->params.nguesses; i++)
 362         free_pegrow(state->guesses[i]);
 363     sfree(state->holds);
 364     sfree(state->guesses);
 365
 366     sfree(state);
 367 }
 368
 369 static char *solve_game(const game_state *state, const game_state *currstate,
 370                         const char *aux, char **error)
 371 {
 372     return dupstr("S");
 373 }
 374
 375 static int game_can_format_as_text_now(const game_params *params)
 376 {
 377     return TRUE;
 378 }
 379
 380 static char *game_text_format(const game_state *state)
 381 {
 382     return NULL;
 383 }
 384
 385 static int is_markable(const game_params *params, pegrow pegs)
 386 {
 387     int i, nset = 0, nrequired, ret = 0;
 388     pegrow colcount = new_pegrow(params->ncolours);
 389
 390     nrequired = params->allow_blank ? 1 : params->npegs;
 391
 392     for (i = 0; i < params->npegs; i++) {
 393         int c = pegs->pegs[i];
 394         if (c > 0) {
 395             colcount->pegs[c-1]++;
 396             nset++;
 397         }
 398     }
 399     if (nset < nrequired) goto done;
 400
 401     if (!params->allow_multiple) {
 402         for (i = 0; i < params->ncolours; i++) {
 403             if (colcount->pegs[i] > 1) goto done;
 404         }
 405     }
 406     ret = 1;
 407 done:
 408     free_pegrow(colcount);
 409     return ret;
 410 }
 411
 412 struct game_ui {
 413     game_params params;
 414     pegrow curr_pegs; /* half-finished current move */
 415     int *holds;
 416     int colour_cur;   /* position of up-down colour picker cursor */
 417     int peg_cur;      /* position of left-right peg picker cursor */
 418     int display_cur, markable;
 419
 420     int drag_col, drag_x, drag_y; /* x and y are *center* of peg! */
 421     int drag_opeg; /* peg index, if dragged from a peg (from current guess), otherwise -1 */
 422
 423     int show_labels;                   /* label the colours with letters */
 424 };
 425
 426 static game_ui *new_ui(const game_state *state)
 427 {
 428     game_ui *ui = snew(game_ui);
 429     memset(ui, 0, sizeof(game_ui));
 430     ui->params = state->params;        /* structure copy */
 431     ui->curr_pegs = new_pegrow(state->params.npegs);
 432     ui->holds = snewn(state->params.npegs, int);
 433     memset(ui->holds, 0, sizeof(int)*state->params.npegs);
 434     ui->drag_opeg = -1;
 435     return ui;
 436 }
 437
 438 static void free_ui(game_ui *ui)
 439 {
 440     free_pegrow(ui->curr_pegs);
 441     sfree(ui->holds);
 442     sfree(ui);
 443 }
 444
 445 static char *encode_ui(const game_ui *ui)
 446 {
 447     char *ret, *p, *sep;
 448     int i;
 449
 450     /*
 451      * For this game it's worth storing the contents of the current
 452      * guess, and the current set of holds.
 453      */
 454     ret = snewn(40 * ui->curr_pegs->npegs, char);
 455     p = ret;
 456     sep = "";
 457     for (i = 0; i < ui->curr_pegs->npegs; i++) {
 458         p += sprintf(p, "%s%d%s", sep, ui->curr_pegs->pegs[i],
 459                      ui->holds[i] ? "_" : "");
 460         sep = ",";
 461     }
 462     *p++ = '\0';
 463     assert(p - ret < 40 * ui->curr_pegs->npegs);
 464     return sresize(ret, p - ret, char);
 465 }
 466
 467 static void decode_ui(game_ui *ui, const char *encoding)
 468 {
 469     int i;
 470     const char *p = encoding;
 471     for (i = 0; i < ui->curr_pegs->npegs; i++) {
 472         ui->curr_pegs->pegs[i] = atoi(p);
 473         while (*p && isdigit((unsigned char)*p)) p++;
 474         if (*p == '_') {
 475             /* NB: old versions didn't store holds */
 476             ui->holds[i] = 1;
 477             p++;
 478         } else
 479             ui->holds[i] = 0;
 480         if (*p == ',') p++;
 481     }
 482     ui->markable = is_markable(&ui->params, ui->curr_pegs);
 483 }
 484
 485 static void game_changed_state(game_ui *ui, const game_state *oldstate,
 486                                const game_state *newstate)
 487 {
 488     int i;
 489
 490     /* Implement holds, clear other pegs.
 491      * This does something that is arguably the Right Thing even
 492      * for undo. */
 493     for (i = 0; i < newstate->solution->npegs; i++) {
 494         if (newstate->solved)
 495             ui->holds[i] = 0;
 496         else
 497             ui->holds[i] = newstate->holds[i];
 498         if (newstate->solved || (newstate->next_go == 0) || !ui->holds[i]) {
 499             ui->curr_pegs->pegs[i] = 0;
 500         } else
 501             ui->curr_pegs->pegs[i] =
 502                 newstate->guesses[newstate->next_go-1]->pegs[i];
 503     }
 504     ui->markable = is_markable(&newstate->params, ui->curr_pegs);
 505     /* Clean up cursor position */
 506     if (!ui->markable && ui->peg_cur == newstate->solution->npegs)
 507         ui->peg_cur--;
 508 }
 509
 510 #define PEGSZ   (ds->pegsz)
 511 #define PEGOFF  (ds->pegsz + ds->gapsz)
 512 #define HINTSZ  (ds->hintsz)
 513 #define HINTOFF (ds->hintsz + ds->gapsz)
 514
 515 #define GAP     (ds->gapsz)
 516 #define CGAP    (ds->gapsz / 2)
 517
 518 #define PEGRAD  (ds->pegrad)
 519 #define HINTRAD (ds->hintrad)
 520
 521 #define COL_OX          (ds->colx)
 522 #define COL_OY          (ds->coly)
 523 #define COL_X(c)        (COL_OX)
 524 #define COL_Y(c)        (COL_OY + (c)*PEGOFF)
 525 #define COL_W           PEGOFF
 526 #define COL_H           (ds->colours->npegs*PEGOFF)
 527
 528 #define GUESS_OX        (ds->guessx)
 529 #define GUESS_OY        (ds->guessy)
 530 #define GUESS_X(g,p)    (GUESS_OX + (p)*PEGOFF)
 531 #define GUESS_Y(g,p)    (GUESS_OY + (g)*PEGOFF)
 532 #define GUESS_W         (ds->solution->npegs*PEGOFF)
 533 #define GUESS_H         (ds->nguesses*PEGOFF)
 534
 535 #define HINT_OX         (GUESS_OX + GUESS_W + ds->gapsz)
 536 #define HINT_OY         (GUESS_OY + (PEGSZ - HINTOFF - HINTSZ) / 2)
 537 #define HINT_X(g)       HINT_OX
 538 #define HINT_Y(g)       (HINT_OY + (g)*PEGOFF)
 539 #define HINT_W          ((ds->hintw*HINTOFF) - GAP)
 540 #define HINT_H          GUESS_H
 541
 542 #define SOLN_OX         GUESS_OX
 543 #define SOLN_OY         (GUESS_OY + GUESS_H + ds->gapsz + 2)
 544 #define SOLN_W          GUESS_W
 545 #define SOLN_H          PEGOFF
 546
 547 struct game_drawstate {
 548     int nguesses;
 549     pegrow *guesses;    /* same size as state->guesses */
 550     pegrow solution;    /* only displayed if state->solved */
 551     pegrow colours;     /* length ncolours, not npegs */
 552
 553     int pegsz, hintsz, gapsz; /* peg size (diameter), etc. */
 554     int pegrad, hintrad;      /* radius of peg, hint */
 555     int border;
 556     int colx, coly;     /* origin of colours vertical bar */
 557     int guessx, guessy; /* origin of guesses */
 558     int solnx, solny;   /* origin of solution */
 559     int hintw;          /* no. of hint tiles we're wide per row */
 560     int w, h, started, solved;
 561
 562     int next_go;
 563
 564     blitter *blit_peg;
 565     int drag_col, blit_ox, blit_oy;
 566 };
 567
 568 static void set_peg(const game_params *params, game_ui *ui, int peg, int col)
 569 {
 570     ui->curr_pegs->pegs[peg] = col;
 571     ui->markable = is_markable(params, ui->curr_pegs);
 572 }
 573
 574 static int mark_pegs(pegrow guess, pegrow solution, int ncols)
 575 {
 576     int nc_place = 0, nc_colour = 0, i, j;
 577
 578     assert(guess && solution && (guess->npegs == solution->npegs));
 579
 580     for (i = 0; i < guess->npegs; i++) {
 581         if (guess->pegs[i] == solution->pegs[i]) nc_place++;
 582     }
 583
 584     /* slight bit of cleverness: we have the following formula, from
 585      * http://mathworld.wolfram.com/Mastermind.html that gives:
 586      *
 587      * nc_colour = sum(colours, min(#solution, #guess)) - nc_place
 588      *
 589      * I think this is due to Knuth.
 590      */
 591     for (i = 1; i <= ncols; i++) {
 592         int n_guess = 0, n_solution = 0;
 593         for (j = 0; j < guess->npegs; j++) {
 594             if (guess->pegs[j] == i) n_guess++;
 595             if (solution->pegs[j] == i) n_solution++;
 596         }
 597         nc_colour += min(n_guess, n_solution);
 598     }
 599     nc_colour -= nc_place;
 600
 601     debug(("mark_pegs, %d pegs, %d right place, %d right colour",
 602            guess->npegs, nc_place, nc_colour));
 603     assert((nc_colour + nc_place) <= guess->npegs);
 604
 605     memset(guess->feedback, 0, guess->npegs*sizeof(int));
 606     for (i = 0, j = 0; i < nc_place; i++)
 607         guess->feedback[j++] = FEEDBACK_CORRECTPLACE;
 608     for (i = 0; i < nc_colour; i++)
 609         guess->feedback[j++] = FEEDBACK_CORRECTCOLOUR;
 610
 611     return nc_place;
 612 }
 613
 614 static char *encode_move(const game_state *from, game_ui *ui)
 615 {
 616     char *buf, *p, *sep;
 617     int len, i;
 618
 619     len = ui->curr_pegs->npegs * 20 + 2;
 620     buf = snewn(len, char);
 621     p = buf;
 622     *p++ = 'G';
 623     sep = "";
 624     for (i = 0; i < ui->curr_pegs->npegs; i++) {
 625         p += sprintf(p, "%s%d%s", sep, ui->curr_pegs->pegs[i],
 626                      ui->holds[i] ? "_" : "");
 627         sep = ",";
 628     }
 629     *p++ = '\0';
 630     assert(p - buf <= len);
 631     buf = sresize(buf, len, char);
 632
 633     return buf;
 634 }
 635
 636 static char *interpret_move(const game_state *from, game_ui *ui,
 637                             const game_drawstate *ds,
 638                             int x, int y, int button)
 639 {
 640     int over_col = 0;           /* one-indexed */
 641     int over_guess = -1;        /* zero-indexed */
 642     int over_past_guess_y = -1; /* zero-indexed */
 643     int over_past_guess_x = -1; /* zero-indexed */
 644     int over_hint = 0;          /* zero or one */
 645     char *ret = NULL;
 646
 647     int guess_ox = GUESS_X(from->next_go, 0);
 648     int guess_oy = GUESS_Y(from->next_go, 0);
 649
 650     /*
 651      * Enable or disable labels on colours.
 652      */
 653     if (button == 'l' || button == 'L') {
 654         ui->show_labels = !ui->show_labels;
 655         return "";
 656     }
 657
 658     if (from->solved) return NULL;
 659
 660     if (x >= COL_OX && x < (COL_OX + COL_W) &&
 661         y >= COL_OY && y < (COL_OY + COL_H)) {
 662         over_col = ((y - COL_OY) / PEGOFF) + 1;
 663         assert(over_col >= 1 && over_col <= ds->colours->npegs);
 664     } else if (x >= guess_ox &&
 665                y >= guess_oy && y < (guess_oy + GUESS_H)) {
 666         if (x < (guess_ox + GUESS_W)) {
 667             over_guess = (x - guess_ox) / PEGOFF;
 668             assert(over_guess >= 0 && over_guess < ds->solution->npegs);
 669         } else {
 670             over_hint = 1;
 671         }
 672     } else if (x >= guess_ox && x < (guess_ox + GUESS_W) &&
 673                y >= GUESS_OY && y < guess_oy) {
 674         over_past_guess_y = (y - GUESS_OY) / PEGOFF;
 675         over_past_guess_x = (x - guess_ox) / PEGOFF;
 676         assert(over_past_guess_y >= 0 && over_past_guess_y < from->next_go);
 677         assert(over_past_guess_x >= 0 && over_past_guess_x < ds->solution->npegs);
 678     }
 679     debug(("make_move: over_col %d, over_guess %d, over_hint %d,"
 680            " over_past_guess (%d,%d)", over_col, over_guess, over_hint,
 681            over_past_guess_x, over_past_guess_y));
 682
 683     assert(ds->blit_peg);
 684
 685     /* mouse input */
 686     if (button == LEFT_BUTTON) {
 687         if (over_col > 0) {
 688             ui->drag_col = over_col;
 689             ui->drag_opeg = -1;
 690             debug(("Start dragging from colours"));
 691         } else if (over_guess > -1) {
 692             int col = ui->curr_pegs->pegs[over_guess];
 693             if (col) {
 694                 ui->drag_col = col;
 695                 ui->drag_opeg = over_guess;
 696                 debug(("Start dragging from a guess"));
 697             }
 698         } else if (over_past_guess_y > -1) {
 699             int col =
 700                 from->guesses[over_past_guess_y]->pegs[over_past_guess_x];
 701             if (col) {
 702                 ui->drag_col = col;
 703                 ui->drag_opeg = -1;
 704                 debug(("Start dragging from a past guess"));
 705             }
 706         }
 707         if (ui->drag_col) {
 708             ui->drag_x = x;
 709             ui->drag_y = y;
 710             debug(("Start dragging, col = %d, (%d,%d)",
 711                    ui->drag_col, ui->drag_x, ui->drag_y));
 712             ret = "";
 713         }
 714     } else if (button == LEFT_DRAG && ui->drag_col) {
 715         ui->drag_x = x;
 716         ui->drag_y = y;
 717         debug(("Keep dragging, (%d,%d)", ui->drag_x, ui->drag_y));
 718         ret = "";
 719     } else if (button == LEFT_RELEASE && ui->drag_col) {
 720         if (over_guess > -1) {
 721             debug(("Dropping colour %d onto guess peg %d",
 722                    ui->drag_col, over_guess));
 723             set_peg(&from->params, ui, over_guess, ui->drag_col);
 724         } else {
 725             if (ui->drag_opeg > -1) {
 726                 debug(("Removing colour %d from peg %d",
 727                        ui->drag_col, ui->drag_opeg));
 728                 set_peg(&from->params, ui, ui->drag_opeg, 0);
 729             }
 730         }
 731         ui->drag_col = 0;
 732         ui->drag_opeg = -1;
 733         ui->display_cur = 0;
 734         debug(("Stop dragging."));
 735         ret = "";
 736     } else if (button == RIGHT_BUTTON) {
 737         if (over_guess > -1) {
 738             /* we use ths feedback in the game_ui to signify
 739              * 'carry this peg to the next guess as well'. */
 740             ui->holds[over_guess] = 1 - ui->holds[over_guess];
 741             ret = "";
 742         }
 743     } else if (button == LEFT_RELEASE && over_hint && ui->markable) {
 744         /* NB this won't trigger if on the end of a drag; that's on
 745          * purpose, in case you drop by mistake... */
 746         ret = encode_move(from, ui);
 747     }
 748
 749     /* keyboard input */
 750     if (button == CURSOR_UP || button == CURSOR_DOWN) {
 751         ui->display_cur = 1;
 752         if (button == CURSOR_DOWN && (ui->colour_cur+1) < from->params.ncolours)
 753             ui->colour_cur++;
 754         if (button == CURSOR_UP && ui->colour_cur > 0)
 755             ui->colour_cur--;
 756         ret = "";
 757     } else if (button == CURSOR_LEFT || button == CURSOR_RIGHT) {
 758         int maxcur = from->params.npegs;
 759         if (ui->markable) maxcur++;
 760
 761         ui->display_cur = 1;
 762         if (button == CURSOR_RIGHT && (ui->peg_cur+1) < maxcur)
 763             ui->peg_cur++;
 764         if (button == CURSOR_LEFT && ui->peg_cur > 0)
 765             ui->peg_cur--;
 766         ret = "";
 767     } else if (IS_CURSOR_SELECT(button)) {
 768         ui->display_cur = 1;
 769         if (ui->peg_cur == from->params.npegs) {
 770             ret = encode_move(from, ui);
 771         } else {
 772             set_peg(&from->params, ui, ui->peg_cur, ui->colour_cur+1);
 773             ret = "";
 774         }
 775     } else if (button == 'D' || button == 'd' || button == '\b') {
 776         ui->display_cur = 1;
 777         set_peg(&from->params, ui, ui->peg_cur, 0);
 778         ret = "";
 779     } else if (button == 'H' || button == 'h') {
 780         if (ui->peg_cur == from->params.npegs)
 781             return NULL;
 782         ui->display_cur = 1;
 783         ui->holds[ui->peg_cur] = 1 - ui->holds[ui->peg_cur];
 784         ret = "";
 785     }
 786     return ret;
 787 }
 788
 789 static game_state *execute_move(const game_state *from, const char *move)
 790 {
 791     int i, nc_place;
 792     game_state *ret;
 793     const char *p;
 794
 795     if (!strcmp(move, "S")) {
 796         ret = dup_game(from);
 797         ret->solved = -1;
 798         return ret;
 799     } else if (move[0] == 'G') {
 800         p = move+1;
 801
 802         ret = dup_game(from);
 803
 804         for (i = 0; i < from->solution->npegs; i++) {
 805             int val = atoi(p);
 806             int min_colour = from->params.allow_blank? 0 : 1;
 807             if (val < min_colour || val > from->params.ncolours) {
 808                 free_game(ret);
 809                 return NULL;
 810             }
 811             ret->guesses[from->next_go]->pegs[i] = atoi(p);
 812             while (*p && isdigit((unsigned char)*p)) p++;
 813             if (*p == '_') {
 814                 ret->holds[i] = 1;
 815                 p++;
 816             } else
 817                 ret->holds[i] = 0;
 818             if (*p == ',') p++;
 819         }
 820
 821         nc_place = mark_pegs(ret->guesses[from->next_go], ret->solution, ret->params.ncolours);
 822
 823         if (nc_place == ret->solution->npegs) {
 824             ret->solved = +1; /* win! */
 825         } else {
 826             ret->next_go = from->next_go + 1;
 827             if (ret->next_go >= ret->params.nguesses)
 828                 ret->solved = -1; /* lose, meaning we show the pegs. */
 829         }
 830
 831         return ret;
 832     } else
 833         return NULL;
 834 }
 835
 836 /* ----------------------------------------------------------------------
 837  * Drawing routines.
 838  */
 839
 840 #define PEG_PREFER_SZ 32
 841
 842 /* next three are multipliers for pegsz. It will look much nicer if
 843  * (2*PEG_HINT) + PEG_GAP = 1.0 as the hints are formatted like that. */
 844 #define PEG_GAP   0.10
 845 #define PEG_HINT  0.35
 846
 847 #define BORDER    0.5
 848
 849 static void game_compute_size(const game_params *params, int tilesize,
 850                               int *x, int *y)
 851 {
 852     double hmul, vmul_c, vmul_g, vmul;
 853     int hintw = (params->npegs+1)/2;
 854
 855     hmul = BORDER   * 2.0 +               /* border */
 856            1.0      * 2.0 +               /* vertical colour bar */
 857            1.0      * params->npegs +     /* guess pegs */
 858            PEG_GAP  * params->npegs +     /* guess gaps */
 859            PEG_HINT * hintw +             /* hint pegs */
 860            PEG_GAP  * (hintw - 1);        /* hint gaps */
 861
 862     vmul_c = BORDER  * 2.0 +                    /* border */
 863              1.0     * params->ncolours +       /* colour pegs */
 864              PEG_GAP * (params->ncolours - 1);  /* colour gaps */
 865
 866     vmul_g = BORDER  * 2.0 +                    /* border */
 867              1.0     * (params->nguesses + 1) + /* guesses plus solution */
 868              PEG_GAP * (params->nguesses + 1);  /* gaps plus gap above soln */
 869
 870     vmul = max(vmul_c, vmul_g);
 871
 872     *x = (int)ceil((double)tilesize * hmul);
 873     *y = (int)ceil((double)tilesize * vmul);
 874 }
 875
 876 static void game_set_size(drawing *dr, game_drawstate *ds,
 877                           const game_params *params, int tilesize)
 878 {
 879     int colh, guessh;
 880
 881     ds->pegsz = tilesize;
 882
 883     ds->hintsz = (int)((double)ds->pegsz * PEG_HINT);
 884     ds->gapsz  = (int)((double)ds->pegsz * PEG_GAP);
 885     ds->border = (int)((double)ds->pegsz * BORDER);
 886
 887     ds->pegrad  = (ds->pegsz -1)/2; /* radius of peg to fit in pegsz (which is 2r+1) */
 888     ds->hintrad = (ds->hintsz-1)/2;
 889
 890     colh = ((ds->pegsz + ds->gapsz) * params->ncolours) - ds->gapsz;
 891     guessh = ((ds->pegsz + ds->gapsz) * params->nguesses);      /* guesses */
 892     guessh += ds->gapsz + ds->pegsz;                            /* solution */
 893
 894     game_compute_size(params, tilesize, &ds->w, &ds->h);
 895     ds->colx = ds->border;
 896     ds->coly = (ds->h - colh) / 2;
 897
 898     ds->guessx = ds->solnx = ds->border + ds->pegsz * 2;     /* border + colours */
 899     ds->guessy = (ds->h - guessh) / 2;
 900     ds->solny = ds->guessy + ((ds->pegsz + ds->gapsz) * params->nguesses) + ds->gapsz;
 901
 902     assert(ds->pegsz > 0);
 903     assert(!ds->blit_peg);             /* set_size is never called twice */
 904     ds->blit_peg = blitter_new(dr, ds->pegsz+2, ds->pegsz+2);
 905 }
 906
 907 static float *game_colours(frontend *fe, int *ncolours)
 908 {
 909     float *ret = snewn(3 * NCOLOURS, float), max;
 910     int i;
 911
 912     frontend_default_colour(fe, &ret[COL_BACKGROUND * 3]);
 913
 914     /* red */
 915     ret[COL_1 * 3 + 0] = 1.0F;
 916     ret[COL_1 * 3 + 1] = 0.0F;
 917     ret[COL_1 * 3 + 2] = 0.0F;
 918
 919     /* yellow */
 920     ret[COL_2 * 3 + 0] = 1.0F;
 921     ret[COL_2 * 3 + 1] = 1.0F;
 922     ret[COL_2 * 3 + 2] = 0.0F;
 923
 924     /* green */
 925     ret[COL_3 * 3 + 0] = 0.0F;
 926     ret[COL_3 * 3 + 1] = 1.0F;
 927     ret[COL_3 * 3 + 2] = 0.0F;
 928
 929     /* blue */
 930     ret[COL_4 * 3 + 0] = 0.2F;
 931     ret[COL_4 * 3 + 1] = 0.3F;
 932     ret[COL_4 * 3 + 2] = 1.0F;
 933
 934     /* orange */
 935     ret[COL_5 * 3 + 0] = 1.0F;
 936     ret[COL_5 * 3 + 1] = 0.5F;
 937     ret[COL_5 * 3 + 2] = 0.0F;
 938
 939     /* purple */
 940     ret[COL_6 * 3 + 0] = 0.5F;
 941     ret[COL_6 * 3 + 1] = 0.0F;
 942     ret[COL_6 * 3 + 2] = 0.7F;
 943
 944     /* brown */
 945     ret[COL_7 * 3 + 0] = 0.5F;
 946     ret[COL_7 * 3 + 1] = 0.3F;
 947     ret[COL_7 * 3 + 2] = 0.3F;
 948
 949     /* light blue */
 950     ret[COL_8 * 3 + 0] = 0.4F;
 951     ret[COL_8 * 3 + 1] = 0.8F;
 952     ret[COL_8 * 3 + 2] = 1.0F;
 953
 954     /* light green */
 955     ret[COL_9 * 3 + 0] = 0.7F;
 956     ret[COL_9 * 3 + 1] = 1.0F;
 957     ret[COL_9 * 3 + 2] = 0.7F;
 958
 959     /* pink */
 960     ret[COL_10 * 3 + 0] = 1.0F;
 961     ret[COL_10 * 3 + 1] = 0.6F;
 962     ret[COL_10 * 3 + 2] = 1.0F;
 963
 964     ret[COL_FRAME * 3 + 0] = 0.0F;
 965     ret[COL_FRAME * 3 + 1] = 0.0F;
 966     ret[COL_FRAME * 3 + 2] = 0.0F;
 967
 968     ret[COL_CURSOR * 3 + 0] = 0.0F;
 969     ret[COL_CURSOR * 3 + 1] = 0.0F;
 970     ret[COL_CURSOR * 3 + 2] = 0.0F;
 971
 972     ret[COL_FLASH * 3 + 0] = 0.5F;
 973     ret[COL_FLASH * 3 + 1] = 1.0F;
 974     ret[COL_FLASH * 3 + 2] = 1.0F;
 975
 976     ret[COL_HOLD * 3 + 0] = 1.0F;
 977     ret[COL_HOLD * 3 + 1] = 0.5F;
 978     ret[COL_HOLD * 3 + 2] = 0.5F;
 979
 980     ret[COL_CORRECTPLACE*3 + 0] = 0.0F;
 981     ret[COL_CORRECTPLACE*3 + 1] = 0.0F;
 982     ret[COL_CORRECTPLACE*3 + 2] = 0.0F;
 983
 984     ret[COL_CORRECTCOLOUR*3 + 0] = 1.0F;
 985     ret[COL_CORRECTCOLOUR*3 + 1] = 1.0F;
 986     ret[COL_CORRECTCOLOUR*3 + 2] = 1.0F;
 987
 988     /* We want to make sure we can distinguish COL_CORRECTCOLOUR
 989      * (which we hard-code as white) from COL_BACKGROUND (which
 990      * could default to white on some platforms).
 991      * Code borrowed from fifteen.c. */
 992     max = ret[COL_BACKGROUND*3];
 993     for (i = 1; i < 3; i++)
 994         if (ret[COL_BACKGROUND*3+i] > max)
 995             max = ret[COL_BACKGROUND*3+i];
 996     if (max * 1.2F > 1.0F) {
 997         for (i = 0; i < 3; i++)
 998             ret[COL_BACKGROUND*3+i] /= (max * 1.2F);
 999     }
1000
1001     /* We also want to be able to tell the difference between BACKGROUND
1002      * and EMPTY, for similar distinguishing-hint reasons. */
1003     ret[COL_EMPTY * 3 + 0] = ret[COL_BACKGROUND * 3 + 0] * 2.0F / 3.0F;
1004     ret[COL_EMPTY * 3 + 1] = ret[COL_BACKGROUND * 3 + 1] * 2.0F / 3.0F;
1005     ret[COL_EMPTY * 3 + 2] = ret[COL_BACKGROUND * 3 + 2] * 2.0F / 3.0F;
1006
1007     *ncolours = NCOLOURS;
1008     return ret;
1009 }
1010
1011 static game_drawstate *game_new_drawstate(drawing *dr, const game_state *state)
1012 {
1013     struct game_drawstate *ds = snew(struct game_drawstate);
1014     int i;
1015
1016     memset(ds, 0, sizeof(struct game_drawstate));
1017
1018     ds->guesses = snewn(state->params.nguesses, pegrow);
1019     ds->nguesses = state->params.nguesses;
1020     for (i = 0; i < state->params.nguesses; i++) {
1021         ds->guesses[i] = new_pegrow(state->params.npegs);
1022         invalidate_pegrow(ds->guesses[i]);
1023     }
1024     ds->solution = new_pegrow(state->params.npegs);
1025     invalidate_pegrow(ds->solution);
1026     ds->colours = new_pegrow(state->params.ncolours);
1027     invalidate_pegrow(ds->colours);
1028
1029     ds->hintw = (state->params.npegs+1)/2; /* must round up */
1030
1031     ds->blit_peg = NULL;
1032
1033     return ds;
1034 }
1035
1036 static void game_free_drawstate(drawing *dr, game_drawstate *ds)
1037 {
1038     int i;
1039
1040     if (ds->blit_peg) blitter_free(dr, ds->blit_peg);
1041     free_pegrow(ds->colours);
1042     free_pegrow(ds->solution);
1043     for (i = 0; i < ds->nguesses; i++)
1044         free_pegrow(ds->guesses[i]);
1045     sfree(ds->guesses);
1046     sfree(ds);
1047 }
1048
1049 static void draw_peg(drawing *dr, game_drawstate *ds, int cx, int cy,
1050                      int moving, int labelled, int col)
1051 {
1052     /*
1053      * Some platforms antialias circles, which means we shouldn't
1054      * overwrite a circle of one colour with a circle of another
1055      * colour without erasing the background first. However, if the
1056      * peg is the one being dragged, we don't erase the background
1057      * because we _want_ it to alpha-blend nicely into whatever's
1058      * behind it.
1059      */
1060     if (!moving)
1061         draw_rect(dr, cx-CGAP, cy-CGAP, PEGSZ+CGAP*2, PEGSZ+CGAP*2,
1062                   COL_BACKGROUND);
1063     if (PEGRAD > 0) {
1064         draw_circle(dr, cx+PEGRAD, cy+PEGRAD, PEGRAD,
1065                     COL_EMPTY + col, (col ? COL_FRAME : COL_EMPTY));
1066     } else
1067         draw_rect(dr, cx, cy, PEGSZ, PEGSZ, COL_EMPTY + col);
1068
1069     if (labelled && col) {
1070         char buf[2];
1071         buf[0] = 'a'-1 + col;
1072         buf[1] = '\0';
1073         draw_text(dr, cx+PEGRAD, cy+PEGRAD, FONT_VARIABLE, PEGRAD,
1074                   ALIGN_HCENTRE|ALIGN_VCENTRE, COL_FRAME, buf);
1075     }
1076
1077     draw_update(dr, cx-CGAP, cy-CGAP, PEGSZ+CGAP*2, PEGSZ+CGAP*2);
1078 }
1079
1080 static void draw_cursor(drawing *dr, game_drawstate *ds, int x, int y)
1081 {
1082     draw_circle(dr, x+PEGRAD, y+PEGRAD, PEGRAD+CGAP, -1, COL_CURSOR);
1083
1084     draw_update(dr, x-CGAP, y-CGAP, PEGSZ+CGAP*2, PEGSZ+CGAP*2);
1085 }
1086
1087 static void guess_redraw(drawing *dr, game_drawstate *ds, int guess,
1088                          pegrow src, int *holds, int cur_col, int force,
1089                          int labelled)
1090 {
1091     pegrow dest;
1092     int rowx, rowy, i, scol;
1093
1094     if (guess == -1) {
1095         dest = ds->solution;
1096         rowx = SOLN_OX;
1097         rowy = SOLN_OY;
1098     } else {
1099         dest = ds->guesses[guess];
1100         rowx = GUESS_X(guess,0);
1101         rowy = GUESS_Y(guess,0);
1102     }
1103     if (src) assert(src->npegs == dest->npegs);
1104
1105     for (i = 0; i < dest->npegs; i++) {
1106         scol = src ? src->pegs[i] : 0;
1107         if (i == cur_col)
1108             scol |= 0x1000;
1109         if (holds && holds[i])
1110             scol |= 0x2000;
1111         if (labelled)
1112             scol |= 0x4000;
1113         if ((dest->pegs[i] != scol) || force) {
1114             draw_peg(dr, ds, rowx + PEGOFF * i, rowy, FALSE, labelled,
1115                      scol &~ 0x7000);
1116             /*
1117              * Hold marker.
1118              */
1119             draw_rect(dr, rowx + PEGOFF * i, rowy + PEGSZ + ds->gapsz/2,
1120                       PEGSZ, 2, (scol & 0x2000 ? COL_HOLD : COL_BACKGROUND));
1121             draw_update(dr, rowx + PEGOFF * i, rowy + PEGSZ + ds->gapsz/2,
1122                         PEGSZ, 2);
1123             if (scol & 0x1000)
1124                 draw_cursor(dr, ds, rowx + PEGOFF * i, rowy);
1125         }
1126         dest->pegs[i] = scol;
1127     }
1128 }
1129
1130 static void hint_redraw(drawing *dr, game_drawstate *ds, int guess,
1131                         pegrow src, int force, int cursor, int markable)
1132 {
1133     pegrow dest = ds->guesses[guess];
1134     int rowx, rowy, i, scol, col, hintlen;
1135     int need_redraw;
1136     int emptycol = (markable ? COL_FLASH : COL_EMPTY);
1137
1138     if (src) assert(src->npegs == dest->npegs);
1139
1140     hintlen = (dest->npegs + 1)/2;
1141
1142     /*
1143      * Because of the possible presence of the cursor around this
1144      * entire section, we redraw all or none of it but never part.
1145      */
1146     need_redraw = FALSE;
1147
1148     for (i = 0; i < dest->npegs; i++) {
1149         scol = src ? src->feedback[i] : 0;
1150         if (i == 0 && cursor)
1151             scol |= 0x1000;
1152         if (i == 0 && markable)
1153             scol |= 0x2000;
1154         if ((scol != dest->feedback[i]) || force) {
1155             need_redraw = TRUE;
1156         }
1157         dest->feedback[i] = scol;
1158     }
1159
1160     if (need_redraw) {
1161         int hinth = HINTSZ + GAP + HINTSZ;
1162         int hx,hy,hw,hh;
1163
1164         hx = HINT_X(guess)-GAP; hy = HINT_Y(guess)-GAP;
1165         hw = HINT_W+GAP*2; hh = hinth+GAP*2;
1166
1167         /* erase a large background rectangle */
1168         draw_rect(dr, hx, hy, hw, hh, COL_BACKGROUND);
1169
1170         for (i = 0; i < dest->npegs; i++) {
1171             scol = src ? src->feedback[i] : 0;
1172             col = ((scol == FEEDBACK_CORRECTPLACE) ? COL_CORRECTPLACE :
1173                    (scol == FEEDBACK_CORRECTCOLOUR) ? COL_CORRECTCOLOUR :
1174                    emptycol);
1175
1176             rowx = HINT_X(guess);
1177             rowy = HINT_Y(guess);
1178             if (i < hintlen) {
1179                 rowx += HINTOFF * i;
1180             } else {
1181                 rowx += HINTOFF * (i - hintlen);
1182                 rowy += HINTOFF;
1183             }
1184             if (HINTRAD > 0) {
1185                 draw_circle(dr, rowx+HINTRAD, rowy+HINTRAD, HINTRAD, col,
1186                             (col == emptycol ? emptycol : COL_FRAME));
1187             } else {
1188                 draw_rect(dr, rowx, rowy, HINTSZ, HINTSZ, col);
1189             }
1190         }
1191         if (cursor) {
1192             int x1,y1,x2,y2;
1193             x1 = hx + CGAP; y1 = hy + CGAP;
1194             x2 = hx + hw - CGAP; y2 = hy + hh - CGAP;
1195             draw_line(dr, x1, y1, x2, y1, COL_CURSOR);
1196             draw_line(dr, x2, y1, x2, y2, COL_CURSOR);
1197             draw_line(dr, x2, y2, x1, y2, COL_CURSOR);
1198             draw_line(dr, x1, y2, x1, y1, COL_CURSOR);
1199         }
1200
1201         draw_update(dr, hx, hy, hw, hh);
1202     }
1203 }
1204
1205 static void currmove_redraw(drawing *dr, game_drawstate *ds, int guess, int col)
1206 {
1207     int ox = GUESS_X(guess, 0), oy = GUESS_Y(guess, 0), off = PEGSZ/4;
1208
1209     draw_rect(dr, ox-off-1, oy, 2, PEGSZ, col);
1210     draw_update(dr, ox-off-1, oy, 2, PEGSZ);
1211 }
1212
1213 static void game_redraw(drawing *dr, game_drawstate *ds,
1214                         const game_state *oldstate, const game_state *state,
1215                         int dir, const game_ui *ui,
1216                         float animtime, float flashtime)
1217 {
1218     int i, new_move;
1219
1220     new_move = (state->next_go != ds->next_go) || !ds->started;
1221
1222     if (!ds->started) {
1223       draw_rect(dr, 0, 0, ds->w, ds->h, COL_BACKGROUND);
1224       draw_rect(dr, SOLN_OX, SOLN_OY - ds->gapsz - 1, SOLN_W, 2, COL_FRAME);
1225       draw_update(dr, 0, 0, ds->w, ds->h);
1226     }
1227
1228     if (ds->drag_col != 0) {
1229         debug(("Loading from blitter."));
1230         blitter_load(dr, ds->blit_peg, ds->blit_ox, ds->blit_oy);
1231         draw_update(dr, ds->blit_ox, ds->blit_oy, PEGSZ, PEGSZ);
1232     }
1233
1234     /* draw the colours */
1235     for (i = 0; i < state->params.ncolours; i++) {
1236         int val = i+1;
1237         if (ui->display_cur && ui->colour_cur == i)
1238             val |= 0x1000;
1239         if (ui->show_labels)
1240             val |= 0x2000;
1241         if (ds->colours->pegs[i] != val) {
1242             draw_peg(dr, ds, COL_X(i), COL_Y(i), FALSE, ui->show_labels, i+1);
1243             if (val & 0x1000)
1244                 draw_cursor(dr, ds, COL_X(i), COL_Y(i));
1245             ds->colours->pegs[i] = val;
1246         }
1247     }
1248
1249     /* draw the guesses (so far) and the hints
1250      * (in reverse order to avoid trampling holds) */
1251     for (i = state->params.nguesses - 1; i >= 0; i--) {
1252         if (state->next_go > i || state->solved) {
1253             /* this info is stored in the game_state already */
1254             guess_redraw(dr, ds, i, state->guesses[i], NULL, -1, 0,
1255                          ui->show_labels);
1256             hint_redraw(dr, ds, i, state->guesses[i],
1257                         i == (state->next_go-1) ? 1 : 0, FALSE, FALSE);
1258         } else if (state->next_go == i) {
1259             /* this is the one we're on; the (incomplete) guess is
1260              * stored in the game_ui. */
1261             guess_redraw(dr, ds, i, ui->curr_pegs,
1262                          ui->holds, ui->display_cur ? ui->peg_cur : -1, 0,
1263                          ui->show_labels);
1264             hint_redraw(dr, ds, i, NULL, 1,
1265                         ui->display_cur && ui->peg_cur == state->params.npegs,
1266                         ui->markable);
1267         } else {
1268             /* we've not got here yet; it's blank. */
1269             guess_redraw(dr, ds, i, NULL, NULL, -1, 0, ui->show_labels);
1270             hint_redraw(dr, ds, i, NULL, 0, FALSE, FALSE);
1271         }
1272     }
1273
1274     /* draw the 'current move' and 'able to mark' sign. */
1275     if (new_move)
1276         currmove_redraw(dr, ds, ds->next_go, COL_BACKGROUND);
1277     if (!state->solved)
1278         currmove_redraw(dr, ds, state->next_go, COL_HOLD);
1279
1280     /* draw the solution (or the big rectangle) */
1281     if ((!state->solved ^ !ds->solved) || !ds->started) {
1282         draw_rect(dr, SOLN_OX, SOLN_OY, SOLN_W, SOLN_H,
1283                   state->solved ? COL_BACKGROUND : COL_EMPTY);
1284         draw_update(dr, SOLN_OX, SOLN_OY, SOLN_W, SOLN_H);
1285     }
1286     if (state->solved)
1287         guess_redraw(dr, ds, -1, state->solution, NULL, -1, !ds->solved,
1288                      ui->show_labels);
1289     ds->solved = state->solved;
1290
1291     ds->next_go = state->next_go;
1292
1293     /* if ui->drag_col != 0, save the screen to the blitter,
1294      * draw the peg where we saved, and set ds->drag_* == ui->drag_*. */
1295     if (ui->drag_col != 0) {
1296         int ox = ui->drag_x - (PEGSZ/2);
1297         int oy = ui->drag_y - (PEGSZ/2);
1298         ds->blit_ox = ox - 1; ds->blit_oy = oy - 1;
1299         debug(("Saving to blitter at (%d,%d)", ds->blit_ox, ds->blit_oy));
1300         blitter_save(dr, ds->blit_peg, ds->blit_ox, ds->blit_oy);
1301         draw_peg(dr, ds, ox, oy, TRUE, ui->show_labels, ui->drag_col);
1302     }
1303     ds->drag_col = ui->drag_col;
1304
1305     ds->started = 1;
1306 }
1307
1308 static float game_anim_length(const game_state *oldstate,
1309                               const game_state *newstate, int dir, game_ui *ui)
1310 {
1311     return 0.0F;
1312 }
1313
1314 static float game_flash_length(const game_state *oldstate,
1315                                const game_state *newstate, int dir, game_ui *ui)
1316 {
1317     return 0.0F;
1318 }
1319
1320 static int game_status(const game_state *state)
1321 {
1322     /*
1323      * We return nonzero whenever the solution has been revealed, even
1324      * (on spoiler grounds) if it wasn't guessed correctly. The
1325      * correct return value from this function is already in
1326      * state->solved.
1327      */
1328     return state->solved;
1329 }
1330
1331 static int game_timing_state(const game_state *state, game_ui *ui)
1332 {
1333     return TRUE;
1334 }
1335
1336 static void game_print_size(const game_params *params, float *x, float *y)
1337 {
1338 }
1339
1340 static void game_print(drawing *dr, const game_state *state, int tilesize)
1341 {
1342 }
1343
1344 #ifdef COMBINED
1345 #define thegame guess
1346 #endif
1347
1348 const struct game thegame = {
1349     "Guess", "games.guess", "guess",
1350     default_params,
1351     game_fetch_preset,
1352     decode_params,
1353     encode_params,
1354     free_params,
1355     dup_params,
1356     TRUE, game_configure, custom_params,
1357     validate_params,
1358     new_game_desc,
1359     validate_desc,
1360     new_game,
1361     dup_game,
1362     free_game,
1363     TRUE, solve_game,
1364     FALSE, game_can_format_as_text_now, game_text_format,
1365     new_ui,
1366     free_ui,
1367     encode_ui,
1368     decode_ui,
1369     game_changed_state,
1370     interpret_move,
1371     execute_move,
1372     PEG_PREFER_SZ, game_compute_size, game_set_size,
1373     game_colours,
1374     game_new_drawstate,
1375     game_free_drawstate,
1376     game_redraw,
1377     game_anim_length,
1378     game_flash_length,
1379     game_status,
1380     FALSE, FALSE, game_print_size, game_print,
1381     FALSE,                             /* wants_statusbar */
1382     FALSE, game_timing_state,
1383     0,                                 /* flags */
1384 };
1385
1386 /* vim: set shiftwidth=4 tabstop=8: */