cond
*.edge 0 =
start
40 40 angle .setaim store
30 *.vel sub .up store
stop
cond
start
.delgene *.edge mult inc
stop
cond
start
.fixpos *.fixed mult dec
9 inc
stop
cond
*.robage 0 =
start
50 1 rnd mult inc
stop
cond
*.nrg 300 >
*50 0 =
start
50 inc
stop
cond
*.eye5 50 >
*.refeye *.myeye !=
start
-1 *.refage *.refage div mult .shoot store
stop
cond
*.refeye 0 =
start
.tie inc
stop
cond
*.numties 4 =
start
.fixpos inc
stop
cond
*50 0 !=
*.vel 20 <
*.numties 0 =
*.eye5 50 <
start
20 *.vel sub 2 div rnd .up store
stop
cond
*.eye2 *.eye8 !=
start
*.eye2 *.eye8 sub 2 div .aimsx store
stop
cond
*.eye4 *.eye6 !=
start
*.eye4 *.eye6 sub .aimsx store
stop
cond
*.refeye *.myeye =
start
314 rnd .aimsx store
stop
cond
*.nrg 10000 >
start
300 inc
stop
end
