Salve guys do TK, vocês sempre me ajudaram e hoje eu vim pedir socorro pros fodoes de plantao, queria pedir um addon system igual/similar ao do otpokemon...

 

Eu tenho um aqui mas falta algumas coisas pra ele ta 100%

 

Spoiler

 

function onUse(cid, item, fromPosition, itemEx, toPosition)
local addons = {
-- Shiny Alakazam
[13089] = {pokemon= "Shiny Alakazam", looktype = 2013, nome = "Adventurer addon", fly =  0, ride = 0, surf = 0},
[13091] = {pokemon= "Shiny Alakazam", looktype = 2014, nome = "Grey hat addon", fly =  0, ride = 0, surf = 0},
[13092] = {pokemon= "Shiny Alakazam", looktype = 2016, nome = "Red hat addon", fly =  0, ride = 0, surf = 0},
[13090] = {pokemon= "Shiny Alakazam", looktype = 2015, nome = "Purple hat addon", fly =  0, ride = 0, surf = 0},
-- Alakazam
[13093] = {pokemon= "Alakazam", looktype = 2009, nome = "Adventurer addon", fly =  0, ride = 0, surf = 0},
[13095] = {pokemon= "Alakazam", looktype = 2010, nome = "Grey hat addon", fly =  0, ride = 0, surf = 0},
[13096] = {pokemon= "Alakazam", looktype = 2012, nome = "Red hat addon", fly =  0, ride = 0, surf = 0},
[13094] = {pokemon= "Alakazam", looktype = 2011, nome = "Purple hat addon", fly =  0, ride = 0, surf = 0},

-- Shiny Tropius
[13101] = {pokemon= "Shiny Tropius", looktype = 2019, nome = "Sorcerer addon", fly =  2065, ride = 0, surf = 0},
[13106] = {pokemon= "Shiny Tropius", looktype = 2069, nome = "Desert flower addon", fly =  2070, ride = 0, surf = 0},

-- Shiny Metagross
[13098] = {pokemon= "Shiny Metagross", looktype = 2021, nome = "King's crown addon", fly =  0, ride = 2064, surf = 0},
[13099] = {pokemon= "Shiny Metagross", looktype = 2020, nome = "Queen's crown addon", fly =  0, ride = 2067, surf = 0},

-- Shiny Clefable
[13097] = {pokemon= "Shiny Clefable", looktype = 2068, nome = "Angel addon", fly =  0, ride = 0, surf = 0},

-- Clefable
[13102] = {pokemon= "Clefable", looktype = 2025, nome = "Angel addon", fly =  0, ride = 0, surf = 0},

-- Togekiss
[13394] = {pokemon= "Togekiss", looktype = 2508, nome = "Champion addon", fly =  2507, ride = 0, surf = 0},

-- Shiny Jynx
[13100] = {pokemon= "Shiny Jynx", looktype = 2023, nome = "Witch addon", fly =  0, ride = 0, surf = 0},

-- Charmander
[2207] = {pokemon= "Charmander", looktype = 2198, nome = "Ninja mask addon", fly =  0, ride = 0, surf = 0},

-- Charizard
[2208] = {pokemon= "Charizard", looktype = 2451, nome = "Traveler bag addon", fly =  2452, ride = 0, surf = 0},

-- Metagross
[13103] = {pokemon= "Metagross", looktype = 2018, nome = "King's crown addon", fly =  0, ride = 2063, surf = 0},
[13104] = {pokemon= "Metagross", looktype = 2017, nome = "Queen's crown addon", fly =  0, ride = 2066, surf = 0},

-- Halloween
[13105] = {pokemon= "Elder Charizard", looktype = 2074, nome = "Halloween addon", fly =  2072, ride = 0, surf = 0},
[13107] = {pokemon= "Charizard", looktype = 2073, nome = "Halloween addon", fly =  2071, ride = 0, surf = 0},

-- Novos addons
[2456] = {pokemon= "Abra", looktype = 2190, nome = "Magic kit addon", fly =  0, ride = 0, surf = 0},
[2421] = {pokemon= "Shiny Dragonite", looktype = 2402, nome = "Gray postman bag addon", fly =  2396, ride = 0, surf = 0},
[2422] = {pokemon= "Shiny Dragonite", looktype = 2406, nome = "Blue postman bag addon", fly =  2399, ride = 0, surf = 0},
[2423] = {pokemon= "Shiny Dragonite", looktype = 2407, nome = "Red postman bag addon", fly =  2401, ride = 0, surf = 0},
[2428] = {pokemon= "Electabuzz", looktype = 2424, nome = "Bandit mask addon", fly =  0, ride = 0, surf = 0},
[2429] = {pokemon= "Electabuzz", looktype = 2425, nome = "Metal pack addon", fly =  0, ride = 0, surf = 0},
[2430] = {pokemon= "Electabuzz", looktype = 2426, nome = "Raiden hat addon", fly =  0, ride = 0, surf = 0},
[2431] = {pokemon= "Scyther", looktype = 2340, nome = "Monk cape addon", fly =  0, ride = 0, surf = 0},
[2432] = {pokemon= "Scyther", looktype = 2341, nome = "Black cape addon", fly =  0, ride = 0, surf = 0},
[2433] = {pokemon= "Scyther", looktype = 2342, nome = "Namekian cape addon", fly =  0, ride = 0, surf = 0},
[2434] = {pokemon= "Tyranitar", looktype = 2369, nome = "Gentleman hat addon", fly =  0, ride = 0, surf = 0},
[2435] = {pokemon= "Tangela", looktype = 2330, nome = "Ghost costume addon", fly =  0, ride = 0, surf = 0},
[2436] = {pokemon= "Tangela", looktype = 2331, nome = "Jester hat addon", fly =  0, ride = 0, surf = 0},
[2437] = {pokemon= "Tangela", looktype = 2332, nome = "Fake fork addon", fly =  0, ride = 0, surf = 0},
[2438] = {pokemon= "Shiny Tangela", looktype = 2333, nome = "Ghost costume addon", fly =  0, ride = 0, surf = 0},
[2439] = {pokemon= "Shiny Tangela", looktype = 2334, nome = "Jester hat addon", fly =  0, ride = 0, surf = 0},
[2440] = {pokemon= "Shiny Tangela", looktype = 2335, nome = "Fake fork addon", fly =  0, ride = 0, surf = 0},
[2441] = {pokemon= "Shiny Tangrowth", looktype = 2336, nome = "Jester hat addon", fly =  0, ride = 0, surf = 0},
[2442] = {pokemon= "Shiny Tangrowth", looktype = 2337, nome = "Fake fork addon", fly =  0, ride = 0, surf = 0},
[2445] = {pokemon= "Marowak", looktype = 2203, nome = "Reaper costume addon", fly =  0, ride = 0, surf = 0},
[2446] = {pokemon= "Muk", looktype = 2350, nome = "Dj cap addon", fly =  0, ride = 0, surf = 0},
[2447] = {pokemon= "Ponyta", looktype = 2201, nome = "Pony saddle addon", fly =  0, ride = 2202, surf = 0},
[2448] = {pokemon= "Golem", looktype = 2351, nome = "Steel helmet addon", fly =  0, ride = 0, surf = 0},
[2449] = {pokemon= "Golem", looktype = 2352, nome = "Suicide costume addon", fly =  0, ride = 0, surf = 0},
[2450] = {pokemon= "Geodude", looktype = 2349, nome = "Kid cap addon", fly =  0, ride =  0, surf = 0},
[2451] = {pokemon= "Tentacruel", looktype = 2343, nome = "Water brain cap addon", fly =  0, ride = 0, surf = 0},
[2452] = {pokemon= "Tentacruel", looktype = 2344, nome = "Bloody brain cap addon", fly =  0, ride = 0, surf = 0},
[2453] = {pokemon= "Tentacruel", looktype = 2345, nome = "Slime brain cap addon", fly =  0, ride = 0, surf = 0},
[2455] = {pokemon= "Machamp", looktype = 2456, nome = "Dragon tattoo addon", fly =  0, ride = 0, surf = 0},
[2458] = {pokemon= "Dugtrio", looktype = 2356, nome = "Squad costume addon", fly =  0, ride = 0, surf = 0},
[2459] = {pokemon= "Diglett", looktype = 2355, nome = "Viking helmet addon", fly =  0, ride = 0, surf = 0},
[2460] = {pokemon= "Diglett", looktype = 2353, nome = "Ninja mask addon", fly =  0, ride = 0, surf = 0},
[2461] = {pokemon= "Diglett", looktype = 2354, nome = "Cowboy hat addon", fly =  0, ride = 0, surf = 0},
[2487] = {pokemon= "Huntail", looktype = 2378, nome = "Angel halo addon", fly =  0, ride = 0, surf = 2379},
[2481] = {pokemon= "Venusaur", looktype = 2453, nome = "Beautiful flower addon", fly =  0, ride = 2454, surf = 0},
[2482] = {pokemon= "Charizard", looktype = 2449, nome = "Beautiful flower addon", fly =  2450, ride = 0, surf = 0},
[2485] = {pokemon= "Sceptile", looktype = 2373, nome = "Beautiful flower addon", fly =  0, ride = 0, surf = 0},
[2486] = {pokemon= "Charmander", looktype = 2199, nome = "Mummy pack addon", fly =  0, ride = 0, surf = 0},
[2498] = {pokemon= "Salamance", looktype = 2374, nome = "Traveler bag addon", fly =  2375, ride = 0, surf = 0},
[2502] = {pokemon= "Meowth", looktype = 2329, nome = "Cowboy hat addon", fly =  0, ride =  0, surf = 0},
[2477] = {pokemon= "Squirtle", looktype = 2445, nome = "Purple ninja pack addon", fly =  0, ride = 0, surf = 2446},
[2478] = {pokemon= "Squirtle", looktype = 2448, nome = "Orange ninja pack addon", fly =  0, ride = 0, surf = 2447},
[2479] = {pokemon= "Squirtle", looktype = 2443, nome = "Red ninja pack addon", fly =  0, ride = 0, surf = 2444},
[2480] = {pokemon= "Squirtle", looktype = 2441, nome = "Blue ninja pack addon", fly =  0, ride = 0, surf = 2442},
[2472] = {pokemon= "Pidgeotto", looktype = 2200, nome = "Flying glasses addon", fly =  0, ride = 0, surf = 0},
[2473] = {pokemon= "Pidgey", looktype = 2362, nome = "Zombie cap addon", fly =  0, ride = 0, surf = 0},
[2474] = {pokemon= "Pidgey", looktype = 2360, nome = "Bone cap addon", fly =  0, ride = 0, surf = 0},
[2476] = {pokemon= "Butterfree", looktype = 2360, nome = "Captain hat addon", fly =  0, ride = 0, surf = 0},

-- Shiny Blastoise
[13108] = {pokemon= "Shiny Blastoise", looktype = 2078, nome = "Purple ninja pack addon", fly =  0, ride = 0, surf = 2083},
[13109] = {pokemon= "Shiny Blastoise", looktype = 2076, nome = "Orange ninja pack addon", fly =  0, ride = 0, surf = 2088},
[13110] = {pokemon= "Shiny Blastoise", looktype = 2075, nome = "Red ninja pack addon", fly =  0, ride = 0, surf = 2090},
[13111] = {pokemon= "Shiny Blastoise", looktype = 2077, nome = "Blue ninja pack addon", fly =  0, ride = 0, surf = 2086},

-- Blastoise
[13112] = {pokemon= "Blastoise", looktype = 2082, nome = "Purple ninja pack addon", fly =  0, ride = 0, surf = 2083},
[13113] = {pokemon= "Blastoise", looktype = 2080, nome = "Orange ninja pack addon", fly =  0, ride = 0, surf = 2087},
[13114] = {pokemon= "Blastoise", looktype = 2079, nome = "Red ninja pack addon", fly =  0, ride = 0, surf = 2089},
[13115] = {pokemon= "Blastoise", looktype = 2081, nome = "Blue ninja pack addon", fly =  0, ride = 0, surf = 2085},
}
 
