SRL Archive - Help

Does IE/your RS client seem to lose focus (not being able to type on rs on the login window)? Well, Sumilion told me about a way to fix it, you need to go to Login.scar, Line 105, should be procedure LoginPlayer;, replace it with this one:

{*******************************************************************************
procedure LoginPlayer;
By: WT-Fakawi
Description: Logs in the Player[CurrentPlayer]. Detects most Client Login Errors
*******************************************************************************}

procedure LoginPlayer;
var
  ClickHereToPlay, x, y, tx, ty,
  CHx, CHy, c, tmpMask, LastPlayer, Mark: Integer;
begin

  ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
    'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
    '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
    '067D37AC3D95AADF2F50962C79');
  if (not (LoggedIn)) then
  begin
    // Beginning player not active...
    if (not (Players[CurrentPlayer].Active)) then
    begin
      WriteLn('Current player is not Active...');
      LastPlayer := CurrentPlayer;
      repeat
        CurrentPlayer := Random(HowManyPlayers);
        Wait(100);
      until (Players[CurrentPlayer].Active);
    end;
    x := 150;
    y := 173;
    FindWindowBySize(766, 504);
    Wait(1000);
    ClickOption('Cancel', 1);
    ClickOption('Exist', 1);
    tmpMask := CreateBitmapMaskFromText('Username', upchars);
    if (FindBitmapMaskTolerance(tmpMask, x, y, 0, 0, 520, 340, 10, 50)) then
    begin
      Wait(25 + Random(50));
      Mouse(x + 24, y + 3, 3, 0, True);
      Wait(25 + Random(50));
      WriteLn(Players[CurrentPlayer].Name);
      TypeSend(Players[CurrentPlayer].Name);
      Wait(100 + Random(100));
      Mouse(327, 272, 0, 0, True);
      TypeSend(Players[CurrentPlayer].Pass);
      Wait(100 + Random(100));
    end;
    ClickOption('Login', 1);
    // Waiting for Connecting to Server...
    MarkTime(Mark);
    while FindText(tx, ty, '...', upchars, 240, 180, 530, 240) do
    begin
      Wait(100);
      if TimeFromMark(Mark) > 20000 then Break;
    end;
    MarkTime(Mark);
    repeat
      Wait(1000);
      // Enter your username and password. If all failed...
      if FindText(tx, ty, 'nter you', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Enter your username and Password');
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Your account is already logged in.
      if FindText(tx, ty, 'lready', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Your account is already logged in');
        LastPlayer := CurrentPlayer;
        repeat
          CurrentPlayer := Random(HowManyPlayers);
          Wait(100);
        until (Players[CurrentPlayer].Active) and (CurrentPlayer <> LastPlayer);
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Invalid Username. 3 attempts. If fails, you haven't set your username/pass correct
      if FindText(tx, ty, 'nvalid', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Invalid Username.');
        SRL_Attempts := SRL_Attempts + 1;
        if SRL_Attempts > 3 then
        begin
          Players[CurrentPlayer].loc := 'L/P ERROR';
          NextPlayer(False);
        end;
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Login attempts exceeded. Please wait 1 minute and try again.
      if FindText(tx, ty, 'excee', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Login attempts exceeded. Please wait 1 minute and try again.');
        Wait(60000);
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // World is full.
      if FindText(tx, ty, 'full', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('World is full.');
        Wait(3000);
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Unable to connect. Login Server offline.
      if FindText(tx, ty, 'offl', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Unable to connect Login Server offline.');
        Wait((6000) + Random(6000));
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Error Connecting.
      if FindText(tx, ty, 'rror', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Error Connecting.');
        Wait(10000);
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Error loading your profile. Will attempt to re-login 5 more times.)
      if FindText(tx, ty, 'ontact', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Error loading your profile.');
        Wait(2000);
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Login server rejected session.
      if FindText(tx, ty, 'reject', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Login server rejected session.');
        Wait(1000);
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Runescape has been updated.
      if FindText(tx, ty, 'reload', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('ERROR. RuneScape has been updated. Script Terminated.');
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        TerminateScript;
      end else
      // The Server is being updated. Please wait 1 minute.
      if FindText(tx, ty, 'updat', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('The Server is being updated.');
        Wait(60000);
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end else
      // Your account has been disabled.
      if FindText(tx, ty, 'disabled', upchars, 420, 180, 500, 220) then
      begin
        WriteLn('Your account has been disabled');
        Players[CurrentPlayer].loc := 'DISABLED';
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        NextPlayer(False);
        Exit;
      end else
      // Waiting for Profile to be Transferred
      if FindText(tx, ty, 'trans', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Waiting for your Profile to be Transferred');
        Wait(2500);
      end else
      // You need a Members account...
      if FindText(tx, ty, 'member', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('You need a Members account...');
        Players[CurrentPlayer].loc := 'Non-Member';
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        NextPlayer(False);
      end else
      // Welcome to RuneScape. If all failed...
      if FindText(tx, ty, 'elcom', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('Welcome.');
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        LoginPlayer;
        Exit;
      end;

      if TimeFromMark(Mark) > 180000 then
      begin
        WriteLn('three minutes have passed');
        WriteFileString(TheFile, Chr(13) + 'THREE MINUTES HAVE PASSED!!!' +
          Chr(13));
      { if (FindClient) then
          FindWindowBySize(766, 504);  }
        ActivateClient;
        ClickOption('Cancel', 1);
        ClickOption('Exist', 1);
      end;
    until (FindBitmapToleranceIn(ClickHereToPlay, CHx, CHy, 250, 270, 530, 390,
      5)) or FindColor(CHx, CHy, 723587, 555, 10, 575, 30);
    Wait(1000 + Random(500));
    if (FindBitmapToleranceIn(ClickHereToPlay, CHx, CHy, 250, 270, 530, 390, 5)) then
      Mouse(CHx, CHy, 50, 20, True) else Writeln('Found Compass'); // Clicks randomly on the button
    repeat
      Wait(1000);
      c := c + 1;
    until (LoggedIn) or (c >= 600);
  end;
  FreeBitmap(tmpMask);
  FreeBitmap(ClickHereToPlay);
  if LoggedIn then
  begin
    PlayerStartTime := (GetSystemTime div 1000); // PlayerStartTime
    if NickNameBMP <> 0 then
      FreeBitmap(NickNameBMP);
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick,
      upchars); // Screenname

   { if(usenewrespond)then
      AutoText[3].Trigger[0]:=Players[CurrentPlayer].Nick; }

    WriteFileString(TheFile, Chr(13) + UpperCase(Players[CurrentPlayer].Name) +
      Chr(13)); //* Save NAME to file
  end;
end;

If you can not find out where to put this, then just live with your SRL you got, all that really changed was ActivateClient; to FindWindowBySize(766, 504); .

Sticky might be nice, I have seen a lot of people with this error :D

-Harry

lol thanks, i had that problem too until today when i downloaded FireFox :)

That is why firefox is bomb ;)

Thank you, Been looking for a way to fix this.

THANKS A LOT MUCH APPRECIATED!!

thanks alot, well deseved sticky.

Thx for posting fix :)

Cant you just use SCSS?

[Offtopic] mat_de_b… you post a lot lol. Your longevity is small, like mine. But you have a LOT of posts lol. 6.52 per day. And you've only been here for 23 days.. Unless you were here before and just made a new account cause you were banned or something. [/Offtopic]

Yes! Thank you so much this… I downloaded firefox to fix it, but I hate it.

Thanks :)

I hate FireFox too, I use it for browsing, but for macroing…. it is a no-no :p I say this mostly because of those 'Firefox updates' they have sometimes, they will pop up and cover RS window :$

[offtopic]I HATE THOSE FREAKING UPDATE THINGS[/offtopic]
sorry for caps

yea thats great i think it should be stickied until there is an appropriate fix out for it. I auto on vmware SCSS and it works fine.

@jhildy: Here is fix to the updated 'problem':

      // Runescape has been updated.
      if FindText(tx, ty, 'reload', upchars, 240, 180, 530, 240) then
      begin
        WriteLn('ERROR. RuneScape has been updated. Script Terminated.');
        FreeBitmap(tmpMask);
        FreeBitmap(ClickHereToPlay);
        //TerminateScript;
        repeat
         Wait(300);
         until(IsKeyDown('g'));
       FindRS;
       LoginPlayer;
       Exit;
      end else

Just pop into lines 261-274 :D then when JagSex updates the game, you will just have to: 1. re open rapescune, hold down the key g (or whatever you specify in until(IsKeyDown('g')); ) for a few seconds, then your script will run again :D

Awesome. I love the power of the Search button… Thank you.


Jus a question - do you guys think IE or FireFox is better for auto-ing?? Or another client?

From: nose_smasher

Just a question - do you guys think IE or FireFox is better for auto-ing?? Or another client?

I use SCSS cause its doesn't use as much memory. Also, I think WT-Fawaki likes SCSS cause he suggests to use it when using some of his scripts

I can never get SCSS to work but its probably only because of my piece of junk computer.

Sweet ty i needed this but i use SCSS cuz that works fine lol

thanks man! this is great know i know how to get it to work :D

Ty! no more errors in my scripts

Thanks a lot, my screen would always get messed up.

From: hy71194
I hate FireFox too, I use it for browsing, but for macroing…. it is a no-no :p I say this mostly because of those 'Firefox updates' they have sometimes, they will pop up and cover RS window :$

same here, 8 out of 10 times you wake up with the updating pop-up screen… anways thnx for posting the fix ive changed the login.scar file so hopefully should work :D :garfield:

eh, I have it set so it only tells me about updates when I start up firefox. Anyway, this does work, tried it on the RS client ;)

A Small Problem has now been fixed =) Kudos

From: inkd
same here, 8 out of 10 times you wake up with the updating pop-up screen… anways thnx for posting the fix ive changed the login.scar file so hopefully should work :D :garfield:

Ae! Thats just pathetic k?
Go tools –> options –> Advanced –> Update –> Untick automatically check for updates…
Also I just checked my update history last update was 31st July…

omg ty! i hate this problem it happens all the time when i use ie

W00t Hy (harry) is teh 1337sauce. Tysm for your help.

I've used firefox whole the time and no problems at all :)

It doesn't work for me? I get errors about Mouse, FindText, etc…

I'm running SRL 4 and SCAR 3.11

Wha..? You just put this into your Login.scar and it should work fine.. it does for me :S

Woops, wrong thread. Ignore that message

I was gonna say.. an SRL member getting errors like that..!

THANK YOU SO MUCH! this has been bothering me for ages

nice job finding the fix. really helped me

THANKS i have been having this prob for so long

From: Bourdou!
eh, I have it set so it only tells me about updates when I start up firefox. Anyway, this does work, tried it on the RS client ;)

same thing here, firefox is the sex, plus i have teh sexy mods abouts it….
its so much safer then IE, keeps so much crap off your cookies etc.:f:

From: goider
same thing here, firefox is the sex, plus i have teh sexy mods abouts it….
its so much safer then IE, keeps so much crap off your cookies etc.:f:

:O An SRL member bumping old topics? What has this world come to?! :p (Well, at least it was a topic that I made.. :sasmokin: )
09-24-2007, 09:57 PM