Chapalirous

Pronto

Provavelmente Você não Deixou Compilar 100%, na hora do compilação se der erro não feche ele vai está compilando, Deixe até parar de da erro e ficar normal Denovo.

Alguem Sabe arrumar o trade para Aparecer o boost do pokemon e pode ter 5 pokemon na bag para trocar. o meu trade tem que ta sem nenhum pokemon na bag para trocar function onTradeRequest(cid, target, item) for a, b in pairs (pokeballs) do if b.use == item.itemid then doPlayerSendCancel(cid, "You can't trade this item.") return false end end if isContainer(item.uid) then local bagItems = getItensUniquesInContainer(item.uid) if #bagItems >= 1 then doPlayerSendCancel(cid, "Has a Unique Item in this bag, you can't trade this item.") --alterado v1.6 return false end elseif getItemAttribute(item.uid, "unique") then --alterado v1.6 doPlayerSendCancel(cid, "It is a Unique Item, you can't trade this item.") return false end if isContainer(item.uid) then local itens = getPokeballsInContainer(item.uid) if #itens >= 1 then for i = 1, #itens do local lvl = getItemAttribute(itens[i], "level") local name = getItemAttribute(itens[i], "poke") if not lvl then doItemSetAttribute(itens[i], "level", pokes[name].level) --alterado v1.6 end end end elseif isPokeball(item.itemid) then local lvl = getItemAttribute(item.uid, "level") local name = getItemAttribute(item.uid, "poke") if not lvl then doItemSetAttribute(item.uid, "level", pokes[name].level) end end return true end local function noCap(cid, sid) if isCreature(cid) then doPlayerSendCancel(cid, "You can't carry more than six pokemons, trade cancelled.") end if isCreature(sid) then doPlayerSendCancel(sid, "You can't carry more than six pokemons, trade cancelled.") end end function onTradeAccept(cid, target, item, targetItem) local pbs = #getPokeballsInContainer(item.uid) local cancel = false local p1 = 0 local p2 = 0 local itemPokeball = isPokeball(item.itemid) and 1 or 0 local targetItemPokeball = isPokeball(targetItem.itemid) and 1 or 0 if getPlayerMana(cid) + itemPokeball > 6 then --alterado v1.6 cancel = true p1 = cid end if getPlayerMana(target) + targetItemPokeball > 6 then --alterado v1.6 cancel = true p2 = target end if pbs > 0 and getCreatureMana(target) + pbs > 6 + targetItemPokeball then cancel = true p1 = target end pbs = #getPokeballsInContainer(targetItem.uid) if pbs > 0 and getCreatureMana(cid) + pbs > 6 + itemPokeball then cancel = true p2 = cid end if cancel then addEvent(noCap, 20, p1, p2) return false end if itemPokeball == 1 and targetItemPokeball == 1 then setPlayerStorageValue(cid, 8900, 1) setPlayerStorageValue(target, 8900, 1) end return true end

Tem como Alguem Arrumar Esse Erro pra mim por por favor dou REP+ [05/12/2012 00:27:59] [Error - CreatureScript Interface] [05/12/2012 00:27:59] data/creaturescripts/scripts/look.lua:onLook [05/12/2012 00:27:59] Description: [05/12/2012 00:28:00] data/creaturescripts/scripts/look.lua:36: attempt to concatenate a boolean value [05/12/2012 00:28:00] stack traceback: [05/12/2012 00:28:00] data/creaturescripts/scripts/look.lua:36: in function <data/creaturescripts/scripts/look.lua:1> ´ Eu dou Rep+

Porque ta dando esse erro no login.lua [03/12/2012 21:56:42] [Error - CreatureScript Interface] [03/12/2012 21:56:43] data/creaturescripts/scripts/login.lua:onLogin [03/12/2012 21:56:43] Description: [03/12/2012 21:56:43] data/creaturescripts/scripts/login.lua:120: attempt to index field '?' (a nil value) [03/12/2012 21:56:44] stack traceback: [03/12/2012 21:56:44] data/creaturescripts/scripts/login.lua:120: in function <data/creaturescripts/scripts/login.lua:6> Login.lua

