SCAR Code:
{.Script Info:
# ScriptName = UberJesus's MegaFisher
# Author = UberJesus
# Description = Fisher that fishes/cooks & banks
# Version = 0.1
/Script Info}
program CatherburyFisher;
{.include srl/srl.scar}
{.include srl/srl/skill/fishing.scar}
const
Startplayer = 0; //player that starts
HMT = 100; // How many trips
UseAntiBan = 'Yes'; // yes or no
Cook = 'Yes'; // Cook them on the way to the bank, yes or no
FishType = 'Lobster'; // What do you want to fish
Style = 'Cage'; // What it says where to fish, ex. "Cage" fishing spot
fishcol = 15714472; // The white bubbles in the water
fishtol = 3; // Tolerance to fond the fishing spot
rangecol = 1386424; // Colour of glowing part of range
roadcol = 6053220; // Do not touch
fishsym1 = 12914689; // Darker color of the fishing symbol
fishsym2 = 16279297; // A lighter color of the fishing symbol
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := StartPlayer;
Players[0].Name :='user'; // username
Players[0].Pass :='pass'; // password
Players[0].Nick := 'nik'; // about 3 letters of ur name
Players[0].Active := True;
writeln('Using '+ inttostr(howmanyplayers) +' player[s]');
end;
procedure Bank;
begin
OpenBank3;
writeln('Opened bank booth...');
FixBank;
Deposit(2,28,2);
writeln('Depositing Fish...');
CloseBank;
end;
procedure WalkToSpot;
begin
writeln('Walking to the fishing spot...');
LinearRoadWalk(roadcol, 90, 50, 1, 1);
LinearRoadWalk(roadcol, 90, 50, 1, 1);
LinearRoadWalk(roadcol, 90, 50, 1, 1);
GetSymbolColor(x, y, 'fishing spot');
FindSymbol(x, y, 'fishing spot');
Mouse(x,y+10,1,1,true);
end;
procedure WalkBack;
begin
writeln('Inventory full, walking back now...');
LinearRoadWalk(roadcol, 270, 50, 1, 1);
end;
procedure WalkBack2;
begin
LinearRoadWalk(roadcol, 270, 50, 1, 1);
LinearRoadWalk(roadcol, 270, 50, 1, 1);
GetSymbolColor(x, y, 'bank');
FindSymbol(x, y, 'bank');
Mouse(x,y,1,1,true);
end;
procedure StartFishing;
var a,c:integer;
begin
a := 0;
repeat
if FindMSColorTol(x, y, fishcol, fishtol) then
begin
MMouse(x,y,0,0);
wait(1000+random(500));
c := c + 1;
if c mod 10 = 0 then
begin
FindColorToleranceDOB(x, y, fishsym1, fishsym2, 650, 8, 700, 125, 3);
Mouse(x,y+10,1,1,true);
end
if ReadUpText('Cage') = true then
begin
Mouse(x,y,0,0,true);
//PopUp('Cage');
writeln('Found fishing spot and now fishing...');
if UseAntiBan = 'Yes' then
begin
repeat
AntiBan;
if FindMSColorTol(x, y, fishcol, fishtol) = false then
begin
repeat
FindMSColorTol(x, y, fishcol, fishtol)
a := a + 1;
until a >= 15
a := -1;
end
until a = -1
end
if UseAntiBan = 'No' then
begin
repeat
TypeSend(' ');
wait(15000+random(2000));
if FindMSColorTol(x, y, fishcol, fishtol) = false then
begin
repeat
FindMSColorTol(x, y, fishcol, fishtol)
a := a + 1;
until a >= 15
a := -2;
end
until a = -2
end
end
end
until InvFull = true
end;
procedure CookThoseFish;
var c:integer;
begin
UseItem(2);
repeat
if FindMSColorTol(x, y, rangecol, fishtol) then
begin
MMouse(x,y,0,0);
wait(500+random(200));
if ReadUpText('Use') = true then
begin
Mouse(x,y,0,0,false);
ChooseOption(x, y, 'Range');
c := 1
end
end
until c = 1
wait(1500+random(500));
Mouse(254,402,5,5,false);
wait(500+random(200));
GetMousePos(x,y);
Mouse(x,y+33,5,1,true);
writeln('Found range and now cooking...');
end;
procedure StartScript;
begin
writeln('Script will start soon...');
wait(2000+random(1000));
writeln('...Now!');
end;
procedure Report;
begin
writeln('This is a report... I'#39'll update later');
end;
begin
ClearDebug;
SetupSRL;
LoadChars2(AppPath + 'includes\SRL\CharsNPC\');
LoadChars2(AppPath + 'includes\SRL\CharsTrade\');
LoadChars2(AppPath + 'includes\SRL\SmallChars\');
LoadChars2(AppPath + 'includes\SRL\StatChars\');
LoadChars2(AppPath + 'includes\SRL\UpChars\');
Declareplayers;
StartScript;
loginplayer;
HighestAngle;
FindRoadColor;
Bank;
WalkToSpot;
wait(10000+random(2000));
StartFishing;
WalkBack;
if Cook = 'Yes' then
begin
GetSymbolColor(x, y, 'range');
FindSymbol(x, y, 'range');
Mouse(x,y,1,1,true);
CookThoseFish;
end
WalkBack2;
Bank;
Report;
end.