#(define (definerule Mark3  direc ((true) (do our {3} (mark {9})))))
#(define (definerule Mark5  direc ((true) (do our {5} (mark {11})))))
#(define (definerule Mark7  direc ((true) (do our {7} (mark {10})))))
#(define (definerule Mark9  direc ((true) (do our {9} (mark {7})))))
#(define (definerule Mark11 direc ((true) (do our {7} (mark {11}))))

#(rule (on (Mark3 Mark5 Mark7 Mark9)))

#(define (definer "targ9" ((pt ball) + (pt -5 15))))
#(define (definer "targ10" ((pt ball) + (pt 0 -9))))
#(define (definer "targ11" ((pt ball) + (pt 0 9))))
#(define (definerule TestForward direc ((bpos "TheirHalf") (do our {9} (pos "targ9")) (do our {10} (pos "targ10")) (do our {11} (pos "targ11")))))
#(define (definerule TestForward direc ((bpos "TheirHalf") (do our {9}
#(pos "targ9")) (do our {10} (pos "targ10)))))

#(rule (on TestForward))


# some stuff for the caspian players
# I also include player 2 to make sure my advice matches at all
(define (definer "TheirHalf" (rec (pt 0 -32) (pt 53 32))))
(define (definer "MyHalf" (rec (pt -53 -32) (pt 0 32))))
(define (definerule TestCaspian_1 direc ((bpos "TheirHalf") (do our {2 9 10 11} (pos (pt -15 -15))))))
(define (definerule TestCaspian_2 direc ((bpos "MyHalf") (do our {2 9 10 11} (pos (pt -5 5))))))
#(define (definerule TestCaspian direc ((true) (TestCaspian_1 TestCaspian_2))))
(define (definerule TestCaspian direc ((true) (TestCaspian_2 TestCaspian_1))))
(rule (on TestCaspian))

