Code: Select all
program arm_armika;
{$Include 'all.inc'}
BEGIN
SetARStatus(true);
AddToSystemJournal('Макрос написан proZak(Age of Power)');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
If FindType($0F50, self) = 0 then
begin
AddToSystemJournal('Одеваем арбалет...');
Wait(3500);
UseObject(Backpack);
Wait(1000);
FindType($0F50, backpack)
Equip(1, finditem);
end;
END.
Code: Select all
6:38:21 [Slade]: Succesfully executed
6:38:21 [Slade]: Script Арм армика.txt stoped successfuly