APT.all-test.HauntBot.behavior.unlock.elaborations.soar Maven / Gradle / Ivy

Go to download

sp {unlock*elaborate*path-distance
   (state  ^operator  +
              ^io.input-link.agent.position )
   ( ^target.position 
        ^tool.position )
   ( ^x 
                 ^y )
   ( ^x 
               ^y )
   ( ^x 
                ^y )
-->
   ( ^path-distance (+ (compute-range    )
                          (compute-range    )))
}


### If a key is tried on a lock and doesn't work, remember 
### so that it won't be tried again.
sp {unlock*elaborate*propose*bad-key
   (state  ^name unlock
              ^io 
              ^top-state )
   ( ^object-list.<< decoration item >> 
         ^status.decoration )
   ( ^output-link.use-with.object 
         ^input-link.messages.message.phrase )
   ( ^name 
         -^bad-key )
   ( ^name )
   ( ^word |This|
         ^next )
   ( ^word |key|
         ^next )
   ( ^word |does|
         ^next )
   ( ^word |not|
         ^next )
   ( ^word |fit|
         ^next )
   ( ^word |in|
         ^next )
   ( ^word |the|
         ^next )
   ( ^word |lock|)
-->
   (write (crlf) |The |  | doesn't fit in the |  |!!!|)
   ( ^operator  + >,=)
   ( ^name mark-bad-key
        ^object 
        ^key )
}

sp {unlock*elaborate*apply*bad-key
   (state  ^operator )
   ( ^name mark-bad-key
        ^object 
        ^key )
-->
   (write (crlf) |Applying mark-bad-key|)
   ( ^bad-key )
}