Guild Allianse

Столкнулся с проблемой ... за ночь ушло более 20 молоточков и я так понял что это произошло за пару часов! При постоянном узании молоток часно ламается как я понял!

Но проблему решил хитрым способом!

Код: Выделить всё

Program BlacksmithingShortSpear;

CONST
Ingi = $1bf2; {Тип ингот. Не изминять!}
Molotok = $13e4; {Тип молоточка!}

procedure WaitConnection;
begin
while not Connected do wait(10000);
ClearJournal;
repeat
WaitTargetObject(findType(Ingi,backpack));
UseObject(findType(Molotok,backpack));
wait(3250);
until InJournal('Вы изготавливаете')<>-1;
UOSay(Chr(39)+'pc craft 11111111');
end;

procedure check;
begin
if not Connected then WaitConnection;
while Connected do wait(10000);
end;

BEGIN

Cancelmenu;


AutoMenu('Blacksmithing', 'Weapons');
AutoMenu('Weapons', 'Spears & Forks');
AutoMenu('Spears & Forks', 'Short Spear');

SetARStatus(true);

AddToSystemJournal('Скрипт написал Metall (Age of Power)');
UOSay(Chr(39)+'craftcreate 0');
Wait(1000);

while true do
begin
repeat
WaitTargetObject(findType(Ingi,backpack));
UseObject(findType(Molotok,backpack));
wait(3250);
until InJournal('Вы изготавливаете')<>-1;
UOSay(Chr(39)+'pc craft 11111111');
check;
end;
END.

Blacksmithing качается на pc craft'е , и и после дисконекта самостоятельно продолжает качаться на pc craft'е