i'v worked on this script for 2 days and iv got it complete nd it complies but i can get it to run can some one help me here is te script it is a few of them addd togeather like i said it comlies just dont run![]()
![]()
program catherbyfisher;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fishing.scar}
{.include SRL/SRL/Extended/xMapWalk.scar}
{
begin;
cathersby's auto fisher!
-Features-
Options to fish in catherby.
Good banking procedure, never fails
Full anti randoms
Full anti ban
Can run all night
Easy to do setup-anyone can do it!
-Instructions-
Full out the setup
Specify the window
Start near the fishing spot
Have fishing utensil in first inventory slot!
}
//Setup
Const
thefishis = 'lobsters'; //what fish, options are lobster
theplaceis = 'catherby'; //where, options are catherby
loadstodo = 1000; //loads to do
//End of setup
//Don't touch below
var
run3:Boolean;
procedure mehantirandoms;
begin
FindNormalRandoms;
FindFishingEquipmentColor;
FindPlant;
if (FindFight = true) then
begin
RunAwayDirection('S');
Wait(5000);
RunBack;
end;
if (FindMSColor(x, y, FishingEquipmentColor)) then
begin
Mouse(x, y, 1, 1, true);
end;
HandleWhirlPool;
end;
procedure mehantiban;
begin
RotateEvery(1);
AntiBan;
RandomChat;
EnglishWords;
end;
procedure tothefish2;
begin
SetRun(true);
GameTab(4);
if theplaceis = 'catherby' then
begin
if (FindSymbol(x, y, 'archery shop')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
if (FindSymbol(x, y, 'fishing shop')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
end;
end;
end;
if thefishis = 'lobster' then
begin
if (ChooseOption(x, y, 'Cage')) then
begin
end;
end;
begin
end;
end;
begin;
if (InvFull = true) then
SetRun(true);
run3:=true;
end.
procedure todabank2;
begin
SetRun(true);
GameTab(4);
if theplaceis = 'catherby' then
begin
if (FindSymbol(x, y, 'fishing shop')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
if (FindSymbol(x, y, 'archery shop')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 1, 1, true);
Wait(50);
OpenBank3;
Deposit(2, 28, 2);
Closebank;
tothefish2;
end;
end;
end;
end;
if theplaceis = 'catherby' then
begin
if (FindSymbol(x, y, 'archery shop')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
if (FindSymbol(x, y, 'fishing shop')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
end;
end;
end;
if thefishis = 'lobster' then
begin
if (ChooseOption(x, y, 'Cage')) then
begin
GameTab(4);
for i := 1 to 28 do
if (ExistsItem(i)) then
Lobsters := Lobsters + 1;
if Lobsters = 28 then
SetRun(true);
todabank2;
end;
end;
procedure todabank;
begin
SetRun(true);
GameTab(4);
if theplaceis = 'catherby' then
begin
if (FindSymbol(x, y, 'fishing shop')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
if (FindSymbol(x, y, 'archery shop')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 1, 1, true);
Wait(5000);
OpenBank3;
Deposit(2, 28, 2);
Closebank;
tothefish;
end;
if thefishis = 'lobster' then
begin
if (ChooseOption(x, y, 'Cage')) then
begin
end;


Reply With Quote

