SCAR Code:
program New;
{.include SRL/SRL.scar}
var i,DroppedTot: integer;
{*******************************************************************************
procedure DropeItem(i: Integer);
By: Lorax / Hy71194 made quicker
Description: Drops item at given position (1-28)
*******************************************************************************}
function DropeItem(i: Integer): Boolean;
var
Pr: TPoint;
begin
GameTab(4);
if ExistsItem(i) then
begin
Pr := ItemCoords(i);
Mouse(Pr.x, Pr.y, 8, 8, False);
Wait(50 + Random(75));
if (ChooseOption('rop')) then
begin
Result := True;
Wait(10 + Random(50));
end;
end;
end;
procedure Proggy;
begin
ClearDebug;
WriteLn('Dropped '+Inttostr(DroppedTot)+' loads of stuff.');
end;
procedure DropDe;
var Hmm: integer;
begin
Hmm := MouseSpeed;
MouseSpeed := 25+Random(7);
for i := 2 to 28 do
DropeItem(i);
WriteLn('All Dropped!');
MouseSpeed := Hmm;
Inc(DroppedTot);
Proggy;
end;
begin
SetupSRL;
Proggy;
Wait(250+Random(250));
repeat
if InvFull then
DropDe;
Wait(500+Random(500));
until(False);
end.
Just change the 'for i := 2 to 28 do' to whatever slots you wanna drop from.