Need help with this script

[Amberleaf]

It was working one day... and now it's stopped working I don't have enough time to fix it but if you do then post the fixed version back and I'll move it to the RS script section & add your name in the credits.

 

It used to run at the fishing guild fishing lobsters or/& sharks, then bank them.

 

//Author: Amberleaf
//Script Name: AmberGuildFisher v0.1
//Web Help:
//THIS VERSION NEEDS FIXING

{$DEFINE RS2}
{$I UBeX\UBeX.scar}
{$DEFINE SMART}                   // Comment out to disable SMART

var x, y: Integer;

procedure ScriptTerminate;
begin
 FreeOSI;
end;

procedure FindFS;
var x, y: Integer;
begin
if FindColorTolerance(x, y, 11775657, MSX1, MSY1, MSX2, MSY2, 9) then
begin
   MMouse(x, y, 1, 1);
     Wait(5 + Random(50));
       MMouse(x, y, 1, 1);
         Wait(5 + Random(50));
if IsUpTextMulti(['Cage', 'age', 'Ca']) then
begin
 Mouse(x, y, 0, 0, True);
   Wait(2500 + Random(150));
     MMouse(x, y, 5, 0);
       Wait(3500 + Random(150));
     MMouse(x, y, 0, 5);
   end;
 end;
end;

procedure FindFS2;
var x, y: Integer;
begin
if FindColorTolerance(x, y, 11775657, MSX1, MSY1, MSX2, MSY2, 9) then
begin
   MMouse(x, y, 1, 1);
     Wait(5 + Random(50));
       MMouse(x, y, 1, 1);
         Wait(5 + Random(50));
if IsUpTextMulti(['Net', 'Net', 'et']) then
begin
 Mouse(x, y, 0, 0, False);
   Wait(2500 + Random(150));
   ChooseOption('Harpoon');
     MMouse(x, y, 5, 0);
       Wait(3500 + Random(150));
     MMouse(x, y, 0, 5);
   end;
 end;
end;

procedure FullBag;
begin
if (InvFull = (True)) then
begin
 MMouse(554, 95, 0, 0);
   Wait(150 + Random(100));
 Mouse(554, 95, 0, 0, True);
   Wait(7000 + Random(550));
 end;
end;

procedure Bank;
var x, y: Integer;
begin
OpenBank(Loc_FEB);
 Wait(500 + Random(1000));
BankScreen;
 DepositAll(True);
   Wait(500 + Random(1000));
     CloseBank(True);
       Wait(250 + Random(500));
   end;

procedure RunBack;
begin
MMouse(693, 86, 5, 5);
 Wait(50 + Random(150));
Mouse(693, 86, 5, 5, True);
 Wait(3000 + Random(500));
end;

procedure AreWeFishing;
var x, y: Integer;
begin
if FindColorTolerance(x, y, 1842204, 243, 15, 275, 45, 13) or
(IsAnimating = (True)) then
begin
repeat
 MMouse(253, 180, 10, 50);
   Wait(550 + Random(1550));
 MMouse(253, 180, 30, 15);
   Wait(650 + Random(1350));
 MMouse(253, 180, 50, 10);
   Wait(550 + Random(1550));
 MMouse(253, 180, 15, 30);
   Wait(650 + Random(1350));
until (IsAnimating = (False)) or
(FindColorTolerance(x, y, 1842204, 243, 15, 275, 45, 13) = False)

 end;
end;

begin
 SetupUBeX;
 SetRun(True);
 MakeCompass(Dir_North);
 SetAngle(True);
repeat
 FindFS;
 AreWeFishing;
 //FindFS2;
 //AreWeFishing;
if FindColorTolerance(x, y, 938796, 221, 457, 296, 479, 1) then
begin
 FullBag;
 Writeln('Running to bank');
 Bank;
 RunBack;
end;
until false;
end.

[shadowrecon]

[scar]

//Author: Amberleaf

//Script Name: AmberGuildFisher v0.1

//Web Help:

//THIS VERSION NEEDS FIXING

 

