;Robot's name		: SSBot
;Author      		: (c) Olger Oeselg
;Author's Country  	: Estonia
;Author's E-mail	: olger_o@hotmail.com
;Date of completion	: 10/March/2001
;Make avail. for public	: ONLY LOCKed version!!
;Class			: Heavy Weight
;Tournament		: Made for Heavy Weight tournaments!
;			  Also for those exiting RUMBLE battles...
;Version		: v1.3
;Comment		: !
;******************************************************************************
	;Targeting system	: Complex
	;Firing system		: Over Average
	;Moving system		: 5-lines!
	;Killing ability	: If you are slow and can't hit, you are dead
	;Surviving ability	: Good, It can score in RUMBLE battles
;******************************************************************************
;Style:			It sort of moves like it's enemy, but not quite that,
;			then it scans enemy and fires it's weapons with
;			consecutive bursts of bullets.
;******************************************************************************
;[[[ DON'T EXPECT ANY PERFECT SOLUTIONS ]]]
;******************************************************************************
;NB! The whole code is packed into  ca. 92 lines!!!
;******************************************************************************
#config scanner=3
#config weapon=3
#config armor=2
#config engine=3
#config heatsinks=1
;******************************************************************************
#MSG	I'm accurate!
;******************************************************************************
#def scanrng
#def arc
#def v_kaugus
#def poora
#def heading
#def amount
#def heat
#def laske
#def valang
#def gaas
;******************************************************************************
	set	scanrng	1500
	set	arc	64
	set	laske	0
	set	valang	3
	set	gaas	100
;******************************************************************************
	opo	17	arc
	set	ax	1
	int	3
	opo	11	gaas
!start1
	opo	17	arc
	ipo	7	v_kaugus
	jmp	!sihi
!start11
	cmp	arc	64
	jae	!flip
	jb	!start12
!flip
	opo	12	128
!start12
	cmp	v_kaugus scanrng
	jbe	!start2
	cmp	arc	64
	jae	!start2
	shl	arc	1
!start2	
	ipo	3	heading
	sub	heading	@6
	and	heading	255
	opo	14	heading
	cmp	@0	0
	jne	!start1
!tagurpidi
	neg	gaas
	opo	11	gaas
	jmp	!start1
!sihi
	cmp	v_kaugus scanrng
	ja	!start11
	cmp	@3	0
	ja	!sihi2
	jb	!sihi3
	je	!sihi4
!sihi2
	cmp	@3	2
	je	!sihi21
	jne	!sihi22
!sihi21
	set	poora	arc
	opo	12	poora
	jmp	!sihi4
!sihi22
	set	poora	arc
	shr	poora	1
	opo	12	poora
	jmp	!sihi4
!sihi3
	cmp	@3	-2
	je	!sihi31
	jne	!sihi32
!sihi31
	set	poora	arc
	neg	poora
	opo	12	poora
	jmp	!sihi4
!sihi32
	set	poora	arc
	shr	poora	1
	neg	poora
	opo	12	poora
!sihi4
	cmp	arc	4
	jbe	!lase
	shr	arc	1
	jmp	!start11
!lase
	cmp	arc	2
	jbe	!lask
	shr	arc	1
!lask
	inc	laske
	cmp	laske	valang
	ja	!lasu
	jbe	!lase2
!lasu
	set	laske	0
	jmp	!start11
!lase2
	ipo	2	heat
	cmp	heat	150
	jb	!lase3
	jmp	!start1
!lase3
	opo	15	0
	jmp	!start1