'Alga Liberalis: Reproduces in a lattice
'arrangement and shares energy with conpspecs
'Designed so that veggies surrounded by conspecs
'and can't reproduce don't pointlessly
'build up massive amounts of energy.
'Im still not happy about plants
'using .shoot though!
def liberal 50
'=================='
'Gene #1: Reproduce'
'=================='
cond *.eye5 41 <
*.nrg 3000 >
start
60 .repro store
stop
'============='
'Gene #2: Turn'
'============='
cond *.eye5 41 >
*.in1 0 =
start
314 .aimsx store
stop
'======================'
'Gene #3: Help friends!'
'======================'
cond *.eye5 41 >
*.refeye *.myeye =
*.in1 0 >
*.in1 *.nrg <
*.liberal 1 =
start
-2 .shoot store
*.in1 .shootval store
stop
'================='
'Gene #4: Get help'
'================='
cond *.nrg 1500 <
start
1500 *.nrg sub .out1 store
0 .liberal store
stop
'======================='
'Gene #5: Don't cry wolf'
'======================='
cond *.nrg 1500 >
start
0 .out1 store
1 .liberal store
stop
end