; 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
#def heading

#def acc

opo	17	5
opo	13
mov	aim	1
mov	ax	1
int	3


!main
	opo	11	100
	;ipo	10	random
	;mod	random	255
	;opo	14	random
	call !direction
	do	10
!main_c
	opo	11	100
	opo	12	11
	ipo	2	heat
	cmp	heat	350
	jgr	!main_c
	ipo	7	range
	cmp	range	2000
	jls	!fire
	;jls	!main
	loop	!main_c

jmp !main

!fire
	ipo	8	acc
	mpy	acc	2
	;neg	aim
	;add	acc	aim
	opo	15	acc
	opo	11	100 
	ipo	7	range
	cmp	range	2000
	jls	!fire

	ipo	2	heat
	cmp	heat	350
	jgr	!main

	opo 12 -11
	ipo 7 range
	cmp range 2000
		jls !fire

	opo 12 22
	ipo 7 range
	cmp range 2000
		jls !fire

jmp !main

!direction
	int	2
	cmp	ex	50
	jls	!right
	cmp	ex	950
	jgr	!left
	cmp	fx	50
	jls	!down
	cmp	fx	950
	jgr	!up


ret

!right
	mov	turn	64
	call	!turn
	ret
!left
	mov turn 192
call !turn
ret
!up
mov turn 0
call !turn
ret
!down
mov turn 128
call !turn
ret

!turn
ipo 3 heading
sub turn heading
opo 14 turn
ret