;Please dont kick me out
opo 22, 20
opo 22, 20
#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 axnd

opo 11, 100
mov ax, 1
int 3
!64-nt
opo 12, 128

:64
call !heat64
:642
opo 17, 64
ipo 7, bx
cmp bx, 2000
jgr !64-nt
mov fx, @3
shl fx, 5
opo 12, fx
opo 15

:16
call !heat16
:162
opo 17, 16
ipo 7, bx
cmp bx, 2000
jgr 64
mov fx, @3
shl fx, 3
opo 12, fx
opo 15

:4
call !heat4
:42
opo 17, 4
ipo 7, bx
cmp bx, 2000
jgr 16
mov fx, @3
shl fx, 1
opo 12, fx
opo 15

:2
call !heat2
:22
opo 17, 2
ipo 7, bx
cmp bx, 2000
jgr 4
call !heatob
opo 15, @3
opo 15, @3
opo 12, @3
opo 18, 0
je 2
jne 2

!heat64-nt
opo 12, 128

!heat64
call !m1
ipo 2, bx
cmp bx, 200
jls 642
opo 17, 64
ipo 7, bx
cmp bx, 2000
jgr !heat64-nt
mov fx, @3
shl fx, 5
opo 12, fx

!heat16
call !m1
ipo 2, bx
cmp bx, 200
jls 162
opo 17, 16
ipo 7, bx
cmp bx, 2000
jgr !heat64
mov fx, @3
shl fx, 3
opo 12, fx

!heat4
call !m1
ipo 2, bx
cmp bx, 200
jls 42
opo 17, 4
ipo 7, bx
cmp bx, 2000
jgr !heat16
mov fx, @3
shl fx, 1
opo 12, fx

!heat2
call !m1
ipo 2, bx
cmp bx, 200
jls 22
ipo 7, bx
cmp bx, 2000
jgr !heat4
opo 12, @3
je !heat2
jne !heat2

!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
mov ax, @2
cmp bx, 150
jgr 1001
add ax, 40
:1001
add ax, 16
and ax, 255
opo 14, ax
ret

!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