#config armor=2         ; consumes 2 points
#config scanner=3       ; gives us 5 points
#config engine=3        ; gives us 2 points
#config heatsinks=1     ; gives us 1 point
#config mines=0         ; consumes 5 points
#config weapon=3        ; gives us 2 points
#config shield=0        ; consumes 3 points

opo 22, 12
opo 22, 12
#def speed
opo 11, 100
mov speed, 100

:64
call !m1
opo 17, 64
ipo 7, ax
cmp ax, 1500
jgr !64-2big
cmp @3, 0
jgr !64-gr
jls !64-ls
opo 15
je 16
jne 16

!64-gr
call !m1
cmp @3, 1
jeq !64-1
opo 12, 64
opo 15
je 16
jne 16

!64-1
opo 12, 32
opo 15
je 16
jne 16

!64-ls
call !m1
cmp @3, -1
jeq !64--1
opo 12, -64
opo 15
je 16
jne 16

!64--1
opo 12, -32
opo 15
je 16
jne 16

!64-2big
opo 12, 128
je 64
jne 64

:16
call !m1
opo 17, 16
ipo 7, ax
cmp ax, 1500
jgr !16-2big
cmp @3, 0
jgr !16-gr
jls !16-ls
opo 15
je 8
jne 8

!16-gr
call !m1
cmp @3, 1
jeq !16-1
opo 12, 16
opo 15
je 8
jne 8

!16-1
opo 12, 8
opo 15
je 8
jne 8

!16-ls
call !m1
cmp @3, -1
jeq !16--1
opo 12, -16
opo 15
je 8
jne 8

!16--1
opo 12, -8
opo 15
je 8
jne 8

!16-2big
call !m1
opo 12, 16
ipo 7, ax
cmp ax, 2000
jls 16
opo 12, -32
ipo 7, ax
cmp ax, 2000
jls 16
je 64
jne 64

:8
call !m1
opo 17, 8
ipo 7, ax
cmp ax, 1500
jgr !8-2big
cmp @3, 0
jgr !8-gr
jls !8-ls
opo 15
je 4
jne 4

!8-gr
call !m1
cmp @3, 1
jeq !8-1
opo 12, 8
opo 15
je 4
jne 4

!8-1
opo 12, 4
opo 15
je 4
jne 4

!8-ls
call !m1
cmp @3, -1
jeq !16--1
opo 12, -8
opo 15
je 4
jne 4

!8--1
opo 12, -4
opo 15
je 4
jne 4

!8-2big
call !m1
opo 12, 8
ipo 7, ax
cmp ax, 2000
jls 8
opo 12, -16
ipo 7, ax
cmp ax, 2000
jls 8
je 16
jne 16

:4
call !m1
opo 17, 4
call !heat
ipo 7, ax
cmp ax 2000
jgr !4-2big
cmp @7, 0
jeq !FIRE
opo 15, @3
opo 18, 0
je 4
jne 4

!FIRE
opo 18, 0
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
je 4
jne 4

!4-2big
call !m1
opo 18, 0
opo 12, 4
ipo 7, ax
cmp ax, 2000
jls 4
opo 12, -8
ipo 7, ax
cmp ax, 2000
jls 4
je 8
jne 8

!heat
opo 18, 0
ipo 2, ax
cmp ax, 200
jgr !heat
cmp ax, 150
jgr !heat-2big
opo 18, 1
!heat-2big
ret

!m1
ipo 1, ax
cmp ax, 0
jeq !m2
opo 14, 4
opo 12, -4
ret

!m2
cmp speed, -74
jeq !m4
mov speed, -74
!m5
opo 11, speed
ret

!m4
mov speed, 100
je !m5
jne !m5