Page 1 of 2 12 LastLast
Results 1 to 25 of 26

Thread: Easiest Drop procedure lol

  1. #1
    Join Date
    Jul 2007
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Easiest Drop procedure lol

    SCAR Code:
    procedure Drop;
    begin
    DropTo(2,28);
    end;

    lol

  2. #2
    Join Date
    Jun 2007
    Location
    New Yawk
    Posts
    943
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This isn't a procedure that people would use. Sorry, there's just no point.
    I guess the holidays are over - no sig for now.

  3. #3
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ah that one has no fail safes and it will drop everything except the first inventory slot...

    I made one that drops DTM items...

    SCAR Code:
    //Just change out the DTM = )
    Procedure Drop;
    begin
    repeat
    wait(100+Random(500))
    if FindDTM(JugInv,x,y, MIX1, MIY1, MIX2, MIY2)then
      MMouse(x,y,2,2)
      wait(500)
      if (IsUpText('Jug'))then
        Mouse(x,y,3,2,false)
        ChooseOption(x,y,'Drop')
    until(CountItemDTM(JugInv) < 1) or (CountItemDTM(JugInv) = 0)
    end;

    ~Stupedspam

    Oh, Sorry I missed that... Thanks Santa Edited

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

    Default

    SCAR Code:
    (CountItemDTM(JugInv) > 1)

    Erm...that would stop repeating when there's more than one DTM of the Jug left...which is basically how it is before it drops anything.

    I think you meant:

    SCAR Code:
    (CountItemDTM(JugInv) < 1)

    which basically means 0...
    [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]

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

    Default

    excsuse my noob question but what does DTM stand for. And is there an easy list of runescape functions anywhere... Like makecompas(N) or whatever... I've been reading scripts but not really understanding them. I've made a few myself using only SCAR functions like clickmousebox, movmousebox, FindColorTolerance, wait, and stuff like that. Ive made a function to burn all my willow logs ininvantory if nothing is in the way stopping me saying I can't light a fire there.

    I know I'm a noob to scar programs... but I graduated college with a computer science major. Could someone tell me where all the functions are defined? I jsut hate how people don't comment their code.

  6. #6
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    4,163
    Mentioned
    9 Post(s)
    Quoted
    19 Post(s)

    Default

    DTM means Deformable Template Model. And yeh for a whole thing of SRL Functions, check out scar/includes/srl/srl. in core is where all the main functions are, skill is skill related and misc is for stuff that doesnt fit anywhere else. extended is just old stuff i think.

  7. #7
    Join Date
    Apr 2007
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I good drop procedure in my opinion would be one that has all the common drop items (logs, ores, shrimp) inbuild as DTM's and all you would have to do is something like this:

    SCAR Code:
    if (InvFull) then
      DropItem('log');

    It would be pretty simple but useful to most powerminers, chopppers, fishers, etc.

  8. #8
    Join Date
    Sep 2006
    Posts
    457
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    your an idiot. Sorry to be harsh but what a waste of time
    Finished my curser ---> it's in mage section.

  9. #9
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    SCAR Code:
    function Drop:boolean;
    var
      i:Integer
    begin
      for i := 1 to 28 do
      begin
        TB := InvBox(i);
          if FindColor(65536, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
          begin
            MouseItem(i, False);
            ChooseOption('Drop');
            Wait((250) + Random(150));
          end;
        end;
    end;
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  10. #10
    Join Date
    Jun 2007
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    SCAR Code:
    function Drop:boolean;
    var
      i:Integer
    begin
      for i := 1 to 28 do
      begin
        TB := InvBox(i);
          if FindColor(65536, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
          begin
            MouseItem(i, False);
            ChooseOption('Drop');
            Wait((250) + Random(150));
          end;
        end;
    end;
    that doesnt work you get an error

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

    Default

    What's the error?
    [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]

  12. #12
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by hbryan1991 View Post
    that doesnt work you get an error
    Yeah could be. I just typed it inside the reply box. Didnt test it . Just to show you how easy it is to make your own custom dropper.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

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

    Default

    What exactly is MouseItem?
    [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]

  14. #14
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by SantaClause View Post
    What exactly is MouseItem?
    Clicks Mouse on Item in inventory.

    I see the error now. You need to declare x and y inside the function...

    var
    x, y:Integer;
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  15. #15
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Here View Post
    This isn't a procedure that people would use. Sorry, there's just no point.
    Umh sorry to say this but members would use this... like for fletching u chop a tree and u make it to a bow and then use a auto dropper wich i need now but none here works...

  16. #16
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yanix lol none works lol maybe your srl or your scar doesnt work...
    ~Hermen

  17. #17
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by Here View Post
    This isn't a procedure that people would use. Sorry, there's just no point.
    All Power........ scripts use Dropto, or DropAll, lol. So basically all scripts that dont bank drop. Very usefull.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  18. #18
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    haha Here got owned :P

    Yeah, that is the easiest DropProcedure, but very basic.

    And stupidspam, that code will drop from column 1 down, then move on to column 2, etc...

  19. #19
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here didn't get owned. Shes right. It's useless. Instead of calling Drop; just call the DropTo(2, 28); instead. Only retards have procedures with 1 line of code and no parameters or return results.

  20. #20
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    Me Droper
    SCAR Code:
    // Drops All My Rocks And Uncuts...
    procedure DropAllOre;
    var
       i, Count, Slot, Row, Ix, Iy : Integer;
       Drop : Boolean;
    begin
    if Players[CurrentPlayer].Active then
      for i := 0 to 27 do
      begin
       if (not(LoggedIn)) then Break;
        Slot := I mod 4;
        Row := I / 4;
        IX := 560 + (Slot * 42);
        IY := 210 + (Row * 36);
         Count := CountColor(65536, IX, IY, IX + 41, IY + 35);
           if (Count = 171) or (Count = 66) then
           begin
             MMouse(Ix + 15, Iy + 15, 7, 7);
             Wait(80 + Random(20));
             Drop := IsUpText('ncut') or IsUpText('ore');
           end;
            if (Drop) then
            begin
              GetMousePos(Ix, Iy);
              Mouse(Ix, Iy, 0, 0, False);
              if (not(ChooseOption('rop'))) then ChooseOption('ancle');
              Drop := False;
           end;
      end;
    end;
    Co Founder of https://www.tagcandy.com

  21. #21
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sky, you spelt cancel wrong.

  22. #22
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    Sky, you spelt cancel wrong.
    Lol, yeah.. thanks

    didnt notice that =/
    Co Founder of https://www.tagcandy.com

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

    Default

    What the heck is wrong with SKy's dropper?! Why would you make it so complicated?
    [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]

  24. #24
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by SantaClause View Post
    What the heck is wrong with SKy's dropper?! Why would you make it so complicated?
    well all it does it get the count of the black around the item and then drop's it depending on the count...
    i didnt make complicated on purpose lol?
    Co Founder of https://www.tagcandy.com

  25. #25
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    4,163
    Mentioned
    9 Post(s)
    Quoted
    19 Post(s)

    Default

    SCAR Code:
    begin
        SetArrayLength(FishToDrop, 10);

        FishToDrop[0] := ShrimpBmp;           //shripm
        FishToDrop[1] := SardineBmp;          //sardine
        FishToDrop[2] := HerringBmp;          //herring
        FishToDrop[3] := AnchoviesBmp;        //anchovy
        FishToDrop[4] := TroutBmp;            //trout
        FishToDrop[5] := PikeBmp;             //pike
        FishToDrop[6] := SalmonBmp;           //salmon
        FishToDrop[7] := TunaBmp;             //tuna
        FishToDrop[8] := LobsterBmp;          //lobster
        FishToDrop[9] := SwordfishBmp;        //swordfish

        for F:= 0 to 9 do
        begin
          MarkTime(DroppingSingleFish);
          Writeln('Dropping: ' + IntToStr(F));
          repeat
            if not LoggedIn then Break;
            FindRandoms;
            ClickAllItemsBmpTolWait(FishToDrop[F], 'rop', 30, (300 + Random(300)));
          until (TimeFromMark(DroppingSingleFish) > 60000) or (not FindBitmapToleranceIn(FishToDrop[F], Rx, Ry, MIX1, MIY1, MIX2, MIY2, 40));
        end;
      end;

    Declare the bitmaps elsewhere in your script, and this will drop every bitmap in the array FishToDrop.

    SCAR Code:
    begin
        SetArrayLength(PlzDontDropMe, 7);

        PlzDontDropMe[0] := SmallNetBmp;      //small net
        PlzDontDropMe[1] := FishingRodBmp;    //fishing rod
        PlzDontDropMe[2] := FlyFishingRodBmp; //fly fishing rod
        PlzDontDropMe[3] := HarpoonBmp;       //harpoon
        PlzDontDropMe[4] := CageBmp;          //cage
        PlzDontDropMe[5] := BaitBmp;          //bait
        PlzDontDropMe[6] := FeatherBmp;       //feathers

        for I := 1 to 28 do
          if ExistsItem(I) then
          begin
            P := InvBox(I);
            DropIt := True;
            for C := 0 to 6 do
            begin
              if FindBitmapToleranceIn(PlzDontDropMe[C], Rx, Ry, P.X1, P.Y1, P.X2, P.Y2, 40) then
              begin
                DropIt := False;
                Break;
              end;
            end;
            if DropIt then
            begin
              Mouse((P.X1 + P.X2) div 2, (P.Y1 + P.Y2) div 2, 5, 5, False);
              Wait(100 +Random(100));
              ChooseOption('rop');
            end;
          end;
          Wait(50 +Random(75));
      end;

    This will drop everything in your inventory apart from the bitmaps in the array PlzDontDropMe.

    Sorry about the fishing related bitmaps and names, I pulled this straight out of my fisher.

Page 1 of 2 12 LastLast

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. 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
  •