Chest selling items (CustomAttribute)

[sharinn]

Hello, I created a script with a chest(we can use all containers) when you move an item out of the chest you buy it.
Place code in good place for good formating or items description

Requirements(look on help code):
Container requires a setCustomAttribute("sellChest", 1)
Items in chest require setCustomAttribute("sellPrice", value) where value = price in gp
stackable items - number items on stuck = maximum number of items that can be purchased

add in

function Player:onMoveItem(item, count, fromPosition, toPosition, fromCylinder, toCylinder)

    -- custom shop unmovable
    if item:getCustomAttribute("sellChest") then
        self:sendCancelMessage(RETURNVALUE_NOTPOSSIBLE)
        return false
    end
    -- custom shop anty trash
    if toCylinder:isContainer()  then
        if toCylinder:getCustomAttribute("sellChest") then
            self:sendCancelMessage(RETURNVALUE_NOTPOSSIBLE)
            return false
        end
    end
    if not fromPosition.x ~= CONTAINER_POSITION then
        local itemChect
        if CONTAINER_POSITION ~= toPosition.x then
            itemChect = Tile(toPosition):getTopDownItem()
        end
        
        if itemChect then
            if itemChect:getCustomAttribute("sellChest") then
                self:sendCancelMessage(RETURNVALUE_NOTPOSSIBLE)
                return false
            end        
        end
    end
    -- custom shop
    local itemPrice = item:getCustomAttribute("sellPrice")
    if itemPrice then
        if self:removeMoney(itemPrice*count) then
            doPlayerAddItem(self, item:getId(), count)
            self:sendTextMessage(MESSAGE_INFO_DESCR, "You buy " .. count .. " " .. item:getName().. "  for " .. itemPrice*count .. "gp.")
            return false
        else
            if count == 1 then
                self:sendTextMessage(MESSAGE_INFO_DESCR, "You need more gold to buy " ..  item:getName() .. "!")
            else
                self:sendTextMessage(MESSAGE_INFO_DESCR, "You need more gold to buy " ..count .. " " .. item:getName() .. "!")
            end
            return false
        end
    end

add in

function Player:onLook(thing, position, distance)

--Shop item price

if thing:getCustomAttribute("sellPrice") then
    description = description .. "\nCost: ".. thing:getCustomAttribute("sellPrice").. "gp "
end

add in

function Player:onTradeRequest(target, item)

if item:getCustomAttribute("sellChest") or item:getCustomAttribute("sellPrice") then
    self:sendCancelMessage(RETURNVALUE_NOTPOSSIBLE)
    return false
end

add script (revscript)

local unuseable = Action()

function unuseable.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    if item:getCustomAttribute("sellPrice") then
        player:sendCancelMessage(RETURNVALUE_NOTPOSSIBLE)
        return false
    end
    return true
end

unuseable:aid(100)
unuseable:register()

help code(revscript): generate sample chest

on my ot whe i use item with id 6540, i generate this chest(no problem move this code to startup script), action 100 on my ot make item unmovable/untradeable

local sellChest = Action()

function sellChest.onUse(player, item, fromPosition, target, toPosition, isHotkey)
        local itemBox = Game.createItem(1738, 1, player:getPosition())
        --itemBox:setActionId(100)
        itemBox:setCustomAttribute("sellChest", 1)

        local itemSell = Game.createItem(7620, 100, player:getPosition())
        itemSell:setCustomAttribute("sellPrice", 56)
        itemSell:setActionId(100)
        itemSell:moveTo(itemBox)
        
        itemSell = Game.createItem(2400, 1, player:getPosition())
        itemSell:setCustomAttribute("sellPrice", 20000)
        itemSell:setActionId(100)
        itemSell:moveTo(itemBox)

end

sellChest:id(6540)
sellChest:register()

 

[2Rec]

You gotta make items unuseable too.

 

[sharinn]

#Update
I fix this problem
Thank you for reporting!