Author Topic: FarmerBot  (Read 1330 times)

Offline k0zm0

  • Bot Neophyte
  • *
  • Posts: 43
    • View Profile
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
I'm not crazy and I'm not normal.
If I were normal, I would go crazy.

Offline rsucoop

  • Bot Destroyer
  • ***
  • Posts: 166
    • View Profile
FarmerBot
« Reply #1 on: February 03, 2008, 07:14:13 PM »
Nice bot. I have to say every simulation I ran, no matter where they started, they always seemed to collect in some line, trying to harvest my own Slim Evo with some success.

Offline k0zm0

  • Bot Neophyte
  • *
  • Posts: 43
    • View Profile
FarmerBot
« Reply #2 on: February 04, 2008, 06:57:04 AM »
Quote from: rsucoop
Nice bot. I have to say every simulation I ran, no matter where they started, they always seemed to collect in some line, trying to harvest my own Slim Evo with some success.

Thanx, I'll try to make more interesting behaviour bot soon...
I'm not crazy and I'm not normal.
If I were normal, I would go crazy.

Offline Botsareus

  • Society makes it all backwards - there is a good reason for that
  • Moderator
  • Bot God
  • *****
  • Posts: 4483
    • View Profile
    • DJ Paul Kononov
Re: FarmerBot
« Reply #3 on: May 02, 2014, 12:39:59 PM »
Very nice bot, I would qualify it for a league.