Stealth Client Forum

Code: Select all

program ttt;

begin
FindDistance := 6; 
 if FindType($182B, backpack) > 0 then
  begin
  AddToSystemJournal('Берем шринку на курсор'); 
      DragItem(finditem,10); 
      DropItem((FindType($003B, ground)),0,0,0);
end;
end.

Code: Select all

Moveitem($182B, 0, $003B, 0, 0, 0);

Code: Select all

program ttt;
const
dragon =$003B; 

VAR 
Item: array [0..1] of integer; 
ItemID: Cardinal;
s: integer;


procedure yyy;
....
 for s := 0 to 1 do 
     begin  
 if FindType(Item[s], backpack)> 0 then
      begin 
    while FindType(Item[s], backpack) <> 0 do
    begin  
    ItemID := finditem;
      Moveitem(ItemID, 0, (FindType($003B, ground)), 0, 0, 0);
      
       end;
      end;
     end;
...

BEGIN

Item[0] := $182B;
Item[1] := $1844;
...