; Fire Now!
; A simple yet effective robot
; by Chris King ("PiGuy") ctk314@yahoo.com

#config scanner=3
#config weapon=4
#config armor=5
#config engine=0
#config heatsinks=0
#config shield=0
#config mines=0
#def scanarc
#def scanarcs

	mov ax,1
	int 3
	mov scanarc,2
!loop
	opo 11,80
	opo 14,3
	ipo 7,bx	;check scanner
	cmp bx,1500	;if not in range, then increase range
	jgr !bigarc
!loop2
	mov ax,@3	;get accuracy
	shl ax,scanarcs
	opo 12,ax	;follow enemy
	cmp scanarcs,0
	jeq !fire
!track
	dec scanarcs	;shrink scanner size
	shr scanarc,1
	opo 17,scanarc
	jne !loop
!bigarc
	cmp scanarcs,5
	jeq !aimstr
	inc scanarcs
	shl scanarc,1
	opo 17,scanarc
	jne !loop
!aimstr
	opo 12,128
	jeq !loop
!fire
	ipo 2,ax	;check heat
	cmp ax,250	;if cool, then fire
	jae !loop
	opo 15,0	;fire!
	;opo 15,0
	opo 15,0
	jls !loop