radar-off.soar

00001 echo "\nLoading wander/radar-off.soar "
00002 
00003 ################################
00004 ### Propose radar-off operator
00005 ################################
00006 
00007 ##!
00008 # @brief Proposes radar-off operator
00009 # 
00010 # @problem-space wander
00011 # @operator radar-off
00012 # @type proposal
00013 sp {wander*propose*radar-off
00014    (state <s> ^name wander
00015               ^io.input-link <il>)
00016    (<il> ^radar-status on
00017          ^radar <r>)
00018   -(<r> ^ << energy health missiles tank >> <x>)
00019 -->
00020    (<s> ^operator <o> + >)
00021    (<o> ^name radar-off
00022               ^actions.radar.switch off)}
00023 
00024 ##!
00025 # @brief move vs. radar-off operator selection
00026 #
00027 # @desc move vs. radar-off operator selection
00028 # 
00029 # @problem-space wander
00030 # @operator radar-off move
00031 # @type selection
00032 sp {wander*select*radar-off*move
00033    (state <s> ^name wander
00034   ^operator <o1> +
00035               ^operator <o2> +)
00036    (<o1> ^name radar-off)
00037    (<o2> ^name move)
00038 -->
00039    (<s> ^operator <o1> > <o2>)}
00040