## Assignmen 1
## Teresa Brooks & Janet Cheng
## CS 630
## 2/21/2008

############################ Move-eater-around operator ############################
#
# Propose*move-north:
# If I exist, then propose the move-north operator.

sp {propose*move-north
   (state <s> ^io.input-link <ilink>)
   (<ilink> ^eater <e>
            ^my-location.north.content { <> wall })
   (<e> ^x <x> ^y <y>)
-->
   (<s> ^operator <o> + >) # give move north higher preference because when we first ran this agent a tie was produced between move-north and move-east
   (<o> ^name move-north)}

# Apply*move-north:
# If the move-north operator is selected, then generate an output command to 
# move north.

sp {apply*move-north
   (state <s> ^operator <o>
              ^io <io>)
   (<io> ^output-link <olink>)
   (<o> ^name move-north)
-->
   (<olink> ^move <move>)
   (<move> ^direction north)}


# Propose*move-east:
# If I exist, then propose the move-east operator.

sp {propose*move-east
   (state <s> ^io.input-link <ilink>)
   (<ilink> ^eater <e>
            ^my-location.east.content { <> wall }) # if we are moving east and there is a wall stop
   (<e> ^x <x> ^y <y>)
-->
   (<s> ^operator <o> +)
   (<o> ^name move-east)}

# Apply*move-east:
# If the move-east operator is selected, then generate an output command to 
# move east.

sp {apply*move-east
   (state <s> ^operator <o>
              ^io <io>)
   (<io> ^output-link <olink>)
   (<o> ^name move-east)
-->
   (<olink> ^move <move>) #attach command to the output link
   (<move> ^direction east)} # send command to move east on the output link
  
# propose*move-south

sp {propose*move-south
   (state <s> ^io.input-link <ilink>)
   (<ilink> ^eater <e>
            ^my-location.east.content {= wall}
            ^my-location.south.content {<> wall})
   (<e> ^x <x> ^y <y>)
-->
   (<s> ^operator <o> + >)
   (<o> ^name move-south)}

# apply*move-south

sp {apply*move-south
   (state <s> ^operator <o>
              ^io <io>)
   (<io> ^output-link <olink>)
   (<o> ^name move-south)
-->
   (<olink> ^move <move>)
   (<move> ^direction south)}

# propose*move-west

sp {propose*move-west
   (state <s> ^io.input-link <ilink>)
   (<ilink> ^eater <e>
            ^my-location.south.content {= wall}
            ^my-location.west.content {<> wall})
   (<e> ^x <x> ^y <y>)
-->
   (<s> ^operator <o> + >)
   (<o> ^name move-west)}

# apply*move-west

sp {apply*move-west
   (state <s> ^operator <o>
              ^io <io>)
   (<io> ^output-link <olink>)
   (<o> ^name move-west)
-->
   (<olink> ^move <move>)
   (<move> ^direction west)}

#select south better than north

sp {select*move*south*better*than*north
   (state <s> ^operator <o1> +
              ^operator <o2> +)
   (<o1> ^name move-south)
   (<o2> ^name move-north)
-->
   (<s> ^operator <o1> > <o2>)}

#select west better than north

sp {select*move*west*better*than*north
   (state <s> ^operator <o1> +
              ^operator <o2> +)
   (<o1> ^name move-west)
   (<o2> ^name move-north)
-->
   (<s> ^operator <o1> > <o2>)}

# apply*move-north*remove-move:

sp {apply*move-north*remove-move
   (state <s> ^operator.name move-north ^io.output-link <out>)
   (<out> ^move <move>)
   (<move> ^status complete)
-->
   (<out> ^move <move> -)}

# apply*move-east*remove-move:

sp {apply*move-east*remove-move
   (state <s> ^operator.name move-east ^io.output-link <out>)
   (<out> ^move <move>)
   (<move> ^status complete)
-->
   (<out> ^move <move> -)}