ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/wm/sweeper.b/
implement Sweeper; # # michael@vitanuova.com # # Copyright © 2000 Vita Nuova Limited. All rights reserved. # Copyright © 2001 Vita Nuova Holdings Limited. All rights reserved. # include "sys.m"; sys: Sys; include "draw.m"; draw: Draw; Point, Rect, Image, Font, Context, Screen, Display: import draw; include "tk.m"; tk: Tk; Toplevel: import tk; include "tkclient.m"; tkclient: Tkclient; include "daytime.m"; daytime: Daytime; include "rand.m"; rand: Rand; stderr: ref Sys->FD; Sweeper: module { init: fn(ctxt: ref Draw->Context, argv: list of string); }; mainwin: ref Toplevel; score: int; mines: int; WIDTH: con 220; HEIGHT: con 220; EASY: con 20; SZB: con 10; SZI: con SZB+2; # internal board is 2 larger than visible board Cell: adt { mine, state: int; }; board: array of array of Cell; UNSELECTED, SELECTED, MARKED: con (1<<iota); init(ctxt: ref Draw->Context, nil: list of string) { sys = load Sys Sys->PATH; draw = load Draw Draw->PATH; tk = load Tk Tk->PATH; tkclient = load Tkclient Tkclient->PATH; daytime = load Daytime Daytime->PATH; rand = load Rand Rand->PATH; stderr = sys->fildes(2); rand->init(daytime->now()); daytime = nil; tkclient->init(); if(ctxt == nil) ctxt = tkclient->makedrawcontext(); (win, wmcmd) := tkclient->toplevel(ctxt, "", "Mine Sweeper", Tkclient->Hide); mainwin = win; sys->pctl(Sys->NEWPGRP, nil); cmdch := chan of string; tk->namechan(win, cmdch, "cmd"); display_board(); pid := -1; finished := 0; init_board(); tkclient->onscreen(win, nil); tkclient->startinput(win, "kbd"::"ptr"::nil); for (;;) { alt { s := <-win.ctxt.kbd => tk->keyboard(win, s); s := <-win.ctxt.ptr => tk->pointer(win, *s); c := <-win.ctxt.ctl or c = <-win.wreq or c = <- wmcmd => # wm commands case c { "exit" => if(pid != -1) kill(pid); exit; * => tkclient->wmctl(win, c); } c := <- cmdch => # tk commands (nil, toks) := sys->tokenize(c, " "); case hd toks { "b" => x := int hd tl toks; y := int hd tl tl toks; i := board_check(x, y); case i { -1 => display_mines(); display_lost(); finished = 1; 0 to 8 => if (finished) break; score++; board[x][y].state = SELECTED; display_square(x, y, sys->sprint("%d", i), "olive"); if (i == 0) { # check all adjacent zeros display_zeros(x, y); } display_score(); if (score+mines == SZB*SZB) { display_mines(); display_win(); finished = 1; } * => ; } cmd(mainwin, "update"); "b3" => x := int hd tl toks; y := int hd tl tl toks; mark_square(x, y); cmd(mainwin, "update"); "restart" => init_board(); display_score(); reset_display(); finished = 0; * => sys->fprint(stderr, "%s\n", c); } } } } display_board() { i, j: int; pack: string; for(i = 0; i < len win_config; i++) cmd(mainwin, win_config[i]); for (i = 1; i <= SZB; i++) { cmd(mainwin, sys->sprint("frame .f%d", i)); pack = ""; for (j = 1; j <= SZB; j++) { pack += sys->sprint(" .f%d.b%dx%d", i, i, j); cmd(mainwin, sys->sprint("button .f%d.b%dx%d -text { } -width 14 -command {send cmd b %d %d}", i, i, j, i, j)); cmd(mainwin, sys->sprint("bind .f%d.b%dx%d <ButtonRelease-3> {send cmd b3 %d %d}", i, i, j, i, j)); } cmd(mainwin, sys->sprint("pack %s -side left", pack)); cmd(mainwin, sys->sprint("pack .f%d -side top -fill x", i)); } for (i = 0; i < len win_config2; i++) cmd (mainwin, win_config2[i]); } reset_display() { for (i := 1; i <= SZB; i++) { for (j := 1; j <= SZB; j++) { s := sys->sprint(".f%d.b%dx%d configure -text { } -bg #dddddd -activebackground #eeeeee", i, i, j); cmd(mainwin, s); } } cmd(mainwin, "update"); } init_board() { i, j: int; score = 0; mines = 0; board = array[SZI] of array of Cell; for (i = 0; i < SZI; i++) board[i] = array[SZI] of Cell; # initialize board for (i = 0; i < SZI; i++) for (j =0; j < SZI; j++) { board[i][j].mine = 0; board[i][j].state = UNSELECTED; } # place mines for (i = 0; i < EASY; i++) { j = rand->rand(SZB*SZB); if (board[(j/SZB)+1][(j%SZB)+1].mine == 0) { # rand could yield same result twice board[(j/SZB)+1][(j%SZB)+1].mine = 1; mines++; } } cmd(mainwin, "update"); } display_score() { cmd(mainwin, ".f.l configure -text {Score: "+ sys->sprint("%d", score)+ "}"); } display_win() { cmd(mainwin, ".f.l configure -text {You have Won}"); } display_lost() { cmd(mainwin, ".f.l configure -text {You have Lost}"); } display_mines() { for (i := 1; i <= SZB; i++) for (j := 1; j <= SZB; j++) if (board[i][j].mine == 1) display_square(i, j, "M", "red"); } display_square(i, j: int, v: string, c: string) { cmd(mainwin, sys->sprint(".f%d.b%dx%d configure -text {%s} -bg %s -activebackground %s", i, i, j, v, c, c)); cmd(mainwin, "update"); } mark_square(i, j: int) { case board[i][j].state { UNSELECTED => board[i][j].state = MARKED; display_square(i, j, "?", "orange"); MARKED => board[i][j].state = UNSELECTED; display_square(i, j, " ", "#dddddd"); } } board_check(i, j: int) : int { if (board[i][j].mine == 1) return -1; if (board[i][j].state&(SELECTED|MARKED)) return -2; c := 0; for (x := i-1; x <= i+1; x++) for (y := j-1; y <= j+1; y++) if (board[x][y].mine == 1) c++; return c; } display_zeros(i, j: int) { for (x := i-1; x <= i+1; x++) { for (y := j-1; y <= j+1; y++) { if (x <1 || x>SZB || y<1 || y>SZB) continue; if (board_check(x, y) == 0) { score++; board[x][y].state = SELECTED; display_square(x, y, "0", "olive"); display_zeros(x, y); } } } } fatal(s: string) { sys->fprint(stderr, "%s\n", s); exit; } sleep(t: int) { sys->sleep(t); } kill(pid: int): int { fd := sys->open("#p/"+string pid+"/ctl", Sys->OWRITE); if(fd == nil) return -1; if(sys->write(fd, array of byte "kill", 4) != 4) return -1; return 0; } cmd(top: ref Toplevel, s: string): string { e := tk->cmd(top, s); if (e != nil && e[0] == '!') sys->fprint(stderr, "sweeper: tk error on '%s': %s\n", s, e); return e; } win_config := array[] of { "frame .f -width 220 -height 220", "menubutton .f.sz -text Options -menu .f.sz.sm", "menu .f.sz.sm", ".f.sz.sm add command -label restart -command { send cmd restart }", "pack .f.sz -side left", "label .f.l -text {Score: }", "pack .f.l -side right", "frame .ft", "label .ft.l -text { }", "pack .ft.l -side left", "pack .f -side top -fill x", "pack .ft -side top -fill x", }; win_config2 := array[] of { "pack propagate . 0", "update", };