Авторизация  
Arioh

Алхимия

В теме 5 сообщений

Скрипт переделан из чего-то, на скорую руку. На авторство не претендую, цель выполняет, пустые кеги в пак с регами. Сделать одну банку ручками, чтоб потом работало по ласт мейк. Указать type регов.

program Carpentry; 

const
Logs          = $0F88; // тайп логов
LogsColor     = $0000; // цвет логов
JointingPlane = $1849; // тайп инструмента

Trash         = $432C93D2;  //айди мусорки

MakeOne = '1025';  //настройка первого меню
MakeTwo = 'Kite Shield';  //настройка второго меню

TypeItem     = $0E8A;     // тайп предмета который делаем
Edager       = $238B;     // тайп эксептового предмета который делаем

waightlimit  = 150;       // макс.вес

{$Include 'all.inc'}

procedure movetrash;
  begin
   Repeat
    FindTypeEx(TypeItem,LogsColor,backpack,false); 
    if FindQuantity > 0 then 
     begin
      //MoveItem(finditem, 0, Trash, 0, 0, 0);
      UOSay('sell all')
      WaitTargetObject(finditem);
      CheckLag (30000);
      wait(1000);
     end; 
   Until (Count(TypeItem) = 0);
  end;

Procedure make_item;
Begin
CancelMenu;
Hungry(1,-1);
CheckLag (30000);
FindTypeEx(Logs, LogsColor, backpack, false);
if FindQuantity > 50 then 
begin
WaitTargetObject(finditem);
UseObject(FindType(JointingPlane,-1));
CheckLag (30000);
wait(500);
WaitGump(MakeOne);
wait(500);
WaitJournalLine(Now,'You have|You fail ',30000);
CheckLag (30000);
if TargetPresent then CancelTarget;
end
else 
begin
AddToSystemJournal('Мало дерева!!!');
FindTypeEx(Logs,LogsColor,Ground,False);
MoveItem(finditem, 300, Backpack, 0,0,0);
wait(2000);

end;
end;

procedure checkweight;
begin
  if (Weight > waightlimit) then
   begin 
    movetrash;
   end;
end;

Begin 
SetARStatus(true);
waitconnection(1000);
FindDistance := 2;
UOSay('.sign 1') 
UOSay('.autoloop 1') 
UOSay('.deedcheck 2')
 while true do
  begin
   while not dead and connected do
    begin
     CheckLag (30000);
     make_item;
    end;
  while (dead) and (connected) do
    begin
     AddToSystemJournal('Чар мертв...');
     Wait(10000);
    end;
  if (not Connected) then
   begin
    repeat
    wait (1000);
    until (Connected);
    waitconnection(3000);
   end;
  end;
end.

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

:D народ запутается

или ты не тот скрипт кинул

Изменено пользователем Hito

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Переделано с тинка или еще чего, суть по большей части не меняется. Появится спец. алхимный скрипт, этот ужас удалю. Но он работает как говориться. А указать только тип регов )

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
Procedure make_item;
Begin
CancelMenu;
Hungry(1,-1);
CheckLag (30000);
FindTypeEx(Logs, LogsColor, backpack, false);
if FindQuantity > 50 then 
begin
WaitTargetObject(finditem);
UseObject(FindType(JointingPlane,-1));
CheckLag (30000);
wait(500);
WaitGump(MakeOne);
wait(500);
WaitJournalLine(Now,'You have|You fail ',30000);
CheckLag (30000);
if TargetPresent then CancelTarget;
end
else 
begin
AddToSystemJournal('Мало дерева!!!');
FindTypeEx(Logs,LogsColor,Ground,False);
MoveItem(finditem, 300, Backpack, 0,0,0);
wait(2000);

end;
end;

как отключить таргетинг? 

здесь немного другой принцип отличный от карпы, не надо кидать таргет на ресурс после даблклика  по инструменту.

маг висит:

 

 

 

ццц.jpg

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация