well, to go ahead and nip 1 problem in the bud..
SCAR Code:
procedure DropDe(f,t: integer);
var Hmm: integer;
begin
Hmm := MouseSpeed;
MouseSpeed := 25+Random(7);
for i := f to f do
DropeItem(i);
WriteLn('All Dropped!');
MouseSpeed := Hmm;
end;
won't work
SCAR Code:
procedure DropDe(f,t: integer);
var Hmm: integer;
begin
Hmm := MouseSpeed;
MouseSpeed := 25+Random(7);
for i := f to t do //small problem was going from f to f... = just dropeitem haha
DropeItem(i);
WriteLn('All Dropped!');
MouseSpeed := Hmm;
end;