'Animal Minimalis with a poison gene and a special identifier

' Gene 1 Food Finder
cond
 *.eye5 0 >
 *.refeye *.myeye !=
start
 *.refveldx .dx store
 *.refvelup 30 add .up store
stop

' Gene 2 Eat Food
cond
 *.eye5 50 >
 *.refeye *.myeye !=
start
-1 .shoot store
 *.refvelup .up store
stop

' Gene 3 Avoiding Family
cond
 *.eye5 0 =
 *.refeye *.myeye = or
start
 314 rnd .aimdx store
stop

' Gene 4 Reproduce
cond
 *.nrg 6000 >
start
 50 .repro store
stop

cond
*.body 400 >
start
100 .fdbody store

cond
*.nrg 5000 >
*.poison 5000 <=
start
100 .mkpoison store
.fdbody .ploc store
99 .pval store
stop

start
16 .out1 store
16 .tout10 store
stop