Guild Allianse

Cooking. Зажарка стейков по 1 шт или более.

Модераторы: Britney, Alien, Alizee, MarkeR, Slade

Cooking. Зажарка стейков по 1 шт или более.

Alien » 16-04, 09:01

Код: Выделить всё

// СаНеК (в.1.0)
// Рядом с чаром сумка в которой лежат стейки
// ВСТАВЛЯЕМ АЙДИ СУМКИ И ПЛАВИЛЬНИ
Program Cooking;
CONST

BagFrom = $4E55AD89; //Сумка в которой лежит стейк. Находится радом с персонажем
Plavilnya = $66D482E3; //Плавильня на которой жарит
Steyk = $097a;

//***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
procedure WaitConnection;
begin
if Connected then exit;
while not Connected do wait(100);
wait(3000);
end;

//***************************************************************
// РЕСЕНД
//***************************************************************
procedure Resend;
begin
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
end;

BEGIN
WaitConnection;
AddToSystemJournal('Запускаю макрос...');
Resend;
AddToSystemJournal('Макрос готов к работе.');
AddToSystemJournal('открываем сумку...');
useobject(BagFrom);
Resend;

while true do begin
SetArStatus(True);
WaitConnection;
if FindType(Steyk, backpack) = 0 then
begin
AddToSystemJournal('перетаскиваете стейк из сумки в пак');
moveitem (findtype(Steyk,BagFrom), 1, backpack, 0, 0, 0);
wait(400);
end;
AddToSystemJournal('юзаем стейк в паке');
useobject(FindType(Steyk,backpack));
WaitForTarget(500);
AddToSystemJournal('кидаем на плавильню');
TargetToObject(Plavilnya);
wait(2700);

end;
END.

Alien

-=Blonde Team=-

 

Сообщения: 2286

Зарегистрирован: 06-05, 19:00

Откуда: Thieves of a Shadow

Вернуться к началу

Вернуться в Макросы под Stealth

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0