345sat, já lhe avisei para não ficar upando o tópico toda hora, tenho certeza que se alguém soubesse como te ajudar, já teria ajudado.

Leia as regras: http://www.tibiaking...-gerais/?p=7680

2.7 - Dar "UP" para subir tópicos:
Não é proibido da "UP" em seus tópicos para ele subir na listagem, porém você só poderá usar deste beneficio dentro de um período de 24h, ou seja, se você deu "UP" agora só poderá dar novamente daqui 24h, caso ao contrário seu tópico será fechado. Lembre-se que isto é um exceção da regra do double post, tanto é que você só poderá usar deste beneficio de 48 em 48 horas.

obrigado wakon vou prestar + atenção

Mande seu goback.lua e seu order.lua

Como os scripts são grandes, mande dentro dessa tag:

[spoiler][/spoiler]

Editado Maio 14, 2015 10 anos por david0703 (veja o histórico de edições)

[spoiler meu conteudo] Order.lua local skills = specialabilities

local surfborders = {4644, 4645, 4646, 4647, 4648, 4649, 4650, 4651, 4652, 4653, 4654, 4655, 4656, 4657, 4658, 4659, 4660, 4661, 4662, 4663}

 

local txt = {

["rock smash"] = {"break that rock!", "smash that rock!", "destroy that rock!", "smash it!", "break it!", "destroy it!"},

["cut"] = {"cut that bush!", "cut it down!", "cut it off!", "cut off that bush!", "cut down that bush!", "cut that bush down!"},

["move"] = {"move!", "move there!", "go there!", "walk there!"},

["light"] = {"flash!", "light!", "flash this place!", "light up this place!"},

["dig"] = {"open that hole!", "dig that hole!", "open it!", "dig it!"},

["blink"] = {"teleport there!", "blink there!", "blink!", "teleport!"},

["ride"] = {"let me ride you!", "let's ride!", "let me mount you!", "let me get on you!"},

["fly"] = {"let's fly!", "let me get on you!"} ,

["untransform"] = {"go back to normal!", "transform into yourself again!", "stop transformation!"},

["headbutt"] = {"headbutt on three", "headbutt that three!", "headbutt it off"}, --alterado v1.6

}

 

function onUse(cid, item, frompos, item2, topos)

local checkpos = topos

checkpos.stackpos = 0

 

if getTileThingByPos(checkpos).uid <= 0 then return true end

 

--------END FLY/RIDE --------

if getCreatureCondition(cid, CONDITION_OUTFIT) and (item2.uid == cid or getRecorderPlayer(topos) == cid) and (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1) then

 

if isInArray({460, 11675, 11676, 11677}, getTileInfo(getThingPos(cid)).itemid) then

        doPlayerSendCancel(cid, "You can\'t stop flying at this height!")

        return true

    end

 

local item = getPlayerSlotItem(cid, 8)

local pokemon = getItemAttribute(item.uid, "poke")

local x = pokes[pokemon]

 

        if getTileInfo(getThingPos(cid)).itemid >= 4820 and getTileInfo(getThingPos(cid)).itemid <= 4825 then

        doPlayerSendCancel(cid, "You can\'t stop flying above the water!")

        return true

        end

 

doSummonMonster(cid, pokemon)

 

local pk = getCreatureSummons(cid)[1]

 

if not isCreature(pk) then

pk = doCreateMonster(pokemon, backupPos)

if not isCreature(pk) then

doPlayerSendCancel(cid, "You can't stop flying/riding here.")

return true

end

doConvinceCreature(cid, pk)

end

 

doTeleportThing(pk, getThingPos(cid), false)

doCreatureSetLookDir(pk, getCreatureLookDir(cid))

 

adjustStatus(pk, item.uid, true, false, true)

 

doPlayerSay(cid, ""..getPokeName(getCreatureSummons(cid)[1])..", let me get down!", 1)

 

if getCreatureCondition(cid, CONDITION_PARALYZE) == true then

       doRemoveCondition(cid, CONDITION_PARALYZE)

  addEvent(doAddCondition, 10, cid, paralizeArea2)             --alterado v1.5

    end

    doRegainSpeed(cid)

    

