'Move Coloniser

if mouse button and mouse x<450 and mouse y<150 and mouse x>405 and mouse y>100 and rmoveship=false
rmoveship=true
end if

if rmoveship=true
canvas 1
selected = Sprite Col (0,rcshipnum to 2200)
canvas 1
canvas 0
set pen colour black
fill rect 405,150 to 435,214
set pen colour make color (255,0,0)
draw text 405,195,as string(selected)

if selected <> -1 and mouse button and mouse x<(rsx[selected]+45) and mouse x>(rsx[selected]) and mouse y<(rsy[selected]+45) and mouse y>(rsy[selected]) and rcselected=false and rmoveship=true
canvas 0
sselected=selected
set pen colour black
fill rect 550,180 to 700,200
set pen colour make color (255,0,0)
draw text 405,195,"You have selceted ship " +as string(sselected)+ ", a coloniser"
rcselected=true
delay 500
end if
if mouse button and rcselected=true 
canvas 1
sprite off sselected
int mousemtilex=(((mouse x/map tile width + (x/map tile width))*map tile width) + 3)
int mousemtiley=(((mouse y/map tile height + (y/map tile height))*map tile height) + 3)
rsx[selected]=mousemtilex
rsy[sselected]=mousemtiley
sprite selected,rsx[sselected],rsy[sselected],14
delay 500
canvas 0
set pen colour black
fill rect 405,180 to 800,200
draw frame
rcselected=false
rmoveship=false
end if
if rcshipnum=50
rcshipnum=0
end if