---------------------------------------
-- Embroider: This writes a word (1-20 characters, enclosed in square brackets)
-- on to any cloth or soft leather item.
-- It is most useful to mark bags, ie, [Loot], [Food], etc.
-- Pricing depends on the values of the item:
-- 2% per character to be embroidered, plus 0.4% per letter to be unstitched
-- if the item has been embroidered before.
---------------------------------------
local function topic_serviceembroider(_confirm, _name)
    ib:SetHeader(npc:GetFace(), npc:GetName())
    ---------
    -- Player must mark the object to embroider.
    ---------
    local marked = player:FindMarkedObject()
    if not marked then
        ib:SetMsg("Oh, love-ee! Please ~M~ark the item in your inventory so I know which one to work on.")
        ib:SetButton("Goodbye", "")
        player:Interface(1, ib:Build())
        return
    end
    ib:SetTitle("Embroider " .. marked.name)
    ib:SetMsg("Ah, you want the " .. marked.name .. " embroidered? Hm, let me see...\n")
    ---------
    -- Only identified objects can be embroidered. This is technically safer.
    ---------
    if not marked.f_identified then
        ib:AddMsg("\nOh what a shame! I'm afraid I cannot embroider an unidentified item.\n")
        ib:AddMsg("\nTake it to Lathair around the corner to get it identified first.")
        ib:SetButton("Goodbye", "")
        player:Interface(1, ib:Build())
        return
    end
    ---------
    -- Only cloth (128) or soft leather (8/193) items can be embroidered.
    -- For obvious reasons.
    ---------
    local cost = { -- these are the base costs of embroidering/unstitching. The actual material of the object will modify these costs.
        embroidering = math.max(1, math.ceil(marked.value / 50)), -- 2% of item value, min 1c, per character.
        unstitching = math.max(1, math.ceil(marked.value / 250)), -- 0.4% of item value, min 1c, per character.
        total -- we have no idea until _name is specified and checked to be valid (below).
    }
    if marked.material == 128 then
        cost.embroidering = math.floor(cost.embroidering * 2) -- means 4% of item value, min 2c, per character.
        cost.unstitching = math.floor(cost.unstitching * 1) -- means 0.8% of item value, min 1c, per character.
        ib:AddMsg("\n|** " .. npc.name .. " examines the " .. marked.name .. "'s stitching closely **|\n")
        ib:AddMsg("\nThat's a nice cloth...\n")
    elseif marked.material == 8 and marked.material_real == 193 then
        cost.embroidering = math.floor(cost.embroidering * 2.5) -- means 5% of item value, min 2c, per character.
        cost.unstitching = math.floor(cost.unstitching * 1.5) -- means 1% of item value, min 1c, per character.
        ib:AddMsg("\n|** " .. npc.name .. " examines the " .. marked.name .. "'s stitching closely **|\n")
        ib:AddMsg("\nHm, it's soft leather so I'll need to use the good needles and stronger thread. " ..
                  "So I'll have to charge a little more, I'm afraid...\n")
    else
        ib:AddMsg("\nOh dear oh dear! Look at what the " .. marked.name .. " is made of.\n")
        ib:AddMsg("\nIt's really difficult to do needlework on an item made of that. " ..
                  "Only cloth or soft leather items please.")
        ib:SetButton("Goodbye", "")
        player:Interface(1, ib:Build())
        return
    end
    local embroidered = { string.find(marked.title, "%[(.+)%]") }
    ---------
    -- If player has not yet specified a string to be embroidered,
    -- Sarah examines the item and gives a per character price for the work.
    ---------
    if not _name then
        if marked.f_is_magical then
            ib:AddMsg("\nYes, I thought so. You see this stitching, love-ee? That's magic that is.\n")
            ib:AddMsg("\nMagic items are a bit more difficult to work with, so I'll have to charge a bit more.\n")
        end
        if embroidered[1] then
            ib:AddMsg("\nMm, I see this item has been embroidered before. Well, I'll have to charge a bit extra for the unstitching...\n")
        end
        ib:AddMsg("\n~" .. player:ShowCost(cost.embroidering, 1) .. "~ per character to be embroidered ")
        if embroidered[1] then
            ib:AddMsg("plus ~" .. player:ShowCost(cost.unstitching, 1) .. "~ per character to be unstitched ")
        end
        ib:AddMsg("is the best I can do, my love.\n")
        ib:AddMsg("\nSo what would you like me to embroider on the " .. marked.name .. ", young " .. gender_title .. "?")
        ib:SetTextfield("embroider ")
        ib:SetButton("Goodbye", "")
        player:Interface(1, ib:Build())
        return
    end
    ---------
    -- Make sure the specified string is within the boundaries of
    -- what is physically and cosmicly embroiderable!
    ---------
    if string.find(_name, "[^%/%'%-%+%?%!%s%w]+") or string.len(_name) > 20 then
        ib:SetMsg("|** " .. npc.name .. " chuckles softly **|\n")
        ib:AddMsg("\nOh love-ee! You don't understand embroidery do you?\n")
        ib:AddMsg("\nI lack the tools to embroider the fancier characters. " ..
                  "Stick to ~letters~, ~numbers~, ~/~, ~'~, ~+~, ~-~, ~?~, ~!~, and of course ~spaces~ only please. " ..
                  "And not more than twenty characters, my dear.")
        ib:SetTextfield("embroider ")
        ib:SetButton("Goodbye", "")
        player:Interface(1, ib:Build())
        return
    end
    if embroidered[1] then
        cost.total = (cost.embroidering * string.len(_name)) + (cost.unstitching * string.len(embroidered[3]))
    else
        cost.total = cost.embroidering * string.len(_name)
    end
    ---------
    -- Player is not confirming the request yet, so lets summarise
    -- the required embroidery, unstitching, and costs involved,
    -- and ask for confirmation.
    ---------
    if _confirm ~= "confirm" then
        ib:SetMsg("Now then, you would like me to embroider the word ~" .. string.capitalize(_name) .. "~ at ~" ..
                  player:ShowCost(cost.embroidering, 1) .. "~ per character ")
        if embroidered[1] then
            ib:AddMsg("but first I'll need to unstitch the old embroidered word ~" .. embroidered[3] .. "~ at ~" ..
                      player:ShowCost(cost.unstitching, 1) .. "~ per character ")
        end
        ib:AddMsg("which comes to a total of...\n")
        ib:AddMsg("\n|** " .. npc.name .. " does some calculations on an abacus on the countertop **|\n")
        ib:AddMsg("\nThat comes to a total of ~" .. player:ShowCost(cost.total, 1) .. "~.\n")
        ib:AddMsg("\nIs all that okay, my dear?")
        ib:SetAccept("Accept", "confirm embroider " .. _name)
        ib:SetDecline("Decline", "")
        player:Interface(1, ib:Build())
        return
    end
    ---------
    -- After all that player can't even afford it!
    ---------
    if player:PayAmount(cost.total) == 0 then
        ib:SetMsg("Not got the money, young " .. gender_title .. "?\n")
        ib:AddMsg("\nOh that's a real pity. Well as my dear departed husband -- may the Tabernacle watch over him -- used to " ..
                  "say, coins drop like the rain in Stoneglow for the dedicated adventurer.\n")
        ib:AddMsg("\nPlease come back when you have the funds!")
        ib:SetButton("Goodbye", "")
        player:Interface(1, ib:Build())
        return
    end
    ---------
    -- Woot! Let's embroider!
    ---------
    if embroidered[1] then
        marked.title = string.gsub(marked.title, "%[.+%]", "[" .. string.capitalize(_name) .. "]", 1)
    else
        marked.title = marked.title .. " [" .. string.capitalize(_name) .. "]"
    end
    player:Sound(npc.x, npc.y, game.SOUND_LEARN_SPELL)
    ib:SetMsg("|** You pay " .. npc.name .. " " .. player:ShowCost(cost.total) .. " **|")
    ib:AddIcon(marked:GetName(), marked:GetFace(), "There you go, young " .. gender_title .. ". Please come back soon!")
    ib:SetButton("Goodbye", "")
    player:Interface(1, ib:Build())
end

tl:AddTopics({ "(embroider)", "(embroider)%s+(.+)" }, topic_serviceembroider)
tl:AddTopics("(confirm)%s+embroider%s+(.+)", topic_serviceembroider)

function topicDefault(_confirm, _name)