;Robot's name		: Wasp {Based on Spitfire & SSBot}
;Author      		: (c) Olger Oeselg
;Author's Country  	: Estonia
;Date of completion	: 11/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.01
;Comment		: !
;Code			: 135 lines.
;******************************************************************************
	;Targeting system	: Complex
	;Firing system		: Average
	;Moving system		: Average
	;Killing ability	: Bretty good
	;Surviving ability	: Not so good, because of it's basic movement
;******************************************************************************
;Style:			Moves from upper left to down-right corner and scans
;			for enemy and then fires it.
;******************************************************************************
;[[[ DON'T EXPECT ANY PERFECT SOLUTIONS ]]]
;******************************************************************************
;NB! The whole code is packed into 135 lines!!!
;******************************************************************************
#config scanner=4
#config weapon=2
#config armor=2
#config engine=2
#config heatsinks=2
;******************************************************************************
#MSG	I'm nasty!
;******************************************************************************
#def scanrng
#def arc
#def v_kaugus
#def poora
#def heading
#def amount
#def heat
#def laske
#def valang
#def gaas
#def min
#def max
#def chk
#def kont
#def lubi
#def poorand
;******************************************************************************
	set	scanrng	1500
	set	arc	64
	set	laske	0
	set	valang	2
	set	gaas	100
	set	min	220
	set	max	780
	set	chk	0
	set	kont	2
	set	poorand	1
;******************************************************************************
	opo	17	arc
	set	ax	1
	int	3
!prearea
	set	ex	80
	set	fx	80
	int	7
	ipo	3	cx
	sub	ax	cx
	opo	14	ax
	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
	inc	chk
	cmp	chk	kont
	jae	!kontroll
	jmp	!start1
!kontroll
	set	chk	0
	set	lubi	0
	int	2
	cmp	ex	min
	ja	!knt01
	cmp	fx	min
	ja	!knt01
	jmp	!poora1
!knt01
	set	lubi	1
	cmp	ex	max
	jb	!knt99
	cmp	fx	max
	jb	!knt99
	jmp	!poora1
!poora1
	cmp	lubi	poorand
	je	!knt99
	set	poorand	lubi
	ipo	3	ax
	cmp	lubi	0
	je	!poora101
	set	bx	224
	jmp	!poora102
!poora101
	set	bx	96
!poora102
	sub	bx	ax
	and	bx	255
	cmp	bx	0
	ja	!poora11
	neg	bx
!poora11
	opo	14	bx
	opo	11	gaas
	jmp	!start1
!knt99
	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