Бинторез

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

Бинторез

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

Program NarezkaBintov;

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.
avatar
Mazunchik
Admin

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

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

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

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


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