SRL Archive - RS3 Outdated / Broken Scripts

Okay here it goes, when the scarscape starts loading to next player and loggs you out, how about it also changes worlds too with fewest players..? LIke the SCSS option on (free least players)? I mean when running a script with 8 PLAYERS, and you log out and come to the same world…why not different world for different player? I say this because it just looks odd because sometimes there are dickhead players who you sometimes piss off in the public chat who report for absolutely stupid reasons (ex Me:Stop being annoying, Dickhead: What are you reporting me? Dont say I am annoying im reporting you) stupid dickhead people they report for things like this lol. I'm just saying i'd love to see a world switcher if possible that sends you to fewest worlds when loading a nextplayer. Do you understand what i'm saying? If that isn't around ,I might dabble into scripting it myself, it seems fun. Hell i'm going to give it a try if its not available already.

For example Drunkenoldma wrote this right, is it still viable? I think i'm going to test this out and tweak it a little bit myself. I'll see you all in the TUTORIALS lol.

program WorldHopper;
{.Include SRL/SRL.SCAR}

function LoadWorld(World: integer; Memb: Boolean): Boolean;
var tmpMask, tmpMask1, tmpMask2, tx, ty, I, WorldNumb, Tries, TempColor: integer;
begin
 WorldNumb := World;
 repeat
  tmpMask := CreateBitmapMaskFromText('World', upchars);                //The World change button
  tmpMask1:= CreateBitmapMaskFromText(inttostr(WorldNumb), upChars);    //World Number..
  tmpMask2:= BitmapFromString(21, 8, 'z78DA7373C30E0C40C010998D4' +     //Is the world full?
       'C628AE35249AA39E4E91ABAB66386F968C80F36DB498D234A6CC7' +
       '65237E57E1528F090026CDD8C8');

  if (FindBitmapMaskTolerance(tmpMask, x, y, 0, 0, 170, 500, 10, 50)) then //Go to the world screen..
  begin
    Wait(25 + Random(50));
    Mouse(x + Random(10), y + 3, 3, 0, True);
    repeat
     Wait(500);
     I := I +1;
    until((GetColor(715, 50) = 0) or (I > 200));
    if I > 200 then
    begin
      writeLn('Could not get into the world screen, can not switch worlds..');
      exit;
    end
    I := 0;
  end
  
  Wait(500);
  if Memb then TempColor := 3562099 else TempColor := 10132122;
  if World = 0 then if not FindColorTolerance(x, y, 2851375, 403, 4, 419, 17, 5) then Mouse(411, 12, 2, 2, True) else
  if World > 0 then if not FindColorTolerance(x, y, 2851375, 294, 4, 306, 17, 5) then Mouse(306, 12, 2, 2, True);
  
  if World = 0 then if FindColorTolerance(tx, ty, TempColor, 50, 31, 148, 494, 5) then
  begin
    Mouse(tx + 20, ty, 2, 2, True)
    Result := true;
  end else
  if FindColorTolerance(tx, ty, TempColor, 150, 31, 242, 494, 5) then
  begin
    Mouse(tx + 20, ty, 2, 2, True)
    Result := true;
  end else
  if FindColorTolerance(tx, ty, TempColor, 244, 31, 334, 494, 5) then
  begin
    Mouse(tx + 20, ty, 2, 2, True)
    Result := true;
  end else
  begin
    WriteLn('Could not find a quiet World');
    WorldNumb := 71;
    tmpMask1:= CreateBitmapMaskFromText(inttostr(WorldNumb), upChars);
  end

  if Result then Break;
  if (FindBitmapMaskTolerance(tmpMask1, tx, ty, 55, 30, 720, 385, 20, 70)) then
  begin
    if not(FindBitmapToleranceIn(tmpMask2, x, y, tx, ty -6, tx + 75, ty + 16, 5)) then
    begin
      WriteLn('World '+ IntToStr(WorldNumb) +' is not full, and is gonna be loaded..');
      Wait(25 + Random(50));
      if not Memb then if FindColorTolerance(x, y, 3100779, tx -4, ty -4, tx +4, ty +4, 30) then
      begin
        WriteLn('World '+ IntToStr(WorldNumb)+' is a Member Server..');
        Result := False;
        WorldNumb := WorldNumb +1;
      end else
      begin
        Mouse(tx + Random(15), ty + 3, 3, 0, True);
        Result := true;
      end
    end else
    begin
      WriteLn('World '+IntToStr(WorldNumb)+' is full, checking next..');
      WorldNumb := WorldNumb +1;
      Tries := Tries +1
    end
  end;
 until((Result) or (Tries > 3))
 FreeBitmap(tmpMask);
 FreeBitmap(tmpMask1);
 FreeBitmap(tmpMask2);
end;

begin
  Setupsrl;
  activateClient;
  LoadWorld(0, False);
end.

The above is credit to Sumilion for the example I seen on this last thread http://www.villavu.com/forum/showthread.php?t=7310?t=8407&highlight=world+switch

um, drunkenma never wrote a scar script….
:p
she wrote the php ness that makes it look colorfull

have you seen worldwitcher.scar?

and have you seen nestlie95s script, (the one that he wont the scripting competition wiht)

check them out, they can do this,

Actually its a great way to beat off randoms too couse when I made my private alcher which walks while alching and switches worlds it worked like 20 hours a day for about week ;D , no bann , no offences , NO RANDOM EVENT !