blob: a87beb665542bfef9ed2a77813d3fc50aac128fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$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
|
