retreat.soar

00001 echo "\nLoading simple/retreat.soar"
00002 
00003 ##!
00004 # @brief Proposes retreat operator
00005 # 
00006 # Proposes retreat when enemy tank is sensed
00007 # by sound and <i>^health-energy</i> is <b>low</b> 
00008 #
00009 # @problem-space tanksoar
00010 # @operator retreat
00011 # @type proposal
00012 sp {propose*retreat*sound
00013    (state <s> ^name tanksoar
00014               ^health-energy low
00015               ^io.input-link.sound {<direction> <> silent})
00016    -->
00017    (<s> ^operator <o> + =)
00018    (<o> ^name retreat)}
00019 
00020 ##!
00021 # @brief Proposes retreat operator
00022 # 
00023 # Proposes retreat when enemy tank is sensed
00024 # by radar and <i>^health-energy</i> is <b>low</b> 
00025 #
00026 # @problem-space tanksoar
00027 # @operator retreat
00028 # @type proposal
00029 sp {propose*retreat*radar
00030    (state <s> ^name tanksoar
00031               ^health-energy low
00032               ^io.input-link.radar.tank)
00033    -->
00034    (<s> ^operator <o> + =)
00035    (<o> ^name retreat)}
00036 
00037 ##!
00038 # @brief Proposes retreat operator
00039 # 
00040 # Proposes retreat when incoming attack is sensed
00041 # and <i>^health-energy</i> is <b>low</b> 
00042 #
00043 # @problem-space tanksoar
00044 # @operator retreat
00045 # @type proposal
00046 sp {propose*retreat*incoming
00047    (state <s> ^name tanksoar
00048               ^health-energy low
00049               ^io.input-link.incoming.<dir> yes)
00050    -->
00051    (<s> ^operator <o> + =)
00052    (<o> ^name retreat)}
00053 
00054 pushd "retreat"
00055 source "source.soar"
00056 popd
00057