#config scanner= 3
#config weapon= 4
#config armor= 2
#config engine= 2
#config heatsinks= 1
#config mines= 0
#config shield= 0

opo 22, 12
opo 22, 12
int 3

:1
ipo 10, ax
opo 14, ax
opo 11, 100

:2
ipo 1, fx
cmp fx, 0
jgr 2
opo 14, 128

:64
call !check
opo 17, 64
ipo 7, ax
cmp ax, 2000
jgr !64-notthere
mov ax @3
shl ax, 5
opo 12, ax
je 16
jne 16

!64-notthere
opo 12, 128
ipo 7, ax
cmp ax, 2000
jls 64
je 1
jne 1

:16
call !check
opo 17, 16
ipo 7, ax
cmp ax, 2000
jgr 64
mov ax, @3
shl ax, 3
opo 12, ax

:4
call !check
opo 17, 4
call !heat
ipo 7, ax
cmp ax, 2000
jgr 16
opo 12, @3
opo 15

call !check
opo 17, 2
call !heat
ipo 7, ax
cmp ax, 2000
jgr 16
opo 12, @3
opo 15
je 4
jne 4

!heat
ipo 2, ax
cmp ax, 250
jgr !heat
ret

!check
ipo 6, ax
cmp ax, 50
jls !glass4
ret

!glass4
#def speed
opo 11, 100
mov speed, 100

:264
call !m1
opo 17, 64
ipo 7, ax
cmp ax, 2000
jgr !264-2big
mov ax, @3
shl ax, 5
opo 12, ax
opo 15
je 216
jne 216

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

:216
call !m1
opo 17, 216
ipo 7, ax
cmp ax, 1500
jgr 264
mov ax, @3
shl ax, 3
opo 12, ax
opo 15
je 24
jne 24

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

!FIRE
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
opo 15, @3
je 24
jne 24

!2heat
call !m1
opo 18, 0
ipo 2, ax
cmp ax, 200
jgr !heat
ret

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

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

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

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