Трекинг

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

Трекинг

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

Program Tracking;
//***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
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;

//***************************************************************
// ПОИСК ЧЕЛОВЕКА
//***************************************************************
Procedure Choose;
Begin
AutoMenu ('What do you wish to track?','Players');
wait(150);
AutoMenu ('Whom do you wish to track','(1)');
wait(150);
End;

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

while true do begin
WaitConnection;
useskill('Tracking');
wait(500);
Choose;
wait(3500);
end;
END.
avatar
Mazunchik
Admin

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

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

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

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


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