move ( board mov -- )

Vocabulary

multiple-board-demo

Inputs

board	an object
mov	an object

Outputs

None

Definition

USING: colors gamelib.board kernel math math.vectors sequences ;

IN: multiple-board-demo

:: move ( board mov -- )
    board [ COLOR: blue = ] find-cell-pos
    :> player-pos player-pos mov v+
    :> new-pos new-pos first 0 >= new-pos first 10 < and
    [ board player-pos new-pos move-entire-cell drop ] when ;