blacksmithing

[nepopus]

Берет руду, плавит, делает даггеры, плавит.

Code: Select all

program bs;

const
  containerID = $4018D2CE; // Контейнер с рудой
  forgeID = $4041B999; // Форжа.
  moveCount = 100;

  ingotType = $1BEF;
  ingotColor = $0000;

  oreType = $19B9;
  oreColor = $0000;

  daggerType = $0F51;

var
  i: integer;
  c: integer;
  cTime: tdatetime;

begin
  automenu('Blacksmithing', 'Weapons');
  automenu('Weapons', 'Swords & Blades');
  automenu('Swords & Blades', 'dagger');
  while NOT dead do begin

    useobject(backpack);
    checklag(100000);
    wait(300);

    if findtypeex(oreType, oreColor, backpack, false) > 0 then begin
      useobject(finditem);
      checklag(100000);
      wait(500);
    end;

    while (findtypeex(ingotType, ingotColor, backpack, false) > 0) AND (findquantity > 3) do begin
      cTime := now;
      useobject(finditem);

      repeat
        wait(500);
      until (injournalbetweentimes('You put', cTime, now) >= 0) OR (cTime+1.0/(24*60*4) < now);
    end;

    while findtype(daggerType, backpack) > 0 do begin
      waittargetobject(finditem);
      useobject(forgeID);
      checklag(100000);
      wait(300);
    end;

    useobject(containerID);
    checklag(100000);
    wait(300);

    if (findtypeex(oreType, oreColor, containerID, false) > 0) AND (findquantity > moveCount) then begin
      moveitem(finditem, moveCount, backpack, 0, 0, 0);
      checklag(100000);
      wait(500);

    end else begin
      addtosystemjournal('Чет не нашел нужного кол-ва руды в сундуке. Непопуса косяк? Я кончаюсь, бб.');
      exit;
    end;

  end;
end.