AwakeGamer

Queeria aquele sistema de colocar senha no depot . E como eu faço para colocar um depot dentro de outro depot ?

Quero um sistema que quando voçe usar a dex no seu personagem ou em qualquer outro personagem mostre quantos pokemon ela ja deu dex e quantos falta . E quando ele termina de dar dex em todos pokemon do serve ele ganha um premio automaticamente 7 pontos no site .

Conseguiu fazer ?

muito bom mano valeu mesmo tem previsão Fanbarcom movimento ?

To sem o rep ++ amanha te do mais dois Muito bom trabalho e tem como fazer a pokebola sem fundo com as escritas PMO Online saindo dela !

Trabalho muito bom parabens e o E um logotipo tipo so uma pokebola normal fechada saindo dela PMO Online .

Back Ground Faz duas se der uma para client Escrito PMO Online E uma pro site pode ser do mesmo tamanho escrito PMO - Pokemon Millenium O Serve que vai revolucionar . E um Sing pode ser a sua escolha escrito PMO Online . E um logotipo tipo so uma pokebola normal fechada saindo dela PMO Online . Ja te de rep ++ depois do mais

Back Ground e pra site escolha voçe mesmo um tamanho que voçe acha adequado pra mim esta bem ! E tambem esses dois se der pofavor [x] Avatar / [x] Sign Tema: Tibia Old Times Sign: Render/Stock: OPCIONAL, Imagem de pokemon tipo de ate a 5 geração ! Avatar: Um personagem do pokemon . Tamanho: 180 x 300 Avatar - Sign a que vocês acharem melhor. Tipografia no Avatar: PMO Online

[ x] Avatar / [ x] Sign / [x] Outro. Qual? Background , Fan Bar . Tema: Pokemon Render/Stock: Pokemon Tamanho: 400 x 60 Tipografia: What Preferência: Quero com o nome do meu serve de poketibia que estou lançando PMO Online ou Pokemon Millenium se der pra fazer com os dois seria melhor No Fan Bar . Colocar uma imagem se movendo com Cold escrito que e meu nome de adm e o nome do Serve PMO Online

Slicer valeu ajudo muito resolvido . Rep ++ Thiago valeu mais ja foi resolvido pode mover .

Ajuda a resolver esse erro [17/03/2013 20:05:35] >> Loading script systems [17/03/2013 20:05:35] [Warning - BaseEvents::loadFromXml] Cannot open actions.xml file. [17/03/2013 20:05:35] Line: 325, Info: Input is not proper UTF-8, indicate encoding ! [17/03/2013 20:05:35] Bytes: 0xE7 0xE3 0x6F 0x2E [17/03/2013 20:05:36] > ERROR: Unable to load Actions!

Mano ! Creditos a voçê ? Qualquer pessoa sabe fazer isso ate parece que e um bixo de sete cabeça . Não vai ensinar oque nao sabe nao e so baixa um serve e troca as spr pelo do dowloard Pois se fizer isso vai desconfigurar tudo , muitos bugs e erros Pois vai ter que mecher no id dos pokemon , corpse , protrat , dex e nos id de todos itens do serve então nao ensina oque nao saiba As sprites roda em qualquer srve e so saber arrumar !

Rep ++ vlw

Alguem configura meu stage ai quero assim que de começo com xp auto e vo passando o stagios ir diminuindo as xp do level 8 ate level 50 = Level 51 ate level 80 = level 81 ate level 120 = level 121 ate level 150 = level 151 ate level 200 = level 201 ate level 300 = level 301 ate level 400 = level 401 ate level 500 = level 501 ate level 600 = level 601 ate level 1000 =

REP +++ TUDO CERTO AQUI MUITO OBRIGADO

Faz pra mim as script agora da Super Stone que so aumenta a offence do pokemon e so pode usar 3 em cada pokemon ? Que a stone suma quando usar

