Lockpicking

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

Lockpicking

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

Все что нужно это вписать айди сумки на которой будете юзать отмычки, она должна лежать на полу рядом с чаром. Сумка должна быть Punch и естествено реги на каст 'Magic Lock' и сами отмычки

program Lockpicking;

CONST
Punch = $792F47C4; {ID сумки}
Pick = $14fb; {Тип отмычек. Не изминять!}

{$Include 'all.inc'}

procedure Lock;
begin
ClearJournal;
WaitTargetObject(Punch);
cast('Magic Lock');
wait(3200);
if InJournal('fizzles') <> -1 then
begin
Lock;
end
else
ClearJournal;
end;

procedure Medit;
begin
if Mana > 10 then exit;
while Mana < 79 do
begin
UseSkill('Meditation');
Wait(3200);
end;
end;

BEGIN

SetARStatus(true);

AddToSystemJournal('Макрос написан Metall(Age of Power)');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);

while true do
begin
if InJournal('locked|manage') <> -1 then
begin
Lock;
end
else
begin
WaitTargetObject(Punch);
UseObject(findType(Pick,backpack));
wait(3200);
end;
Medit;
end;
END.
avatar
Mazunchik
Admin

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

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

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

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


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