'*************************************
'*             Tieplant              *
'*                                   *
'*************************************
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
*.chlr 8000 < and
*.nrg 512 >
start
32 .mkchlr store
stop

cond
*.nrg 16000 > and
*.body 8000 > 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 8000 < and
*.nrg 1000 >
start
32 .strbody store
stop