Суббота, 25.01.2025, 02:13 Приветствую Вас Гость


Ultima-Online (AoP)

Главная | Регистрация | Вход | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Item Identification
imbaqДата: Среда, 12.03.2008, 01:04 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 52
Репутация: 1
Статус: Offline
Собствено тут вам нада токо поменять аиди волыны на которои вы будете качатсоd в етом куске:
Code
WaitTargetObject($6FCBDB4D); // ID вещи

Code
Program ItemID;  
var t : Integer;  

{$Include 'all.inc'}  

Begin  
SetARStatus(true);  
Hungry(1,backpack);  
clearjournal;  
while not Dead do  
  begin  
   if Connected then  
   begin  
    for t := 0 to 10 do  
    begin  
         if TargetPresent then CancelTarget;  
         CheckTargetError(2,2);  
         CheckSave;  
    UseSkill('item identification');  
    WaitTargetObject($6FCBDB4D); // ID вещи  
    Wait(10000);  
    end;  
    Hungry(1,backpack);  
    end;  
  end;  
End.
 
  • Страница 1 из 1
  • 1
Поиск: