SRL Archive - SRL Archives

Procedure DropItemsWithName(Name:TStringArray);
var
  I:Integer;
  TP:Tpoint;
begin
  For I:=1 to 28 do
  If ExistsItem(I) then
  begin
    TP:=ItemCoords(I);
    MMouse(Tp.x, Tp.y, 2, 2);
    If IsUpTextMultiCustom(Name) then
    begin
      MouseItem(I, False);
      Wait(200+Random(50));
      ChooseOption('rop');
    end;
  end;
end;

FeedBack anyone?

Edit:

Procedure DropItemsWithName(Name:TStringArray);
var
  I:Integer;
  TP:Tpoint;
begin
  List[1, 2, 3, 4, 8, 7, 6, 5, 9, 10, 11, 12, 16, 15, 14, 13,
       17, 18, 19, 20, 24, 23, 22, 21, 25, 26, 27, 28];
  For I:=1 to 28 do
  If ExistsItem(List[I]) then
  begin
    MMouseItem(List[I]);
    If IsUpTextMultiCustom(Name) then
    begin
      MouseItem(List[I], False);
      Wait(200+Random(50));
      ChooseOption('rop');
    end;
  end;
end;

More human

procedure DropItemsWithName(Name: TStringArray);
var
  X, Y: Integer;
  I: Byte;
  
begin
  for I:= 1 to 28 do
    if ExistsItem(I) then
    begin
      MMouseItem(I);
      If IsUpTextMultiCustom(Name) then
      begin
        GetMousePos(X, Y);
        Mouse(X, Y, 0, 0, False);
        Wait(175 + Random(175));
        ChooseOption('rop');
      end;
    end;
end;

Nothing much to comment on, I would work on my standards if I were you ..
Don't capitalize bold words in SCAR, for instance.



Edit: There is no real difference between your first and second function btw ..

How is that more human?

it does in a different order

Uhh. It still goes from 1 to 28?

EDIT: See it now. I gotcha.