;=======°°============]   
;=/\/\==()==/\/\==/\/\] 
;(====)=()=(====)=\===]
;=\==/==()==\==/==/¯==]
; ~~~~~~~~~~~~~~~|\/\/]
;================~~~~~
;
;	IT'S NAME DEFINES EVERYTHING!
;	IF YOU UNLOCK THE CODE OF ABOVE
;	IT MIMES HOW  THE OPPONENT MOVES
;	I LOCKED IT BECAUSE IT USUALLY
; 	KILLED HIM, BUT IT'S FUN AND WORKS.
;	NOW IT'S TACTICS ARE:
;
;	1) MOVES AROUND THE LOWER RIGHT 
;	   AND THE UPPER LEFT CORNER AND
;  	   WAITS FOR ENEMY TO GET CLOSE.
;	2) HE USES HIS RADAR TO DETECT 
;	   ENEMY (and to mimic it...)
;	3) THEN WHEN IT IS CLOSE  FOLLOW
;	   HIM AND SHOOT
;	4) ENEMY 150 METERS? TOO BAD ^_^
;	   
;	TOUGH IT MAY SEEM LIKE ZIPPER3 IT
;	HAS NOTHING TO DO WITH HIM.	
;   	
;	BETA VERSION:
;	-DIFFERENT ATTACK MODE
;	-FASTER
;	
;
;	Another production from
;
;	JOFEGO.2000/THE MAD SCIENTIST
;	jofego99@mad.scientist.com or jofego@loquesea.com
;	
;	version 1.01b


#CONFIG	WEAPON=2
#CONFIG SCANNER=2
#CONFIG	ENGINE=5
#CONFIG HEATSINKS=2
#CONFIG	ARMOR=0

#MSG ??????????????????

#DEF	DES
#DEF	TRG
MOV	TRG	192

;#DEF	SPEED
;MOV	SPEED	100
MOV	AX	1
INT	3

opo	18	1

!START
OPO	13	0
IPO	9	AX
CMP	AX	500
JBE	!PREPARE

OPO	11	100
INT	2
CMP	EX	500
JAE	!LEFT
CMP	FX	700
JAE	!DOWN
CMP	EX	400
JBE	!RIGHT
CMP	FX	100
JBE	!UP

JE	!START
JNE	!START

;REMOVE SEMICOLON TO MIME OPPONENT'S MOVEMENT (TRICK! HEHE)
;!TRACK
;SUB	AX	@1
;OPO	14	AX
;OPO	11	100

;IPO	9	DX
;CMP	DX	500
;JBE	!PREPARE

;IPO	9	AX
;CMP	AX	1000
;JBE	!TRACK
;JGR	!START

;AMMMMMMMMMMIIIIIIIIIIIIIIBBBBBBBBBBBLLLLLLLLLLLLLIIIIIIIIIIIINNNNNNNNNNNDDDDD?
!PREPARE
OPO	11	100
OPO	17	64

IPO	7	AX
CMP	AX	2000
JBE	!ADJUST

OPO	13	64

IPO	7	AX
CMP	AX	2000
JBE	!ADJUST

OPO	13	128

IPO	7	AX
CMP	AX	2000
JBE	!ADJUST

OPO	13	192

IPO	7	AX
CMP	AX	2000
JBE	!ADJUST
JMP	!START


;EEEEEEEEENNNNNNNNNNNNNNNNNNNGGGGGAAAAAAAAARRRRRRRRRRDDDDDDDDEEEEEE
!ADJUST
OPO	11	100
!A
IPO	8	BX
SHL	BX	5

OPO	12	BX
OPO	17	16

MOV	DES	@2
ADD	DES	TRG
OPO	14	DES

IPO	7	AX
CMP	AX	2000
JA	!START

!B
IPO	8	BX
SHL	BX	2

OPO	12	BX
OPO	17	6

IPO	7	AX
CMP	AX	2000
JA	!START

;ATTTTTTTTTTTTTTTTTAAAAAAAAAAAAACKKKKKKKKKKKKKKKKKK
!ZULU_@3

OPO	11	100

IPO	2	AX
CMP	AX	200
JAE	!START

IPO	8	BX
SHL	BX	2
OPO	12	BX
OPO	15	BX

MOV	DES	@2
OPO	14	@2

IPO	1	AX
CMP	AX	0
JE	!CHECK


:9
IPO	7	AX
CMP	AX	150
JBE	!TOO_BAD


CMP	AX	2000
JBE	!ZULU_@3

OPO	14	@2
JGR	!START

;HAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHHAHAHAHAHA
!U
OPO	11	-100
!TOO_BAD

IPO	8	BX
SHL	BX	1
OPO	12	BX

IPO	7	AX
CMP	AX	2000
JA	!START

CMP	@3 	0
JNE	!TOO_BAD

IPO	22	AX
CMP	AX	0
JE	!G
OPO	22	23

!G
OPO	18	1
OPO	15
OPO	15
OPO	15
OPO	15
OPO	15
OPO	15
OPO	15
OPO	15
OPO	18	0
JMP	!START

;REMOVE SEMI-COLONS FOR SIDE-TRACKING
!NEG
OPO	11	0
NEG	TRG
OPO	14	TRG
!R
OPO	11	100
JE	9
JNE	9


;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
!LEFT
MOV	FX	600
MOV	EX	700
INT	7
SUB	AX	@1
OPO	14	AX
JMP	!START

!DOWN
MOV	FX	700
MOV	EX	600
INT	7
SUB	AX	@1
OPO	14	AX
JMP	!START
8
!RIGHT
MOV	FX	400
MOV	EX	200
INT	7
SUB	AX	@1
OPO	14	AX
JMP	!START

!UP
MOV	FX	200
MOV	EX	400
INT	7
SUB	AX	@1
OPO	14	AX
JMP	!START

;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
!CHECK
OPO	13	0
IPO	7	AX
CMP	AX	2000
JBE	!U
JGR	!NEG