Strength potion
- Код: Выделить всё
Program Alchemy40;
CONST
Stupka = $0e9b; {Тип ступки. Не изминять!}
Butilka = $0f0e; {Тип пустой бутылки. Не изминять!}
Strg = $0f09; {Тип бутылки стренжи. Не изминять!}
BEGIN
Cancelmenu;
AutoMenu('Alchemy', 'Strength Potions');
AutoMenu('Strength Potions', 'Strength potion');
SetARStatus(true);
AddToSystemJournal('Скрипт написал Metall (Age of Power)');
UOSay(Chr(39)+'resend');
Wait(2000);
UOSay(Chr(39)+'craftcreate 1');
Wait(3200);
while true do
begin
WaitTargetObject(findType(Butilka,backpack));
UseObject(findType(Stupka,backpack));
wait(5600);
UseObject(findType(Strg,backpack));
wait(7000);
end;
END.
Greater strength potion
- Код: Выделить всё
Program Alchemy70;
CONST
Stupka = $0e9b; {Тип ступки. Не изминять!}
Butilka = $0f0e; {Тип пустой бутылки. Не изминять!}
Strg = $0f09; {Тип бутылки стренжи. Не изминять!}
BEGIN
Cancelmenu;
AutoMenu('Alchemy', 'Strength Potions');
AutoMenu('Strength Potions', 'Greater strength potion');
SetARStatus(true);
AddToSystemJournal('Скрипт написал Metall (Age of Power)');
UOSay(Chr(39)+'resend');
Wait(2000);
UOSay(Chr(39)+'craftcreate 1');
Wait(3200);
while true do
begin
WaitTargetObject(findType(Butilka,backpack));
UseObject(findType(Stupka,backpack));
wait(5600);
UseObject(findType(Strg,backpack));
wait(7000);
end;
END.
