; ******************** ;
; *  T R O O P E R   * ;
; ******************** ;

; written by GreatGeorge
; http://atrparadise.topcities.com

#msg Born to be wild

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

#def RANGE
#def HEAT

!SETUP
	opo P_ARC, 8

	opo P_MINELAYER, 15
	opo P_MINELAYER, 15

	set ax, 1
	int I_KEEPSHIFT
	int I_OVERBURN
!SCAN
	opo P_TROTATE, -16
!FIRE
	cmp [0], 100
	jeq !NACC

	opo P_STEERING, -30
	opo P_THROTTLE, 100

	jmp !SCAN
!NACC
	ipo P_SCAN, RANGE
	cmp RANGE, 1500
	ja !SCAN

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

	ipo P_HEAT, HEAT
	cmp HEAT, 120
	ja !NFIRE 

	opo P_FIRE, @3
	opo P_FIRE, @3
!NFIRE
        mov bx, @1
	sub bx, 35
        ipo P_COMPASS, ax
        add ax, @2

        and ax, 255     
        sub ax, bx
        opo P_STEERING, ax
	jmp !FIRE