(Resolvido)ataques dos pokémon

Postado Setembro 23, 2018 6 anos

Estou usando Otpókemon Imperium.

Ex. TFS 0.3.6

Estou a procurar como aumenta a velocidade dos ataques dos pokémon sair por EX: se eu aperta do m1 até m12 apenas alguns vão funcionar, pois foi uma ação rápida, caso apete do m1 até m12 só que divagar todos os ataque sair normalmente, eu queria por de uma forma que sé o player arrastar o dedo do F1 até F12 todos os M1 até M12 funcione mesmo sendo bem rápido.

alguém pode me ajudar?

Citar

pensei bastante antes de pergunta, pois sei que e algo banal e que eu deveria saber, acontece que eu venho acoanhando projetos de outras pessoas a bastante tempo, e só agora decidir dedicar meu tempo a montar algo decente que possa me trazer sensações boas quem sabe um dia nostalgia.

eu agradeceria bastante se alguém pode-se me falar um meio de estudo, para me aprofundar nesse universo incrível, e um universo maravilho que não quero está de forrá, pretendo trazer conteúdo bacana para o forám mas antes preciso aprender. "kkk!" procurei informações e tudo que me falarão foi olha tutorias / postes, realmente e algo bem útil e que ajuda bastante, mas meio que não aprendemos pois taremos limitado aquele conteúdo, quero aprender para poder montar coisas exclusivas que os outros olhe e fale caramba isso e possível?. até mesmo Obrigado bem legal e vou utilizar.

falei de uma forma, um pouco estranha, mas acho que deu de entender, pode ser até mesmo um curso ou algo do tipo, eu já fiz alguns de design porém não mudou nada no universo tibiano. kk

Citar

Mention

Postado Setembro 23, 2018 6 anos

manda a talkations dos moves

Te ajudei ?? Que tal fazer uma contribuição ?

Citar

Mention

Postado Setembro 23, 2018 6 anos

Autor

11 horas atrás, DboExplorer disse:

manda a talkations dos moves

dei uma olhada mas não encontrei o tempo dos ataques.

pode me falar qual lugar especifico.

Citar

local msgs = {"use ", ""}

function doAlertReady(cid, id, movename, n, cd)
   if not isCreature(cid) then return true end
   local myball = getPlayerSlotItem(cid, ?
   if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then
   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
       return true
       end
   end
end

function onSay(cid, words, param, channel)

   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, "Você precisa de um pokémon para usar moves.")
   return 0
   end
--alterado v1.5
local mypoke = getCreatureSummons(cid)[1]

   if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end
   if getCreatureName(mypoke) == "Evolution" then return true end

if getCreatureName(mypoke) == "Ditto" or getCreatureName(mypoke) == "Shiny Ditto" then
name = getPlayerStorageValue(mypoke, 1010) --edited
else
name = getCreatureName(mypoke)
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 v1.5
end

   if it == "2" then
       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 not move then
       doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Seu pokémon não reconhece esse move.")
   return true
   end

   if getPlayerLevel(cid) < move.level then
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você precisa ser level "..move.level.." para usar este move.")
   return true
end

   if getCD(getPlayerSlotItem(cid, 8).uid, cdzin) > 0 and getCD(getPlayerSlotItem(cid, 8).uid, cdzin) < (move.cd + 2) then
       doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você tem que esperar "..getCD(getPlayerSlotItem(cid, 8).uid, cdzin).." segundos para usar "..move.name.." novamente.")
   return true
   end

   if getTileInfo(getThingPos(mypoke)).protection then
       doPlayerSendCancel(cid, "Você não atacar em PZ.")
   return true
   end
       --alterado v1.6
   if (move.name == "Team Slice" or move.name == "Team Claw") and #getCreatureSummons(cid) < 2 then
   doPlayerSendCancel(cid, "Os seus pokemon precisa estar em uma equipe para usar este move!")
return true
end
--alterado v1.7 \/\/\/
if isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) then
local target = getCreatureTarget(cid)
if math.random(1, 100) <= passivesChances["Evasion"][getCreatureName(target)] then
if isCreature(getMasterTarget(target)) then --alterado v1.6
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 v1.6
end
end
end

