test.input

robocup rcssserver-11.1.2.zip

(info ( 324234 (bowner our {5}) (do our {5} (tackle {6}))))
(advice ( 2345 (ppos our { 1 2 3} 1 3 (pt 10 20)) (do opp {0} (bto (arc (pt -12.1 -13) 12 13.1 14.5 15.1) {s}) ) ))
(advice ( 45435 (bpos (null)) (do opp {0} (bto (reg (null) (arc (pt -12.1 -13) 12 13.1 14.5 15.1)) {c}) ) ))
(info ( 324234 (bowner opp {0}) (dont opp {11} (bto (reg (null) (arc (pt -12.1 -13) 12 13.1 14.5 15.1)) {dp}) ) ))
(info ( 33423 (and (true) (false) (true)) (do our {9 1 4 6 7} (mark {11}) ) ))
(advice ( 3333 (and (true) (ppos our { 1 2 3} 1 2 (pt 10 20)) (bpos (null))) (dont opp {2 11} (oline (null)) ) ))
(advice ( 8684 (and (false) (ppos our { 1 2 3} 1 2 (pt 10 20)) (bpos (null))) (do our {7 1 2 0 4} (htype 0) ) ))
(info ( 3455 (or (false) (ppos our { 1 2 3} 1 2 (pt 10 20)) (bpos (null))) (do opp {1 2 3 4} (htype 1) ) ))
(info ( 5674 (not (true)) (do opp {4 3 2 1} (htype 2) ) ))
(info ( 33422 (not (false)) (do opp {4 3 2 1} (bto {1 11 9})) ))
(define (definer "myreg1" (null)))
(define (definer "myreg2" (arc (pt 1 2) 3 4 5 6 )))
(define (definer "myreg3" (quad (pt 1 2) (pt 31.1 32.2) (pt 41.1 42.2) (pt 51.1 52.2)) ))
(define (definer "myreg3" (tri (pt 1 2) (pt 31.1 32.2) (pt 41.1 42.2) ) ))
(define (definer "myreg3" (rec (pt 1 2) (pt 31.1 32.2) ) ))
(info ( 23434 (true) (do our {7} (pos "myreg1") ) ))
(advice ( 6543 (ppos our { 1 2 3} 1 1 (pt 10 20)) (do opp {0} (bto "myreg2" {s}) ) ))
(advice ( 23 (bpos (null)) (do opp {0} (bto (reg (null) "myreg3") {c}) ) ))
(define (definec "mycond1" (bowner opp {0})))
(define (definec "mycond2" (and (true) (false) (true))))
(define (definec "mycond3" (and (true) (ppos our { 1 2 3} 2 2 (pt 10 20)) (bpos (null)))))
(info ( 123 "mycond1" (dont opp {11} (bto (reg (null) (arc (pt -12.1 -13) 12 13.1 14.5 15.1)) {dp}) ) ))
(info ( 65456 "mycond2" (do our {9 1 4 6 7} (mark {11}) ) ))
(advice ( 324 "mycond3" (dont opp {2 11} (oline (null)) ) ))
(define (defined "mydir1" (do our {7 1 2 0 4} (htype 0) )))
(advice ( 4534 "mycond1" "mydir1"))
(define (definer "myreg1" (null)) (definer "myreg2" (arc (pt 1 2) 3 4 5 6 )) (definec "mycond1" (bowner opp {0})) (definec "mycond2" (and (true) (false) (true))) (defined "mydir1" (do our {7 1 2 0 4} (htype 0) )) )
(say (define (definer "PLINCL0" (reg (quad (pt 16.514 4.1) (pt -16.286 4.1) (pt -8.086 12.5784) (pt 8.314 12.5784)) (quad (pt 16.514 4.1) (pt -16.286 4.1) (pt -8.086 -4.37839) (pt 8.314 -4.37839)))) (definer "PLINCL1" (reg (quad (pt 27.3 -13.2) (pt 6.7 -13.2) (pt 11.85 -7.6228) (pt 22.15 -7.6228)) (quad (pt 27.3 -13.2) (pt 6.7 -13.2) (pt 11.85 -18.7772) (pt 22.15 -18.7772)))) (definer "PLINCL2" (reg (quad (pt 3.97 -10.4) (pt -14.49 -10.4) (pt -9.875 -7.08312) (pt -0.645 -7.08312)) (quad (pt 3.97 -10.4) (pt -14.49 -10.4) (pt -9.875 -13.7169) (pt -0.645 -13.7169)))) (definer "PLINCL3" (reg (quad (pt 12.65 -24.8) (pt -31.15 -24.8) (pt -20.2 -21.2753) (pt 1.7 -21.2753)) (quad (pt 12.65 -24.8) (pt -31.15 -24.8) (pt -20.2 -28.3247) (pt 1.7 -28.3247)))) (definer "PLINCL4" (reg (quad (pt 41.06 22.9) (pt 22.14 22.9) (pt 26.87 28.9795) (pt 36.33 28.9795)) (quad (pt 41.06 22.9) (pt 22.14 22.9) (pt 26.87 16.8205) (pt 36.33 16.8205)))) (definer "PLINCL5" (reg (quad (pt -0.97 -0.0699) (pt -9.59 -0.0699) (pt -7.435 0.39862) (pt -3.125 0.39862)) (quad (pt -0.97 -0.0699) (pt -9.59 -0.0699) (pt -7.435 -0.53842) (pt -3.125 -0.53842)))) (definer "PLINCL6" (reg (quad (pt -10.3 26.3) (pt -32.5 26.3) (pt -26.95 27.7463) (pt -15.85 27.7463)) (quad (pt -10.3 26.3) (pt -32.5 26.3) (pt -26.95 24.8537) (pt -15.85 24.8537)))) (definer "PLINCL7" (reg (quad (pt 4.1e-12 0.000492) (pt 4.1e-12 -0.000492) (pt 0.000426085 -0.000246) (pt 0.000426085 0.000246)) (quad (pt 4.1e-12 0.000492) (pt 4.1e-12 -0.000492) (pt -0.000426085 -0.000246) (pt -0.000426085 0.000246)))) (definer "PLINCL8" (reg (quad (pt -47.2 13.81) (pt -47.2 -4.83) (pt -44.2902 -0.17) (pt -44.2902 9.15)) (quad (pt -47.2 13.81) (pt -47.2 -4.83) (pt -50.1098 -0.17) (pt -50.1098 9.15)))) (definer "PLINCL9" (reg (quad (pt 53.1 6.76) (pt 53.1 4.5) (pt 53.4395 5.065) (pt 53.4395 6.195)) (quad (pt 53.1 6.76) (pt 53.1 4.5) (pt 52.7605 5.065) (pt 52.7605 6.195)))) (definer "PLINCL10" (reg (quad (pt 53 -5.093) (pt 53 -6.627) (pt 53.2503 -6.2435) (pt 53.2503 -5.4765)) (quad (pt 53 -5.093) (pt 53 -6.627) (pt 52.7497 -6.2435) (pt 52.7497 -5.4765)))) (definer "PLINCL11" (reg (quad (pt -30.29 -0.939) (pt -37.31 -0.939) (pt -35.555 0.446641) (pt -32.045 0.446641)) (quad (pt -30.29 -0.939) (pt -37.31 -0.939) (pt -35.555 -2.32464) (pt -32.045 -2.32464)))) (definer "PLINCL12" (reg (quad (pt -15.55 1.12) (pt -20.85 1.12) (pt -19.525 1.66819) (pt -16.875 1.66819)) (quad (pt -15.55 1.12) (pt -20.85 1.12) (pt -19.525 0.571806) (pt -16.875 0.571806)))) (definer "PLINCL13" (reg (quad (pt -22.3 -11.2995) (pt -22.3 -11.3005) (pt -22.2996 -11.3002) (pt -22.2996 -11.2998)) (quad (pt -22.3 -11.2995) (pt -22.3 -11.3005) (pt -22.3004 -11.3002) (pt -22.3004 -11.2998)))) (definer "PLINCL14" (reg (quad (pt 8.45 -4.83) (pt 1.49 -4.83) (pt 3.23 -4.76349) (pt 6.71 -4.76349)) (quad (pt 8.45 -4.83) (pt 1.49 -4.83) (pt 3.23 -4.89651) (pt 6.71 -4.89651)))) (definer "PLINCL15" (reg (quad (pt -52.8 -2.78954) (pt -52.8 -2.79046) (pt -52.7996 -2.79023) (pt -52.7996 -2.78977)) (quad (pt -52.8 -2.78954) (pt -52.8 -2.79046) (pt -52.8004 -2.79023) (pt -52.8004 -2.78977)))) (definer "PLINCL16" (reg (quad (pt -8.98 17.64) (pt -8.98 15.16) (pt -8.86049 15.78) (pt -8.86049 17.02)) (quad (pt -8.98 17.64) (pt -8.98 15.16) (pt -9.09951 15.78) (pt -9.09951 17.02)))) (definer "PLOUTCL0" (reg (quad (pt 3.44 -2.64) (pt -17.96 -2.64) (pt -12.61 5.007) (pt -1.91 5.007)) (quad (pt 3.44 -2.64) (pt -17.96 -2.64) (pt -12.61 -10.287) (pt -1.91 -10.287)))) (definer "PLOUTCL1" (reg (quad (pt 25.5 -15.5) (pt 3.3 -15.5) (pt 8.85 -8.46787) (pt 19.95 -8.46787)) (quad (pt 25.5 -15.5) (pt 3.3 -15.5) (pt 8.85 -22.5321) (pt 19.95 -22.5321)))) (definer "PLOUTCL2" (reg (quad (pt 25 20.25) (pt 25 -0.35) (pt 32.0927 4.8) (pt 32.0927 15.1)) (quad (pt 25 20.25) (pt 25 -0.35) (pt 17.9073 4.8) (pt 17.9073 15.1)))) (definer "PLOUTCL3" (reg (quad (pt -1.04 23.18) (pt -1.04 10.22) (pt 3.6452 13.46) (pt 3.6452 19.94)) (quad (pt -1.04 23.18) (pt -1.04 10.22) (pt -5.7252 13.46) (pt -5.7252 19.94)))) (definer "PLOUTCL4" (reg (quad (pt 7.7 -25.4) (pt -33.9 -25.4) (pt -23.5 -21.7627) (pt -2.7 -21.7627)) (quad (pt 7.7 -25.4) (pt -33.9 -25.4) (pt -23.5 -29.0373) (pt -2.7 -29.0373)))) (definer "PLOUTCL5" (reg (quad (pt 14.5 12.93) (pt 14.5 0.53) (pt 17.609 3.63) (pt 17.609 9.83)) (quad (pt 14.5 12.93) (pt 14.5 0.53) (pt 11.391 3.63) (pt 11.391 9.83)))) (definer "PLOUTCL6" (reg (quad (pt -17.1 27.1) (pt -40.5 27.1) (pt -34.65 30.0012) (pt -22.95 30.0012)) (quad (pt -17.1 27.1) (pt -40.5 27.1) (pt -34.65 24.1988) (pt -22.95 24.1988)))) (definer "PLOUTCL7" (reg (quad (pt -41.5 7.99) (pt -41.5 -3.17) (pt -37.1352 -0.38) (pt -37.1352 5.2)) (quad (pt -41.5 7.99) (pt -41.5 -3.17) (pt -45.8648 -0.38) (pt -45.8648 5.2)))) (definer "PLOUTCL8" (reg (quad (pt 30.9 28.5) (pt 23.9 28.5) (pt 25.65 29.799) (pt 29.15 29.799)) (quad (pt 30.9 28.5) (pt 23.9 28.5) (pt 25.65 27.201) (pt 29.15 27.201)))) (definer "DINCL0" (reg (quad (pt 4.5 -5.52) (pt -28.5 -5.52) (pt -20.25 1.98844) (pt -3.75 1.98844)) (quad (pt 4.5 -5.52) (pt -28.5 -5.52) (pt -20.25 -13.0284) (pt -3.75 -13.0284)))) (definer "DINCL1" (reg (quad (pt -2.3 13) (pt -31.9 13) (pt -24.5 19.4692) (pt -9.7 19.4692)) (quad (pt -2.3 13) (pt -31.9 13) (pt -24.5 6.53079) (pt -9.7 6.53079)))) (definer "DINCL2" (reg (quad (pt -52.9 2.18) (pt -52.9 -6.58) (pt -52.6159 -4.39) (pt -52.6159 -0.00999999)) (quad (pt -52.9 2.18) (pt -52.9 -6.58) (pt -53.1841 -4.39) (pt -53.1841 -0.00999999)))) (definer "DINCL3" (reg (quad (pt 4.49 14.6) (pt -22.51 14.6) (pt -15.76 14.9265) (pt -2.26 14.9265)) (quad (pt 4.49 14.6) (pt -22.51 14.6) (pt -15.76 14.2735) (pt -2.26 14.2735)))) (definer "DINCL4" (reg (quad (pt 42.69 -28.9) (pt 24.11 -28.9) (pt 28.755 -24.6392) (pt 38.045 -24.6392)) (quad (pt 42.69 -28.9) (pt 24.11 -28.9) (pt 28.755 -33.1608) (pt 38.045 -33.1608)))) (definer "DINCL5" (reg (quad (pt 0.02743 -0.000125) (pt -0.00957 -0.000125) (pt -0.000320001 0.00027597) (pt 0.01818 0.00027597)) (quad (pt 0.02743 -0.000125) (pt -0.00957 -0.000125) (pt -0.000320001 -0.00052597) (pt 0.01818 -0.00052597)))) (definer "DINCL6" (reg (quad (pt -20.2 -1.961) (pt -20.2 -2.699) (pt -20.0788 -2.5145) (pt -20.0788 -2.1455)) (quad (pt -20.2 -1.961) (pt -20.2 -2.699) (pt -20.3212 -2.5145) (pt -20.3212 -2.1455)))) (definer "DOUTCL0" (reg (quad (pt 6.4 11.3) (pt -27.4 11.3) (pt -18.95 18.2802) (pt -2.05 18.2802)) (quad (pt 6.4 11.3) (pt -27.4 11.3) (pt -18.95 4.31984) (pt -2.05 4.31984)))) (definer "DOUTCL1" (reg (quad (pt 10.9169 -7.81) (pt -10.8831 -7.81) (pt -5.4331 -2.02495) (pt 5.4669 -2.02495)) (quad (pt 10.9169 -7.81) (pt -10.8831 -7.81) (pt -5.4331 -13.595) (pt 5.4669 -13.595)))) (definer "DOUTCL2" (reg (quad (pt -21.27 -15.3) (pt -38.53 -15.3) (pt -34.215 -10.3463) (pt -25.585 -10.3463)) (quad (pt -21.27 -15.3) (pt -38.53 -15.3) (pt -34.215 -20.2537) (pt -25.585 -20.2537)))) (definer "DOUTCL3" (reg (quad (pt 40.18 -26.3) (pt 23.62 -26.3) (pt 27.76 -22.3163) (pt 36.04 -22.3163)) (quad (pt 40.18 -26.3) (pt 23.62 -26.3) (pt 27.76 -30.2837) (pt 36.04 -30.2837))))))
(say (advice (99999 (true) (do our {1} (home (quad (pt -49.231 -2.86688) (pt -46.4098 -2.86688) (pt -46.4098 3.11136) (pt -49.231 3.11136))))) (99999 (true) (do our {2} (home (quad (pt -34.668 -11.0673) (pt -10.2375 -11.0673) (pt -10.2375 9.22446) (pt -34.668 9.22446))))) (99999 (true) (do our {3} (home (quad (pt -30.9977 -2.38411) (pt -1.26998 -2.38411) (pt -1.26998 24.1794) (pt -30.9977 24.1794))))) (99999 (true) (do our {4} (home (quad (pt -30.8804 -12.5226) (pt 1.92236 -12.5226) (pt 1.92236 9.79119) (pt -30.8804 9.79119))))) (99999 (true) (do our {5} (home (quad (pt -30.2972 -30.6962) (pt -0.941629 -30.6962) (pt -0.941629 2.07327) (pt -30.2972 2.07327))))) (99999 (true) (do our {6} (home (quad (pt -14.6113 0.770212) (pt 16.1206 0.770212) (pt 16.1206 31.3806) (pt -14.6113 31.3806))))) (99999 (true) (do our {7} (home (quad (pt -11.1691 -12.8489) (pt 18.496 -12.8489) (pt 18.496 8.62082) (pt -11.1691 8.62082))))) (99999 (true) (do our {8} (home (quad (pt -12.4345 -34.5995) (pt 19.1884 -34.5995) (pt 19.1884 -3.45948) (pt -12.4345 -3.45948))))) (99999 (true) (do our {9} (home (quad (pt 0.916556 -2.7235) (pt 32.7643 -2.7235) (pt 32.7643 30.095) (pt 0.916556 30.095))))) (99999 (true) (do our {10} (home (quad (pt 2.43172 -10.6154) (pt 31.8422 -10.6154) (pt 31.8422 9.26478) (pt 2.43172 9.26478))))) (99999 (true) (do our {11} (home (quad (pt 2.35614 -30.6912) (pt 33.0612 -30.6912) (pt 33.0612 0.29731) (pt 2.35614 0.29731))))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos opp {4} 1 1 (arc (pt ball) 0 1000 70.1024 109.898)) (ppos opp {5} 1 1 (arc (pt ball) 0 1000 156.647 23.353)) (ppos opp {6} 1 1 (arc (pt ball) 0 37.5001 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL3" {p})) (do our {6} (pos "PLOUTCL3"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos opp {1} 1 1 (arc (pt ball) 0 21.2703 -51.5966 231.597)) (ppos opp {2} 1 1 (arc (pt ball) 0 1000 -180 119.51)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL3" {p})) (do our {6} (pos "PLOUTCL3"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {4} 1 1 (arc (pt ball) 0 1000 76.6352 103.365)) (ppos our {8} 1 1 (arc (pt ball) 0 40.7177 -180 360)) (ppos our {11} 1 1 (arc (pt ball) 63.2576 1000 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL4" {p})) (do our {5} (pos "PLOUTCL4"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {7} 1 1 (arc (pt ball) 61.0994 1000 -180 360)) (ppos opp {8} 1 1 (arc (pt ball) 0 1000 174.966 5.034)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL4" {p})) (do our {5} (pos "PLOUTCL4"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {10} 1 1 (arc (pt ball) 0 1000 -180 182.713)) (ppos opp {2} 1 1 (arc (pt ball) 0 1000 5.43916 174.561)) (ppos opp {5} 1 1 (arc (pt ball) 0 1000 -8.31863 188.319)) (ppos opp {8} 1 1 (arc (pt ball) 0 13.3886 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL5" {p})) (do our {9} (pos "PLOUTCL5"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos opp {4} 1 1 (arc (pt ball) 9.09589 1000 -172.728 242.83)) (ppos opp {5} 1 1 (arc (pt ball) 0 1000 156.647 23.353)) (ppos opp {8} 1 1 (arc (pt ball) 0 1000 -180 73.741)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL5" {p})) (do our {9} (pos "PLOUTCL5"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {11} 1 1 (arc (pt ball) 60.5633 1000 -180 360)) (ppos opp {3} 1 1 (arc (pt ball) 0 1000 -180 14.239)) (ppos opp {11} 1 1 (arc (pt ball) 0 1000 -180 25.779)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL6" {p})) (do our {3} (pos "PLOUTCL6"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {3} 1 1 (arc (pt ball) 0 1000 -141.162 321.162)) (ppos opp {5} 1 1 (arc (pt ball) 0 1000 -180 171.681)) (ppos opp {6} 1 1 (arc (pt ball) 0 1000 -28.4939 208.494)) (ppos opp {8} 1 1 (arc (pt ball) 0 13.3886 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL8" {p})) (do our {9} (pos "PLOUTCL8"))) (99999 (and (playm play_on) (bowner our {0}) (and (bpos "PLINCL8") (ppos opp {4} 1 1 (arc (pt ball) 58.4624 1000 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL8" {p})) (do our {9} (pos "PLOUTCL8"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos opp {3} 1 1 (arc (pt ball) 0 1000 -180 14.239)) (ppos opp {11} 1 1 (arc (pt ball) 0 1000 -154.221 334.221)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL8" {p})) (do our {9} (pos "PLOUTCL8"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {4} 1 1 (arc (pt ball) 0 1000 -155.718 335.718)) (ppos opp {1} 1 1 (arc (pt ball) 0 1000 -180 128.403)) (ppos opp {8} 1 1 (arc (pt ball) 0 1000 -180 57.026)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL2" {p})) (do our {9} (pos "PLOUTCL2"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {3} 1 1 (arc (pt ball) 0 1000 -180 356.825)) (ppos our {9} 1 1 (arc (pt ball) 0 1000 90.4629 89.5371)) (ppos opp {8} 1 1 (arc (pt ball) 0 13.3886 -180 360)) (ppos opp {10} 1 1 (arc (pt ball) 0 1000 -180 263.92)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL2" {p})) (do our {9} (pos "PLOUTCL2"))) (99999 (and (playm play_on) (bowner our {0}) (and (bpos "PLINCL2") (ppos our {5} 1 1 (arc (pt ball) 0 1000 -180 243.555)) (ppos opp {1} 1 1 (arc (pt ball) 0 61.4049 -180 360)) (ppos opp {8} 1 1 (arc (pt ball) 13.3886 1000 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL2" {p})) (do our {9} (pos "PLOUTCL2"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {6} 1 1 (arc (pt ball) 0 1000 -175.6 355.6)) (ppos our {10} 1 1 (arc (pt ball) 0.819181 1000 108.107 71.893)) (ppos opp {1} 1 1 (arc (pt ball) 21.2703 1000 -180 360)) (ppos opp {5} 1 1 (arc (pt ball) 0 1000 -180 336.647)) (ppos opp {10} 1 1 (arc (pt ball) 0 35.9572 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL2" {p})) (do our {9} (pos "PLOUTCL2"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {11} 1 1 (arc (pt ball) 60.5633 1000 -180 360)) (ppos opp {7} 1 1 (arc (pt ball) 0 53.5409 -180 360)) (ppos opp {8} 1 1 (arc (pt ball) 0 1000 174.966 5.034)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL2" {p})) (do our {9} (pos "PLOUTCL2"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {3} 1 1 (arc (pt ball) 24.6202 1000 -180 360)) (ppos our {7} 1 1 (arc (pt ball) 0 29.7316 -180 360)) (ppos our {8} 1 1 (arc (pt ball) 0 1000 -180 336.194)) (ppos our {9} 1 1 (arc (pt ball) 0 1000 -147.977 327.977)) (ppos opp {1} 1 1 (arc (pt ball) 0 37.9498 -180 360)) (ppos opp {3} 1 1 (arc (pt ball) 6.96843 1000 -180 360)) (ppos opp {8} 1 1 (arc (pt ball) 0 13.3886 -180 360)) (ppos opp {9} 1 1 (arc (pt ball) 0 1000 -0.957713 180.958)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL1" {p})) (do our {11} (pos "PLOUTCL1"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos opp {4} 1 1 (arc (pt ball) 0 41.5058 -180 360)) (ppos opp {6} 1 1 (arc (pt ball) 37.5001 1000 -180 360)) (ppos opp {8} 1 1 (arc (pt ball) 53.944 1000 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL1" {p})) (do our {11} (pos "PLOUTCL1"))) (99999 (and (playm play_on) (bowner our {0}) (bpos "PLINCL15")) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL1" {p})) (do our {11} (pos "PLOUTCL1"))) (99999 (and (playm play_on) (bowner our {0}) (and (bpos "PLINCL2") (ppos our {2} 1 1 (arc (pt ball) 34.364 1000 -180 360)) (ppos our {7} 1 1 (arc (pt ball) 23.6629 1000 -180 360)) (ppos opp {4} 1 1 (arc (pt ball) 7.29017 1000 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL1" {p})) (do our {11} (pos "PLOUTCL1"))) (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {3} 1 1 (arc (pt ball) 0 1000 -173.506 353.506)) (ppos opp {1} 1 1 (arc (pt ball) 0 21.2703 -51.5966 231.597)) (ppos opp {2} 1 1 (arc (pt ball) 0 1000 -60.4897 240.49)) (ppos opp {5} 1 1 (arc (pt ball) 0 1000 -180 336.647)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL1" {p})) (do our {11} (pos "PLOUTCL1"))) (99999 (and (playm play_on) (bowner our {0}) (and (bpos "PLINCL12") (ppos opp {11} 1 1 (arc (pt ball) 25.9264 1000 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL1" {p})) (do our {11} (pos "PLOUTCL1")))))
(say (advice (99999 (and (playm play_on) (bowner our {0}) (and (ppos our {9} 1 1 (arc (pt ball) 0 37.419 -180 360)) (ppos our {10} 1 1 (arc (pt ball) 0 1000 -180 288.107)) (ppos opp {1} 1 1 (arc (pt ball) 21.2703 1000 -51.5966 231.597)) (ppos opp {5} 1 1 (arc (pt ball) 0 1000 -180 336.647)) (ppos opp {6} 1 1 (arc (pt ball) 0 37.5001 -180 360)) (ppos opp {8} 1 1 (arc (pt ball) 13.3886 1000 -180 360)))) (do our {2 3 4 5 6 7 8 9 10 11} (bto "PLOUTCL0" {p})) (do our {7} (pos "PLOUTCL0"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {6} 1 1 (arc (pt ball) 0 22.3607 -180 360)) (ppos opp {8} 1 1 (arc (pt ball) 25.6579 1000 -180 360)) (ppos our {1} 1 1 (arc (pt ball) 0 1000 -180 168.095)) (ppos our {7} 1 1 (arc (pt ball) 0 32.5081 -180 360)))) (do our {7} (markl "DOUTCL1"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {2} 1 1 (arc (pt ball) 0 1000 62.7296 117.27)) (ppos opp {6} 1 1 (arc (pt ball) 0 22.3607 -180 360)) (ppos opp {7} 1 1 (arc (pt ball) 0 1000 -180 172.947)) (ppos opp {11} 1 1 (arc (pt ball) 0 41.2232 -180 360)) (ppos our {7} 1 1 (arc (pt ball) 0 1000 -180 181.271)) (ppos our {9} 1 1 (arc (pt ball) 22.1858 1000 -180 360)))) (do our {7} (markl "DOUTCL1"))) (99999 (and (playm play_on) (bowner opp {0}) (and (bpos "DINCL1") (ppos opp {4} 1 1 (arc (pt ball) 7.74367 1000 -180 360)) (ppos opp {7} 1 1 (arc (pt ball) 0 1000 -180 172.947)) (ppos opp {11} 1 1 (arc (pt ball) 0 37.4705 -180 360)) (ppos our {1} 1 1 (arc (pt ball) 0 1000 -22.6198 202.62)) (ppos our {7} 1 1 (arc (pt ball) 32.5081 1000 -180 360)))) (do our {7} (markl "DOUTCL1"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {7} 1 1 (arc (pt ball) 24.7474 1000 -180 360)) (ppos our {1} 1 1 (arc (pt ball) 0 1000 -180 157.38)))) (do our {5} (markl "DOUTCL2"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {4} 1 1 (arc (pt ball) 22.339 1000 -180 360)) (ppos opp {7} 1 1 (arc (pt ball) 0 1000 -180 172.947)) (ppos our {1} 1 1 (arc (pt ball) 51.7369 1000 6.63509 173.365)) (ppos our {7} 1 1 (arc (pt ball) 0 1000 -180 181.271)))) (do our {5} (markl "DOUTCL2"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {5} 1 1 (arc (pt ball) 0 16.317 -180 360)) (ppos opp {8} 1 1 (arc (pt ball) 0 25.6579 -180 360)) (ppos opp {9} 1 1 (arc (pt ball) 0 1000 -180 122.882)) (ppos our {1} 1 1 (arc (pt ball) 51.7369 1000 -180 360)) (ppos our {7} 1 1 (arc (pt ball) 0 32.5081 -180 181.271)))) (do our {5} (markl "DOUTCL2"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {2} 1 1 (arc (pt ball) 44.6279 1000 -180 360)) (ppos opp {7} 1 1 (arc (pt ball) 0 1000 -7.05252 187.053)) (ppos our {7} 1 1 (arc (pt ball) 0 1000 -180 181.271)))) (do our {5} (markl "DOUTCL2"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {7} 1 1 (arc (pt ball) 0 1000 -7.05252 187.053)) (ppos our {11} 1 1 (arc (pt ball) 0 1000 -180 88.5117)))) (do our {5} (markl "DOUTCL2"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {9} 1 1 (arc (pt ball) 0 1000 -180 122.882)) (ppos our {1} 1 1 (arc (pt ball) 51.7369 1000 -180 360)) (ppos our {4} 1 1 (arc (pt ball) 37.1381 1000 -180 360)))) (do our {5} (markl "DOUTCL2"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {3} 1 1 (arc (pt ball) 4.47263 1000 -180 360)) (ppos opp {4} 1 1 (arc (pt ball) 0 48.4625 -180 360)) (ppos opp {6} 1 1 (arc (pt ball) 22.3607 1000 -180 360)) (ppos opp {7} 1 1 (arc (pt ball) 0 1000 -180 172.947)) (ppos our {7} 1 1 (arc (pt ball) 0 1000 -180 181.271)))) (do our {6} (markl "DOUTCL0"))) (99999 (and (playm play_on) (bowner opp {0}) (ppos our {7} 1 1 (arc (pt ball) 0 1000 1.27143 178.729))) (do our {6} (markl "DOUTCL0"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {2} 1 1 (arc (pt ball) 0 44.6279 -180 360)) (ppos opp {7} 1 1 (arc (pt ball) 0 1000 -7.05252 187.053)) (ppos our {11} 1 1 (arc (pt ball) 0 1000 -91.4883 271.488)))) (do our {6} (markl "DOUTCL0"))) (99999 (and (playm play_on) (bowner opp {0}) (and (ppos opp {2} 1 1 (arc (pt ball) 0 29.0049 -180 360)) (ppos opp {5} 1 1 (arc (pt ball) 0 1000 -180 160.71)) (ppos our {7} 1 1 (arc (pt ball) 32.5081 1000 -180 360)))) (do our {6} (markl "DOUTCL0")))))
(say (define (definec "FMarkCond2" (not (ppos our {1 3 4 5 6 7 8 9 10 11} 1 11 (arc (pt opp 11) 0 5 0 360)))) (defined "FMarkDir2" (do our {2} (mark {11}))) (definec "FMarkCond3" (not (ppos our {1 2 4 5 6 7 8 9 10 11} 1 11 (arc (pt opp 8) 0 5 0 360)))) (defined "FMarkDir3" (do our {3} (mark {8}))) (definec "FMarkCond4" (not (ppos our {1 2 3 5 6 7 8 9 10 11} 1 11 (arc (pt opp 9) 0 5 0 360)))) (defined "FMarkDir4" (do our {4} (mark {9})))))
(say (advice (99999 (and (playm play_on) "FMarkCond2") "FMarkDir2") (99999 (and (playm play_on) "FMarkCond3") "FMarkDir3") (99999 (and (playm play_on) "FMarkCond4") "FMarkDir4")))
(say (define (definec "SPpos" (and (ppos our {3} 1 1 (arc (pt -12 12) 0 4 0 360)) (ppos our {4} 1 1 (arc (pt -1 -5) 0 4 0 360))))))
(say (advice (200 (or (playm bko) (playm ko_our) (playm ag_opp)) (do our {3} (pos (pt -12 12))) (do our {4} (pos (pt -1 -5)))) (200 (and (or (playm bko) (playm ko_our) (playm ag_opp)) (not "SPpos")) (do our {7} (pos (pt -2.82843 2.82843 (pt -0.2 0))))) (200 (and (or (playm bko) (playm ko_our) (playm ag_opp)) "SPpos") (do our {7} (pos (pt -0.2 0)))) (260 (and "SPpos" (ppos our {7} 1 1 (arc (pt 0 0) 0 4 0 360))) (do our {7} (bto {3}))) (260 (and (ppos our {3} 1 1 (arc (pt -12 12) 0 4 0 360))) (do our {3} (bto (pt 29 -5) {c})))))
(say (advice (200 (playm gc_opp) (do our {7} (pos (pt 34.5 -8))) (do our {9} (pos (pt 34.5 22))) (do our {10} (pos (pt 34.5 8))) (do our {11} (pos (pt 34.5 -22))))))
(say (advice (200 (playm fk_opp) (do our {6} (pos (pt 21.097 27.382))) (do our {9} (pos (pt 20.105 19.6771))) (do our {10} (pos (pt 24.8517 13.5275))))))
(say (define (definec "SPpos" (and (ppos our {6} 1 1 (arc (pt 37.1661 16) 0 4 0 360)) (ppos our {10} 1 1 (arc (pt 37.1661 19) 0 4 0 360))))))
(say (advice (200 (playm ki_our) (do our {6} (pos (pt 37.1661 16))) (do our {10} (pos (pt 37.1661 19)))) (200 (and (playm ki_our) (not "SPpos")) (do our {9} (pos (pt 2.2188 -3.3282 (pt ball))))) (200 (and (playm ki_our) "SPpos") (do our {9} (pos (pt ball)))) (247 (and "SPpos" (ppos our {9} 1 1 (arc (pt 27.1661 34) 0 4 0 360))) (do our {9} (bto {10})))))
(say (define (definec "SPpos" (and (ppos our {6} 1 1 (arc (pt 22.2488 23) 0 4 0 360)) (ppos our {7} 1 1 (arc (pt 25.8926 -4) 0 4 0 360)) (ppos our {10} 1 1 (arc (pt 22.2488 9) 0 4 0 360)) (ppos our {11} 1 1 (arc (pt 25.841 -1) 0 4 0 360))))))
(say (advice (200 (playm ki_our) (do our {6} (pos (pt 22.2488 23))) (do our {7} (pos (pt 25.8926 -4))) (do our {10} (pos (pt 22.2488 9))) (do our {11} (pos (pt 25.841 -1)))) (200 (and (playm ki_our) (not "SPpos")) (do our {9} (pos (pt -1.65521 -3.64147 (pt ball))))) (200 (and (playm ki_our) "SPpos") (do our {9} (pos (pt ball)))) (254 (and "SPpos" (ppos our {9} 1 1 (arc (pt 27.2488 34) 0 4 0 360))) (do our {9} (bto {6}))) (254 (and (ppos our {6} 1 1 (arc (pt 22.2488 23) 0 4 0 360))) (do our {6} (bto {10}))) (254 (and (bowner our {6}) (ppos our {6} 1 1 (arc (pt 22.2488 23) 0 4 0 360)) (playm play_on)) (do our {10} (pos (pt 22.2488 9)))) (254 (and (bowner our {10}) (ppos our {10} 1 1 (arc (pt 22.2488 9) 0 4 0 360)) (playm play_on)) (do our {11} (pos (pt 25.841 -1)))) (254 (and (ppos our {10} 1 1 (arc (pt 22.2488 9) 0 4 0 360))) (do our {10} (bto {11}))) (254 (and (bowner our {10}) (ppos our {10} 1 1 (arc (pt 22.2488 9) 0 4 0 360)) (playm play_on)) (do our {11} (pos (pt 25.8926 -1))))))