; Notes:
; 1 2 4 8 16 32 64 128

#config armor=2
#config scanner=2
#config engine=3
#config heatsinks=2
#config weapon=3
#def turn_r
#def turn_r2
#def turn_r3

mov turn_r, 32
mov turn_r2, 16
mov turn_r3, 32
ipo 10, fx
cmp fx, 0
jgr !hop1337
neg turn_r
neg turn_r2
!hop1337
mov ax, 2
int 3
ipo 7, fx
call !move

!64-nt
opo 12, 128
!64
call !move
opo 17, 64
ipo 7, bx
cmp bx, 2000
jgr !64-nt
mov fx, @3
shl fx, 5
opo 12, fx
ipo 2, fx
cmp fx, 200
jgr !16
opo 15

!16
call !move
opo 17, 16
ipo 7, bx
cmp bx, 2000
jgr !64
mov fx, @3
shl fx, 3
opo 12, fx
ipo 2, fx
cmp fx, 200
jgr !4
opo 15

!4
call !move
opo 17, 4
ipo 7, bx
cmp bx, 2000
jgr !16
mov fx, @3
shl fx, 1
opo 12, fx
ipo 2, fx
cmp fx, 200
jgr !2
opo 15

!2
call !move
opo 17, 2
ipo 7, bx
cmp bx, 2000
jgr !4
opo 12, @3
ipo 2, fx
cmp fx, 200
jgr !2
opo 15
opo 15
je !2
jne !2

!move
opo 11, 100
cmp @9, 100 ; clear wall
jls !clear

int 2 ; wall missing stuff
cmp ex,	100
jls !mleft
cmp ex,	900
jgr !mright
cmp fx,	100
jls !mup
cmp fx,	900
jgr !mdown

cmp bx, 2000
jgr !move-nt
cmp bx, 200
jls !move-around ; if less bot close run around movement

!move-back ; if not stand back and shoot
opo 14, turn_r
je !clear
jne !clear


!move-around
mov fx, @2
add fx, turn_r2
opo 14, fx
cmp ax, 0 ; mine laying system for close range
jeq !clear
opo 22, 15
sub ax, 1
je !clear
jne !clear

!move-nt
opo 14, turn_r3
cmp turn_r3, 0
jgr !switch
mov turn_r3, 32
ret
!switch
mov turn_r3, -32
!clear
ret


!mleft
int 19
ipo 3, fx
mov dx, 64
sub dx, fx
opo 14, dx
ret

!mright
int 19
ipo 3, fx
mov dx, 192
sub dx, fx
opo 14, dx
ret

!mdown
int 19
ipo 3, fx
mov dx, 0
sub dx, fx
opo 14, dx
ret

!mup
int 19
ipo 3, fx
mov dx, 128
sub dx, fx
opo 14, dx
ret