Ir para conteúdo
Banner com Efeitos

Warner Arthur

Membro
  • Registro em

  • Última visita

  1. Queria com uma fonte de naruto, Colocar Naruto Ultimate Brasil No Meio Da Mascara do Obito
  2. Estou Criando um narutibia e tive uma ideia, acho que nenhum outro já teve, Ex: Todos Os Items, Não Terão Status, Essas Runas Que Irão Por Status No Item Ex: Runa Red : O Status que ela irá colocar no Item (Hp) Runa Gree : O Status que ela irá colocar no Item (Defesa) Runa Blue : O Status que ela irá colocar no Item (Chakra) Gostaria De Saber Se Alguem Poderia Me Ajudar Com Isto.
  3. Eu Queria essas sprites das notas, alguém poderia disponibilizar para mim ?
  4. Ainda não pegou. --' q troço bugado
  5. Não é erro, simplesmente eu posso deslogar com o pokémon na pokebola, mas quando eu entro novamente no personagem o pokémon na pokebola está morto
  6. Ainda Não Funciona
  7. Naõ está funcionando ainda. Nextbr, Minha base é do Gabriel Txu 3.0 editada por esqueci, mas a questão é que quando eu coloco o pokémon pra fora e saio do jogo, quando entro novamente ele aparece morto. Ai queria ajuda do tibiaking para me ajudar, quando o pokémon estiver fora da pokebola o personagem não pode sair do jogo.
  8. Também Não Funcionou
  9. function onLogout(cid) if #getCreatureSummons(cid) >= 1 then return doPlayerSendCancel(cid, "Volte seu Pokemon para Deslogar!") and false end local outfit = getCreatureOutfit(cid) if isInArray({1467, 1468}, outfit.lookType) then doPlayerSendCancel(cid, "Voçê Não pode deslogar Enquanto pesca!") return false end local thisitem = getPlayerSlotItem(cid, 8) if thisitem.uid <= 0 then return true end local ballName = getItemAttribute(thisitem.uid, "poke") -------------------------------------------------------- btype = getPokeballType(thisitem.itemid) --------------------------------------------------------------- if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 212124) <= 0 then --alterado v2.6 if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then BackTeam(cid) end end --////////////////////////////////////////////////////////////////////////////////////////-- if not isCreature(cid) then return true end if getPlayerStorageValue(cid, 52480) >= 1 or getPlayerStorageValue(cid, 52481) >= 0 then local sid = getPlayerByName(getPlayerStorageValue(cid, 52482)) local sendLose = true if isCreature(sid) then if getPlayerStorageValue(sid, 52482) == getCreatureName(cid) then addEvent(doSendAnimatedText, 1000, getThingPosWithDebug(sid), "WIN", COLOR_ELECTRIC) setPlayerStorageValue(sid, 52480, -1) setPlayerStorageValue(sid, 52481, -1) setPlayerStorageValue(sid, 52482, -1) setPlayerStorageValue(sid, 52483, -1) --alterado v2.6.1 setPlayerStorageValue(sid, 6598754, -1) doCreatureSetSkullType(sid, 0) else sendLose = false end end if sendLose then addEvent(doSendAnimatedText, 1000, getThingPosWithDebug(cid), "LOSE", COLOR_BURN) end setPlayerStorageValue(cid, 52480, -1) setPlayerStorageValue(cid, 52481, -1) setPlayerStorageValue(cid, 52482, -1) setPlayerStorageValue(cid, 52483, -1) setPlayerStorageValue(cid, 6598754, -1) doCreatureSetSkullType(cid, 0) end --////////////////////////////////////////////////////////////////////////////////////////-- if #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then local cmed2 = getCreatureSummons(cid)[1] local poscmed = getThingPos(cmed2) local cmeddir = getCreatureLookDir(cmed2) local namecmed = getCreatureName(cmed2) local hp, maxHp = getCreatureHealth(getCreatureSummons(cid)[1]), getCreatureMaxHealth(getCreatureSummons(cid)[1]) local gender = getPokemonGender(cmed2) local level = getWildPokemonLevel(cmed2) doRemoveCreature(getCreatureSummons(cid)[1]) local back = doCreateMonster(namecmed, poscmed) addEvent(doCreatureSetSkullType, 150, back, gender) addEvent(setWildPokemonLevel, 150, back, level) doCreatureSetLookDir(back, cmeddir) addEvent(doCreatureAddHealth, 100, back, hp-maxHp) --alterado v2.5 control mind -- pokemon controlador local ball2 = getPlayerSlotItem(cid, 8) local mynewpos = getThingPos(getCreatureSummons(cid)[1]) doRemoveCreature(getCreatureSummons(cid)[1]) local pk2 = doSummonCreature(getItemAttribute(ball2.uid, "poke"), mynewpos) doConvinceCreature(cid, pk2) addEvent(doAdjustWithDelay, 100, cid, pk2, true, true, false) setPlayerStorageValue(cid, 888, -1) --alterado v2.7 cleanCMcds(ball2.uid) doCreatureSetLookDir(getCreatureSummons(cid)[1], 2) registerCreatureEvent(pk2, "SummonDeath") --alterado v2.6 end ------------------------------------------------------------------------------------- local summon = getCreatureSummons(cid)[1] if #getCreatureSummons(cid) >= 1 and thisitem.uid > 1 then if getPlayerStorageValue(cid, 212124) <= 0 then doItemSetAttribute(thisitem.uid, "hp", (getCreatureHealth(summon) / getCreatureMaxHealth(summon))) end --alterado v2.5 setPlayerStorageValue(cid, 212124, 0) doTransformItem(thisitem.uid, pokeballs[btype].on) doSendMagicEffect(getThingPos(summon), pokeballs[btype].effect) doRemoveCreature(summon) end if getCreatureOutfit(cid).lookType == 814 then doPlayerStopWatching(cid) end if tonumber(getPlayerStorageValue(cid, 17000)) and getPlayerStorageValue(cid, 17000) >= 1 then --alterado v2.6 markFlyingPos(cid, getThingPos(cid)) end if getPlayerStorageValue(cid, 22545) == 1 then --alterado v2.4 setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1) if getGlobalStorageValue(22550) <= 0 then endGoldenArena() --alterado v2.7 end end return TRUE end local deathtexts = {"Oh no! POKENAME, come back!", "Come back, POKENAME!", "That's enough, POKENAME!", "You did well, POKENAME!", "You need to rest, POKENAME!", "Nice job, POKENAME!", "POKENAME, you are too hurt!"} function onDeath(cid, deathList) local owner = getCreatureMaster(cid) if getPlayerStorageValue(cid, 637500) >= 1 then doSendMagicEffect(getThingPos(cid), 211) doRemoveCreature(cid) return true end if getPlayerStorageValue(cid, 212123) >= 1 then --alterado v2.5 return true end --////////////////////////////////////////////////////////////////////////////////////////-- checkDuel(owner) --alterado v2.6 duel system --////////////////////////////////////////////////////////////////////////////////////////-- local thisball = getPlayerSlotItem(owner, 8) local ballName = getItemAttribute(thisball.uid, "poke") btype = getPokeballType(thisball.itemid) if #getCreatureSummons(owner) > 1 then BackTeam(owner, getCreatureSummons(owner)) end doSendMagicEffect(getThingPos(cid), pokeballs[btype].effect) doTransformItem(thisball.uid, pokeballs[btype].off) doPlayerSendTextMessage(owner, 22, "Your pokemon fainted.") local say = deathtexts[math.random(#deathtexts)] say = string.gsub(say, "POKENAME", getCreatureName(cid)) if getPlayerStorageValue(cid, 33) <= 0 then doCreatureSay(owner, say, TALKTYPE_SAY) end doItemSetAttribute(thisball.uid, "hp", 0) doItemSetAttribute(thisball.uid, "happy", getPlayerStorageValue(cid, 1008) - happyLostOnDeath) doItemSetAttribute(thisball.uid, "hunger", getPlayerStorageValue(cid, 1009)) if useOTClient then doPlayerSendCancel(owner, '12//,hide') --alterado v2.7 end doRemoveCreature(cid) return false end
  10. Não Funcionou.
  11. Eu queria que quando o personagem estiver usando o pokémon. Tipo Eu Estou Usando o "Tropius" Sem Fly. e quando eu for deslogar do jogo. aparece um aviso assim "Você Não Pode Sair Porque Seu Pokémon Está No Lado De Fora da Pokébola
  12. Eu queria um sistema bem simples, que enquanto você estiver usando o pokémon não possa sair do jogo.
  13. Desculpa a demora, eu estava ocupado. local fishing = { ["Magikarp"] = {skill = 0, level = 100}, ["Horsea"] = {skill = 2, level = 100}, ["Poliwag"] = {skill = 2, level = 100}, ["Krabby"] = {skill = 5, level = 100}, ["Goldeen"] = {skill = 5, level = 100}, ["Tentacool"] = {skill = 5, level = 100}, ["Staryu"] = {skill = 10, level = 100}, ["Kingler"] = {skill = 15, level = 100}, ["Seaking"] = {skill = 15, level = 100}, ["Starmie"] = {skill = 20, level = 10}, ["Psyduck"] = {skill = 15, level = 100}, ["Poliwhirl"] = {skill = 20, level = 100}, ["Seadra"] = {skill = 25, level = 100}, ["Gyarados"] = {skill = 25, level = 100}, ["Tentacruel"] = {skill = 25, level = 100}, ["Blastoise"] = {skill = 25, level = 100}, ["Marill"] = {skill = 0, level = 100}, ["Remoraid"] = {skill = 2, level = 100}, ["Carvanha"] = {skill = 5, level = 100}, ["Totodile"] = {skill = 5, level = 100}, ["Azumarill"] = {skill = 5, level = 100}, ["Wailmer"] = {skill = 5, level = 100}, ["Feebas"] = {skill = 5, level = 100}, ["Barboach"] = {skill = 15, level = 10}, ["Squirtle"] = {skill = 15, level = 100}, ["Wartortle"] = {skill = 20, level = 100}, ["Lapras"] = {skill = 20, level = 100}, ["Wailord"] = {skill = 20, level = 100}, ["Feraligatr"] = {skill = 20, level = 100}, ["Omanyte"] = {skill = 20, level = 100}, ["Omastar"] = {skill = 20, level = 100}, ["Marill"] = {skill = 20, level = 100}, ["Kabuto"] = {skill = 20, level = 100}, ["Kabutops"] = {skill = 20, level = 100}, ["Milotic"] = {skill = 20, level = 100}, ["Vaporeon"] = {skill = 20, level = 100}, ["Kingdra"] = {skill = 25, level = 100}, ["Shellder"] = {skill = 10, level = 100}, ["Seel"] = {skill = 10, level = 100}, ["Dewgong"] = {skill = 20, level = 100}, ["Cloyster"] = {skill = 20, level = 100}, } local storage = 15458 local storageP = 154580 local bonus = 1 local limite = 80 local function doFish(cid, pos, ppos, chance, interval, number) if not isCreature(cid) then return false end if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then return false end if getPlayerStorageValue(cid, storage) ~= number then return false end doSendMagicEffect(pos, CONST_ME_LOSEENERGY) local peixe = 0 local playerpos = getClosestFreeTile(cid, getThingPos(cid)) local fishes = {} local randomfish = "" --alterado!! if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, 20) end for a, b in pairs (fishing) do if getPlayerSkillLevel(cid, 6) >= b.skill then table.insert(fishes, a) end end if math.random(1, 100) <= chance then if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus) end randomfish = fishes[math.random(#fishes)] peixe = doSummonCreature(randomfish, playerpos) if not isCreature(peixe) then addEvent(doFish, interval, cid, pos, ppos, chance, interval, number) return true end doSetMonsterPassive(peixe) doWildAttackPlayer(peixe, cid) if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173) ---- 1 e o efeito que ira sair ao usar a rod na agua. doChallengeCreature(getCreatureSummons(cid)[1], peixe) else doSendMagicEffect(getThingPos(cid), 173) doChallengeCreature(cid, peixe) end setPlayerStorageValue(cid, storageP, 1) doCreatureSetNoMove(cid, false) doRemoveCondition(cid, CONDITION_OUTFIT) return true end addEvent(doFish, interval, cid, pos, ppos, chance, interval, number) setPlayerStorageValue(cid, storageP, 1) doCreatureSetNoMove(cid, true) return true end local waters = {4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825} function onUse(cid, item, fromPos, itemEx, toPos) if getPlayerGroupId(cid) == 11 then return true end local checkPos = toPos checkPos.stackpos = 0 if getTileThingByPos(checkPos).itemid <= 0 then doPlayerSendCancel(cid, '!') return true end if not isInArray(waters, getTileInfo(toPos).itemid) then return true end if (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1) and not canFishWhileSurfingOrFlying then doPlayerSendCancel(cid, "You can't fish while surfing/flying.") return true end if isInArray(waters, getTileInfo(getThingPos(cid)).itemid) then doPlayerSendCancel(cid, "You can't fish while surfing neither flying above water.") return true end if getTileInfo(getThingPos(getCreatureSummons(cid)[1] or cid)).protection then doPlayerSendCancel(cid, "You can't fish pokémons if you or your pokémon is in protection zone.") return true end if getPlayerStorageValue(cid, storageP) > 0 then doPlayerSendTextMessage(cid, 27, "You are already fishing.") return true end if getPlayerSex(cid) == 1 then if getCreatureOutfit(cid).lookType ~= 520 then ---- Outfit necessaria para usar o fishing doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.") return false end else if getCreatureOutfit(cid).lookType ~= 521 then ---- Outfit necessaria para usar o fishing doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.") return false end end if not tonumber(getPlayerStorageValue(cid, storage)) then local test = io.open("data/sendtobrun123.txt", "a+") local read = "" if test then read = test:read("*all") test:close() end read = read.."\n[fishing.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, storage).."" local reopen = io.open("data/sendtobrun123.txt", "w") reopen:write(read) reopen:close() setPlayerStorageValue(cid, storage, 1) end setPlayerStorageValue(cid, storage, getPlayerStorageValue(cid, storage) + 1) if getPlayerStorageValue(cid, storage) >= 800 then setPlayerStorageValue(cid, storage, 1) end local delay = 3500 - getPlayerSkillLevel(cid, 6) * 25 local chance = 10 + getPlayerSkillLevel(cid, 6) / 2.5 outfit = getCreatureOutfit(cid) if getPlayerSex(cid) == 0 then out = 1467 --- Outfit de Pesca FEMININA else out = 1468 --- Outfit de Pesca MASCULINA end doSetCreatureOutfit(cid, {lookType = out, lookHead = outfit.lookHead, lookBody = outfit.lookBody, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1) doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage)) return true end
  14. Não, é essa a questão. Quando coloco pra pescar não tem outro jeito de parar a não ser esperar pescar algum poke

Informação Importante

Confirmação de Termo