elaborations.soar

00001 echo "\nLoading retreat/elaborations.soar"
00002 
00003 ##################################
00004 ## Compute enemy direction from sound, radar, or incoming
00005 ##################################
00006 
00007 ##!
00008 # @brief Detects sounds while in retreat
00009 # 
00010 # @problem-space retreat
00011 # @type elaboration
00012 sp {elaborate*retreat*sound*direction
00013    (state <s> ^name retreat
00014               ^io.input-link.sound { <> silent <direction> })
00015    -->
00016    (<s> ^direction <direction>)}
00017 
00018 ##!
00019 # @brief Detects enemy while in retreat
00020 #
00021 # 
00022 # @problem-space retreat
00023 # @type elaboration
00024 sp {elaborate*retreat*radar*front
00025    (state <s> ^name retreat
00026               ^io.input-link.radar.tank)
00027    -->
00028    (<s> ^direction forward)}
00029 
00030 ##!
00031 # @brief Detects incoming while in retreat
00032 #
00033 # 
00034 # @problem-space retreat
00035 # @type elaboration
00036 sp {elaborate*retreat*incoming*direction
00037    (state <s> ^name retreat
00038               ^io.input-link.incoming.<dir> yes)
00039    -->
00040    (<s> ^direction <dir>)}
00041 
00042 ##!
00043 # @brief Detects enemy while in retreat
00044 #
00045 # Determines which direction to avoid while in retreat.
00046 # 
00047 # @problem-space retreat
00048 # @type elaboration
00049 sp {elaborate*retreat*radar*direction
00050    (state <s> ^name retreat
00051               ^io.input-link.radar.tank.position { <dir> <> center })
00052    -->
00053    (<s> ^avoid-direction <dir>)}
00054