Ir para conteúdo
Banner com Efeitos

Featured Replies

Postado
<?xml version="1.0" encoding="UTF-8"?>
<globalevents>
  <globalevent name="shop" interval="60" event="script" value="shop.lua"/>
  <globalevent name="save" interval="3000" event="script" value="save.lua"/>
  <globalevent name="autoBroadcast" interval="480" script="broadcast.lua"/>
  <globalevent name="serverstart" type="start" event="script" value="start.lua"/>
  <globalevent name="playersrecord" type="record" event="script" value="record.lua"/>
  <globalevent name="vipEffect" interval="2" script="Effect.lua"/>
  <globalevent name="texto animado" interval="3" script="texto.lua"/>
  <globalevent name="Efectos" interval="2" script="efectos.lua"/>
  <globalevent name="efectosflechas" interval="19" script="efectosflechas.lua"/> 
  <!-- <globalevent name="LastMan" interval="3600" event="script" value="lastman.lua"/>  -->
  <!-- <globalevent name="arena" interval="3750" event="script" value="arena.lua"/>  -->
  <!-- <globalevent name="arena check" interval="60" event="script" value="arena check.lua"/>  -->
  <!-- <globalevent name="Kac" interval="5400" event="script" value="kac.lua"/>  -->
  <!-- <globalevent name="kac arena" interval="5550" event="script" value="kac arena.lua"/> -->
  <!-- <globalevent name="kac check" interval="60" event="script" value="kac check.lua"/>  -->
  <!-- <globalevent name="remove monsters" interval="10" script="remove monsters.lua"/>   LISTO  -->
  <!-- <globalevent name="timer_example" time="21:35" event="script" value="my_script.lua"/> -->
</globalevents>

Teste dessa forma

 

Te ajudei ?? Que tal fazer uma contribuição ?

Doar

  • Respostas 18
  • Visualizações 863
  • Created
  • Última resposta

Top Posters In This Topic

Posted Images

Postado
  • Autor
Em 06/02/2018 em 23:45, DboExplorer disse:

Coloque suas scripts antigas, e poste o globalevents.xml, posso arrumar pra você

Continuo com o mesmo erro 

12:49 Sorry, you don't have enough space on container to receive >> pokeboll << 
Aparece isso e vai chegando itens .. 
 

12 horas atrás, Wesley Alexandre2014 disse:

Me chama no discord, Vou te ajudar por lah!: SeniorBueno#6051

Não tenho discord Wesley .. :s 

Eu usei um outro shop.lua e o erro mudou .. Agora eu continuo recebendo o item se eu estiver com 1 item ja na bag .. Por exemplo .. Se tenho ultra ball na bag e compro +1 eu continuo recebendo .. Se eu não tenho nem 1 e compro 1 eu recebo só uma da forma correta ..

Globalevents : 
 

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


Shop.Lua :
 

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, "You have received >> "..productn.." << from NOME DO SEU SERVER Shop.")
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 = doPlayerAddItemEx(getPlayerSlotItem(cid, 3).uid, bag)
if received == RETURNVALUE_NOERROR then
doPlayerSendTextMessage(cid,19, "You have received >> "..productn.." << from PkS Shop.")
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


 

Postado
<globalevent name="shop" interval="300" event="script" value="shop.lua"/>

 

Citar

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
                                            doPlayerSave(cid)
											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 = doPlayerAddItemEx(getPlayerSlotItem(cid, 3).uid, bag)
										if received == RETURNVALUE_NOERROR then
											doPlayerSendTextMessage(cid,19, "You have received >> "..productn.." << from our shop system")
                                                                                        doPlayerSave(cid)
											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

 

 

Editado por DboExplorer (veja o histórico de edições)

 

Te ajudei ?? Que tal fazer uma contribuição ?

Doar

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.

Visitante
Responder

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 519.7k

Informação Importante

Confirmação de Termo