Code: Select all
program BS;
{$Include 'all.inc'}
var i:integer;
const
ingots = $1BF2;
spear = $23AB; // тип предмета который клепаем
Edager = $23AB; // тип эксептового предмета который клепаем
HammerType = $13E3;
Procedure make_item;
Begin
CancelMenu;
UseObject(FindType(HammerType,Self));
findtype(Ingots,ground);
WaitTargetObject(finditem);
wait(500);
WaitMenu('What would you like to make?', 'Weapons'); // настройки меню предмета который клепаем
WaitMenu('What kind of weapon?', 'Swords'); // настройки меню предмета который клепаем
wait(500);
WaitMenu('What would you like to make?', 'Shashqa'); // настройки меню предмета который клепаем
if TargetPresent then CancelTarget;
end;
Begin
waitconnection(1000);
while not dead do
begin
for i :=1 to 20 do
begin
checksave;
make_item;
Wait(10000);
end;
UOSay('.killobject');
Wait(1000);
WaitTargetType(Spear);
UOSay('.killobject');
Wait(1000);
WaitTargetType(Spear);
Wait(1000);
Hungry(1,backpack);
Wait(1000);
checksave;
WaitGump('0001');
end;
end.