'Should move like SEASNAKE
def head 50
def hunt 51
'Gene Move On (turning)
cond
*.eye5 0 =
*.head 1 =
*.hunt 0 =
start
60 rnd .aimdx store
60 rnd .aimsx store
1 .hunt store
stop
'Gene Move On (Moving)
cond
*.eye5 0 =
*.head 1 =
*.hunt 1 =
start
1 .tout1 store
2 .hunt store
stop
cond
*.eye5 0 =
*.head 1 =
*.hunt 2 =
start
500 .fixlen store
3 .hunt store
stop
cond
*.eye5 0 =
*.head 1 =
*.hunt 3 =
start
1 .fixpos store
4 .hunt store
stop
cond
*.eye5 0 =
*.head 1 =
*.hunt 4 =
start
0 .tout1 store
5 .hunt store
stop
cond
*.eye5 0 =
*.head 1 =
*.hunt 5 =
start
0 .fixlen store
0 .hunt store
stop
'Gene Food Finder (Head)
cond
*.eye5 0 >
*.refeye *.myeye !=
*.multi 1 =
*.head 1 =
*.reftype 0 =
*.dist 6 >
start
1 .tout1 store
*.dist 6 sub .fixlen
stop
'Gene Food Finder (Head)
cond
*.eye5 0 >
*.refeye *.myeye !=
*.multi 1 =
*.head 1 =
*.reftype 0 =
*.dist 6 =<
start
0 .tout1 store
*.dist 6 sub .fixlen
-1 .shoot store
-6 .shoot store
stop
'Gene Head Recieved (Tail)
cond
*.head 0 =
start
*.tin1 .fixpos store
stop
'Gene Avoiding Family
cond
*.multi 1 =
*.eye5 0 =
*.head 1 =
*.refeye *.myeye =
start
314 rnd .aimdx store
stop
'Gene Duplicate
cond
*.numties 0 =
*.robage 0 !=
start
50 .repro store
.head inc
stop
'Gene Recombine
cond
*.robage 0 =
start
.tie inc
stop
' Gene Reproduce
cond
*.nrg 15000 >
*.numties 2 <
start
40 .repro store
stop
'Gene Splits.
cond
*.nrg 14000 >=
*.multi 1 =
*.head 0 =
start
.deltie inc
.head inc
stop
'************************************************************
'Gene multibot control center
cond
*.multi 1 = or
start
40 .sharenrg store
999 .maxlen store
75 .stifftie store
628 .fixang store
stop
end
What in its movement cycles have broken it....It should move like a seasnake....But won't!
Until this is sorted out I can't complete my ultra-long seasnake (worked out solution to getting it to keep in its snakey pattern)
OFFTOPIC: What DNA would make the length of a tie stay BETWEEN 50 and 500 (There isn't a .minlen sysvar is there? I can't find WIKI mentions to .maxlen or .minlen)