uses SysUtils;
Var
i:integer;
begin
   while delay(250) do
   begin
   Engine.MakeItem(7);//Номер Итема в по скписку в окне крафта
   while user.curMP<50 do //Нужно МР на крафт
   begin
      engine.useitem(4223);//ID Mp банок
      delay(250);
   end;      
   end;
end.