Results 1 to 14 of 14

Thread: Are Any Scripts Working?

  1. #1
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default Are Any Scripts Working?

    Just Wondering If Any Scripts Are Working?
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  2. #2
    Join Date
    Jun 2007
    Location
    earth
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    the only ones that do work are the ones that dont need SMART. but the multiple character feature probably doesnt work, and some scripts i find dont work as well as normal, but there still is a few scripts that work
    do you like waffles?

  3. #3
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wrong no none are working. Log in screen is different. You need to update yourself all the fixes are in SRL members only :P
    Exam period.

  4. #4
    Join Date
    Jun 2007
    Location
    earth
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Ashur2Good View Post
    Wrong no none are working. Log in screen is different. You need to update yourself all the fixes are in SRL members only :P
    well actually, there are some scripts that you can start while logged in, so as long as you go for steady no-break autoing it works
    do you like waffles?

  5. #5
    Join Date
    Mar 2007
    Posts
    128
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Ashur2Good View Post
    Wrong no none are working. Log in screen is different. You need to update yourself all the fixes are in SRL members only :P
    Not to be a jerk, but how hard is it to make a like 10 - 20 line custom login procedure? I'm pretty sure people can figure it out .

    Anyways, I think ober is right.

  6. #6
    Join Date
    Jun 2008
    Location
    San Diego, California
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    My air crafter is working just about to release it(in about 2 more days) just adding the finishing touches. Sadly multiplayer isn't working anymore

  7. #7
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default login

    So what needs changing?


    SCAR Code:
    //-----------------------------------------------------------------//
    //--               Scar Standard Resource Library                --//
    //--               ยป Login Routines                              --//
    //-----------------------------------------------------------------//
    // * procedure Logout;                                // * by Starblaster100 and Raymond
    // * procedure LoginPlayer;                           // * by WT-Fakawi / Raymond
    // * procedure RandomNextPlayer(Active: Boolean);     // * by Dankness, Ron and Raymond
    // * procedure NextPlayer(Active: Boolean);           // * by Dankness, Ron and Raymond
    // * procedure CheckUserNicks;                        // * by Sumilion and Raymond

    { var SRL_Logs, SRL_Attempts: Integer;
      Description: Variables needed for some login functions. }

    var
      SRL_Logs, SRL_Attempts: Integer;
      RandomPlayer: Boolean;

    procedure NextPlayer(Active: Boolean); forward;

    {*******************************************************************************
    procedure Logout;
    By: Starblaster100 / Raymond
    Description: Logs you out.
    *******************************************************************************}


    function Logout: Boolean;
    var
      c, i: Integer;
    begin
      Result := (not (LoggedIn));
      if Result = True then
        Exit;
      if GameTab(14) = False then
        Exit;
      Wait(200 + Random(100));
      while (LoggedIn) or (c < 10) do
      begin
        Inc(c);
        if(ClickText('here', UpChars, MIX1, MIY1, MIX2, MIY2, True))then
          for i := 0 to 10 do
          begin
            Wait(1000);
            if not(LoggedIn)then
            begin
              Result := True;
              Exit;
            end;
          end;
      end;
    end;

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


    Function LoginPlayer : boolean;
    var
      ClickHereToPlay, i,
      CHx, CHy, c,  LastPlayer,Mark : Integer;
      Options : TStringArray;
      OneActive : Boolean;
      Actions : TVariantArray;
    begin
      Result := False;
      ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
        'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
        '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
        '067D37AC3D95AADF2F50962C79');
      OneActive := False;
      if LoggedIn = False then
      begin;
        if (not (Players[CurrentPlayer].Active)) then
        begin;
          WriteLn('Current player is not Active...');
          Repeat
            For I := 0 to HowManyPlayers - 1 do
              if players[I].Active = true then
                OneActive := True;
            if OneActive = True then
              Break;
            Wait(60000);
          until false
        end;
        ActivateClient;
        Wait(900 + random(60));
        FindTextTpa(clwhite,0,194, 174,564, 367,'Cancel',UpChars,ClickLeft);
        Wait(100+random(50));
        FindTextTpa(clwhite,0,194, 174,564, 367,'xis',UpChars,ClickLeft);
        Wait(100+random(50));
        if  FindTextTpa(clwhite,0,194, 174,564, 367,'Username',UpChars, Clickleft) then
        begin
          Wait(150 + Random(75));
          WriteLn(Players[CurrentPlayer].Name);
          TypeSend(Players[CurrentPlayer].Name);
          Wait(100 + Random(100));
          if  FindTextTpa(clwhite,0,194, 174,564, 367,'Password',UpChars,ClickLeft) then
          begin;
            TypeSend(Players[CurrentPlayer].Pass);
            Wait(100 + Random(100));
          end;
        end;
        FindTextTpa(clwhite,0,194, 174,564, 367,'Login',UpChars,ClickLeft);
        Wait(250 + random(100));
        Mark := GetSystemTime;
        repeat
          Wait(Random(250) + 100);
          if (GetSystemTime - Mark) >  35000 then Break;
        until not FindTextTpa(65535,0,194, 174,564, 367,'...',UpChars,Nothing);
        Mark := GetSystemTime;
        Repeat
          if FindTextTpa(65535,0,194, 174,564, 367,'...',UpChars,Nothing) or //Still waiting to log in
             FindTextTpa(65535,0,194, 174,564, 367,'trans',UpChars,Nothing) then     //Your account is beeing transfered
          begin;
            Wait(1000 + random(500));
          end else
          begin;
            if (GetSystemTime - Mark) > 180000 then
            begin
              if (GetSystemTime - Mark) > 240000 then
              begin;
                NextPlayer(false);
                Exit;
              end;
              WriteLn('three minutes have passed');
              WriteFileString(TheFile, Chr(13) + 'THREE MINUTES HAVE PASSED!!!' +
                Chr(13));
              ActivateClient;
              FindTextTpa(clwhite,0,194, 174,564, 367,'Cancel',UpChars,ClickLeft);
              Wait(100+random(50));
              FindTextTpa(clwhite,0,194, 174,564, 367,'xis',UpChars,ClickLeft);
            end;
            Options := ['nter your','already','nvalid','excee','full','offl','rror','ontact','reject','reload',
                        'updat','disabled','member','elcom','incorrect'];
            OneActive := False;
            For I := 0 to High(Options) do
              if FindTextTpa(65535,0,194, 174,564, 367,Options[I],UpChars,Nothing) then
              begin;
                OneActive := True;
                Break;
              end;
            if OneActive then
            begin;
              FreeBitmap(ClickHereToPlay);
              SetLength(Actions,2);
              Case Options[I] of
                'reload'   : begin;   //Runescape updated
                               WriteLn('ERROR. RuneScape has been updated. Script Terminated.');
                               Terminatescript;
                             end;
                'disabled' : begin;  //Your account has been disabled..
                               WriteLn('Your account has been disabled');
                               Players[CurrentPlayer].loc := 'DISABLED';
                               NextPlayer(False);
                               Exit;
                             end;
                'member'   : begin;        // You need a Members account...
                               WriteLn('You need a Members account...');
                               Players[CurrentPlayer].loc := 'Non-Member';
                               NextPlayer(False);
                               exit;
                             end;
                'already'  : begin //Account already logged in
                               Actions := ['Your account is already logged in',0];
                               LastPlayer := CurrentPlayer;
                               repeat
                                 CurrentPlayer := (CurrentPlayer + 1) mod HowManyPlayers;
                                 Wait(200);
                               until (Players[CurrentPlayer].Active) and (CurrentPlayer <> LastPlayer);
                             end;
                'nvalid'   : begin;// Invalid Username. 3 attempts. If fails, username/pass incorrect
                               Actions := ['Invalid Username \ Password',0];
                               Inc(SRL_Attempts);
                               if SRL_Attempts > 3 then
                               begin;
                                 Players[CurrentPlayer].Loc := 'Login ERROR';
                                 SRL_Attempts := 0;
                                 Nextplayer(False);
                                 Exit;
                               end;
                             end;
                'excee'    : Actions := ['Login attempts exceeded. Please wait 1 minute and try again.',60000];
                'offl'     : Actions := ['Unable to connect Login Server offline.',(20000) + Random(6000)]; // Unable to connect. Login Server offline.
                'nter your': Actions := ['Enter your username and password',0];//Login failed
                'full'     : Actions := ['World is full.',5000]; //World is full =]
                'rror'     : Actions := ['Error Connecting.',10000]; //Error, connection timed out?
                'ontact'   : Actions := ['Error loading your profile.',2000]; // Error loading your profile. Will attempt to re-login 5 more times.)
                'reject'   : Actions := ['Login server rejected session.',1000];  // Login server rejected session.
                'updat'    : Actions := ['The Server is being updated.',60000]; // The Server is being updated. Please wait 1 minute.
                'elcom'    : Actions := ['Welcome.',0];
                'incorrect': Actions := ['To many incorrect logins.',60000 * 5]; //Wrong logins baby.
              end;
              Writeln(Actions[0]);
              Wait(Actions[1] + Random(100));
              LoginPlayer;
              Exit;
            end;
          end;
          Wait(1000);
        until (FindBitmapToleranceIn(ClickHereToPlay, CHx, CHy, 250, 270, 530, 390,
          5)) or FindColor(CHx, CHy, 723587, 522, 5, 560, 39);
        Wait(1000 + Random(500));
        if (FindBitmapToleranceIn(ClickHereToPlay, CHx, CHy, 250, 270, 530, 390, 5)) then
          Mouse(CHx, CHy, 50, 20, True) // Clicks randomly on the button
        else
          Writeln('Found Compass');
        repeat
          Wait(1000);
          c := c + 1;
        until ((LoggedIn = True) or (c >= 600));
      end;
      FreeBitmap(ClickHereToPlay);
      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
          begin;
            Writeln('Nickname isnt set, taking the username instead..');
            Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Name, UpChars);
          end;
        end;
        WriteFileString(TheFile, Chr(13) + 'Current player: '+ UpperCase(Players[CurrentPlayer].Name) + Chr(13)); //* Save NAME to file
      end;
    end;

    {*******************************************************************************
    procedure RandomNextPlayer(Active: Boolean);
    By: Dankness based on WT-Fawki's NextPlayer and modified by Ron and by Raymond
    Description: Picks Random Player that is Active and Logs in
    *******************************************************************************}


    procedure RandomNextPlayer(Active: Boolean);
    var
      LastPlayer: Integer;
    begin
      WriteLn('NextPlayer');
      LastPlayer := CurrentPlayer;
      Players[CurrentPlayer].Active := Active;
      Logout;
      PlayerCurTime := (GetSystemTime div 1000);
      Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked +
        ((PlayerCurTime - PlayerStartTime) / 60);
      repeat
        CurrentPlayer := Random(HowManyPlayers);
        Wait(100);
      until (Players[CurrentPlayer].Active) and (CurrentPlayer <> LastPlayer);
      SRL_Logs := SRL_Logs + 1;
      LoginPlayer;
    end;

    {*******************************************************************************
    procedure NextPlayer(Active: Boolean);
    By: Dankness and modified by Ron and by Raymond
    Description: Logs in the next player.
    Boolean: True - Current player is ok. False - Current player is false.
    *******************************************************************************}


    procedure NextPlayer(Active: Boolean);
    var
      I : integer;
      OneActive : Boolean;
    begin
      if RandomPlayer then
        RandomNextPlayer(Active)
      else
      begin
        WriteLn('NextPlayer');
        Players[CurrentPlayer].Active := Active;
        Logout;
        PlayerCurTime := (GetSystemTime div 1000);
        Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked +
          ((PlayerCurTime - PlayerStartTime) / 60);
        CurrentPlayer := (CurrentPlayer + 1) mod HowManyPlayers;
        while Players[CurrentPlayer].Active = False do
        begin
          OneActive := False;
          CurrentPlayer := (CurrentPlayer + 1) mod HowManyPlayers;
          for I := 0 to HowManyPlayers - 1 do
            if Players[I].Active then
              OneActive := True;
          if OneActive = False then
            Wait(60000); // Everybody False. Endless Loop.
        end;
        SRL_Logs := SRL_Logs + 1;
        LoginPlayer;
      end;
    end;

    {*******************************************************************************
    procedure CheckUserNicks;
    By: Sumilion / Raymond
    Description: Checks if all nicks are set correct.
    *******************************************************************************}


    procedure CheckUserNicks;
    var
      CorrectString: string;
      i: Integer;
      Wrong : Boolean;
      Str : String;
    begin
      for i := 0 to HowManyPlayers - 1 do
      begin
        Wrong := False;
        if (Players[i].Nick = '') then
        begin
          Wrong := True;
          Str := 'WARNING : Please fill in your nickname.';
        end;
        if (Players[i].Nick <> LowerCase(Players[i].Nick)) then
        begin
          Wrong := True;
          Str := 'WARNING : Please Uncapitalise your nickname.';
        end;
        if (pos(Players[i].Nick, LowerCase(Players[i].Name)) = 1) then
        begin
          Wrong := True;
          Str := 'WARNING : Dont use the first letter in your nick.';
        end;
        if (pos(' ', Players[i].Nick) > 0) then
        begin
          Wrong := True;
          Str := 'WARNING : Dont use spaces in your Nick.';
        end;
        CorrectString := Capitalize(Players[i].Name);
        if not (Pos(LowerCase(Players[i].Nick), CorrectString) > 0) then
        begin
          Wrong := true;
          Str := 'WARNING : Nick does NOT match the name.';
        end;
        if Wrong then
        begin;
          Writeln('--');
          Writeln(Str);
          if (Length(Players[i].Name) > 0) then
            Writeln('Warning occured with player : ' + Players[i].Name);
          Writeln('For more information, visit http://www.villavu.com/forum/showthread.php?t=5410');
        end;
      end;
    end;
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  8. #8
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That would be this part

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

     
    Function LoginPlayer : boolean;
    var
      ClickHereToPlay, i,
      CHx, CHy, c,  LastPlayer,Mark : Integer;
      Options : TStringArray;
      OneActive : Boolean;
      Actions : TVariantArray;
    begin
      Result := False;
      ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
        'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
        '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
        '067D37AC3D95AADF2F50962C79');
      OneActive := False;
      if LoggedIn = False then
      begin;
        if (not (Players[CurrentPlayer].Active)) then
        begin;
          WriteLn('Current player is not Active...');
          Repeat
            For I := 0 to HowManyPlayers - 1 do
              if players[i].Active = true then
                OneActive := True;
            if OneActive = True then
              Break;
            Wait(60000);
          until false
        end;
        ActivateClient;
        Wait(900 + random(60));
        FindTextTpa(clwhite,0,194, 174,564, 367,'Cancel',UpChars,ClickLeft);
        Wait(100+random(50));
        FindTextTpa(clwhite,0,194, 174,564, 367,'xis',UpChars,ClickLeft);
        Wait(100+random(50));
        if  FindTextTpa(clwhite,0,194, 174,564, 367,'Username',UpChars, Clickleft) then
        begin
          Wait(150 + Random(75));
          WriteLn(Players[CurrentPlayer].Name);
          TypeSend(Players[CurrentPlayer].Name);
          Wait(100 + Random(100));
          if  FindTextTpa(clwhite,0,194, 174,564, 367,'Password',UpChars,ClickLeft) then
          begin;
            TypeSend(Players[CurrentPlayer].Pass);
            Wait(100 + Random(100));
          end;
        end;
        FindTextTpa(clwhite,0,194, 174,564, 367,'Login',UpChars,ClickLeft);
        Wait(250 + random(100));
        Mark := GetSystemTime;
        repeat
          Wait(Random(250) + 100);
          if (GetSystemTime - Mark) >  35000 then Break;
        until not FindTextTpa(65535,0,194, 174,564, 367,'...',UpChars,Nothing);
        Mark := GetSystemTime;
        Repeat
          if FindTextTpa(65535,0,194, 174,564, 367,'...',UpChars,Nothing) or //Still waiting to log in
             FindTextTpa(65535,0,194, 174,564, 367,'trans',UpChars,Nothing) then     //Your account is beeing transfered
          begin;
            Wait(1000 + random(500));
          end else
          begin;
            if (GetSystemTime - Mark) > 180000 then
            begin
              if (GetSystemTime - Mark) > 240000 then
              begin;
                NextPlayer(false);
                Exit;
              end;
              WriteLn('three minutes have passed');
              WriteFileString(TheFile, Chr(13) + 'THREE MINUTES HAVE PASSED!!!' +
                Chr(13));
              ActivateClient;
              FindTextTpa(clwhite,0,194, 174,564, 367,'Cancel',UpChars,ClickLeft);
              Wait(100+random(50));
              FindTextTpa(clwhite,0,194, 174,564, 367,'xis',UpChars,ClickLeft);
            end;
            Options := ['nter your','already','nvalid','excee','full','offl','rror','ontact','reject','reload',
                        'updat','disabled','member','elcom','incorrect'];
            OneActive := False;
            For I := 0 to High(Options) do
              if FindTextTpa(65535,0,194, 174,564, 367,Options[i],UpChars,Nothing) then
              begin;
                OneActive := True;
                Break;
              end;
            if OneActive then
            begin;
              FreeBitmap(ClickHereToPlay);
              SetLength(Actions,2);
              Case Options[i] of
                'reload'   : begin;   //Runescape updated
                               WriteLn('ERROR. RuneScape has been updated. Script Terminated.');
                               Terminatescript;
                             end;
                'disabled' : begin;  //Your account has been disabled..
                               WriteLn('Your account has been disabled');
                               Players[CurrentPlayer].loc := 'DISABLED';
                               NextPlayer(False);
                               Exit;
                             end;
                'member'   : begin;        // You need a Members account...
                               WriteLn('You need a Members account...');
                               Players[CurrentPlayer].loc := 'Non-Member';
                               NextPlayer(False);
                               exit;
                             end;
                'already'  : begin //Account already logged in
                               Actions := ['Your account is already logged in',0];
                               LastPlayer := CurrentPlayer;
                               repeat
                                 CurrentPlayer := (CurrentPlayer + 1) mod HowManyPlayers;
                                 Wait(200);
                               until (Players[CurrentPlayer].Active) and (CurrentPlayer <> LastPlayer);
                             end;
                'nvalid'   : begin;// Invalid Username. 3 attempts. If fails, username/pass incorrect
                               Actions := ['Invalid Username \ Password',0];
                               Inc(SRL_Attempts);
                               if SRL_Attempts > 3 then
                               begin;
                                 Players[CurrentPlayer].Loc := 'Login ERROR';
                                 SRL_Attempts := 0;
                                 Nextplayer(False);
                                 Exit;
                               end;
                             end;
                'excee'    : Actions := ['Login attempts exceeded. Please wait 1 minute and try again.',60000];
                'offl'     : Actions := ['Unable to connect Login Server offline.',(20000) + Random(6000)]; // Unable to connect. Login Server offline.
                'nter your': Actions := ['Enter your username and password',0];//Login failed
                'full'     : Actions := ['World is full.',5000]; //World is full =]
                'rror'     : Actions := ['Error Connecting.',10000]; //Error, connection timed out?
                'ontact'   : Actions := ['Error loading your profile.',2000]; // Error loading your profile. Will attempt to re-login 5 more times.)
                'reject'   : Actions := ['Login server rejected session.',1000];  // Login server rejected session.
                'updat'    : Actions := ['The Server is being updated.',60000]; // The Server is being updated. Please wait 1 minute.
                'elcom'    : Actions := ['Welcome.',0];
                'incorrect': Actions := ['To many incorrect logins.',60000 * 5]; //Wrong logins baby.
              end;
              Writeln(Actions[0]);
              Wait(Actions[1] + Random(100));
              LoginPlayer;
              Exit;
            end;
          end;
          Wait(1000);
        until (FindBitmapToleranceIn(ClickHereToPlay, CHx, CHy, 250, 270, 530, 390,
          5)) or FindColor(CHx, CHy, 723587, 522, 5, 560, 39);
        Wait(1000 + Random(500));
        if (FindBitmapToleranceIn(ClickHereToPlay, CHx, CHy, 250, 270, 530, 390, 5)) then
          Mouse(CHx, CHy, 50, 20, True) // Clicks randomly on the button
        else
          Writeln('Found Compass');
        repeat
          Wait(1000);
          c := c + 1;
        until ((LoggedIn = True) or (c >= 600));
      end;
      FreeBitmap(ClickHereToPlay);
      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
          begin;
            Writeln('Nickname isnt set, taking the username instead..');
            Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Name, UpChars);
          end;
        end;
        WriteFileString(TheFile, Chr(13) + 'Current player: '+ UpperCase(Players[CurrentPlayer].Name) + Chr(13)); //* Save NAME to file
      end;
    end;

    Lol, good luck. i recommend just completely rewriting it with basic functions. wont be idiotproof, but itll work.

    just do some mouse and typesend procedures
    ~ Metagen

  9. #9
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dont Forget

    SCAR Code:
    function Logout: Boolean;
    var
      c, i: Integer;
    begin
      Result := (not (LoggedIn));
      if Result = True then
        Exit;
      if GameTab(14) = False then
        Exit;
      Wait(200 + Random(100));
      while (LoggedIn) or (c < 10) do
      begin
        Inc(c);
        if(ClickText('here', UpChars, MIX1, MIY1, MIX2, MIY2, True))then
          for i := 0 to 10 do
          begin
            Wait(1000);
            if not(LoggedIn)then
            begin
              Result := True;
              Exit;
            end;
          end;
      end;
    end;
    Exam period.

  10. #10
    Join Date
    Nov 2007
    Location
    North Carolina
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I made a thread in this section with a fix I made. Just look at it.
    Do you dare to fight My Brute?

  11. #11
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    ok fixed it this thread can be closed or deltled..
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  12. #12
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    hang on now its not working this comes up

    Line 73: [Error] (4226:1): Unknown identifier 'NextPlayer' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Login.scar
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  13. #13
    Join Date
    Dec 2007
    Location
    Canada
    Posts
    187
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey i just redid my login procedure take a look at it tell me if you think it is good I think itl be working soon im just compiling it right now

    SCAR Code:
    {*******************************************************************************
    procedure LoginPlayer;
    By: WT-Fakawi / Raymond / Insanomano7's New Version :D:D
    Description: Logs in the Player[CurrentPlayer]. Detects most Client Login Errors
    *******************************************************************************}


    Function LoginPlayer : boolean;
    {.Include SRL/SRL.scar}
    var
      ClickHereToPlay, i,
      CHx, CHy, c,  LastPlayer,Mark : Integer;
      Options : TStringArray;
      OneActive : Boolean;
      Actions : TVariantArray;
      x,y : Integer;
    begin
      Result := False;
      ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
        'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
        '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
        '067D37AC3D95AADF2F50962C79');
      OneActive := False;
      if LoggedIn = False then
      begin;
        if (not (Players[CurrentPlayer].Active)) then
        begin;
          WriteLn('Current player is not Active...');
          Repeat
            For I := 0 to HowManyPlayers - 1 do
              if players[I].Active = true then
                OneActive := True;
            if OneActive = True then
              Break;
            Wait(60000);
          until false
        end;
        ActivateClient;
        Mouse(708, 524,1,1,true)
        wait(300 + Random(500))
          WriteLn(Players[CurrentPlayer].Name);
          TypeSend(Players[CurrentPlayer].Name);
          Wait(300 + Random(900));
            Mouse(658, 677,1,1,true)
            wait(200+ random(200))
            WriteLn(Players[CurrentPlayer].Pass);
            TypeSend(Players[CurrentPlayer].Pass);
            Wait(100 + Random(100));
        end;
        FindTextTpa(clwhite,0,194, 174,564, 367,'Login',UpChars,ClickLeft);
        Wait(250 + random(100));
        Mark := GetSystemTime;
        repeat
          Wait(Random(250) + 100);
          if (GetSystemTime - Mark) >  35000 then Break;
        until not FindTextTpa(65535,0,194, 174,564, 367,'...',UpChars,Nothing);
        Mark := GetSystemTime;
          if FindTextTpa(65535,0,194, 174,564, 367,'...',UpChars,Nothing) or //Still waiting to log in
             FindTextTpa(65535,0,194, 174,564, 367,'trans',UpChars,Nothing) then     //Your account is beeing transfered
          begin;
            Wait(1000 + random(500));
          end else
          begin;
            if (GetSystemTime - Mark) > 180000 then
            begin
              if (GetSystemTime - Mark) > 240000 then
              begin;
                NextPlayer(false);
                Exit;
              end;
              WriteLn('three minutes have passed');
              WriteFileString(TheFile, Chr(13) + 'THREE MINUTES HAVE PASSED!!!' +
                Chr(13));
              ActivateClient;
              FindTextTpa(clwhite,0,194, 174,564, 367,'Cancel',UpChars,ClickLeft);
              Wait(100+random(50));
              FindTextTpa(clwhite,0,194, 174,564, 367,'xis',UpChars,ClickLeft);
            end;
            Options := ['nter your','already','nvalid','excee','full','offl','rror','ontact','reject','reload',
                        'updat','disabled','member','elcom','incorrect'];
            OneActive := False;
            For I := 0 to High(Options) do
              if FindTextTpa(65535,0,194, 174,564, 367,Options[I],UpChars,Nothing) then
              begin;
                OneActive := True;
                Break;
              end;
            if OneActive then
            begin;
              FreeBitmap(ClickHereToPlay);
              SetLength(Actions,2);
              Case Options[I] of
                'reload'   : begin;   //Runescape updated
                               WriteLn('ERROR. RuneScape has been updated. Script Terminated.');
                               Terminatescript;
                             end;
                'disabled' : begin;  //Your account has been disabled..
                               WriteLn('Your account has been disabled');
                               Players[CurrentPlayer].loc := 'DISABLED';
                               NextPlayer(False);
                               Exit;
                             end;
                'member'   : begin;        // You need a Members account...
                               WriteLn('You need a Members account...');
                               Players[CurrentPlayer].loc := 'Non-Member';
                               NextPlayer(False);
                               exit;
                             end;
                'already'  : begin //Account already logged in
                               Actions := ['Your account is already logged in',0];
                               LastPlayer := CurrentPlayer;
                               repeat
                                 CurrentPlayer := (CurrentPlayer + 1) mod HowManyPlayers;
                                 Wait(200);
                               until (Players[CurrentPlayer].Active) and (CurrentPlayer <> LastPlayer);
                             end;
                'nvalid'   : begin;// Invalid Username. 3 attempts. If fails, username/pass incorrect
                               Actions := ['Invalid Username \ Password',0];
                               Inc(SRL_Attempts);
                               if SRL_Attempts > 3 then
                               begin;
                                 Players[CurrentPlayer].Loc := 'Login ERROR';
                                 SRL_Attempts := 0;
                                 Nextplayer(False);
                                 Exit;
                               end;
                             end;
                'excee'    : Actions := ['Login attempts exceeded. Please wait 1 minute and try again.',60000];
                'offl'     : Actions := ['Unable to connect Login Server offline.',(20000) + Random(6000)]; // Unable to connect. Login Server offline.
                'nter your': Actions := ['Enter your username and password',0];//Login failed
                'full'     : Actions := ['World is full.',5000]; //World is full =]
                'rror'     : Actions := ['Error Connecting.',10000]; //Error, connection timed out?
                'ontact'   : Actions := ['Error loading your profile.',2000]; // Error loading your profile. Will attempt to re-login 5 more times.)
                'reject'   : Actions := ['Login server rejected session.',1000];  // Login server rejected session.
                'updat'    : Actions := ['The Server is being updated.',60000]; // The Server is being updated. Please wait 1 minute.
                'elcom'    : Actions := ['Welcome.',0];
                'incorrect': Actions := ['To many incorrect logins.',60000 * 5]; //Wrong logins baby.
              end;
              Writeln(Actions[0]);
              Wait(Actions[1] + Random(100));
              LoginPlayer;
              Exit;
            end;
            wait(6000+ random(2000));
            Mouse(402, 353,1,1,true);
          end;
          Wait(1000);
          Writeln('Found Compass');
          MakeCompass('N');
          SetAngle(True);
        repeat
          Wait(1000);
          c := c + 1;
        until ((LoggedIn = True) or (c >= 600));
      end;
      FreeBitmap(ClickHereToPlay);
      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
          begin;
            Writeln('Nickname isnt set, taking the username instead..');
            Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Name, UpChars);
          end;
        end;
        WriteFileString(TheFile, Chr(13) + 'Current player: '+ UpperCase(Players[CurrentPlayer].Name) + Chr(13)); //* Save NAME to file
    end;

    ARGGG... For some reason it tells me im out of memory..
    I'm baaaack

  14. #14
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    alot of scripts work take out login :P

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. scripts not working
    By Spayed in forum OSR Help
    Replies: 6
    Last Post: 12-09-2008, 12:12 AM
  2. Help no scripts working!
    By Fused Halos in forum OSR Help
    Replies: 14
    Last Post: 08-24-2008, 10:47 AM
  3. Scripts working?
    By Blue World in forum OSR Help
    Replies: 0
    Last Post: 08-17-2008, 03:26 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •