Vodkart

function getItems(p) p.stackpos = 0 local v = getTileThingByPos(p) local items = {} repeat p.stackpos = p.stackpos + 1 v,m = getTileThingByPos(p),getThingfromPos(p).type table.insert(items, {v, m}) until v.itemid == 0 p.stackpos = p.stackpos - 1 return items end function getItemsFromList(items) local str = '' if table.maxn(items) > 0 then for i = 1, table.maxn(items) do str = str .. items[i][2] .. ' ' .. getItemNameById(items[i][1]) if i ~= table.maxn(items) then str = str .. ', ' end end end return str end local pos = {x = 10, y = 50, z = 7} print(getItemsFromList(getItems(pos)))

local config = { playerCount = 3915, -- Global storage for counting the players left/entered in the event fromPosition = {x = 1163, y = 1056, z = 7}, -- top left cornor of the playground toPosition = {x = 1187, y = 1083, z = 7} -- bottom right cornor of the playground } local boss1 = "Agorak" function onDeath(cid) if isMonster and getCreatureName(cid) == boss1 then if isInArea(getPlayerPosition(cid), config.fromPosition, config.toPosition) then doBroadcastMessage("O boss (".. boss1 .. ") foi morto e os jogadores dentro do World Boss Event foram recompensados com 10 event coins, 10 crystal coins e 5 event points.", MESSAGE_STATUS_CONSOLE_BLUE) for _, pid in ipairs(getPlayersOnline()) do if isInRange(getPlayerPosition(pid), config.fromPosition, config.toPosition) then doPlayerAddItem(pid, 2159, 10) doPlayerAddItem(pid, 2160, 10) doPlayerAddPontos(pid, 5) end end end end return true end

ops erro meu function onLogin(cid) local MyAccount = getPlayerAccountId(cid) if isAccountBan(MyAccount) then local baninfo = getBanAccInfo(MyAccount) doPlayerPopupFYI(cid, "You account has been banished at:\n"..os.date("%d %b %Y",baninfo[1])..".\n\nfor the following reason:\n"..baninfo[2]..".\n\nYour banishment will be lifted at:\n"..os.date("%d %b %Y %X",baninfo[1])..".") addEvent(function(cid) if not isCreature(cid) then return LUA_ERROR end doRemoveCreature(cid) end, 1000, cid) end return TRUE end

do Login

function onUse(cid, item, frompos, item2, topos) local stone_pos = {x=1027, y=1015, z=6, stackpos=1} local stone = getThingfromPos(stone_pos) local ID = 3404 if stone.itemid == ID then doRemoveItem(stone.uid, 1) else doCreateItem(1304, 1, stone_pos) end doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) return 1 end tenta usar stackpos =1

sim eu entendi. Testei aqui e funcionou sem problemas... a pos está correta? o ID da pedra tbm?

function onLogin(cid) local MyAccount = getPlayerAccountId(cid) if isAccountBan(MyAccount) then local baninfo = getBanAccInfo(MyAccount) doPlayerPopupFYI(cid, "You account has been banished at:\n"..os.date("%d %b %Y",baninfo[1])..".\n\nfor the following reason:\n"..baninfo[2]..".\n\nYour banishment will be lifted at:\n"..os.date("%d %b %Y %X",baninfo[1])..".") addEvent(function kikar(cid) if not isCreature(cid) then return LUA_ERROR end doRemoveCreature(cid) end, 1000, cid) end return TRUE end

isso ai é erro no CODE do fórum que buga alguns codigos, copia direto daqui: https://pastebin.com/raw/nrvkqzva

function onUse(cid, item, frompos, item2, topos) local pos = {x=1027, y=1015, z=6} local t = getTileItemById(pos, 1304).uid if t > 0 then doRemoveItem(t) doSendMagicEffect(pos, CONST_ME_POFF) else doCreateItem(1304, 1, pos) end return doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) end

erro meu! tava falando no celular e esqueci o then, ja arrumei la.

function onUse(cid, item, frompos, item2, topos) local stone_pos = {x=1027, y=1015, z=6} local stone = getThingfromPos(stone_pos) if stone.itemid > 0 then doRemoveItem(stone.uid, stone.type) else doCreateItem(1304, 1, stone_pos) end return doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) end

No Script do npc mude essa linha: local qry = db.getResult("SELECT `id`, `player_id`, `item_id`, `count`, `price` FROM `shop_npc`;") por local qry = db.getResult("SELECT `id`, `player_id`, `item_id`, `count`, `price`, `date` FROM `shop_npc` ORDER BY `date` DESC;") ou caso não queira dessa forma, troque o DESC por ASC, ficando assim: local qry = db.getResult("SELECT `id`, `player_id`, `item_id`, `count`, `price`, `date` FROM `shop_npc` ORDER BY `date` ASC;") What are DESC and ASC Keywords? ASC is the short form for ascending DESC is the short form for descending

