Snowsz

O script, está procurando por uma variável, aparentemente parece que ela não existe, você tem algum arquivo na lib com nome de Storage ou spikeTask algo assim ? Se está tentando implementar uma quest nova com uma lib, deve registra-la no arquivo global.lua, pelo o que entendi, o seu TFS é 1.0 ou 1.1.

O tópico foi movido para a área correta, preste mais atenção da próxima vez! Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680 Este tópico foi movido: De: "OTServ → Suporte OTServ → Suporte de Clients" Para: "OTServ → Suporte OTServ → Suporte de OTServ Geral"

Qualquer dúvida sobre website, crie um tópico por favor. E, pare de poluir o tópico pedindo o site do Brunds, ele não vai passar pra ninguém, se insistir poderá ser punido.

Explique melhor, seria tipo da vocação 4 para vocação 6, vocação 2 para vocação 15, ou todos vão para uma só vocação ?

Então, como eu já disse, está descompilado o problema é que eles modificaram o dat e spr para nenhum dat editor conseguir abrir, ou seja, vai ter que aprender a mexer com dat e spr se quiser ripa-los. Coisa feia em!

Se você tirou o dat spr e pic já está descompilado, qual dat editor está usando?

Poste o scan, e o tk não está bugado como você disse, ele só não aceita links formatados dessa forma: http://img.prntscr.com/img?url= Basta retirar essa parte /\ dos seus links e ele reconhecerá sua imagem, peço que poste o scan e atualize o tópico com isso.

function onLogout(cid) if #getCreatureSummons(cid) > 0 then doPlayerSendCancel(cid, "Recolha seu pokémon para poder sair do jogo.") return false end return true end <event type="login" name="PokeLogout" event="script" value="NOME DO SEU ARQUIVO.lua"/> data\creaturescripts

Passa o comando pra mim.

Cara, sinto muito mas só irá funcionar com o botão direito do mouse ¬¬', se quiser que funcione sem isso, que no caso seria jogando a shovel, adicione a função onMoveItem, procura na seção de programação que tem ela, isso, se você tiver as sources do seu server.

function onSay(cid, words, param) if getTilePzInfo(getCreaturePosition(cid)) == false then doPlayerSendTextMessage(cid,22,"Você precisa estar em protection zone pra poder usar este comando.") return true end if doPlayerRemoveItem(cid,2160,1000) and getPlayerVocation(cid) == 7 then for i = 1,100 do doPlayerAddSkillTry(cid, 4, getPlayerRequiredSkillTries(cid, 4, getPlayerSkillLevel(cid, 4) + 1) - getPlayerSkillTries(cid, 4), false) end doSendMagicEffect(getPlayerPosition(cid), CONST_ME_MORTAREA) doCreatureSay(cid, "DISTANCE FULL PALADIN!", TALKTYPE_ORANGE_1) addEvent(doRemoveCreature, 3*1000, cid, true) else doPlayerSendCancel(cid, 'Você precisa de 10kk para usar este comando e ser paladin.') doSendMagicEffect(getPlayerPosition(cid), CONST_ME_FLAMEAREA) end return true end

Diga qual foi o erro

Quaaaaaaaallllllllll, não conseguir sair só se tiver com o pokémon pra fora ou não sair durante fly/ride/surf!

Você quer que não consiga sair do jogo com o pokémon fora da poké bola ou usando surf/fly/ride etc... ?

O tópico foi movido para a área correta, preste mais atenção da próxima vez! Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680 Este tópico foi movido: De: "OTServ → Suporte OTServ → Suporte de Scripts" Para: "OTServ → Suporte OTServ → Suporte de OTServ Geral"

Ué, mas não tem erro algum ali, você fez alguma burrada... local gain = 60 function onUse(cid, item, frompos, item2, topos) cid:setStamina(cid:getStamina()+gain) doSendMagicEffect(frompos, 1) -- Efeito, para mudar basta alterar o número 1 para o efeito que você quiser, /z 1 para ver o efeito no tibia. doRemoveItem(item.uid, 1) -- Se quiser que o item fique infinito, basta alterar o número 1 para 0 return true end

