Author Topic: F-Alpha (F2)(K0zm0)-12.04.04  (Read 1000 times)

Offline Jez

  • Bot Overlord
  • ****
  • Posts: 788
    • View Profile
F-Alpha (F2)(K0zm0)-12.04.04
« on: January 07, 2007, 09:23:26 AM »
Code: [Select]
'Topic: Ecosistem (Bot for 2.15Pond1)
'K0zm0

'F-Alpha
'Made for DB v 2.15Pond1
'Made by k0zm0 12.04.2004

cond
*.robage 0 =
start
12 50 store
15 rnd 51 store
100 .setboy store
stop

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

cond
*.eye5 0 =
start
*.eye1 *.eye9 sub
*.eye2 *.eye8 sub
*.eye3 *.eye7 sub
*.eye4 *.eye6 sub
add add add 2 div .aimsx store
stop

cond
*.eye5 20 <
start
45 .aimsx store
stop

cond
*.numties 1 =
*.eye5 30 >
*.refeye *50 =
start
*51 .tienum store
*51 .tie store
*51 .readtie store
624 .aimsx store
stop

cond
*.numties 0 >
*.nrg 1000 <
start
50 .sharenrg store
50 .sharewaste store
stop

cond
*.slime 80 <
*.numties 0 >
start
50 .shareslime store
stop

cond
*.shell 80 <
*.numties 0 >
start
50 .shareshell store
stop

cond
*.eye5 30 >
*.refeye *50 !=
start
-1 .shoot store
stop

cond
*52 1 =
*.numties 0 =
start
0 52 store
stop

cond
*52 0 =
*.numties 0 >
start
1 52 store
stop

cond
*52 0 =
*.slime 99 <
start
100 *.slime sub .mkshell store
stop

cond
*52 0 =
*.shell 99 <
start
100 *.shell sub .mkshell store
stop

cond
*52 1 =
*.slime 199 <
start
200 *.slime sub .mkslime store
stop

cond
*52 1 =
*.shell 199 <
start
200 *.shell sub .mkshell store
stop

cond
*.body 1000 >
start
100 .fdbody store
stop

cond
*.waste 0 >
start
*.waste .strpoison store
stop
end
« Last Edit: May 09, 2014, 12:17:38 PM by Botsareus »
If you try and take a cat apart to see how it works, the first thing you have in your hands is a non-working cat.
Douglas Adams