'Warning: will not work as posted!!! (read posts below)
'Experiment involving a species that was at least temporarily altruistic towards it's family. Whenever 32000
'rnd equals 1 however they randomly change their out1 value. This seemed to happen on a fairly regular
'basis, presumably about every 16000 cycles. During the transition points the population droped rapidly until
' a new number dominated.
'At first a completly(no kin recognition) canni species evolved from them. Next in response to the canni's
' attacks and inter-family fighting a completly altruistic species evolved. They eventually won out. From the
' completly altruistic species a chamelon canni species evolved. The altruists were eliminated. Eventually the
'wasteful canni methods caused the population to wipe itself out.
'Revolutionary Bot
cond
start
' Standard epigenetic starter
31999 rnd 1 add 550 store
.delgene inc
stop
cond
start
.out1 inc
32000 rnd
stop
cond
1 =
start
' 1/32001 chance that 550 will randomly change to something else,
' once that happens population begins a downward slide until the population stabilizes at a new number.
31999 rnd 1 add 550 store
stop
cond
*.robage 0 =
start
*550 .out1 store
stop
cond
*.eye5 45 >
*.out1 *.in1 !=
start
.shoot dec
stop
cond
*.nrg 5000 >
start
50 .repro store
*.nrg 5000 sub .strbody store
stop
' Avoid / Attack
cond
*.eye5 45 <
*.eye5 0 >
15 *.vel >
*.in2 *.refage !=
start
15 *.vel sub 2 div .up store
stop
' and this gene sets aim to well... aim. It was an avoidance gene, but along the way evolution had it's vote
' woks better than the original gene so it's been left this way
cond
*.eye5 0 >
*.refage *.in2 >
start
314 inc
*.aim add .setaim store
stop
cond
*.eye5 45 <
*.eye5 0 >
*.maxvel *.vel >
*.in1 *.out1 !=
start
*.maxvel *.vel sub 2 div .up store
stop
cond
*.eye5 0 >
*.in1 *.out1 =
start
314 rnd *.aim add .setaim store
stop
cond
*.eye5 0 =
start
314 rnd *.aim add .setaim store
stop
end
