check-win ( board -- ? )

Vocabulary

gamelib.demos.sokoban.loop

Inputs

board

an object

Outputs

?

an object

Definition

USING: gamelib.board gamelib.demos.sokoban.layouts kernel
sequences ;

IN: gamelib.demos.sokoban.loop

:: check-win ( board -- ? )
    board
    [ crate-cell cell-contains-instance? ] find-all-cells-nopos
    :> seq seq length 0 = not seq
    [ dark-crate make-crate cell-contains? ] all? and ;