; ************************************************* ;
;    CHAOS BOT	- v1
; 
; 	written by Georg Schnabel (GreatGeorge)
;			georg.schnabel@mycity.at
;  
; ************************************************** ;

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

#def speed
#def range
#def heat
#def acc

!SETUP
	mov speed, 100
	opo P_ARC, 4
!SCAN
	opo P_TROTATE,8
!DRIVE
	cmp [0], 0
	jne !TRACK

	neg speed
	opo P_THROTTLE, speed	

!TRACK
	ipo P_SCAN, range
	cmp range, 1500
	ja !SCAN

	cmp @3, 0
	jeq !FIRE

	mov dx, @3
	sal dx, 1 		
	opo P_TROTATE, dx

	mov acc, dx
	jmp !DRIVE
!FIRE
	ipo P_HEAT, heat
	cmp heat, 150
	ja !DRIVE

	cmp @13, 30
	ja !spreadf
	cmp @13, -30
	jb !spreadf

	opo P_FIRE, acc 
	opo P_FIRE, acc 

	jmp !delacc
!spreadf
	opo P_FIRE, 4
	opo P_FIRE, acc 
	opo P_FIRE, -4
!delacc
	xor acc, acc
	jmp !DRIVE