Program Alchemy;

{$Include 'skilllogger.inc'}

var skills : array of TSkill;

const
res_bag = $43EFA77A;
poison_bottle = $0F0A;
emptyBottle_type = $0F0E;
reg_ns = $0F88;

procedure grabBottle;
begin
  findType(emptyBottle_type, res_bag);

  if getQuantity(finditem) > 0 then begin
    grab(finditem,1);
    wait(500);
  end;
end;

begin

	skills := [ makeSkill('Poisoning'), makeSkill('Alchemy') ];


	uosay('.macro off');

	UseObject(res_bag);

	while not Dead do
		begin

		findType(poison_bottle, res_bag);

		if getQuantity(finditem) <= 5 then begin

			useType($0E9B, $0000);

			grabBottle;

			FindDistance := 2;
			WaitTargetObject(FindType(reg_ns,Ground));
			CancelMenu;
			AutoMenu('Select a potion to make', '(1)');
			wait(7000);
			moveItems(backpack, poison_bottle, $0000, res_bag, 0,0,0,500);
			skillLogger(skills, @fileLogger);

		end;

		end;
end.