Vodkart

todos os serve tem esse comando cara mds era só pegar em bless.lua local bless = {1, 2, 3, 4, 5} function onSay(cid, words, param) for i = 1, table.maxn(bless) do if(getPlayerBlessing(cid, bless[i])) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce tem todas as bless.") return true end end return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"vc n tem bless") end

talk function onSay(cid, words, param) local var,points = "[VIP Points] Este documento vale %s VIP Points para voce no site.",getPremiumPoints(cid) local min,max = 5, 100 if param == "" or not tonumber(param) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, use somente numeros.") return true elseif tonumber(param) < min or tonumber(param) > max then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, Minimo "..min.." e Maximo "..max.." points.") return true elseif points < tonumber(param) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, mas voce so possui "..points.." VIP Points.") return true end local item = doPlayerAddItem(cid, 9004,1) doItemSetAttribute(item, "description", var:format(tonumber(param))) setPremiumPoints(cid, points-tonumber(param)) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[VIP Points]: Voce recebeu um paper com "..param.." VIP Points.") return true end actions: paper_points.lua function onUse(cid, item, frompos, item2, topos) local var = getItemAttribute(item.uid, "description") if var == nil then return true end local x = var:match("%b[]") if x == "[VIP Points]" then local ret = var:match("%d+") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE," Voce recebeu "..ret.." VIP Points.") setPremiumPoints(cid, getPremiumPoints(cid)+ret) doRemoveItem(item.uid) end return true end tag: <action itemid="9004" script="paper_points.lua"/>

cara o sistema já faz isso, se vc colocar premium = true e o jogador não for premium, não vai aparecer na lista do free. agr se tu quer criar 2 tabela sem necessidade dentro do sistema ta ai local free = { ["azeroth"] ={pos = {x=615, y=1056, z=7}, price = 4}, ["esdra"] ={pos = {x=1091, y=2272, z=4}, price = 4}, ["elsera"] ={pos = {x=342, y=101, z=6}, price = 4}, ["arena"] ={pos = {x=124, y=29, z=9}, price = 17} } local premium = { ["aaaaaa"] ={pos = {x=615, y=1056, z=7}, price = 4}, ["bbbbb"] ={pos = {x=1091, y=2272, z=4}, price = 4}, ["cccc"] ={pos = {x=342, y=101, z=6}, price = 4}, ["dddd"] ={pos = {x=124, y=29, z=9}, price = 17} } function onSay(cid, words, param) local param, str, var = param:lower()," [+] Place List [+]\n\n", isPremium(cid) and premium or free if param == "" or param == "list" then for name, pos in pairs(var) do str = str.."Place: "..name.." - cost: "..pos.price.." gp's\n" end doShowTextDialog(cid, 8983, str) return true end local a = var[param] if not(a) then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "use !tp list para descobrir os lugares que você poderá ir.") return true elseif getTilePzInfo(getCreaturePosition(cid)) == false then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.") return true elseif getCreatureCondition(cid, CONDITION_INFIGHT) then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Você não pode se teleportar em uma batalha.") return true elseif a.price > 0 and not doPlayerRemoveMoney(cid, a.price) then doPlayerSendTextMessage(cid, 22, "Desculpe,voce nâo tem dinheiro suficiente. Voce precisa "..a.price.." gp para ser teleportado.") return true end doSendMagicEffect(getCreaturePosition(cid), 27) doTeleportThing(cid, a.pos) doSendMagicEffect(a.pos, CONST_ME_BIGCLOUDS) return true end

como assim trava? explica direito... porque eu testei aqui e nenhum deu esse problema.

function onSay(cid, words, param) local param, str, var = param:lower(),"[+] Place List [+]\n\n",{ ["azeroth"] ={pos = {x=615, y=1056, z=7}, premium = true, price = 4}, ["esdra"] ={pos = {x=1091, y=2272, z=4}, premium = false, price = 4}, ["elsera"] ={pos = {x=342, y=101, z=6}, premium = false, price = 4}, ["arena"] ={pos = {x=124, y=29, z=9}, premium = true, price = 17} } if param == "" or param == "list" then for name, pos in pairs(var) do local add = true if pos.premium and not isPremium(cid) then add = false end if add then str = str.."Place: "..name.." - cost: "..pos.price.." gp's\n" end end doShowTextDialog(cid, 8983, str) return true end local a = var[param] if not(a) then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "use !tp list para descobrir os lugares que você poderá ir.") return true elseif getTilePzInfo(getCreaturePosition(cid)) == false then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.") return true elseif a.premium and not isPremium(cid) then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Apenas pleyer VIP podem usar este comando.") return true elseif getCreatureCondition(cid, CONDITION_INFIGHT) then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Você não pode se teleportar em uma batalha.") return true elseif a.price > 0 and not doPlayerRemoveMoney(cid, a.price) then doPlayerSendTextMessage(cid, 22, "Desculpe,voce nâo tem dinheiro suficiente. Voce precisa "..a.price.." gp para ser teleportado.") return true end doSendMagicEffect(getCreaturePosition(cid), 27) doTeleportThing(cid, a.pos) doSendMagicEffect(a.pos, CONST_ME_BIGCLOUDS) return true end

porque não coloca uma variável premium? mais fácil

eu sei disso amigo, mas obrigado!! Eu até aconselhei na primeira página a fazer uma alteração parecida com a sua! vou dar um update nela e colocar ela para 5.0, o @KotZletY deu umas ideias bem boas pro sistema. ai o player vai poder escolher as task normal e as diarias, além de poder repetir, etc.

só serve pra fzr comentarios ou cancelar certa linha... n sei explicar bem local var = "LUA" print(var == nil and "Nulo" or var) --> return "LUA" agora desse jeito --local var = "LUA" print(var == nil and "Nulo" or var) --> return "Nulo"