Aqui o script de boost mais quando usa boost no poke ela nao some porfavor ja arruma pra ela sumir tbm porfavor function onUse(cid, item, topos, item2, frompos) local myball = getPlayerSlotItem(cid, 8) local boost = getItemAttribute(myball.uid, "boost") or 0 local boosts = 0 if boost == 50 then doPlayerSendCancel(cid, "Your pokemon is already at maximum boost.") return true end if #getCreatureSummons(cid) >= 1 then if getPlayerAccess(cid) == 6 then boosts = 49 end boosts = boosts + 1 local pokemon = getItemAttribute(myball.uid, "poke") local off = pokes[pokemon].offense * boost_rate * boosts local def = pokes[pokemon].defense * boost_rate * boosts local agi = pokes[pokemon].agility * boosts local spatk = pokes[pokemon].specialattack * boost_rate * boosts local vit = pokes[pokemon].vitality * boost_rate * boosts doSetItemAttribute(myball.uid, "boost", boost + boosts) doSetItemAttribute(myball.uid, "offense", getItemAttribute(myball.uid, "offense") + off) doSetItemAttribute(myball.uid, "defense", getItemAttribute(myball.uid, "defense") + def) doSetItemAttribute(myball.uid, "speed", getItemAttribute(myball.uid, "speed") + agi) doSetItemAttribute(myball.uid, "specialattack", getItemAttribute(myball.uid, "specialattack") + spatk) doSetItemAttribute(myball.uid, "vitality", getItemAttribute(myball.uid, "vitality") + vit) doRemoveItem(item.uid) doSendMagicEffect(getThingPos(item2.uid), 103) doPlayerSendTextMessage(cid, 27, "Congrulations, your "..pokemon..", as beem boosted +1.") doPlayerSendTextMessage(cid, 27, "Now your "..pokemon.." have a boost +"..boosts + boost..".") doSendAnimatedText(getThingPos(item2.uid), "+1 Boost", 215) doPlayerSetVocation(cid,4) else return doPlayerSendCancel(cid, "Only use in yours pokemons.") end return true end

Queria criar um stone aonde que quando no pokemon ela aumenta so a OFFENCE e so pode usar 3 stone dessa em cada pokemon . E tipo se tem uma stone se usa no pokemon ela some ai se tem que consegui mais para colocar no pokemon e que quando se usa uma nela aparece a msg seu pokemon esta mais forte que o normal . NOME QUE QUERO NA Stone e SUPER STONE aguardo a script

