move.soar

00001 echo "\nLoading retreat/move.soar"
00002 
00003 ##!
00004 # @brief Proposes move operator
00005 # 
00006 # Proposes move towards unblocked location.
00007 #
00008 # @problem-space retreat
00009 # @operator move
00010 # @type proposal
00011 sp {retreat*propose*move
00012    (state <s> ^name retreat
00013               ^direction <dir>
00014 	      ^superstate.side-direction.<dir> <ndir>
00015 	     -^direction <ndir>
00016 	     -^avoid-direction <ndir>
00017              ^io.input-link.blocked.<ndir> no)
00018    -->
00019    (<s> ^operator <o> + =)
00020    (<o> ^name move
00021         ^actions.move.direction <ndir>)}