Author Topic: EvoBot5.4StemA  (Read 1680 times)

Offline Endy

  • Bot Overlord
  • ****
  • Posts: 852
    • View Profile
EvoBot5.4StemA
« on: January 23, 2006, 03:33:32 AM »
' Uses poison to id cannibot kin
' Incredibly impressive in its ability to live peacefully at high population levels
' Some of the genes are probably not strictly necessary
' but have been left in for the novelty

start
1 rnd .fixpos mult inc
.delgene inc
stop

cond
start
'.fixpos *.fixed mult dec
50 .sharenrg *.multi mult store
*.eye5 dup sub dec
stop

cond
*.nrg 5000 >
start
50 .repro store
stop

cond
*.robage 0 =
start
.out1 .ploc store
777 .out1 store
stop

cond
*.eye5 0 >
*.out1 *.in1 = and
*.eye5 0 = or
start
314 rnd .aimdx store
'20 3 rnd 1 add *.hitup *.hitdn add *.hitdx *.hitsx add add sgn mult *.fixed 1 sub -1 mult mult store
20 3 rnd 1 add *.hit mult *.fixed 1 sub -1 mult mult *.numties 1000 mult add store
stop

cond
start
*.refxpos *.refypos angle .setaim *.eye5 sgn mult store
stop

cond
*.out1 *.in1 !=
*.aimdx 0 =
*.eye5 30 >
start
*.refnrg 10 mult *.refbody sub sgn 1 add 2 div -5 mult 1 sub
.shoot store
stop

cond
*.nrg 1010 >
'*.body 100 <
start
100 *.body sub .strbody store
stop

cond
*.nrg 200 <
*.body 20 >
start
10 .fdbody store
stop

cond
*.vel 20 <
*.out1 *.in1 !=
*.eye5 0 >
*.fixed 0 =
start
20 *.vel sub 2 div .up store
stop

cond
*.poison 200 <
*.nrg 500 >
start
200 *.poison sub .mkpoison store
stop

cond
start
20 3 rnd 1 add *.edge mult *.eye5 dup div 1 sub -1 mult mult *.fixed 1 sub -1 mult mult store
.hit *.hit mult dec
stop

end