; Drunkard
; a tipsy robot by by Chris King ("PiGuy") ctk314@yahoo.com
; This robot is 32 lines of code and based on the barebones
; searching method that I use in most of my robots.
; Other than that, he moves around randomly.

; He can whip Burger 9-to-1. :)

#config scanner=3
#config weapon=3
#config armor=2
#config engine=3
#config heatsinks=1
#config shield=0
#config mines=0
#def scanarc
#def scanarcs
#msg Santa Claus?

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