Tipo eu quero que so possa desloga com todos pode na ball tem como arruma pra mim a script abaixo . function onLogout(cid) if #getCreatureSummons(cid) >= 1 then return doPlayerSendCancel(cid, "Voce precisa recolher seu pokemon") and false end if not isCreature(cid) then return true end local thisitem = getPlayerSlotItem(cid, 8) if thisitem.uid <= 0 then return true end if getPlayerStorageValue(cid, 17000) >= 1 then return doPlayerSendTextMessage(cid, 27, "Para deslogar saia do fly!") and false end local ballName = getItemAttribute(thisitem.uid, "poke") -------------------------------------------------------- btype = getPokeballType(thisitem.itemid) --------------------------------------------------------------- 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 not isCreature(cid) then return true end if getPlayerStorageValue(cid, 52480) >= 1 or getPlayerStorageValue(cid, 52481) >= 0 then local sid = getPlayerByName(getPlayerStorageValue(cid, 52482)) local sendLose = true if isCreature(sid) then if getPlayerStorageValue(sid, 52482) == getCreatureName(cid) then addEvent(doSendAnimatedText, 1000, getThingPosWithDebug(sid), "WIN", COLOR_ELECTRIC) setPlayerStorageValue(sid, 52480, -1) setPlayerStorageValue(sid, 52481, -1) setPlayerStorageValue(sid, 52482, -1) setPlayerStorageValue(sid, 52483, -1) --alterado v1.6.1 setPlayerStorageValue(sid, 6598754, -1) doCreatureSetSkullType(sid, 0) else sendLose = false end end if sendLose then addEvent(doSendAnimatedText, 1000, getThingPosWithDebug(cid), "LOSE", COLOR_BURN) end setPlayerStorageValue(cid, 52480, -1) setPlayerStorageValue(cid, 52481, -1) setPlayerStorageValue(cid, 52482, -1) setPlayerStorageValue(cid, 52483, -1) setPlayerStorageValue(cid, 6598754, -1) doCreatureSetSkullType(cid, 0) end --////////////////////////////////////////////////////////////////////////////////////////-- if #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then local cmed2 = getCreatureSummons(cid)[1] local poscmed = getThingPos(cmed2) local cmeddir = getCreatureLookDir(cmed2) local namecmed = getCreatureName(cmed2) local hp, maxHp = getCreatureHealth(getCreatureSummons(cid)[1]), getCreatureMaxHealth(getCreatureSummons(cid)[1]) local gender = getPokemonGender(cmed2) doRemoveCreature(getCreatureSummons(cid)[1]) local back = doCreateMonster(namecmed, poscmed) addEvent(doCreatureSetSkullType, 150, back, gender) doCreatureSetLookDir(back, cmeddir) addEvent(doCreatureAddHealth, 100, back, hp-maxHp) --alterado v1.5 -- pokemon controlador local ball2 = getPlayerSlotItem(cid, 8) local mynewpos = getThingPos(getCreatureSummons(cid)[1]) doRemoveCreature(getCreatureSummons(cid)[1]) local pk2 = doSummonCreature(getItemAttribute(ball2.uid, "poke"), mynewpos) doConvinceCreature(cid, pk2) addEvent(doAdjustWithDelay, 100, cid, pk2, true, true, false) setPlayerStorageValue(cid, 888, -1) --alterado v1.7 cleanCMcds(ball2.uid) doCreatureSetLookDir(getCreatureSummons(cid)[1], 2) registerCreatureEvent(pk2, "SummonDeath") --alterado v1.6 end ---------------------------------------------------------------------- local summon = getCreatureSummons(cid)[1] if #getCreatureSummons(cid) >= 1 and thisitem.uid > 1 then if getPlayerStorageValue(cid, 212124) <= 0 then doItemSetAttribute(thisitem.uid, "hp", (getCreatureHealth(summon) / getCreatureMaxHealth(summon))) end --alterado v1.5 setPlayerStorageValue(cid, 212124, 0) doTransformItem(thisitem.uid, pokeballs[btype].on) doSendMagicEffect(getThingPos(summon), pokeballs[btype].effect) doRemoveCreature(summon) end if getCreatureOutfit(cid).lookType == 814 then doPlayerStopWatching(cid) end if tonumber(getPlayerStorageValue(cid, 17000)) and getPlayerStorageValue(cid, 17000) >= 1 then --alterado v1.6 markFlyingPos(cid, getThingPos(cid)) end if getPlayerStorageValue(cid, 22545) == 1 then --alterado v1.4 setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1) if getGlobalStorageValue(22550) <= 0 then endGoldenArena() --alterado v1.7 end end return TRUE end local deathtexts = {"Oh no! POKENAME, come back!", "Come back, POKENAME!", "That's enough, POKENAME!", "You did well, POKENAME!", "You need to rest, POKENAME!", "Nice job, POKENAME!", "POKENAME, you are too hurt!"} function onDeath(cid, deathList) local owner = getCreatureMaster(cid) if getPlayerStorageValue(cid, 637500) >= 1 then doSendMagicEffect(getThingPos(cid), 211) doRemoveCreature(cid) return true end if getPlayerStorageValue(cid, 212123) >= 1 then return true end --////////////////////////////////////////////////////////////////////////////////////////-- checkDuel(owner) --alterado v1.6 duel system --////////////////////////////////////////////////////////////////////////////////////////-- local thisball = getPlayerSlotItem(owner, 8) local ballName = getItemAttribute(thisball.uid, "poke") btype = getPokeballType(thisball.itemid) if #getCreatureSummons(owner) > 1 then BackTeam(owner, getCreatureSummons(owner)) end doSendMagicEffect(getThingPos(cid), pokeballs[btype].effect) doTransformItem(thisball.uid, pokeballs[btype].off) doPlayerSendTextMessage(owner, 22, "Your pokemon fainted.") local say = deathtexts[math.random(#deathtexts)] say = string.gsub(say, "POKENAME", getCreatureName(cid)) if getPlayerStorageValue(cid, 33) <= 0 then doCreatureSay(owner, say, TALKTYPE_SAY) end doItemSetAttribute(thisball.uid, "hp", 0) if ehMonstro(deathList[1]) then doItemSetAttribute(thisball.uid, "happy", getPlayerStorageValue(cid, 1008) - happyLostOnDeath) end doItemSetAttribute(thisball.uid, "hunger", getPlayerStorageValue(cid, 1009)) if useOTClient then doPlayerSendCancel(owner, '12//,hide') --alterado v1.7 end doRemoveCreature(cid) return false end E tambem queria que a nurce so reala =se se todos pokemons stiver dentro da bal abaixo a minha script local pokeballs = { [1] = {effect = 188, on = 11826, use = 11827, off = 11828, all = {11826, 11827, 11828}}, [2] = {effect = 191, on = 11829, use = 11830, off = 11831, all = {11829, 11830, 11831}}, [3] = {effect = 190, on = 11835, use = 11836, off = 11837, all = {11835, 11836, 11837}}, [4] = {effect = 189, on = 11832, use = 11833, off = 11834, all = {11832, 11833, 11834}}, [5] = {effect = 188, on = 11737, use = 11738, off = 11739, all = {11737, 11738, 11739}}, [6] = {effect = 189, on = 11740, use = 11741, off = 11742, all = {11740, 11741, 11742}}, [7] = {effect = 190, on = 11743, use = 11744, off = 11745, all = {11743, 11744, 11745}}, [8] = {effect = 191, on = 11746, use = 11747, off = 11748, all = {11746, 11747, 11748}}, } --alterado v1.7 \/\/ local posis = { --[storage da city] = {pos da nurse na city}, [897530] = {x = 1053, y = 1046, z = 7}, --saffron [897531] = {x = 1060, y = 900, z = 7}, --cerulean [897532] = {x = 1204, y = 1042, z = 7}, --lavender [897533] = {x = 1213, y = 1321, z = 7}, --fuchsia [897534] = {x = 862, y = 1094, z = 6}, --celadon [897535] = {x = 705, y = 1086, z = 7}, --viridian [897536] = {x = 1075, y = 1233, z = 7}, --vermilion [897537] = {x = 723, y = 847, z = 7}, --pewter [897538] = {x = 850, y = 1396, z = 7}, --cinnabar [897539] = {x = 1429, y = 1597, z = 6}, --snow [897540] = {x = 542, y = 675, z = 7}, --golden } function onThingMove(creature, thing, oldpos, oldstackpos) end function onCreatureAppear(creature) end function onCreatureDisappear(cid, pos) if focus == cid then selfSay('Good bye sir!') focus = 0 talk_start = 0 end end function onCreatureTurn(creature) end function msgcontains(txt, str) return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)')) end function onCreatureSay(cid, type, msg) local msg = string.lower(msg) local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid for a, b in pairs(gobackmsgs) do local gm = string.gsub(b.go, "doka!", "") local bm = string.gsub(b.back, "doka!", "") if string.find(string.lower(msg), string.lower(gm)) or string.find(string.lower(msg), string.lower(bm)) then return true end end if((msgcontains(msg, 'hi') or msgcontains(msg, 'heal') or msgcontains(msg, 'help')) and (getDistanceToCreature(cid) <= 3)) then if exhaustion.get(cid, 9211) then selfSay('Please wait a few moment before asking me to heal your pokemons again!') return true end if not getTileInfo(getThingPos(cid)).protection and nurseHealsOnlyInPZ then selfSay("Please, get inside the pokémon center to heal your pokemons!") return true end if getPlayerStorageValue(cid, 52480) >= 1 then selfSay("You can't do that while in a Duel!") --alterado v1.6.1 return true end for e, f in pairs(posis) do local pos = getThingPos(getNpcCid()) if pos.x == f.x and pos.y == f.y and pos.z == f.z then if getPlayerStorageValue(cid, e) <= -1 then --alterado v1.7 setPlayerStorageValue(cid, e, 1) end end end exhaustion.set(cid, 9211, 5) doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid)) doCureStatus(cid, "all", true) doSendMagicEffect(getThingPos(cid), 132) local mypb = getPlayerSlotItem(cid, 8) if #getCreatureSummons(cid) >= 1 then if not nurseHealsPokemonOut then selfSay("Please, return your pokemon to his ball!") return true end local s = getCreatureSummons(cid)[1] doCreatureAddHealth(s, getCreatureMaxHealth(s)) doSendMagicEffect(getThingPos(s), 13) doCureStatus(s, "all", false) if getPlayerStorageValue(s, 1008) < baseNurseryHappiness then setPlayerStorageValue(s, 1008, baseNurseryHappiness) end if getPlayerStorageValue(s, 1009) > baseNurseryHunger then setPlayerStorageValue(s, 1009, baseNurseryHunger) end else if mypb.itemid ~= 0 and isPokeball(mypb.itemid) then --alterado v1.3 doItemSetAttribute(mypb.uid, "hp", 1) if getItemAttribute(mypb.uid, "hunger") and getItemAttribute(mypb.uid, "hunger") > baseNurseryHunger then doItemSetAttribute(mypb.uid, "hunger", baseNurseryHunger) end for c = 1, 15 do local str = "move"..c setCD(mypb.uid, str, 0) end if getItemAttribute(mypb.uid, "happy") and getItemAttribute(mypb.uid, "happy") < baseNurseryHappiness then doItemSetAttribute(mypb.uid, "happy", baseNurseryHappiness) end if getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and getPlayerStorageValue(cid, 63215) <= 0 then for a, b in pairs (pokeballs) do if isInArray(b.all, mypb.itemid) then doTransformItem(mypb.uid, b.on) end end end end end local bp = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK) for balls = 1, 8 do --editar a qntdade de balls da tabela ali decima... for times = 1, 3 do local items = getItemsInContainerById(bp.uid, pokeballs[balls].all[times]) if #items >= 1 then for _, uid in pairs(items) do doItemSetAttribute(uid, "hp", 1) doTransformItem(uid, pokeballs[balls].on) for c = 1, 15 do local str = "move"..c setCD(uid, str, 0) --alterado v1.3 end if getItemAttribute(uid, "hunger") and getItemAttribute(uid, "hunger") > baseNurseryHunger then doItemSetAttribute(uid, "hunger", baseNurseryHunger) end if getItemAttribute(uid, "happy") and getItemAttribute(uid, "happy") < baseNurseryHappiness then doItemSetAttribute(uid, "happy", baseNurseryHappiness) end end end end end doPlayerSendTextMessage(cid, 26, "sounds/chansey.wav") selfSay('There you go! You and your pokemons are healthy again.') if useKpdoDlls then --alterado v1.7 doUpdateMoves(cid) end end end PORFAVRO ARRUME E ME MANDA PRECISO MUITO

