SolarStrike Software

Code: Select all

			for k, v in ipairs(forcedrop) do
				if v == item.Name then
					printf("Deleting Item:  "..item.Name.."\n");
					item:delete();
				end
			end

Code: Select all

			for j, l in ipairs(forcekeep) do
				--printf("force Item:  "..l.."\n");
				--printf("Item name:  "..item.Name.."\n");
				if l == item.Name then
					--keep it
					printf("Keeping Item:  "..item.Name.."\n");
				else

Code: Select all

for j, l in ipairs(forcekeep) do

Code: Select all

	local forcedrop = {
		"Unknown Gift",
		"Lost Gift",
		"Sled Fragment",
	}
	local forcekeep = {
		"Link Rune",
	}	
	for i = 1,5 do -- for i, item in pairs(inventory.BagSlot) do
		local keep, deleted
		for k,v in pairs(forcedrop) do
			if v == "Lost Gift" then --item.Name instead of "Lost Gift"
				--item:delete();
				deleted = true
				break -- stops looking through rest of table
			end
		end
		for k,v in pairs(forcekeep) do
			if v == "Link Rune" then --item.Name instead of "Link Rune"
				keep = true
				break -- stops looking through rest of table
			end
		end	
		if not keep and not deleted then
		-- all the other delete item checks here
		end
	end

Code: Select all

if sellprize == nil then sellprize = 750 end;

Code: Select all

sellprize = sellprize or 750

Code: Select all

if drop == nil then drop = false end;

Code: Select all

function CleanBag(sellprize, rarity, drop, logg)
	inventory:update();
	
	-- custom database for user added items to trow out
	local forcedrop = {
		"Unknown Gift",
		"Lost Gift",
		"Sled Fragment",
	}
	
	-- custom database for user added items to keep
	local forcekeep = {
		"none",
	}
	
	sellprize = sellprize or 750;
	rarity = rarity or 1;
	logg = logg or true;
	
	for i, item in pairs(inventory.BagSlot) do
		if item.SlotNumber >= settings.profile.options.INV_AUTOSELL_FROMSLOT + 60 and
		settings.profile.options.INV_AUTOSELL_TOSLOT + 60 >= item.SlotNumber then
			
			local keep, deleted
			for k,v in pairs(forcedrop) do
				if v == item.Name then --item.Name instead of "Lost Gift"
					printf("Forcefully Deleting Item:  "..item.Name.."\n");
					item:delete();
					deleted = true
					break -- stops looking through rest of table
				end
			end
			for k,v in pairs(forcekeep) do
				if v == item.Name then --item.Name instead of "Link Rune"
					keep = true
					break -- stops looking through rest of table
				end
			end   
			if not keep and not deleted then
				-- all the other delete item checks here
				if (item:isType("Weapons") or item:isType("Armor")) and sellprize > item.Worth and item.Quality < rarity then
					printf("Deleting Item:  "..item.Name.."\n");
					if logg == true then
						logInfo("CleanBag", "" ..player.Name.. ": Deleted: " ..item.Name.. "." , true)
					end
					item:delete();
				elseif item:isType("Recipes") then
					if RoMScript("GetCraftItemInfo("..item.Id..")") == nil and item.Quality < rarity then -- Don't have it
						printf("Learning recipe:  "..item.Name.."\n");
						if logg == true then
							logInfo("LearnRecipe", "" ..player.Name.. ": Learning recipe:  " ..item.Name.. "." , true);
						end
						item:use();
						yrest(5000);
					else
						if drop == true and item.Quality < rarity then
							printf("Deleting Recipe:  "..item.Name.."\n");
							if logg == true then
								logInfo("LearnRecipe", "" ..player.Name.. ": Deleting recipe:  " ..item.Name.. "." , true);
							end
							item:delete();
						end
					end
				elseif item:isType("Monster Cards") then
					if not haveCard(item.Id) then
						printf("Using card:  "..item.Name.."\n");
						if logg == true then
							logInfo("UseCard", "" ..player.Name.. ": Using card:  " ..item.Name.. "." , true);
						end
						item:use();
						yrest(5000);
					end
				elseif item:isType("Potions") and item.RequiredLvl < player.Level - 10 then
					if not string.find(item.Name, "Phirius") then
						item:delete();
					end
				elseif item:isType("Runes") or item:isType("Production Runes") then
					item:delete();
				end
			end -- keep and delete
		end -- item slot
	end -- for inventory
end -- function end

Code: Select all

if inventory:itemTotalCount("Arcane Transmutor Charge") > 0 then
     repeat
          inventory:useItem("Arcane Transmutor Charge")
     until inventory:itemTotalCount("Arcane Transmutor Charge") == 0
end