Author Topic: CFB (IB)(K0zm0)-18.09.04  (Read 3351 times)

Offline Jez

  • Bot Overlord
  • ****
  • Posts: 788
    • View Profile
CFB (IB)(K0zm0)-18.09.04
« on: February 02, 2007, 05:24:40 PM »
'Topic: Interesting Group Behaviour
'CFB
'Made by k0zm0
'18.aug.2004
'Made for DBv2.32
cond
*.eye5 0 >
*.refeye *.myeye !=
*.refeye 0 !=
start
1 .out2 store
stop

cond
*.eye5 0 >
*.refeye *.myeye !=
*.refshoot 0 >
*.reftie 0 =
start
1 .out1 store
stop

cond
*.eye5 0 >
*.refeye *.myeye !=
*.refshoot 0 =
*.reftie 0 >
start
2 .out1 store
stop


cond
*.eye5 0 >
*.refeye *.myeye !=
*.refshoot 0 >
*.reftie 0 >
start
3 .out1 store
stop


cond
*.myeye *.refeye =
start
0 .out1 store
0 .out2 store
stop

cond
*.eye5 0 >
*.refeye *.myeye =
*.in1 1 =
start
1 .out1 store
stop

cond
*.eye5 0 >
*.refeye *.myeye =
*.in1 2 =
start
2 .out1 store
stop

cond
*.out1 1 =
start
100 *.shell sub .mkshell store
stop

cond
*.out1 2 =
start
100 *.slime sub .mkslime store
stop

cond
*.out1 3 =
start
100 *.shell sub .mkshell store
100 *.slime sub .mkslime store
stop

cond
*.eye5 31 <
start
100 .aimdx store
stop

cond
*.in2 0 =
*.eye5 0 >
*.refeye *.myeye =
start
628 rnd .aimdx store
stop

cond
*.in2 1 =
*.eye5 0 >
*.refeye *.myeye =
start
1 .out2 store
*.refaim .setaim .aimdx store
stop

cond
*.eye5 25 >
*.refeye 0 !=
*.refeye *.myeye !=
start
-6 .shoot store
stop

cond
*.eye5 26 >
*.refeye 0 =
start
-1 .shoot store
stop

cond
*.eye5 0 >
*.nrg 6000 >
start
628 rnd .aimsx store
50 .repro store
stop

cond
*.eye5 0 !=
*.refeye *.myeye !=
*.nrg 7000 >
start
-2 .shoot store
stop
end
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