; by Gustaf Ullberg

#config weapon=2
#config scanner=5
#config engine=2 
#config heatsinks=1
#msg MongoDOG regerar!
#def range
#def heat
#def turn
#def random
#def offset
#def acc

opo 17 4

!start
	opo 11 100
	opo 14 10
	ipo 7 range
	cmp range 2000
		jgr !start

!hunt
	
	ipo 8 acc
	add acc acc
	opo 15 acc
	ipo 2 heat
	cmp heat 350
		jgr !start
	ipo 7 range
	cmp range 2000
		jls !hunt

!look
	mov turn -5
	call !isthere
	mov turn 10
	call !isthere
	opo 12 -5
jmp !start

!turn
	opo 14 turn
	ipo 4 offset
	neg offset
	opo 12 offset
jmp !hunt

!isthere
	opo 12 turn
	ipo 7 range
	cmp range 2000
		jls !turn
ret