;aim more ahead of guy if distant!
;steal warblades movement maybe not for xellos though
#config engine=0
#config heatsinks=3
opo 11 100
opo 19 22
opo 21 3

!takeaim
opo 17 64
do 5
:10
ipo 17 bx
ipo 7 ax
cmp ax 2000
jls 20
opo 12 bx
shl bx 1
opo 17 bx
cmp @5 22
jne 20
jmp 10
:20
shr bx 1
opo 17 bx
mpy bx @3 
opo 12 bx
loop 10

;opo 18 1

!fire
ipo 2 ax
cmp ax 250
jgr !cool
ipo 7 ax
cmp ax 2000
jgr !takeaim
cmp ax 500
jls 333
mpy bx @3
opo 12 bx
:333
opo 12 @3
opo 15 @3
jmp !fire

!cool
ipo 2 ax
cmp ax 50 
jls !takeaim
;opo 18 0
xor bx bx
jmp !cool