Results 1 to 4 of 4

Thread: procedure SelectEntireInv;

  1. #1
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default procedure SelectEntireInv;

    This will left click all of your inventory. Good for buryer's or something else:
    SCAR Code:
    {*******************************************************************************
    procedure SelectEntireInventory;
    by: IP-Drowner
    Description: Will left click all item's in your inventory. Best used with bone
                      buryer script's.
    *******************************************************************************}

    procedure SelectEntireInventory;
    begin
    if (InvFull) then
      begin
        MouseItem(1:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(2:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(3:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(4:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(5:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(6:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(7:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(8:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(9:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(10:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(11:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(12:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(13:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(14:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(15:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(16:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(17:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(18:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(19:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(20:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(21:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(22:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(23:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(24:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(25:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(26:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(27:Integer;True:Boolean);
        Wait(97 + Random(782));
        MouseItem(28:Integer;True:Boolean);
        Wait(97 + Random(782));
      end;
    end;

    I think that would work, i have tested it but i keep getting this error:
    Code:
    Line 51: [Error] (15139:12): comma (',') expected in script
    .

    Don't know why! Anyway's, add/modify this into your script but give me some credit's.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Why do you write : MouseItem(27 : Integer; True : Boolean)?

    All you have to write is: MouseItem(27, True) without the type of parameter it is.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    yes and you could also make this much shorter =]

    SCAR Code:
    procedure SelectEntireInventory;
    var
      i : Integer;
    begin
    if (InvFull) then
      for i := 1 to 28 do
      begin
        MouseItem(i, True);
        Wait(97 + Random(782));
      end;
    end;

    but nice job. good idea =]]

  4. #4
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    And its not all that useful as after one is selected the others deselect...
    The truth finally came out...


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Procedure TypeSendRandom & Procedure AutoResponder!
    By Ultra in forum Research & Development Lounge
    Replies: 12
    Last Post: 01-08-2008, 07:04 PM
  2. Replies: 8
    Last Post: 05-24-2007, 11:57 PM
  3. Procedure that calls random procedure?
    By Secet in forum OSR Help
    Replies: 2
    Last Post: 03-03-2007, 03:56 PM
  4. Need another procedure
    By pwnaz0r in forum OSR Help
    Replies: 4
    Last Post: 02-03-2007, 05:10 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
  •