Sorted out standards on your script:
SCAR Code:
program Dropper;
{.include SRL\SRL.scar}
var
TheDTM : Integer;
procedure Drop;
begin
TypeByte(VK_BACK);
ClickAllItems('dtm', TheDTM, 'Drop', Random(250), []);
end;
procedure LoadDTM;
begin
TheDTM := DTMFromString('78DA63CC646260B8C3800618E1E47F2060CC0' +
'0AAF9805B0D98AE06AA794E404D2C50CD4B026A92806ADE125093' +
'4E847B8A816A6E1250938CDFEF60BA14A8E6350135D94035EFF1A' +
'B010036CF115F');
end;
begin
SetupSRL;
LoadDTM;
MouseSpeed:= RandomRange(11, 17);
repeat
if (IsKeyDown('-')) then
Drop;
until(False);
end.
A script I just made like this:
SCAR Code:
program Dropper;
{.include SRL/SRL.scar}
var
I, D : Integer;
DD : TIntegerArray;
procedure DontDrop; //Fill in this -------------------------------
begin
DD:= [1]; //Slots to NOT drop
end;
procedure DropAllEx(Skip: TIntegerArray); //Credits to Main_FTW
var
I: Integer;
begin
for I:= 1 to 28 do
if not InIntArray(Skip, I) then
DropItem(I);
end;
procedure Drop;
begin
begin
SetupSRL;
if InvFull then
begin
I:= RandomRange(2500, 7500);
Alert('Dropping in ' + IntToStr(Round(I / 1000)) + ' seconds');
Wait(I);
DropAllEx(DD);
Inc(D);
end;
WriteLn('Dropped ' + IntToStr(D) + 'times.');
end.
Richard