SRL Archive - SRL Archives

Loginplayer;

{*******************************************************************************
procedure LoginPlayer;
By: SRL Developers Fixed by  J_Pizzle
Description: Logs in the Player[CurrentPlayer]. Detects most Client Login Errors
*******************************************************************************}
procedure LoginPlayer;
var
  Mark, Attempts: Integer;
  Actions: TVariantArray;
  RetryLogin: Boolean;
label
  ProcStart;
begin
  ActivateClient;
  Wait(100);
  TypeByte(vk_Escape);

  if (GetColor(475, 344) = 3721541) then //At Welcome Screen
  begin
    Wait(500 + Random(1000));
    MouseBox(417, 196, 585, 215, 1);
    MarkTime(Mark);
    while (TimeFromMark(Mark) < 30000) and (not(LoggedIn)) do
      Wait(1000 + Random(1000));
  end;
  if (not(RSReady)) then
  begin
    MarkTime(Mark);
    while (not(RSReady)) do
    begin
      Wait(100);
      if (TimeFromMark(Mark) > 180000) then
      begin
        WriteLn('It has been 3 minutes and Runescape is not yet ready... Terminating.');
        TerminateScript;
      end;
    end;
    WriteLn('Welcome to Runescape.');
  end;

  LoginScreenMusic(True);
  if (not(GraphicsSet)) then
  begin
    SetAutoingDefaults;
    GraphicsSet := True;
  end;
  ProcStart:

  if (not(LoggedIn)) then
  begin
    if (not(Players[CurrentPlayer].Active)) then
    begin
      WriteLn('Player is not Active...');
      NextPlayer(False);
      Exit;
    end;
    Wait(900 + random(60));

    //Click 'Log In' on main menu
    while (GetColor(343, 175) <> 7750) do
    begin
      MouseBox(297, 178, 465, 198, 1);
      Wait(100 + Random(100));
    end;

    //Type Username
    Mouse(315, 272, 10, 5, True);
    while (CountColor(7750, 311, 269, 452, 284) > 0) do
    begin
      TypeByte(VK_BACK);
      Wait(50 + Random(50));
    end;
    Wait(100 + Random(200));
    WriteLn(Capitalize(Players[CurrentPlayer].Name));
    TypeSend(Players[CurrentPlayer].Name);
    Wait(100+random(50));

    //Type Password
    Mouse(315, 334, 10, 5, True);
    while (CountColor(7750, 311, 337, 452, 352) > 0) do
    begin
      TypeByte(VK_BACK);
      Wait(50 + Random(50));
    end;
    Wait(100 + Random(200));
    TypeSend(Players[CurrentPlayer].Pass);
    Wait(500 + Random(300));

    if (GetColor(315, 239) = 197552) then //Check for pvp warning and click
      if AllowPVP then
        MouseBox(434, 416, 481, 425, 1)
      else
      begin
        SRL_Warn('LoginPlayer', 'Attempted to log into PVP World when AllowPVP was false. Terminating.', Warn_AllVersions);
        TerminateScript;
      end;


    MarkTime(Mark);
    repeat
      SetLength(Actions, 0);

      if (TimeFromMark(Mark) > 60000) then
        Actions := ['One minute has passed...', 0, 2, 'NextPlayer', 'Login Failed']
      else
           case (CountColor(12509695, 292, 207, 472, 245)) of   //Number of text colour points
        //   Actions := ['WriteLn Text', TimeToWait, NumberOfRetries, 'FinalAction', 'PlayerStatus'];
        760: Actions := ['Too many incorrect logins.', 5 * 60000, 2, 'NextPlayer', ''];
        536: Actions := ['Login limit exceeded. Please wait 1 minute and try again.', 60000, 2, 'NextPlayer', ''];
        711: If (CountColor(16711680, 341, 219, 391, 233) = 128) then
               Actions := ['Your account has been disabled', 0, 0, 'NextPlayer', 'Acc Disabled'];
        596: Actions := ['Invalid Username / Password', 0, 2, 'NextPlayer', 'Wrong User/Pass'];
        787: Actions := ['Not a Members Account', 0, 0, 'NextPlayer', 'Non-member'];
        408: Actions := ['World is full.', 5000, 20, 'RandomNextPlayer', ''];
        669: Actions := ['Your account is already logged in', 5000, 0, 'RandomNextPlayer', ''];
        555: Actions := ['The Server is being updated.', 60000, 4, 'Terminate', 'Server Updating'];
        218: Actions := ['Error Connecting.', 20000, 9, 'Terminate', 'Error Connecting'];
        335: Actions := ['Unable to connect Login Server offline.',(20000) + Random(6000), 4, 'Terminate', 'Login Server Offline'];
        512: Actions := ['RuneScape has been updated. Script Terminated.', 0, 0, 'Terminate', 'RS Updated'];
        489: Actions := ['Connection timed out.', 0, 4, 'Terminate', 'Connection Timed Out'];
        737: Actions := ['You are standing in a members-only area.', 0, 0, 'NextPlayer', 'In Mems-Only Area'];
      end;

      if (Length(Actions) > 0) then
      begin
        WriteLn(Actions[0]);
        Wait(Actions[1] + Random(100));
        if (Actions[2] <> 0) then
          if (Attempts < Actions[2]) or (Actions[2] = -1) then
          begin
            RetryLogin := True;
            Break;
          end;
        if (Actions[4] <> '') then
          Players[CurrentPlayer].Loc := Actions[4];
        case Actions[3] of
          'NextPlayer': NextPlayer(False);
          'RandomNextPlayer': RandomNextPlayer(True);
          'Terminate': TerminateScript;
        end;
        Exit;
      end;
      Wait(100);
    until (GetColor(207, 409) = 238301) or (LoggedIn);

    if (RetryLogin) then
    begin
      RetryLogin := False;
      Inc(Attempts);
      goto ProcStart;
    end;

    if (GetColor(207, 409) = 238301) then
    begin
      Wait(500 + Random(1000));
      MouseBox(249, 419, 521, 445, 1);
    end;
    MarkTime(Mark);
    while (TimeFromMark(Mark) < 30000) and (not(LoggedIn)) do
      Wait(1000 + Random(1000));
  end;

  if (LoggedIn) then
  begin
    PlayerStartTime := (GetSystemTime div 1000); // PlayerStartTime
    if Length(Players[CurrentPlayer].NickTPA) < 2 then
    begin;
      Writeln('Creating the NickTPA.');
      if Players[CurrentPlayer].Nick <> '' then
        Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Nick, UpChars)
      else
      if (Players[CurrentPlayer].Name <> '') then
        Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Name, UpChars);
    end;
    AddToSRLLog('Current player: ' + Capitalize(Players[CurrentPlayer].Name));
    ClickText('here to con', UpChars, MCX1, MCY1, MCX2, MCY2, True);
  end;
