#config armor=2         ; consumes 2 points
#config scanner=2      ; gives us 5 points
#config engine=4        ; gives us 2 points
#config heatsinks=1     ; gives us 1 point
#config weapon=3        ; gives us 2 points
#def range
#def axnd
#def speed
#def angle
#def index
#msg I WILL WIN!!!

jmp 1

	*131,	134,	134,	133
	*132,	131,	130,	129
	*128,	127,	126,	124
	*123,	123,	122,	123
	*128,	128,	128,	156
	*139,	135,	132,	129
	*128,	125,	123,	119
	*114,	128,	128,	128
	*128,	128,	128,	128
	*144,	138,	134,	130
	*128,	124,	121,	116
	*103,	128,	128,	128
	*128,	128,	128,	128
	*148,	139,	135,	130
	*128,	124,	119,	113
	*92,	128,	128,	128
	*128,	128,	128,	128
	*151,	141,	136,	131
	*127,	123,	118,	111
	*80,	128,	128,	128
	*128,	128,	128,	128
	*154,	143,	136,	131
	*127,	122,	117,	109
	*128,	128,	128,	128
	*128,	128,	128,	128
	*157,	144,	137,	132
	*127,	122,	116,	107
	*128,	128,	128,	128
	*128,	128,	128,	128
	*159,	145,	138,	132
	*127,	121,	115,	106
	*128,	128,	128,	128
	*128,	128,	128,	128
	*160,	146,	138,	132
	*127,	121,	114,	105
	*128,	128,	128,	128
	*128,	128,	128,	128
	*162,	147,	139,	132
	*127,	120,	113,	104
	*128,	128,	128,	128
	*128,	128,	128,	128
	*163,	148,	139,	132
	*127,	120,	113,	102
	*128,	128,	128,	128
	*128,	128,	128,	128
	*164,	149,	140,	133
	*127,	120,	112,	102
	*128,	128,	128,	128
	*128,	128,	128,	128
	*165,	149,	140,	133
	*127,	119,	112,	101
	*128,	128,	128,	128
	*128,	128,	128,	128
	*166,	150,	141,	133
	*127,	119,	111,	100
	*128,	128,	128,	128
	*128,	128,	128,	128
	*167,	150,	141,	133
	*127,	119,	111,	99
	*128,	128,	128,	128
	*128,	128,	128,	128
	*168,	151,	141,	133
	*127,	119,	110,	98
	*128,	128,	128,	128
	*128,	129,	130,	130
	*130,	129,	129,	128
	*128,	128,	127,	126
	*126,	126,	127,	128
	*131,	134,	134,	133
	*132,	131,	130,	129
	*128,	127,	125,	124
	*123,	122,	122,	122
	*128,	128,	128,	138
	*135,	133,	131,	129
	*128,	126,	124,	122
	*120,	114,	128,	128
	*128,	128,	128,	144
	*137,	134,	131,	129
	*128,	126,	123,	121
	*117,	128,	128,	128
	*128,	128,	128,	156
	*139,	135,	132,	129
	*128,	125,	123,	119
	*114,	128,	128,	128
	*128,	128,	128,	128
	*141,	136,	133,	130
	*128,	125,	122,	118
	*110,	128,	128,	128
	*128,	128,	128,	128
	*142,	137,	133,	130
	*128,	125,	121,	117
	*106,	128,	128,	128
	*128,	128,	128,	128
	*144,	138,	134,	130
	*128,	124,	121,	116
	*103,	128,	128,	128
	*128,	128,	128,	128
	*145,	138,	134,	130
	*128,	124,	120,	115
	*99,	128,	128,	128
	*128,	128,	128,	128
	*147,	139,	134,	130
	*128,	124,	120,	114
	*95,	128,	128,	128
	*128,	128,	128,	128
	*148,	140,	135,	130
	*128,	123,	119,	113
	*92,	128,	128,	128
	*128,	128,	128,	128
	*149,	140,	135,	131
	*127,	123,	119,	112
	*88,	128,	128,	128
	*128,	128,	128,	128
	*151,	141,	135,	131
	*127,	123,	118,	112
	*84,	128,	128,	128
	*128,	128,	128,	128
	*151,	141,	136,	131
	*127,	123,	118,	111
	*80,	128,	128,	128
	*128,	128,	128,	128
	*152,	142,	136,	131
	*127,	123,	117,	110
	*75,	128,	128,	128
	*128,	128,	128,	128
	*153,	142,	136,	131
	*127,	122,	117,	110
	*128,	128,	128,	128
	*128,	128,	129,	129
	*129,	129,	129,	128
	*128,	128,	127,	127
	*127,	127,	127,	128
	*128,	130,	131,	131
	*131,	130,	129,	128
	*128,	127,	126,	125
	*125,	125,	126,	127
	*131,	134,	134,	133
	*132,	131,	130,	129
	*128,	127,	125,	124
	*123,	122,	122,	122
	*128,	128,	142,	136
	*134,	132,	130,	129
	*128,	126,	125,	123
	*121,	119,	128,	128
	*128,	128,	128,	139
	*135,	133,	131,	129
	*128,	126,	124,	122
	*120,	111,	128,	128
	*128,	128,	128,	143
	*136,	134,	131,	129
	*128,	126,	124,	121
	*118,	128,	128,	128
	*128,	128,	128,	148
	*138,	134,	132,	129
	*128,	126,	123,	120
	*116,	128,	128,	128
	*128,	128,	128,	156
	*139,	135,	132,	129
	*128,	125,	123,	119
	*113,	128,	128,	128
	*128,	128,	128,	174
	*140,	135,	132,	130
	*128,	125,	122,	119
	*112,	128,	128,	128
	*128,	128,	128,	128
	*141,	136,	133,	130
	*128,	125,	122,	118
	*109,	128,	128,	128
	*128,	128,	128,	128
	*142,	137,	133,	130
	*128,	125,	121,	117
	*107,	128,	128,	128
	*128,	128,	128,	128
	*143,	137,	133,	130
	*128,	124,	121,	117
	*105,	128,	128,	128
	*128,	128,	128,	128
	*144,	138,	134,	130
	*128,	124,	121,	116
	*103,	128,	128,	128
	*128,	128,	128,	128
	*145,	138,	134,	130
	*128,	124,	120,	115
	*101,	128,	128,	128
	*128,	128,	128,	128
	*146,	138,	134,	130
	*128,	124,	120,	115
	*98,	128,	128,	128
	*128,	128,	128,	128
	*147,	139,	134,	130
	*128,	124,	120,	114
	*96,	128,	128,	128
	*128,	128,	129,	129
	*129,	129,	128,	128
	*128,	128,	127,	127
	*127,	127,	127,	128
	*128,	129,	130,	130
	*130,	130,	129,	128
	*128,	127,	127,	126
	*126,	126,	126,	127
	*128,	131,	132,	132
	*131,	131,	130,	128
	*128,	127,	126,	125
	*124,	124,	125,	126
	*131,	134,	134,	133
	*132,	131,	130,	129
	*128,	127,	125,	124
	*123,	122,	122,	122
	*128,	128,	138,	135
	*133,	132,	130,	129
	*128,	126,	125,	123
	*122,	120,	104,	128
	*128,	128,	161,	137
	*134,	132,	131,	129
	*128,	126,	124,	123
	*121,	116,	128,	128
	*128,	128,	128,	139
	*135,	133,	131,	129
	*128,	126,	124,	122
	*119,	109,	128,	128
	*128,	128,	128,	142
	*136,	134,	131,	129
	*128,	126,	124,	121
	*118,	74,	128,	128
	*128,	128,	128,	145
	*137,	134,	132,	129
	*128,	126,	123,	121
	*116,	128,	128,	128
	*128,	128,	128,	150
	*138,	134,	132,	129
	*128,	125,	123,	120
	*115,	128,	128,	128
	*128,	128,	128,	156
	*139,	135,	132,	129
	*128,	125,	123,	119
	*114,	128,	128,	128
	*128,	128,	128,	167
	*140,	135,	132,	130
	*128,	125,	122,	119
	*112,	128,	128,	128
	*128,	128,	128,	128
	*140,	136,	133,	130
	*128,	125,	122,	118
	*111,	128,	128,	128
	*128,	128,	128,	128
	*141,	136,	133,	130
	*128,	125,	122,	118
	*109,	128,	128,	128
	*128,	128,	128,	128
	*142,	136,	133,	130
	*128,	125,	121,	117
	*108,	128,	128,	128
	*128,	128,	128,	128
	*143,	137,	133,	130
	*128,	125,	121,	117
	*106,	128,	128,	128
	*128,	128,	129,	129
	*129,	129,	128,	128
	*128,	128,	127,	127
	*127,	127,	128,	128
	*128,	129,	130,	130
	*130,	129,	129,	128
	*128,	128,	127,	126
	*126,	126,	127,	128
	*128,	130,	131,	131
	*131,	130,	129,	128
	*128,	127,	126,	126
	*125,	125,	126,	127
	*128,	131,	132,	132
	*131,	131,	130,	128
	*128,	127,	126,	125
	*124,	124,	124,	126
	*131,	134,	134,	133
	*132,	131,	130,	129
	*128,	127,	125,	124
	*123,	122,	122,	122
	*128,	128,	137,	135
	*133,	132,	130,	129
	*128,	127,	125,	124
	*122,	121,	114,	128
	*128,	128,	144,	136
	*134,	132,	131,	129
	*128,	126,	125,	123
	*121,	118,	128,	128
	*128,	128,	128,	138
	*135,	133,	131,	129
	*128,	126,	124,	122
	*120,	114,	128,	128
	*128,	128,	128,	139
	*135,	133,	131,	129
	*128,	126,	124,	122
	*119,	108,	128,	128
	*128,	128,	128,	142
	*136,	133,	131,	129
	*128,	126,	124,	121
	*118,	87,	128,	128
	*128,	128,	128,	144
	*137,	134,	131,	129
	*128,	126,	123,	121
	*117,	128,	128,	128
	*128,	128,	128,	147
	*137,	134,	132,	129
	*128,	126,	123,	120
	*116,	128,	128,	128
	*128,	128,	128,	151
	*138,	135,	132,	129
	*128,	125,	123,	120
	*115,	128,	128,	128
	*128,	128,	128,	156
	*139,	135,	132,	129
	*128,	125,	123,	119
	*114,	128,	128,	128
	*128,	128,	128,	163
	*139,	135,	132,	130
	*128,	125,	122,	119
	*112,	128,	128,	128
	*128,	128,	128,	179
	*140,	136,	132,	130
	*128,	125,	122,	119
	*111,	128,	128,	128
	*128,	128,	129,	129
	*129,	129,	128,	128
	*128,	128,	127,	127
	*127,	127,	128,	128
	*128,	129,	129,	130
	*130,	129,	129,	128
	*128,	128,	127,	127
	*126,	126,	127,	128
	*128,	129,	130,	130
	*130,	130,	129,	128
	*128,	127,	127,	126
	*126,	126,	126,	127
	*128,	130,	131,	131
	*131,	130,	129,	128
	*128,	127,	126,	125
	*125,	125,	125,	127
	*128,	131,	132,	132
	*132,	131,	130,	128
	*128,	127,	126,	125
	*124,	124,	124,	126
	*131,	134,	134,	133
	*132,	131,	130,	129
	*128,	127,	125,	124
	*123,	122,	122,	122
	*128,	128,	136,	134
	*133,	132,	130,	129
	*128,	127,	125,	124
	*122,	121,	117,	128
	*128,	128,	140,	136
	*134,	132,	130,	129
	*128,	126,	125,	123
	*121,	119,	128,	128
	*128,	128,	154,	137
	*134,	132,	131,	129
	*128,	126,	125,	123
	*121,	117,	128,	128
	*128,	128,	128,	138
	*135,	133,	131,	129
	*128,	126,	124,	122
	*120,	113,	128,	128
	*128,	128,	128,	140
	*135,	133,	131,	129
	*128,	126,	124,	122
	*119,	107,	128,	128
	*128,	128,	128,	141
	*136,	133,	131,	129
	*128,	126,	124,	121
	*118,	92,	128,	128
	*128,	128,	128,	143
	*137,	134,	131,	129
	*128,	126,	123,	121
	*117,	128,	128,	128
	*128,	128,	128,	146
	*137,	134,	132,	129
	*128,	126,	123,	121
	*116,	128,	128,	128
	*128,	128,	128,	148
	*138,	134,	132,	129
	*128,	125,	123,	120
	*115,	128,	128,	128
	*128,	128,	128,	152
	*138,	135,	132,	129
	*128,	125,	123,	120
	*114,	128,	128,	128
	*128,	128,	129,	129
	*129,	129,	128,	128
	*128,	128,	127,	127
	*127,	127,	128,	128
	*128,	129,	129,	129
	*129,	129,	129,	128
	*128,	128,	127,	127
	*126,	127,	127,	128
	*128,	129,	130,	130
	*130,	130,	129,	128
	*128,	127,	127,	126
	*126,	126,	127,	128
	*128,	130,	131,	131
	*131,	130,	129,	128
	*128,	127,	126,	126
	*125,	125,	126,	127
	*128,	130,	131,	132
	*131,	130,	129,	128
	*128,	127,	126,	125
	*125,	124,	125,	127
	*129,	132,	133,	132
	*132,	131,	130,	128
	*128,	127,	126,	125
	*124,	123,	124,	126
	*131,	134,	134,	133
	*132,	131,	130,	129
	*128,	127,	125,	124
	*123,	122,	122,	122
	*128,	128,	136,	134
	*133,	132,	130,	129
	*128,	127,	125,	124
	*122,	121,	118,	128
	*128,	128,	139,	135
	*133,	132,	130,	129
	*128,	126,	125,	123
	*122,	120,	87,	128
	*128,	128,	145,	136
	*134,	132,	131,	129
	*128,	126,	125,	123
	*121,	118,	128,	128
	*128,	128,	128,	137
	*134,	133,	131,	129
	*128,	126,	124,	123
	*120,	115,	128,	128
	*128,	128,	128,	139
	*135,	133,	131,	129
	*128,	126,	124,	122
	*120,	112,	128,	128
	*128,	128,	128,	140
	*136,	133,	131,	129
	*128,	126,	124,	122
	*119,	107,	128,	128
	*128,	128,	128,	141
	*136,	133,	131,	129
	*128,	126,	124,	121
	*118,	94,	128,	128
	*128,	128,	128,	143
	*136,	134,	131,	129
	*128,	126,	124,	121
	*117,	128,	128,	128
	*128,	128,	128,	145
	*137,	134,	132,	129
	*128,	126,	123,	121
	*117,	128,	128,	128
	*128,	128,	129,	129
	*129,	129,	128,	128
	*128,	128,	128,	127
	*127,	127,	128,	128
	*128,	128,	129,	129
	*129,	129,	129,	128
	*128,	128,	127,	127
	*127,	127,	127,	128
	*128,	129,	130,	130
	*130,	129,	129,	128
	*128,	127,	127,	126
	*126,	126,	127,	128
	*128,	129,	130,	131
	*130,	130,	129,	128
	*128,	127,	127,	126
	*126,	126,	126,	127
	*128,	130,	131,	131
	*131,	130,	129,	128
	*128,	127,	126,	125
	*125,	125,	126,	127
	*128,	131,	132,	132
	*131,	131,	130,	128
	*128,	127,	126,	125
	*124,	124,	125,	126
	*129,	132,	133,	133
	*132,	131,	130,	128
	*128,	127,	126,	125
	*124,	123,	124,	125
	*131,	134,	134,	133
	*132,	131,	130,	129
	*128,	127,	125,	124
	*123,	122,	122,	122
	*128,	147,	136,	134
	*133,	132,	130,	129
	*128,	127,	125,	124
	*123,	121,	119,	128
	*128,	128,	138,	135
	*133,	132,	130,	129
	*128,	127,	125,	123
	*122,	120,	109,	128
	*128,	128,	142,	136
	*134,	132,	130,	129
	*128,	126,	125,	123
	*121,	119,	128,	128
	*128,	128,	152,	137
	*134,	132,	131,	129
	*128,	126,	125,	123
	*121,	117,	128,	128
	*128,	128,	128,	138
	*135,	133,	131,	129
	*128,	126,	124,	122
	*120,	114,	128,	128
	*128,	128,	128,	139
	*135,	133,	131,	129
	*128,	126,	124,	122
	*119,	111,	128,	128
	*128,	128,	128,	140
	*136,	133,	131,	129
	*128,	126,	124,	122
	*119,	106,	128,	128
	*128,	128,	128,	141
	*136,	133,	131,	129
	*128,	126,	124,	121
	*118,	95,	128,	128

