Arthasz Walker

Conseguiu resolver?

link quebrado

Me desculpem por reviver o tópico, mas o download está com o link quebrado, poderiam arrumar?

Diga em poucas palavras a base utilizada (Nome do servidor ou nome do website). TFS 0.3.6 Base: PDA Source Adaptada Qual erro está surgindo/O que você procura? Você tem o código disponível? Se tiver publique-o aqui: .aHunter.lua local target = 0 local prevTarget = 0 local origPos = 0 local max_distance = 15 local fighting = false local challenger = 0 local battle_turn = 1 -- don't change local challenger_turn = 0 -- don't change --- --/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////-- local function doSummonGymPokemon(npc) local this = npc if not isCreature(this) or not ehNPC(this) then return true end --alterado v1.6 if #getCreatureSummons(this) >= 1 or target == 0 then return true end local it = wildHunter[getPlayerStorageValue(this, 665471)][battle_turn] if not it then return true end doSummonMonster(this, it.name) local summon = getCreatureSummons(this)[1] if not summon then --alterado v1.6 print("Error in npc: "..getCreatureName(this)..", tring to execute function 'doSummonGymPokemon', poke: "..it.name) battle_turn = battle_turn+1 return true end local balleffect = pokeballs["normal"].effect if it.ball and pokeballs[it.ball] then balleffect = pokeballs[it.ball].effect end doSendMagicEffect(getThingPos(summon), balleffect) setPlayerStorageValue(summon, 10000, balleffect) setPlayerStorageValue(summon, 10001, gobackmsgs[math.random(#gobackmsgs)].back:gsub("doka", it.nick ~= "" and it.nick or it.name)) setPlayerStorageValue(summon, 1007, it.nick ~= "" and it.nick or it.name) doSetMonsterGym(summon, target) addEvent(adjustWildPoke, 15, summon, it.optionalLevel) if it.nick ~= "" then doCreatureSetNick(summon, it.nick) end local name = it.nick ~= "" and it.nick or getCreatureName(this).."s "..it.name --alterado v1.3 doCreatureSay(this, gobackmsgs[math.random(#gobackmsgs)].go:gsub("doka", getPlayerStorageValue(summon, 1007)), 1) fighting = true battle_turn = battle_turn + 1 end --/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////-- local function goToOrigPos() target = 0 selfFollow(0) fighting = false challenger = 0 challenger_turn = 0 if #getCreatureSummons(getNpcCid()) >= 1 then setPlayerStorageValue(getCreatureSummons(getNpcCid())[1], 1006, 0) doCreatureAddHealth(getCreatureSummons(getNpcCid())[1], -getCreatureMaxHealth(getCreatureSummons(getNpcCid())[1])) end doChangeSpeed(getNpcCid(), -getCreatureSpeed(getNpcCid())) doTeleportThing(getNpcCid(), origPos) end --/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////-- local function updateTarget() if(target == 0) then local list = getSpectators(getNpcPos(), 9, 9, false) for i = 1, table.getn(list) do local _target = list if(_target ~= 0) then if isPlayer(_target) and not getTileInfo(getThingPos(_target)).protection then --alterado v1.8 selfSay(hunterTalks[math.random(#hunterTalks)]) doNpcSetCreatureFocus(_target) target = _target prevTarget = target break end end end end end --/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////-- function onCreatureAppear(cid) end function onCreatureDisappear(cid) end function onCreatureMove(creature, oldPos, newPos) -- end --/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////-- function onThink() if not isCreature(getNpcCid()) then return false end --alterado v1.6 if origPos == 0 then origPos = getNpcPos() end if getPlayerStorageValue(getNpcCid(), 665471) <= 0 then setPlayerStorageValue(getNpcCid(), 665471, math.random(1, 5)) randOutfit(getNpcCid()) end updateTarget() ------------------------------------------------------ if getDistanceBetween(getNpcPos(), origPos) >= max_distance or (isCreature(target) and getTileInfo(getThingPos(target)).protection) or getTileInfo(getThingPos(getNpcCid())).protection then goToOrigPos() --alterado v1.9 end ------------------------------------------------------ if(target == 0) then if getPlayerStorageValue(getNpcCid(), 154788) <= 0 then setPlayerStorageValue(getNpcCid(), 154788, 1) doChangeSpeed(getNpcCid(), -getCreatureSpeed(getNpcCid())) addEvent(randWalk, 2000, getNpcCid(), 1000, getPlayerStorageValue(getNpcCid(), 154788)) end return true end ------------------------------------------------------ local playerPos = getThingPosWithDebug(target) --alterado v1.6 local myPos = getNpcPos() ------------------------------------------------------ if(myPos.z ~= playerPos.z) then goToOrigPos() battle_turn = battle_turn == 1 and battle_turn or battle_turn-1 return true end ------------------------------------------------------ if getDistanceBetween(playerPos, myPos) > max_distance then goToOrigPos() battle_turn = battle_turn == 1 and battle_turn or battle_turn-1 return true end ------------------------------------------------------ if getDistanceBetween(playerPos, myPos) >= 5 then if getPlayerStorageValue(getNpcCid(), 154788) >= 1 then setPlayerStorageValue(getNpcCid(), 154788, -1) doRegainSpeed(getNpcCid()) if isCreature(target) then selfFollow(target) end end end ------------------------------------------------------ if getDistanceBetween(playerPos, myPos) <= 3 then if getPlayerStorageValue(getNpcCid(), 154788) <= 0 then setPlayerStorageValue(getNpcCid(), 154788, 1) doChangeSpeed(getNpcCid(), -getCreatureSpeed(getNpcCid())) addEvent(randWalk, 2000, getNpcCid(), 1000, getPlayerStorageValue(getNpcCid(), 154788)) end end ------------------------------------------------------ if getDistanceBetween(playerPos, myPos) <= 5 then challenger = target addEvent(doSummonGymPokemon, 1000, getNpcCid()) local change = false if not isCreature(target) then target = 0 battle_turn = battle_turn == 1 and battle_turn or battle_turn-1 return true end if fighting then if not isCreature(getCreatureTarget(getNpcCid())) then if #getCreatureSummons(challenger) >= 1 then selfAttackCreature(getCreatureSummons(challenger)[1]) change = true else if change then change = false challenger_turn = challenger_turn + 1 end end end if #getCreatureSummons(getNpcCid()) == 0 and isCreature(target) then if battle_turn > #wildHunter[getPlayerStorageValue(getNpcCid(), 665471)] then addEvent(doCreateNpc, 300000, ".aHunter", myPos) --alterado v1.5 local outfit = getCreatureOutfit(getNpcCid()) doRemoveCreature(getNpcCid()) ---------------------------------------- if outfit.lookType == 1016 then --verifica se o npc eh female.. ;p monster = doCreateMonster("aHunterFemale", myPos) else monster = doCreateMonster("aHunter", myPos) end ---------------------------------------- doCloneOut(monster, outfit) addEvent(beDrunk, 100, monster) end addEvent(doSummonGymPokemon, 1000, getNpcCid()) end if #getCreatureSummons(challenger) <= 0 then selfAttackCreature(challenger) end end end end Você tem alguma imagem que possa auxiliar no problema? Se sim, coloque-a aqui.

