samlecter

Você criou a variável effect com valor 7 mas não atribuiu ela em lugar nenhum... olha onde eu coloquei effect e missile
 
elseif spell == "Fireball" then
 
    local effect = 7
    local missile = 3
    
    doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), (isMega(cid) and getMegaID(cid) == "X") and 57 or missile)  
    addEvent(doDanoWithProtect, 200, cid, FIREDAMAGE, getThingPosWithDebug(target), waba, min, max, (isMega(cid) and getMegaID(cid) == "X") and 302 or effect)

Para aumentar a quantidade, faz assim: 
 
Troca:
doPlayerAddItem(cid, item)   
 
Por:
  
doPlayerAddItem(cid, item,50)  50 é a quantidade, nesse caso virá 500k 
 
 
Para o player ganhar outro item além dos 500k, você cria outra variável com o id do item, no caso o id da backpack, assim:
 
Embaixo de:
item = 2160  -- coloque o id do item     
Coloque:
item2 = BackpackID   -- coloca o id do item   
Ficando assim:
item = 2160  -- coloque o id do item             item2 = BackpackID  -- coloca o id do item  
 
 
Depois, embaixo de:
 doPlayerAddItem(cid, item,50)   
Adiciona:
  doPlayerAddItem(cid, item2)   
Ficando assim:
  doPlayerAddItem(cid, item,50)               doPlayerAddItem(cid, item2)      
 
Código completo: (só altera o id do segundo item)
 
 
 
 
 
 
 
 
 
 
 

Já pesquisei e não achei   Vou procurar dnv, mas sem saber o nome nem nada fica dificil, vc tem alguma informação sobre ela? 
 
EDITED:
Achei em outro fórum, http://www.xtibia.com/forum/topic/238577-pokemon-servidor-pokestage/

Eu queria tirar isso somente dos lendarios, vi em um post ensinando, testei e funfou, você quer em todos, então acho que tem como fazer com base no que uso aqui
 
Eu coloquei isso em todas as funções (miss,slow,sleep,stun,paralyze,etc) 
 
 
    local pokemons = {"Mew", "Mewtwo", "Raikou", "Entei", "Suicune", "Lugia", "Celebi", "Ho-Oh", "Regirock", "Registeel", "Regice", "Regigigas", "Shadow Salamence",}   if isInArray(pokemons, getCreatureName(cid)) then return true end      
 
Colocando isso abaixo de cada:
 if not isCreature(cid) then return true end      
Fazia com que esses pokemons fossem imunes , mas tem que fazer em cada função, por exmplo na do miss fica assim: 
 
 
 function doMiss2(cid, cd, eff, check, spell) local stg = conds["Miss"]     if not isCreature(cid) then return true end  --is creature?          -- Adicionado PokexLin         local pokemons = {"Mew", "Mewtwo", "Raikou", "Entei", "Suicune", "Lugia", "Celebi", "Ho-Oh", "Regirock", "Registeel", "Regice", "Regigigas", "Shadow Salamence",}   if isInArray(pokemons, getCreatureName(cid)) then return true end     -- -- ... aqui \/ vai o resto da função, o que ela vai fazer caso o pokemon não seja um dos listados acima 
 
 
 
Agora, para você colocar em todos pokemons, creio que assim funcione : 
 
em baixo de cada  
   if not isCreature(cid) then return true end  --is creature?      
você coloca isso:  
 

local pokemons = {"Magikarp",} if isInArray(pokemons, getCreatureName(cid)) then

 
 
e acrescenta um
 end     no final da função exemplo de como fazer:  
Na function Sleep , a sua deve estar assim:
 
 
   
 
Depois desse ultimo  
 end    vem outra função :    function doLeech2(cid, attacker, cd, check, damage) local stg = conds["Leech"]    
Você tem que adicionar mais um  
 end    antes da proxima função e adicionar o que falei la em cima:  
 

local pokemons = {"Magikarp",} if isInArray(pokemons, getCreatureName(cid)) then

 
essa parte /\ você coloca depois do  
   if not isCreature(cid) then return true end  --is creature?     
Espero que tenha entendido, fazendo isso, ninguem vai tomar sleep,slow,confusion,miss etc com exceção do magikarp
 
 
 
 
 
 
 
 
 

Não queria ter que fazer isso, acho que descobri uma maneira, o antivirus avisa que o cliente pode ser malicioso pois sua estrutura original foi alterada ao compilar, pra corrigir isso creio que basta criar um installer com o cliente compilado pois ao criar um installer a estrutura seria modificada novamente só que não seria "clandestinamente" como o molebox faz, fiz isso aqui e o antivirus não detectou nada, talvez quando alguem baixar o antivirus acuse, não testei ainda , vou upar e pedir para um amigo baixar e edito aqui se isso que citei realmente funciona