doRemoveCondition(cid, CONDITION_OUTFIT)

setPlayerStorageValue(cid, 17000, -1)

setPlayerStorageValue(cid, 17001, -1)

 

return true

end

-----------------------------

-------- DUEL SYSTEM ------------------------

if isPlayer(item2.uid) and (item2.uid ~= cid or getRecorderPlayer(topos) ~= cid) and getPlayerStorageValue(item2.uid, 6598754) <= -1 and getPlayerStorageValue(item2.uid, 52480) <= -1 and getCreatureOutfit(item2.uid).lookType ~= 814 then

---<= -1 and getPlayerStorageValue(item2.uid, 52480) <= -1 then

---                                                                                                                                            --alterado v1.6.1

if getPlayerStorageValue(cid, 52480) >= 1 then 

return doPlayerSendTextMessage(cid, 20, "You already invited somebody to duel or already is dueling with somebody") 

end

local storages = {17000, 63215, 17001, 13008, 5700}

for s = 1, #storages do

    if getPlayerStorageValue(cid, storages) >= 1 then

       return doPlayerSendTextMessage(cid, 20, "You can't do that while is Flying, Riding, Surfing, Diving or mount a bike!") 

    end

end

if getPlayerStorageValue(cid, 6598754) == 1 or getPlayerStorageValue(cid, 6598755) == 1 then

return doPlayerSendTextMessage(cid, 20, "You can't do that while in PVP zone!")

end

--- 

local player = getRecorderPlayer(topos)   --alterado v1.6.1

   doPlayerSetVocation(cid, 8) 

   openChannelDialog(cid)   

   setPlayerStorageValue(cid, 52480, 1)

   setPlayerStorageValue(cid, 6598754, 5)                                 

   setPlayerStorageValue(cid, 52482, getCreatureName(player)) --alterado v1.6.1

   setPlayerStorageValue(cid, 52483, 0)

   doCreatureSetSkullType(cid, 2)

   return true

   

elseif isPlayer(item2.uid) and (item2.uid ~= cid or getRecorderPlayer(topos) ~= cid) and getPlayerStorageValue(item2.uid, 6598754) == 5 and getCreatureOutfit(item2.uid).lookType ~= 814 then

---

if getPlayerStorageValue(cid, 52481) <= -1 then

return true      --alterado v1.6.1

end

if getPlayerStorageValue(cid, 52480) >= 1 then 

return doPlayerSendTextMessage(cid, 20, "You already invited somebody to duel or already is dueling with somebody") 

end

local storages = {17000, 63215, 17001, 13008, 5700}

for s = 1, #storages do

    if getPlayerStorageValue(cid, storages) >= 1 then

       return doPlayerSendTextMessage(cid, 20, "You can't do that while is Flying, Riding, Surfing, Diving or mount a bike!") 

    end

end

if getPlayerStorageValue(cid, 6598754) == 1 or getPlayerStorageValue(cid, 6598755) == 1 then

return doPlayerSendTextMessage(cid, 20, "You can't do that while in PVP zone!")

end

---  --alterado v1.6.1 funçao agora em lib/some function.lua

 

local player = getRecorderPlayer(topos)   --alterado v1.6.1 

   setPlayerStorageValue(cid, 52480, 1)

   setPlayerStorageValue(player, 52483, 1)   --alterado v1.6.1

   doCreatureSetSkullType(cid, 1)

   doCreatureSetSkullType(player, 1)      --alterado v1.6.1

   doSendAnimatedText(getThingPos(cid), "BATTLE", COLOR_ELECTRIC)

   beginDuel(cid, player, 6)   --alterado v1.6.1

   return true

end

------------------------------------------------------------------------------------

 

if #getCreatureSummons(cid) == 0 then return doPlayerSendCancel(cid, "You need a pokemon to use order!") end

if getCreatureNoMove(getCreatureSummons(cid)[1]) then return true end

markLP(getCreatureSummons(cid)[1], -1)

 