@up

Então @marcot, a storage com o pokeName tem no servidor em vários scripts, goback, fly, surf, order

Então @marcot,mesmo eu nunca tendo capturado o pokémon, aparece isso. e não dá xp

@marcot, desculpa pela demora irmão, fiquei sem net. Então mano o script não dá erro nenhum na distro, porém não está funcionando o que poderia ser? actions\catch.lua lib\catchsystem.lua será que fiz algo de errado?

@marcot, pode me ajudar mano?

@marcot Funcionou perfeitamente mano, muito obrigado, posso te marcar em um tópico de ajuda pra ver se você consegue resolver o meu problema irmão? Mas acho que você esqueceu de outra coisa. if not doPlayerRemoveMoney(cid, config.prices["tier_"..heldType[1]]) then -- Se nao for possivel retirar a quantia de dinheiro do jogador, finalizar script doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need " .. >> config.prices.tier_..heldType[1] << .. " gold to fuse tier ".. heldType[1].. " held items.") return false end Você colocou o array no primeiro e não colocou no segundo: fora isso o script tá ótimo, rep+.

@marcot

@marcot, então amigo, será que você poderia colocar duas coisas a mais no seu script? A 1ª é: Para cada tier a pessoa ter uma quantia necessária de dinheiro, tipo assim.Fusão de Tier 1 para Tier 2: 3 helds tier 1 + 60K Fusão de Tier 2 para Tier 3: 3 helds tier 2 + 150K Fusão de Tier 3 para Tier 4: 3 helds tier 3 + 300K Fusão de Tier 4 para Tier 5: 3 helds tier 4 + 700K Fusão de Tier 5 para Tier 6: 3 helds tier 5 + 1KK Fusão de Tier 6 para Tier 7: 3 helds tier 6 + 1.5KK Fusão de Tier 7 para Tier 7: 3 helds tier 7 + 1.8KK A 2ª é: Poder colocar a fusão de helds tier 7 por tier 7 pois não tá dando para fundir tier 7 "You cannot fuse tier 7 held items."

Como é o torneio system deste servidor, alguém que já jogou poderia me explicar?

@UP

Olá à todos da comunidade, primeiramente quero pedir desculpas caso eu tenha criado o tópico na sessão errada, eu ainda não sei bem como funciona as sessões (rs). Então, eu estou aqui para pedir ajuda com um script que eu retirei daqui do fórum para implementar no meu servidor e eu queria que ele ficasse de uma forma mais legal e competitiva, segue o script: Catch System por Skill O que eu venho pedir é o seguinte, atualmente no sistema ele não verifica se você já capturou o pokémon, possibilitando assim que uma pessoa possa capturar vários pokémons do mesmo e ainda sim subir a skill. (Exemplo: Caso um player capture 10 rattatas ele irá continuar upando, pois não tem verificação se o player já capturou aquele pokemon). O que eu queria é que somente no primeiro caught de cada pokémon ele recebesse uma porcentagem para upar o skill, e também se possível queria que as rates de cada pokémon fosse diferente, pois, creio que ficaria meio injusto um rattata dando 20% de skill de caught e um shiny também dando o mesmo 20%. Quem puder me ajudar ficarei bastante agradecido.