Entrem no Servidor Ainda tem Muitas Novidades Poke-kamiki.blogspot.com

Items.otb Para tibia 8.60

Ta Ae Pic Editor para Pokemon Traduzido

Deu Certo só que Porem quando eu vou tentar Usar a Boost Stone ainda continua aparecendo 13:13 (Kamiki) Chapalirous [325]: Electabuzz, take this Boost! Mas não esta boostando

Boost Stone quando Chega no boost maximo ela continua Gastando e não boosta mais. Eu queria que parasse de gastar as Boost Stone quando chega no boost Máximo

Como Colocar para Não perder a Rare candy quando chegar no boost maximo ?

Error Pokeexp [20/11/2012 23:03:08] [Error - CreatureScript Interface] [20/11/2012 23:03:08] data/creaturescripts/scripts/pokeexp.lua:onDeath [20/11/2012 23:03:08] Description: [20/11/2012 23:03:08] (luaDoCreatureAddHealth) Creature not found Pokeexp.lua local balls = {11826, 11828, 11829, 11831, 11832, 11834, 11835, 11837, 11737, 11739, 11740, 11742, 11743, 11745, 11746, 11748}[/b] [b]local function playerAddExp(cid, exp) doPlayerAddExp(cid, exp) doSendAnimatedText(getThingPos(cid), exp, 215) end[/b] [b]function onDeath(cid, corpse, deathList) --if not isCreature(cid) then return true end if isSummon(cid) or not deathList or corpse.itemid == 0 or getCreatureName(cid) == "Evolution" then return true end[/b] [b] -------------Edited Golden Arena------------------------- if getPlayerStorageValue(cid, 22546) == 1 then setGlobalStorageValue(22548, getGlobalStorageValue(22548)-1) doItemSetAttribute(corpse.uid, "golden", 1) --alterado v2.6 end --alterado v2.4 if getPlayerStorageValue(cid, 22546) == 1 and (getGlobalStorageValue(22547) == -1 or getGlobalStorageValue(22547) == #wavesGolden+1) and getGlobalStorageValue(22548) <= 0 then for _, sid in ipairs(getPlayersOnline()) do if getPlayerStorageValue(sid, 22545) == 1 then doPlayerSendTextMessage(sid, 20, "You have win the golden arena! Take your reward!") doPlayerAddItem(sid, 2152, 100) --premio setPlayerStorageValue(sid, 22545, -1) doTeleportThing(sid, getClosestFreeTile(sid, posBackGolden), false) --alterado v2.4 end --nao esqueçam de fazer as alteraçoes no lib/configuration.lua!! end end --------------------------------------------------- local givenexp = getWildPokemonExp(cid) local expstring = ""..cid.."expEx" local killer = getItemAttribute(corpse.uid, "corpseowner") [/b] [b]if givenexp > 0 then for a = 1, #deathList do local pk = deathList[a] if isCreature(pk) then playerAddExp(pk, math.floor(playerExperienceRate * givenexp * getDamageMapPercent(pk, cid))) local firstball = getPlayerSlotItem(pk, 8)[/b] [b] if firstball and getItemAttribute(firstball.uid, expstring) and getItemAttribute(firstball.uid, expstring) > 0 then local percent = getItemAttribute(firstball.uid, expstring) <= 1 and getItemAttribute(firstball.uid, expstring) or 1 local gainexp = math.ceil(percent * givenexp) doItemSetAttribute(firstball.uid, expstring, 0) givePokemonExp(pk, firstball, gainexp) end[/b] [b] for b = 1, #balls do local pokes = getItemsInContainerById(getPlayerSlotItem(pk, 3).uid, balls[b]) if #pokes >= 1 then for _, uid in pairs (pokes) do if getItemAttribute(uid, expstring) and getItemAttribute(uid, expstring) > 0 then local percent = getItemAttribute(uid, expstring) <= 1 and getItemAttribute(uid, expstring) or 1 local gainexp = math.ceil(percent * givenexp) doItemSetAttribute(uid, expstring, 0) givePokemonExpInBp(pk, uid, gainexp, balls[b]) end end end end end end end[/b] [b]if isNpcSummon(cid) then local master = getCreatureMaster(cid) doSendMagicEffect(getThingPos(cid), getPlayerStorageValue(cid, 10000)) doCreatureSay(master, getPlayerStorageValue(cid, 10001), 1) doRemoveCreature(cid) return false end[/b] [b]doItemSetAttribute(corpse.uid, "offense", getPlayerStorageValue(cid, 1011)) doItemSetAttribute(corpse.uid, "defense", getPlayerStorageValue(cid, 1012)) doItemSetAttribute(corpse.uid, "speed", getPlayerStorageValue(cid, 1013)) doItemSetAttribute(corpse.uid, "vitality", getPlayerStorageValue(cid, 1014)) doItemSetAttribute(corpse.uid, "spattack", getPlayerStorageValue(cid, 1015)) doItemSetAttribute(corpse.uid, "level", getLevel(cid)) doItemSetAttribute(corpse.uid, "gender", getPokemonGender(cid)) return true end

Error catch.lua [20/11/2012 22:48:34] [Error - Action Interface] [20/11/2012 22:48:34] data/actions/scripts/catch.lua:onUse [20/11/2012 22:48:35] Description: [20/11/2012 22:48:35] data/actions/scripts/catch.lua:30: attempt to index field '?' (a nil value) [20/11/2012 22:48:35] stack traceback: [20/11/2012 22:48:35] data/actions/scripts/catch.lua:30: in function <data/actions/scripts/catch.lua:8>[/b] [b] Ta ae o Catch.lua local ballcatch = { [2394] = {cr = 3, on = 24, off = 23, ball = 11826, send = 47, typeee = "normal"}, [2391] = {cr = 6, on = 198, off = 197, ball = 11832, send = 48, typeee = "great"}, [2393] = {cr = 10, on = 202, off = 201, ball = 11835, send = 46, typeee = "super"}, [2392] = {cr = 15, on = 200, off = 199, ball = 11829, send = 49, typeee = "ultra"}, }[/b] [b]function onUse(cid, item, frompos, item3, topos)[/b] [b]local item2 = getTopCorpse(topos) if item2 == null then return true end[/b] [b]if getItemAttribute(item2.uid, "catching") == 1 then return true end[/b] [b]if getItemAttribute(item2.uid, "golden") and getItemAttribute(item2.uid, "golden") == 1 then return doPlayerSendCancel(cid, "You can't try to catch a pokemon in the Golden Arena!") --alterado v2.6 end[/b] [b]local name = string.lower(getItemNameById(item2.itemid)) name = string.gsub(name, "fainted ", "") name = string.gsub(name, "defeated ", "")[/b] [b]local x = pokecatches[doCorrectPokemonName(name)] -------------------------------------------------------------------------------- local storage = newpokedex[doCorrectPokemonName(name)].stoCatch --edited brokes count system if getPlayerStorageValue(cid, storage) == -1 then setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0") end -------------------------------------------------------------------------------- if not x then return true end[/b] [b] local owner = getItemAttribute(item2.uid, "corpseowner") if owner and isCreature(owner) and isPlayer(owner) and cid ~= owner then --alterado v1.5 doPlayerSendCancel(cid, "You are not allowed to catch this pokemon.") return true end ----------------------------------------------------- newidd = ballcatch[item.itemid].ball typeee = ballcatch[item.itemid].typeee ----------------------------------------------------- local catchinfo = {} catchinfo.rate = ballcatch[item.itemid].cr catchinfo.catch = ballcatch[item.itemid].on catchinfo.fail = ballcatch[item.itemid].off catchinfo.newid = newidd catchinfo.name = doCorrectPokemonName(name) catchinfo.topos = topos catchinfo.chance = x.chance[/b] [b] doSendDistanceShoot(getThingPos(cid), topos, ballcatch[item.itemid].send) doRemoveItem(item.uid, 1)[/b] [b] local d = getDistanceBetween(getThingPos(cid), topos)[/b] [b] addEvent(doSendPokeBall, d * 70 + 100 - (d * 14) , cid, catchinfo, false, false, typeee) --edited brokes count system addEvent(doSendMagicEffect, (d * 70 + 100 - (d * 14)) - 100, topos, 3)[/b] [b]return true end

Quando eu faço para mudar o Level Maximo dos Pokemons ? PDA

Não deu agora quando eu vou abrir o Bau não tem nada

Minha goback esta bugado, não da para mim usar o pokemon Inical que eu pego no bau quando cria a acc local EFFECTS = { --[OutfitID] = {Effect} ["Magmar"] = 35, ["Jynx"] = 17, --alterado v2.5 ["Shiny Jynx"] = 17, } function onUse(cid, item, frompos, item2, topos) if exhaustion.get(cid, 6666) and exhaustion.get(cid, 6666) > 0 then return true end --alterado v2.6 sistema de firstpoke retirado if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then return true end ------------------------------------------------------- ballName = getItemAttribute(item.uid, "poke") btype = getPokeballType(item.itemid) usando = pokeballs[btype].use local effect = pokeballs[btype].effect if not effect then effect = 21 end ---------------------------------------------------------- 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 v2.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 v2.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 bp = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK) local lowPokes = {"Rattata", "Caterpie", "Weedle", "Oddish", "Pidgey", "Paras", "Poliwag", "Bellsprout", "Magikarp", "Hoppip", "Sunkern"} local low = {} local lw = 1 for e, f in pairs(pokeballs) do for times = 1, 3 do local items = getItemsInContainerById(bp.uid, pokeballs[e].all[times]) if #items >= 1 then --alterado v2.6 for _, uid in pairs(items) do local nome1 = getItemAttribute(uid, "poke") if not isInArray(lowPokes, pokemon) and nome1 == pokemon then return doPlayerSendTextMessage(cid, 27, "Sorry, but you can't carry two pokemons equals!") elseif isInArray(lowPokes, pokemon) then if nome1 == pokemon then table.insert(low, lw, nome1) lw = lw +1 end end 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 boosts = getItemAttribute(item.uid, "boost") or 0 if getPlayerLevel(cid) + pokemonMaxLevelAbovePlayer < getItemAttribute(item.uid, "level") + boosts then doPlayerSendCancel(cid, "Your pokemon's level is much higher than yours, you can't use him.") return true end -------------------------------------------------------------------------------------- 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 v2.4 } if shinysClan[pokemon] and (getPlayerGroupId(cid) < 3 or getPlayerGroupId(cid) > 6) then if getPlayerStorageValue(cid, 86228) ~= shinysClan[pokemon][1] then doPlayerSendCancel(cid, "You need be a member of the clan "..shinysClan[pokemon][2].." to use this pokemon!") return true elseif getPlayerStorageValue(cid, 862281) ~= 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 local nameHIT = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke") local hands = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "hands") if nameHIT == "Shiny Hitmonchan" or nameHIT == "Hitmonchan" then if getItemAttribute(getPlayerSlotItem(cid, 8).uid, "hands") then doSetCreatureOutfit(pk, {lookType = hitmonchans[nameHIT][hands].out}, -1) else doPlayerSendTextMessage(cid, 27, "Contact a GameMaster! Error in passive system! Attribute \"hands\" missing") end end end ------------------------------------------------------------------------- ---------movement magmar, jynx------------- if EFFECTS[getCreatureName(pk)] then markPosEff(pk, getThingPos(pk)) sendMovementEffect(pk, EFFECTS[getCreatureName(pk)], getThingPos(pk)) --alterado v2.5 end -------------------------------------------------------------------------- if getCreatureName(pk) == "Ditto" then local left = getItemAttribute(item.uid, "transLeft") local name = getItemAttribute(item.uid, "transName") if left and left > 0 then setPlayerStorageValue(pk, 1010, name) doSetCreatureOutfit(pk, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1) addEvent(deTransform, left * 1000, pk, getItemAttribute(item.uid, "transTurn")) doItemSetAttribute(item.uid, "transBegin", os.clock()) else setPlayerStorageValue(pk, 1010, "Ditto") end end if isGhostPokemon(pk) then doTeleportThing(pk, getPosByDir(getThingPos(cid), math.random(0, 7)), false) end doCreatureSetLookDir(pk, 2) adjustStatus(pk, item.uid, true, false, true) doAddPokemonInOwnList(cid, pokemon) doTransformItem(item.uid, item.itemid+1) local pokename = getItemAttribute(item.uid, "nick") or getCreatureName(pk) local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename) doCreatureSay(cid, mgo, TALKTYPE_SAY) doSendMagicEffect(getCreaturePosition(pk), effect) else doPlayerSendCancel(cid, "This pokemon is fainted.") end if useKpdoDlls then doUpdateMoves(cid) end return true end

