P2p = World 2 - 151! Missing 5 worlds out.
ChangeWorld only works on 132 worlds, it dosnt change in the last colum becuase im lazy
SCAR Code:
program New;
{.include srl/srl.scar}
{.include srl/srl/misc/worldswitcher.scar}
{*******************************************************************************
Function ChangeWorld(P2p: boolean): Boolean;
By: N1ke!
Description: Changes to a random world in f2p/p2p.
If p2p = false then it changes to random f2p world!.
*******************************************************************************}
Function ChangeWorld(P2p: boolean): Boolean;
var
x, y, i : Integer;
Begin
Result := False;
i := i + 1;
If(LoggedIn)Then LogOut;
If(Not(WorldScreen))Then OpenWorldScreen;
Wait(RandomRange(300, 1000));
If(Not(WorldScreen))Then Exit;;
Case P2p of
True : If Not SimilarColors(GetColor(630, 12), 2851375, 10)Then MouseBox(625, 6, 634, 15, 1);
False : If Not SimilarColors(GetColor(644, 14), 2851375, 10)Then MouseBox(640, 7, 649, 15, 1);
end;
x := 97 + RandomRange(0, 2)*93;
y := 42 + RandomRange(0, 21)*21;
Mouse(x, y, 4, 4, True);
Wait(RandomRange(700, 2000));
If i > 10 then
begin
i := 0;
Writeln('Failed changing world!');
Exit;
end;
If(WorldScreen)Then ChangeWorld(P2p);
Result := True;
Writeln('Changed world!');
end;
begin
SetupSRL;
ChangeWorld(False);
end.