;=======°°============]   
;=/\/\==()==/\/\==/\/\] 
;(====)=()=(====)=\===]
;=\==/==()==\==/==/¯==]
; ~~~~~~~~~~~~~~~|\/\/]
;================~~~~~
;
;	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 
;	   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.	
;   	
;	Another production from
;
;	JOFEGO.2000/THE MAD SCIENTIST
;	jofego99@mad.scientist.com or jofego@loquesea.com
;	
;	version 1.01


#CONFIG	WEAPON=2
#CONFIG SCANNER=2
#CONFIG	ENGINE=4
#CONFIG HEATSINKS=2

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

#DEF	DES
#DEF	TRG
MOV	TRG	192

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

OPO	22	23
OPO	22

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

OPO	11	100
INT	2
CMP	EX	500
JBE	!LEFT
CMP	FX	300
JBE	!DOWN
CMP	EX	600
JAE	!RIGHT
CMP	FX	900
JAE	!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	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
!A
IPO	8	BX
SHL	BX	5

OPO	12	BX
OPO	17	16

OPO	14	@2

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
;ADD	DES	TRG
OPO	14	DES


IPO	1	AX
CMP	AX	0
JE	!CHECK

:9
IPO	7	AX
CMP	AX	150
JBE	!TOO_BAD


CMP	AX	2000
JBE	!ZULU_@3

;HAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHHAHAHAHAHA
!TOO_BAD
OPO	11	-100
IPO	8	BX
SHL	BX	1
OPO	12	BX

IPO	7	AX
CMP	AX	2000
JA	!START

CMP	@3 	0
JNE	!TOO_BAD
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
;IPO	3	AX
;CMP	AX	@1
;JNE	!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

!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	200
JBE	!TOO_BAD