local config = { pos = {x=172, y=44, z=7}, topos = {x=733, y=507, z=7}, time = 2, -- tempo que o teleport ira sumir em minutos msg_open = "O portal do BOSS DIVINE BRONZE estara aberto durante 2 minutos. Corra para derrota-lo.", msg_close = "O portal do BOSS DIVINE BRONZE se fechou." } function removeTp() local t = getTileItemById(config.pos, 1387).uid return t > 0 and doRemoveItem(t) and doSendMagicEffect(config.pos, CONST_ME_POFF) end function onTime() doCreateTeleport(1387, config.topos, config.pos) doBroadcastMessage(config.msg_open) addEvent(removeTp, config.time*60*1000) addEvent(doBroadcastMessage, config.time*60*1000, config.msg_close) return true end

coleta sim, coleta teu pênis de 20cm tbm. isso mesmo, o autoloot coleta os 3 tipos de moeda automaticamente.. primeiro vou passar o task 4.0 para tfs 1.2 com ajuda do @KotZletY

mas ele usou -- já funciona todos os dias.

Sistema removido. Nova versão sem Bugs somente no Discord: vodkart#6090

esse script não é meu, ele só usou uma função minha! onde estiver vip.hasVip(cid) troque por isPremium(cid)

se tu tiver um pênis maior que 20cm manda nudes, do contrário não precisa kkkkkkk show, valeu!

ah ta então só usar a storage de novo function onCreatureSay(cid, type, msg) local msg, pos, time, name = msg:lower(),getNpcPos(), 30, "The Orc King" local monsters = { 'Demon', 'Slime', 'Slime', 'Orc Warlord', 'Orc Warlord', 'Orc Leader', 'Orc Leader', 'Orc Leader' } if msg == "hi" and getPlayerStorageValue(cid, 29002) <= 0 then setPlayerStorageValue(cid, 29002, 1) doRemoveCreature(getNpcId()) addEvent(function() doCreateNpc(name, pos) end ,time*60*1000) selfSay('Arrrrgh! A dirty paleskin! To me my children! Kill them my guards!') for i = 1, #monsters do local var = doCreateMonster(monsters[i], pos, false) if var == false then return LUA_ERROR end end end return true end

entendi! function onCreatureSay(cid, type, msg) local msg, pos, time, name = msg:lower(),getNpcPos(), 30, "The Orc King" local monsters = { 'Demon', 'Slime', 'Slime', 'Orc Warlord', 'Orc Warlord', 'Orc Leader', 'Orc Leader', 'Orc Leader' } if msg == "hi" then doRemoveCreature(getNpcId()) addEvent(function() doCreateNpc(name, pos) end ,time*60*1000) selfSay('Arrrrgh! A dirty paleskin! To me my children! Kill them my guards!') for i = 1, #monsters do local var = doCreateMonster(monsters[i], pos, false) if var == false then return LUA_ERROR end end end return true end ai o npc vai aparecer dps de 30 minutos(pode mudar de quiser) onde está o Demon na tabela, é o monstro que o npc vai se transformar.

deve ser sua source

eu usei o mesmo npc e comigo funcionou, aqui aparece a quantidade de gold tudo certo! o gold não aparece no seu balance?

eu estava vendo o video do global e o npc não some, cada jogador tem o direito de dar um "hi" pro boss e assim ele summonar mais monstros. function onCreatureSay(cid, type, msg) local msg, pos,storage = msg:lower(),getNpcPos(),29001 local monsters = { 'Slime', 'Slime', 'Slime', 'Orc Warlord', 'Orc Warlord', 'Orc Leader', 'Orc Leader', 'Orc Leader' } if msg == "hi" and getPlayerStorageValue(cid, storage) <= 0 then setPlayerStorageValue(cid, storage, 1) selfSay('Arrrrgh! A dirty paleskin! To me my children! Kill them my guards!') for i = 1, #monsters do local var = doCreateMonster(monsters[i], pos, false) if var == false then return LUA_ERROR end end end return true end

ah sim, eu só fiz a base pra saber como tu ia querer e tal... amanha edito pra ti e me fala como tu quer aqui embaixo, explica certinho ok

você deletou o outro script de loot? testei aqui e está contando sim, como eu já tinha testado. teu npc que deve estar com erro. function onSay(cid, words, param) return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"Total: "..getPlayerBalance(cid).." gps.") end ai pega gold e testa a talk pra vc ver.

vai lá a saca o dinheiro normal, no caso tem a linha que é deposito automatico, ele manda direito pro banco o money coletado

é no npc banker

é um mods. !autoloot é pra checar os itens que estão na sua linda !autoloot add,NOME DO ITEM é pra adicionar item na lista !autoloot remove,NOME DO ITEM é pra remover o item da lista.

function onCreatureSay(cid, type, msg) local msg, pos = msg:lower(),getNpcPos() local monster ={ {pos, "Demon"}, -- este é o npc {{x = (pos.x-1), y = pos.y, z = pos.z}, "Rat"}, {{x = (pos.x+1), y = pos.y, z = pos.z}, "Rat"}, {{x = pos.x, y = (pos.y-2), z = pos.z}, "Rat"} } if msg == "hi" then doRemoveCreature(getNpcId()) for _, summon in pairs(monster) do doCreateMonster(summon[2], summon[1]) end end return true end se quiser um xml usa este de base por exemplo nome do seu npc.xml <?xml version="1.0" encoding="UTF-8"?> <npc name="Nome do seu npc" script="nome do seu script.lua" walkinterval="20000" floorchange="0"> <health now="100" max="100"/> <look type="133" head="114" body="119" legs="132" feet="114"/> </npc>