cond
start
100 *.eye5 sub 50 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
*.in3 *.out3 =
*.in4 *.out4 =
start
*.maxvel .dn store
stop
cond
*.eye5 40 >
*.in3 *.out3 !=
start
-6 .shoot store
stop
cond
*.reffixed 0 !=
start
*.pleas .shootval store
stop
cond
*.vtimer 0 =
start
*.thisgene 1 add .mkvirus store
stop
cond
*991 991 !=
start
4 .shootval store
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 20 *.eye5 sub sgn 1 sub sgn abs mult -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 5000 >
start
50 .repro store
stop
cond
*.vtimer 1 =
start
*.nrg 10 div .vshoot store
stop