[gforth] / gforth / sokoban.fs  

gforth: gforth/sokoban.fs

Diff for /gforth/sokoban.fs between version 1.6 and 1.7

version 1.6, Sun Mar 9 15:16:52 2003 UTC version 1.7, Mon Sep 15 16:09:02 2003 UTC
Line 137 
Line 137 
         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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help