SRL Archive - Research & Development Lounge

ChangeWorld!

Changeworld does

• Logs out if logged in
• Changes world :o
• If the world is full it tries another one
• Works for both f2p & p2p switches

P2p = World 2 - 151! Missing 5 worlds out.
F2p = World 1 - 127! Missing 13 worlds out.

ChangeWorld only works on 132 worlds, it dosnt change in the last colum becuase im lazy :).

If using this in your script you must include Worldswitcher.scar!!

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.