elaborations.soar

00001 ##!
00002 # @file
00003 #
00004 # @kernel 7.3 No workey
00005 # @kernel 8.3 Feelin' fine.
00006 # 
00007 # @modified ray 20030127 TankSoar Here are some <b>comments</b>
00008 #   about this modification note. And here is a reference: 
00009 #   see @ref prod:elaborate*retreat*incoming*direction
00010 echo "\nLoading simple/elaborations.soar"
00011 
00012 ##!
00013 # @group tanksoar-elaborations
00014 #
00015 
00016 ###!
00017 # @type elaboration
00018 #
00019 # @brief Elaborate top-state
00020 # 
00021 # Adds <i>^name</i> = <b>tanksoar</b> attribute
00022 # to top state.
00023 #
00024 # @todo <b>THIS is BOLD</b> and <i>ITALIC</i>
00025 #
00026 # @ingroup tanksoar-elaborations
00027 
00028 ##!
00029 # this is a production
00030 
00031 #  test
00032 
00033 sp {elaborate*task*tanksoar
00034    (state <s> ^superstate nil)
00035    -->
00036    (<s> ^name tanksoar)}
00037 
00038 sp {elaborate*state*health*low
00039    (state <s> ^name tanksoar
00040               ^io.input-link.health <= 200)
00041    -->
00042    (<s> ^health-energy low)}
00043 
00044 ##!
00045 # @brief Detects low energy state.
00046 # 
00047 # @todo <b>THIS is BOLD</b> and <i>ITALIC</i>
00048 # @todo <b>THIS is BOLD</b> and <i>ITALIC</i>
00049 #
00050 # When low energy is detected 
00051 # (<i>^io.input-link.energy</i> <= <b>200</b>)
00052 # adds <i>^health-energy</i> = <b>low</b> attribute
00053 # to top state.
00054 #
00055 # @kernel 7.3 No workey
00056 # @kernel 8.3
00057 # @kernel 9.0 What!!!
00058 #
00059 # @problem-space tanksoar
00060 # @type elaboration
00061 # @ingroup tanksoar-elaborations
00062 sp {elaborate*state*energy*low
00063    (state <s> ^name tanksoar
00064               ^io.input-link.energy <= 200)
00065    -->
00066    (<s> ^health-energy low)}
00067 
00068 ## These are used in retreat/move.soar
00069 ##!
00070 # @brief Used in retreat\move.soar
00071 # 
00072 # @problem-space tanksoar
00073 # @type elaboration
00074 # @ingroup tanksoar-elaborations
00075 sp {elaborate*sidestep-directions
00076    (state <s> ^name tanksoar)
00077    -->
00078    (<s> ^side-direction <sd>)
00079    (<sd> ^forward right left ^backward right left
00080          ^right forward backward ^left forward backward)}