Vodkart
Héroi
-
Registro em
Tudo que Vodkart postou
-
Olá, Desde uns tempos para cá, quando você copia um script/código do fórum, vem junto uns caracteres especiais que quando executados, não deixam o script rodar, exemplo: quando você copia e executa, dá um erro: ali na última linha apareceu aquilo, isso quando não aparece uns "?" no código... -
-
-
-
local chest_areas = { [8001] = {name = 'Spíder Hunt Event',pos = {x=110,y=297,z=7}, container = 1988, items = {{100,2160,1},{50,2173,1},{5,2494,1},{30,2466,1},{80,2495,1},{100,2148,15}}}, [8002] = {name = 'Demon Hunt Event', pos = {x=112,y=297,z=7}, container = 1988, items = {{100,2160,1},{5,2160,1},{5,2160,1},{5,2160,1},{5,2160,1},{5,2160,1}}}, [8003] = {name = 'Hydra Hunt Event', pos = {x=115,y=297,z=7}, container = 1988, items = {{100,2160,1},{5,2160,1},{5,2160,1},{5,2160,1},{5,2160,1},{5,2160,1}}} } function onUse(cid, item, frompos, item2, topos) local v = chest_areas[item.actionid] if not v then return true end local items, quest_container, str = v.items, doPlayerAddItem(cid, v.container, 1), 'BackPack from '..v.name..', Your Rewards:\n' for i = 1, table.maxn(items) do local chance, item_id, amount = items[i][1], items[i][2], items[i][3] if chance >= math.random(1, 100) then str = str .. amount .. ' ' .. getItemNameById(item_id) .. ' '..(i ~= table.maxn(items) and ', ' or '.') if isItemStackable(item_id) or amount == 1 then doAddContainerItem(quest_container, item_id, amount) else for i = 1, amount do doAddContainerItem(quest_container, 1) end end end end doTeleportThing(cid, v.pos) doSendMagicEffect(getPlayerPosition(cid), math.random(28,30)) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,'You have found a '..str) return true end
-
é um determinado monstro, ou todos os monstros? tipo, rat... todos rat do serve tem a msm função de sofrer dano a cada 5 segundos. ou é de determinada área?
-
function onUse(cid, item, position, fromPosition) local pos = {{x = 539, y = 592, z = 7}, {x = 556, y = 607, z = 7}} function CheckMonsters(area) for x = area[1].x - 1, area[2].x + 1 do for y = area[1].y - 1, area[2].y + 1 do local pos = {x=x, y=y, z=area[1].z} local m = getTopCreature(pos).uid if m ~= 0 and isMonster(m) then return true end end end return false end if CheckMonsters(pos) then doPlayerSendTextMessage(cid,22,"Ainda existe monstros na arena!") return true end doTeleportThing(cid,{x = 556, y = 607, z = 7}) doSendMagicEffect(getCreaturePosition(cid), 30) doPlayerAddArenaPoints(cid, 1) doPlayerSendTextMessage(cid,22,"Você recebeu 1 Arena Points!") return true end
-
kkk qual versão de vcs? instalaram tudo certo? LIB e tal?
-
seu serve não tem mais as funções e querys... entra no tópico do link e reinstala ele!! https://tibiaking.com/forums/topic/20589-vip-system-by-mock-100/
-
execute a seguinte QUERY em seu banco de dados ALTER TABLE `accounts` ADD `p_points` INTEGER NOT NULL DEFAULT 0 qualquer coisa o sistema é esse: https://tibiaking.com/forums/topic/8183-system-pontos-p-points-system/?_fromLogin=1
-
seu tópico está fora das regras, fechado. Antes de pedir suporte pelo menos tenha o bom senso de ler o mesmo. Leia e informe-se a respeito das Regras Gerais do Tibia King, ela prevalecerá em seu tópico. Diga em poucas palavras a base utilizada (Nome do servidor ou nome do website). Ex. TFS 1.3; Base: Qual erro está surgindo/O que você procura? Você tem o código disponível? Se tiver publique-o aqui: Você tem alguma imagem que possa auxiliar no problema? Se sim, coloque-a aqui.
-
Beleza, vou estar hackeando seu computador dentro de alguns minutos para acessar o seu script e arrumar remotamente pelo meu!
-
ta configurado para aparecer só id maior que 6 kk nessa parte do código WHERE `id` > 6 AND coloca maior que 2 WHERE `id` > 2 AND da CTRL + F e troque o 6 por 2!! abraços ------------------------------ modaldialog2 = { title = "Rank System", message = "Selecione a classificação que você quer ver:", buttons = { { id = 1, value = "Ver" }, { id = 2, value = "Sair" }, }, buttonEnter = 1, buttonEscape = 2, choices = { { id = 1, value = "Rank Soco" }, { id = 2, value = "Rank Clava" }, { id = 3, value = "Rank Espada" }, { id = 4, value = "Rank Machado" }, { id = 5, value = "Rank Distancia" }, { id = 6, value = "Rank Escudo" }, { id = 7, value = "Rank Pesca" }, { id = 8, value = "Rank Magia" }, { id = 9, value = "Rank Level" } }, popup = false } function getGroupDb(player_id) local query = db.getResult("SELECT `group_id` FROM `players` WHERE `id`= "..player_id) return query:getDataInt("group_id") end function callback2(cid, button, choice) if (button == 1) then local str = "" if (choice == 1) then str = "--[ Rank Soco ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 0 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 2) then str = "--[ Rank Clava ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 1 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 3) then str = "--[ Rank Espada ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 2 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 4) then str = "--[ Rank Machado ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 3 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 5) then str = "--[ Rank Distancia ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 4 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 6) then str = "--[ Rank Escudo ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 5 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 7) then str = "--[ Rank Pesca ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 6 ORDER BY `value` DESC LIMIT 20;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 8) then str = "--[ Rank Magia ]--\n" query = db.getResult("SELECT `maglevel`, `name` FROM `players` WHERE `id` > 2 AND `group_id` < 3 ORDER BY `maglevel` DESC LIMIT 20;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end str = str .. "\n " .. k .. ". "..(query:getDataString("name")).." - [" .. query:getDataInt("maglevel") .. "]" k = k + 1 until not query:next() end elseif (choice == 9) then str = "--[ Rank Level ]--\n" query = db.getResult("SELECT `name`, `level`, `experience` FROM `players` WHERE `id` > 2 AND `group_id` < 3 ORDER BY `experience` DESC LIMIT 20;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end str = str .. "\n " .. k .. ". "..(query:getDataString("name")).." - [" .. query:getDataInt("level") .. "]" k = k + 1 until not query:next() end end doShowTextDialog(cid, 5785, str) end end function onSay(cid, words, param) addDialog(modaldialog2, 1002, cid, callback2); return true end
-
qual id do seu char? e group dele? ID que eu digo é na database, ID da conta/player
-
deixa tudo em minusculo assim e acho que resolve: local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser,msg,str = NPCHANDLER_CONVbehavior == CONVERSATION_DEFAULT and 0 or cid,string.lower(msg),"" local item = 12411 -- ID do token local t = { ["lucky card"] = {200, 12672, 1}, -- ["Nome do item"] = {Qnt de tokens, ID do item a ser vendido, Count do item que será vendido} ["lucky card high"] = {300, 12673, 1}, ["lucky card top"] = {500, 12674, 1}, } if(msgcontains(msg, 'itens')) then str = str .. "Eu posso vender esse itens: " for name, pos in pairs(t) do str = str.." {"..name.."} por "..pos[1].." Tokens, " end str = str .. "." npcHandler:say(str, cid) elseif t[msg] then if doPlayerRemoveItem(cid, item, t[msg][1]) then doPlayerAddItem(cid, t[msg][2], t[msg][3]) selfSay("Aqui está seu item ".. getItemInfo(t[msg][2]).name .."!", cid) else selfSay("voce precisa de ".. t[msg][1] .." TOKENS para comprar esse item", cid) end end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())
-
posta o seu script configurado aqui
-
Muito bom!! Porém tem um problema, se você remover o ITEM1 do jogador e ele não tiver o ITEM2, a compra não vai ter sucesso e ele irá sair lesado... use a função "getPlayerItemCount (cid, itemid)" para saber se ele tem o item e a quantidade pedida!! abraços
-
local time = 2 -- tempo que ela vai ficar fechada local id,pos = 8696, {x = 32256, y = 32791, z = 7} -- id e pos da porta function Eliminar() local t = getTileItemById(pos, id).uid return t > 0 and doRemoveItem(t) and doSendMagicEffect(pos, CONST_ME_POFF) end function onUse(cid, item, fromPosition, itemEx, toPosition) if item.itemid == 7488 and itemEx.actionid == 18899 then if getPlayerStorageValue(cid, 90000) == 8 then -- storage necessaria para executar -- local t = getTileItemById(pos, id).uid if t > 0 then -- caso a porta já esteja fechada doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need hold the item on you.") return true end doSendMagicEffect(getCreaturePosition(cid), CONST_ME_EXPLOSIONHIT) doSummonCreature("Pirate Ghost", { x =32257, y =32791, z =7}) setPlayerStorageValue(cid, 100078, 15) doPlayerRemoveItem(cid, 7488, 1) doCreateItem(id, 1, pos) addEvent(Eliminar, time*60*1000) else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You arent a inquisition member") end end return true end n testei
-
qual problema do seu script?
-
kkkkk achei que era alavanca n caixao mas vlw!!
-
modaldialog2 = { title = "Rank System", message = "Selecione a classificação que você quer ver:", buttons = { { id = 1, value = "Ver" }, { id = 2, value = "Sair" }, }, buttonEnter = 1, buttonEscape = 2, choices = { { id = 1, value = "Rank Soco" }, { id = 2, value = "Rank Clava" }, { id = 3, value = "Rank Espada" }, { id = 4, value = "Rank Machado" }, { id = 5, value = "Rank Distancia" }, { id = 6, value = "Rank Escudo" }, { id = 7, value = "Rank Pesca" }, { id = 8, value = "Rank Magia" }, { id = 9, value = "Rank Level" } }, popup = false } function getGroupDb(player_id) local query = db.getResult("SELECT `group_id` FROM `players` WHERE `id`= "..player_id) return query:getDataInt("group_id") end function callback2(cid, button, choice) if (button == 1) then local str = "" if (choice == 1) then str = "--[ Rank Soco ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 0 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 2) then str = "--[ Rank Clava ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 1 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 3) then str = "--[ Rank Espada ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 2 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 4) then str = "--[ Rank Machado ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 3 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 5) then str = "--[ Rank Distancia ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 4 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 6) then str = "--[ Rank Escudo ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 5 ORDER BY `value` DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 7) then str = "--[ Rank Pesca ]--\n" query = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = 6 ORDER BY `value` DESC LIMIT 20;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end if getGroupDb(query:getDataString("player_id")) < 3 then str = str .. "\n " .. k .. ". "..(getPlayerNameByGUID(query:getDataString("player_id"))).." - [" .. query:getDataInt("value") .. "]" k = k + 1 end until not query:next() end elseif (choice == 8) then str = "--[ Rank Magia ]--\n" query = db.getResult("SELECT `maglevel`, `name` FROM `players` WHERE `id` > 6 AND `group_id` < 3 ORDER BY `maglevel` DESC LIMIT 20;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end str = str .. "\n " .. k .. ". "..(query:getDataString("name")).." - [" .. query:getDataInt("maglevel") .. "]" k = k + 1 until not query:next() end elseif (choice == 9) then str = "--[ Rank Level ]--\n" query = db.getResult("SELECT `name`, `level`, `experience` FROM `players` WHERE `id` > 6 AND `group_id` < 3 ORDER BY `experience` DESC LIMIT 20;") if (query:getID() ~= -1) then k = 1 repeat if k > 20 then break end str = str .. "\n " .. k .. ". "..(query:getDataString("name")).." - [" .. query:getDataInt("level") .. "]" k = k + 1 until not query:next() end end doShowTextDialog(cid, 5785, str) end end function onSay(cid, words, param) addDialog(modaldialog2, 1002, cid, callback2); return true end
-
ta ai tenta assim: https://pastebin.com/raw/B8ZS1rnx
-
as pos estão certas? se sim, tente usar assim: local t = { {items = {{2199,1}}, pos = {x = 32777, y = 31982, z = 9, stackpos = 255}}, {items = {{2199,1}}, pos = {x = 32779, y = 31977, z = 9, stackpos = 255}}, {items = {{2199,1}}, pos = {x = 32781, y = 31982, z = 9, stackpos = 255}} }
-
é esse bb code bugando todo os códigos. testa ai https://pastebin.com/raw/GiCq1izE
-
function doRemoveItensInPos(items, pos) -- function by vodka local items = type(items) == "table" and items or {items} for i = 1, table.maxn(items) do doRemoveItem(getThingFromPos({x=pos.x,y=pos.y,z=pos.z,stackpos=1}).uid) end return nil end function getItemsInPos(items, pos) -- function by vodka for i = 1,#items do local stack = getTileItemById(pos, items[1]) if stack.uid > 0 and math.max(1, stack.type) >= items[2] and i == #items then return true end end return false end function Wave1() -- vc que fez essa função doSendMagicEffect(getCreaturePosition(doCreateMonster('the count', {x = 32780, y = 31980, z = 9})), CONST_ME_TELEPORT) -- local e nome do monstro que sera sumonado -- end function onUse(cid, item, fromPosition, itemEx, toPosition) local t = { {items = {{2199,1}}, pos = {x = 32777, y = 31982, z = 9}}, {items = {{2199,1}}, pos = {x = 32779, y = 31977, z = 9}}, {items = {{2199,1}}, pos = {x = 32781, y = 31982, z = 9}} } if getPlayerStorageValue(cid, 875487) > 0 then doPlayerSendCancel(cid, "voce ja fez esta quest.") return true end if getPlayerStorageValue(cid, 92224) == 24 then for _, w in ipairs(t) do if not getItemsInPos(w.items, w.pos) then doPlayerSendCancel(cid, "You need to put the amulets in the altars.") return true end end for _, v in ipairs(t) do doRemoveItensInPos(v.items, v.pos) end setPlayerStorageValue(cid, 875487, 1) Wave1() else doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You aren't a member of the inquisition.") end return true end