if move.target == 1 then

   if not isCreature(getCreatureTarget(cid)) then
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não tem um alvo.")
   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, "Você já derrotou o seu alvo.")
   return 0
   end

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

   if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > move.dist then
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Aproxime-se o alvo de usar este 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 v1.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, move.cd)
       end

   doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", 19)

local summons = getCreatureSummons(cid) --alterado v1.6

   addEvent(doAlertReady, move.cd * 1000, cid, newid, move.name, it, cdzin)

   for i = 2, #summons do
if isCreature(summons) and getPlayerStorageValue(cid, 637501) >= 1 then
docastspell(summons, move.name) --alterado v1.6
end
end

docastspell(mypoke, move.name)
   doCreatureAddCondition(cid, playerexhaust)

   if useKpdoDlls then
       doUpdateCooldowns(cid)
   end

return 0
end

Citar

   <talkaction words="m1" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m2" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m3" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m4" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m5" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m6" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m7" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m8" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m9" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m10" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m11" case-sensitive="no" event="script" value="move1.lua"/>
   <talkaction words="m12" case-sensitive="no" event="script" value="move1.lua"/>

Citar

Mention

Postado Setembro 24, 2018 6 anos

Solução

Spoiler


local msgs = {"use ", ""}

function doAlertReady(cid, id, movename, n, cd)
    if not isCreature(cid) then return true end
    local myball = getPlayerSlotItem(cid, ?
    if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then
    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
        return true
        end
    end
end

function onSay(cid, words, param, channel)


    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, "Você precisa de um pokémon para usar moves.")
    return 0
    end
                      --alterado v1.5
local mypoke = getCreatureSummons(cid)[1]

    if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end
    if getCreatureName(mypoke) == "Evolution" then return true end

    if getCreatureName(mypoke) == "Ditto" or getCreatureName(mypoke) == "Shiny Ditto" then
       name = getPlayerStorageValue(mypoke, 1010)   --edited
    else
       name = getCreatureName(mypoke)
    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 v1.5
end

    if it == "2" then
        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 not move then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Seu pokémon não reconhece esse move.")
    return true
    end
    
    if getPlayerLevel(cid) < move.level then
       doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você precisa ser level "..move.level.." para usar este move.")
       return true
    end

    if getCD(getPlayerSlotItem(cid, 8).uid, cdzin) > 0 and getCD(getPlayerSlotItem(cid, 8).uid, cdzin) < (move.cd + 2) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você tem que esperar "..getCD(getPlayerSlotItem(cid, 8).uid, cdzin).." segundos para usar "..move.name.." novamente.")
    return true
    end

    if getTileInfo(getThingPos(mypoke)).protection then
        doPlayerSendCancel(cid, "Você não atacar em PZ.")
    return true
    end
                                      --alterado v1.6                  
    if (move.name == "Team Slice" or move.name == "Team Claw") and #getCreatureSummons(cid) < 2 then       
        doPlayerSendCancel(cid, "Os seus pokemon precisa estar em uma equipe para usar este move!")
    return true
    end
                                                                     --alterado v1.7 \/\/\/
if isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) then 
   local target = getCreatureTarget(cid)                                                                                       
   if math.random(1, 100) <= passivesChances["Evasion"][getCreatureName(target)] then 
      if isCreature(getMasterTarget(target)) then   --alterado v1.6                                                                   
         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 v1.6
      end
   end
end


if move.target == 1 then

    if not isCreature(getCreatureTarget(cid)) then
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não tem um alvo.")
    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, "Você já derrotou o seu alvo.")
    return 0
    end

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

    if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > move.dist then
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Aproxime-se o alvo de usar este 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 v1.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, move.cd)
        end
        
    doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", 19)
    
    local summons = getCreatureSummons(cid) --alterado v1.6

    addEvent(doAlertReady, move.cd * 1000, cid, newid, move.name, it, cdzin)
    
    for i = 2, #summons do
       if isCreature(summons) and getPlayerStorageValue(cid, 637501) >= 1 then
          docastspell(summons, move.name)        --alterado v1.6
       end
    end 
    docastspell(mypoke, move.name)
    if useKpdoDlls then
        doUpdateCooldowns(cid)
    end
return 0
end

Editado Setembro 24, 2018 6 anos por DboExplorer (veja o histórico de edições)

