~ubuntu-branches/ubuntu/natty/gtkboard/natty

game_doc_rules = "Two players take turns in placing dominoes on the board. The first player places them vertically and the second horizontally. To place a domino, press the mouse button on a square, drag the mouse to the adjacent square and release the mouse button. The goal is to be the last player to place a domino; the game ends when it becomes obvious who the winner is.";

264

game_doc_strategy = "Make parallel columns of dominoes such that you will be able to play in between the columns but the opponent won't.";

265

}

266

267

static int incx[] = { -1, -1, -1, 0, 0, 1, 1, 1};

268

static int incy[] = { -1, 0, 1, -1, 1, -1, 0, 1};

269

270

ResultType stopgate_who_won (Pos *pos, Player player, char ** commp)

271

{

272

char *who_str[2] = {"Vertical won", "Horizontal won"};

273

int wscore, bscore, i, j;

274

float eval;

275

ResultType result;

276

result = stopgate_eval (pos, player, &eval);

277

if (result == RESULT_WHITE) *commp = who_str[0];

278

if (result == RESULT_BLACK) *commp = who_str[1];

279

return result;

280

}

281

282

#define EVAL_ISEMPTY(x, y) ((ISINBOARD((x), (y))) && (board[(y) * board_wid + (x)] == STOPGATE_EMPTY))

283

284

#define EVAL_OPENSQUARE(x, y) (EVAL_ISEMPTY ((x), (y)) && (EVAL_ISEMPTY ((x)-1,(y)) || EVAL_ISEMPTY ((x)+1, (y))) && (EVAL_ISEMPTY ((x),(y)-1) || EVAL_ISEMPTY ((x), (y)+1)))

285

286

enum {

287

REGION_WHITE = STOPGATE_NUM_PIECES + 1,

288

REGION_BLACK,

289

REGION_OPEN_X = 1 << 4,

290

REGION_OPEN_Y = 1 << 5,

291

};

292

293

294

295

static int regions[STOPGATE_BOARD_WID * STOPGATE_BOARD_HEIT];

296

297

