Just Make a Bitmap of the water and and add tolerance (36) to it, Get the color and use that as the result.
A primitive method but never fails 
(Based on the Idea of Solmn Wishes);
SCAR Code:
Function FindWaterColorSquig : Integer;
Var
Water, TestColor : Integer;
Begin
Water := BitmapFromString(23, 10, 'beNrrXJ/fOYpG0dBBAB+cfBo' +
'=');
Begin
If FindBitmapToleranceIn(Water, wx, wy, MMX1, MMY1, MMX2, MMY2, 36) Then
Begin
WriteLn('WaterColor Found!');
TestColor := GetColor(wx, wy);
Result := TestColor;
end else
WriteLn('WaterColor Not Found!');
end;
end;
Have Fun!