CREATE TABLE IF NOT EXISTS `guild_wars` ( `id` INT, `guild_id` INT NOT NULL, `enemy_id` INT NOT NULL, `begin` BIGINT NOT NULL DEFAULT 0, `end` BIGINT NOT NULL DEFAULT 0, `frags` INT NOT NULL DEFAULT 0, `payment` BIGINT NOT NULL DEFAULT 0, `guild_kills` INT NOT NULL DEFAULT 0, `enemy_kills` INT NOT NULL DEFAULT 0, `status` TINYINT(1) NOT NULL DEFAULT 0, PRIMARY KEY (`id`) )

function onThink(cid, interval, lastExecution) local query = db.getResult("SELECT `id` FROM `shop_npc`;") if (query:getID() ~= -1) then local amount = query:getRows(true) doBroadcastMessage("Existe ["..amount.."] Ofertas de VIP Coins no market", 22) end return true end

Isso de todos os vip coins? Se tiver por exemplo 4 jogadores vendendo moedas vip ao mesmo tempo, irá puxar de cada um? não seria melhor uma talk que ele pudesse abrir uma lista de itens disponíveis para a compra? Aquela janelinha, ai vai mostrar o ID do item, quantidade e preço!

é OTX né?

msg = msg .. " ".. (tabela_reward[x][2] > 1 and tabela_reward[x][2] > 1 or "") .." "..getItemNameById(tabela_reward[x][1])..","

Obrigado pelo comentário! Faça bom uso do sistema :D

Creio que para servidores derivados não funcione devido á falta de função nas sources/lib. Sobre a recompensa da quest, tem sim, dá para fazer por storages.

Diz que não encontrou o arquivo!! é tudo em talkactions sim!

UPDATE 05/02/2019: - Colocado exhauted na venda de items para não bugar a venda de itens com elf bot! Descrição do Arquivo *Sobre o Sistema* Labia System é um sistema que proporciona ao jogador a capacidade de aprimorar sua habilidade de venda, aumentando assim sua Labia Skill e obtendo maiores lucros em futuras vendas de itens. O Skill de Labia, pode ser upado enquanto Free ou Premmy Account em qualquer level que você queira! Basta vender itens no NPC Soya Master. Lembrando que sendo free, sua lábia pode ser upada apenas até skill 90. Já sendo premmium até a lábia 120. Se o player for premmy account, de repente ficar free... sua lábia cai para 90, e todos os itens serão vendidos com preços avaliados dentro dessa lábia! Quanto mais caro for, o item vendido, maior será a porcentagem de lábia upada. *Exclusividade* O Sistema também conta com uma configuração exclusiva, tendo a possibilidade de jogadores Premmy account possam upar mais rapído a sua Skill de Labia! Sem falar no comando inovador: !labia info -- Ensinando ao jogador como usar o sistema !labia level -- Mostrando ao jogador quanto de skill Try falta para o próximo level!! *Benefícios da Lábia* Quanto maior for sua Labia Skill, maior será o valor pago pelas NPC Soya Master em troca do seu item ! Lembrando que, este é um benefício apenas, para premiuns!, Desta maneira, jogadores premiuns com labia skill alta, conseguem maiores lucros ao vender seus itens! O valor do item varia de acordo com a Labia upada! Quanto mais skill, mais lucro na venda! A maior Labia alcançada é você que decide nas suas configurações! por exemplo no RPG Brasil a é Skill 120. *exemplo da fórmula para cálculos do valor do item de acordo com uma Lábia desejada* P = PI + PI * 0,025 * (L / 2) Onde: P ~ Preço que o item será vendido na lábia L. PI ~ Preço Inicial do item, preço do item para um lábia 0. L ~ Labia em que o item será vendido! Vale lembrar que se L for um nº ímpar, deve-se reduzir uma unidade deste número, ou seja, 13 vira 12, 27 vira 26, 91 vira 90, nesse esquema, apenas se L for í­mpar! Exemplo: Preço de uma Golden Legs na lábia 95: P = PI + PI * 0,025 * (L / 2) Como L é í­mpar (95), reduzimos uma unidade, 95 vira 94: P = 48000 + 48000 * 0,025 * (94 / 2) P = 48000 + 48000 * 0,025 * 47 P = 48000 + 56400 P = 104400 GP's ou 104,4 k Sistema Labia.rar

Este tópico foi movido para a área correta. Esta é uma mensagem automática! Pedimos que leia as regras do fórum!

coloca assim: local Range = 1 if getDistanceBetween(getCreaturePosition(cid), toPos) > Range then return true end

Este meu sistema é bem diferente do seu, ele é mais completo. -------------------------- caso queira postar esse seu sistema(já tem no fórum se não me engano), pode postar, porque nem de minha autoria esse é...

Daniel, um dos melhores mapas que eu conheço! Sempre um mapa bem feito e detalhado! Parabéns, amo seus trabalhos e você faz todos com carinho. Abraços