Манинг. Плавка руды по 1 шт и более

Предыдущая тема Следующая тема Перейти вниз

Манинг. Плавка руды по 1 шт и более

Сообщение  Mazunchik в Сб Май 15, 2010 1:47 am

// СаНеК (в.1.0)
// Если просто перерабатывать, нужно поменять перетаскивание не по одной, а например по 10 (100,1000,10000) руды.
Program Pererabotka_Rudi;
CONST

BagFrom = $4E55AD89; //айди бекпака который лежит в вашем паке, и где лежит руда;
Plavilnya = $6654EB20; //айди плавильни;
Ruda = $19B9;

//***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
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
WaitConnection;
if FindType(Ruda, backpack) = 0 then
begin
//AddToSystemJournal('перетаскиваете руду из сумки в пак');
moveitem (findtype(Ruda,BagFrom), 10000, backpack, 0, 0, 0);
wait(400);
end;
//AddToSystemJournal('юзаем руду в паке');
useobject(FindType(Ruda,backpack));
WaitForTarget(500);
//AddToSystemJournal('кидаем на плавильню');
TargetToObject(Plavilnya);
wait(2700);
end;
END.
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения