'ok I named my original octopus originaloc after I modified him quite a lot
'and this is the new octopus. Iam still not sure which one acts better ^^.
cond
*.numties 0 =
*.multi 0 =
*.eye4 *.eye5 >
*.refeye *.myeye !=
start
100 *.eye4 sub *.eye1 mult add
stop
cond
*.numties 0 =
*.multi 0 =
*.eye3 *.eye5 >
*.refeye *.myeye !=
start
100 *.eye3 sub *.eye3 mult add
stop
cond
*.numties 0 =
*.multi 0 =
*.eye2 *.eye5 >
*.refeye *.myeye !=
start
100 *.eye2 sub *.eye2 mult add
stop
cond
*.numties 0 =
*.multi 0 =
*.eye1 *.eye5 >
*.refeye *.myeye !=
start
100 *.eye1 sub *.eye1 mult add
stop
cond
*.numties 0 =
*.multi 0 =
*.eye6 *.eye5 >
*.refeye *.myeye !=
start
100 *.eye6 sub *.eye6 mult sub
stop
cond
*.numties 0 =
*.multi 0 =
*.eye7 *.eye5 >
*.refeye *.myeye !=
start
100 *.eye7 sub *.eye7 mult sub
stop
cond
*.numties 0 =
*.multi 0 =
*.eye8 *.eye5 >
*.refeye *.myeye !=
start
100 *.eye8 sub *.eye8 mult sub
stop
cond
*.numties 0 =
*.multi 0 =
*.eye8 *.eye5 >
*.refeye *.myeye !=
start
100 *.eye8 sub *.eye8 mult sub
stop
cond
*.numties 0 =
*.multi 0 =
start
50 div .aimsx store
stop
cond
*.numties 0 =
*.multi 0 =
*.refeye *.myeye !=
*.eye5 50 <
start
*.eye1 add *.eye2 add *.eye3 add *.eye4 add *.eye6 sub *.eye7 sub *.eye8 sub *.eye9 sub 8 div .sx store
stop
cond
*.vel 30 <
*.multi 0 =
*.numties 0 =
*.eye5 20 <
start
30 *.vel sub 2 div .up store
stop
'XXXXXXXXXXXXXXXXXXXXXXXXX
cond
*.robage 100 >
*.numties 4 <
*.nrg 2000 >
*54 0 =
*.eye5 10 >
start
10 .repro store
314 .aimdx store
stop
cond
*.numties 1 =
*.robage 20 <
*54 50 <
start
54 inc
50 50 store
stop
cond
*.numties 0 =
*.robage 400 >
*.multi 0 =
*54 0 >
start
54 dec
stop
cond
*.numties 0 =
*.robage 10 <
start
5 .tie store
5 .tienum store
5 .stifftie store
stop
cond
*.nrg 10000 >
*.robage 400 >
start
5 .deltie store
stop
cond
*.refeye *.myeye =
*.multi 1 =
*53 0 =
start
618 .fixang store
53 inc
stop
cond
*.refeye *.myeye =
*.robage 400 >
*70 0 =
start
618 .aimsx store
70 inc
stop
cond
*54 0 >
*.eye5 10 <
*.refeye *.myeye !=
*.numties 0 >
*.multi 0 >
start
*66 .setaim store
*66 *50 add 66 store
stop
cond
*54 0 >
*.eye5 10 >
*.numties 0 >
*.multi 0 >
start
*66 .setaim store
stop
cond
*66 350 > or
*66 -350 >
start
*50 -1 mult 50 store
stop
cond
*.numties 0 >
start
50 .sharenrg store
stop
cond
*.vel 10 <
*54 0 >
*.eye5 10 >
*.eye5 50 <
*.refeye *.myeye !=
start
10 *.vel sub 2 div .up store
stop
cond
*.eye5 15 >
*.refeye 2 <
start
-1 .shoot store
-10 .shootval store
stop
cond
*.eye5 15 >
*.refeye 1 >
*.refeye *.myeye !=
start
-6 .shoot store
-10 .shootval store
stop
cond
*.waste 100 >
start
*.waste .shootval store
-4 .shoot store
stop
cond
*.nrg 6000 >
*.body 100 <
start
10 .strbody store
stop
cond
*.nrg 6000 >
*.shell 390 <
start
400 *.shell sub .mkshell store
stop
end