diff options
Diffstat (limited to 'appl/wm/tetris.b')
| -rw-r--r-- | appl/wm/tetris.b | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/appl/wm/tetris.b b/appl/wm/tetris.b index ddde1a17..0ef16b2b 100644 --- a/appl/wm/tetris.b +++ b/appl/wm/tetris.b @@ -438,10 +438,8 @@ Game.rotate(g: self ref Game, clockwise: int) npiece.rot = (npiece.rot + inc + nrots) % nrots; if (canmove(g, npiece, g.pos)) { c := coords[npiece.rot]; - for (i := 0; i < len c; i++) { - np := g.pos.add(c[i]); + for (i := 0; i < len c; i++) g.bd.moveblock(g.pieceids[i], g.pos.add(c[i])); - } g.curr = npiece; g.bd.update(); } @@ -525,7 +523,7 @@ canmove(g: ref Game, piece: Piece, p: Point): int newpiece(g: ref Game) { - piece := g.curr = g.next; + g.curr = g.next; g.next = randompiece(); g.bd.setnextshape(shapes[g.next.shape].colour, shapes[g.next.shape].coords[g.next.rot]); shape := shapes[g.curr.shape]; @@ -582,7 +580,7 @@ makescorewidget(top: ref Tk->Toplevel, w, title: string) cmd(top, "frame " + w); cmd(top, "label " + w + ".title -text " + tk->quote(title)); cmd(top, "label " + w + - ".val -bd 3 -relief sunken -width 5w -text 0 -anchor e"); + ".val -bd 2 -relief sunken -width 5w -text 0 -anchor e"); cmd(top, "pack " + w + ".title -side left -anchor w"); cmd(top, "pack " + w + ".val -side right -anchor e"); } @@ -619,7 +617,7 @@ Board.landedblock(bd: self ref Board, b: string, p: Point) rs := cmd(bd.win, bd.w + ".c coords " + b); if (rs != nil && rs[0] == '!') return; - (n, toks) := sys->tokenize(rs, " "); + (nil, toks) := sys->tokenize(rs, " "); if (len toks != 4) { sys->fprint(stderr, "bad coords for block %s\n", b); return; |