Funciono perfeito obrigado REP ++

Quando tento loga uma acc criada da esse erro . [22/02/2013 15:02:39] data/creaturescripts/scripts/login.lua:192: in function <data/creaturescripts/scripts/login.lua:6> [22/02/2013 15:02:39] Arcold has logged out. LOGIN.LUA AI \/ local config = { loginMessage = getConfigValue('loginMessage'), useFragHandler = getBooleanFromString(getConfigValue('useFragHandler')) } --alterado v1.6 tabelas soh em configuration.lua; function onLogin(cid) doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 100) doCreatureSetDropLoot(cid, false) local accountManager = getPlayerAccountManager(cid) if(accountManager == MANAGER_NONE) then local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage if(lastLogin > 0) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str) str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "." else str = str end doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str) elseif(accountManager == MANAGER_NAMELOCK) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?") elseif(accountManager == MANAGER_ACCOUNT) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.") end if getCreatureName(cid) == "Account Manager" then local outfit = {} if accountManagerRandomPokemonOutfit then outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])} else outfit = accountManagerOutfit end doSetCreatureOutfit(cid, outfit, -1) return true end if(not isPlayerGhost(cid)) then doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) end local outfit = {} if getPlayerVocation(cid) == 0 then doPlayerSetMaxCapacity(cid, 0) doPlayerSetVocation(cid, 1) setCreatureMaxMana(cid, 6) doPlayerAddSoul(cid, -getPlayerSoul(cid)) setPlayerStorageValue(cid, 19898, 0) if getCreatureOutfit(cid).lookType == 128 then outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)} elseif getCreatureOutfit(cid).lookType == 136 then outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)} end doCreatureChangeOutfit(cid, outfit) end --alterado v1.6.1 removido a linha! registerCreatureEvent(cid, "ShowPokedex") --alterado v1.6 registerCreatureEvent(cid, "ClosePokedex") --alterado v1.6 registerCreatureEvent(cid, "WatchTv") registerCreatureEvent(cid, "StopWatchingTv") registerCreatureEvent(cid, "WalkTv") registerCreatureEvent(cid, "RecordTv") registerCreatureEvent(cid, "PlayerLogout") registerCreatureEvent(cid, "WildAttack") registerCreatureEvent(cid, "Idle") registerCreatureEvent(cid, "PokemonIdle") registerCreatureEvent(cid, "EffectOnAdvance") registerCreatureEvent(cid, "GeneralConfiguration") registerCreatureEvent(cid, "ReportBug") registerCreatureEvent(cid, "LookSystem") registerCreatureEvent(cid, "T1") registerCreatureEvent(cid, "T2") registerCreatureEvent(cid, "task_count") if getPlayerStorageValue(cid, 99284) == 1 then setPlayerStorageValue(cid, 99284, -1) end if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then setPlayerStorageValue(cid, 6598754, -1) setPlayerStorageValue(cid, 6598755, -1) end doChangeSpeed(cid, -(getCreatureSpeed(cid))) --///////////////////////////////////////////////////////////////////////////-- local storages = {17000, 63215, 17001, 13008, 5700} for s = 1, #storages do if not tonumber(getPlayerStorageValue(cid, storages)) then if s == 3 then setPlayerStorageValue(cid, storages, 1) elseif s == 4 then setPlayerStorageValue(cid, storages, -1) else if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then setPlayerStorageValue(cid, storages, 1) --alterado v1.6 else setPlayerStorageValue(cid, storages, -1) end end doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright") end end --/////////////////////////////////////////////////////////////////////////-- if getPlayerStorageValue(cid, 17000) >= 1 then -- fly local item = getPlayerSlotItem(cid, 8) local poke = getItemAttribute(item.uid, "poke") doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) doRemoveCondition(cid, CONDITION_OUTFIT) doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1) local apos = getFlyingMarkedPos(cid) apos.stackpos = 0 if getTileThingByPos(apos).itemid <= 2 then doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE) doCreateItem(460, 1, getFlyingMarkedPos(cid)) end doTeleportThing(cid, apos, false) local posicao = getTownTemplePosition(getPlayerTown(cid)) markFlyingPos(cid, posicao) elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf local item = getPlayerSlotItem(cid, 8) local poke = getItemAttribute(item.uid, "poke") doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) --alterado v1.6 doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride local item = getPlayerSlotItem(cid, 8) local poke = getItemAttribute(item.uid, "poke") if rides[poke] then doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) doRemoveCondition(cid, CONDITION_OUTFIT) doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1) else setPlayerStorageValue(cid, 17001, -1) doRegainSpeed(cid) --alterado v1.6 end local posicao2 = getTownTemplePosition(getPlayerTown(cid)) markFlyingPos(cid, posicao2) elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then setPlayerStorageValue(cid, 13008, 0) doRegainSpeed(cid) --alterado v1.6 doRemoveCondition(cid, CONDITION_OUTFIT) return true end if getPlayerSex(cid) == 1 then doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1) else doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1) end doChangeSpeed(cid, 800) elseif getPlayerStorageValue(cid, 5700) > 0 then --bike doChangeSpeed(cid, getPlayerStorageValue(cid, 5700)) if getPlayerSex(cid) == 1 then doSetCreatureOutfit(cid, {lookType = 1394}, -1) else doSetCreatureOutfit(cid, {lookType = 1393}, -1) end else doRegainSpeed(cid) --alterado v1.6 end if getPlayerStorageValue(cid, 22545) >= 1 then setPlayerStorageValue(cid, 22545, -1) --alterado v1.4 doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false) end if useKpdoDlls then doUpdateMoves(cid) doUpdatePokemonsBar(cid) end return true end

