• *DO ME GRAB SWORD*

    From Graham Cooper@21:1/5 to All on Mon Jul 19 04:08:42 2021
    at base me confirm
    at base sword confirm
    at base sword confirm
    at hand sword confirm

    confirm

    LOOK
    me is at base
    you can go tunnel castle
    roads lead here
    you can see me

    at base me
    at forrest dragon
    at hand sword

    do me grab sword

    YES



    8 do me grab sword
    P=me
    F=grab
    X=sword
    Y=
    do me grab sword

    8 1 doo P F X Y Z
    9 doo me grab sword
    P=me
    F=grab
    X=sword
    doo me grab sword

    9 1 strips F M G A B
    29 strips grab M G
    M=pre
    G=at
    A=zz3
    strips grab pre at

    9 2 if
    9 3 bigger z A
    9 6 if
    9 7 bigger z B
    9 10 if
    9 11 eq A zzp
    9 14 if
    9 15 eq B zzp
    9 16 let R P
    9 17 endif
    9 18 if
    9 19 eq A zz33
    9 22 if
    9 23 eq B zz33
    9 26 if
    9 27 eq A zz1
    9 30 if
    9 31 eq A zz2
    9 34 if
    9 35 eq B zz1
    9 38 if
    9 39 eq B zz2
    9 42 if
    9 43 eq M void
    9 49 if
    9 50 eq M pre
    9 51 let Z deny
    9 52 if
    9 53 G Q R
    14 at Q me
    Q=base
    at base me

    9 54 let Z confirm
    9 55 endif
    9 56 if
    9 57 eq M add
    9 60 if
    9 61 eq M del
    9 64 if
    9 65 eq M plan
    9 68 print G
    9 69 print Q
    9 70 print R
    9 71 print Z
    9 72 echo newline
    9 73 if
    9 74 eq A zz3
    9 75 let S Q
    9 76 endif
    9 77 if
    9 78 eq B zz3
    9 81 clear A
    9 82 clear B
    9 83 clear G
    9 84 clear Q
    9 85 clear R
    9 86 clear M
    9 87 next
    9 88 if
    9 89 eq Z confirm
    9 90 doo P F X Y Z
    9 doo me grab sword
    P=me
    F=grab
    X=sword
    doo me grab sword

    9 1 strips F M G A B
    30 strips grab M G
    M=pre
    G=at
    A=zz33
    strips grab pre at

    9 2 if
    9 3 bigger z A
    9 6 if
    9 7 bigger z B
    9 10 if
    9 11 eq A zzp
    9 14 if
    9 15 eq B zzp
    9 18 if
    9 19 eq A zz33
    9 20 let Q S
    9 21 endif
    9 22 if
    9 23 eq B zz33
    9 26 if
    9 27 eq A zz1
    9 30 if
    9 31 eq A zz2
    9 34 if
    9 35 eq B zz1
    9 36 let R X
    9 37 endif
    9 38 if
    9 39 eq B zz2
    9 42 if
    9 43 eq M void
    9 49 if
    9 50 eq M pre
    9 51 let Z deny
    9 52 if
    9 53 G Q R
    15 at base sword
    at base sword

    9 54 let Z confirm
    9 55 endif
    9 56 if
    9 57 eq M add
    9 60 if
    9 61 eq M del
    9 64 if
    9 65 eq M plan
    9 68 print G
    9 69 print Q
    9 70 print R
    9 71 print Z
    9 72 echo newline
    9 73 if
    9 74 eq A zz3
    9 77 if
    9 78 eq B zz3
    9 81 clear A
    9 82 clear B
    9 83 clear G
    9 84 clear Q
    9 85 clear R
    9 86 clear M
    9 87 next
    9 88 if
    9 89 eq Z confirm
    9 90 doo P F X Y Z
    9 doo me grab sword
    P=me
    F=grab
    X=sword
    doo me grab sword

    9 1 strips F M G A B
    31 strips grab M G
    M=del
    G=at
    A=zz33
    strips grab del at

    9 2 if
    9 3 bigger z A
    9 6 if
    9 7 bigger z B
    9 10 if
    9 11 eq A zzp
    9 14 if
    9 15 eq B zzp
    9 18 if
    9 19 eq A zz33
    9 20 let Q S
    9 21 endif
    9 22 if
    9 23 eq B zz33
    9 26 if
    9 27 eq A zz1
    9 30 if
    9 31 eq A zz2
    9 34 if
    9 35 eq B zz1
    9 36 let R X
    9 37 endif
    9 38 if
    9 39 eq B zz2
    9 42 if
    9 43 eq M void
    9 49 if
    9 50 eq M pre
    9 56 if
    9 57 eq M add
    9 60 if
    9 61 eq M del
    9 62 remove G Q R
    9 63 endif
    9 64 if
    9 65 eq M plan
    9 68 print G
    9 69 print Q
    9 70 print R
    9 71 print Z
    9 72 echo newline
    9 73 if
    9 74 eq A zz3
    9 77 if
    9 78 eq B zz3
    9 81 clear A
    9 82 clear B
    9 83 clear G
    9 84 clear Q
    9 85 clear R
    9 86 clear M
    9 87 next
    9 88 if
    9 89 eq Z confirm
    9 90 doo P F X Y Z
    9 doo me grab sword
    P=me
    F=grab
    X=sword
    doo me grab sword

    9 1 strips F M G A B
    32 strips grab M G
    M=add
    G=at
    A=hand
    strips grab add at

    9 2 if
    9 3 bigger z A
    9 4 let Q A
    9 5 endif
    9 6 if
    9 7 bigger z B
    9 10 if
    9 11 eq A zzp
    9 14 if
    9 15 eq B zzp
    9 18 if
    9 19 eq A zz33
    9 22 if
    9 23 eq B zz33
    9 26 if
    9 27 eq A zz1
    9 30 if
    9 31 eq A zz2
    9 34 if
    9 35 eq B zz1
    9 36 let R X
    9 37 endif
    9 38 if
    9 39 eq B zz2
    9 42 if
    9 43 eq M void
    9 49 if
    9 50 eq M pre
    9 56 if
    9 57 eq M add
    9 58 assert G Q R
    9 59 endif
    9 60 if
    9 61 eq M del
    9 64 if
    9 65 eq M plan
    9 68 print G
    9 69 print Q
    9 70 print R
    9 71 print Z
    9 72 echo newline
    9 73 if
    9 74 eq A zz3
    9 77 if
    9 78 eq B zz3
    9 81 clear A
    9 82 clear B
    9 83 clear G
    9 84 clear Q
    9 85 clear R
    9 86 clear M
    9 87 next
    9 88 if
    9 89 eq Z confirm
    9 90 doo P F X Y Z
    9 doo me grab sword
    P=me
    F=grab
    X=sword
    doo me grab sword

    9 1 strips F M G A B
    9 91 endif
    9 91 endif
    9 91 endif
    8 2 echo newline
    8 3 print Z
    8 4 echo newline
    8 5 echo newline
    8 6 look P
    3 look me
    P=me
    look me

    3 1 echo LOOK
    3 2 echo newline
    3 3 print P
    3 4 echo is at
    3 5 at R P
    14 at R me
    R=base
    at base me

    3 6 print R
    3 7 echo newline
    3 8 echo you can go
    3 9 printcon1 R
    4 printcon1 base
    R=base
    printcon1 base

    4 1 if
    4 2 con R B
    18 con base B
    B=tunnel
    con base tunnel

    4 3 print B
    4 4 clear B
    4 5 next
    4 6 printcon1 R
    4 printcon1 base
    R=base
    printcon1 base

    4 1 if
    4 2 con R B
    19 con base B
    B=castle
    con base castle

    4 3 print B
    4 4 clear B
    4 5 next
    4 6 printcon1 R
    4 printcon1 base
    R=base
    printcon1 base

    4 1 if
    4 2 con R B
    4 7 endif
    4 7 endif
    3 10 echo newline
    3 11 echo roads lead here
    3 12 printcon2 R
    5 printcon2 base
    R=base
    printcon2 base

    5 1 if
    5 2 con B R
    3 13 echo newline
    3 14 echo you can see
    3 15 printsee R
    6 printsee base
    R=base
    printsee base

    6 1 if
    6 2 at R A
    14 at base A
    A=me
    at base me

    6 3 print A
    6 4 clear A
    6 5 next
    6 6 printsee R
    6 printsee base
    R=base
    printsee base

    6 1 if
    6 2 at R A
    6 7 endif
    3 16 echo newline
    3 17 echo newline
    3 18 list at
    2 list at
    A=at
    list at

    2 1 A B C D
    14 at B C D
    B=base
    C=me
    D=
    at base me

    2 2 print A
    2 3 print B
    2 4 print C
    2 5 print D
    2 6 echo newline
    2 7 clear B
    2 8 clear C
    2 9 clear D
    2 10 next
    2 11 list A B C D
    2 list at B C
    A=at
    B=
    C=
    D=
    list at

    2 1 A B C D
    16 at B C D
    B=forrest
    C=dragon
    D=
    at forrest dragon

    2 2 print A
    2 3 print B
    2 4 print C
    2 5 print D
    2 6 echo newline
    2 7 clear B
    2 8 clear C
    2 9 clear D
    2 10 next
    2 11 list A B C D
    2 list at B C
    A=at
    B=
    C=
    D=
    list at

    2 1 A B C D
    39 at B C D
    B=hand
    C=sword
    D=
    at hand sword

    2 2 print A
    2 3 print B
    2 4 print C
    2 5 print D
    2 6 echo newline
    2 7 clear B
    2 8 clear C
    2 9 clear D
    2 10 next
    2 11 list A B C D
    2 list at B C
    A=at
    B=
    C=
    D=
    list at

    2 1 A B C D

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