#def xxx
#def speed
#config armor=2
#config scanner=4
#config engine=2
#config heatsinks=1
#config weapon=3
int 3
opo 22, 12
opo 22, 12

;######### scan arc if 64 #########;
!s64-1
:64
call !move
ipo 2, fx
opo 17, 64
ipo 7, ax
cmp ax, 1500
jgr !s64-2
cmp @3, 0
jgr !s64->
jls !s64-<
opo 17, 16
je 16
jne 16

!s64-2
opo 12, 128
je 64
jne 64

!s64->
cmp @3, 2
jeq !s64->2
opo 12, 32
cmp fx, 200
jgr 16
opo 15
je 16
jne 16

!s64->2
opo 12, 64
cmp fx, 200
jgr 16
opo 15
je 16
jne 16

!s64-<
cmp @3, -2
jeq !s64-<-2
opo 12, -32
cmp fx, 200
jgr 16
opo 15
je 16
jne 16

!s64-<-2
opo 12, -64
cmp fx, 200
jgr 16
opo 15

;######### scan arc if 16 #########;

:16
call !move
ipo 2, fx
opo 17, 16
ipo 7, ax
cmp ax, 1500
jgr 64
cmp @3, 0
jgr !s16->
jls !s16-<
opo 17, 4
je 4
jne 4

!s16->
cmp @3, 2
jeq !s16->2
opo 12, 8
cmp fx, 200
jgr 4
opo 15
je 4
jne 4

!s16->2
opo 12, 16
cmp fx, 200
jgr 4
opo 15
je 4
jne 4

!s16-<
cmp @3, 2
jeq !s16->-2
opo 12, -8
cmp fx, 200
jgr 4
opo 15
je 4
jne 4

!s16->-2
opo 12, -16
cmp fx, 200
jgr 4
opo 15

;######### shooting #########;

:4
call !move
opo 17, 4
ipo 7, ax
cmp ax, 1500
jgr 16
cmp ax, 20
jls !clo
mov bx, @3
shl bx, 1
ipo 2, fx
cmp fx, 200
jgr 4
cmp @5, 0
jeq !big-fire
cmp @5, 128
jeq !big-fire
cmp @7, 0
jeq !big-fire
cmp fx, 75
jls !less
:999
opo 15, bx
opo 15, bx
opo 18, 0
je 2
jne 2

!less2
opo 18, 1
je 888
jne 888

!less
opo 18, 1
je 999
jne 999

!clo
ipo 2, fx
cmp fx, 200
jgr 4
cmp fx, 75
jgr 1234
call !heat
:1234
opo 15, -2
opo 15, 2
opo 15, -1
opo 15, 1
opo 15
opo 18, 0
je 2
jne 2

!big-fire
cmp fx, 75
jls !less2
:888
opo 15, bx
opo 15, bx
opo 15, bx
opo 15, bx
opo 15, bx
opo 15, bx
opo 15, bx
opo 15, bx
opo 18, 0
:2
call !move
opo 17, 4
ipo 7, ax
cmp ax, 1500
jgr 4
ipo 2, fx
cmp fx, 200
jgr 4
cmp @7, 0
jeq !big-fire2
cmp fx, 75
jgr 666
call !heat
:666
opo 15, @3
opo 15, @3
opo 18, 0
je 4
jne 4

!heat
opo 18, 1
ret

!big-fire2
cmp fx, 75
jgr 444
call !heat
:444
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 18, 0
je 4
jne 4

!move
ipo 1, bx
cmp bx, 0
jeq !move2
opo 12, -2
opo 14, 2
ret

!move2
cmp speed, -74
jeq !move3
mov speed, -74
opo 11, -74
opo 14, 2
ret

!move3
mov speed, 100
opo 11, 100
opo 14, 2
ret