; ******************* Gunman v2.0 ******************
;   written by GreatGeorge
;
;  few improvements concerning the moving technologie
; **************************************************

#config scanner=3
#config weapon=3
#config armor=2
#config engine=2
#config heatsinks=2

#def scanarc
#def desang

	mov ax, 64
	int I_KEEPSHIFT
!scan
	opo P_THROTTLE, 100	

	opo P_ARC, ax
	
	ipo P_SCAN, dx
	cmp dx, 1500
	jb !shrink

	cmp ax, 64
	jae !flip

	shl ax, 1
	jmp !scan
!shrink	
	shr ax, 1
	mov bx, ax
	mpy bx, @3

	opo P_TROTATE, bx

	ipo P_HEAT, bx
	cmp bx, 200
	ja !noFire	

	opo P_FIRE, 0
!noFire	
	mov bx, @1
	add bx, desang	

	ipo P_COMPASS, cx
	add cx, @2
	and cx, 255

	sub cx, bx

	opo P_STEERING, cx	
	
	mov desang, dx
	shr desang, 4	

	or ax, 1		 
	jmp !scan
!flip
	opo P_STEERING, 4
	opo P_TROTATE, 128