myname= GetMe():GetName();
mylvl= GetMe():GetLevel();
 
filename = GetDir() .. "InventoryList-".. myname..".txt";
file = io.open(filename, "w");
ShowToClient(tostring(os.date("%X")), "file: " .. filename, 3);
 
 
if (file) then
	invList = GetInventory();
	for item in invList.list do 
		if not (item.IsEquipped) then
			idaux = tostring(item.displayId)
			nameaux = tostring(item.Name)
			countaux = tostring(item.ItemNum)
			file:write( idaux .." \t\t-- "..nameaux .. " ("..countaux..")\n");
		end;
	end;
	file:close();
else
	ShowToClient(tostring(os.date("%X")), "Can't save into file: " .. filename, 3);
end;

ShowToClient(tostring(os.date("%X")),"MP pots");
 
PN = "manapotname"; -- edit pot name (Large Mana Potion is not equal to large mana potion), so type it correct
percentouse = 80; -- percent to stsrt use MP pots
 
 
function GetItemAmountByName(name) -- getting id of pot to use them
local invList = GetInventory();
	for item in invList.list do
		if (item.Name == name) then
			PNID = item.displayId;
			return item.ItemNum;
		end;
	end;
 
return 0;
end; 
 
 
repeat
	if(GetMe():GetMpPercent() < percentouse) and (GetItemAmountByName(PN) > 0) then -- percent to use and we got items
		UseItem(PNID); 
		Sleep(250);
	end;
	Sleep(200);
 
until false;

ShowToClient(tostring(os.date("%X")),"Auto HP pots ON",3);
 
PN = "Healing Potion of Chaos";
percentouse = 70; -- percent to stsrt use MP pots
 
function GetItemAmountByName(name)
local invList = GetInventory();
	for item in invList.list do
		if (item.Name == name) then
			PNID = item.displayId;
			return item.ItemNum;
		end;
	end;
 
return 0;
end; 
 
 
repeat
I = GetMe();
	if(I:GetHpPercent() < percentouse) and (GetItemAmountByName(PN) > 0) then
		UseItem(PNID); -- Superior CP Potion
		Sleep(250);
	end;
	Sleep(200);
 
until false;