cond
start
-32000 .shootval *.eye5 40 sub sgn 0 floor mult *.memval *999 sub sgn abs mult store
.shootval .shoot *.eye5 40 sub sgn 0 floor mult *.memval *999 sub sgn abs mult store
3 .up store
3 .sx store
24 999 store
*.nrg 3 div *.body sub dup .strbody store - .fdbody store
*.memval 24 sub sgn abs 41 add .tie store
*.eye5 sgn -- abs 1216 rnd mult .aimdx store
99 .sharenrg store
1 .sharewaste store
41 .deltie store
-6 .tieloc store
-1000 .tieval store
100 .shareshell store
100 .shareslime store
*.nrg 200 sub sgn ++ sgn 50 mult .repro store
999 .memloc store
1 rnd ++ 2 mult 3 sub *.thisgene add .delgene store
stop
'#tag:Singula Haloculus v2.1.txt

'#tag:Singula Haloculus v2.1 (SB)(bacillus)5-12-2008.txt