:1

opo 11, 100
opo 22, 12
opo 22, 12
mov ax, 1
int 3

#def arc
#def bsnum
mov bsnum, 5
mov arc, 64

!32-nt
opo 12, 128
!scan
call !scan-heat
opo 17, arc
ipo 7, range
cmp range, 2000
jgr !nt
cmp arc, 4
jeq 2
mov ax, @3
shl ax, bsnum
opo 12, ax
call !fire
shr arc, 2
sub bsnum, 2
jmp !scan


!nt
cmp arc, 64
jeq !32-nt
shl arc, 2
add bsnum, 2
jmp !scan

:2
call !scan-heat
:22
opo 17, 2
ipo 7, bx
cmp bx, 2000
jgr !nt
call !heatob
call !fire
opo 12, @3
opo 18, 0
je 2
jne 2

!32-nt-heat
opo 12, 128
!scan-heat
call !m1
ipo 2, bx
cmp bx, 200
jgr 123
ret
:123
opo 17, arc
ipo 7, range
cmp range, 2000
jgr !nt-heat
cmp arc, 2
jeq 2
mov ax, @3
shl ax, bsnum
opo 12, ax
shr arc, 2
sub bsnum, 2
ipo 2, bx
jmp !scan-heat


!nt-heat
cmp arc, 64
jeq !32-nt-heat
shl arc, 2
add bsnum, 2
jmp !scan-heat

