Ir para conteúdo
  • Cadastre-se

Posts Recomendados

Ola eu queria uma ajuda aqui

 

2lj58cm.jpg

 

 

 

 

Meu Goldback que ta ando erro

local EFFECTS = {
--[OutfitID] = {Effect}
["Magmar"] = 35,   
["Jynx"] = 17,          --alterado v1.5
["Shiny Jynx"] = 17, 
    ["Piloswine"] = 205,  --alterado v1.8
    ["Swinub"] = 205,   
}
 
function onUse(cid, item, frompos, item2, topos)
 
if exhaustion.get(cid, 6666) and exhaustion.get(cid, 6666) > 0 then return true end
 
if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 
or getPlayerStorageValue(cid, 75846) >= 1 or getPlayerStorageValue(cid, 5700) >= 1  then    --alterado v1.9 <<
   return true                                                                                                                        
end
 
local ballName = getItemAttribute(item.uid, "poke")
local btype = getPokeballType(item.itemid)
local usando = pokeballs[btype].use
 
local effect = pokeballs[btype].effect
if not effect then
effect = 21
end
 
unLock(item.uid) --alterado v1.8
 
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, 212124) <= 0 then     --alterado v1.6
       if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then  
          BackTeam(cid)       
       end
    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
 
----------------------- Sistema de nao poder carregar mais que 3 pokes lvl baixo e + q 1 poke de lvl medio/alto ---------------------------------
if not isInArray({5, 6}, getPlayerGroupId(cid)) then
   local balls = getPokeballsInContainer(getPlayerSlotItem(cid, 3).uid)
   local low = {}
   local lowPokes = {"Rattata", "Caterpie", "Weedle", "Oddish", "Pidgey", "Paras", "Poliwag", "Bellsprout", "Magikarp", "Hoppip", "Sunkern"}
   if #balls >= 1 then
      for _, uid in ipairs(balls) do
          local nome = getItemAttribute(uid, "poke")
          if not isInArray(lowPokes, pokemon) and nome == pokemon then
             return doPlayerSendTextMessage(cid, 27, "Sorry, but you can't carry two pokemons equals!")
          else
             if nome == pokemon then
                table.insert(low, nome)
             end
          end
      end
   end
if #low >= 3 then
   return doPlayerSendTextMessage(cid, 27, "Sorry, but you can't carry more than three pokemons equals of low level!")
end   
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
 
---------------------------- Sistema pokes de clan --------------------------------------
local 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) < 4 or getPlayerGroupId(cid) > 6) then  --alterado v1.9 \/
  if getPlayerClanNum(cid) ~= shinysClan[pokemon][1] then
     doPlayerSendCancel(cid, "You need be a member of the clan "..shinysClan[pokemon][2].." to use this pokemon!")
     return true   
       elseif getPlayerClanRank(cid) ~= 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                                                  --alterado v1.8 \/
       if pokemon == "Shiny Hitmonchan" or pokemon == "Hitmonchan" then
          if not getItemAttribute(item.uid, "hands") then
             doSetItemAttribute(item.uid, "hands", 0)
          end
          local hands = getItemAttribute(item.uid, "hands")
          doSetCreatureOutfit(pk, {lookType = hitmonchans[pokemon][hands].out}, -1)
       end
    end
-------------------------------------------------------------------------
    ---------movement magmar, jynx-------------
    if EFFECTS[getCreatureName(pk)] then             
       markPosEff(pk, getThingPos(pk))
       sendMovementEffect(pk, EFFECTS[getCreatureName(pk)], getThingPos(pk))  
    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)
              if not getCreatureCondition(cid, CONDITION_INFIGHT) then
             addEvent(doRegenerateWithHeld, 0, getCreatureMaster(pk), pk)
       end
doAddPokemonInOwnList(cid, pokemon)
 
doTransformItem(item.uid, item.itemid+1)
 
local pokename = getPokeName(pk) --alterado v1.7 
 
local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename)
doCreatureSay(cid, mgo, TALKTYPE_SAY)
    
doSendMagicEffect(getCreaturePosition(pk), effect)
 
if useOTClient then
  doPlayerSendCancel(cid, '12//,show') --alterado v1.7
    end
    
else
 
    doPlayerSendCancel(cid, "This pokemon is fainted.")
 
end
 
if useKpdoDlls then
doUpdateMoves(cid)
end
return true
end

Meu novo projeto.

 

http://oi58.tinypic.com/2yplmrk.jpg

 

 

 

Link para o post
Compartilhar em outros sites

Oque acontece é que ele não tá conseguindo achar o player na função  getPlayerSlotItem(cid, 3) mas eu não sei oque pode tar causando isso... a menos que seu server esteja com essa função bugada

Todos os meus trabalhos importantes estão na seção "Sobre mim" no meu perfil; Dá uma passada lá!

"Há três caminhos para o fracasso: não ensinar o que se sabe, não praticar o que se ensina, e não perguntar o que se ignora." - São Beda

I7Pm6ih.png

(obg ao @Beeny por fazer essa linda sign <3)

Link para o post
Compartilhar em outros sites

Mais ae tem alguma solução para arrumar isso?

