open-cell-at ( cells row col -- ? )

Vocabulary

minesweeper

Inputs

cells	an object
row	an object
col	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: minesweeper

:: open-cell-at ( cells row col -- ? )
    cells row col cell-at [
        state>> +clicked+ = [
            cells row col
            [ adjacent-flags ] [ adjacent-mines ] 3bi =
            [ cells row col click-cells-around ] when
        ] when t
    ] [ f ] if* ;