RevScripts droplist show

local droplist = TalkAction("!droplist")

function droplist.onSay(player, words, param)
    if param == "" then
        player:sendCancelMessage("Usage: !droplist <item name>")
        return false
    end

    -- Try to find the item by exact name or partial match
    local searchName = param:lower()
    local itemType = ItemType(param)

    if itemType:getId() == 0 then
        -- Try finding by partial name if exact match fails
        for id = 100, 30000 do
            local it = ItemType(id)
            if it:getId() ~= 0 then
                local name = it:getName():lower()
                if name == searchName or name:find(searchName, 1, true) or name == searchName .. "s" then
                    itemType = it
                    break
                end
            end
        end
       
        if itemType:getId() == 0 then
            player:sendCancelMessage("Item not found: " .. param)
            return false
        end
    end

    -- Gather all monsters that drop this item
    local drops = {}
    for _, monster in pairs(Game.getMonsterTypes()) do
        for _, loot in pairs(monster:getLoot() or {}) do
            local lootItem = ItemType(loot.itemId)
            if lootItem:getId() ~= 0 then
                -- Match item by ID only
                if loot.itemId == itemType:getId() then
                    local countInfo = ""
                    -- Handling stackable items
                    if loot.maxCount and loot.maxCount > 1 then
                        -- If it's stackable, show count range
                        if itemType:isStackable() then
                            countInfo = string.format(" (%d-%d)", loot.minCount or 1, loot.maxCount or loot.minCount or 1)
                        else
                            countInfo = string.format(" x%d", loot.maxCount)
                        end
                    else
                        countInfo = ""
                    end

                    -- Store the drop information
                    table.insert(drops, {
                        monster = monster:getName(),
                        chance = loot.chance / 1000, -- Correct percentage
                        chanceText = string.format("%.2f%%", loot.chance / 1000),
                        countInfo = countInfo
                    })
                end
            end
        end
    end

    if #drops == 0 then
        player:sendCancelMessage("No monsters drop '" .. itemType:getName() .. "'.")
        return false
    end

    -- Sort by drop chance (highest first)
    table.sort(drops, function(a, b) return a.chance > b.chance end)

    -- Build result text with item image
    local result = string.format("Drop List for: %s\n\n", itemType:getName())
    local maxLines = 200
    for i, drop in ipairs(drops) do
        if i > maxLines then
            result = result .. string.format("\n...and %d more drops not shown.", #drops - maxLines)
            break
        end
        result = result .. string.format("%s - %s%s\n",
            drop.monster,
            drop.chanceText,
            drop.countInfo)
    end

    -- Show the result in a text dialog, also showing the item image
    player:showTextDialog(itemType:getId(), result)
    return false
end

droplist:separator(" ")
droplist:register()