Meu novo projeto.

 

http://oi58.tinypic.com/2yplmrk.jpg

 

 

 

Link para o post
Compartilhar em outros sites

não vou saber te responder.. esse script é padrão de servidores de poketibia?? se for tenta baixar outro servidor e usar o script.. caso não dê certo experimente trocar de source

Todos os meus trabalhos importantes estão na seção "Sobre mim" no meu perfil; Dá uma passada lá!

"Há três caminhos para o fracasso: não ensinar o que se sabe, não praticar o que se ensina, e não perguntar o que se ignora." - São Beda

I7Pm6ih.png

(obg ao @Beeny por fazer essa linda sign <3)

Link para o post
Compartilhar em outros sites

Sim isso e de poketibia eu irei baixar para ver obrigado

Meu novo projeto.

 

http://oi58.tinypic.com/2yplmrk.jpg

 

 

 

Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • Por Trynclor
      eu to tentando criar um ot serv digimon mais os "chars" n está salvando do jeito correto eles sempre sao criados mas sempre que relogam eles voltam para o lugar de inicio e sem nada na bag como se acabassem d ser criados o erro é esse : [27/07/2014 19:50:23] OTSYS_SQLITE3_PREPARE(): SQLITE ERROR: no such table: player_items (DELETE FROM "player_items" WHERE "player_id" = 2) [27/07/2014 19:50:23] OTSYS_SQLITE3_PREPARE(): SQLITE ERROR: no such table: player_items (DELETE FROM "player_items" WHERE "player_id" = 2) [27/07/2014 19:50:23] OTSYS_SQLITE3_PREPARE(): SQLITE ERROR: no such table: player_items (DELETE FROM "player_items" WHERE "player_id" = 2) [27/07/2014 19:50:23] Error while saving player: Lucas.
       
      +REP pra quem ajuda
       
    • Por Ricardo Tibia
      Ola estou com um problema num ot serve aki quando to upando ele, upa normal mais quando more volta pra o nivel 8 alquem ae ajuda rep+
    • Por Demon123
      Ae Galera Do Tk Blz? Como Sou Novo Ak Quero tirar algumas duvidas
       
       
      Quero Saber Como Colocar As Coisas Em Spoiler, e Como Colocar Imagens aqui , coisa simples mais eu nao sei, alguem me ajuda pf, do rep ++
    • Por vinifariia
      quero um script que o play consiga tirar o utamo da outra pessoa ( exana vita) 7.92 o meu ta assim mais n funciona, ele n tira o utamo do play
       
       
      local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_POISON)   local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat2, COMBAT_PARAM_DISPEL, CONDITION_FIRE)   local combat3 = createCombatObject() setCombatParam(combat3, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat3, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE)   local combat4 = createCombatObject() setCombatParam(combat4, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat4, COMBAT_PARAM_DISPEL, CONDITION_EMO)   local combat5 = createCombatObject() setCombatParam(combat5, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat5, COMBAT_PARAM_DISPEL, CONDITION_ENERGY)   local combat6 = createCombatObject() setCombatParam(combat6, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat6, COMBAT_PARAM_DISPEL, CONDITION_REGEN)   local combat8 = createCombatObject() setCombatParam(combat8, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat8, COMBAT_PARAM_DISPEL, CONDITION_INVISIBLE)   local combat9 = createCombatObject() setCombatParam(combat9, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat9, COMBAT_PARAM_DISPEL, CONDITION_LIGHT)   local combat10 = createCombatObject() setCombatParam(combat10, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat10, COMBAT_PARAM_DISPEL, CONDITION_FROZZEN)   local combat11 = createCombatObject() setCombatParam(combat11, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat11, COMBAT_PARAM_DISPEL, CONDITION_DROWN)   local combat12 = createCombatObject() setCombatParam(combat12, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat12, COMBAT_PARAM_DISPEL, CONDITION_DRUNK)     function onTargetCreature(cid, target)      if isPlayer(target) == 1 then   if getPlayerSlotItem(target, 9).itemid == 2204 or getPlayerSlotItem(target, 10).itemid == 13502 then      doSendAnimatedText(getThingPos(target),"Dispel!",215)    else doCombat(target, combat10, numberToVariant(target)) doCombat(target, combat6, numberToVariant(target))      doSendAnimatedText(getThingPos(target),"Dispel!",215)    end      end  end   setCombatCallback(combat, CALLBACK_PARAM_TARGETCREATURE, "onTargetCreature")     function onCastSpell(cid, var) doCombat(cid, combat2, var) doCombat(cid, combat3, var) doCombat(cid, combat4, var) doCombat(cid, combat5, var) doCombat(cid, combat8, var) doCombat(cid, combat9, var) doCombat(cid, combat11, var) doCombat(cid, combat12, var) return doCombat(cid, combat, var) end
    • Por fabiodias
      xamp Esta com erro.. ajude por favor tipo,toda ves que aperto start apache ele trava todo o apache paresse que não ta funcionando mas..! ajude tira esse erro por favor presiso cria meu site o mais rapido possivel.!
      Vo Postar o print do xamp dando erro

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo