#name                        trigger                                                lap                                          comp

# animal grooms towards sunset, if near home but not in it (or nothing else is up!)
# (life                        ()                                                     (nil)                                        DRIVE ((flee 80) (mate 90) (home 60 40 10) (triangulate 60) (check 55 50 10) (forage 50) (hurry_home 45) (sleep_at_home 50) (sneak 45) (clean 20)))
(life                        ()                                                     (nil)                                        DRIVE ((mate 90) (home 60 40 10) (triangulate 60) (check 55 50 10) (forage 50) (hurry_home 45) (sleep_at_home 50) (sneak 45) (clean 20)))
# (flee                        ((sniff_predator t))                                   (nil)                                        ((freeze 50) (run_away 60) (look_for_predator 40)))
(flee                        ((sniff_predator t))                                   (nil)                                        ((run_away 60) (look_for_predator 40)))
(sleep_at_home               ((at_home t) (day_time nil))                           (sleep))
# not covered if predator in square!
(freeze                      ((see_predator t) (predator1 nil) (covered t))         (hold_still))
(run_away                    ((see_predator t))                                     ((pick_new_sheltered_dir) (go_fast)))
(look_for_predator           ()                                                     (observe_predator))
(check                       ((at_home nil))                                        (look_around))
# cleaning also happens in exploit
(clean                       ()                                                     (groom))
# go home until get there if late!
(home                        ((late t) (at_home nil))                               (go_home))
(triangulate                 ((lost t))                                             (go_home))
(hurry_home                  ((day_time nil) (at_home nil))                         (go_home))
(cruise                      ((day_time t))                                         (nil)                                        ((mate 60) (exploit 60)))
(cruising                    ()                                                     (nil)                                        ((mate 90) (exploit 60)))
(mate                        ((sniff_mate t))                                       (nil)                                        ((inseminate 90) (court 80) (pursue 70)))
# can't see anything in the dark, this is useless
(night_mate                  ((see_mate t))                                         (nil)                                        ((inseminate 90) (court 80) (pursue 70)))
(mite                        ()                                                     (nil)                                        ((inseminate 90) (court 80) (pursue 70) (leave 60)))
(inseminate                  ((at_home nil) (courted_mate_here t))                  (copulate))
(court                       ((at_home nil) (mate_here t))                          (strut))
(pursue                      ((sniff_mate t))                                       ((pick_mate_dir) (go)))
# use this fit_to... only if full cruise calls for it
(exploit                     ((day_time t))                                         (nil)                                        ((use_resource 80) (leave 60)))
(use_resource                ((at_home nil) (needed_resource_available t))          (exploit_resource))
(leave                       ()                                                     ((pick_dir) (go)))
(forage                      ((day_time t) (hungry t))                              (nil)                                        ((use_resource 80) (seek_resource 60)))
(fix_cold                    ((day_time t) (cold t))                                ((pick_sheltered_dir) (go_fast)))
(fix_hot                     ((day_time t) (hot t))                                 (nil)                                        ((chill 80) (seek_cold 60))
(chill                       ((cool_spot t))                                        (rest))
(seek_cold                   ()                                                     ((pick_new_sheltered_dir) (go)))
(seek_resource               ()                                                     ((pick_forage_dir) (go)))
(sneak                       ((day_time t))                                         (nil)                                        ((get_safe 80) (preen 70) (warm_up 60) (relax 50) (wander 40)))
(get_safe                    ((covered nil))                                        ((pick_new_sheltered_dir) (go)))
(preen                       ((dirty t))                                            (groom))
(relax                       ((tired t))                                            (rest))
(warm_up                     ((cold t))                                             ((pick_new_sheltered_dir) (go_fast)))
(wander                      ()                                                     ((pick_new_sheltered_dir) (go)))