20cm ganho meu Rep++,Valeu mais consegui resolve tudo ta tudo funcionando certo agora e Sem level system 100% agr vo arruma umas hunter aqui . Muito obrigado

Continua msmo erro olhe [15/02/2013 20:23:14] [Error - CreatureScript Interface] [15/02/2013 20:23:14] data/creaturescripts/scripts/pokeexp.lua:onDeath [15/02/2013 20:23:14] Description: [15/02/2013 20:23:14] data/creaturescripts/scripts/pokeexp.lua:98: attempt to call global 'getLevel' (a nil value) [15/02/2013 20:23:14] stack traceback: [15/02/2013 20:23:14] data/creaturescripts/scripts/pokeexp.lua:98: in function <data/creaturescripts/scripts/pokeexp.lua:25> Acho que esta dando esse erro por causa do CD BAR quando tirei level system deve ter desconfigurado o : [15/02/2013 20:20:55] [Error - TalkAction Interface] [15/02/2013 20:20:55] In a timer event called from: [15/02/2013 20:20:55] data/talkactions/scripts/cdbar.lua:onSay [15/02/2013 20:20:55] Description: [15/02/2013 20:20:55] data/lib/some functions.lua:883: attempt to perform arithmetic on global 'pokemonMaxLevelAbovePlayer' (a nil value) [15/02/2013 20:20:55] stack traceback: [15/02/2013 20:20:55] data/lib/some functions.lua:883: in function 'doGoPokemon' [15/02/2013 20:20:55] data/lib/cooldown bar.lua:178: in function 'doChangeBalls' [15/02/2013 20:20:55] data/talkactions/scripts/cdbar.lua:9: in function <data/talkactions/scripts/cdbar.lua:1> E o cooldow bar tambem olha : [15/02/2013 20:20:56] [Error - Action Interface] [15/02/2013 20:20:57] In a timer event called from: [15/02/2013 20:20:57] data/actions/scripts/goback.lua:onUse [15/02/2013 20:20:57] Description: [15/02/2013 20:20:57] data/lib/cooldown bar.lua:151: attempt to call global 'getLevel' (a nil value) [15/02/2013 20:20:57] stack traceback: [15/02/2013 20:20:57] data/lib/cooldown bar.lua:151: in function <data/lib/cooldown bar.lua:122>

