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