{$DEFINE RS2}

{$DEFINE SMART}

{$I OSI\OSI.Scar}

 

var x, y: Integer;

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

procedure FindFS;

var x, y: Integer;

begin

if FindColorTolerance(x, y, 11775657, MSX1, MSY1, MSX2, MSY2, 9) then

begin

MMouse(x, y, 1, 1);

Wait(5 + Random(50));

MMouse(x, y, 1, 1);

Wait(5 + Random(50));

if IsUpTextMulti(['Cage', 'age', 'Ca']) then

begin

Mouse(x, y, 0, 0, True);

Wait(2500 + Random(150));

MMouse(x, y, 5, 0);

Wait(3500 + Random(150));

MMouse(x, y, 0, 5);

end;

end;

end;

 

procedure FindFS2;

var x, y: Integer;

begin

if FindColorTolerance(x, y, 11775657, MSX1, MSY1, MSX2, MSY2, 9) then

begin

MMouse(x, y, 1, 1);

Wait(5 + Random(50));

MMouse(x, y, 1, 1);

Wait(5 + Random(50));

if IsUpTextMulti(['Net', 'Net', 'et']) then

begin

Mouse(x, y, 0, 0, False);

Wait(2500 + Random(150));

ChooseOption('Harpoon');

MMouse(x, y, 5, 0);

Wait(3500 + Random(150));

MMouse(x, y, 0, 5);

end;

end;

end;

 

procedure FullBag;

begin

if (InvFull(False) = (True)) then

begin

MMouse(554, 95, 0, 0);

Wait(150 + Random(100));

Mouse(554, 95, 0, 0, True);

Wait(7000 + Random(550));

end;

end;

 

procedure Bank;

begin

OpenBank(Loc_FEB);

Wait(500 + Random(1000));

BankScreen;

DepositAll(True);

Wait(500 + Random(1000));

CloseBank(True);

Wait(250 + Random(500));

end;

 

procedure RunBack;

begin

MMouse(693, 86, 5, 5);

Wait(50 + Random(150));

Mouse(693, 86, 5, 5, True);

Wait(3000 + Random(500));

end;

 

procedure AreWeFishing;

var x, y: Integer;

begin

if FindColorTolerance(x, y, 1842204, 243, 15, 275, 45, 13) then

begin

repeat

MMouse(253, 180, 10, 50);

Wait(550 + Random(1550));

MMouse(253, 180, 30, 15);

Wait(650 + Random(1350));

MMouse(253, 180, 50, 10);

Wait(550 + Random(1550));

MMouse(253, 180, 15, 30);

Wait(650 + Random(1350));

until (FindColorTolerance(x, y, 1842204, 243, 15, 275, 45, 13) = False);

end;

end;

 

begin

SetupOSI;

SetRun(True);

MakeCompass(Dir_North);

SetAngle(True);

repeat

FindFS;

AreWeFishing;

//FindFS2;

//AreWeFishing;

if FindColorTolerance(x, y, 938796, 221, 457, 296, 479, 1) then

begin

FullBag;

Writeln('Running to bank');

Bank;

RunBack;

end;

until false;

end.

[/scar]

[Amberleaf]

Thanks shadow I knew it wasn't a major problem but I kept getting a error with UBeX & I was raging a tad =].

 

Use this version at your own risk it has no random detection and comes with no help or support. I'm reworking the detection of the fishing animation to make it more accurate & reliable, thanks again I can crack on now.

[shadowrecon]

Lol, no problem, im redoing the animation detection system i had within ubex and i should have my own include released soon, RSutton went awall and he has the login for the svn account so i cant update anything. The new animation system im working on will be alot faster and less cpu intensive. =p

[BryceTheCoder]

Lol, no problem, im redoing the animation detection system i had within ubex and i should have my own include released soon, RSutton went awall and he has the login for the svn account so i cant update anything. The new animation system im working on will be alot faster and less cpu intensive. =p

 

Ooh dang;) When you get a better animation detector can i get it?