Handbook
Glossary
board-two ( gadget -- gadget )
Vocabulary
gamelib
.
demos
.
sokoban
.
layouts
Inputs
gadget
an
object
Outputs
gadget
an
object
Definition
USING:
gamelib.board
gamelib.ui
sequences
;
IN:
gamelib.demos.sokoban.layouts
:
board-two
( gadget -- gadget )
22 11
make-board
{
11 8
}
player
add-to-cell
{
{
4 0
}
{
5 0
}
{
6 0
}
{
7 0
}
{
8 0
}
{
4 1
}
{
8 1
}
{
4 2
}
{
8 2
}
{
2 3
}
{
3 3
}
{
4 3
}
{
8 3
}
{
9 3
}
{
10 3
}
{
2 4
}
{
10 4
}
{
0 5
}
{
1 5
}
{
2 5
}
{
4 5
}
{
6 5
}
{
7 5
}
{
8 5
}
{
10 5
}
{
16 5
}
{
17 5
}
{
18 5
}
{
19 5
}
{
20 5
}
{
21 5
}
{
0 6
}
{
4 6
}
{
6 6
}
{
7 6
}
{
8 6
}
{
10 6
}
{
11 6
}
{
12 6
}
{
13 6
}
{
14 6
}
{
15 6
}
{
16 6
}
{
21 6
}
{
0 7
}
{
21 7
}
{
0 8
}
{
1 8
}
{
2 8
}
{
3 8
}
{
4 8
}
{
6 8
}
{
7 8
}
{
8 8
}
{
10 8
}
{
12 8
}
{
13 8
}
{
14 8
}
{
15 8
}
{
16 8
}
{
21 8
}
{
4 9
}
{
10 9
}
{
11 9
}
{
12 9
}
{
16 9
}
{
17 9
}
{
18 9
}
{
19 9
}
{
20 9
}
{
21 9
}
{
4 10
}
{
5 10
}
{
6 10
}
{
7 10
}
{
8 10
}
{
9 10
}
{
10 10
}
}
"vocab:gamelib/demos/sokoban/resources/Wall_Brown.png"
add-to-cells
{
{
19 6
}
{
20 6
}
{
19 7
}
{
20 7
}
{
19 8
}
{
20 8
}
}
"vocab:gamelib/demos/sokoban/resources/Goal.png"
add-to-cells
{
{
5 2
}
{
7 3
}
{
5 4
}
{
8 4
}
{
5 7
}
{
2 7
}
}
"vocab:gamelib/demos/sokoban/resources/Crate_Yellow.png"
make-crate
add-copy-to-cells
{
}
1sequence
add-board
;