Results 1 to 7 of 7

Thread: Drop Procedure

  1. #1
    Join Date
    Jan 2007
    Posts
    248
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Drop Procedure

    Alright, I'm getting very discouraged for some stupid reason.
    I had this script for a week, and I'd use it to drop my iron when I was too lazy. It was workin fine until 1 day it decided not to work correctly. Wonder why.
    SCAR Code:
    // Drops all iron ores inside an inventory
    program DropIron;
    {.include SRL/SRL.scar}
    var Iro,drop,x1,y1,x2,y2: integer;
    Procedure ClickHuman(x,y: integer; Left: Boolean);
    begin
    HoldMouse(x,y,left);
    Wait(15+random(15))
    ReleaseMouse(x,y,left);
    end;
    procedure loadBitDTM;
    begin
    drop := BitmapFromString(14, 8, 'z78DA33753135313177C3014CC' +
           '1B298247EF5C82206480097C9C4A8C754834B2FF1E243C54C626C' +
           '21C63D98B64048031C809838C2A59E1812BFAB20240010BE9F4F');

    Iro := DTMFromString('78DA635CC8C4C020CAC8800C7CF494C0344C9' +
           '47131500D17AA1A1305095435CB8850B31CA84600550D4C16AE66' +
           '01508D1401354B806A2409A8598E698EA592348A1A00FDD10713');
           end;

    Procedure DropOre;

    begin
    FindDTM(Iro,x1,y1,560,210,730,460);
    MMouse(x1,y1,4,4);
    ClickHuman(x1,y1,false);
    FindBitmap(drop,x2,y2);
    MMouse(x2+6,y2+3,4,4);
    ClickHuman(x2,y2,true);
    end;
    begin
    setupsrl;
    ActivateClient;
    MouseSpeed:= 8;
    repeat DropOre;
    until not(FindDTM(Iro,x1,y1,50,210,730,460));
    end.

  2. #2
    Join Date
    Jan 2007
    Posts
    834
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You could just use the srl procedure dropall; ,its the same thing as yours but it drops your whole inventory.

  3. #3
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    or if pick is not weilded, you could use DropTo(2,28); and just have pick in first inventory slot.

  4. #4
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    try bitmapmask

    bitmapToleranceIn... to add the tolerance to the bitmap.

    remake the DTM with more area for each spot you pick and 3-5 tol...
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  5. #5
    Join Date
    Jan 2007
    Posts
    248
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well all these answers didnt help me a bit.

  6. #6
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Maybe you should use the function ClickAllItemsBmpTolWait(); it clicks all items of the BMP you selected and chooses the option you want.
    Administrator's Warning:


  7. #7
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    opps forgot bout that one
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

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