;##################### INTELLIGENT MINER ######################
;###							    ###
;###	WRITTEN BY GEORG SCHNABEL (GreatGeorge)  	    ###
;###	EMAIL: georg.schnabel@mycity.at			    ###
;###							    ###
;##############################################################
;
;  i played a little bit around with mines and came to this 
;  genius bot. i don't want to talk, download it and look at
;  it.
;
;	Have a lot of fun :-)

#config scanner=3
#config engine=2
#config mines=5
#config armor=2
#config weapon=0
#config heatsinks=0

#def scanarc

	mov ax, 100
	int I_OVERBURN
	opo P_TAIM, 224
!flip
	mov scanarc, 64
	opo P_TROTATE, 128
	opo P_STEERING, -1
!drive
	cmp [0], 0
	jne !scan

	neg ax
	opo P_THROTTLE, ax
!scan	
	opo P_ARC, scanarc

	ipo P_SCAN, bx
	cmp bx, 1500
	jb !narrow
	
	cmp scanarc, 64
	jae !flip
	
	shl scanarc, 1
	jmp !drive
!narrow
	cmp bx, 180
	jae !noMine

	opo P_MINELAYER, 20
!noMine	
	shr scanarc, 1
	mov bx, scanarc
	mpy bx, @03
	opo P_STEERING, bx
	or scanarc, 1

	ipo P_HEAT, bx
	cmp bx, 140
	ja !drive

	opo P_FIRE, @03
	opo P_FIRE, 4
	jmp !drive