Results 1 to 7 of 7

Thread: Smart Autoclicker =D

  1. #1
    Join Date
    Jun 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Smart Autoclicker =D

    yo guys i'd be glad if some1 help me with Autoclicker For SMART
    which moves after enblading Smart for First spot in The Inv
    Then IT Keep clicking
    Thanks Alot

  2. #2
    Join Date
    Apr 2012
    Location
    Australia
    Posts
    1,252
    Mentioned
    1 Post(s)
    Quoted
    22 Post(s)

    Default

    So you just want the script to login and then spam click the first inventory spot?
    What exactly does this achieve?

    Here, I wrote exactly what you asked for, but dear god it will get you banned.
    If you provide more details about what this script actually needs to do it is possible that I could write something that's a little bit better.
    Simba Code:
    program P;
    {$DEFINE SMART}
    {$i SRL/SRL.Simba}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      with Players[0] do
      begin
        Name         := '';          // Username
        Pass         := '';         // Password
        Pin          := '';        // PIN - Leave Blank If None
        Active       := True;     // Is Player To Be Used?
      end;
    end;

    function PRandoms: Boolean;
    begin
      Result := FindNormalRandoms or FindNonInventoryRandoms;
    end;

    procedure SetupLogin;
    begin
      ClearDebug;
      Status('SetupLogin');
      {$IFDEF SMART}
        SRL_SixHourFix := True;
        Smart_FixSpeed := True;
      {$ENDIF}

      SetupSRL;
      DeclarePlayers;

      ActivateClient;
      if not LoggedIn then
        LoginPlayer;

      SetAngle(SRL_ANGLE_HIGH);
      PRandoms;
    end;

    begin
      SetupLogin;
      repeat
        PRandoms;
        if not LoggedIn then
          TerminateScript;

        InvMouse(1, mouse_Left);
      until(False);
    end.
    Last edited by P1ng; 09-17-2012 at 10:56 AM.

  3. #3
    Join Date
    Jun 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks For Your Quick Respond yeh that All I needed Really Thanks
    But Can U Add choose world To it? please
    Thanks For Your Time

  4. #4
    Join Date
    Apr 2012
    Location
    Australia
    Posts
    1,252
    Mentioned
    1 Post(s)
    Quoted
    22 Post(s)

    Default

    Change the 'SetupLogin' procedure to this:

    Simba Code:
    procedure SetupLogin;
    begin
      ClearDebug;
      Status('SetupLogin');
      {$IFDEF SMART}
        SRL_SixHourFix := True;
        Smart_FixSpeed := True;
      {$ENDIF}

      SetupSRL;
      DeclarePlayers;

      ActivateClient;
      if not LoggedIn then
      begin
        LoginPlayerToLob;
        if OpenWorldScreen then
        begin
          SelectWorld(8);
          LoginPlayer;
        end;
      end;

      SetAngle(SRL_ANGLE_HIGH);
      PRandoms;
    end;

    Then where I put in SelectWorld(8); you can change the 8 to whatever world you want to login to.

  5. #5
    Join Date
    Jun 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks So Much bro
    Aprrinticed!

  6. #6
    Join Date
    Sep 2012
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by P1ng View Post
    So you just want the script to login and then spam click the first inventory spot?
    What exactly does this achieve?

    Here, I wrote exactly what you asked for, but dear god it will get you banned.
    If you provide more details about what this script actually needs to do it is possible that I could write something that's a little bit better.
    Simba Code:
    program P;
    {$DEFINE SMART}
    {$i SRL/SRL.Simba}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      with Players[0] do
      begin
        Name         := '';          // Username
        Pass         := '';         // Password
        Pin          := '';        // PIN - Leave Blank If None
        Active       := True;     // Is Player To Be Used?
      end;
    end;

    function PRandoms: Boolean;
    begin
      Result := FindNormalRandoms or FindNonInventoryRandoms;
    end;

    procedure SetupLogin;
    begin
      ClearDebug;
      Status('SetupLogin');
      {$IFDEF SMART}
        SRL_SixHourFix := True;
        Smart_FixSpeed := True;
      {$ENDIF}

      SetupSRL;
      DeclarePlayers;

      ActivateClient;
      if not LoggedIn then
        LoginPlayer;

      SetAngle(SRL_ANGLE_HIGH);
      PRandoms;
    end;

    begin
      SetupLogin;
      repeat
        PRandoms;
        if not LoggedIn then
          TerminateScript;

        InvMouse(1, mouse_Left);
      until(False);
    end.
    I made a new thread on this, can you check it out and see if you can use this scirpt and change it to my liking's if possible?

  7. #7
    Join Date
    Apr 2012
    Posts
    3,356
    Mentioned
    34 Post(s)
    Quoted
    218 Post(s)

    Default

    ban hammer inbound

Thread Information

Users Browsing this Thread

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

Posting Permissions

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