A, sim, desculpe, foi um erro bobo: local gain = 60 -- 60 minutos etc... function onUse(cid, item, frompos, item2, topos) cid:setStamina(cid:getStamina()+gain) doSendMagicEffect(frompos, 1) -- Efeito, para mudar basta alterar o número 1 para o efeito que você quiser, /z 1 para ver o efeito no tibia. doRemoveItem(item.uid, 1) -- Se quiser que o item fique infinito, basta alterar o número 1 para 0 return true end

O tópico foi movido para a área correta, preste mais atenção da próxima vez! Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680 Este tópico foi movido: De: "OTServ → Suporte OTServ → Suporte de Scripts" Para: "OTServ → Suporte OTServ → Suporte de OTServ Geral"

local idDoBuraco = 2160 local idTransformado = 2158 function onUse(cid, item, frompos, itemEx, topos) if itemEx.itemid == idDoBuraco then doTransformItem(itemEx.uid, idTransformado) return true end return false end <action itemid="XXXX" event="script" value="ARQUIVO.lua"/>

local message = "Ainda há monstros vivos." local fromPos = {x = 10, y = 20, z = 7} local toPos = {x = 30, y = 60, z = 7} for x = fromPos.x, toPos.x do for y = fromPos.y, toPos.y do for z = fromPos.z, toPos.z do local pos = {x = x, y = y, z = z} local cre = getTopCreature(pos).uid if isMonster(cre) then broadcastMessage(message, MESSAGE_INFO_DESCR) break end end end end

local gain = 60 -- 60 minutos etc... function onUse(cid, item, frompos, item2, topos) cid:setStamina(cid:getStamina+gain) doSendMagicEffect(frompos, 1) -- Efeito, para mudar basta alterar o número 1 para o efeito que você quiser, /z 1 para ver o efeito no tibia. doRemoveItem(item.uid, 1) -- Se quiser que o item fique infinito, basta alterar o número 1 para 0 return true end

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat, COMBAT_PARAM_EFFECT, 17) setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_SUDDENDEATH) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 0, -57, 0, -62) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_EARTHDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 17) setCombatParam(combat2, COMBAT_PARAM_DISTANCEEFFECT, 31) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, 0, -57, 0, -62) local area = createCombatArea({ {1, 1, 1}, {1, 3, 1}, {1, 1, 1} }) local area2 = createCombatArea({ {1, 1, 1, 1, 1}, {1, 0, 0, 0, 1}, {1, 0, 3, 0, 1}, {1, 0, 0, 0, 1}, {1, 1, 1, 1, 1}, }) setCombatArea(combat, area) setCombatArea(combat2, area2) function onUseWeapon(cid, var) doCombat(cid, combat, var) addEvent(function() doCombat(cid, combat2, var) end, 300) end

Acho que com isso já da para selecionar melhor resposta, não ?

Nossa, chega me arrepiei aqui

