;Mine Team
;by PiGuy

#config shield=0
#config armor=5
#config engine=2
#config scanner=0
#config weapon=0
#config mines=5
#config heatsinks=0

#time 5

#def spd
#def dist

	opo 21,314
;	mov spd,66
	mov spd,100
	mov dist,1000
	nop
	int 14
	int 16
	mov ax,fx
	shl ax,10
	mov ex,500
	int 16
	inc fx
	div ax,fx
	div spd,fx
	div dist,fx
	mov fx,ax
	int 7
	sub ax,@1
	opo 14,ax
	opo 20,600
	mov ax,1
	int 4
!loop1
	opo 11,100
	int 2
	shr ex,4
	cmp ex,31
	jne !loop1
	mov ax,128
	sub ax,@1
	opo 14,ax
!loop2
	opo 11,spd
	ipo 22,bx
	cmp bx,0
	jeq !stop
	opo 22,10
	del 45		; 60 normal, 55 with special, 45 with overburn
	jne !loop2
!stop
	mov ax,0
	int 4
	opo 11,0
	opo 17,8
	sub dist,25
!loop3
	opo 12,-8
	ipo 7,ax
	cmp ax,dist
	jae !loop3
	;err ax
	opo 15,@3
	jls !loop3