'*************************************
'*          Tie Struggler            *
'*                                   *
'*       Made by Testlund in         *
'*       September 14, 2013.         *
'*************************************

cond
*.robage 5 <
start
.tie inc
314 rnd .aimdx store
stop

cond
*.eye2 *.eye5 >
start
-64 .aimright store
stop

cond
*.eye8 *.eye5 >
start
64 .aimright store
stop

cond
*.eye5 40 >
*.refeye *.myeye =
start
1 .tie store
32 .stifftie store
314 rnd .aimdx store
stop

cond
*.eye5 40 >
*.refeye *.myeye !=
*.refnrg 0 > and
start
-1 .shoot store
stop

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

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

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

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