Results 1 to 6 of 6

Thread: fast dropping

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

    Default fast dropping

    I need a fast and undetectible dropping procedure I dont want it to be like this.

    SCAR Code:
    Procedure DropOres;
    var
      i : Integer;
    begin
      if invfull then
      begin
        for i := 2 to 28 do
        begin
          Drop(i);
          Wait(RandomRange(501, 1501));
        end;
      end;
    end;

    I want something way fast.

    Thanks

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

    Default

    Something like this?

    SCAR Code:
    Procedure DropOres;
    var
      X, Y: Integer;
      I : Byte;
     
    begin
      if InvFull then
        for i := 2 to 28 do
          if ExistsItem(I) then
          begin
            MMouseItem(I);
            Wait(150 + random(170));
            if Pos('ore', RS_GetUpText) <> 0 then
            begin
              GetMousePos(X, Y);
              Mouse(X, Y, 0, 0, False);
              ChooseOption('rop');
              FTWait(1 + random(1));
            end;
          end;
    end;


    Fully standardized and working.
    You welcome.

  3. #3
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    EvilChicken, you do know that

    Pos('ore', RS_GetUpText) <> 0

    is exactly the same as
    IsUpText, right?

    and dallas, that's as fast as it gets.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  4. #4
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    No way, Sherlock.

    Pos('ore', RS_GetUpText) <> 0 is just faster. This is the proc that IsUpText calls.

  5. #5
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    which is exactly what i said.

    there's no difference between them.

    so why complicate it for the new scripter?

    edit: actually is up text is a lil different. instead of '<> 0' just uses '> 0'

    which beats your function

    SCAR Code:
    program New;
    var x, i, t:integer;
    begin
    x:= 1;
    t:=GetSystemTime;
    for i:=0 to 9999 do
      if x <> 0 then Continue;
    writeln('x <> 0 took: '+IntToStr(GetSystemTime-t))

    t:=GetSystemTime;
    for i:=0 to 9999 do
      if x > 0 then Continue;
    writeln('x > 0 took: '+IntToStr(GetSystemTime-t))


    end.

    x <> 0 took: 94
    x > 0 took: 78
    btw, this is the kind of tutorial i was talking about.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  6. #6
    Join Date
    Mar 2007
    Posts
    351
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by digbyross View Post
    well well well
    The idea of the 10 posts for SRL section is NOT to make spam ones?

    And yeah, that script that RM posted is fairly fast lol.

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 hardman in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 08-01-2007, 02:47 PM
  3. More dropping help
    By RudeBoiAlex in forum OSR Help
    Replies: 5
    Last Post: 03-06-2007, 04:38 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
  •