program SSPowerFisher;
{$i srl-6/srl.simba}
var
x, y, LobsterDTM, count, fishhour, xpgain, xphour: integer;
pbox: tbox;
const
USERNAME = '';
PASSWORD = '';
function IsLoggedIn: boolean;
begin
if findcolortolerance(x, y, 1448008, 494, 451, 611, 522, 15) then
begin
result := true
end
else
begin
writeln('we are logged out!')
writeln('logging back in...')
result := false
end;
end;
procedure LoggingIn;
begin
Wait(200);
movemouse(659, 313);
writeln('entering username');
Wait(200);
clickmouse(x, y, mouse_left);
count := 0;
repeat
Inc(count);
PressKey(VK_Back);
until count > 25;
Wait(250);
sendkeys(USERNAME, 0, 0);
Wait(1000);
writeln('entering password');
movemouse(665, 365);
Wait(200);
clickmouse(x, y, Mouse_left);
Wait(200);
count := 0;
repeat
PressKey(VK_Back);
Inc(count);
until count > 25
sendkeys(PASSWORD, 50, 25);
writeln('logging in');
Wait(1000);
movemouse(576, 396);
Wait(1000);
ClickMouse(x, y, mouse_left);
Wait(8000);
writeln('logged in! (?)')
end;
procedure setmeup;
begin
writeln('setting up....');
writeln('putting angle right');
sleep(3000)
count := 0
repeat
inc(count);
presskey(40);
until count > 25;
sleep(1000);
writeln('completed');
writeln('open inventory');
movemouse(747, 172);
sleep(200);
clickmouse(x, y, mouse_left);
sleep(1000);
writeln('completed');
writeln('set up completed!');
end;
procedure DropFish;
begin
LobsterDTM := DTMFromString('mlwAAAHicY2dgYBBkgAAeIBYGYjEglgRidi DmA2J+IBYCYhkgFoCq5QTiGG2QLCNWzM+AG2DXAcFQAACfVgGD ');
if finddtm(LobsterDTM, x, y, 565, 123, 935, 565) then
begin
mouse(x, y, 0, 0, mouse_right)
sleep(100)
mouse(x, y+40, 0, 0, mouse_left)
freedtm(LobsterDTM);
sleep(350)
inc(count)
exit;
end
else
begin
freedtm(LobsterDTM);
sleep(150)
exit;
end
end;
procedure Gofishing;
Var
TPAA: T2DPointArray; // The Variables of the Functions
TPA: TPointArray;
CTS, I: Integer;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
setcolorspeed2modifiers(0.13, 1.34);
FindColorsSpiralTolerance(344, 230, TPA, 9732725, 309, 212, 364, 238, 5); // Enter the Color and Tolerance Here at the Right place.
ColorToleranceSpeed(CTS);
TPAA := TPAToATPAEx(TPA, 3, 1); //Put the Width and Heigh here
SortATPASize(TPAA, True);
For I := 0 To High(TPAA) Do
If GetArraylength(TPAA[i]) > 2 Then // Set How Much Points you need for your function to take Action
Begin
MiddleTPAEx(TPAA[i], x, y);
MMouse(X, Y, 3, 3);
clickmouse(x, y, mouse_left)
sleep(200)
dropfish;
exit;
end
else
begin
exit;
end;
end;
procedure IsFishing;
begin
pbox := IntToBox(309, 104, 383, 211)
if pixelshift(pbox, 500) < 600 then
begin
GoFishing;
end
else
begin
DropFish;
end
end;
procedure proggy;
begin
cleardebug;
fishhour := Round((count)/(GetTimeRunning/3600000.0));
xpgain := round((count)* 360);
xphour := round((xpgain)/(gettimerunning/3600000.0));
writeln('Time Running: '+ MsToTime(GetTimeRunning,3))
writeln('fishes catched: ' + inttostr(count))
writeln('fishes per hour: ' + inttostr(fishhour))
writeln('xp gained: ' + inttostr(xpgain))
writeln('xp per hour: ' + inttostr(xphour))
exit;
end;
begin
cleardebug;
setupsrl();
writeln('Hoodz SSPowerFisher V1');
repeat
if (not isloggedin) then
begin
loggingin;
SetMeUp;
end;
if (isloggedin) then
begin
IsFishing;
proggy;
end;
until(false)
end.