13 lines
460 B
Text
13 lines
460 B
Text
$NetBSD: patch-ac,v 1.1 2000/04/11 06:57:50 itohy Exp $
|
|
|
|
--- sokoban.fs.orig Tue May 5 02:04:25 1998
|
|
+++ sokoban.fs Mon Apr 10 22:35:30 2000
|
|
@@ -119,7 +119,7 @@
|
|
S" &* " S" .&$" r@ play-rule
|
|
IF r> soko +! 1 rocks +! -1 score +! EXIT THEN
|
|
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 move: soko-right
|