I can't figure out how tie sharing works.
cond
*.robage 0 =
start
67 .memloc store
101 67 store
.tie inc
100 .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 16000 >
start
50 .fdbody store
stop
EDIT: I think I got it.