1

**Interesting behaviour bots / FarmerBot**

« **on:**February 03, 2008, 01:43:02 PM »

def id1 971 '971

def id2 972 '972

def maxnrg 973

def maxbody 974

def distance 975

def skavt 51

def seq 52

start

*.robage 0 =

1 1 =

and

*.tiepres .deltie store

628 .aimsx store

1000 .maxbody store

1000 .maxnrg store

500 .distance store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.skavt 0 =

and

*.out1 *.in1 =

and

*.out2 *.in2 =

and

*.refnrg 1000 >

and

-1 .shoot store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.in1 0 =

and

*.id1 .shootval store

.out1 .shoot store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.in2 0 =

and

*.id2 .shootval store

.out2 .shoot store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.out1 *.in1 =

and

*.out2 *.in2 =

and

*.skavt 0 =

and

*.refnrg 1000 <=

and

1000 rnd .aimdx store

clearbool

*.eye5 0 =

*.id1 *.id2 dist *.distance *.totalmyspecies 3 div mult <

and

*.skavt 0 =

and

1000 rnd .aimsx store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.out1 *.in1 !=

and

*.out2 *.in2 !=

and

0 *.in1 !=

and

0 *.in2 !=

and

*.skavt 0 =

and

-1 .shoot store

clearbool

*.robage 20 >

*.eye5 50 >

and

*.refeye 0 =

and

*.id1 0 =

and

*.id2 0 =

and

*.xpos .id1 store

*.ypos .id2 store

clearbool

*.id1 *.out1 !=

*.id2 *.out2 !=

and

*.id1 .out1 store

*.id2 .out2 store

clearbool

*.eye5 50 <

*.maxvel *.vel >

and

*.fixed 0 =

and

*.robage 40 >

and

*.maxvel *.vel sub 10 div .up store

clearbool

*.thisgene 0 >

*.genes 1 !=

and

*.thisgene 1 sub .delgene store

clearbool

*.thisgene 0 =

*.genes 1 !=

and

*.thisgene 1 add .delgene store

clearbool

*.eye5 0 >

*.refeye *.myeye !=

and

*.skavt 0 =

and

*.refxpos *.refypos angle .setaim store

clearbool

*.eye5 0 >

*.refeye *.myeye !=

and

*.skavt 1 =

and

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

and

*.numties 0 =

and

*.refxpos *.refypos angle .setaim store

clearbool

*.eye5 0 >

*.refeye *.myeye !=

and

*.skavt 1 =

and

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

and

15 .aimsx store

clearbool

*.fixed 0 !=

1 1 =

and

0 .fixpos store

clearbool

*.waste 100 >

*.refeye 0 =

and

*.eye5 30 >

and

100 *.waste sub .shootval store

-4 .shoot store

clearbool

*.maxbody *.body <

*.maxnrg *.nrg <

and

*.skavt 0 =

and

628 .aimdx store

50 .repro store

clearbool

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

*.skavt 0 =

and

*.id1 *.id2 angle .setaim store

clearbool

*.eye5 30 >

*.refeye *.myeye =

and

*.in1 *.out1 !=

*.in2 *.out2 !=

or

and

-1 .shoot store

clearbool

*.eye5 0 >

*.refeye *.myeye =

and

*.out1 *.in1 =

and

*.out2 *.in2 =

and

*.refaim .setaim store

clearbool

*.maxbody *.body >

*.maxnrg *.nrg <

and

100 .strbody store

clearbool

*.robage 2500 >

*.maxnrg 2 div *.nrg <

and

1 .skavt store

clearbool

*.robage 2500 >

*.maxnrg 2 div *.nrg >

and

*.numties 0 =

and

0 .skavt store

clearbool

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

*.refeye 0 =

and

*.eye5 30 >

and

*.seq 0 =

and

*.skavt 1 =

and

*.reffixed 0 !=

and

0 .shootval store

.fixpos .shoot store

clearbool

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult <

*.refeye 0 =

and

*.eye5 30 >

and

*.seq 0 =

and

*.skavt 1 =

and

628 rnd .aimsx store

clearbool

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

*.refeye 0 =

and

*.eye5 30 >

and

*.seq 0 =

and

*.skavt 1 =

and

*.reffixed 0 =

and

1 .readtie store

1 .tienum store

1 .tie store

1 .seq store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.numties 0 !=

and

*.id1 *.id2 angle .setaim store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.numties 0 =

and

0 .seq store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.numties 0 !=

and

*.eye5 10 >

and

70 rnd 70 rnd sub .aimsx store

clearbool

*.skavt 1 =

*.seq 1 =

and

1 .tienum store

628 .tieang1 store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.reffixed 0 =

and

*.skavt 0 =

and

*.refmulti 0 =

and

1 .shootval store

.fixpos .shoot store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.numties 1 >

and

*.tiepres .deltie store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.eye5 0 >

and

628 .aimsx store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult 2 div <

and

*.tiepres .deltie store

0 .seq store

0 .skavt store

clearbool

stop

def id2 972 '972

def maxnrg 973

