Инскрипт Пойзон

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

Инскрипт Пойзон

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

Ложим в пак ванды и нс. Запускаем макрос

Program inscription;
//***************************************************************
//Копирайт
//***************************************************************
procedure Copyright;
begin
UOSay('Макрос на Инскрипт. Версия 1.0 SaNeK (с)');
AddToSystemJournal('Макрос на Инскрипт. Версия 1.0 SaNeK (с)');
Wait(1000);
end;
//***************************************************************
//Выбор каста
//***************************************************************
Procedure Choose;
begin
AutoMenu('a Circle','Third');
wait(150);
AutoMenu('Spell','Poison');
wait(150);
end;
BEGIN
Copyright;
while true do begin
if (Mana < 10) then
begin
while (Mana < int) do
begin
useskill('Meditation');
wait(3200);
end;
end;
useskill('Inscription');
WaitForTarget(200);
TargetToObject(findType($0df2,backpack));
wait(150);
Choose;
wait(3100);
end;
END.
avatar
Mazunchik
Admin

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

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

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

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


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