Author Topic: Oculus Infinitus  (Read 3541 times)

Offline Commander Keen

  • Bot Builder
  • **
  • Posts: 91
    • View Profile
Oculus Infinitus
« on: September 18, 2007, 06:55:15 PM »
My first bot, in it's umpteenth revision. Uses a few sneaky tricks, but overall it's probably pretty useless. Lots of very inefficient genes  

Still, it works quite well, although if you upped costs, then it would die rather quick.

Next time round, I'll work on compacting the code...

Code: [Select]
cond
*.veldx *.velsx >
start
*.velsx .dx store
stop

cond
*.veldx *.velsx <
start
*.veldx .sx store
stop

cond
*.refeye *.myeye =
start
*.maxvel *.vel sub .up .store
stop

cond
*.veldx *.vel <
*.velsx *.vel <
*.eye4 *.eye1 1 sub >
*.eye4 *.eye2 1 sub >
*.eye4 *.eye3 1 sub >
*.eye4 *.eye5 >
*.eye4 *.eye6 1 sub >
*.eye4 *.eye7 1 sub >
*.eye4 *.eye8 1 sub >
*.eye4 *.eye9 1 sub >
start
35 .aimsx store
stop

cond
*.veldx *.vel <
*.velsx *.vel <
*.eye6 *.eye1 1 sub >
*.eye6 *.eye2 1 sub >
*.eye6 *.eye3 1 sub >
*.eye6 *.eye4 1 sub >
*.eye6 *.eye5 >
*.eye6 *.eye7 1 sub >
*.eye6 *.eye8 1 sub >
*.eye6 *.eye9 1 sub >
start
35 .aimdx store
stop


cond
*.veldx *.vel <
*.velsx *.vel <
*.eye3 *.eye1 1 sub >
*.eye3 *.eye2 1 sub >
*.eye3 *.eye4 1 sub >
*.eye3 *.eye5 >
*.eye3 *.eye6 1 sub >
*.eye3 *.eye7 1 sub >
*.eye3 *.eye8 1 sub >
*.eye3 *.eye9 1 sub >
start
70 .aimsx store
stop

cond
*.veldx *.vel <
*.velsx *.vel <
*.eye7 *.eye1 1 sub >
*.eye7 *.eye2 1 sub >
*.eye7 *.eye3 1 sub >
*.eye7 *.eye4 1 sub >
*.eye7 *.eye5 >
*.eye7 *.eye6 1 sub >
*.eye7 *.eye8 1 sub >
*.eye7 *.eye9 1 sub >
start
70 .aimdx store
stop


cond
*.veldx *.vel <
*.velsx *.vel <
*.eye2 *.eye1 1 sub >
*.eye2 *.eye3 1 sub >
*.eye2 *.eye4 1 sub >
*.eye2 *.eye5 >
*.eye2 *.eye6 1 sub >
*.eye2 *.eye7 1 sub >
*.eye2 *.eye8 1 sub >
*.eye2 *.eye9 1 sub >
start
105 .aimsx store
stop

cond
*.veldx *.vel <
*.velsx *.vel <
*.eye8 *.eye1 1 sub >
*.eye8 *.eye2 1 sub >
*.eye8 *.eye3 1 sub >
*.eye8 *.eye4 1 sub >
*.eye8 *.eye5 >
*.eye8 *.eye6 1 sub >
*.eye8 *.eye7 1 sub >
*.eye8 *.eye9 1 sub >
start
105 .aimdx store
stop


cond
*.veldx *.vel <
*.velsx *.vel <
*.eye1 *.eye2 1 sub >
*.eye1 *.eye3 1 sub >
*.eye1 *.eye4 1 sub >
*.eye1 *.eye5 >
*.eye1 *.eye6 1 sub >
*.eye1 *.eye7 1 sub >
*.eye1 *.eye8 1 sub >
*.eye1 *.eye9 1 sub >
start
140 .aimsx store
stop

cond
*.veldx *.vel <
*.velsx *.vel <
*.eye9 *.eye1 1 sub >
*.eye9 *.eye2 1 sub >
*.eye9 *.eye3 1 sub >
*.eye9 *.eye4 1 sub >
*.eye9 *.eye5 >
*.eye9 *.eye6 1 sub >
*.eye9 *.eye7 1 sub >
*.eye9 *.eye8 1 sub >
start
140 .aimdx store
stop


cond
*.veldx *.vel <
*.velsx *.vel <
*.eye5 70 >
start
0 .aimdx store
0 .aimsx store
stop

'cond
'*.out1 537 !=
'start
'537 .out1 store
'stop

cond
'*.aimdx 0 =
'*.aimsx 0 =
'*.in1 537 !=
*.eye5 40 >
start
256 .shootval store
stop


cond
'*.aimdx 0 =
'*.aimsx 0 =
'*.in1 537 !=
*.eye5 41 <
*.eye5 > 20
start
-8 .shootval store
stop

cond
'*.aimdx 0 =
'*.aimsx 0 =
'*.in1 537 !=
*.eye5 21 <
*.eye5 > 0
start
-16 .shootval store
stop


cond
*.aimdx 0 =
*.aimsx 0 =
*.refeye *.myeye !=
*.eye5 0 !=
start
0 .aimshoot store
-1 .shoot store
stop


cond
*.aimsx 0 =
*.aimdx 0 =
*.refeye *.myeye =
start
300 .aimdx store
0 .refeye store
stop


'cond
'start
'1 .up store
'stop

cond
*.aimsx 0 =
*.aimdx 0 =
*.refeye *.myeye !=
*.eye5 50 <
*.eye5 0 !=
start
'100 *.eye5 sub .up store
*.refveldx *.veldx sub .dx .store
*.refvelsx *.velsx sub .sx .store
*.refvelup 30 add .up store
stop

cond
*.nrg 2000 >
*.body 2000 <
start
*.nrg 2000 sub 10 div .strbody store
stop

cond
*.nrg 2000 >
*.body 1000 >
start
50 .repro store
stop

cond
*.nrg 2000 <
start
*.body 20 sub .fdbody store
stop

cond
*.waste 100 >
start
*.waste .shootval .store
-4 .shoot store
stop

cond
*.robage 20 <
start
0 .up store
stop

cond
*.up 0 =
start
10 .up store
stop

'Chameleon Gene
cond
*.in1 0 !=
or
*.in2 0 !=
or
*.in3 0 !=
or
*.in4 0 !=
or
*.out1 0 =
*.out2 0 =
*.out3 0 =
*.out4 0 =
*.refeye *.myeye !=
start
*.in1 .out1 store
*.in2 .out2 store
stop

'-Tie Defence-'
cond
*.multibot 1 =
start
1 .sharewaste store
100 .sharenrg store
100 .shareshell store
100 .shareslime store
stop
cond
start
*.tiepres .deltie store
stop

cond
*.edge 1 =
start
100 .aimdx store
0 .aimsx store
0 .edge store

Offline Botsareus

  • Society makes it all backwards - there is a good reason for that
  • Moderator
  • Bot God
  • *****
  • Posts: 4483
    • View Profile
Re: Oculus Infinitus
« Reply #1 on: May 02, 2014, 02:08:30 PM »
Where should this go? Moving to untagged.