O POKEXP.LUA AQUI local balls = {11826, 11828, 11829, 11831, 11832, 11834, 11835, 11837, 11737, 11739, 11740, 11742, 11743, 11745, 11746, 11748} local function playerAddExp(cid, exp) doPlayerAddExp(cid, exp) doSendAnimatedText(getThingPos(cid), exp, 215) end local function giveExpToPlayer(pk, expTotal, givenexp, expstring) --alterado v2.7 playerAddExp(pk, expTotal) local firstball = getPlayerSlotItem(pk, 8) if not isInParty(pk) and 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, expTotal) --alterado v2.7 elseif isInParty(pk) and firstball.uid ~= 0 then givePokemonExp(pk, firstball, expTotal*3) --alterado v2.7 end for b = 1, #balls do local pokes = getItemsInContainerById(getPlayerSlotItem(pk, 3).uid, balls) if #pokes >= 1 then for _, uid in pairs (pokes) do if not isInParty(pk) and 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) --alterado v2.7 elseif isInParty(pk) and getItemAttribute(uid, expstring) and getItemAttribute(uid, expstring) > 0 then givePokemonExpInBp(pk, uid, expTotal*3, balls) end end end end end function onDeath(cid, corpse, deathList) if isSummon(cid) or not deathList or getCreatureName(cid) == "Evolution" then return true end --alterado v2.8 -------------Edited Golden Arena------------------------- --alterado v2.7 \/\/ if getPlayerStorageValue(cid, 22546) == 1 then setGlobalStorageValue(22548, getGlobalStorageValue(22548)-1) if corpse.itemid ~= 0 then doItemSetAttribute(corpse.uid, "golden", 1) end --alterado v2.8 end if getPlayerStorageValue(cid, 22546) == 1 and getGlobalStorageValue(22548) <= 0 then local wave = getGlobalStorageValue(22547) for _, sid in ipairs(getPlayersOnline()) do if isPlayer(sid) and getPlayerStorageValue(sid, 22545) == 1 then if getGlobalStorageValue(22547) < #wavesGolden+1 then doPlayerSendTextMessage(sid, 21, "Wave "..wave.." will begin in "..timeToWaves.."seconds!") doPlayerSendTextMessage(sid, 28, "Wave "..wave.." will begin in "..timeToWaves.."seconds!") addEvent(creaturesInGolden, 100, GoldenUpper, GoldenLower, false, true, true) addEvent(doWave, timeToWaves*1000) elseif getGlobalStorageValue(22547) == #wavesGolden+1 then doPlayerSendTextMessage(sid, 20, "You have win the golden arena! Take your reward!") doPlayerAddItem(sid, 2152, getPlayerStorageValue(sid, 22551)*2) --premio setPlayerStorageValue(sid, 22545, -1) doTeleportThing(sid, getClosestFreeTile(sid, posBackGolden), false) setPlayerRecordWaves(sid) end end end if getGlobalStorageValue(22547) == #wavesGolden+1 then endGoldenArena() end end --------------------------------------------------- /\/\ local givenexp = getWildPokemonExp(cid) local expstring = ""..cid.."expEx" if givenexp > 0 then for a = 1, #deathList do local pk = deathList[a] if isCreature(pk) then local list = getSpectators(getThingPosWithDebug(pk), 30, 30, false) local expTotal = math.floor(playerExperienceRate * givenexp * getDamageMapPercent(pk, cid)) local party = getPartyMembers(pk) if isInParty(pk) and getPlayerStorageValue(pk, 4875498) <= -1 then expTotal = math.floor(expTotal/#party) --alterado v2.6.1 for i = 1, #party do if isInArray(list, party) and getDamageMapPercent(party, cid) > 0 then --alterado v2.8 giveExpToPlayer(party, expTotal, givenexp, expstring)--alterado v2.7 end end else giveExpToPlayer(pk, expTotal, givenexp, expstring) --alterado v2.7 end end end end 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 if corpse.itemid ~= 0 then --alterado v2.8 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)) end return true end E O move1,lua local msgs = {"use ", ""} function doAlertReady(cid, id, movename, n, cd) if not isCreature(cid) then return true end local myball = getPlayerSlotItem(cid, 8) if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(myball.uid).." - "..movename.." (m"..n..") is ready!") 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 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(p[a]).." - "..movename.." (m"..n..") is ready!") 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, "You need a pokemon to use 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, "Your pokemon doesn't recognize this move.") return true end if getPlayerLevel(cid) < move.level then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need be atleast level "..move.level.." to use this 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, "You have to wait "..getCD(getPlayerSlotItem(cid, 8).uid, cdzin).." seconds to use "..move.name.." again.") return true end if getTileInfo(getThingPos(mypoke)).protection then doPlayerSendCancel(cid, "Your pokemon cannot use moves while in protection zone.") return true end if getPlayerStorageValue(mypoke, 3894) >= 1 then return doPlayerSendCancel(cid, "You can't attack because you is with fear") --alterado v1.3 end --alterado v1.6 if (move.name == "Team Slice" or move.name == "Team Claw") and #getCreatureSummons(cid) < 2 then doPlayerSendCancel(cid, "Your pokemon need be in a team for use this move!") return true end --alterado v1.6 if isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) and math.random(1, 100) <= 10 then local target = getCreatureTarget(cid) 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 if move.target == 1 then if not isCreature(getCreatureTarget(cid)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have any targets.") 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, "Your have already defeated your target.") 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, "Get closer to the target to use this 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.."!", TALKTYPE_SAY) 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 esse server e o do gabrieltxu eu tirei o level system dos pokemons e bugo isso e Copser dos pokemons que quando morre nao aparece os corpos como me ajuda nisso tambem ?

