Stealth Client Forum

Code: Select all

Program cut_bint; 

VAR 
  Tryapki: Cardinal; 

BEGIN 
  AddToSystemJournal('Запускаю макрос...'); 
  Wait(1000); 
  UOSay(Chr(39)+'resend'); 
  Wait(5000); 
  UseObject(Backpack); 
  Wait(1000); 
 UOSay(Chr(39)+'pc net message off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net charitem off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net worlditem off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net speech off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net sound off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net move off'); 
 Wait(500); 
  AddToSystemJournal('Макрос готов к работе.'); 
  FindType($0F95, backpack); 
      while FindQuantity > 0 do 
      begin 
        if FindType($0F95, backpack) = -1 then useobject(backpack); 
        Tryapki := finditem; 
        FindType($0F9E, backpack); 
        WaitTargetObject(Tryapki); 
        UseObject(finditem); 
        Wait(3100); 
        FindType($0F95, backpack); 
      end; 
      while true do 
      begin 
        if FindType($1766, backpack) = -1 then useobject(backpack); 
        Tryapki := finditem; 
        FindType($0F9E, backpack); 
        WaitTargetObject(Tryapki); 
        UseObject(finditem); 
        Wait(3100); 
      end; 
END.

Code: Select all

program stealing;
// v.2.01b (зделан (с)proZak- под шард AoP) 

{$Include 'all.inc'}

var my_timer: Integer; 
    item_type : Word;  
    time_begin : TDateTime;
    EnemyWarrior : Cardinal; 

const
pack = $63F5A113;   // ID бекпака чара у которого воруем 
EnemyType1 = $0190;         // типы чаров разных полов 
EnemyType2 = $0191;
Bint= $0E21;   // тип воруемого предмета

   function AutoFindEnemy : Cardinal; 
   // функция поиска чаров рядом для определения жертви 
   // Возвращает сериал жертви. 
   begin 
      Finddistance := 1; 
      Ignore(self); 
      if FindType(EnemyType1, Ground) = 0 then FindType(EnemyType2, Ground); 
      if finditem = 0 then 
      begin 
         // не нашли врагов :( 
         AddToSystemJournal('Error: жертва не найдена!'); 
         Result := $00000000; 
          Exit; 
       end 
      else 
      begin 
         // Ага! Вот он, гадина! 
         AddToSystemJournal('Enemy found: ' + GetName(finditem)); 
         Result := finditem; 
      end; 
   end; 

Begin

ClearJournal; 
SetWarMode(false); 
SetARStatus(true); 
if not connected then connect; 

repeat 

   while (dead = false) and (connected = true) do 
        begin
          EnemyWarrior := AutoFindEnemy; 
          if EnemyWarrior = $00000000 then exit
          UseObject(EnemyWarrior); 
          wait(1000); 
          checksave;
          UseObject(pack); 
          wait(1000); 
          checksave;
          begin
          waitconnection(3000); 
     CheckSave; 
     UseSkill('Stealing'); 
     WaitTargetObject(Bint); 
     wait(10000);  
          end;  
        end;
      wait(500); 
      if dead then 
      begin 
      AddToSystemJournal('Умерли'); 
      SetARStatus(false); 
      Disconnect; 
      Exit;
      end;

until false;
   
End.

Code: Select all

 UseSkill('Stealing'); 
     waitTargetType(Bint); 
     wait(10000); 

Code: Select all

   UseObject($7013F91B); // Открываю контейнер куда збрасуем бинты 
   FindType($0E21, backpack, 0, 0, 0); // ищем нужный предмет 
   if FindCount > 0 then // если нашли - перемещаем 
   MoveItem(FindItem, 0, $7013F91B);

Code: Select all

FindType($0E21, backpack, 0, 0, 0); // ищем нужный предмет