;CONVEX by Lead (lawrence.steele@ntlworld.com)
;A FastCPU Class Bot

#def gox
#def goy
#def shot1

mov ax, 1
mov shot1, 1
int 3
opo 11, 100
opo 17, 4
int 13

:1
ipo 10, ax
and ax, 1000
mov gox, ax
ipo 10, ax
and ax, 1000
mov goy, ax
call !plot
jmp 1

!plot
	mov ex, gox
	mov fx, goy
	ipo 3, bx
	int 7
	sub ax, bx
	opo 14, ax
	opo 11, 100
	!plotcheck
		int 12
		cmp fx, 0
		jeq !nocoll
		opo 11, -100
		del 1000
		int 13
		ret
		!nocoll
		!scan
			!look
				ipo 7, ax
				cmp ax, 3000
				jgr !turn
				mov ax, @3
				shl ax, 1
				opo 12, ax
				ipo 2, ax
				cmp shot1, 1
				jeq !shotblast
				cmp ax, 200
				jgr !endscan
				opo 15, 0
				jmp !endscan
			!shotblast
				opo 15, 0
				opo 15, 1
				opo 15, -1
				opo 15, 0
				opo 15, 2
				opo 15, -2
				mov shot1, 0	
			!turn
				opo 12, 4
		!endscan
		int 2
		mov ax, ex
		sub ax, gox
		cmp ax, -75
		jls !plotcheck
		cmp ax, 75
		jgr !plotcheck
		mov ax, fx
		sub ax, goy
		cmp ax, -75
		jls !plotcheck
		cmp ax, 75
		jgr !plotcheck
ret