Results 1 to 7 of 7

Thread: Soulsplit | Simple Stall Thieving Script

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

    Default Soulsplit | Simple Stall Thieving Script

    This script is extremely simple, but then, so is thieving, all it does is clicks the first stall it finds, and closes the random event window.

    First time I've used pascal in years, forgive any poor conventions.
    Code:
    program SoulsplitThieving;
    {$I srl-6/srl.Simba}
    
    var
      Stall, StallX, StallY: Integer;
      Viewport, UpTextBox: TBox;
      UpText: string;
    
    procedure Click(x, y: integer);
    begin
      mouse(point(x, y), MOUSE_LEFT, MOUSE_ACCURATE);
    end;
    
    function Steal: Boolean;
    begin
      Result := False;
      UpText := getTextAtEx(UpTextBox, 0, 0, 3, clWhite, 5, 'upChars07');
      if (pos('S t e a l', UpText) = 1) then
      begin
        Click(StallX, StallY);
        wait(2500);
        Result := True;
      end;
    end;
    
    begin
      Stall := DTMFromString('mbQAAAHicY2VgYHBhZGAwAOJYIPYAYkcgvgkUv8UAoZ8C8RkgXjmnDYyXz2phWDu/E0yzAsXRMSMWDAYAyEQOtQ==');
      Viewport := IntToBox(4, 59, 514, 391);
      UpTextBox := IntToBox(4, 59, 291, 79);
      repeat
        if (getColor(472, 74) = 65535) then
          Click(472, 74);
        if not Steal then
        begin
          if (findDTM(Stall, StallX, StallY, Viewport)) then
            mouse(point(StallX, StallY), MOUSE_MOVE, MOUSE_ACCURATE);
        end;
      until (false);
    end.
    These are the settings used while writing the script

    7f86db5ae3.png

    Remember to select the game applet as the client.

    I also suggest having the camera as high as you can, so players and NPCs don't get in the way of the mouse.
    Last edited by Byte; 06-03-2014 at 01:40 PM.

  2. #2
    Join Date
    May 2013
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by Byte View Post
    This script is extremely simple, but then, so is thieving, all it does is clicks the first stall it finds, and closes the random event window.

    First time I've used pascal in years, forgive any poor conventions.
    Code:
    program SoulsplitThieving;
    {$I srl-6/srl.Simba}
    
    var
      Stall, StallX, StallY: Integer;
      Viewport, UpTextBox: TBox;
      UpText: string;
    
    procedure Click(x, y: integer);
    begin
      mouse(point(x, y), MOUSE_LEFT, MOUSE_ACCURATE);
    end;
    
    function Steal: Boolean;
    begin
      Result := False;
      UpText := getTextAtEx(UpTextBox, 0, 0, 3, clWhite, 5, 'upChars07');
      if (pos('S t e a l', UpText) = 1) then
      begin
        Click(StallX, StallY);
        wait(2500);
        Result := True;
      end;
    end;
    
    begin
      Stall := DTMFromString('mbQAAAHicY2VgYHBhZGAwAOJYIPYAYkcgvgkUv8UAoZ8C8RkgXjmnDYyXz2phWDu/E0yzAsXRMSMWDAYAyEQOtQ==');
      Viewport := IntToBox(4, 59, 514, 391);
      UpTextBox := IntToBox(4, 59, 291, 79);
      repeat
        if (getColor(472, 74) = 65535) then
          Click(472, 74);
        if not Steal then
        begin
          if (findDTM(Stall, StallX, StallY, Viewport)) then
            mouse(point(StallX, StallY), MOUSE_MOVE, MOUSE_ACCURATE);
        end;
      until (false);
    end.
    These are the settings used while writing the script

    7f86db5ae3.png

    Remember to select the game applet as the client.

    I also suggest having the camera as high as you can, so players and NPCs don't get in the way of the mouse.
    thanks so much for releasing keep it up

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

    Default

    I want to use this, but I am completely new to this whole script thing.

    Can you please please explain to me what should I do first?

  4. #4
    Join Date
    Jun 2014
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay I did everything but I am still having a problem,

    The mouse just go to the top left of the screen instead of the stall and sometimes it just plain won't work

  5. #5
    Join Date
    Jun 2014
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nvm its working thank you

  6. #6
    Join Date
    Jun 2014
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    same here

  7. #7
    Join Date
    Jul 2014
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The mouse always goes to the top left corner, doesn't work

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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