Alguem poderia me ajuda como resolvo esses erros ? [15/02/2013 19:38:18] [Error - CreatureScript Interface] [15/02/2013 19:38:18] data/creaturescripts/scripts/pokeexp.lua:onDeath [15/02/2013 19:38:18] Description: [15/02/2013 19:38:18] data/creaturescripts/scripts/pokeexp.lua:18: attempt to call global 'givePokemonExp' (a nil value) [15/02/2013 19:38:18] stack traceback: [15/02/2013 19:38:18] data/creaturescripts/scripts/pokeexp.lua:18: in function 'giveExpToPlayer' [15/02/2013 19:38:18] data/creaturescripts/scripts/pokeexp.lua:94: in function <data/creaturescripts/scripts/pokeexp.lua:42> ESSE >> [15/02/2013 19:38:17] [Error - TalkAction Interface] [15/02/2013 19:38:17] data/talkactions/scripts/move1.lua:onSay [15/02/2013 19:38:17] Description: [15/02/2013 19:38:17] data/lib/cooldown bar.lua:151: attempt to call global 'getLevel' (a nil value) [15/02/2013 19:38:17] stack traceback: [15/02/2013 19:38:17] data/lib/cooldown bar.lua:151: in function 'doUpdateCooldowns' [15/02/2013 19:38:17] data/talkactions/scripts/move1.lua:176: in function <data/talkactions/scripts/move1.lua:20> E ESSE >> [15/02/2013 19:38:17] [Error - CreatureScript Interface] [15/02/2013 19:38:17] data/creaturescripts/scripts/pokeexp.lua:onDeath [15/02/2013 19:38:17] Description: [15/02/2013 19:38:17] data/creaturescripts/scripts/pokeexp.lua:18: attempt to call global 'givePokemonExp' (a nil value) [15/02/2013 19:38:17] stack traceback: [15/02/2013 19:38:17] data/creaturescripts/scripts/pokeexp.lua:18: in function 'giveExpToPlayer' [15/02/2013 19:38:17] data/creaturescripts/scripts/pokeexp.lua:94: in function <data/creaturescripts/scripts/pokeexp.lua:42> Alguem poderia me ajudar ?