Grab a color from the fishing symbol (FindSymbol already searches for a color after it finds the bitmap, so you can do Getcolor(x,y)) and then you can search from the top or bottom of the screen for that color.
Look at Yakman's InLumby procedure for how to do it.
Code:
function InLumby:boolean; //Modified from Yakman
begin
if not(LoggedIn) then exit;
if not(WaterSymbolColor>0) then
begin
if FindSymbol(x,y,'water') then
begin
WaterSymbolColor:=GetSymbolColor(x,y,'water');
Writeln('WaterSymbolColor = '+intToStr(WaterSymbolColor));
Wait(1000);
result:=InLumby;
exit;
end else
begin
result:=false;
exit;
end;
end;
if FindColor(x,y,WaterSymbolColor,MMX1,MMY1,MMX2,MMCY) then
if FindColor(x,y,WaterSymbolColor,MMX1,MMCY,MMX2,MMY2) then
begin
result:=true;
Players[CurrentPlayer].Loc:='Lumby';
end;
end;
If you want to move to the bottom one search from the bottom up. If you want to move to the top one search from the top down.