local msgs = {"use ", ""} function doAlertReady(cid, id, movename, n, cd) if not isCreature(cid) then return true end local myball = getPlayerSlotItem(cid, 8) if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(myball.uid).." - "..movename.." (m"..n..") esta pronto!") return true end local p = getPokeballsInContainer(getPlayerSlotItem(cid, 3).uid) if not p or #p <= 0 then return true end for a = 1, #p do if getItemAttribute(p[a], cd) == "cd:"..id.."" then if isInArray({"m1", "m2", "m3"}, n) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(p[a]).." - "..movename.." (t"..n..") esta pronto!") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(p[a]).." - "..movename.." (m"..n..") esta pronto!") end return true end end end function onSay(cid, words, param, channel) local storage = 918271 if param ~= "" then return true end if string.len(words) > 3 then return true end if #getCreatureSummons(cid) == 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce precisa de um pokemon para usar as moves.") return 0 end --alterado v2.5 local mypoke = getCreatureSummons(cid)[1] if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end if getCreatureName(mypoke) == "Evolution" then return true end local name = getCreatureName(mypoke) == "Ditto" and getPlayerStorageValue(mypoke, 1010) or getCreatureName(mypoke) local it = string.sub(words, 2, 3) local move = movestable[name].move1 if getPlayerStorageValue(mypoke, 212123) >= 1 then cdzin = "cm_move"..it.."" else cdzin = "move"..it.."" --alterado v2.5 end if it == "2" then doPlayerSendTextMessage(cid, 26, "sounds/105.wav") move = movestable[name].move2 elseif it == "3" then move = movestable[name].move3 elseif it == "4" then move = movestable[name].move4 elseif it == "5" then move = movestable[name].move5 elseif it == "6" then move = movestable[name].move6 elseif it == "7" then move = movestable[name].move7 elseif it == "8" then move = movestable[name].move8 elseif it == "9" then move = movestable[name].move9 elseif it == "10" then move = movestable[name].move10 elseif it == "11" then move = movestable[name].move11 elseif it == "12" then move = movestable[name].move12 elseif it == "13" then move = movestable[name].move13 end if isInArray({1,2,3,4,5,6,7,8,9,10,11,12,13}, it) then mLevel = move.level mCD = move.cd mName = move.name mTarget = move.target mDist = move.dist else m = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "t"..it.."") mLevel = tmList[m].level mCD = tmList[m].cd mName = m mTarget = tmList[m].target mDist = tmList[m].dist end if not move then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.") return true end --if false and getLevel(mypoke) < mLevel then if getLevel(mypoke) < mLevel then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Seu Pokemon ainda nao sabe usar essa move.") return 0 end if getPlayerStorageValue(mypoke, storage) > os.time() then return doPlayerSendCancel(cid, "You need wait "..(tonumber(getPlayerStorageValue(mypoke, storage)) - os.time()).." second"..((tonumber(getPlayerStorageValue(mypoke, storage)) - os.time()) > 1 and "s" or "").." to cast this spell.") end if getCD(getPlayerSlotItem(cid, 8).uid, cdzin) > 0 and getCD(getPlayerSlotItem(cid, 8).uid, cdzin) < (mCD + 2) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "voce deve esperar "..getCD(getPlayerSlotItem(cid, 8).uid, cdzin).." segundos para usar "..mName.." novamente.") return 0 end if getTileInfo(getThingPos(mypoke)).protection then doPlayerSendCancel(cid, "Voce nao pode atacar em area protegida.") return 0 end if getPlayerStorageValue(mypoke, 3894) >= 1 then return doPlayerSendCancel(cid, "You can't attack because you is with fear") --alterado v2.3 end if (mName == "Team Slice" or mName == "Team Claw") and #getCreatureSummons(cid) < 2 then --alterado v2.5 doPlayerSendCancel(cid, "Your pokemon need be in a team for use this move!") return 0 end --alterado v2.6 if isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) and math.random(1, 100) <= 10 then local target = getCreatureTarget(cid) if isCreature(getMasterTarget(target)) then --alterado v2.6 --alterado v2.5 doSendMagicEffect(getThingPos(target), 211) doSendAnimatedText(getThingPos(target), "TOO BAD", 215) doTeleportThing(target, getClosestFreeTile(target, getThingPos(mypoke)), false) doSendMagicEffect(getThingPos(target), 211) doFaceCreature(target, getThingPos(mypoke)) return true --alterado v2.6 end end if mTarget == 1 then if not isCreature(getCreatureTarget(cid)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Nao ha pokemon na mira.") return 0 end if getCreatureCondition(getCreatureTarget(cid), CONDITION_INVISIBLE) then return 0 end if getCreatureHealth(getCreatureTarget(cid)) <= 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce ja derrotou seu oponente.") return 0 end if not isCreature(getCreatureSummons(cid)[1]) then return true end if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > mDist then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Get closer to the target to use this move.") return 0 end if not isSightClear(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), false) then return 0 end end local newid = 0 if isSleeping(mypoke) or isSilence(mypoke) then --alterado v2.5 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry you can't do that right now.") return 0 else newid = setCD(getPlayerSlotItem(cid, 8).uid, cdzin, mCD) end doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..mName.."!", TALKTYPE_SAY) local summons = getCreatureSummons(cid) --alterado v2.6 addEvent(doAlertReady, mCD * 1000, cid, newid, mName, it, cdzin) for i = 2, #summons do if isCreature(summons[i]) and getPlayerStorageValue(cid, 637501) >= 1 then docastspell(summons[i], mName) --alterado v2.6 end end docastspell(mypoke, mName) setPlayerStorageValue(mypoke, storage, os.time() + mCD) doCreatureAddCondition(cid, playerexhaust) if useKpdoDlls then doUpdateCooldowns(cid) end return 0 end