'*************************************
'*             Tieplant              *
'*                                   *
'*************************************

cond
 *.robage 0 =
start
 68 .memloc store
 101 68 store
 .tie inc
 32 .stifftie store
stop

'cond
' *.numties 1 <
' *.refxpos 0 >
' *.memval *68 =
'start
' *.refxpos *.refypos angle .setaim store
' .tie inc
' 32 .stifftie store
'stop

cond
 *.chlr 8000 <
 *.nrg 512 >
start
 32 .mkchlr store
stop

cond
 *.nrg 8000 >
 *.body 8000 >
 *.numties 3 <
start
 314 rnd .aimdx store
 50 .repro store
stop

cond
 *.nrg 16000 >
 *.numties 0 >
start
 *.tiepres .tienum store
 32 .tieval store
 -1 .tieloc store
stop

cond
 *.nrg 100 <
 *.numties 0 >
start
 *.tiepres .tienum store
 -32 .tieval store
 -1 .tieloc store
stop

cond
 *.body 8000 <
 *.nrg 1000 >
start
 32 .strbody store
stop