end;

{*******************************************************************************
procedure Login_SetGraphics(Brightness: Integer);
By: ZephyrsFury Fixed by J_Pizzle
Description: Sets graphic options in the login screen.
*******************************************************************************}
procedure Login_SetGraphics(Brightness: Integer);
var
  Settings, PosSettings, OptionName: TStringArray;
  II, T, W, tCol, x, y, tx, ty, GraphicsMask: Integer;
  TB: TBox;
  P: TPoint;
begin
  if (LoggedIn) then Exit;
  GraphicsMask := BitmapFromString(20, 8, 'beNpjYPiPBBiQwH9UgFUcmYumA' +
       'JOLJoipGNMNuMwkQy8eR+LRi1U7JhuPdvx2YXUYZvgQExdYtTAAAF' +
       'Km3SM=');
  TypeByte(vk_Escape);                                //347, 273, 393, 292
  T := GetSystemTime;
  while (not(FindBitmapMaskTolerance(GraphicsMask, X, Y, 279, 272, 483, 352, 0, 0))) and (GetSystemTime - T < 5000) do
    Wait(100);
  if (FindBitmapMaskTolerance(GraphicsMask, X, Y, 279, 272, 483, 352, 0, 0)) then
    Mouse(X - 20, Y + 3, 50, 5, True)
  else
  begin
    FreeBitmap(GraphicsMask);
    Exit;
  end;
  Wait(100);
  if (Brightness > 4) then
    srl_Warn('Login_SetGraphics', 'Brightness must be between 0 and 4', warn_AllVersions)
  else
  if (Brightness <> 0) then
  begin
    P := Point(89 + (Brightness - 1) * 21, 266);
    if (GetColor(P.x, P.y) <> 1121100) then
      Mouse(P.x - 3, P.y - 17, 6, 6, True);
  end;
  repeat
    if FindColor(x, y, 16777215, 143, 287, 621, 429) then
    begin
      Mouse(x + 10, y + 3, 10, 7, True);
      getmousepos(tx, ty);
      mouse(tx, ty + 10, 4, 4, true);
      wait(300);
    end;
  until(not(FindColor(x, y, 16777215, 143, 287, 621, 429)));
  Wait(100);
  TypeByte(vk_Escape);
  FreeBitmap(GraphicsMask);
end;

RSready

{*******************************************************************************
function RSReady: Boolean;
By: ZephyrsFury Fixed by J_Pizzle
Description: Returns true if we are ready to auto (on loginscreen or logged in).
  Useful for waiting until RS has fully loaded.
*******************************************************************************}
function RSReady: Boolean;
begin
  Result := (LoggedIn) or (GetColor(475, 344) = 3721541) or (GetColor(353, 325) = 3721541) ;
end;

ok heres the first fix how u use it is u log in and u go to the graphics update screen and u click the button in the middle that says fixed and then this should work

comments?

ill be working on others too cause im grounded

Grounded haha! Like Butters from South park :D :D :D

I'll try it out right away. Good job and good luck on others :p

try the new version i left something out


edit u need my rs ready or else it wont work

have you tested all of these?

~RM

yes they work for me

the only thing i havnt tested is the error messages in login player

errr…. Is it just me miss reading or does your Login_SetGraphics only set Brightness to the right thing, ignoring all the others?

~RM

well u only have 1 option for each one that would set it to the lowest

  repeat
    if FindColor(x, y, 16777215, 143, 287, 621, 429) then
    begin
      Mouse(x + 10, y + 3, 10, 7, True);
      getmousepos(tx, ty);
      mouse(tx, ty + 10, 4, 4, true);
      wait(300);
    end;
  until(not(FindColor(x, y, 16777215, 143, 287, 621, 429)));

taht selects the low detail options

but it doesn't do the screen sizing nor the advanced options. Those are needed to. You up to the challenge? GJ so far.

~RM

taht is the advanced options and if do the screensizing thing wont it lose focus?

Next time make sure you target the RS Client and that it'snot on resizeable (new feature). make sure it's on fixed. You had the wrong coords.

~RM

nice try but as rasta said, and i have realized, most scripting will continue to be made on the non re-sizable client.