I have been trying FOREVER to create a fishing procedure. One which will click the spot, and fish it.
I have created EVERYTHING else, but not this.
I cannot seem to get it 
If someone could PLEASE help me make one, link me to a tut, or just give me advice, I would give them rep and eternal e-love. 
Here is what I have been trying to use...
SCAR Code:
{*******************************************************************************
Function FindFishMole(:boolean);
By: Hermpie
Description: Looks for FishMole in River when called.
*******************************************************************************}
function FindFishMole :boolean;
var FishSpot: Array of TPointArray;
FishPoints:TPointArray;
CTS, I, HX, HY: Integer;
begin
CTS := GetColorToleranceSpeed;
if not (cts = 2) then ColorToleranceSpeed(2);
FindColorsSpiralTolerance(Hx, Hy, FishPoints, FishColor, MSX1, MSY1, MSX2, MSY2, 15)
FishSpot:= SplitTPA(FishPoints,10);
for i := 0 to High(FishSpot) do
begin
MiddleTPAEx(FishSpot[i], Hx, Hy);
MMouse(Hx, Hy, 3, 3);
Wait(25+random(10));
Result:=IsUpText('ure');
if Result then
begin
Writeln('Found fish mole.');
GetMousePos(x,y);
Mouse(X, Y, 0, 0,False);
Wait(25+random(10));
ChooseOption('ure');
Result:=true;
end;
Result:=false;
end;
end;
Nava2