; av Gustaf Ullberg

#config weapon=2
#config scanner=3
#config engine=4 
#config heatsinks=1
#msg MongoDOG regerar!
#def range
#def heat
#def turn
#def random
#def offset
#def aim

opo 17 5
mov aim 2

!start
	opo 11 100
	opo 14 10
	ipo 7 range
	cmp range 2000
		jls !hunt
jmp !start

!hunt
	;ipo 10 random
	;mod random 2
	;mpy random 4
	;opo 15 random
	
	
	neg aim
	opo 15 aim
	ipo 2 heat
	cmp heat 350 
		jgr !overheat
	ipo 7 range
	cmp range 2000
		jgr !look
jmp !hunt

!look
	mov turn -10
	opo 12 -10

	ipo 7 range
	cmp range 2000
		jls !turn
	mov turn 20
	opo 12 20

	ipo 7 range
	cmp range 2000
		jls !turn
	opo 12 -10
jmp !start

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

!overheat
	ipo 10 random
	mod random 255
	opo 14 random
	do 10
!overheat_c
	opo 11 100
	ipo 2 heat
	cmp heat 150
	jls !start
	loop !overheat_c
jmp !overheat