Stealth Client Forum

Code: Select all

Program New;
const
instrum = $13E3; // молтоток (тип)
bulk_type = $2258; // bulk order (тип)

procedure craft_item (cat : integer; item : integer);  // куём нужный итем (передаётся  гамп категории и гамп итема)
begin
  waitgump(IntToStr(cat));
  UseType(instrum, 0);
  wait(500);
  CloseSimpleGump(cat);
  waitgump(IntToStr(item));
  wait(1500);
  CloseSimpleGump(item);
end;

procedure selmet_item (item_type : cardinal); // добавляем эксепт в булк ордер если не эксепт - плавим
var
str : string;
begin
str := GetCliloc(FindType(item_type,backpack));
if (FindType(item_type, backpack) <> 0) And (pos('exceptional',str)=0)  then 
   begin
    uosay('плавлю');
    waitgump('14');
    WaitTargetObject(FindType(item_type,backpack));
    UseObject(FindType(instrum,backpack));
    wait(2000);
    CloseSimpleGump(14);
   //ignore(FindItem); 
   end;
if (FindType(item_type, backpack) <> 0) And (pos('exceptional',str)>0)  then
   begin
    uosay('добавляю');
    waitgump('2');
    UseObject(FindType(bulk_type,backpack));
    WaitTargetObject(FindType(item_type,backpack));
    wait(2000);
    CloseSimpleGump(2);
   end;    
end;  

var
str,count : string;
fnd,i : integer;
begin
// узнаём из клилока сколько вещей в bulk order
str := GetCliloc(FindType(bulk_type,backpack)); fnd := pos('make:',str); count := Copy(str,fnd+6,2); fnd := StrToInt(count);
for i :=1 to fnd do
  begin
   craft_item(22,100);
   wait(1000);
   selmet_item($13FF);
  end;
   
end.