Results 1 to 4 of 4

Thread: auto dropper need help

  1. #1
    Join Date
    Jan 2007
    Location
    new zealand
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default auto dropper need help

    this is one of my first proper attempts at a script i have a simple suto miner that dose work and i was trying to make a auto dropper i could merge with it but this isnt working it compile succefully but whne i run the script it dosent do anything my mouse just sits there.Any help would be much appreciated.

    program AutoDropper;

    var
    x,y: integer;
    ore: integer;
    drop: integer;

    procedure loadBMPS;
    begin
    ore:= BitmapFromString(12, 10, 'z78DA9552D18EC42008FCA50146C5' +
    'C7AEEDFEFF271D55BBF1B2DDCB2D266840C661040813743F3 683C' +
    '61A11079BE250879583AEE647759A8F34366DF326A4421554 F815' +
    '594CF0A74515348D7306691A3E78FC46606C1E796D2B66223 77B8' +
    'C08FB9D89F34CD5F6E1579CCA24D10672B06DAD98E91B0E72 E10B' +
    'BF60A0AED8531957E97CD050AA31BC5BFAD4A35BAEF4DEDF4 D366' +
    'AA3DF035DE153ED77DDE6D9737E7073CF3BDB649EB9737421 2D43' +
    '0C4FF1ED7AC58A1CD8454F011D49F513C3894F50EFE31AF33 1528' +
    '1F3FAE5655A2EE5994E8141B9FBFE6016B51DA1FC6736BEB5 1F6D' +
    '958CCC');

    drop:= BitmapFromString(20, 11, 'z78DA33753135313137A523690006' +
    '10B61B18208B0C94BDB47303F1F6BA21016413DC3000A62D9 8B2A' +
    '4DA6B800430C5314DC0254B9EBD987E198AF61AE00098B2B8 D209' +
    '7EBFE052430B125728D1DA5E5CBE3318500000D9141BC6');

    end;

    procedure UseBitmaps;
    begin
    if(findbitmap(ore,x,y))then
    begin
    MoveMouseSmoothEx(x,y+random(4),20,40,45,25,20);
    Wait(1000+random(100));
    ClickMouse(x,y,false);
    end;
    end;

    procedure droper;
    begin
    if(findbitmap(drop,x,y))then
    begin
    MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
    Wait(1000+random(100));
    ClickMouse(x,y,true);
    end;
    end;

    begin
    repeat
    wait(1000)
    loadBMPS
    UseBitmaps
    Droper
    until(false)
    end.

  2. #2
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Don't use this script.

    It looks like you got the idea of how to set it up, but please before you do anything else, use SRL. Looking in mouseflag.scar for the mouse commands, such as mmouse and mouse.

    Also look in inventory.scar for useitem, and the dtm and bitmap finding within the inventory.

    If it just sits there it probably didn't find the bitmaps because colors change. Read a DTM tut (yohojo's) and make a DTM of the ore, using only the black (65536) outline because that never changes.

    Now you can use finddtm to find the ore in the inventory, see example in wetclay below. Then you need to know which inventory spot it is in. Use CoordsToInvSpot for this. You put in the answer you get from finddtm, and it gives you a number 1-28 for the inventory spots. This number can be used by MouseItem, see inventory.scar. You give mouseitem the number and false to make it right click the ore. Now look in text.scar for something that clicks the option drop.

    SCAR Code:
    //Oppposite of itemcoords
    function CoordsToInvSpot(gx,gy:integer):integer;
    var col,row:integer;
    begin
    if ((gx>569) and(gx<600)) then col:=1;
    if ((gx>611) and(gx<642)) then col:=2;
    if ((gx>653) and(gx<684)) then col:=3;
    if ((gx>695) and(gx<723)) then col:=4;

    if ((gy>213) and(gy<244)) then row:=1;
    if ((gy>249) and(gy<280)) then row:=2;
    if ((gy>285) and(gy<316)) then row:=3;
    if ((gy>322) and(gy<352)) then row:=4;
    if ((gy>357) and(gy<387)) then row:=5;
    if ((gy>393) and(gy<424)) then row:=6;
    if ((gy>429) and(gy<459)) then row:=7;

    result:=((row-1)*4)+col;
    end;


    procedure WetClay;
    var ex,ey:integer;
    begin
      clickwell;
      repeat

      finddtm(dtmbucket,ex,ey,554, 205, 743, 465);
      useitem(coordstoinvspot(ex,ey+10));
      wait(200+random(100));
      finddtm(dtmclay,ex,ey,554, 205, 743, 465);
      useitem(coordstoinvspot(ex,ey));
      claymade:=claymade+1;
      players[currentplayer].integer1:= players[currentplayer].integer1+1;
      setjug;
      filljug;
      until (countitemdtm(dtmclay)=0);
    end;

  3. #3
    Join Date
    Jan 2007
    Location
    new zealand
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanxs for help but i dont know how to add coordstoinvspot in to my script i have taken your advice and made dtms of the ore.

  4. #4
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    ok make it one the first functions, just after your variables and consts

    then look in inventory.scar. you see anything that needs the number of an inventory spot (1-28), and you know the coords of an item, but dont know which spot it is in, stick coordstoinvspot(x,y) where the invspot should be

    like this

    useitem(coordstoinvspot(ex,ey+10));

    (the +10 was because the parent dot of the dtm was at the top, so i wanted to make sure it was near the middle of the invspot)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Auto Dropper
    By Oranges_Exist in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 05-10-2008, 10:33 PM
  2. Auto Dropper Help
    By lilmike in forum OSR Help
    Replies: 3
    Last Post: 09-04-2007, 11:22 PM
  3. Auto dropper
    By e370 in forum OSR Help
    Replies: 1
    Last Post: 07-25-2007, 07:29 PM
  4. auto dropper
    By Flame Guard in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 06-13-2007, 02:18 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
  •