(define (definerule FORM_cmloki532_perm direc ((true) ((true) (do our {2} (home (rec (pt -34.9465 13.2305) (pt -7.18606 21.775))))) ((true) (do our {3} (home (rec (pt -38.1271 -3.26846) (pt -13.2647 12.2252))))) ((true) (do our {4} (home (rec (pt -33.5312 -3.94926) (pt -7.5883 3.42184))))) ((true) (do our {5} (home (rec (pt -37.8559 -13.3497) (pt -12.168 2.09555))))) ((true) (do our {6} (home (rec (pt -34.7693 -22.0682) (pt -7.78124 -13.3183))))) ((true) (do our {7} (home (rec (pt -21.3349 -21.3101) (pt 10.1006 -8.70392))))) ((true) (do our {8} (home (rec (pt -15.1775 -9.97588) (pt 14.5448 7.19788))))) ((true) (do our {9} (home (rec (pt -21.4055 7.4836) (pt 10.0367 19.8297))))) ((true) (do our {10} (home (rec (pt -3.37954 4.58753) (pt 23.499 16.8646))))) ((true) (do our {11} (home (rec (pt -2.91385 -19.8605) (pt 24.1045 -7.56147))))))) (definerule FORM_cmloki433_perm direc ((true) ((true) (do our {2} (home (rec (pt -36.7044 11.762) (pt -10.3862 23.0775))))) ((true) (do our {3} (home (rec (pt -36.2256 0.654722) (pt -11.2271 11.1229))))) ((true) (do our {4} (home (rec (pt -36.727 -11.2201) (pt -11.1903 -0.0938443))))) ((true) (do our {5} (home (rec (pt -36.7652 -22.5855) (pt -10.5747 -11.8255))))) ((true) (do our {6} (home (rec (pt -22.3072 -21.9822) (pt 9.06364 -8.21958))))) ((true) (do our {7} (home (rec (pt -25.3699 -6.83098) (pt 4.97462 8.47865))))) ((true) (do our {8} (home (rec (pt -24.0478 7.10208) (pt 9.71087 24.0852))))) ((true) (do our {9} (home (rec (pt -2.24337 10.9717) (pt 22.8691 23.3161))))) ((true) (do our {10} (home (rec (pt -6.57904 -7.28086) (pt 19.9448 8.15502))))) ((true) (do our {11} (home (rec (pt -1.73763 -22.227) (pt 22.6054 -11.3371))))))) (definerule FORM_cmloki433_perm direc ((true) ((true) (do our {2} (home (rec (pt -36.7044 11.762) (pt -10.3862 23.0775))))) ((true) (do our {3} (home (rec (pt -36.2256 0.654722) (pt -11.2271 11.1229))))) ((true) (do our {4} (home (rec (pt -36.727 -11.2201) (pt -11.1903 -0.0938443))))) ((true) (do our {5} (home (rec (pt -36.7652 -22.5855) (pt -10.5747 -11.8255))))) ((true) (do our {6} (home (rec (pt -22.3072 -21.9822) (pt 9.06364 -8.21958))))) ((true) (do our {7} (home (rec (pt -25.3699 -6.83098) (pt 4.97462 8.47865))))) ((true) (do our {8} (home (rec (pt -24.0478 7.10208) (pt 9.71087 24.0852))))) ((true) (do our {9} (home (rec (pt -2.24337 10.9717) (pt 22.8691 23.3161))))) ((true) (do our {10} (home (rec (pt -6.57904 -7.28086) (pt 19.9448 8.15502))))) ((true) (do our {11} (home (rec (pt -1.73763 -22.227) (pt 22.6054 -11.3371))))))) (definerule FORM_hand3232_perm direc ((true) ((true) (do our {2} (home (rec (pt -42 6) (pt -10.5 22.6))))) ((true) (do our {3} (home (rec (pt -42 -11.3) (pt -10.5 11.3))))) ((true) (do our {4} (home (rec (pt -42 -22.6) (pt -10.5 -6))))) ((true) (do our {5} (home (rec (pt -21 -22.6) (pt 0 0))))) ((true) (do our {6} (home (rec (pt -21 0) (pt 0 22.6))))) ((true) (do our {7} (home (rec (pt -10.5 11.3) (pt 21 34))))) ((true) (do our {8} (home (rec (pt -10.5 -11.3) (pt 21 11.3))))) ((true) (do our {9} (home (rec (pt -10.5 -34) (pt 21 -11.3))))) ((true) (do our {10} (home (rec (pt 0 -22.6) (pt 31.5 0))))) ((true) (do our {11} (home (rec (pt 0 0) (pt 31.5 22.6)))))))(definerule FORM_hand3232_perm direc ((true) ((true) (do our {2} (home (rec (pt -42 6) (pt -10.5 22.6))))) ((true) (do our {3} (home (rec (pt -42 -11.3) (pt -10.5 11.3))))) ((true) (do our {4} (home (rec (pt -42 -22.6) (pt -10.5 -6))))) ((true) (do our {5} (home (rec (pt -21 -22.6) (pt 0 0))))) ((true) (do our {6} (home (rec (pt -21 0) (pt 0 22.6))))) ((true) (do our {7} (home (rec (pt -10.5 11.3) (pt 21 34))))) ((true) (do our {8} (home (rec (pt -10.5 -11.3) (pt 21 11.3))))) ((true) (do our {9} (home (rec (pt -10.5 -34) (pt 21 -11.3))))) ((true) (do our {10} (home (rec (pt 0 -22.6) (pt 31.5 0))))) ((true) (do our {11} (home (rec (pt 0 0) (pt 31.5 22.6))))))) (definerule SP_stop direc ((not (playm play_on)) (do our {1} (pos (pt our 1))) (do our {2} (pos (pt our 2))) (do our {3} (pos (pt our 3))) (do our {4} (pos (pt our 4))) (do our {5} (pos (pt our 5))) (do our {6} (pos (pt our 6))) (do our {7} (pos (pt our 7))) (do our {8} (pos (pt our 8))) (do our {9} (pos (pt our 9))) (do our {10} (pos (pt our 10))) (do our {11} (pos (pt our 11))) (dont our {0} (intercept)))))