Não Deu Ainda Continua Derrubando o Server

Minha Reflection boost quando passa por cima de um Fire field ou quando solta paraly não tem como refletir ai o serve buga e cai tem como arrumar isso ? Item.xml <item id="10022" article="a" name="Reflection Boots. Item para poucos, reflete 30% de todos ataques recebidos para os oponentes"> <attribute key="armor" value="60" /> <attribute key="slotType" value="feet" /> <attribute key="reflectpercentall" value="30"/> <attribute key="reflectchanceall" value="30"/> <attribute key="slotType" value="feet" /> <attribute key="weight" value="950" /> <attribute key="description" value="It Belongs to |PLAYERNAME|." /> </item>

O meu Bau ta funcionando com os Itens. Só que Sem o Coin eu consigo pegar os itens tem como arrumar ? Script: local coin = 11192 local lever = { [6001] = {15,12606}, [6002] = {15,12603}, [6003] = {15,12604}, [6004] = {15,12605}, [6005] = {15,12610}, [6006] = {15,12609}, [6007] = {10,4852}, [6008] = {25,10134}, [6009] = {40,10022}, [6010] = {8,2471}, [6011] = {8,2508}, [6012] = {8,2507}, [6013] = {8,2640}, [6014] = {8,2390}, [6015] = {8,7390}, [6016] = {8,8930}, [6017] = {8,7840}, [6018] = {8,8858}, [6019] = {25,10309} } function onUse(cid,item,fromPosition,itemEx,toPosition) if doPlayerRemoveItem(cid,coin,lever[item.actionid][1]) == FALSE then return doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "você precisa de "..lever[item.actionid][1].." " ..getItemNameById(coin)) end doPlayerAddItem(cid,lever[item.actionid][2]) doPlayerSendTextMessage(cid,22,"você comprou um " .. getItemNameById(lever[item.actionid][2])) doSendMagicEffect(getCreaturePosition(cid), math.random(28,30)) doTransformItem(item.uid, item.itemid == 1748 and 1748 or 1748) return true end Tag: <action actionid="6001" script="vendas/venda.lua" /> <action actionid="6002" script="vendas/venda.lua" /> <action actionid="6003" script="vendas/venda.lua" /> <action actionid="6004" script="vendas/venda.lua" /> <action actionid="6005" script="vendas/venda.lua" /> <action actionid="6006" script="vendas/venda.lua" /> <action actionid="6007" script="vendas/venda.lua" /> <action actionid="6008" script="vendas/venda.lua" /> <action actionid="6009" script="vendas/venda.lua" /> <action actionid="6010" script="vendas/venda.lua" /> <action actionid="6011" script="vendas/venda.lua" /> <action actionid="6012" script="vendas/venda.lua" /> <action actionid="6013" script="vendas/venda.lua" /> <action actionid="6014" script="vendas/venda.lua" /> <action actionid="6015" script="vendas/venda.lua" /> <action actionid="6016" script="vendas/venda.lua" /> <action actionid="6017" script="vendas/venda.lua" /> <action actionid="6018" script="vendas/venda.lua" /> <action actionid="6019" script="vendas/venda.lua" />