Simba Code:
program Fisher;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
{$i sps/sps.simba}
var
CHANGE_COUNT, b, b1, b2, b2one, b3, b3one, b3two, b4, b5, b6: integer;
Procedure AntiBan;
begin
case(random(250)) of
0: MMouse(random(500), random(500), 1, 2);
10: P07_HoverSkill('Fishing',1000+Random(4000));
20: P07_HoverSkill('Fishing',1000+Random(4000));
30: P07_MakeCameraAngleHigh;
40: P07_MakeCameraAngleLow;
50: P07_MakeCompassDegree(random(360));
end;
end;
procedure FindRod;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['rod'],[1208726,1141389],5) Then
begin
ClickMouse2(mouse_left);
wait(1250+random(200))
end;
end;
procedure ClickGenie;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['enie'],[5704020, 4786501, 9376393, 8719998, 4390976],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['enie'],[1650385],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['enie'],[1650385],10))
end;
end;
procedure ClickMan;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ious','alk'],[5849352],10))
end;
end;
procedure RunSwarm;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
begin
wait(8000+random(500))
If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
begin
If P07_FindObjCustom(x,y,['alk','ere'],[3179891],10) Then
begin
ClickMouse2(mouse_left);
wait(3000+random(1000))
end;
end;
end;
end;
procedure ClickJekyll;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ekyll'],[594262],10))
end;
end;
procedure ClickFruit;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
begin
wait(5000+random(1000))
ClickMouse2(mouse_left);
If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10))
end;
end;
procedure ClickDwarf;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
begin
ClickMouse2(mouse_left);
wait(2000+random(1000))
P07_ClickToContinue;
wait(500+random(100))
If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['warf'],[1844602],10))
end;
end;
procedure ClickHand;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['and'],[3549040],10))
end;
end;
procedure ClickRick;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10))
end;
end;
Function IsFishing1: Boolean;
var
i, i2: integer;
begin
i := P07_InvCount;
wait(8000 + random(100));
i2 := p07_InvCount;
AntiBan;
if (i2 > i) then
begin
result:=true
writeln('we are fishing');
end else
begin
result:= false;
writeln('not currently fishing');
end;
end;
//if at top spot returns 1 and bottom returns two
Function CheckSpot: Integer;
var
x, y, FishDTM: integer;
begin
P07_MakeCompassNorth;
wait(500);
FishDTM:= DTMFromString('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOASIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
if findDTM(FishDTM, x, y, 550,1, 727, 61) then
begin
result:= 2;
writeln('Fishing at bottom location');
end else
begin
result:= 1;
writeln('Fishing at top location');
end;
FreeDTM(FishDTM);
end;
Procedure changeSpot;
var
x, y, FishDTM: integer;
begin
FishDTM:= DTMFromString('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOASIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
if (Checkspot = 1) then
begin
if (FindDTM(FishDTM, x, y, 530, 100, 695, 151)) then
begin
mouse(x, y, 1, 1, 1);
writeln('moving to bottom location');
wait(3000 + random(100));
end;
end;
if (Checkspot = 2) then
begin
if (FindDTM(FishDTM, x, y, 550,1, 727, 61)) then
begin
mouse(x, y, 1, 1, 1);
writeln('moving to top location');
wait(3000 + random(100));
end;
end;
FreeDTM(FishDTM);
end;
procedure Fish;
var
x, y: integer;
begin
if (P07_FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
begin
mouse(x,y,1,1,1)
wait(1000 + random(50));
end else
begin
changeSpot;
end;
end;
Procedure Bank;
var
x, y,salmon, trout: integer;
begin
salmon := DTMFromString('mlwAAAHicY2dgYOBhZmDgA2IRZghbAIjZoPgJIwPDcyB+DMSvGCH8d1B2baAHw87yLIaNhWkMB6pzGRZmxDAcXbmMYeesKQz4ACMeDAUASDwSFQ==');
trout := DTMFromString('m1gAAAHic42JgYOBlZmDggWJOIGYGYgEgFgZicSDmB2J2INZiYmDQBWJDIDaFYn0g1gZiNSA2guLs5GSGCW1tDMf27mU4vGsnw/VLFxmO7NnNsGzWTIYZvT0Md65fZzhz9AgDsYCRSIwAAGGDFv8=');
if (not P07_BankScreen) then
begin
writeln('bank not open');
if P07_FindObjCustom(x, y, ['ank', 'ooth'], [609382, 607580, 3239562, 2843002, 2974589, 608609], 5) then
begin
case random(4) of
0..2:
begin
mouse(x, y, 1, 1, 1);
wait(randomrange(2000, 2500));
end;
3:
begin
MMouse(x, y, 1, 1);
wait(randomrange(75, 150));
ClickMouse2(mouse_right);
wait(randomrange(75,150));
P07_ChooseOptionMulti(['k B', 'ooth', 'ank']);
wait(randomrange(2000, 2500));
end;
end;
end;
end;
if (P07_InvCount > 3) then
begin
if (findDTM(salmon, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
begin
MMouse(x, y, 1, 1);
wait(randomrange(75, 150));
ClickMouse2(Mouse_Right);
wait(randomrange(75, 150));
P07_ChooseOptionMulti(['ank', 'll', 'all']);
wait(randomrange(75,150));
end;
if (findDTM(trout, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
begin
MMouse(x, y, 1, 1);
wait(randomrange(75, 150));
ClickMouse2(Mouse_Right);
wait(randomrange(75, 150));
P07_ChooseOptionMulti(['ank', 'll', 'all']);
wait(randomrange(75,150));
end;
end;
FreeDTM(salmon);
FreeDTM(trout);
end;
Procedure Drop;
var
i: integer;
begin
repeat
for i:= 3 to 28 do
begin
if (P07_ItemExists(i)) then
begin
P07_DropInventorySlot(i);
Wait(randomRange(50, 75));
end;
end;
if (P07_InvCount > 3) then break;
until(P07_InvCount < 3);
end;
begin
SetupSRL;
SetupP07Include;
activateclient;
CHANGE_COUNT:= 0;
wait(500);
repeat
Fish;
repeat
if (not isfishing1) then
begin
if (Not P07_ItemExists(2)) then
FindRod;
ClickGenie;
ClickMan;
RunSwarm;
ClickJekyll;
ClickFruit;
ClickDwarf;
ClickHand;
ClickRick;
Fish;
end;
until(P07_InvFull or P07_ItemExists(28));
Drop;
until(false);
end.
