Out of all of my demented hybrids (thanks to Botsareus), this one is by far the best. It both tie-feeds and shoots.
start
-4 *.eye1 *.eye9 sub sgn 0 floor mult *.eye1 *.eye8 sub sgn 0 floor mult *.eye1 *.eye7 sub sgn 0 floor mult *.eye1 *.eye6 sub sgn 0 floor mult *.eye1 *.eye5 sub sgn 0 floor mult *.eye1 *.eye4 sub sgn 0 floor mult *.eye1 *.eye3 sub sgn 0 floor mult *.eye1 *.eye2 sub sgn 0 floor mult 4 *.eye9 *.eye8 sub sgn 0 floor mult *.eye9 *.eye7 sub sgn 0 floor mult *.eye9 *.eye6 sub sgn 0 floor mult *.eye9 *.eye5 sub sgn 0 floor mult *.eye9 *.eye4 sub sgn 0 floor mult *.eye9 *.eye3 sub sgn 0 floor mult *.eye9 *.eye2 sub sgn 0 floor mult *.eye9 *.eye1 sub sgn ++ sgn mult add -3 *.eye2 *.eye9 sub sgn ++ sgn mult *.eye2 *.eye8 sub sgn 0 floor mult *.eye2 *.eye7 sub sgn 0 floor mult *.eye2 *.eye6 sub sgn 0 floor mult *.eye2 *.eye5 sub sgn 0 floor mult *.eye2 *.eye4 sub sgn 0 floor mult *.eye2 *.eye3 sub sgn 0 floor mult *.eye2 *.eye1 sub sgn ++ sgn mult add 3 *.eye8 *.eye9 sub sgn ++ sgn mult *.eye8 *.eye7 sub sgn 0 floor mult *.eye8 *.eye6 sub sgn 0 floor mult *.eye8 *.eye5 sub sgn 0 floor mult *.eye8 *.eye4 sub sgn 0 floor mult *.eye8 *.eye3 sub sgn 0 floor mult *.eye8 *.eye2 sub sgn ++ sgn mult *.eye8 *.eye1 sub sgn ++ sgn mult add -2 *.eye3 *.eye9 sub sgn ++ sgn mult *.eye3 *.eye8 sub sgn ++ sgn mult *.eye3 *.eye7 sub sgn 0 floor mult *.eye3 *.eye6 sub sgn 0 floor mult *.eye3 *.eye5 sub sgn 0 floor mult *.eye3 *.eye4 sub sgn 0 floor mult *.eye3 *.eye2 sub sgn ++ sgn mult *.eye3 *.eye1 sub sgn ++ sgn mult add 2 *.eye7 *.eye9 sub sgn ++ sgn mult *.eye7 *.eye8 sub sgn ++ sgn mult *.eye7 *.eye7 sub sgn 0 floor mult *.eye7 *.eye6 sub sgn 0 floor mult *.eye7 *.eye5 sub sgn 0 floor mult *.eye7 *.eye4 sub sgn ++ sgn mult *.eye7 *.eye2 sub sgn ++ sgn mult *.eye7 *.eye1 sub sgn ++ sgn mult add -1 *.eye4 *.eye9 sub sgn ++ sgn mult *.eye4 *.eye8 sub sgn ++ sgn mult *.eye4 *.eye7 sub sgn ++ sgn mult *.eye4 *.eye6 sub sgn 0 floor mult *.eye4 *.eye5 sub sgn 0 floor mult *.eye4 *.eye3 sub sgn ++ sgn mult *.eye4 *.eye2 sub sgn ++ sgn mult *.eye4 *.eye1 sub sgn ++ sgn mult add 1 *.eye4 *.eye9 sub sgn ++ sgn mult *.eye4 *.eye8 sub sgn ++ sgn mult *.eye4 *.eye7 sub sgn ++ sgn mult *.eye4 *.eye6 sub sgn ++ sgn mult *.eye4 *.eye5 sub sgn 0 floor mult *.eye4 *.eye3 sub sgn ++ sgn mult *.eye4 *.eye2 sub sgn ++ sgn mult *.eye4 *.eye1 sub sgn ++ sgn mult add 0 *.eye5 *.eye9 sub sgn ++ sgn mult *.eye5 *.eye8 sub sgn ++ sgn mult *.eye5 *.eye7 sub sgn ++ sgn mult *.eye5 *.eye6 sub sgn ++ sgn mult *.eye5 *.eye4 sub sgn ++ sgn mult *.eye5 *.eye3 sub sgn ++ sgn mult *.eye5 *.eye2 sub sgn ++ sgn mult *.eye5 *.eye1 sub sgn ++ sgn mult add .focuseye store
336 .memloc store
*.nrg 3 div *.body sub dup .strbody store
- .fdbody store
*.maxvel .up store
*.dnalen *.memval sub sgn abs *.eye5 40 sub sgn 0 floor mult .fixpos store
99 .sharenrg store
-1 .tieloc store
-1000 .tieval store
stop
'''''''''''''''''''''''' Gene: 1 Ends at position 566 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 2 Begins at position 567 '''''''''''''''''''''''
cond
*.eyef 0 =
start
*.numties .memloc store
.tie inc
stop
'''''''''''''''''''''''' Gene: 2 Ends at position 577 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 3 Begins at position 578 '''''''''''''''''''''''
cond
*.nrg 3000 >
*.body 100 >
start
50 300 1 rnd 2 mult add .dx store
stop
'''''''''''''''''''''''' Gene: 3 Ends at position 595 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 4 Begins at position 596 '''''''''''''''''''''''
cond
*.dnalen *.memval !=
*.refnrg 0 >
start
314 rnd *.aim add .setaim store
store
stop
'''''''''''''''''''''''' Gene: 4 Ends at position 611 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 5 Begins at position 612 '''''''''''''''''''''''
cond
*.numties 2 >
start
.deltie inc
stop
'''''''''''''''''''''''' Gene: 5 Ends at position 619 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 6 Begins at position 620 '''''''''''''''''''''''
cond
*.nrg 3000 >
*.body 100 <
start
100 *.body sub .strbody store
stop
'''''''''''''''''''''''' Gene: 6 Ends at position 633 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 7 Begins at position 634 '''''''''''''''''''''''
cond
*.eye5 0 >
*.myeye *.refeye !=
start
*.maxvel *.vel sub 2 div .up store
stop
'''''''''''''''''''''''' Gene: 7 Ends at position 649 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 8 Begins at position 650 '''''''''''''''''''''''
cond
*.myeye *.refeye !=
*.eye5 0 >
start
*.refxpos *.refypos angle .setaim store
stop
'''''''''''''''''''''''' Gene: 8 Ends at position 663 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 9 Begins at position 664 '''''''''''''''''''''''
cond
*.eye5 1000 >
*.dnalen *.memval !=
*.reffixed 0 !=
start
*.nrg 10 div .shootval store
stop
'''''''''''''''''''''''' Gene: 9 Ends at position 680 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 10 Begins at position 681 '''''''''''''''''''''''
cond
*.eye5 40 >
*.dnalen *.memval !=
*.reffixed 0 !=
start
-6 .shoot store
.tie inc
stop
'''''''''''''''''''''''' Gene: 10 Ends at position 697 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 11 Begins at position 698 '''''''''''''''''''''''
cond
*.eye5 40 >
*.dnalen *.memval !=
*.reffixed 0 =
start
.shootval inc
216 .shoot store
stop
'''''''''''''''''''''''' Gene: 11 Ends at position 714 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 12 Begins at position 715 '''''''''''''''''''''''
cond
*.nrg 1000 >
start
45 .repro store
stop
'''''''''''''''''''''''' Gene: 12 Ends at position 723 '''''''''''''''''''''''