/* Find which regions are open, which are vertical (REGION_WHITE) and which

298

are horizontal (REGION_BLACK)

299

clever algo that avoids a queue: every square in an open region must

300

be on a straight line from a square which has unfilled nbrs in both directions

301

302

static void find_regions (byte *board)

303

{

304

int i, j;

305

static int count = 0;

306

for (i=0; i<board_wid*board_heit; i++)

307

regions[i] = 0;

308

for (i=0; i < board_wid; i++)

309

for (j=0; j < board_heit; j++)

310

{

311

int x;

312

if (regions [j * board_wid + i] & REGION_OPEN_X)

313

continue;

314

if (EVAL_OPENSQUARE (i, j))

315

{

316

for (x=i; EVAL_ISEMPTY (x, j); x++)

317

regions [j * board_wid + x] |= REGION_OPEN_X;

318

for (x=i; EVAL_ISEMPTY (x, j); x--)

319

regions [j * board_wid + x] |= REGION_OPEN_X;

320

}

321

}

322

for (i=0; i < board_wid; i++)

323

for (j=0; j < board_heit; j++)

324

{

325

int y;

326

if (regions [j * board_wid + i] & REGION_OPEN_Y)

327

continue;

328

if (EVAL_OPENSQUARE (i, j))

329

{

330

for (y=j; EVAL_ISEMPTY (i, y); y++)

331

regions [y * board_wid + i] |= REGION_OPEN_Y;

332

for (y=j; EVAL_ISEMPTY (i, y); y--)

333

regions [y * board_wid + i] |= REGION_OPEN_Y;

334

}

335

}

336

for (i=0; i < board_wid; i++)

337

for (j=0; j < board_heit; j++)

338

if (board [j * board_wid + i] == 0 && regions[j * board_wid + i] == 0)

339

{

340

if (EVAL_ISEMPTY (i,j+1) || EVAL_ISEMPTY (i,j-1))

341

regions[j * board_wid + i] = REGION_WHITE;

342

else if (EVAL_ISEMPTY (i+1,j) || EVAL_ISEMPTY (i-1,j))

343

regions[j * board_wid + i] = REGION_BLACK;

344

}

345

// TODO: find the lengths of the runs also

346

}

347

348

349

byte * stopgate_movegen (Pos *pos)

350

{

351

int i, j;

352

byte movbuf [512], *movp = movbuf, *movlist;

353

byte *board = pos->board;

354

Player player = pos->player;

355

for (i=0; i<board_wid; i++)

356

for (j=0; j<board_heit; j++)

357

{

358

int incx = (player == WHITE ? 0 : 1), incy = (player == WHITE ? 1 : 0);

359

if (board [j * board_wid + i] != STOPGATE_EMPTY) continue;

360

if (!ISINBOARD (i + incx, j + incy)) continue;

361

if (pos->board [(j + incy) * board_wid + (i + incx)] != STOPGATE_EMPTY) continue;

362

if (!EVAL_OPENSQUARE (i, j) && !EVAL_OPENSQUARE (i + incx, j + incy))

363

continue;

364

*movp++ = i;

365

*movp++ = j;

366

*movp++ = (player == WHITE ? STOPGATE_NORTH : STOPGATE_EAST);

367

*movp++ = i + incx;

368

*movp++ = j + incy;

369

*movp++ = (player == WHITE ? STOPGATE_SOUTH : STOPGATE_WEST);

370

*movp++ = -1;

371

}

372

*movp++ = -2;

373

movlist = (byte *) (malloc (movp - movbuf));

374

memcpy (movlist, movbuf, (movp - movbuf));

375

return movlist;

376

}

377

378

379

ResultType stopgate_eval (Pos *pos, Player player, float *eval)

380

{

381

int i, j;

382

float val = 0;

383

gboolean wfound = FALSE, bfound = FALSE, openfound = FALSE;

384

int run_len=0;

385

int run_eval_w = 0, run_eval_b = 0;

386

byte *board = pos->board;

387

find_regions (board);

388

for (i=0; i<board_wid; i++)

389

{

390

for (j=0; j<board_heit; j++)

391

if (regions[j * board_wid + i] == REGION_WHITE)

392

run_len++;

393

else

394

{

395

run_eval_w += 2 * (run_len / 2);

396

run_len = 0;

397

}

398

run_eval_w += 2 * (run_len / 2);

399

run_len = 0;

400

}

401

for (j=0; j<board_heit; j++)

402

{

403

for (i=0; i<board_wid; i++)

404

if (regions[j * board_wid + i] == REGION_BLACK)

405

run_len++;

406

else

407

{

408

run_eval_b += 2 * (run_len / 2);

409

run_len = 0;

410

}

411

run_eval_b += 2 * (run_len / 2);

412

run_len = 0;

413

}

414

val = run_eval_w - run_eval_b;

415

/* if (++count == 5000)

416

{

417

count = 0;

418

val = run_eval_w - run_eval_b;

419

printf ("%d, %d\n", run_eval_w, run_eval_b);

420

for (j=board_heit-1; j>=0; j--)

421

{

422

for (i=0; i<board_wid; i++)

423

{

424

if (board [j * board_wid + i])

425

printf (" #");

426

else if (regions[j * board_wid + i] == REGION_WHITE)

427

printf (" W");

428

else if (regions[j * board_wid + i] == REGION_BLACK)

429

printf (" B");

430

else printf (" _");

431

}

432

printf ("\n");

433

}

434

printf ("\n");

435

}

436

437

for (i=0; i<board_wid; i++)

438

for (j=0; j<board_heit; j++)

439

{

440

if (board [j * board_wid + i] != STOPGATE_EMPTY) continue;

441

if (regions[j * board_wid + i] == REGION_WHITE)

442

wfound = TRUE;

443

else if (regions[j * board_wid + i] == REGION_BLACK)

444

bfound = TRUE;

445

else

446

{

447

if (EVAL_ISEMPTY (i, j+1) || EVAL_ISEMPTY (i, j-1))

448

{

449

val++;

450

wfound = TRUE;

451

openfound = TRUE;

452

}

453

if (EVAL_ISEMPTY (i+1, j) || EVAL_ISEMPTY (i-1, j))

454

{

455

val--;

456

bfound = TRUE;

457

openfound = TRUE;

458

}

459

}

460

}

461

if (!openfound)

462

{

463

val += (player == WHITE ? -1 : 1);

464

*eval = val;

465

return val > 0 ? RESULT_WHITE : RESULT_BLACK;

466

}

467

if (player == WHITE && !wfound)

468

{

469

*eval = (val-1);

470

return RESULT_BLACK;

471

}

472

if (player == BLACK && !bfound)

473

{

474

*eval = (val+1);

475

return RESULT_WHITE;

476

}

477

*eval = val + 0.01 * random () / RAND_MAX;

478

return RESULT_NOTYET;

479

}

480

481

int stopgate_getmove (Pos *pos, int x, int y, GtkboardEventType type, Player to_play,

482

byte **movp, int **rmovp)

483

{

484

int i, j, sw_len, found=0;

485

static byte move[128];

486

byte *mp = move;

487

int diffx, diffy, dir1 = -1, dir2 = -1;

488

if (type == GTKBOARD_BUTTON_PRESS)

489

{

490

if (pos->board [y * board_wid + x] != STOPGATE_EMPTY)

491

return -1;

492

stopgate_curx = x;

493

stopgate_cury = y;

494

return 0;

495

}

496

if (type != GTKBOARD_BUTTON_RELEASE)

497

return 0;

498

if (stopgate_curx < 0) return -1;

499

diffx = x - stopgate_curx;

500

diffy = y - stopgate_cury;

501

if (to_play == WHITE && diffx == 0 && diffy == 1)

502

dir1 = STOPGATE_NORTH, dir2 = STOPGATE_SOUTH;

503

else if (to_play == WHITE && diffx == 0 && diffy == -1)

504

dir1 = STOPGATE_SOUTH, dir2 = STOPGATE_NORTH;

505

else if (to_play == BLACK && diffx == 1 && diffy == 0)

506

dir1 = STOPGATE_EAST, dir2 = STOPGATE_WEST;

507

else if (to_play == BLACK && diffx == -1 && diffy == 0)

508

dir1 = STOPGATE_WEST, dir2 = STOPGATE_EAST;

509

else

510

{

511

stopgate_curx = stopgate_cury = -1;

512

return -1;

513

}

514

if (pos->board [y * board_wid + x] != STOPGATE_EMPTY)

515

{

516

stopgate_curx = stopgate_cury = -1;

517

return -1;

518

}

519

*mp++ = stopgate_curx;

520

*mp++ = stopgate_cury;

521

*mp++ = dir1;

522

*mp++ = x;

523

*mp++ = y;

524

*mp++ = dir2;

525

*mp++ = -1;

526

*movp = move;

527

return 1;

528

}

529

530

531

Older »