;		TITCH
;	
;	This bot is intended for the light class (32 lines exactly)
;	and has some ideas from Zitgun and my friend Phat.

#config scanner=4
#config weapon=2
#config engine=4
#config armor=1
#config heatsinks=1

#msg :)

mov	dx,	64	;set initial scanarc of 64
mov	bx,	5	;initialize vars for later use
opo	17,	dx	
mov	ax,	1	
int	3		;keepshift on

!flip2
opo	11,	-100
opo	14,	128
!flip
opo	12,	128

!scan
ipo	7,	ax	;scanning stuff
cmp	ax,	2000
jgr	!none

mov	fx,	@3	;turret turning stuff
shl	fx,	bx
opo	12,	fx

cmp	[0],	0
jeq	!flip2
mov	ax,	@2
add	ax,	32
opo	14,	ax

opo	11,	100

ipo	2,	ax
cmp	ax,	100	;heat checking and firing stuff
jgr	!scan
opo	15,	@3

cmp	dx,	4	;scan arc tightening stuff
jeq	!scan		;dont tighten if scanarc is 4
sub	bx,	1
shr	dx,	1
opo	17,	dx


jmp	!scan		;loop

!none			;nothing found?
cmp	dx,	64	
jeq	!flip		;flip if scanarc is 64
shl	dx,	1	;otherwise widen
add	bx,	1
opo	17,	dx
jmp	!scan