Results 1 to 4 of 4

Thread: Private Server Rs- Dropping Help( Best Method)

  1. #1
    Join Date
    Jan 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Private Server Rs- Dropping Help( Best Method)

    Edit: Figured it out although now I need to know how do I make it Drop all of the logs that it finds in my inventory. At the moment what it does is Click tree, wait 10 seconds, Finds log in my invent, Right clicks log, Selects drop. Then Repeats. I need to know how to make it drop all the logs in my inventory then repeat? Help Please
    Code:
    program New;
    {$i srl/srl.simba}
    var
    Drop, logs: Integer;
    procedure ClickTree;
    var
     X, Y, logs: Integer;
     begin
      if FindColorTolerance (X, Y, 3240032, 244, 61, 293, 110, 5) then
      begin;
        mmouse(x, y,1,1);
        wait(250);
        ClickMouse(X, Y, mouse_Left)
        wait(10000);
        if FindDTM(logs, X, Y, MIX1, MIY1, MIX2, MIY2) then
        begin
          mmouse(x, y,1,1);
          wait(250);
          ClickMouse(X, Y, mouse_Right)
          wait(2000);
          Begin if FindBitmapToleranceIn(Drop, X, Y, 495, 201, 734, 462, 100) then
      begin
      writeLn('It is actually running dropshitlog');
        mmouse(x, y,1,1);
        wait(250);
        ClickMouse(X, Y, mouse_Left)
            end;
          end;
        end;
      end;
    end;
    
    Begin
    cleardebug;
    logs := DTMFromString('m6wAAAHic42ZgYOAHYi4gZmGAABAtCMRSQCwHxJJALA7EAkDMA8TMQMwO1ScKxGJALAzEvEDMATWDCYjzU22BJCNR+D8D8YA4EyEYCQAA5QcDVQ==');
    
    Drop := BitmapFromString(95, 7, 'meJzNVEkOwCAI9Gm9+QGv/qk/to0' +
            'mZMJWtyYSDnQyFhjBmHKpFkKIKe/16y6qz+VqZ4fI602hOAWMERjo' +
            '4LJCGUj1LFURD9V8jirOaCJCVHGoDPxEHSzcqrAxEaGYcHZKxSUHF' +
            'VNTzyVi7bOWrbnyY3+2nQuVvXTGn2s18UNncjDpf+LIiztHnDbqJ4' +
            'izpZft4sg9UtvEh5cxJb6+Vj3rxji+OIyMpTqJXn8A081Suw==');
    MouseSpeed :=15
    
    repeat
    ClickTree;
    until(false)
    FreeDTM(logs);
    FreeBitmap(Drop);
    end.
    Last edited by azza123; 01-15-2013 at 12:50 PM.

  2. #2
    Join Date
    Jul 2012
    Posts
    279
    Mentioned
    5 Post(s)
    Quoted
    46 Post(s)

    Default

    I'm personally a huge fan of the function GridBox. If set correctly, you could have a function splitting your inventory into 28 slots (each slot would be numbered). Once that is done, all you'd have to do is search for the DTM in each of these slots with a "for...to" loop. Also, instead of a static 10 seconds waiting time, you might like to change to a WaitFunc(@FoundLog, 10, 10000) type of thing that would turn true when DTM is found in a particular inventory slot.

    If anything doesn't make sense, post again and I'll show you an actual example.

  3. #3
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default

    Quote Originally Posted by Wardancer View Post
    I'm personally a huge fan of the function GridBox. If set correctly, you could have a function splitting your inventory into 28 slots (each slot would be numbered). Once that is done, all you'd have to do is search for the DTM in each of these slots with a "for...to" loop. Also, instead of a static 10 seconds waiting time, you might like to change to a WaitFunc(@FoundLog, 10, 10000) type of thing that would turn true when DTM is found in a particular inventory slot.

    If anything doesn't make sense, post again and I'll show you an actual example.
    Bad drawing by me, hopefully it helps back yhis point up:


  4. #4
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by xtrapsp View Post
    Bad drawing by me, hopefully it helps back yhis point up:

    This is extremly sophisticated for a beginner no offense to the op. the best way to do it is check for a log in the last inventory slot and repeat the drop log procedure until it an log longer find the log n the last slot. Impost snippet when I get n the computer

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
  •