Results 1 to 13 of 13

Thread: Drop Procedure

  1. #1
    Join Date
    Feb 2008
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Drop Procedure

    I need Help Implementing a drop procedure for my auto miner.

    Can Someone Please Help Me.

  2. #2
    Join Date
    Oct 2006
    Posts
    702
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    make a dtm of the item you want to drop. then have the mouse right click it and select drop. or i think thats a drop(2,28) proc in srl?
    "For it is not what goes into your mouth that will defile you; rather, it is what comes out of your mouth that defiles you." - Jesus of Nazareth

  3. #3
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    You can drop by DTM's of similar items...
    Or you can use DropAll;
    Or you can use
    SCAR Code:
    begin
              for i := 2 to 28 do
              begin
                if ExistsItem(i) then
                begin
                  MMouseItem(i);
                  wait(100 + random(50));
                  DropItem(i)
                end;
              end;
            end;
    Eerik.

  4. #4
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    This is the one I always use. It goes through all the inventory slots and if the item exists (as in, is not empty), then it'll go over it and check the uptext to see if it's right.
    SCAR Code:
    procedure DropItems(ItemName: String);
    var
      i: Integer;
    begin
      for i:= 1 to 28 do
      begin
        if(ExistsItem(i)) then
          if(IsUpText(ItemName)) then
            DropItem(i);
      end;
    end;
    ItemName is what you want it to drop and is setup like you do nick (as in, instead of Iron Ore, you would use ron). It should compil
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  5. #5
    Join Date
    Feb 2008
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, Thank all of you for your Help =]
    I'll Try some of those

  6. #6
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    To use DTMs, do this:
    SCAR Code:
    procedure DropDTMs(DTM: Integer);
    var
      I, x, y: Integer;
      B: TBox;
    begin
      for I:= 1 to 28 do
      begin
        B:= InvBox(I);
        if(FindDTM(DTM, x, y, B.x1, B.y1, B.x2, B.y2))then
          DropItem(I);
      end;
    end;
    SHOULD work, just wrote it in this box

  7. #7
    Join Date
    Jul 2007
    Location
    N O R
    Posts
    208
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You could do this:

    Code:
    procedure dropstuff;
    var
      dropmark : integer;
    begin
      marktime(dropmark);
      repeat
        dropall; // or dropto(2, 28);
        wait(100 + random(100));
        if (timefrommark(dropmark) > 60000) then Exit;
      until(InvEmpty);
    end;

  8. #8
    Join Date
    Feb 2008
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok...
    again i will try the choices and see which works best

  9. #9
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    or:

    SCAR Code:
    function DropToCustom(StartSlot, EndSlot : Integer): Boolean;
    var F : Integer;
     begin
      for F := StartSlot to EndSlot do
       DropItem(F);
      end;
     end;

    And do
    SCAR Code:
    DropToCustom(1, 28);

    Or:
    SCAR Code:
    function DropIt(Name : String; StartSlot, EndSlot : Integer): Boolean;
    var F : Integer;
    begin
      for F := StartSlot to EndSlot do
      begin
        if (ExistsItem(F)) then
         begin
          if (IsUpText(Name)) then
          DropItem(F);
          Result := True;
          Writeln('Done Dropping!');
         end;
     end;
    end;

    This is with more sure-ness it'll click the right item.

    Use as
    SCAR Code:
    DropIt('hrimp', 2, 28); //Avoid UPPER CASE in it!
    It'll look for shrimps (raw or cooked) in inv slot 2 to 28, because slot 1 is the net.


    I suck @ standards :P
    Ce ne sont que des gueux


  10. #10
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    @Floor & Mixter: You both forgot that you also have to move the mouse on the item - ever wondered why don't you get anything dropped?

    Floor, your first one wouldn't compile, a for loop doesn't need an end if it hasn't got a begin...

  11. #11
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    I always type it out and always forget something (only checked it compiled). Anyway, you can frogive floor66 as you can tell he just stole mine and added 2 new variables
    SCAR Code:
    procedure DropItems(ItemName: String);
    var
      i: Integer;
    begin
      for i:= 1 to 28 do
      begin
        if(ExistsItem(i)) then
        begin
        MMouseItem(i);
          if(IsUpText(ItemName)) then
            DropItem(i);
        end;
      end;
    end;
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  12. #12
    Join Date
    Apr 2008
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oke :P Now u have enough thinks to choice I think ^^

  13. #13
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by kil8er View Post
    oke :P Now u have enough thinks to choice I think ^^
    Dont Spam. Its not really anything is it. He cant read it anyway. Hes BANNED.
    Jus' Lurkin'

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Drop procedure?
    By iambowling247 in forum OSR Help
    Replies: 16
    Last Post: 12-09-2007, 04:35 PM
  2. Drop Procedure mucking up =[
    By Submersal in forum OSR Help
    Replies: 7
    Last Post: 11-03-2007, 01:14 AM
  3. Easiest Drop procedure lol
    By destroyface in forum Research & Development Lounge
    Replies: 25
    Last Post: 08-31-2007, 09:20 PM
  4. Drop All Procedure?
    By Rune Hacker in forum OSR Help
    Replies: 13
    Last Post: 04-08-2007, 02:11 AM
  5. Drop Procedure
    By TheGodfather in forum OSR Help
    Replies: 6
    Last Post: 02-13-2007, 06:59 PM

Posting Permissions

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