;[][][]           [][][][][] [][][][][] [][][][][]          [][][]
;[][][]           [][]       [][]       [][]                [][][]
;[]     [][][][]  [][]       [][]       [][]       [][][][]     []
;[]               [][][][][] [][][][][] [][][][][]              []
;[]     [][][][]  [][]             [][] [][]       [][][][]     []
;[][][]           [][]             [][] [][]                [][][]
;[][][]           [][]       [][][][][] [][]                [][][]
;                          [ = F s F = ]
;
;Robot's name		: FunSizedFragger mark 18
;Author      		: PhatBoy
;Author's Country  	: England
;Author's E-mail	: phat@funsizedfraggers.com
;Class			: FATY
;Tournament		: Standard
;Version		: v18
;Comment                : The atr2 bots have ended there will be no fsf19 only a "feeble"
;			  bot (guess the name). it will prob be the same as the fsf bots 
;			  but i cant read them no more. so i is gonna start again using
;			  the same scanning and moveing most prob


#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

#msg I R TEH WIN!!!

opo 11, 100
mov ax, 2
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
cmp ax, 0
jeq !done
opo 22, 15
dec ax
!done

: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
cmp @7, 0
jeq !FIRE
call !heatob
opo 15, @3
opo 15, @3
opo 12, @3
opo 18, 0
je 2
jne 2

!FIRE
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

!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, axnd
cmp axnd, 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,	axnd
mov     dx,     64
sub     dx,     axnd
opo     14,     dx
ret

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

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

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

!mclear
opo 11, 100
mov axnd, @2
cmp bx, 150
jgr 1001
add axnd, 40
:1001
add axnd, 16
and axnd, 255
opo 14, axnd
ret