Results 1 to 4 of 4

Thread: Help with dropping

  1. #1
    Join Date
    Dec 2007
    Posts
    108
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with dropping

    Can someone fix my dropping procedure please it dosen't work
    It is dropping willow logs


    SCAR Code:
    Procedure Droplogs;
    var
      X, Y: Integer;
      I : Byte;

    begin
        if InvFull then
        for i := 2 to 28 do
          if ExistsItem(I) then
          begin
            MMouseItem(I);
            Wait(10 + random(7));
            if Pos('log', RS_GetUpText) <> 0 then
            begin
              GetMousePos(X, Y);
              Mouse(X, Y, 0, 0, False);
              ChooseOption('rop');
              Wait(10 + random(7));
            end;
          end;
         Dropped := Dropped + 1;
    end;

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    It compiles for me - just declare Dropped as a global var.

    SCAR Code:
    program New;
    {.include srl/srl.scar}

    var dropped: integer;

    Procedure Droplogs;
    var
      X, Y: Integer;
      I : Byte;

    begin
      if InvFull then
        for i := 2 to 28 do
          if ExistsItem(I) then
          begin
            MMouseItem(I);
            Wait(10 + random(7));
            if isUptext('log') then
            begin
              GetMousePos(X, Y);
              Mouse(X, Y, 0, 0, False);
              ChooseOption('rop');
              Wait(10 + random(7));
            end;
          end;
      Dropped := Dropped + 1;
    end;

    begin
      setupsrl;
      droplogs;
    end.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well I would use IsUpText('log') rather than Pos('log', RS_GetUpText). Make sure that the L in log isn't capitalized in the game, otherwise capitalize it in the function. And just another thing, I would make your waits bigger because 10-17 milliseconds is really really fast. I mean Wait(50+random(25)) is a pretty dang short one. Remember that 1000 milliseconds = 1 second. You are doing a 0.010 to 0.017 second wait lol.

  4. #4
    Join Date
    Dec 2007
    Posts
    108
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm using this


    SCAR Code:
    Procedure Droplogs;
    var
      X, Y: Integer;
      I : Byte;

    begin
      if InvFull then
     for I := 2 to 28 do
                  if ExistsItem(I) then
                   DropItem(I);
         Dropped := Dropped + 1;
            end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with dropping.
    By Lancelot074 in forum OSR Help
    Replies: 8
    Last Post: 02-19-2008, 11:13 PM
  2. Dropping By DTM
    By ammo2006 in forum OSR Help
    Replies: 2
    Last Post: 09-17-2007, 12:11 AM
  3. Dropping
    By hardman in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 08-01-2007, 02:47 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
  •