Simba Code:
program NetCatherbyFisher;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
var x, y, CatFish3, CatFish2, CatCook, CatFish1, CatBank, CatTwoTrees, CatFishShop: Integer; PBox: TBox;
Procedure P07_DeclarePlayer;
Begin
P07_PlayerName:='';
P07_PlayerPass:='';
end;
procedure DTMs;
begin
CatFish3 := DTMFromString('mWAAAAHicY2FgYChjYmDIBuImIO4A4nCgWAIDhM4H4iPzYhm48v+DMYjNDxRDxoxoGAQAHIAKIw==');
CatCook := DTMFromString('mbQAAAHicY2VgYPBjYmDwB+JwILYDYh8gDgOKezJA6GAgTgDi4qwchjx/IzA9e8Ikht4WJQZ+oDg6ZsSCwQAAiKgJ9w==');
CatBank := DTMFromString('mWAAAAHicY2FgYLBjYmCwB2IfIA4A4hCgWBwQ+wNxNBDPnjCJoTgrhyHP34jhyauPDPxAMWTMiIZBAADdTgl2');
CatTwoTrees := DTMFromString('mWAAAAHicY2FgYHBmYmCwBWJ/IHYCYmegmDsQ+wCxIRAfmRfLEBwRycAocYZB0VeAgR8ohowZ0TAIAABgrAaL');
CatFishShop := DTMFromString('mWAAAAHicY2FgYHBmYmCwB2JvIHYFYiegmA0QWwCxBxBHBwYzKPoKgPHbl88Z+IFiyJgRDYMAAGZDBxU=');
end;
procedure DTMFree;
begin
FreeDTM(CatBank);
FreeDTM(CatFish3);
FreeDTM(CatTwoTrees);
FreeDTM(CatFishShop);
FreeDTM(CatCook);
end;
procedure StartCheck; // This will move the camera to the best place.
begin
Wait(RandomRange(1000,2000));
P07_MakeCameraAngleHigh();
P07_MakeCompassNorth;
P07_HoverSkill('Fishing', random(5000));
Wait(RandomRange(200,1000));
end;
procedure StartFish; //Checks for Fishing Spot and starts fishing
begin
if not P07_LoggedIn then Exit;
PBox := IntToBox(238, 149, 286, 186);
if not P07_InvFull then
if AveragePixelShift (PBox, 250, 350) < 30 then
Wait(RandomRange(250,1200));
if AveragePixelShift (PBox, 250, 350) < 30 then
If (P07_FindObjCustom(x, y, ['Ca', 'ge'], [15518125, 15452076, 13545623, 14398100, 14659209], 10)) then //Finds the Fishing spot
begin
MMouse(RandomRange(X - 5, X + 6), RandomRange(y - 5, y + 6), 0, 0); //Moves the mouse there
Wait(RandomRange(450,850));
If P07_IsUpTextMultiCustom(['Ca', 'ge']) then
ClickMouse2(Mouse_Left);
end
else
begin
repeat
wait(RandomRange(150,300));
until AveragePixelShift (PBox, 250, 350) < 30;
end else
writeln('Could not find any Fishing Spot');
P07_MakeCompassDegree(RandomRange(0, 360)); //Rotate camera in case script doesn't find any Fishing Spots. Will add walking here later
P07_MakeCameraAngleLow();
end;
procedure GoToBank;
var wx, wy: Integer;
begin
if (findDTM(CatTwoTrees,wx, wy, P07_MMX1, P07_MMY1, P07_MMX2, P07_MMY2)) then
begin
P07_MakeCompassNorth;
Wait(RandomRange(1200,2200));
MMouse(RandomRange(wx - 3, wx + 4), RandomRange(wy - 3, wy + 4), 0, 0);
Wait(RandomRange(400,1200));
ClickMouse2(Mouse_Left);
end;
begin
P07_MakeCompassNorth;
Wait(RandomRange(1200,2200));
if (findDTM(CatFishShop,wx, wy, P07_MMX1, P07_MMY1, P07_MMX2, P07_MMY2)) then
MMouse(RandomRange(wx - 3, wx + 4), RandomRange(wy - 3, wy + 4), 0, 0);
Wait(RandomRange(400,1200));
ClickMouse2(Mouse_Left)
end;
begin
P07_MakeCompassNorth;
Wait(RandomRange(1200,2200));
if (findDTM(CatCook,wx, wy, P07_MMX1, P07_MMY1, P07_MMX2, P07_MMY2)) then
MMouse(RandomRange(wx - 3, wx + 4), RandomRange(wy - 3, wy + 4), 0, 0);
Wait(RandomRange(400,1200));
ClickMouse2(Mouse_Left)
end;
begin
P07_MakeCompassNorth;
Wait(RandomRange(1200,2200));
if (findDTM(CatBank,wx, wy, P07_MMX1, P07_MMY1, P07_MMX2, P07_MMY2)) then
MMouse(RandomRange(wx - 3, wx + 4), RandomRange(wy - 3, wy + 4), 0, 0);
Wait(RandomRange(400,1200));
ClickMouse2(Mouse_Left)
writeln('Arrived at Bank! Banking...');
end;
end;
Function EasyAntiBan: Boolean; //AntiBan
begin
case random(60) of
0: P07_HoverSkill('Fishing', random(4500));
1: P07_MakeCameraAngleHigh;
2: P07_MakeCompassDegree(RandomRange(0, 180));
3: MMouse(random(100), random(420), 0, 0);
4: P07_MakeCameraAngleLow;
5: MMouse(random(600), random(120), 0, 0);
end;
end;
//Start of Main
begin
P07_DeclarePlayer;
SetupP07Include;
MouseSpeed := 15;
If (Not P07_LoggedIn) Then
begin
P07_LogInPlayer;
end;
Wait(RandomRange(500,1000));
StartCheck;
DTMs; //Load DTM's
//Start of fishing
repeat wait(RandomRange(5000,10000));
EasyAntiBan;
StartFish;
if (P07_InvFull) then
begin
GoToBank;
end;
until (not P07_LoggedIn)
DTMFree; //Frees them
end.