CONSTANT: dark-crate "vocab:gamelib/demos/sokoban/resources/CrateDark_Yellow.png"
TUPLE: crate-cell < cell-object image-path ;
+
M: crate-cell draw-cell-object*
rot [ image-path>> load-image ] dip <texture> draw-scaled-texture ;
: board-one ( gadget -- gadget )
8 9 make-board
-
+
{ 2 2 } player add-to-cell
{
{ 2 1 } $ light-crate make-crate add-to-cell
- { 3 1 } $ goal add-to-cell
+ { 3 1 } $ goal add-to-cell
{ } 1sequence