Stealth Client Forum

Code: Select all

program tmpMove;

var 
tmpItem, tmp Container : Cardinal;
tmpCount, tmpQuantity : Integer;

function GetTmpItemInfo : Cardinal;
  begin
    UOSay(',info');
    WaitForTarget(5000);
    if TargetPresent then
       begin
          repeat
             wait(300);
          until not TargetPresent;
      Result := тут элемент из ID;      
 end;

function FindCountTmpItem(tmpItem : Cardinal, ContainerFrom : Cardinal) : Integer;
   begin
       FindType(GetType(tmpItem), ContainerFrom);
       if FindCount > 0 then Result := FindCount;
   end;

      

begin
   AddToSystemJournal('Choose Container From');
   tmpContainerFrom := GetTmpItemInfo;
   Wait(1500);
   AddToSystemJournal('Choose Item');
   tmpItem := GetTmpItemInfo;
   Wait(1500);
   AddToSystemJournal('Choose ContainerTo');
   tmpContainerTo := GetTmpItemInfo;
   while FindCountTmpItem(tmpItem, ContainerFrom) > 0 do
       begin
           MoveItem(tmpItem, 0, tmpContainerTo, 0,0,0);
           Wait(1500);
       end;           
end.