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

 

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
Bye, g2g eat,

-Tsn.

 

hmmm tested.... it compiles but doesnt do didily squat at all

 

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

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.

 

mk.......

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

 

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