APT.all-test.clean-house-new.common.go-to.set-waypoint.soar Maven / Gradle / Ivy

Go to download

sp {go-to*propose*set-waypoint
   (state  ^name go-to
             -^cross-doorway yes
              ^set-waypoint false)
-->
   ( ^operator  + =, >)
   ( ^name set-waypoint)
}

sp {apply*go-to*add-waypoint-output-link
#   :interrupt
   (state  ^operator.name set-waypoint
              ^top-state.io.output-link 
              ^destination )
   ( ^id 
        ^x 
        ^y )
--> (write (crlf) |Add waypoint: | )
    ( ^add-waypoint )
    ( ^id 
          ^x 
          ^y )
}

sp {apply*go-to*remove-waypoint-output-link
   (state  ^operator.name set-waypoint
              ^top-state.io 
              ^destination.id {  <>  })
   ( ^input-link.waypoints.waypoint.id 
         ^output-link )
-->
   (write (crlf) |Remove waypoint: |  | | )
   ( ^remove-waypoint.id )
}