Normal Shop guild não envia o item

[adrianinho 7]

Galera,

 

Meu shopguild ele não envia o item, fica no shop_guild_history status WAIT, mas não envia.

 

Alguem poderia ajudar?

[Tricoder 896]

Aparece algum erro na distro? O personagem pelo qual você está enviando o item, tem o nick grande? As vezes o shop da problema por causa disso também.

[ADM WAR 19]

Apenas faça isso em seu ot, na psta globalevents abra globalevents.xml e adicione uma tagzinha:

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

e nas pasta scripts, crie um arquivo chamado shop.lua e add isso dentro:

 

-- ### CONFIG ###

-- message send to player by script "type" (types you can check in "global.lua")
SHOP_MSG_TYPE = 19
-- time (in seconds) between connections to SQL database by shop script
SQL_interval = 30
-- ### END OF CONFIG ###
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
id = tonumber(result_plr:getDataInt("id"))
action = tostring(result_plr:getDataString("action"))
delete = tonumber(result_plr:getDataInt("delete_it"))
cid = getCreatureByName(tostring(result_plr:getDataString("name")))
if isPlayer(cid) == TRUE 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)
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.executeQuery("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";")
db.executeQuery("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

[Tricoder 896]

Desculpa não entendi o que quis dizer com isso.   Repetindo, aparece algum erro na sua distro? 

[adrianinho 7]

Já tenho o shop no globalevents.

 

Não aparece erro na distro.

[Marcio Santos 26]

O meu shpguild funfa só o !guildpoints e shopguild que tá dando error na distro alguém pode me ajuda ? agradeço desde já

[ADM WAR 19]

mano se tu tem copia meu script e coloca no lugar do velho.

"porque seu script ta com defeito"

[Tricoder 896]

Tente:

-- ### CONFIG ###
-- message send to player by script "type" (types you can check in "global.lua")
SHOP_MSG_TYPE = 19
-- time (in seconds) between connections to SQL database by shop script
SQL_interval = 30
-- ### END OF CONFIG ###
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
id = tonumber(result_plr:getDataInt("id"))
action = tostring(result_plr:getDataString("action"))
delete = tonumber(result_plr:getDataInt("delete_it"))
cid = getCreatureByName(tostring(result_plr:getDataString("name")))
if isPlayer(cid) == TRUE 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
full_weight = getItemWeightById(itemtogive_id, 1)
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)
received_item = doPlayerAddItemEx(cid, new_item)
end
if received_item == RETURNVALUE_NOERROR then
doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, 'You just got a >> '.. add_item_name ..' << from the Havoc-Online Shop Offert. Please logout so your character can save.')
db.executeQuery("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";")
db.executeQuery("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";")
else
doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> The item '.. add_item_name ..' << that you just bought on the website couldnt be added. Han error has ocurred, please wait '.. SQL_interval ..' seconds.. Shop ID: '.. id ..'')
end
else
doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> The item '.. add_item_name ..' << that you just bought on the website couldnt be added. Han error has ocurred, please wait '.. SQL_interval ..' seconds.. Shop ID: '.. id ..'')
end
end
if not(result_plr:next()) then
break
end
end
result_plr:free()
end
return TRUE
end

[Marcio Santos 26]

Larrisa, deu certo a shopguild agr tá dando error em !guildpoints vc tem ele ai ?

[Tricoder 896]

Nossa, agora que vi que confundi o adrianinho com o ADM WAR.

Larrisa, deu certo a shopguild agr tá dando error em !guildpoints vc tem ele ai ?

Veja se resolve seu problema: http://www.tibiaking.com/forum/topic/32919-tfs-10-guildpoints-system-talkactions/

[Marcio Santos 26]

Larissa, tá dando esse error aqui vc pode me ajuda com isso ? obrigado mais uma vez rs'   

 

guildpoints

 

 

 GuildPointsConfigs =

{

   ExecuteIntervalHours = 24,

   NeedPlayersOnline = 10,

   NeedDiferentIps = 10,

   MinLevel = 150,

   AddPointsForAcc = 20

}

 

 

function getGuildPlayersValidAccIDS(GuildID, MinLevel)

   local RanksIDS, AccsID, ValidAccsID = {}, {}, {}

   local q = db.storeQuery("SELECT `id` FROM `guild_ranks` WHERE guild_id = '".. GuildID .."';")

 

   if q then

      return ValidAccsID

   end

 

   while true do

 table.insert(RanksIDS, result.getDataInt(q, "id"))

 

 if not result.next(q) then

break

end

   end

 

   local q = db.storeQuery("SELECT `account_id` FROM `players` WHERE `rank_id` IN (".. table.concat(RanksIDS, ', ') ..") AND `level` >= ".. MinLevel ..";")

   if q then

      return ValidAccsID

   end

 

   while true do

      local AccID = result.getDataInt(q, "account_id")

      if #AccsID > 0 then

         for k = 1, #AccsID do

            if AccID == AccsID[k] then

               AddAccList = false

               break

            end

            AddAccList = true

         end

         if AddAccList then

            table.insert(AccsID, AccID)

         end

      else

         table.insert(AccsID, AccID)

      end

 

 if not result.next(q) then

break

end

   end

 

   local q = db.storeQuery("SELECT `id` FROM `accounts` WHERE `guild_points_stats` = 0 AND `id` IN (".. table.concat(AccsID, ', ') ..");")

 

   if q then

      return ValidAccsID

   end

 

   while true do

      local AccID = result.getDataInt(q, "id")

 

      if #ValidAccsID > 0 then

         for k = 1, #ValidAccsID do

            if AccID == ValidAccsID[k] then

               AddAccList = false

               break

            end

            AddAccList = true

         end

         if AddAccList then

            table.insert(ValidAccsID, AccID)

         end

      else

         table.insert(ValidAccsID, AccID)

      end

 

 if not result.next(q) then

break

      end

   end

 

   return ValidAccsID

end

 

 

function onSay(cid, words, param, channel)

   if(getPlayerGuildLevel(cid) == 3) then

      local GuildID = getPlayerGuildId(cid)

      local q = db.storeQuery("SELECT `last_execute_points` FROM `guilds` WHERE id = '".. GuildID .."';")

 

      if not q then

return true

      end

 

      if result.getDataInt(q, "last_execute_points") < os.time() then

         local GuildMembers = {}

         local GuildMembersOnline = {}

         local PlayersOnline = getPlayersOnline()

 

for i, pid in ipairs(PlayersOnline) do

            if getPlayerGuildId(pid) == GuildID then

               if getPlayerLevel(pid) >= GuildPointsConfigs.MinLevel then

                  table.insert(GuildMembersOnline, pid)

               end

            end

         end

 

         if #GuildMembersOnline >= GuildPointsConfigs.NeedPlayersOnline then

            local IPS = {}

            for i, pid in ipairs(GuildMembersOnline) do

               local PlayerIP = getPlayerIp(pid)

               if #IPS > 0 then

                  for k = 1, #IPS do

                     if PlayerIP == IPS[k] then

                        AddIPList = false

                        break

                     end

                     AddIPList = true

                  end

                  if AddIPList then

                     table.insert(IPS, PlayerIP)

                  end

               else

                  table.insert(IPS, PlayerIP)

               end

            end

            if #IPS >= GuildPointsConfigs.NeedDiferentIps then

               local ValidAccounts = getGuildPlayersValidAccIDS(GuildID, GuildPointsConfigs.MinLevel)

 

  db.query("UPDATE `guilds` SET `last_execute_points` = ".. os.time() +(GuildPointsConfigs.ExecuteIntervalHours * 3600) .." WHERE `guilds`.`id` = ".. GuildID ..";")

 

               doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "".. #ValidAccounts .." Players received points")

 

  if #ValidAccounts > 0 then

 

 db.query("UPDATE `accounts` SET `guild_points` = `guild_points` + " ..GuildPointsConfigs.AddPointsForAcc .. ", `guild_points_stats` = ".. os.time() .." WHERE `id` IN (" .. table.concat(ValidAccounts, ',') ..");")

 

                  for i, pid in ipairs(GuildMembersOnline) do

                     local PlayerMSGAccID = getPlayerAccountId(pid)

                     for k = 1, #ValidAccounts do

                        if PlayerMSGAccID == ValidAccounts[k] then

                           doPlayerSendTextMessage(pid, MESSAGE_INFO_DESCR, "You received "..GuildPointsConfigs.AddPointsForAcc .." guild points.")

                           break

                        end

                     end

                  end

               end

            else

               doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Only ".. #IPS .." players are valid, you need ".. GuildPointsConfigs.NeedDiferentIps .." players with different ips.")

            end

         else

            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Has only ".. #GuildMembersOnline .." players online you need ".. GuildPointsConfigs.NeedPlayersOnline .." players online at least from level ".. GuildPointsConfigs.MinLevel ..".")

         end

      else

         doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "The command can only be run once every "..GuildPointsConfigs.ExecuteIntervalHours .." hours.")

      end

   else

      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Only guild leader can request points.")

   end

   return true

end 

 

[VitorNM 31]

Meu guild shop está tudo tranquilo, o único problema é que não envia o item ao player, e na database z_shopguild_history_item está la a linha que o player comprou um item mas ta com status "wait" alguma solução????

 

Não há erros na distro