;p1m5 del 29/11/2001 617/1000 di vittorie contro 5 sniper
;da modificare ricerca numero di nemici all'inizio e modifica aggiustamento larghezza in caso di fermo(se perdi subito 64)

#def tar_vel
#def tar_ang
#def larghezza
#def direzione
#def distanza
#def settore
#def accur
#def calore
#def destra
#def fattoreang
#def velocita

#def curvaok
#def casuale
#def direzionecen
#def ultimocolpo
#def temposcudo
#def parametroK
#def dirvoluta
#def fermo
#def offsetmov

:1
	mov offsetmov 2
	mov fermo 0
	mov ax 1
	
	int 10
	cmp dx 2
	jgr 10
	mov fermo 1	
:10
	
	int 3
	mov larghezza 64
:80
	gosub 5000
	opo 17 larghezza 
	ipo 7 distanza
	cmp distanza 1500
	jgr 1000
:90
;	gosub 7000
	cmp larghezza 2 	
	jeq 800
	shr larghezza 1
	ipo 8 accur
	cmp accur 0
	jgr 105
	jls 110
	;uguale
	jmp 115
:105
	;maggiore
	mov settore larghezza
	cmp @2 30
	jls 108
	cmp @2 98
	jls 107
	cmp @2 158
	jls 108
	cmp @2 225
	jgr 108
	sub settore offsetmov
	jmp 108
:107
	add settore offsetmov
		
:108
	opo 12 settore
	jmp 115
:110
	mov settore 0
	sub settore larghezza
	cmp @2 30
	jls 112
	cmp @2 98
	jls 111
	cmp @2 158
	jls 112
	cmp @2 225
	jgr 112
	sub settore offsetmov
	jmp 112
:111
	add settore offsetmov
		
:112
	opo 12 settore
:115
	cmp larghezza 2
	jne 80	
	ipo 2 calore
	cmp calore 250
	jgr 80
	int 9 
	cmp fx 0
	jeq 800
	mov tar_vel fx
	mov tar_ang ex
	mov destra 1
	cmp tar_ang 128
	jls 200
	mov destra -1
	neg tar_ang
	add tar_ang 256

:200	
	cmp tar_ang 64
	jle 210
	neg tar_ang
	add tar_ang 128
:210
	shr tar_ang 3
:790	
	cmp destra -1
	jne 795
	neg tar_ang
:795
	add tar_ang destra
	add tar_ang destra
	opo 12 tar_ang
	jmp 805
:800	
	ipo 7 distanza
:805
	ipo 2 calore
	cmp calore 250
	jgr 80 
	
	opo 15 @3
	jmp 80

:1000 ;non c'è il bersaglio
	cmp fermo 0
	jne 1010
	
	cmp larghezza 8
	jgr 1010
	shl larghezza 1
	jmp 80
	
:1010
	mov larghezza 64
	opo 12 128
	jmp 80
	
:5000   ;sub direzione
	int 2
	xor parametroK parametroK
	cmp ex 100
	jle 5100
:5001	
	cmp ex 900
	jge 5200
:5002
	cmp fx 100
	jle 5300
:5003	
	cmp fx 900
	jge 5400
:5005
	cmp parametroK -3
	jle 5010
	cmp parametroK -2
	jle 5020
	cmp parametroK -1
	jle 5030
	cmp parametroK 0
	jle 5050
	cmp parametroK 1
	jle 5020
	cmp parametroK 2
	jle 5030
	mov dirvoluta 192
	jmp 5040
:5010
	mov dirvoluta 64
	jmp 5040
:5020
	mov dirvoluta 128
	jmp 5040
:5030
	mov dirvoluta 0
	jmp 5040
:5040	
	;cambia direzione
	ipo 3 direzione
	cmp dirvoluta direzione
	jeq 5050
	sub dirvoluta direzione
	opo 14 dirvoluta
:5045
	ipo 3 direzione
	cmp direzione @1
	jne 5045
	opo 13 0
	mov larghezza 8
	ipo 7 distanza
	cmp distanza 1500
	jls 5050
	opo 13 128
	
:5050
	cmp fermo 0
	jne 5060
	opo 11 100
:5060
	ret

:5100
	add parametroK -1
	jmp 5001
:5200
	add parametroK 1
	jmp 5002
:5300
	add parametroK -3
	jmp 5003
:5400
	add parametroK 3
	jmp 5005


:7000
	int 10
	cmp dx 2
	jgr 7100
	mov fermo 1
	mov offsetmov 0
	opo 11 0
:7100
	ret