start
3856 989 store
stop
cond
*.vtimer 0 =
start
3 .mkvirus store
stop
cond
3856 *989 !=
start
1 rnd 2 mult 1 sub *.thisgene add .delgene store
100 100 angle .setaim store
10 .up store
*.nrg 500 sub .strbody store
*.thisgene .mkvirus store
50 .vshoot store
50 .repro store
2 .tie store
stop
cond
start
1 .up store
100 100 angle .setaim store
*.nrg 10 div *.body sub .strbody store
*.body *.nrg 10 div sub .fdbody store
50 .vshoot store
2 .tie store
100 .sharenrg store
1 .sharewaste store
stop
cond
*.eye5 0 =
*.refeye *.myeye = or
start
314 rnd .aimdx store
stop
cond
*.body 100 <
*.nrg 10000 > or
start
10 .strbody store
stop
cond
*.nrg 500 <
start
10 .fdbody store
stop
cond
*.nrg 5000 >
start
50 .repro store
stop