if #getCreatureSummons(cid) > 0 then
if getPlayerLanguage(cid) == 0 then
doPlayerSendCancel(cid, "Por favor volte seu pokémon.")
end

if getPlayerLanguage(cid) == 1 then
doPlayerSendCancel(cid ,"Por favor, vuelve su pokémon.")
end
    
if getPlayerLanguage(cid) == 2 then
doPlayerSendCancel(cid, "Please back your pokémon.")
end
return false
end     
local addon = addons[item.itemid].looktype
local fly = addons[item.itemid].fly
local ride = addons[item.itemid].ride
local surf = addons[item.itemid].surf
local addonlook = addons[item.itemid].nome
 
local pb = getPlayerSlotItem(cid, 8).uid
local pk = addons[item.itemid].pokemon
 
if getItemAttribute(pb,"poke") ~= pk then
if getPlayerLanguage(cid) == 0 then
doPlayerSendCancel(cid, "Desculpa, você não pode usar esse addon nesse pokémon.")
end

if getPlayerLanguage(cid) == 1 then
doPlayerSendCancel(cid ,"Lo sentimos, no se puede utilizar este addon en esse pokémon.")
end
    
if getPlayerLanguage(cid) == 2 then
doPlayerSendCancel(cid, "Sorry, you can't use this addon on this pokémon.")
end
return false
end
 
