{$Include 'std.sinc'}
{$Include 'ptimer.sinc'}
{$Include 'types.sinc'}
{$Include 'recall.sinc'}

var
blankMaps : cardinal;
color : word;
i : integer;
checkBag : cardinal;

const
chest = $43CC8B50;
blankMap_container = $44BF755E;
common_container = $44BF755A;
mapType = $14EB;
bagType = $0E76;
goldType = $0EED;


begin
	while not Dead do
		begin
			useObject(chest);
			checkLag();
			useObject(common_container);
			checkLag();
			useObject(blankMap_container);
			checkLag();

			checkBag := findtype(bagType, backpack);

			if checkBag = 0 then
				begin
					findType(bagType, blankMap_container);
					if finditem <> 0 then grab(finditem, 1);
					checkBag := finditem;
				end
			else
			begin

				checkBag := findtype(bagType, backpack);
				useObject(checkBag);

				uoSay('.macro off');
				autoMenu('What you you want to create','(3)');

				for i := 1 to 140 do
					begin
						useType(mapType, $0000);
						wait(9500);
					end;

				moveItem(findType(bagType, backpack), 1, $44BF7553, 0, 0, 0);
					color := getColor(findType(mapType, backpack));
					recallWithCheck(makeDestination($44C50173, 2), rcRegs);
					checkLag;

				while findType(mapType, backpack) > 0 do
				begin
					setAutoSellDelay(random(4)+4);
					autoSell(mapType, $0032, 150);
					uoSay('sell');
					wait(random(4000)+1500);
					checkLag;
				end;

				recallWithCheck(makeDestination($44C50173, 1), rcRegs);

				useObject(chest);
				checkLag;
				useObject(common_container);
				checkLag;
				while findType(goldType, backpack) > 0 do
				begin
				moveItem(findType(goldType, backpack), 50000, common_container, 0, 0, 0);
				wait(100);
				end;
				end;

		end;
end.