shields.soar

00001 echo "\nLoading all/shields.soar "
00002 
00003 ##!
00004 # @brief Elaborate shields on
00005 # 
00006 # Turn on shields when the they are currently
00007 # turned off and there is an incoming attack.
00008 #
00009 # @problem-space tanksoar
00010 # @type elaboration
00011 sp {elaborate*shields-on
00012    (state <s> ^name tanksoar
00013               ^io <io>)
00014    (<io> ^input-link <il>
00015          ^output-link <ol>)
00016    (<il> ^incoming.<dir> yes
00017          ^shield-status off)
00018    -->
00019    (<ol> ^shields.switch on)}
00020 
00021 ##!
00022 # @brief Elaborate shields off
00023 # 
00024 # Turn off shields when the they are currently
00025 # turned on and there is no incoming attack.
00026 #
00027 # @problem-space tanksoar
00028 # @type elaboration
00029 sp {elaborate*shields-off
00030    (state <s> ^name tanksoar
00031               ^io <io>)
00032    (<io> ^input-link <il>
00033          ^output-link <ol>)
00034    (<il> -^incoming.<dir> yes
00035           ^shield-status on)
00036    --> 
00037    (<ol> ^shields.switch off)}