Code: Select all
Program Blacksmith;
var
ctime : TDateTime;
{$Include 'all.inc'}
Const
Trash = $40006433;
BsitemType = $1413;
IngotType = $1BEF;
IngotColor = $0000;
HummerType = $13E4;
procedure CheckIngot;
begin
if (Count(IngotType) < 50) then
begin
MoveItem(FindTypeEx(IngotType,IngotColor,Ground,False),50,Backpack,0,0,0);
wait(500);
end;
end;
procedure CheckItem;
begin
if (Count(BsitemType) > 0) then
begin
repeat
MoveItem(FindType(BsitemType,Backpack),1,Trash,0,0,0);
wait(500);
until (Count(BsitemType) = 0);
end;
end;
procedure Blacksmithing;
begin
ClearJournal;
UseObject(ObjAtLayer(RhandLayer));
WaitTargetObject(FindType(IngotType,Backpack));
AutoMenu('Blacksmithing','Armor');
AutoMenu('Armor','Plate Mail');
AutoMenu('Plate Mail','platemail gorget (10 iron ingot)');
WaitJournalLine(Now, 'Вы переместили|You have failed to make anuthing', 10000);
wait(500);
end;
procedure CheckKolvo;
begin
If TargetPresent Then CancelTarget;
FindDistance:=5;
UseObject (Trash);
FindType(BsitemType,Trash);
if (FindCount > 100) then
begin
AddToSystemJournal('Ждем 15 секунд!');
wait (20000);
end;
end;
Begin
AddToSystemJournal('Скрипт успешно стартовал.');
while not Dead do
begin
checksave;
CheckIngot;
CheckItem;
CheckKolvo;
Blacksmithing;
end;
End.