def maxbody 974

def distance 975

def skavt 51

def seq 52

start

*.robage 0 =

1 1 =

and

*.tiepres .deltie store

628 .aimsx store

1000 .maxbody store

1000 .maxnrg store

500 .distance store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.skavt 0 =

and

*.out1 *.in1 =

and

*.out2 *.in2 =

and

*.refnrg 1000 >

and

-1 .shoot store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.in1 0 =

and

*.id1 .shootval store

.out1 .shoot store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.in2 0 =

and

*.id2 .shootval store

.out2 .shoot store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.out1 *.in1 =

and

*.out2 *.in2 =

and

*.skavt 0 =

and

*.refnrg 1000 <=

and

1000 rnd .aimdx store

clearbool

*.eye5 0 =

*.id1 *.id2 dist *.distance *.totalmyspecies 3 div mult <

and

*.skavt 0 =

and

1000 rnd .aimsx store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.out1 *.in1 !=

and

*.out2 *.in2 !=

and

0 *.in1 !=

and

0 *.in2 !=

and

*.skavt 0 =

and

-1 .shoot store

clearbool

*.robage 20 >

*.eye5 50 >

and

*.refeye 0 =

and

*.id1 0 =

and

*.id2 0 =

and

*.xpos .id1 store

*.ypos .id2 store

clearbool

*.id1 *.out1 !=

*.id2 *.out2 !=

and

*.id1 .out1 store

*.id2 .out2 store

clearbool

*.eye5 50 <

*.maxvel *.vel >

and

*.fixed 0 =

and

*.robage 40 >

and

*.maxvel *.vel sub 10 div .up store

clearbool

*.thisgene 0 >

*.genes 1 !=

and

*.thisgene 1 sub .delgene store

clearbool

*.thisgene 0 =

*.genes 1 !=

and

*.thisgene 1 add .delgene store

clearbool

*.eye5 0 >

*.refeye *.myeye !=

and

*.skavt 0 =

and

*.refxpos *.refypos angle .setaim store

clearbool

*.eye5 0 >

*.refeye *.myeye !=

and

*.skavt 1 =

and

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

and

*.numties 0 =

and

*.refxpos *.refypos angle .setaim store

clearbool

*.eye5 0 >

*.refeye *.myeye !=

and

*.skavt 1 =

and

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

and

15 .aimsx store

clearbool

*.fixed 0 !=

1 1 =

and

0 .fixpos store

clearbool

*.waste 100 >

*.refeye 0 =

and

*.eye5 30 >

and

100 *.waste sub .shootval store

-4 .shoot store

clearbool

*.maxbody *.body <

*.maxnrg *.nrg <

and

*.skavt 0 =

and

628 .aimdx store

50 .repro store

clearbool

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

*.skavt 0 =

and

*.id1 *.id2 angle .setaim store

clearbool

*.eye5 30 >

*.refeye *.myeye =

and

*.in1 *.out1 !=

*.in2 *.out2 !=

or

and

-1 .shoot store

clearbool

*.eye5 0 >

*.refeye *.myeye =

and

*.out1 *.in1 =

and

*.out2 *.in2 =

and

*.refaim .setaim store

clearbool

*.maxbody *.body >

*.maxnrg *.nrg <

and

100 .strbody store

clearbool

*.robage 2500 >

*.maxnrg 2 div *.nrg <

and

1 .skavt store

clearbool

*.robage 2500 >

*.maxnrg 2 div *.nrg >

and

*.numties 0 =

and

0 .skavt store

clearbool

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

*.refeye 0 =

and

*.eye5 30 >

and

*.seq 0 =

and

*.skavt 1 =

and

*.reffixed 0 !=

and

0 .shootval store

.fixpos .shoot store

clearbool

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult <

*.refeye 0 =

and

*.eye5 30 >

and

*.seq 0 =

and

*.skavt 1 =

and

628 rnd .aimsx store

clearbool

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult >

*.refeye 0 =

and

*.eye5 30 >

and

*.seq 0 =

and

*.skavt 1 =

and

*.reffixed 0 =

and

1 .readtie store

1 .tienum store

1 .tie store

1 .seq store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.numties 0 !=

and

*.id1 *.id2 angle .setaim store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.numties 0 =

and

0 .seq store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.numties 0 !=

and

*.eye5 10 >

and

70 rnd 70 rnd sub .aimsx store

clearbool

*.skavt 1 =

*.seq 1 =

and

1 .tienum store

628 .tieang1 store

clearbool

*.eye5 30 >

*.refeye 0 =

and

*.reffixed 0 =

and

*.skavt 0 =

and

*.refmulti 0 =

and

1 .shootval store

.fixpos .shoot store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.numties 1 >

and

*.tiepres .deltie store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.eye5 0 >

and

628 .aimsx store

clearbool

*.skavt 1 =

*.seq 1 =

and

*.id1 *.id2 dist *.distance *.totalmyspecies sqr mult 2 div <

and

*.tiepres .deltie store

0 .seq store

0 .skavt store

clearbool

stop