Bug no Shop Gesior 0.3.8

[Gustavo Marques 0]

Procurei um sistema que quando o player comprasse itens no site, ele aparecesse automaticamente no jogo. Bom, encontrei um que funciona em partes, o problema é que o sistema tem um bug que da itens infinitamente a cada 30 segundos. Queria saber si tem como resolver esse bug pra ele liberar apenas uma vez.

[Qwizer 857]

baixe esse e tente com ele.

shop.lua

[luanluciano93 1994]

Depende a versão do seu TFS ... 

What will you need?
- installed account maker Gesior
- working ots based on TFS 0.3.6/0.4

1. Now open folder data of your ots.
2. Open file globalevents.xml in folder globalevents.
3. Add there line (don't break XML structure, ask someone to help you if you got no idea about XML files format):

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

4. Create file shop.lua in folder globalevents/scripts and paste in it:

-- ### CONFIG ###
-- message send to player by script "type" (types you can check in "data/lib/000-constants.lua")
SHOP_MSG_TYPE = MESSAGE_STATUS_CONSOLE_BLUE
-- time (in seconds) between queries to MySQL 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)
doItemSetAttribute(new_container, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].')
doItemSetAttribute(new_container, "tid", id)
local iter = 0
while iter ~= container_count do
local new_item = doCreateItemEx(itemtogive_id, itemtogive_count)
doItemSetAttribute(new_item, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].')
doItemSetAttribute(new_item, "tid", id)
doAddContainerItemEx(new_container, new_item)
iter = iter + 1
end
received_item = doPlayerAddItemEx(cid, new_container)
else
local new_item = doCreateItemEx(itemtogive_id, itemtogive_count)
doItemSetAttribute(new_item, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].')
doItemSetAttribute(new_item, "tid", id)
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.')
doPlayerSave(cid)
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 

Créditos: Gesior.pl


OBS: Caso seu TFS for 0.4, mude onde esta db.executeQuery por db.query

É isso amigo ... 

[Gustavo Marques 0]

testei os 2 scripts, porém continua dando itens sem parar a cada 30 segundos. 

Além disso aparece uma mensagem na janela do server escrito:

[17/10/2013 20:59:42] [Error - GlobalEvent Interface] 

[17/10/2013 20:59:42] data/globalevents/scripts/shop.lua:onThink

[17/10/2013 20:59:42] Description: 

[17/10/2013 20:59:42] data/globalevents/scripts/shop.lua:64: attempt to call field 'executeQuery' (a nil value)

[17/10/2013 20:59:42] stack traceback:

[17/10/2013 20:59:42] data/globalevents/scripts/shop.lua:64: in function <data/globalevents/scripts/shop.lua:7>

[17/10/2013 20:59:42] [Error - GlobalEvents::think] Couldn't execute event: website_shop_item_delivery

[joadson 129]

Depende a versão do seu TFS ... 

What will you need?

- installed account maker Gesior

- working ots based on TFS 0.3.6/0.4

1. Now open folder data of your ots.

2. Open file globalevents.xml in folder globalevents.

3. Add there line (don't break XML structure, ask someone to help you if you got no idea about XML files format):

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

4. Create file shop.lua in folder globalevents/scripts and paste in it:

-- ### CONFIG ###
-- message send to player by script "type" (types you can check in "data/lib/000-constants.lua")
SHOP_MSG_TYPE = MESSAGE_STATUS_CONSOLE_BLUE
-- time (in seconds) between queries to MySQL 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)
doItemSetAttribute(new_container, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].')
doItemSetAttribute(new_container, "tid", id)
local iter = 0
while iter ~= container_count do
local new_item = doCreateItemEx(itemtogive_id, itemtogive_count)
doItemSetAttribute(new_item, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].')
doItemSetAttribute(new_item, "tid", id)
doAddContainerItemEx(new_container, new_item)
iter = iter + 1
end
received_item = doPlayerAddItemEx(cid, new_container)
else
local new_item = doCreateItemEx(itemtogive_id, itemtogive_count)
doItemSetAttribute(new_item, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].')
doItemSetAttribute(new_item, "tid", id)
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.')
doPlayerSave(cid)
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 

