• STRIPS V2 ............ recursive sub plans

    From Graham Cooper@21:1/5 to All on Mon Jul 19 07:10:51 2021
    menu
    -look me
    -echo newline
    -echo newline
    -echo QUERY do me go castle

    list A
    -A B C D
    -print A
    -print B
    -print C
    -print D
    -echo newline
    -clear B
    -clear C
    -clear D
    -next
    -list A B C D

    look P
    -echo LOOK
    -echo newline
    -print P
    -echo is at
    -at R P
    -print R
    -echo newline
    -echo you can go
    -printcon1 R
    -echo newline
    -echo roads lead here
    -printcon2 R
    -echo newline
    -echo you can see
    -printsee R
    -echo newline
    -echo newline
    -list at

    printcon1 R
    -if
    -con R B
    -print B
    -clear B
    -next
    -printcon1 R
    -endif

    printcon2 R
    -if
    -con B R
    -print B
    -clear B
    -next
    -printcon2 R
    -endif

    printsee R
    -if
    -at R A
    -print A
    -clear A
    -next
    -printsee R
    -endif



    c me go castle

    do P F X Y
    -doo P F X Y Z
    -echo newline
    -print Z
    -echo newline
    -echo newline
    -look P






    doo P F X Y Z
    -clear A
    -clear B
    -clear G
    -clear Q
    -clear R
    -clear M
    -strips F M G A B
    -if
    -bigger z A
    -let Q A
    -endif
    -if
    -bigger z B
    -let R B
    -endif
    -if
    -eq A zzp
    -let Q P
    -endif
    -if
    -eq B zzp
    -let R P
    -endif
    -if
    -eq A zz33
    -let Q S
    -endif
    -if
    -eq B zz33
    -let R S
    -endif
    -if
    -eq A zz1
    -let Q X
    -endif
    -if
    -eq A zz2
    -let Q Y
    -endif
    -if
    -eq B zz1
    -let R X
    -endif
    -if
    -eq B zz2
    -let R Y
    -endif
    -if
    -eq M void
    -let Z confirm
    -if
    -G Q R
    -let Z deny
    -endif
    -if
    -eq M pre
    -let Z deny
    -if
    -G Q R
    -let Z confirm
    -endif
    -if
    -eq M add
    -assert G Q R
    -endif
    -if
    -eq M del
    -remove G Q R
    -endif
    -if
    -eq M plan
    -echo newline
    -echo PLAN
    -print P
    -print G
    -echo newline
    -echo SUBPLAN
    -echo newline
    -doo2 P G Q R Z
    -let Z confirm
    -endif
    -print G
    -print Q
    -print R
    -print Z
    -echo newline
    -if
    -eq A zz3
    -let S Q
    -endif
    -if
    -eq B zz3
    -let S R
    -endif
    -clear Q
    -clear R
    -next
    -if
    -eq Z confirm
    -doo P F X Y Z
    -endif










    doo2 C D H I Z
    -clear J
    -clear K
    -clear L
    -clear N
    -clear O
    -clear U
    -strips D U L J K
    -if
    -bigger z J
    -let N J
    -endif
    -if
    -bigger z K
    -let O K
    -endif
    -if
    -eq J zzp
    -let N C
    -endif
    -if
    -eq K zzp
    -let O C
    -endif
    -if
    -eq J zz33
    -let N T
    -endif
    -if
    -eq K zz33
    -let O T
    -endif
    -if
    -eq J zz1
    -let N H
    -endif
    -if
    -eq J zz2
    -let N I
    -endif
    -if
    -eq K zz1
    -let O H
    -endif
    -if
    -eq K zz2
    -let O I
    -endif
    -if
    -eq U void
    -let Z confirm
    -if
    -L N O
    -let Z deny
    -endif
    -if
    -eq U pre
    -let Z deny
    -if
    -L N O
    -let Z confirm
    -endif
    -if
    -eq U add
    -assert L N O
    -endif
    -if
    -eq U del
    -remove L N O
    -endif
    -if
    -eq U plan
    -echo newline
    -echo PLAN
    -print U
    -print L
    -echo newline
    -doo2 P L N O
    -let Z confirm
    -endif
    -print L
    -print N
    -print O
    -print Z
    -echo newline
    -if
    -eq J zz3
    -let T N
    -endif
    -if
    -eq K zz3
    -let T O
    -endif
    -clear N
    -clear O
    -next
    -if
    -eq Z confirm
    -doo2 C D H I Z
    -endif

    sym
    -remove conn
    -sym1
    -sym2

    sym1
    -con A B
    -assert conn B A
    -clear A
    -clear B
    -next
    -sym1

    sym2
    -conn A B
    -assert con A B
    -clear A
    -clear B
    -next
    -sym2


    c
    at base me
    at base sword
    at forrest dragon
    con start fin
    con base tunnel
    con base castle
    con castle river
    con river tunnel
    con tunnel forrest
    locked tunnel
    strips go pre at zz3 zzp
    strips go pre con zz33 zz1
    strips go void locked zz1
    strips go del at zz33 zzp
    strips go add at zz1 zzp
    strips grab pre at zz3 zzp
    strips grab pre at zz33 zz1
    strips grab del at zz33 zz1
    strips grab add at hand zz1
    strips drop pre at zz3 zzp
    strips drop add at zz33 zz1
    strips drop del at hand zz1
    strips move plan grab zz2
    strips move plan go zz1
    strips move plan drop zz2

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)