Te ajudei ?? Que tal fazer uma contribuição ?

Citar

Mention

Yusuke Urameshi reagiu a isso
1

Postado Setembro 24, 2018 6 anos

Autor

50 minutos atrás, DboExplorer disse:

Mostrar conteúdo oculto



local msgs = {"use ", ""}

function doAlertReady(cid, id, movename, n, cd)
    if not isCreature(cid) then return true end
    local myball = getPlayerSlotItem(cid, ?
    if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then
    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
        return true
        end
    end
end

function onSay(cid, words, param, channel)


    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, "Você precisa de um pokémon para usar moves.")
    return 0
    end
                      --alterado v1.5
local mypoke = getCreatureSummons(cid)[1]

    if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end
    if getCreatureName(mypoke) == "Evolution" then return true end

    if getCreatureName(mypoke) == "Ditto" or getCreatureName(mypoke) == "Shiny Ditto" then
       name = getPlayerStorageValue(mypoke, 1010)   --edited
    else
       name = getCreatureName(mypoke)
    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 v1.5
end

    if it == "2" then
        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 not move then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Seu pokémon não reconhece esse move.")
    return true
    end
    
    if getPlayerLevel(cid) < move.level then
       doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você precisa ser level "..move.level.." para usar este move.")
       return true
    end

    if getCD(getPlayerSlotItem(cid, 8).uid, cdzin) > 0 and getCD(getPlayerSlotItem(cid, 8).uid, cdzin) < (move.cd + 2) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você tem que esperar "..getCD(getPlayerSlotItem(cid, 8).uid, cdzin).." segundos para usar "..move.name.." novamente.")
    return true
    end

    if getTileInfo(getThingPos(mypoke)).protection then
        doPlayerSendCancel(cid, "Você não atacar em PZ.")
    return true
    end
                                      --alterado v1.6                  
    if (move.name == "Team Slice" or move.name == "Team Claw") and #getCreatureSummons(cid) < 2 then       
        doPlayerSendCancel(cid, "Os seus pokemon precisa estar em uma equipe para usar este move!")
    return true
    end
                                                                     --alterado v1.7 \/\/\/
if isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) then 
   local target = getCreatureTarget(cid)                                                                                       
   if math.random(1, 100) <= passivesChances["Evasion"][getCreatureName(target)] then 
      if isCreature(getMasterTarget(target)) then   --alterado v1.6                                                                   
         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 v1.6
      end
   end
end


if move.target == 1 then

    if not isCreature(getCreatureTarget(cid)) then
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não tem um alvo.")
    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, "Você já derrotou o seu alvo.")
    return 0
    end

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

    if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > move.dist then
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Aproxime-se o alvo de usar este 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 v1.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, move.cd)
        end
        
    doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", 19)
    
    local summons = getCreatureSummons(cid) --alterado v1.6

    addEvent(doAlertReady, move.cd * 1000, cid, newid, move.name, it, cdzin)
    
    for i = 2, #summons do
       if isCreature(summons) and getPlayerStorageValue(cid, 637501) >= 1 then
          docastspell(summons, move.name)        --alterado v1.6
       end
    end 
    docastspell(mypoke, move.name)
    if useKpdoDlls then
        doUpdateCooldowns(cid)
    end
return 0
end

~~não funcionou e deu esse erro.~~

Citar

[23/09/2018 23:06:00] [Error - LuaScriptInterface::loadFile] datapack/talkactions/scripts/move1.lua:5: unexpected symbol near '?'
[23/09/2018 23:06:00] [Warning - Event::loadScript] Cannot load script (datapack/talkactions/scripts/move1.lua)
[23/09/2018 23:06:00] datapack/talkactions/scripts/move1.lua:5: unexpected symbol near '?'

na verdade deu sim, acontece que quando mandei o script o tibiaking botou uma ? no lugar do 8), quando arrumei isso deu tudo certo.

obrigado.

Editado Setembro 24, 2018 6 anos por Yusuke Urameshi
:3 (veja o histórico de edições)

Citar

Mention

Entrar

(Resolvido)ataques dos pokémon

Featured Replies

Resolvido por Crypter

Participe da conversa

Quem Está Navegando 0

Estatísticas dos Fóruns

Informação Importante

Account

Navigation

Pesquisar