Eu vou ver se acho mais coisas do fly. ai eu edito akie

esse aqui esta no arquivo: order.lua na pasta actions, sistema de order pokemon.

foi so esses que eu encontrei.

esse aqui esta no arquivo order.lua tbm, so que na pasta lib:

Substitua esta parte do order.lua de actions por essa:

----START FLY or RIDE or LEVITATE ---------
if (item2.uid == cid or getRecorderPlayer(topos) == cid) and (isInArray(skills["fly"], getPokemonName(mysum)) or isInArray(skills["ride"], getPokemonName(mysum)) or isInArray(skills["levitate_fly"], getPokemonName(mysum))) then
--alterado v1.8 >>
if getPlayerStorageValue(cid, 6598754) == 1 or getPlayerStorageValue(cid, 6598755) == 1 then
return doPlayerSendCancel(cid, "You can't do it while in the PVP Zone!") --alterado v1.7
end
 
if #getCreatureSummons(cid) > 1 then --alterado v1.9
return doPlayerSendCancel(cid, "You can't do it right now!")
end
 
    if getPlayerStorageValue(cid, 91831) >= 1 then
        return doPlayerSendCancel(cid, "Você não pode usar fly/ride agora.")
    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 --alterado v1.9
doPlayerSendCancel(cid, "You can't do that while is mount in a bike!")
return true
end
 
