cond
start
100 *.eye5 sub 25 div .up store
407 .out4 store
407 .out3 store
*.nrg 5 div *.body sub .strbody store
*.body *.nrg 5 div sub .fdbody store
991 991 store
1216 .eye5width store
*.refxpos *.refypos angle .setaim store
stop
cond
*.eye5 40 >
*.in3 *.out3 !=
start
-6 .shoot store
stop
cond
*.vtimer 0 =
start
*.thisgene 1 add .mkvirus store
stop
cond
*991 991 !=
start
407 .out4 store
*.thisgene 1 rnd 2 mult 1 sub add .delgene store
1 .fixpos store
1216 .eye5width store
*.refxpos *.refypos angle .setaim store
*.in4 407 sub sgn abs -6 mult .shoot store
*.thisgene .mkvirus store
*.nrg 50 div .vshoot store
*.nrg 5 div *.body sub .strbody store
stop
cond
*.waste 50 >
start
*.waste .shootval store
-4 .shoot store
stop
cond
*.nrg 7500 >
start
50 .repro store
stop
cond
*.vtimer 1 =
start
*.nrg 10 div .vshoot store
stop