ABC!
05-26-2012, 07:30 PM
Once again, whilst making my first script I have en counted another compiling error. I try to fix, but after trying different things for over 10 minutes if I can't do it, I resort to posting for some external help, as I know there are far better scripters who can tell me what's wrong in an instant.
Like I said this is my first script and have read many guides! (Credits to all the makers!).
Function PickUpFrog:Boolean;
begin
repeat
FindNormalRandoms
if FindObjCustom(x, y, ['Swamp', 'toad'], [2190656], 5) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('Take');
end else
begin
writeln('Cannot find any Toads, Moving to another spot!');
if (FindColorSpiralTolerance(x, y, 208 , MMX1, MMY1, MMX2, MMY2, 7)) then
Mouse(x, y, 0, 0, True);
until not IsUpText('toad') or (InvFull);
until(InvFull);
end;
end;
Like I said this is my first script and have read many guides! (Credits to all the makers!).
Function PickUpFrog:Boolean;
begin
repeat
FindNormalRandoms
if FindObjCustom(x, y, ['Swamp', 'toad'], [2190656], 5) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('Take');
end else
begin
writeln('Cannot find any Toads, Moving to another spot!');
if (FindColorSpiralTolerance(x, y, 208 , MMX1, MMY1, MMX2, MMY2, 7)) then
Mouse(x, y, 0, 0, True);
until not IsUpText('toad') or (InvFull);
until(InvFull);
end;
end;