Sim, fazer um separado pode ser uma boa. Só testa essa última aqui, tentei pegar o dado com Int ao invés de String. Mas, se não funcionar e precisares de ajuda para fazer separado, é só pedir.
 

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"))
						local voc = tonumber(itemr:getDataInt("vocation"))
						local look = tonumber(itemr:getDataInt("looktype"))

						local outfit = {lookType = look}
							if isInArray({5,8},tipe) then
								if(voc == 0) 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 Uma | "..productn.." | que comprou no Shop, Obrigado e Bom Uso da "..productn.." ")
												db.executeQuery("UPDATE `shop_history` SET `processed`='1' WHERE id = " .. tid .. ";")                                          
											else
												doPlayerSendTextMessage(cid,19, "Desculpa, Você não tem espaço para receber o item >> "..productn.." <<")
											end
										else
											doPlayerSendTextMessage(cid,19, "Desculpa, Você não tem espaço para receber >> "..productn.." <<")
										end
									else
										doPlayerSendTextMessage(cid,19, "Desculpa, você não tem cap para receber >> "..productn.." << (You need: "..getItemWeightById(id, count).." Capacity)")
									end
								else
									doPlayerSendTextMessage(cid,19, "Você Recebeu Uma | "..productn.." | que comprou no Shop, Obrigado e Bom Uso da "..productn.." ")
									db.executeQuery("UPDATE `shop_history` SET `processed`='1' WHERE id = " .. tid .. ";") 
									doCreatureChangeOutfit(cid, outfit)
									doPlayerSetVocation(cid, voc)
								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")
											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

 

Exelente Jovem Nao Precisou fazer separado voce conseguiu agora vou fazer um topico ensinando a outras pessoas Obrigado pelo Seu tempo. e vamos fazer esse Forum crescer :D

Fico feliz que tenha funcionado. Boa sorte com o tópico.