!heatob
ipo 2, ax
cmp ax, 180
jgr !heat-2big
opo 18, 1
!heat-2big
ret

!m1
!move
opo	11,	100
int	2
cmp	ex,	100
jls	!mleft
cmp	ex,	900
jgr	!mright
cmp	fx,	100
jls	!mup
cmp	fx,	900
jgr	!mdown
je	!mclear
jne	!mclear

!mleft
ipo	3,	ax
mov     dx,     64
sub     dx,     ax
opo     14,     dx
ret

!mright
ipo	3,	ax
mov     dx,     192
sub     dx,     ax
opo     14,     dx
opo	11,	100
ret

!mdown
ipo	3,	ax
mov     dx,     0
sub     dx,     ax
opo     14,     dx
opo	11,	100
ret

!mup
ipo	3,	ax
mov     dx,     128
sub     dx,     ax
opo     14,     dx
opo	11,	100
ret

!mclear
opo 11, 100
mov ax, @2
cmp ax, 128
je 1001
add ax, 16
and ax, 255
opo 14, ax
ret
:1001
ipo 10, ax
and ax, 255
opo 14, ax
ret

!fire
mov SPEED, @13
mov ANGLE, @6
cmp SPEED, 0
jae !next
neg SPEED
add ANGLE, 128
and ANGLE, 255
!next
sar range, 7  ; 8
sar SPEED, 6  ; 16
sar ANGLE, 4  ; 16
shl range, 8
shl SPEED, 4
mov INDEX, 1028
add INDEX, range
add INDEX, SPEED
add INDEX, ANGLE
mov dx, [INDEX]
sub dx, 128
opo 12, dx
opo 15
opo 15
opo 18, 0
ret