if getMarkedPos(getCreatureSummons(cid)[1]).x == topos.x and getMarkedPos(getCreatureSummons(cid)[1]).y == topos.y then

return true

end

 

local unfix = {x = 1, y = 1, z = 1}

local thisball = getPlayerSlotItem(cid, 8)

local mysum = getCreatureSummons(cid)[1]

local sid = mysum or cid

local maxMoveDist = getDistanceBetween(getThingPos(sid), topos) * 2 + 1

 

markPos(mysum, topos)

markOwnerPos(mysum, getThingPos(cid))

 

-------- ROCK SMASH ---------

if item2.itemid == 1285 and isInArray(skills["rock smash"], getPokemonName(mysum)) then

 

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["rock smash"][math.random(1, #txt["rock smash"])].."", 1)

addEvent(goThere, 500, mysum, topos, "rock smash", isCreature(getCreatureTarget(cid)))

 

return true

end

-----------------------------

 

-------- HEADBUTT -----------

if item2.itemid == 12591 and getPokemonLevel(mysum) >= 15 then  --alterado v1.6

                  --id do item  arvore normal

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["headbutt"][math.random(1, #txt["headbutt"])].."", 1)

addEvent(goThere, 500, mysum, topos, "headbutt", isCreature(getCreatureTarget(cid)))

 

return true

end

-----------------------------

 

-------- CUT ----------------

if item2.itemid == 2767 and isInArray(skills["cut"], getPokemonName(mysum)) then

 

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["cut"][math.random(1, #txt["cut"])].."", 1)

addEvent(goThere, 500, mysum, topos, "cut", isCreature(getCreatureTarget(cid)))

 

return true

end

-----------------------------

 

-------- TRANSFORM ----------

if (getCreatureName(mysum) == "Ditto" or getCreatureName(mysum) == "Shiny Ditto") and isMonster(item2.uid) then

if item2.uid == mysum then                                                                 --edited

if isTransformed(mysum) then

deTransform(mysum, getItemAttribute(thisball.uid, "transTurn"))

markPos(mysum, unfix)

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["untransform"][math.random(1, #txt["untransform"])].."", 1)

return true

end

doPlayerSendCancel(cid, "Your ditto is not transformed.")

markPos(mysum, unfix)

return true

end

 

if getCreatureName(item2.uid) == "Ditto" or getCreatureName(item2.uid) == "Shiny Ditto" then    --edited transform for shiny ditto

doPlayerSendCancel(cid, "Your ditto can't transform into another ditto.")

markPos(mysum, unfix)

return true

end

 

if getCreatureName(item2.uid) == getPlayerStorageValue(mysum, 1010) then

doPlayerSendCancel(cid, "Your ditto is already transformed into that pokemon.")

markPos(mysum, unfix)

return true

end

 

local cd = getCD(thisball.uid, "trans", 40)

 

if cd > 0 then

doPlayerSendCancel(cid, "Your pokemon is too tired to transform again. Cooldown: ("..getStringmytempo(cd)..")")

return true

end

 

if getHappiness(mysum) <= 50 then

doSendMagicEffect(getThingPos(mysum), happinessRate[1].effect)

markPos(mysum, unfix)

return true

end

 

local turn = getItemAttribute(thisball.uid, "transTurn")

 

if not turn or turn > 10 then

doItemSetAttribute(thisball.uid, "transTurn", 0)

else

doItemSetAttribute(thisball.uid, "transTurn",  turn + 1)

end

 

local time = 140 + 2 * getPokemonLevel(mysum)

 

turn = getItemAttribute(thisball.uid, "transTurn")

 

markPos(mysum, unfix)

setPlayerStorageValue(mysum, 1010, getCreatureName(item2.uid))

doSetCreatureOutfit(mysum, getCreatureOutfit(item2.uid), -1)

addEvent(deTransform, time * 1000, mysum, turn)

doSendMagicEffect(getThingPos(mysum), 184)

doCreatureSay(mysum, "TRANSFORM!", TALKTYPE_MONSTER)

local name = getCreatureName(item2.uid)

setCD(thisball.uid, "trans", 40)

doItemSetAttribute(thisball.uid, "transBegin", os.clock())

doSetItemAttribute(thisball.uid, "transLeft", time)

doSetItemAttribute(thisball.uid, "transOutfit", getCreatureOutfit(item2.uid).lookType)

doSetItemAttribute(thisball.uid, "transName", getCreatureName(item2.uid))

doFaceCreature(mysum, getThingPos(item2.uid))

doPlayerSay(cid, ""..getPokeName(mysum)..", transform into "..getArticle(name).." "..name.."!", 1)

 

    if useKpdoDlls then

doUpdateMoves(cid)  --alterado v1.6

end

 

if dittoCopiesStatusToo then

   setPlayerStorageValue(mysum, 1001, dittoBonus*getOffense(item2.uid))

   setPlayerStorageValue(mysum, 1002, dittoBonus*getDefense(item2.uid))

   setPlayerStorageValue(mysum, 1003, getSpeed(item2.uid))

   setPlayerStorageValue(mysum, 1004, dittoBonus*getVitality(item2.uid))

   setPlayerStorageValue(mysum, 1005, dittoBonus*getSpecialAttack(item2.uid))

   ------------------

   local pct = getCreatureHealth(mysum) / getCreatureMaxHealth(mysum)

   local vit = (getVitality(mysum) * getMasterLevel(mysum)) / 100

   setCreatureMaxHealth(mysum, ( vit * HPperVITsummon ))   --alterado v1.6

   doCreatureAddHealth(mysum, pct * vit * HPperVITsummon)

end

 

return true

end

-----------------------------

 

-------- LIGHT --------------

if isMonster(item2.uid) and getCreatureMaster(item2.uid) == cid then

 

markPos(mysum, unfix)

 

if not isInArray(skills["light"], getPokemonName(item2.uid)) then

doPlayerSendCancel(cid, "Your pokemon can't use flash.")

return true

end

 

local cd = getCD(thisball.uid, "light", 30)

 

if cd > 0 then

doPlayerSendCancel(cid, "Your pokemon is too tired to use flash. Cooldown: ("..getStringmytempo(cd)..")")

return true

end

 

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["light"][math.random(1, #txt["light"])].."", 1)

doCreatureSay(mysum, "FLASH!", TALKTYPE_MONSTER)

doSendMagicEffect(getThingPos(mysum), 28)

 

local size = 5

size = size + math.floor(getSpecialAttack(mysum) / 60)

size = size + math.ceil(getPokemonLevel(mysum) / 60)

 

if size > 11 then

size = 11

end

 

doSetCreatureLight(mysum, size, 215, 600*1000)

 

local delay = math.floor(30 - getPokemonLevel(mysum) / 4)

if delay > 0 then

setCD(thisball.uid, "light", delay)

end

 

return true

end  

-----------------------------

 

 

-------- DIG ----------------

if isInArray(skills["digholes"], item2.itemid) and isInArray(skills["dig"], getPokemonName(mysum)) then

 

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["dig"][math.random(1, #txt["dig"])].."", 1)

addEvent(goThere, 500, mysum, topos, "dig", isCreature(getCreatureTarget(cid)))

 

return true

end

-----------------------------

 

 

-------- BLINK / MOVE -------

if not isCreature(item2.uid) and isInArray(skills["blink"], getPokemonName(mysum)) then

 

local cd = getCD(thisball.uid, "blink", 30)

    

    if getPlayerStorageValue(mysum, 2365487) ==  1 then

return true                  --alterado v1.4

end

 

if cd > 0 or not canWalkOnPos(topos, false, false, true, true, true) then

 

doPlayerSendCancel(cid, "Blink cooldown: ("..getStringmytempo(cd)..")")

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["move"][math.random(1, #txt["move"])].."", 1)

addEvent(goThere, 500, mysum, topos, "move", isCreature(getCreatureTarget(cid)), maxMoveDist)

 

return true

end

 

local CD = isShinyName(getCreatureName(mysum)) and 20 or 30   --edited blink

 

markPos(mysum, topos)

markOwnerPos(mysum, getThingPos(cid))

setCD(thisball.uid, "blink", CD)

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["blink"][math.random(1, #txt["blink"])].."", 1)

doSendDistanceShoot(getThingPos(mysum), topos, 39)

doSendMagicEffect(getThingPos(mysum), 211)

doTeleportThing(mysum, topos, false)

doSendMagicEffect(topos, 134)

doCreatureSay(mysum, "BLINK!", TALKTYPE_MONSTER)

goThere(mysum, topos, "blink", isCreature(getCreatureTarget(cid)))  --edited blink

 

return true

end

-----------------------------

 

 

----START FLYorRIDE ---------

if (item2.uid == cid or getRecorderPlayer(topos) == cid) and (isInArray(skills["fly"], getPokemonName(mysum)) or isInArray(skills["ride"], getPokemonName(mysum))) then

 

--if not isPremium(cid) then

--doPlayerSendCancel(cid, "Only premium members are allowed to fly or ride.")

--return true

--end

 

if getPlayerStorageValue(cid, 212124) >= 1 then         --alterado v1.6

       return doPlayerSendCancel(cid, "You can't do it with a pokemon with mind controlled!")

    end

    

    if getPlayerStorageValue(cid, 52480) >= 1 then

       return doPlayerSendCancel(cid, "You can't do it while a duel!")  --alterado v1.6

    end   

 

    if getPlayerStorageValue(cid, 5700) == 1 then

       doPlayerSendCancel(cid, "You can't do that while is mount in a bike!") --edited proteçao pra bike

       return true

    end

    

    if getPlayerStorageValue(cid, 22545) >= 1 and isInArray(skills["fly"], getPokemonName(mysum)) then       --alterado v1.4

       return doPlayerSendCancel(cid, "You can't do that while in the Golden Arena!")

    end

    

local pct = getCreatureHealth(mysum) / getCreatureMaxHealth(mysum)

doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "hp", 1 - pct)

 

if isInArray(skills["fly"], getPokemonName(mysum)) then

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["fly"][math.random(1, #txt["fly"])].."", 1)

addEvent(goThere, 500, mysum, topos, "fly", isCreature(getCreatureTarget(cid)))

else

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["ride"][math.random(1, #txt["ride"])].."", 1)

addEvent(goThere, 500, mysum, topos, "ride", isCreature(getCreatureTarget(cid)))

end

 

return true

end

-----------------------------

----------------------------------Control Mind--------------------------------------------   alterado v1.5

if isCreature(item2.uid) and ehMonstro(item2.uid) and isInArray(skills["control mind"], getCreatureName(mysum)) and item2.uid ~= mysum then

   if not isCreature(item2.uid) then

   return true

   end

 

   if isSleeping(mysum) then

      return doPlayerSendCancel(cid, "Your pokemon is sleeping...zZzZ")

   end

 

   if getTileInfo(getThingPos(cid)).protection or getTileInfo(getThingPos(getCreatureSummons(cid)[1])).protection then

      return doPlayerSendCancel(cid, "You or your pokemon are in Pz zone!")

   end

  

   if #getCreatureSummons(cid) == 2 then

      return doPlayerSendCancel(cid, "You only can control one Pokemon!")

   end

 

   local cd = getCD(thisball.uid, "control", 120)

   

   if cd > 0 then

      doPlayerSendCancel(cid, "You have to wait "..cd.." segs to use Control Mind again!")

      return true

   end

   

   if getPokemonLevel(item2.uid) >= getPokemonLevel(mysum) then

      return doPlayerSendCancel(cid, "Your pokemon can't control this mind!")

   end

   

local cmed = item2.uid

setCD(thisball.uid, "control", 120) 

local gender = getPokemonGender(cmed)

doSendDistanceShoot(getThingPos(mysum), getThingPos(cmed), 39)

--------------

setPlayerStorageValue(cid, 212124, 1)

doConvinceCreature(cid, cmed) 

setPlayerStorageValue(cmed, 212123, 1) 

doCreatureSay(cid, ""..getCreatureName(mysum)..", control "..string.lower(getCreatureName(cmed)).."'s mind!", 1)

 

local cmname = getCreatureName(mysum)

local cmpos = getThingPos(mysum)

local pokelife = (getCreatureHealth(mysum) / getCreatureMaxHealth(mysum))

doItemSetAttribute(thisball.uid, "hp", pokelife)

doRemoveCreature(mysum)

local cmzao = doSummonCreature(""..cmname.." cm", cmpos)

doConvinceCreature(cid, cmzao)

setPlayerStorageValue(cid, 888, 1)

if useKpdoDlls then

   doUpdateMoves(cid)

end

 

local function check(cid, controled, rod)

if isCreature(cid) then

ball2 = getPlayerSlotItem(cid, 8)

   if getPlayerStorageValue(cid, 888) <= 0 then

   return true

   end

   if not isCreature(controled) then

      setPlayerStorageValue(cid, 212124, 0)

      local sum = isCreature(getCreatureSummons(cid)[1]) and getCreatureSummons(cid)[1] or getCreatureSummons(cid)[2] 

      local pkcmpos = getThingPos(sum)

      doRemoveCreature(sum)

      local item = getPlayerSlotItem(cid, 8)

      local pk = doSummonCreature(getItemAttribute(item.uid, "poke"), pkcmpos)

      doConvinceCreature(cid, pk)

      doCreatureSetLookDir(getCreatureSummons(cid)[1], 2)

      addEvent(doAdjustWithDelay, 100, cid, pk, true, true, false)

      setPlayerStorageValue(cid, 888, 0)

      cleanCMcds(item.uid)

      registerCreatureEvent(pk, "SummonDeath")  --alterado v1.6

      if useKpdoDlls then

         doUpdateMoves(cid)

      end

      return true

   end

   

   if rod <= 0 then

      --Pokemon controlado

      local cmed2 = getCreatureSummons(cid)[1]

 local poscmed = getThingPos(cmed2)

 local cmeddir = getCreatureLookDir(cmed2)

 local namecmed = getCreatureName(cmed2)

 local gender = getPokemonGender(cmed2)

 local hp, maxHp = getCreatureHealth(getCreatureSummons(cid)[1]), getCreatureMaxHealth(getCreatureSummons(cid)[1])

 doRemoveCreature(getCreatureSummons(cid)[1])

 local back = doCreateMonster(namecmed, poscmed)

 addEvent(doCreatureSetSkullType, 150, back, gender)

      doWildAttackPlayer(back, cid)

 doCreatureSetLookDir(back, cmeddir)

 addEvent(doCreatureAddHealth, 100, back, hp-maxHp)

 

 -- pokemon controlador

      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, 0)

      doCreatureSetLookDir(getCreatureSummons(cid)[1], 2)

      setPlayerStorageValue(cid, 212124, 0)

      cleanCMcds(ball2.uid)

      registerCreatureEvent(pk2, "SummonDeath")  --alterado v1.6

      if useKpdoDlls then

         doUpdateMoves(cid)

      end

   else

       if isInArray({"Haunter", "Gengar", "Shiny Gengar"}, cmname) then

          doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 214)

       else 

          doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 220)

       end

   end

end

addEvent(check, 500, cid, controled, rod-1)

end

 

check(cid, cmed, 40) 

return true

end

---------------------------------------------------------------------

-------- MOVE / END ---------

    

local onlyWater = false

 

if isWater(getTileThingByPos(checkpos).itemid) then

onlyWater = true

for checkwater = 0, 7 do

if not isWater(getTileThingByPos(getPosByDir(checkpos, checkwater)).itemid) then

onlyWater = false

end

end

end

 

if onlyWater then

doPlayerSendCancel(cid, "Destination is not reachable.")

return true

end

 

doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["move"][math.random(1, #txt["move"])].."", 1)

 

if isCreature(getCreatureTarget(cid)) then

  goThere(mysum, topos, "move", isCreature(getCreatureTarget(cid)), maxMoveDist)           

else

       addEvent(goThere, 500, mysum, topos, "move", isCreature(getCreatureTarget(cid)), maxMoveDist)                 

end

-----------------------------

 

return true

end]

[/spoiler Goldback.lua local EFFECTS = {

--[OutfitID] = {Effect}

["Magmar"] = 35,   

["Jynx"] = 17,          --alterado v1.5

["Shiny Jynx"] = 17,    

}

 

function onUse(cid, item, frompos, item2, topos)

 

if exhaustion.get(cid, 6666) and exhaustion.get(cid, 6666) > 0 then return true end

 

local owner = getItemAttribute(item.uid, "firstpoke")

 

if owner and owner ~= getCreatureName(cid) then

doPlayerSendCancel(cid, "This pokemon belongs to "..owner..", it is his first pokemon. Please, give it back to him.")

return true

end

 

if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then

return true

end

-------------------------------------------------------

ballName = getItemAttribute(item.uid, "poke")

                                               

   btype = getPokeballType(item.itemid)

   usando = pokeballs[btype].use

 

local effect = pokeballs[btype].effect

if not effect then

effect = 21

end

----------------------------------------------------------

if item.itemid == usando then                           

 

if getPlayerStorageValue(cid, 990) == 1 then -- GYM

doPlayerSendCancel(cid, "You can't return your pokemon during gym battles.")

return true

end

 

---------------------------------------------------------------------------------------

if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 637501) >= 1 then   

       BackTeam(cid, getCreatureSummons(cid))       --<<-- Edited Team Slice system

    end   

    ---------------------------------------------------------------------------------------

    if #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then

       doPlayerSendCancel(cid, "You can't do that while is controling a mind")

       return true     --alterado v1.5

    end

    

if #getCreatureSummons(cid) <= 0 then

if isInArray(pokeballs[btype].all, item.itemid) then

doTransformItem(item.uid, pokeballs[btype].off)

doItemSetAttribute(item.uid, "hp", 0)

doPlayerSendCancel(cid, "This pokemon is fainted.")

   return true

end

end

 

    local cd = getCD(item.uid, "blink", 30)

    if cd > 0 then

       setCD(item.uid, "blink", 0)

    end

    

local z = getCreatureSummons(cid)[1]

 

if getCreatureCondition(z, CONDITION_INVISIBLE) and not isGhostPokemon(z) then

return true

end

 

doReturnPokemon(cid, z, item, effect)

 

elseif item.itemid == pokeballs[btype].on then

 

if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then

doPlayerSendCancel(cid, "You must put your pokeball in the correct place!")

return TRUE

end

 

local thishp = getItemAttribute(item.uid, "hp")

 

if thishp <= 0 then

if isInArray(pokeballs[btype].all, item.itemid) then

doTransformItem(item.uid, pokeballs[btype].off)

doItemSetAttribute(item.uid, "hp", 0)

doPlayerSendCancel(cid, "This pokemon is fainted.")

   return true

end

end

 

local pokemon = getItemAttribute(item.uid, "poke")

 

if not pokes[pokemon] then

return true

end

 

local x = pokes[pokemon]

local boost = getItemAttribute(item.uid, "boost") or 0

 

if getPlayerLevel(cid) < (x.level+boost) then

doPlayerSendCancel(cid, "You need level "..(x.level+boost).." to use this pokemon.")

return true

end

 

--------------------------------------------------------------------------------------

shinysClan = {

["Shiny Fearow"] = {4, "Wingeon"},

["Shiny Flareon"] = {1, "Volcanic"},

["Shiny Vaporeon"] = {2, "Seavel"}, 

["Shiny Jolteon"] = {9, "Raibolt"},

["Shiny Hypno"] = {7, "Psycraft"},           

["Shiny Golem"] = {3, "Orebound"},

["Shiny Vileplume"] = {8, "Naturia"},

["Shiny Nidoking"] = {5, "Malefic"},

["Shiny Hitmontop"] = {6, "Gardestrike"},   --alterado v1.4

}

 

if shinysClan[pokemon] and (getPlayerGroupId(cid) < 3 or getPlayerGroupId(cid) > 6) then

  if getPlayerStorageValue(cid, 86228) ~= shinysClan[pokemon][1] then

     doPlayerSendCancel(cid, "You need be a member of the clan "..shinysClan[pokemon][2].." to use this pokemon!")

     return true   

       elseif getPlayerStorageValue(cid, 862281) ~= 5 then

          doPlayerSendCancel(cid, "You need be atleast rank 5 to use this pokemon!")

     return true

       end

    end

    --------------------------------------------------------------------------------------

 

doSummonMonster(cid, pokemon)

 

local pk = getCreatureSummons(cid)[1]

if not isCreature(pk) then return true end

------------------------passiva hitmonchan------------------------------

if isSummon(pk) then

       local nameHIT = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")

       local hands = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "hands")

       if nameHIT == "Shiny Hitmonchan" or nameHIT == "Hitmonchan" then

          if getItemAttribute(getPlayerSlotItem(cid, 8).uid, "hands") then

             doSetCreatureOutfit(pk, {lookType = hitmonchans[nameHIT][hands].out}, -1)

          else

              doPlayerSendTextMessage(cid, 27, "Contact a GameMaster! Error in passive system! Attribute \"hands\" missing")  

          end

       end

    end

-------------------------------------------------------------------------

    ---------movement magmar, jynx-------------

    if EFFECTS[getCreatureName(pk)] then             --edited efeito magmar/jynx

       markPosEff(pk, getThingPos(pk))

       sendMovementEffect(pk, EFFECTS[getCreatureName(pk)], getThingPos(pk))  --alterado v1.5

    end

    --------------------------------------------------------------------------      

 

if getCreatureName(pk) == "Ditto" or getCreatureName(pk) == "Shiny Ditto" then --edited

 

local left = getItemAttribute(item.uid, "transLeft")

local name = getItemAttribute(item.uid, "transName")

 

if left and left > 0 then

setPlayerStorageValue(pk, 1010, name)

doSetCreatureOutfit(pk, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1)

addEvent(deTransform, left * 1000, pk, getItemAttribute(item.uid, "transTurn"))

doItemSetAttribute(item.uid, "transBegin", os.clock())

else

setPlayerStorageValue(pk, 1010, getCreatureName(pk) == "Ditto" and "Ditto" or "Shiny Ditto")     --edited

end

end

 

if isGhostPokemon(pk) then doTeleportThing(pk, getPosByDir(getThingPos(cid), math.random(0, 7)), false) end

 

doCreatureSetLookDir(pk, 2)

 

adjustStatus(pk, item.uid, true, true, true)

doAddPokemonInOwnList(cid, pokemon)

 

doTransformItem(item.uid, item.itemid+1)

 

local pokename = getItemAttribute(item.uid, "nick") or getCreatureName(pk) 

 

local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename)

doCreatureSay(cid, mgo, TALKTYPE_SAY)

 

doSendMagicEffect(getCreaturePosition(pk), effect)

 

else

 

    doPlayerSendCancel(cid, "This pokemon is fainted.")

 

end

 

local pk = getCreatureSummons(cid)[1]

local pb = getPlayerSlotItem(cid, 8).uid

local look = getItemAttribute(pb,"addon")

if not look then

doSetItemAttribute(pb,"addon",0)

return false

end

if look > 0 then

doSetCreatureOutfit(pk, {lookType = look}, -1)

return true

end

 

if useKpdoDlls then

doUpdateMoves(cid)

end

return true

end]

*erro meu  ... 345sat tente agora:

if getItemAttribute(pokeball.uid, 'addon') and getItemAttribute(pokeball.uid, 'addon') > 0 then
local addon = string.explode(getItemAttribute(pokeball.uid, 'addon'), '@')
for _,_conteudo in pairs(addon) do
_conteudo = string.explode(_conteudo,'=')
if _conteudo[1] == 'lookType' then
doSetCreatureOutfit(getCreatureSummons(cid)[1], {lookType = _conteudo[2]}, -1)
break
end
end
end