Stealth Client Forum

Code: Select all

program MoveItem_NPC;

{$Include 'all.inc'}

const
NPC = $0E76;    
Items =$1BDD;
Counted = 1;

procedure MoveTM;
   var tmp1 : cardinal;
   begin
   Finddistance := 2;
      waitconnection(3000);
      if Count(Items) < Counted then exit;
      tmp1 := FindType(Items,backpack);
      FindType(Items, Backpack);
      while (Count(Items) >= Counted) do
      begin
         WaitConnection(3000);
         Addtosystemjournal('Open Conteiners');
         wait(1000);
         checksave;
         MoveItem(tmp1,1,NPC,0,0,0);
         Addtosystemjournal('MOVEITEM');
         wait(1000);
         FindType(Items,backpack);
      end;
      Addtosystemjournal('NOT_MOVEITEM');
   end;

Begin
            while true do
            begin
             Finddistance := 2;
             findtype(NPC,ground);
             wait(500);
             if findcount = 0 then
             begin
             Addtosystemjournal('NPC NOT_FINED');
             end;

             if findcount > 0 then
             begin
             wait(100);
             Addtosystemjournal('NPC FINED');
             wait(1000);
             MoveTM;
             end;

            end;

End.