'Topic: Grexa-2: hunters needed
'Jez
'Praestolatio Grexa - Waiting for or expecting Grexa
'2.2pond sim size2 with corpses Using Veg Grexa2
'initialisation
cond
*.robage 0 =
start
1 .tie store
40 123 store
1 900 rnd 99 store
stop
'reproduce
cond
*.eye5 0 =
*.nrg 6000 >
start
25 .repro store
stop
'target
cond
*.eye5 0 =
start
mult 208
stop
cond
*.eye1 40 >
*.eye1 *.eye5 >
start
mult 104
stop
cond
*.eye9 40 >
*.eye9 *.eye5 >
start
mult -104
stop
cond
*.eye2 40 >
*.eye2 *.eye5 >
start
mult 78
stop
cond
*.eye8 40 >
*.eye8 *.eye5 >
start
mult -78
stop
cond
*.eye3 40 >
*.eye3 *.eye5 >
start
mult 52
stop
cond
*.eye7 40 >
*.eye7 *.eye5 >
start
mult -52
stop
cond
*.eye4 40 >
*.eye4 *.eye5 >
start
mult 26
stop
cond
*.eye6 40 >
*.eye6 *.eye5 >
start
mult -26
stop
cond
*.edge 1 =
*.eye5 0 >
start
mult 209
stop
cond
*.refeye *123 =
start
mult 209
stop
cond
start
.aimsx store
stop
'shoot
cond
*.eye5 40 >
*.refnrg 25 >
*.refeye 123 !=
*.refage 0 >
start
-1 .shoot store
*99 .tie store
stop
cond
*.refage 0 >
*.eye5 40 >
*.refnrg 26 <
start
-6 .shoot store
stop
'delete ties
cond
*.numties 0 >
*.refeye *123 =
start
*.tiepres .deltie store
stop
'feed through tie
cond
*.numties 0 >
*.trefeye *123 !=
start
*.tiepres .tienum store
-1 .tieloc store
-1000 .tieval store
stop
'move
cond
*.eye1 *.eye2 add *.eye3 *.eye4 add add *.eye6 *.eye7 add add *.eye8 *.eye9 add add 8 div 1 sub *.eye5 <
*.eye5 40 >
*.refeye 123 !=
start
100 *.eye5 sub 10 div 2 mult .up store
stop
end
