cond *.numties 0 = start 50 .repro store stop cond *.robage 0 = start .tie inc stop cond *.numties 1 = start 1 .tienum store 628 .fixang store 50 .sharenrg store stop cond *.trefage *.robage < *.eye5 0 > *.refeye *.myeye != start -8 .shootval store -6 .shoot store stop cond *.trefage *.robage > *.robage 40 mod 20 > start *.tiepres .deltie *.body 500 sub sgn mult store 300 .fixlen store 1 .fixpos store stop cond *.trefage *.robage < *.trefage 40 mod 20 > start 0 .fixpos store *.eye9 *.eye1 sub 2 div .aimdx store stop cond *.trefage *.robage > *.robage 40 mod 20 < start 1 .fixlen store 0 .fixpos store stop cond *.trefage *.robage < *.trefage 40 mod 20 < start 1 .fixpos store stop cond *.waste 10 > start *.waste .shootval store -4 .shoot store stop cond *.nrg 2000 > start 100 .strbody store stop cond *.nrg 1000 < start 100 .fdbody store stop