APT.all-test.MOUTBot.common.lie-prone.soar Maven / Gradle / Ivy

Go to download
#####################################
# file: lie-prone.soar
# created: REW: 2003-05-01
##
# Encode all the situations in which an agent should go to a prone position
#
# Change history:
#
#  [1] REW: 2003-05-01
#      General strategy is to only terminate these operators when
#      the position has changed.  Position needs to be input, but for
#      now we track it via ^self
#  [2] REW: 2003-05-01
#      Notional proposals for now (just testing)


# We can always assume that the agent starts in a body position
# other than prone
#sp {common*propose*lie-prone*test
#   (state  ^name execute-mission ^impossible
#              ^top-state.self )
#   ( ^body-position <> lie-prone)
#   -->
#   ( ^operator  +, >, = 90)
#   ( ^name lie-prone
#        ^actions.lie-prone true)
#}

sp {apply*lie-prone
   (state  ^operator 
              ^top-state )
   ( ^self               )
   ( ^body-position )
   ( ^name lie-prone
        ^actions )
-->
   (write (crlf) |Initiating move to lie-prone |)
   ( ^body-position  -  +)
}