SRL Archive - OSR Help

Hi, so i made a new virtual machine so i can bot on 2 accounts. The thing is that the script doesn´t complile. It does on my normal computer but not on the virtual machine which has Windows Xp home edition. I followed the new install instructions, updates the extensions and still nothing. Plz help me. I even changed the {define…} line to the new one which has something like {define $… -6}. please help me

Why not just use SMART? That way you can bot on two accounts using the same computer without having to worry about a virtual machine. :)

If you still want to use a virtual machine instead of SMART, maybe post the script along with the error that you're getting.

Its because its not for runescape :l its for soulsplit RSPS

From: BMWxi
Why not just use SMART? That way you can bot on two accounts using the same computer without having to worry about a virtual machine. :)

If you still want to use a virtual machine instead of SMART, maybe post the script along with the error that you're getting.

This is the code:

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('mlwAAAHicY2dgYBBkgAAeIBYGYjEglgRidiDmA2J+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) > 2 Then // Set How Much Points you need for your function to take Action
Begin
MiddleTPAEx(TPAA, 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.

and this is the error:

Exception in Script: Duplicate declaration "IsLoggedIn" at line 14, column 29

The duplicate declaration error is because you have a function called isLoggedIn, but there's already a function called isLoggedIn in SRL. Rename yours to ss_IsLoggedIn or something :)

From: BMWxi
The duplicate declaration error is because you have a function called isLoggedIn, but there's already a function called isLoggedIn in SRL. Rename yours to ss_IsLoggedIn or something :)

well this (shit) script i wrote a long time ago was based on srl5, srl5 doesnt have a function called IsLoggedIn its: LoggedIn.
not sure if this script still works

From: hoodz
well this (shit) script i wrote a long time ago was based on srl5, srl5 doesnt have a function called IsLoggedIn its: LoggedIn.
not sure if this script still works

I was just looking at what OP posted, it uses isLoggedIn:

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;

Also it appears OP is using SRL6 with it so I guess he made some modifications :)