gforth/sokoban.fs - diff

Return to sokoban.fs CVS log

Up to [gforth] / gforth

version 1.5, 2003/03/09 12:54:33	version 1.7, 2003/09/15 16:09:02
Line 1	Line 1
\ sokoban - a maze game in FORTH	\ sokoban - a maze game in FORTH

\ Copyright (C) 1995,1997,1998 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,1998,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 137 Variable score 0 score ! \ total nu	Line 137 Variable score 0 score ! \ total nu
S" &* " S" .&$" r@ play-rule	S" &* " S" .&$" r@ play-rule
IF r> soko +! 1 rocks +! -1 score +! EXIT THEN	IF r> soko +! 1 rocks +! -1 score +! EXIT THEN
S" &$." S" .@*" r@ play-rule	S" &$." S" .@*" r@ play-rule
IF r> soko +! 1 rocks +! -1 score +! EXIT THEN	IF r> soko +! -1 rocks +! 1 score +! EXIT THEN
-1 moves +! r> drop ;	-1 moves +! r> drop ;

1 move: soko-right	1 move: soko-right