if getPlayerStorageValue(cid, 22545) >= 1 and (isInArray(skills["fly"], getPokemonName(mysum)) or isInArray(skills["levitate_fly"], getPokemonName(mysum))) then
return doPlayerSendCancel(cid, "You can't do that while in the Golden Arena!") --alterado v1.8
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)))
elseif isInArray(skills["levitate_fly"], getPokemonName(mysum)) then
doPlayerSay(cid, ""..getPokeName(mysum)..", "..txt["levitate_fly"][math.random(1, #txt["levitate_fly"])].."", 1) --alterado v1.8
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

function onStepIn(cid, item, position, fromPosition)
 
    if getPlayerStorageValue(cid, 91831) >= 1 then
        doPlayerSendTextMessage(cid, 27, "Agora você pode usar fly/ride.")
        setPlayerStorageValue(cid, 91831, -1)
    else
        doPlayerSendTextMessage(cid, 27, "Agora você não pode usar fly/ride.")
        setPlayerStorageValue(cid, 91831, 1)
    end
    return true
end

Ok zipter vo testar aqui.

@edit

funciono aqui vlw cara.

agora uma duvida, o script que o amoeba edito:

local function getRecorderPlayer(pos, cid)
local ret = 0
if cid and isPosEqual(getThingPos(cid), pos) then
return cid
end
local s = {}
s.x = pos.x
s.y = pos.y
s.z = pos.z
for a = 0, 255 do
s.stackpos = a
local b = getTileThingByPos(s).uid
if b > 1 and isPlayer(b) and getCreatureOutfit(b).lookType ~= 814 then
ret = b
end
end
return ret
end

------------[[ Configurações. ]]------------
local cfg = {
{1, {x = 2349, y = 2480, z = 14}, {x = 1056, y = 1057, z = 7}}, --{valor da storage do clan, posição que o jogador deve ficar, posição para qual o mesmo será teleportado},
{2, {x = 2345, y = 2477, z = 14}, {x = 1056, y = 1058, z = 7}},
{3, {x = 2353, y = 2477, z = 14}, {x = 1056, y = 1059, z = 7}},
{4, {x = 2346, y = 2480, z = 14}, {x = 1056, y = 1060, z = 7}},
{5, {x = 2352, y = 2474, z = 14}, {x = 1056, y = 1061, z = 7}},
{6, {x = 2346, y = 2474, z = 14}, {x = 1056, y = 1062, z = 7}},
{7, {x = 2352, y = 2480, z = 14}, {x = 1056, y = 1063, z = 7}},
{8, {x = 2349, y = 2474, z = 14}, {x = 1056, y = 1064, z = 7}},
{9, {x = 2349, y = 2477, z = 14}, {x = 2438, y = 2493, z = 12}},
}

local rank = {
need = true, --Precisará estar em x rank? [true/sim] [false/não]
what_rank = 5, --Se colocar true acima, configure aqui o rank necessário.
}
-----------[[ Fim das configurações. ]]---------

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

for a, b in pairs(cfg) do
local pos = getRecorderPlayer(b[2])
if not isPlayer(pos) then
return doPlayerSendCancel(cid, "One or more players aren't in the correct clan's place.")
elseif rank.need == true then
if getPlayerStorageValue(pos, 862281) <= (rank.what_rank - 1) then
return doPlayerSendCancel(cid, "One or more players aren't at rank "..rank.what_rank..".")
end
end
end

for c, d in pairs(cfg) do
local pos = getRecorderPlayer(d[2])
doTeleportThing(pos, d[3])
addEvent(doCreateMonster, 5000, "Pikachu", d[3])
doPlayerSendTextMessage(pos, 27, "Good luck!")
doSendMagicEffect(getThingPos(pos), 14)
end
return true
end

tipo assim eu queria que pudesse escolher aonde que vai aparecer cada pokemon. que no caso ali eu ia fazer aparecer uns 15 pokemon. ai eu queria escolher aonde eles iriam aparecer.

e que esse script:

local fromPoss, toPoss = {x=2427, y=2487, z=15}, {x=2450, y=2487, z=15}
local posAlavanca = {x=2438, y=2492, z=15}
local alavancaActionId = 3231
local monstrosNaArea = 15 -- Quantos monstros precisam ser mortos ali pra aparecer a alavanca?

function onKill(cid, target, lastHit)
    if isPlayer(cid) and isMonster(target) then
        if isInArea(getThingPos(target), fromPoss, toPoss) then
            if getGlobalStorageValue(238192) <= monstrosNaArea-3 then
                setGlobalStorageValue(getGlobalStorageValue(238192)+1)
            elseif getGlobalStorageValue(238192) == monstrosNaArea-2 then
                local alavanca = doCreateItem(1946, 1, posAlavanca)
                doItemSetAttribute(alavanca, "aid", alavancaActionId)
                doCreatureSay(target, "Uma alavanca foi criada!")
                setGlobalStorageValue(238192, 0)
            end
        end
    end
    return true
end

estivesse ligado ao primeiro script ali. se possivel e claro

Primeiramente, onKill/onDeath não funcionam em PDA. No caso, você teria que "mover" esse código para exp2.0.lua.

Sobre este seu outro pedido, vou ver o quê posso fazer.

Ok. estou no aguarde =D.

Basta fazer tudo corretamente, que irá funcionar.

Troque aquele seu código da alavanca da Outland Main por esse:

function checkMonsters(area1, area2, pos, aid)
local monstros = getMonstersInArea(area1, area2)
local continue = true
    if #monstros < 1 then
        continue = false
        local a = doCreateItem(1945, 1, pos)
        doItemSetAttribute(a, "aid", aid)
        doSendMagicEffect(pos, 14)
    end
    if continue == true then
        addEvent(checkMonsters, 1000, area1, area2, pos, aid)
    end
end   
function getMonstersInArea(area1, area2)
local monsters = {} 
    for x = area1.x, area2.x do
        for y = area1.y, area2.y do
            for z = area1.z, area2.z do
                monsterpos = {x=x,y=y,z=z,stackpos=253}
                monster = getThingFromPos(monsterpos)
                if ehMonstro(monster.uid) then
                    table.insert(monsters, monster.uid)
                end
            end
        end
    end
    return monsters
end
local function getRecorderPlayer(pos, cid)
local ret = 0
if cid and isPosEqual(getThingPos(cid), pos) then
return cid
end
local s = {}
s.x = pos.x
s.y = pos.y
s.z = pos.z
for a = 0, 255 do
s.stackpos = a
local b = getTileThingByPos(s).uid
if b > 1 and isPlayer(b) and getCreatureOutfit(b).lookType ~= 814 then
ret = b
end
end
return ret
end
 
------------[[ Configurações. ]]------------
local cfg = {
{1, {x = 1056, y = 1056, z = 7}, {x = 1056, y = 1057, z = 7}}, --{valor da storage do clan, posição que o jogador deve ficar, posição para qual o mesmo será teleportado},
{2, {x = 1057, y = 1056, z = 7}, {x = 1056, y = 1058, z = 7}},
{3, {x = 1058, y = 1056, z = 7}, {x = 1056, y = 1059, z = 7}},
{4, {x = 1059, y = 1056, z = 7}, {x = 1056, y = 1060, z = 7}},
{5, {x = 1060, y = 1056, z = 7}, {x = 1056, y = 1061, z = 7}},
{6, {x = 1061, y = 1056, z = 7}, {x = 1056, y = 1062, z = 7}},
{7, {x = 1062, y = 1056, z = 7}, {x = 1056, y = 1063, z = 7}},
{8, {x = 1063, y = 1056, z = 7}, {x = 1056, y = 1064, z = 7}},
{9, {x = 1064, y = 1056, z = 7}, {x = 1056, y = 1065, z = 7}},
}
 
local rank = {
need = true, --Precisará estar em x rank? [true/sim] [false/não]
what_rank = 5, --Se colocar true acima, configure aqui o rank necessário.
}
-----------[[ Fim das configurações. ]]---------
 
function onUse(cid, item, frompos, item2, topos)
      
    for a, b in pairs(cfg) do
        local pos = getRecorderPlayer(b[2])
        if not isPlayer(pos) then
            return doPlayerSendCancel(cid, "One or more players aren't in the correct clan's place.")
        elseif rank.need == true then
            if getPlayerStorageValue(pos, 862281) <= (rank.what_rank - 1) then
                return doPlayerSendCancel(cid, "One or more players aren't at rank "..rank.what_rank..".")
            end
        end
    end
 
    for c, d in pairs(cfg) do
        local pos = getRecorderPlayer(d[2])
        doTeleportThing(pos, d[3])
        doPlayerSendTextMessage(pos, 27, "Good luck!")
        doSendMagicEffect(getThingPos(pos), 14)
        addEvent(function()
            local monsters = {{"Pikachu", {x = 1050, y = 1058, z = 7}}, {"Magikarp", {x = 1051, y = 1058, z = 7}}}
            local posi = {x = 1049, y = 1054, z = 7}       --Coordenadas da posição superior esquerda da área.
            local posis = {x = 1057, y = 1061, z = 7}      --Coordenadas da posição inferior direita da área.
            local pos = {x = 1053, y = 1058, z = 7}        --Onde a alavanca será criada.
            for i = 1, #monsters do
                doCreateMonster(monsters[i][1], monsters[i][2])
            end
            checkMonsters(posi, posis, pos, 19381)
        end, 5*1000)
    end
    return true
end

elseif item.actionid == aids[wave/número/index do actionid na tabela aids] then
        local monsters = {{"Nome do monstro", posição}, {"Nome do monstro", posição}, {"Nome do monstro", posição}, {"Nome do monstro", posição}}
        doRemoveItem(item.uid, 1)
        addEvent(function()
            for i = 1, #monsters do
                doCreateMonster(monsters[i][1], monsters[i][2])
            end
            checkMonsters(posi, posis, pos, new_aid) --Lembre-se: esse new_aid sempre será o actionid da alavanca+1.
        end, 5*1000)

Bem vou ler direito oque vc escreveu kk, eu nao entendo muita coisa. mais vou tentar configurar akie. se der certinho eu edito akie. =D vlws.

@edit

so mais uma duvida. como eu coloco a tag no actions.xml? e que tem 2 scripts ai sei la kk

O do primeiro código, você não precisa alterar a tag.

Do segundo,

<action actionid="19381;19382;19383;19384" event="script" value="nome do arquivo.lua"/>

Isso com os actionids que testei.

Entendi, ja configurei tudo ja, vou testar jaja mando se funcionou =D.

@edit

ai deu esse erro akie. e do segundo script

[10/01/2014 19:22:13] [Error - Action Interface]
[10/01/2014 19:22:13] In a timer event called from:
[10/01/2014 19:22:13] data/actions/scripts/outland main.lua:onUse
[10/01/2014 19:22:13] Description:
[10/01/2014 19:22:14] attempt to index a number value
[10/01/2014 19:22:14] stack traceback:
[10/01/2014 19:22:14]     [C]: in function 'doCreateItem'
[10/01/2014 19:22:14]     data/actions/scripts/outland mainn.lua:6: in function 'checkMonsters'
[10/01/2014 19:22:14]     data/actions/scripts/outland main.lua:86: in function <data/actions/scripts/outland main.lua:82>

Estranho, aqui funcionou direitinho.

EDIT: Não li por inteiro seu comentário.

Vou ver aqui a possível causa desse erro.

Você fez alguma alteração no script? Se sim, posso vê-la?

E, se você fez, teste o código do jeito que eu enviei, sem alterações.

pelo oque eu percebi, ele esta dando erro na linha 6 do primeiro script, e na linha 86 do segundo script. um bom progama para saber as linhas do script, eo otscrip, sempre uso ele kk. Aqui está o primeiro script:

function checkMonsters(area1, area2, pos, aid)
local monstros = getMonstersInArea(area1, area2)
local continue = true
    if #monstros < 1 then
        continue = false
        local a = doCreateItem(1945, 1, pos)
        doItemSetAttribute(a, "aid", aid)
        doSendMagicEffect(pos, 14)
    end
    if continue == true then
        addEvent(checkMonsters, 1000, area1, area2, pos, aid)
    end
end   
function getMonstersInArea(area1, area2)
local monsters = {}
    for x = area1.x, area2.x do
        for y = area1.y, area2.y do
            for z = area1.z, area2.z do
                monsterpos = {x=x,y=y,z=z,stackpos=253}
                monster = getThingFromPos(monsterpos)
                if ehMonstro(monster.uid) then
                    table.insert(monsters, monster.uid)
                end
            end
        end
    end
    return monsters
end
local function getRecorderPlayer(pos, cid)
local ret = 0
if cid and isPosEqual(getThingPos(cid), pos) then
return cid
end
local s = {}
s.x = pos.x
s.y = pos.y
s.z = pos.z
for a = 0, 255 do
s.stackpos = a
local b = getTileThingByPos(s).uid
if b > 1 and isPlayer(b) and getCreatureOutfit(b).lookType ~= 814 then
ret = b
end
end
return ret
end
 
------------[[ Configurações. ]]------------
local cfg = {
    {9, {x = 2349, y = 2477, z = 14}, {x = 2438, y = 2493, z = 15}},
}
 
local rank = {
need = true, --Precisará estar em x rank? [true/sim] [false/não]
what_rank = 5, --Se colocar true acima, configure aqui o rank necessário.
}
-----------[[ Fim das configurações. ]]---------
 
function onUse(cid, item, frompos, item2, topos)
local monsters = {{"Shiny venusaur", {x = 2438, y = 2489, z = 15}}, {"Shiny blastoise", {x = 2435, y = 2493, z = 15}}}
local posi = {x = 2449, y = 2488, z = 15}       --Coordenadas da posição superior esquerda da área.
local posis = {x = 2428, y = 2498, z = 15}      --Coordenadas da posição inferior direita da área.
local pos = {x = 2438, y = 2493, z = 15}        --Onde a alavanca será criada.
      
    for a, b in pairs(cfg) do
        local pos = getRecorderPlayer(b[2])
        if not isPlayer(pos) then
            return doPlayerSendCancel(cid, "One or more players aren't in the correct clan's place.")
        elseif rank.need == true then
            if getPlayerStorageValue(pos, 862281) <= (rank.what_rank - 1) then
                return doPlayerSendCancel(cid, "One or more players aren't at rank "..rank.what_rank..".")
            end
        end
    end
 
    for c, d in pairs(cfg) do
        local pos = getRecorderPlayer(d[2])
        doTeleportThing(pos, d[3])
        doPlayerSendTextMessage(pos, 27, "Good luck!")
        doSendMagicEffect(getThingPos(pos), 14)
        doRemoveItem(item.uid, 1)
        addEvent(function()
            for i = 1, #monsters do
                doCreateMonster(monsters[i][1], monsters[i][2])
            end
            checkMonsters(posi, posis, pos, 19381)
        end, 5*1000)
    end
    return true
end

eo segundo:

function checkMonsters(area1, area2, pos, aid)
local monstros = getMonstersInArea(area1, area2)
local continue = true
    if #monstros < 1 then
        continue = false
        local a = doCreateItem(1945, 1, pos)
        doItemSetAttribute(a, "aid", aid)
        doSendMagicEffect(pos, 14)
    end
    if continue == true then
        addEvent(checkMonsters, 1000, area1, area2, pos, aid)
    end
end   
function getMonstersInArea(area1, area2)
local monsters = {}
    for x = area1.x, area2.x do
        for y = area1.y, area2.y do
            for z = area1.z, area2.z do
                monsterpos = {x=x,y=y,z=z,stackpos=253}
                monster = getThingFromPos(monsterpos)
                if ehMonstro(monster.uid) then
                    table.insert(monsters, monster.uid)
                end
            end
        end
    end
    return monsters
end
 
function onUse(cid, item, frompos, item2, topos)
 
local aids = {19381, 19382, 19383, 19384}   --Action IDs.
local posi = {x = 2428, y = 2488, z = 15}       --Coordenadas da posição superior esquerda da área.
local posis = {x = 2449, y = 2498, z = 15}      --Coordenadas da posição inferior direita da área.
local pos = {x = 2438, y = 2492, z = 15}         --Onde a alavanca será criada.
 
    if not isInArray(aids, item.actionid) then return true end
local new_aid = item.actionid + 1
 
    if item.actionid == aids[1] then
        local monsters = {{"Pikachu", {x = 2437, y = 2495, z = 15}}, {"Magikarp", {x = 2438, y = 2495, z = 15}}, {"Caterpie", {x = 2439, y = 2495, z = 15}}}
        doRemoveItem(item.uid, 1)
        addEvent(function()
            for i = 1, #monsters do
                doCreateMonster(monsters[i][1], monsters[i][2])
            end
            checkMonsters(posi, posis, pos, new_aid)
        end, 5*1000)
    elseif item.actionid == aids[2] then
        local monsters = {{"Pikachu", {x = 1050, y = 1058, z = 7}}, {"Magikarp", {x = 1051, y = 1058, z = 7}}, {"Caterpie", {x = 1052, y = 1058, z = 7}}, {"Metapod", {x = 1053, y = 1058, z = 7}}}
        doRemoveItem(item.uid, 1)
        addEvent(function()
            for i = 1, #monsters do
                doCreateMonster(monsters[i][1], monsters[i][2])
            end
            checkMonsters(posi, posis, pos, new_aid)
        end, 5*1000)
    elseif item.actionid == aids[3] then
        local monsters = {{"Pikachu", {x = 2437, y = 2495, z = 15}}, {"Magikarp", {x = 2438, y = 2495, z = 15}}, {"Caterpie", {x = 2439, y = 2495, z = 15}}, {"Metapod", {x = 2437, y = 2491, z = 15}}, {"Butterfree", {x = 2445, y = 2495, z = 15}}}
        doRemoveItem(item.uid, 1)
        addEvent(function()
            for i = 1, #monsters do
                doCreateMonster(monsters[i][1], monsters[i][2])
            end
            checkMonsters(posi, posis, pos, new_aid)
        end, 5*1000)
    elseif item.actionid == aids[4] then
        local monsters = {{"Pikachu", {x = 2437, y = 2495, z = 15}}, {"Magikarp", {x = 2438, y = 2495, z = 15}}, {"Caterpie", {x = 2439, y = 2495, z = 15}}, {"Metapod", {x = 2437, y = 2491, z = 15}}, {"Butterfree", {x = 2445, y = 2495, z = 15}}, {"Mewtwo", {x = 2434, y = 2492, z = 15}}}
        doRemoveItem(item.uid, 1)
        addEvent(function()
            for i = 1, #monsters do
                doCreateMonster(monsters[i][1], monsters[i][2])
            end
            checkMonsters(posi, posis, pos, new_aid)
        end, 5*1000)
    end
    return true
end

eu acho que fiz algo errado kkk

Tenta pegar o código que enviei, sem alterações, e testa (os dois).

Uma coisinha: dependendo de como sua função ehMonstro esteja configurada, os jogadores terão que retornar o pokémon para a pokeball a cada wave "derrotada" para o código funcionar por completo.

mais ainda posso mudar as positions??

Se você alterá-las corretamente, sim.

ainda continua o erro cara.

[10/01/2014 19:58:09] [Error - Action Interface]
[10/01/2014 19:58:09] In a timer event called from:
[10/01/2014 19:58:09] data/actions/scripts/outland main.lua:onUse
[10/01/2014 19:58:09] Description:
[10/01/2014 19:58:09] attempt to index a number value
[10/01/2014 19:58:09] stack traceback:
[10/01/2014 19:58:09]     [C]: in function 'doCreateItem'
[10/01/2014 19:58:09]     data/actions/scripts/outland mainn.lua:6: in function 'checkMonsters'
[10/01/2014 19:58:09]     data/actions/scripts/outland main.lua:86: in function <data/actions/scripts/outland main.lua:82>

eu mudei as position tudo certo, quando eu puxo a alavanca para ir a quest. eu mato os dois pokes que vem por primeiro mais dps da erro na hora de aparecer a alavanca, e observação a alavanca que eu cliquei para ir a quest, desapareçe eu vo para o local aonde eu vo matar os pokes, e logo da o erro. eu mato os pokes e nao aparece nada.