Ta Dando Esse Error

 

 

Shop:

 

  <globalevent name="shop" interval="1000" script="shop.lua" />

 

  Citar

local SHOP_MSG_TYPE = MESSAGE_EVENT_ORANGE
local SQL_interval = 30
 
function onThink(interval, lastExecution)
        local result_plr = db.getResult("SELECT * FROM z_ots_comunication WHERE `type` = 'login';")
        if(result_plr:getID() ~= -1) then
                while(true) do
                        local id = tonumber(result_plr:getDataInt("id"))
                        local action = tostring(result_plr:getDataString("action"))
                        local delete = tonumber(result_plr:getDataInt("delete_it"))
                        local cid = getCreatureByName(tostring(result_plr:getDataString("name")))
                        if isPlayer(cid) then
                                local itemtogive_id = tonumber(result_plr:getDataInt("param1"))
                                local itemtogive_count = tonumber(result_plr:getDataInt("param2"))
                                local container_id = tonumber(result_plr:getDataInt("param3"))
                                local container_count = tonumber(result_plr:getDataInt("param4"))
                                local add_item_type = tostring(result_plr:getDataString("param5"))
                                local add_item_name = tostring(result_plr:getDataString("param6"))
                                local received_item = 0
                                local full_weight = 0
                                if add_item_type == 'container' then
                                        container_weight = getItemWeightById(container_id, 1)
                                        if isItemRune(itemtogive_id) == TRUE then
                                                items_weight = container_count * getItemWeightById(itemtogive_id, 1)
                                        else
                                                items_weight = container_count * getItemWeightById(itemtogive_id, itemtogive_count)
                                        end
                                        full_weight = items_weight + container_weight
                                else
                                        full_weight = getItemWeightById(itemtogive_id, itemtogive_count)
                                        if isItemRune(itemtogive_id) == TRUE then
                                                full_weight = getItemWeightById(itemtogive_id, 1)
                                        else
                                                full_weight = getItemWeightById(itemtogive_id, itemtogive_count)
                                        end
                                end
                                local free_cap = getPlayerFreeCap(cid)
                                if full_weight <= free_cap then
                                        if add_item_type == 'container' then
                                                local new_container = doCreateItemEx(container_id, 1)
                                                local iter = 0
                                                while iter ~= container_count do
                                                        doAddContainerItem(new_container, itemtogive_id, itemtogive_count)
                                                        iter = iter + 1
                                                end
                                                received_item = doPlayerAddItemEx(cid, new_container)
                                        else
                                                local new_item = doCreateItemEx(itemtogive_id, itemtogive_count)
                                                doItemSetAttribute(new_item, "description", "Este item foi comprado pelo shop e entregue para o jogador ".. getPlayerName(cid) .."!")
                                                doItemSetAttribute(new_item, "aid", getPlayerGUID(cid)+10000)
                                                received_item = doPlayerAddItemEx(cid, new_item)
                                        end
                                        if received_item == RETURNVALUE_NOERROR then
                                                doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, 'You received >> '.. add_item_name ..' << from OTS shop.')
                                                db.query("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";")
                                                db.query("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";")
                                        else
                                                doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. Please make place for this item in your backpack/hands and wait about '.. SQL_interval ..' seconds to get it.')
                                        end
                                else
                                        doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. It weight is '.. full_weight ..' oz., you have only '.. free_cap ..' oz. free capacity. Put some items in depot and wait about '.. SQL_interval ..' seconds to get it.')
                                end
                        end
                        if not(result_plr:next()) then
                                break
                        end
                end
                result_plr:free()
        end
        return true
end

 

 

Lógico que não vai entregar, ta usando Sistema de Gesior em Modern AAC! :x

Essa Script do absolute foi feito pra Gesior, evidente que não vai funcionar em Modern! 

Usa esse, não tem anti-clone mais vai servi: 

Mostrar conteúdo oculto

function onThink(interval, lastExecution, thinkInterval)

        local result = db.getResult("SELECT * FROM shop_history WHERE `processed` = 0;")
       
                if(result:getID() ~= -1) then
                        while(true) do
                                cid = getCreatureByName(tostring(result:getDataString("player")))
                                product = tonumber(result:getDataInt("product"))
                                idTransaction = tonumber(result:getDataInt("id"))
                                itemr = db.getResult("SELECT * FROM shop_offer WHERE `id` = "..product..";")
                                        if isPlayer(cid) then
                                                local id = tonumber(itemr:getDataInt("item"))
                                                local tid = tonumber(result:getDataInt("id"))
                                                local count = tonumber(itemr:getDataInt("count"))
                                                local tipe = tonumber(itemr:getDataInt("type"))
                                                local productn = tostring(itemr:getDataString("name"))
                                                        if isInArray({5,8},tipe) then
                                                                if getPlayerFreeCap(cid) >= getItemWeightById(id, count) then
                                                                        --if isContainer(getPlayerSlotItem(cid, 3).uid) then
                                                                                received = doPlayerGiveItemSHOP(cid, id, count, 0, idTransaction)                                                                              
                                                                                --received = doAddContainerItem(getPlayerSlotItem(cid, 3).uid, id,count)
                                                                                if received == true then
                                                                                        doPlayerSendTextMessage(cid,19, "You have received >> "..productn.." << from our shop system")
                                                                                        db.executeQuery("UPDATE `shop_history` SET `processed`='1' WHERE id = " .. tid .. ";")
                                                                                else
                                                                                        doPlayerSendTextMessage(cid,19, "Sorry, you don't have enough space on container to receive >> "..productn.." <<")
                                                                                end
                                                                        --else
                                                                                --doPlayerSendTextMessage(cid,19, "Sorry, you don't have a container to receive >> "..productn.." <<")
                                                                        --end
                                                                else
                                                                        doPlayerSendTextMessage(cid,19, "Sorry, you don't have enough capacity to receive >> "..productn.." << (You need: "..getItemWeightById(id, count).." Capacity)")
                                                                end
                                                        elseif isInArray({6,7},tipe) then
                                                                        if tipe == 6 then
                                                                                bcap = 8
                                                                                bid = 1987
                                                                        elseif tipe == 7 then
                                                                                bcap = 20
                                                                                bid = 1988
                                                                        end
                                                                        if isItemRune(id) then
                                                                                count = 1
                                                                        end
                                                                        if getPlayerFreeCap(cid) >= (getItemWeightById(1987, 1) + getItemWeightById(id,count * bcap)) then
                                                                                --local bag = doCreateItemEx(bid, 1)
                                                                                        --for i = 1,bcap do
                                                                                                --doAddContainerItem(bag, id, count)
                                                                                        --end
                                                                                received = doPlayerGiveItemContainer(cid, 1988, id, count, 0)
                                                                                --received = doPlayerAddItemEx(getPlayerSlotItem(cid, 3).uid, bag)
                                                                                if received == true then
                                                                                        doPlayerSendTextMessage(cid,19, "You have received >> "..productn.." << from our shop system")
                                                                                        db.executeQuery("UPDATE `shop_history` SET `processed`='1' WHERE id = " .. tid .. ";")
                                                                                else
                                                                                        doPlayerSendTextMessage(cid,19, "Sorry, you don't have enough space to receive >> "..productn.." <<")
                                                                                end
                                                                        else
                                                                                doPlayerSendTextMessage(cid,19, "Sorry, you don't have enough capacity to receive >> "..productn.." << (You need: "..getItemWeightById(id, count).." Capacity)")
                                                                        end
                                                        end
                                        end
                                itemr:free()
                                if not(result:next()) then
                                        break
                                end
                        end
                        result:free()
                end
        return true
end