'************************************* '* Tie Struggler * '* * '* Generation 3 can't tie! >:-( * '************************************* cond *.chlr 16000 < start 160 .mkchlr store stop cond *.robage 0 = start 67 .memloc store 101 67 store .tie inc 32 .stifftie store stop cond *.numties 1 < and *.refxpos 0 > and *.memval *67 = start *.refxpos *.refypos angle .setaim store .tie inc 32 .stifftie store stop cond *.refxpos 0 > and *.memval *67 != start *.refxpos *.refypos angle .setaim store -1 .shoot store stop cond *.nrg 16000 > and *.numties 3 < start 50 .repro store 314 rnd .aimdx store stop cond *.nrg 16000 > and *.numties 2 > start *.tiepres .tienum store 32 .tieval store -1 .tieloc store stop cond *.nrg 8000 < and *.numties 0 > start *.tiepres .tienum store -32 .tieval store -1 .tieloc store stop cond *.body 256 < start 32 .strbody store stop