<?xml version="1.0" encoding="utf-8"?><waypoints>
<onLoad>
function MassFeed(petslot)
	local petVendorList = {114936, 114932, 114935, 114938, 114940, 114939} -- {Varanas, Logar, Ranch, OS, Heffner, Elven}
	local obj = nil;
	local objectList = CObjectList();
	objectList:update();
	for i = 0,objectList:size() do
		obj = objectList:getObject(i);   
		if obj ~= nil then
			for k,v in pairs(petVendorList) do
				if obj.Id == v then
					CurrentVendorID = v
					break
				end
			end
		end
	end
	repeat
		blankslots = inventory:itemTotalCount(0)
		MaxToBuy = blankslots*99
		gold = RoMScript('GetPlayerMoney("copper");')
		gold = math.floor(gold/3500)
		if MaxToBuy > gold then
			FoodToBuy = gold
		else
			FoodToBuy = MaxToBuy
		end
		player:openStore(CurrentVendorID)                         
		store:buyItem("Miller's Special Cake", FoodToBuy)
		Cake = inventory:itemTotalCount(204791)
		pet = CEggPet(petslot) pet:feed("Miller's Special Cake",Cake)
	until 3500 > gold
end

	function getPetSlot()
		petSlotToFeed = 1
		repeat
			cprintf(cli.lightgreen,"\nPlease enter the pet slot.\n")
			printf(" 1 - 6 > ")
			petSlotToFeed = io.stdin:read()
			petSlotToFeed = tonumber(petSlotToFeed)
			if type(petSlotToFeed) ~= "number" or 1 > petSlotToFeed or petSlotToFeed > 6 then
				cprintf(cli.yellow,"\nExpected a number from 1 to 6\n")
			end
		until type(petSlotToFeed) == "number" and (petSlotToFeed >= 1 and 6 >= petSlotToFeed)
		cprintf(cli.blue,"\nFeeding pet in slot "..petSlotToFeed.."\n")
	end
	
	getPetSlot()
	MassFeed(petSlotToFeed)
	error("Out of gold")
</onLoad>
</waypoints>