Créditos: Gesior.pl

OBS: Caso seu TFS for 0.4, mude onde esta db.executeQuery por db.query

É isso amigo ... 

ele respondeu sobre esse problema que deu no script...

[Gustavo Marques 0]

testei com esse script porém os itens ainda continuam aparecendo infinitamente de 30 em 30 segundos, 

poderia me mandar todos os script pra esse sistema funcionar corretamente ?

Agradeço, REP+ pra todos

[joadson 129]

Mude o interval de 30 para 3000 e tente novamente(o.O parecendo telemarketing) kkk

[Gustavo Marques 0]

Mais si eu mudar o intervalo para 3000 ele não vai continuar dando os itens, porém com um período mais longo ?

de qualquer forma vou tentar, se resolver REP+

[joadson 129]

o fato de entregar "inifinitamente" é pelo motivo de processar muito rapido as informarçoes...
ou seja 30, no seu distro(0.4) e o equvalente a 3 milseconds, muito rapido...
se for erro no script, irei analisar depois(se persistir o problema)

[Gustavo Marques 0]

mudo os 2 interval, do XML e do Script/shop.lua ?

[joadson 129]

apenas do XML.

[Gustavo Marques 0]

modifiquei o que você me disse, porém acho que n funcionou 

comprei o item no site já faz algum tempo, só que n chegou nada, nem apareceu nenhuma mensagem 

 

 

Editado:

Apareceu essa mensagem na janela do Server:

[18/10/2013 09:38:38] mysql_real_query(): SELECT * FROM shop_history WHERE `processed` = 0; - MYSQL ERROR: Table 'real server.shop_history' doesn't exist (1146)

Editado Outubro 18, 2013 por Gustavo Marques (veja o histórico de edições)

[avalax 6]

tenta essa ai essa funciona 

 

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"))

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 = doAddContainerItem(getPlayerSlotItem(cid, 3).uid, id,count)

if received then

doPlayerSendTextMessage(cid,19, "Você recebeu >> "..productn.." << da nossa loja")

db.executeQuery("UPDATE `shop_history` SET `processed`='1' WHERE id = " .. tid .. ";")

else

doPlayerSendTextMessage(cid,19, "Desculpe, você não tem espaço suficiente no recipiente para receber >> "..productn.." <<")

end

else

doPlayerSendTextMessage(cid,19, "Desculpe, você não tem um recipiente para receber >> "..productn.." <<")

end

else

doPlayerSendTextMessage(cid,19, "Desculpe, você não tem capacidade suficiente para receber >> "..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 = doPlayerAddItemEx(getPlayerSlotItem(cid, 3).uid, bag)

if received == RETURNVALUE_NOERROR then

doPlayerSendTextMessage(cid,19, "Você recebeu >> "..productn.." << da nossa loja")

db.executeQuery("UPDATE `shop_history` SET `processed`='1' WHERE id = " .. tid .. ";")

else

doPlayerSendTextMessage(cid,19, "Desculpe, você não tem espaço suficiente para receber >> "..productn.." <<")

end

else

doPlayerSendTextMessage(cid,19, "Desculpe, você não tem capacidade suficiente para receber >> "..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

se conseguir da um rep ai

[gobr 11]

CREATE TABLE `shop_history`
(
`id` int(11) NOT NULL auto_increment,
`to_name` varchar(255) NOT NULL default '0',
`to_account` int(11) NOT NULL default '0',
`from_nick` varchar(255) NOT NULL,
`from_account` int(11) NOT NULL default '0',
`price` int(11) NOT NULL default '0',
`offer_id` int(11) NOT NULL default '0',
`trans_state` varchar(255) NOT NULL,
`trans_start` int(11) NOT NULL default '0',
`trans_real` int(11) NOT NULL default '0',
PRIMARY KEY (`id`)
);