[Error] Shop.lua

Postado Fevereiro 22, 2013 12 anos

- Script :

Citar
-- ### 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 Tibera-World 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

Citar

Postado Fevereiro 22, 2013 12 anos

Troca o seu por esse pra ver se da certo!


  -- ### 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 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 .. ";")

											    doPlayerSave(cid)

				    end

			    end

		    end

		    if not(result_plr:next()) then

			    break

		    end

	    end

	    result_plr:free()

    end

    return TRUE

end

Citar

Postado Fevereiro 22, 2013 12 anos

Autor

Em 22/02/2013 em 10:58, japazinho disse:

Troca o seu por esse pra ver se da certo!


-- ### 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 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 .. ";")

											 doPlayerSave(cid)

				 end

			 end

		 end

		 if not(result_plr:next()) then

			 break

		 end

	 end

	 result_plr:free()

end

return TRUE

end

Irei testar jaja depois edit @

o error ainda persiste.

<luaDoPLayerAddItenEx> item not found

Editado Fevereiro 22, 2013 12 anos por Tiago6795 (veja o histórico de edições)

Citar

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

https://tibiaking.com/topic/24010-error-shoplua/

Seguidores

Ir para a lista de tópicos

Nenhum usuário registrado visualizando esta página.

Tópicos 96.9k
Posts 519.6k

Entrar

[Error] Shop.lua

Featured Replies

Participe da conversa

Quem Está Navegando 0

Estatísticas dos Fóruns

Informação Importante

Account

Navigation

Pesquisar