'tiefeeding prey
'by shadowgod

'birth

cond
*.fixed 0 !=
start
0 .fixpos store
stop

cond
*.robage 1 =
start
1 .deltie store
628 .aimsx store
stop

'focusing

cond
*.refeye *.myeye !=
*.refkills 0 =
*.eye5 *.eye3 *.eye7 add add 0 >
*.refeye *.myeye = or
start
*.eye3 *.eye7 sub .aimsx store
stop

cond
*.refeye *.myeye !=
*.refkills 0 !=
*.eye5 *.eye3 *.eye7 add add 0 >
start
*.eye7 *.eye3 sub .aimsx store
stop

'lone

cond
*.eye5 50 <
start
5 .up store
stop

cond
*.refeye *.myeye !=
*.refkills 0 !=
start
10 .up store
stop

cond
*.edge *.reftype add 0 >
start
314 rnd .aimsx store
stop

'feed

cond
*.ties 0 =
*.eye5 77 !=
*.eye5 50 >
*.refeye *.myeye !=
start
1 .tie store
stop

cond
*.numties 0 >
start
1 rnd 5 mult 6 sub .tieloc store
-1000 .tieval store
*.tiepres .tienum store
1 .tout1 store
stop

'repro

cond
*.body 1000 >
start
40 .repro store
stop