Code:
program GuildFishnBank;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
var
x, y ,PastInvCounter: Integer;
Text: TStringArray;
Procedure Bootup;
begin
WriteLn('Loading Script');
P07_MakeCompassNorth;
P07_MakeCameraAngleHigh;
Wait(randomRange(99, 200));
end;
Procedure AntiBan;
Begin
Writeln('Preforming Anti-Ban');
case random(5) of
1: Wait (RandomRange(250, 1200));
2: HoverSkill('random', False);
3: HoverSkill('fishing', False);
4: Boredhuman;
5: HoverSkill('cooking', False);
end;
end;
Procedure Findspot;
begin
if(FindColorSpiralTolerance(x, y, 14728868, MSX1, MSY1, MSX2, MSY2, 5))then
begin
MMouse(RandomRange(X - 5, X + 5), RandomRange(y - 5, y + 5), 0, 0);
wait (1500+random(500));
if P07_IsUpTextMultiCustom( ['Cage','age']) then
begin
ClickMouse2(mouse_right);
Writeln('We Found Some Fish');
wait (75+random(100));
PastInvCounter := P07_InvCount;
End;
End;
End;
Procedure Walkbank();
Begin
RadialWalkTolerance(3428977,180,259,65,5,5,10);
P07_FFlag;
End;
Procedure Walkspot();
Begin
RadialWalkTolerance(1063247,0,90,65,5,5,10);
P07_FFlag;
End;
Procedure Bankfish;
Begin
if FindColorTolerance(x, y, 7697790, 4, 4, 515, 337, 10) then
MMouse(x, y, 2, 2);
wait(100)
if FindColorTolerance(x, y, 7697790, 4, 4, 515, 337, 10) then
ClickMouse2(Mouse_Right);
P07_ChooseOptionMulti((['Bank']));
wait(100);
if P07_BankScreen then P07_Deposit(2,28,True);
End;
Procedure FishingCheck;
Begin
Wait(10000+Random(2000));
If PastInvCounter < P07_InvCount Then
Begin
Writeln('We Have Got Some Fish');
Wait(10000+Random(1500));
end;
If PastInvCounter = P07_InvCount Then
Begin
Writeln('Looking For Another Spot');
Findspot;
Wait (10000+Random(1500));
end;
End;
Begin
SetupP07Include;
BootUp;
repeat
repeat
AntiBan;
Findspot;
FishingCheck;
Until P07_InvFull;
Walkbank;
BankFish;
WalkSpot;
Until
End;