Adblock breaks this site

Good, Decent Speed, Full Inventory, Auto Dropper

Discussion in 'Script Requests' started by h4cker18, Oct 22, 2007.

  1. h4cker18

    h4cker18 Guest

    Referrals:
    0
    Good, Decent Speed, Full Inventory, Auto Dropper

    Im looking for a free decent speedfull inventory auto dropper ^.^


    The sticky basically says do wut u can 2 find the script b4 u post and i searched for 2 hours straight before now so i think i should be ok 2 post a request thank you

    i really want 1 someone + it must work and end correctly
     
  2. the scar noob

    the scar noob Forum Addict

    Joined:
    Jan 21, 2007
    Posts:
    620
    Referrals:
    0
    Sythe Gold:
    0
    Good, Decent Speed, Full Inventory, Auto Dropper

    The Script:

    READ the informations in the script, they are important!
    To be sure, I will paste them even over here..

    Fill in the two constants ("fromslot" and "toslot") to tell the script
    were to start dropping :) and also constant repeatx (information below)

    {Information about repeatx:
    true: the script "waits" until you have pressed the F5-key.
    When your want to drop again, just simply press F5 again..
    Press F10 to terminate the script.

    false: you run the script, script drops stuff and will terminate after
    it's done.}


    Code:
    program New;
    {.include srl/srl.scar}
    
    {
    Script made by The Scar Noob in 5 minutes of work.
    Instructions:
    Fill in the two constants ("fromslot" and "toslot") to tell the script
    were to start dropping :)
    
    1-2-3-4
    5-6-7-8
    .......
    }
    
    const
      fromslot = 1;//from slot nr
      toslot = 28;//to slot nr
      repeatx = true;
    {Information about repeatx:
      true: the script "waits" until you have pressed the F5-key.
      When your want to drop again, just simply press F5 again..
      Press F10 to terminate the script.
    
      false: you run the script, script drops stuff and will terminate after
      it's done.}
    
    
    procedure Drop;
    var
      x, y :integer;
      dropped, i: integer;
      TB: TBox;
    begin
      if not(LoggedIn)then Exit;
      GameTab(4);
      for i:= fromslot to toslot do
      begin
        TB:= InvBox(i);
        if ExistsItem(i) then
        begin
          Mouse(x, y, 2, 2, False);
          Wait(200+random(50));
          ChooseOption('rop');
          Inc(Dropped);
        end;
      end;
      ClearDebug;
      Writeln('/---------- Drop Information ----------\');
      Writeln('/----------                  ----------\');
      Writeln('/---------- Dropped '+inttostr(Dropped)+' items ----------\');
      Writeln('/----------                  ----------\');
      Writeln('/---------- Drop Information ----------\');
    end;
    
    
    procedure DoAll;
    begin
      if repeatx then
      begin
        repeat
          if IsFKeyDown(5) then Drop;
        until IsFKeyDown(10)
      end else
      begin
        Drop;
      end;
    end;
    
    
    begin
      setupsrl;
      DoAll;
    end.
    I didn't tested it, but I'm sure it works:p
    Bye, g2g eat,

    -Tsn.
     
  3. h4cker18

    h4cker18 Guest

    Referrals:
    0
    Good, Decent Speed, Full Inventory, Auto Dropper

    hmmm tested.... it compiles but doesnt do didily squat at all
     
  4. the scar noob

    the scar noob Forum Addict

    Joined:
    Jan 21, 2007
    Posts:
    620
    Referrals:
    0
    Sythe Gold:
    0
    Good, Decent Speed, Full Inventory, Auto Dropper

    you have to drag crosshair, rune 32 bit TRUE color, low detail at rs etc
    ^^i see the problem, i forgot ItemCoords(i); XD, however, this is shortened..

    Try this one, HAS to work, just tried it out :p

    Code:
    program New;
    {.include srl/srl.scar}
    
    {
    Script made by The Scar Noob in 5 minutes of work.
    Instructions:
    Fill in the two constants ("fromslot" and "toslot") to tell the script
    were to start dropping :)
    
    1-2-3-4
    5-6-7-8
    .......
    }
    
    const
      fromslot = 6;//from slot nr
      toslot = 28;//to slot nr
      repeatx = false;
    {Information about repeatx:
      true: the script "waits" until you have pressed the F5-key.
      When your want to drop again, just simply press F5 again..
      Press F10 to terminate the script.
    
      false: you run the script, script drops stuff and will terminate after
      it's done.}
    
    
    procedure Drop;
    var
      x, y :integer;
      dropped, i: integer;
      TB: TBox;
    begin
      if not(LoggedIn)then Exit;
      GameTab(4);
      for i:= fromslot to toslot do
      begin
        DropItem(i);
      end;
      ClearDebug;
      Writeln('/---------- Drop Information ----------\');
      Writeln('/----------                  ----------\');
      Writeln('/---------- Dropped '+inttostr(Dropped)+' items ----------\');
      Writeln('/----------                  ----------\');
      Writeln('/---------- Drop Information ----------\');
    end;
    
    
    procedure DoAll;
    begin
      if repeatx then
      begin
        repeat
          if IsFKeyDown(5) then Drop;
        until IsFKeyDown(10)
      end else
      begin
        Drop;
      end;
    end;
    
    
    begin
      setupsrl;
      DoAll;
    end.
    -Tsn.
     
  5. h4cker18

    h4cker18 Guest

    Referrals:
    0
    Good, Decent Speed, Full Inventory, Auto Dropper

    mk.......

    i used that code and all it does is freezes mi comp for a few seconds and then drops 3 of mi ores
     
  6. h4cker18

    h4cker18 Guest

    Referrals:
    0
    Good, Decent Speed, Full Inventory, Auto Dropper

    kk never mind i didnt see the fromto. vars.... and ummm how do i speed it up... like the drop speed?



    SHOOT SRRY FOR THE DOUBLE POST I DIDNT MEAN 2 >.<
     
< Requesting a "Power Chopper" | edgevillie yew cutter and banker >


 
 
Adblock breaks this site