if getItemAttribute(pb, "pokeballusada") == 0 then
doRemoveItem(item.uid, 1)
doSendMagicEffect(fromPosition, 180)
doSetItemAttribute(pb,"addon",addon)
doSetItemAttribute(pb,"addonfly",fly)
doSetItemAttribute(pb,"addonride",ride)
doSetItemAttribute(pb,"addonsurf",surf)
doSetItemAttribute(pb,"addonlook",addonlook)
return true
end
end

 

 

O Problema aqui é:

cada item funciona apenas em 1 unico Pokemon.

O item vai gastando se usar novamente no pokemon, mesmo ele tendo addon continua gastando.

Ao sair do Fly, ride, surf, o addon some e volta somente se retornar o pokemon na Ball.

Só pode ter 1 addon no Pokémon.

Não tem comando !addon 0 pra esconder o addon, !addon 1, !addon 2, etc

 

 

REP+ pro mito que não só me ajudar mas ajudar a galera inteira do TK.

coloca isso no action/Orde.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 v2.6
}

function onUse(cid, item, frompos, item2, topos)
if getPlayerStorageValue(cid,130130) >= 1 then 
doPlayerSendTextMessage(cid, 19, "Nao Pode Dar Order Nessa Area.")
return true
end
   if getPlayerStorageValue(cid,6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1  then 
doPlayerSendTextMessage(cid, 19, "[Order] Nao Pode usa Order Nessa Area.")
return true
end
    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!", 19)

    doRegainSpeedLevel(cid)
    
    doRemoveCondition(cid, CONDITION_OUTFIT)
    local pkpkpk = getCreatureSummons(cid)[1]
    local pkjg = getPlayerSlotItem(cid, 8).uid
               local pkza = getPlayerSlotItem(cid, 8).uid
                local pkxd = getItemAttribute(pkjg,"addon")
                if not pkxd then
                                doSetItemAttribute(pkza,"addon",0) 

                 elseif pkxd > 0 then
                                doSetCreatureOutfit(pkpkpk, {lookType = pkxd}, -1)
end
    setPlayerStorageValue(cid, 17000, -1)
    setPlayerStorageValue(cid, 17001, -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"])].."", 19)
    addEvent(goThere, 500, mysum, topos, "rock smash", isCreature(getCreatureTarget(cid)))

return true
end
-----------------------------

-------- HEADBUTT -----------
if item2.itemid == 12591 and getPokemonLevel(mysum) >= 15 then  --alterado v2.6
                  --id do item  arvore normal
doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["headbutt"][math.random(1, #txt["headbutt"])].."", 19)
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"])].."", 19)
    addEvent(goThere, 500, mysum, topos, "cut", isCreature(getCreatureTarget(cid)))

return true
end
-----------------------------

-------- TRANSFORM ----------
if getCreatureName(mysum) == "Ditto" and isMonster(item2.uid) then
    if item2.uid == mysum then
        if isTransformed(mysum) then
            deTransform(mysum, getItemAttribute(thisball.uid, "transTurn"))
            markPos(mysum, unfix)
            doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["untransform"][math.random(1, #txt["untransform"])].."", 19)
        return true
        end
    doPlayerSendCancel(cid, "Your ditto is not transformed.")
    markPos(mysum, unfix)
    return true
    end

    if getCreatureName(item2.uid) == "Ditto" then
        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.."!", 19)

    if useKpdoDlls then
        doUpdateMoves(cid)  --alterado v2.6
    end
    
        if dittoCopiesStatusToo then
            doSetItemAttribute(thisball.uid, "boffense", dittoBonus * getOffense(item2.uid))
            doSetItemAttribute(thisball.uid, "bdefense", dittoBonus * getDefense(item2.uid))
            doSetItemAttribute(thisball.uid, "bsattack", dittoBonus * getSpecialAttack(item2.uid))
            doSetItemAttribute(thisball.uid, "bagility", dittoBonus * getSpeed(item2.uid))
            adjustStatus(mysum, thisball.uid)
        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"])].."", 19)
    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"])].."", 19)
    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 v2.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"])].."", 19)
        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"])].."", 19)
    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 getPlayerStorageValue(cid, 212124) >= 1 then         --alterado v2.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 v2.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
    
    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"])].."", 19)
    addEvent(goThere, 500, mysum, topos, "fly", isCreature(getCreatureTarget(cid)))
    else
    doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["ride"][math.random(1, #txt["ride"])].."", 19)
    addEvent(goThere, 500, mysum, topos, "ride", isCreature(getCreatureTarget(cid)))
    end

return true
end
----------------------------------Control Mind--------------------------------------------   alterado v2.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) 
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!", 19)

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 v2.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 level = getWildPokemonLevel(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)
      addEvent(setWildPokemonLevel, 150, back, level)
      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 v2.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"])].."", 19)
    
    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

@Wellingtondadis 

Não aconselho fazer isso não, talvez o order dele seja diferente, apenas fale oque você adicionou.

 

4 horas atrás, Ckfox disse:

@Wellingtondadis 

Não aconselho fazer isso não, talvez o order dele seja diferente, apenas fale oque você adicionou.

 

Fique de boa fi sou programador refiz o dele melhor sem bug. nao fala oq nao sabe '-'

32 minutos atrás, Wellingtondadis disse:

Fique de boa fi sou programador refiz o dele melhor sem bug. nao fala oq nao sabe '-'

Mano, não seja ignorante, ele não deu nenhuma referencia de qual base ele usa, so se tiver ele tiver passado por fora, caso tenha alguma coisa exclusiva no order dele, hora ou outra vai dar erro.