SCAR Code:
program Antilogout;
{.include SRL/SRL.scar}
var
Fish,Me: Integer;
x,y,xbit,ybit,xchange,ychange,xorig,yorig,counter,xfish,yfish,xbit,ybit: Integer;
Found: Boolean;
procedure Antilogout;
begin
repeat
GetMousePos(x,y);
Wait(random(40000)); // Wait Up To 40 Second Before Testing Mouse Location
GetMousePos(xchange,ychange);
if (x=xchange) then
begin
GetMousePos(x,y);
xorig:=x;
yorig:=y;
Mmouse(x+random(50),y+random(50),0,0);
Wait(random(2000));
GetMousePos(x,y);
Mmouse(x-random(50),y-random(50),0,0);
Wait(random(2000));
Mmouse(xorig,yorig,0,0);
end;
counter:= counter + 1;
writeln('Script Successfully Executed '+IntToStr(counter)+' Times');
until(false)
end;
procedure LoadBmps;
begin
Fish := BitmapFromString(138, 30, 'beNrtWUkOwyAMzO/6gV77/2f' +
'QKlWR5S0DBcKGOIDLknqCh3iej3CW1/PxraybUUM4WE2a+M/W89Xw' +
'K7R7HMflFN/JrODogINv9Vi7tyiQkoSONSbbyWOh0+Y5KTqfHSuhg' +
'7xv1r/uLeK1RyfiwjzPTpZjVHmH2mmIU4nJYas41xmDMJ01PWnNDE' +
'qtgU5sx1/ZFJVTGO/I998ipviXz+34eOYZdczvUXW/+fvKuYi99gl' +
'C0HHaSZFNPTuq9+h4tY2MAc81sg64fj10aMhiXXpYiqATg5X6ThZs' +
'y1p239vRkRfjIujUQwTxXu31a6BjdZ2LQQY6jJpl/M/zklzWvxJYN' +
'w3r9qLaGwDE2E3tShJ0aFG1U6O/Zl6bRS3nwdQbi/XtfGnfCY2q3y' +
'OjfAWPjshGp3OAJEdsdDqpqXlXnyj7yVGXkg9aHpAV5Ak8CdAV4y8' +
'iTwyKziLyxAToTCxPBFEy5ANLU0iyW3mJleUJKRMg8oGaFHWEBtxO' +
'E+aXvDO9POFENvVMMWhAoSGp7Ui0q8kTqb6SfiuOjsOAq8kT//utQ' +
'3SmkSeyI5vF5jLogfYi6MwnT1zm5BkLszGWSAdm4BEFYcsTpfS7LU' +
'909RU8PTpDyxMrnJ2h5YkVNNwb5Ik3fSdMSw==');
Me := BitmapFromString(21, 24, 'beNqNlE1LAlEUhmdTUbSzhQQSgp' +
'aGggtXrdzYpj8RtbDaCLVItC9SSq1AG+3TNMtKKklwkWQtgn5YLxx' +
'4u8yMk5cHOd65zz3348xomrRQMEA8bjeZcrnIpNOp9Wl0fV6vWYcI' +
'8Mhex4CA3083ODpE0N9PV1NjWHhsmEw4HCr2qSWYGx+R1QqD6EjKN' +
'XCzg+iiiI5foB6XYQYei/QbUv+rA8M9cs3imu/LMI/6yHzj6LTRDc' +
'j2mVcORy02ywUYdENTq84yKSe31A11i/H7iYSqy2rBgHommWRG6eT' +
'LpYqcWdVBdmcbIMDMAlz04JduOBRS4Ug9l83t7QKWx9bGOpCYh49Y' +
'RAQYzAst5/PCZ2E1HosJ8gLyHVRrXuZBUuH8+Ojh8gI6grXlJSAbV' +
'HWmBjyQSrEA4DYrlfpZGWzG45K9eHigHr6I+PtcvSEQAYKXWo3gEk' +
'E0EgGzvhnzRwO3U9VPydv9XbvRAMh+kk7jwBfmo9Mej+WNA1YU1gw' +
'6zSehVb+V7SBvv4+eFLzEsoX31it5vL7KpFIri4tAs221Ugl8tNtf' +
'nc5Pr/fd7QJsoarrf4N+AbYPC7Q=');
end;
procedure FreeBmps;
begin
FreeBitmap(Fish);
FreeBitmap(Me);
end;
procedure FindFish;
begin
repeat
if (FindColor(xfish,yfish,15452590,0,0,513,339)) then
begin
Wait(1000);
Mmouse(xfish,yfish,0,0);
Wait(1000+random(500));
Mouse(xfish,yfish,0,0,false);
if (FindBitmapToleranceIn(Fish,xbit,ybit,0,0,513,339,100)) then
begin
WriteLn('Found Fishing Spot!');
Mmouse(xbit,ybit,0,0);
Mouse(xbit+10,ybit+20,0,0,true);
Found:=true;
end else
Found:=false;
end;
until(Found);
end;
begin
setupsrl;
LoadBmps;
FindFish;
FreeBmps;
end.