# Home positions
(define (definer "HomePt5" (pt -30 10)))
(define (definer "HomePt6" (pt -25 10)))
(define (definer "HomePt7" (pt -20 10)))
(define (definer "HomePt2" (pt -15 10)))
(define (definer "HomePt3" (pt -10 10)))
(define (definer "HomePt4" (pt -5  10)))
(define (definerule SetHome2 direc ( (true) (do our {2} (home "HomePt2") (pos "HomePt2")))))
(define (definerule SetHome3 direc ( (true) (do our {3} (home "HomePt3") (pos "HomePt3")))))
(define (definerule SetHome4 direc ( (true) (do our {4} (home "HomePt4") (pos "HomePt4")))))
(define (definerule SetHome5 direc ( (true) (do our {5} (home "HomePt5") (pos "HomePt5")))))
(define (definerule SetHome6 direc ( (true) (do our {6} (home "HomePt6") (pos "HomePt6")))))
(define (definerule SetHome7 direc ( (true) (do our {7} (home "HomePt7") (pos "HomePt7")))))

(rule (on (SetHome2 SetHome3 SetHome4 SetHome5 SetHome6 SetHome7)))

# SMURF: tmp, everyone
(define (definer "DRRec" (rec (pt -20 -20) (pt -10 -10))))
(define (definerule DribbleBall direc ( (true) (do our {0} (dribble "DRRec")))))
(rule (on DribbleBall))