Developer Berg

Aqui Não Tem CbBar :/

Queria Saber Como Balancear Um Pokemon Selvagem E O Pokemon Que A Pessoa Da Catch Exemplo O Tropius Selvagem Tem Um Hp Bem Forte Tipo De 100000 De Hp Ai Quando A Pessoa Da Catch Nele Ele Fica Com 20000 De Hp Alguém Me Ajuda Pfv Do Rep+ Quem Me Ajudar

ss eu já desativei mas ainda continua assim

ss mas quando eu diminuo também diminui ele selvagem :/

Man Aqui Na Pasta Mods Não Tem Nada n '--'

Ss Mas Eu To Usando Uma Acc Lvl 300 E Quando A Pessoa Da Catch Nele Ele Fica Impossível De Morrer Olha A Tag Dele ["Salamence"] = {offense = 15, defense = 20, specialattack = 15, vitality = 25, agility = 0.15, exp = 713, level = 270, wildLvlMin = 270, wildLvlMax = 270, type = "dragon", type2 = "flying"},

Ss Man Mas Quando Eu Mudo A Vitality Ele Fica Forte Selvagem Mas Quando Cata Ele Ele Fica Do Mesmo Jeito Impossível De Matar Quero Que Ele Selvagem Fique Forte Mas Quando A Pessoa Der Catch Nele Ele Ficar Fraco Mesmo Assim Vlws Pela Ajuda

Queria Saber Como Balancear Um Pokemon Selvagem E O Pokemon Que A Pessoa Da Catch Exemplo O Tropius Selvagem Tem Um Hp Bem Forte Tipo De 100000 De Hp Ai Quando A Pessoa Da Catch Nele Ele Fica Com 20000 De Hp Alguém Me Ajuda Pfv Do Rep+ Quem Me Ajudar

man isso ai quando aumenta a velocidade do player pelo configuration.lua um player de lvl 10 fica correndo do mesmo jeito que um player lvl 300 quero que a velocidade seja por lvl tipo se a pessoa for lvl 10 ele ficara correndo 200 de velocidade e se o player for lvl 300 ele ficara correndo 600 de velocidade mas mesmo assim vlws

Aqui N Pego Não Eu Testei E Não Fez Nada :/ Nem erro n deu :/

Queria Que Alguém Me Ensina-se A Aumentar A Speed Dos Playes Por Nível Tipo Um Player De Lvl 100 Corre-se Tanto E Um Player De Lvl 300 Corre-se Outro Tanto E Corre-se Mas Rápido Do Rep+ Quem Me Ajudar

Ata Agr Entendi KKKK Desculpa Vcs olha Aqui 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 v2.5 local mypoke = getCreatureSummons(cid)[1] if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end if getCreatureName(mypoke) == "Evolution" then return true 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 v2.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 false and getLevel(mypoke) < move.level then if getPlayerLevel(cid) < move.level then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You doesn't have enough level to use this move.") return 0 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 0 end if getTileInfo(getThingPos(mypoke)).protection then doPlayerSendCancel(cid, "Your pokemon cannot use moves while in protection zone.") return 0 end if getPlayerStorageValue(mypoke, 3894) >= 1 then return doPlayerSendCancel(cid, "You can't attack because you is with fear") --alterado v2.3 end if (move.name == "Team Slice" or move.name == "Team Claw") and #getCreatureSummons(cid) < 2 then --alterado v2.5 doPlayerSendCancel(cid, "Your pokemon need be in a team for use this move!") return 0 end --alterado v2.7 \/\/\/ if isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) then local target = getCreatureTarget(cid) if math.random(1, 100) <= passivesChances["Evasion"][getCreatureName(target)] then if isCreature(getMasterTarget(target)) then 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 end 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 v2.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 v2.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 v2.6 end end docastspell(mypoke, move.name) doCreatureAddCondition(cid, playerexhaust) if useKpdoDlls then doUpdateCooldowns(cid) end return 0 end

Man Eu Já Postei O Erro '--' Olhe Ai

Alguém Sabe Tirar Esse Erro ? [07/09/2014 23:23:41] data/talkactions/scripts/move1.lua:onSay [07/09/2014 23:23:41] Description: [07/09/2014 23:23:41] (luaGetThingFromPos) Tile not found [07/09/2014 23:23:41] [Error - TalkAction Interface] [07/09/2014 23:23:41] data/talkactions/scripts/move1.lua:onSay [07/09/2014 23:23:41] Description: [07/09/2014 23:23:41] (luaGetThingFromPos) Tile not found [07/09/2014 23:23:41] [Error - TalkAction Interface] [07/09/2014 23:23:41] data/talkactions/scripts/move1.lua:onSay [07/09/2014 23:23:41] Description: [07/09/2014 23:23:41] (luaGetThingFromPos) Tile not found [07/09/2014 23:23:41] [Error - TalkAction Interface] [07/09/2014 23:23:41] data/talkactions/scripts/move1.lua:onSay [07/09/2014 23:23:41] Description: [07/09/2014 23:23:41] (luaGetThingFromPos) Tile not found [07/09/2014 23:23:41] [Error - TalkAction Interface] [07/09/2014 23:23:41] data/talkactions/scripts/move1.lua:onSay [07/09/2014 23:23:41] Description: [07/09/2014 23:23:41] (luaGetThingFromPos) Tile not found [07/09/2014 23:23:41] [Error - TalkAction Interface] [07/09/2014 23:23:41] data/talkactions/scripts/move1.lua:onSay [07/09/2014 23:23:41] Description: [07/09/2014 23:23:41] (luaGetThingFromPos) Tile not found

Alguém ai Sabe Remover Barra De Cooldown Do Otclient ? Olha Aqui O Print

Alguém Ai Sabe Como Remover Esse Erro Na DATABASE ? [06/09/2014 22:36:28] [Error - Spell Interface] [06/09/2014 22:36:28] data/spells/scripts/ps/Leech Seed.lua:onCastSpell [06/09/2014 22:36:28] Description: [06/09/2014 22:36:28] (luaGetCreatureStorage) Creature not found [06/09/2014 22:36:28] [Error - Spell Interface] [06/09/2014 22:36:28] data/spells/scripts/ps/Leech Seed.lua:onCastSpell [06/09/2014 22:36:28] Description: [06/09/2014 22:36:28] (luaGetCreatureStorage) Creature not found

Alguém ai Sabe Remover Barra De Cooldown Do Otclient ? Olha Aqui O Print

Ss Eu Tenho Essa Script Aqui Mas Não Sei Mecher Nela '--'

Alguém Ai Faz Uma Script De Sistema De Trem ? Quem Nem Mostra Esse Vídeo Aqui Do Rep+ Quem Me Ajudar

Ainda Ta Dando Erro '--' [04/09/2014 23:08:30] [Error - CreatureScript Interface] [04/09/2014 23:08:30] data/creaturescripts/scripts/exp.lua:onStatsChange [04/09/2014 23:08:30] Description: [04/09/2014 23:08:30] data/lib/pokemon moves.lua:180: attempt to index local 'table' (a nil value) [04/09/2014 23:08:30] stack traceback: [04/09/2014 23:08:30] data/lib/pokemon moves.lua:180: in function 'docastspell' [04/09/2014 23:08:30] data/creaturescripts/scripts/exp.lua:661: in function <data/creaturescripts/scripts/exp.lua:122>

MaxxSilva Deu Erro Aqui Na DataBase olha Ai [04/09/2014 22:23:59] [Error - CreatureScript Interface] [04/09/2014 22:23:59] data/creaturescripts/scripts/exp.lua:onStatsChange [04/09/2014 22:23:59] Description: [04/09/2014 22:23:59] data/lib/pokemon moves.lua:180: attempt to index local 'table' (a nil value) [04/09/2014 22:23:59] stack traceback: [04/09/2014 22:23:59] data/lib/pokemon moves.lua:180: in function 'docastspell' [04/09/2014 22:23:59] data/creaturescripts/scripts/exp.lua:661: in function <data/creaturescripts/scripts/exp.lua:122>

MaxxSilva Ss É Pda Vou Testar Aqui Pra Ver Se Pega MaxxSilva Eu Testei Aqui Mas Não Pego O Scizor Simplesmente Não Fez Nada

Alguém Ai Pode Me Ensinar A Colocar Passive Em Um Pokemon ? Tipo O Passive Do Scizor Que Ele Fica Girando Como Uma Navalha E Que Afeta Tudo Que Ta Ao Redor Dele Do Rep+ Quem Me Ajudar Agradeço Muito

Vc Pode Deixar Lvl 1 N Tem Problema Olha Ae Catch System ------------------------------------------------------------------------------------------------------------------ failmsgs = { "Sorry, you didn't catch that pokemon.", "Sorry, your pokeball broke.", "Sorry, the pokemon escaped.", } epicmsgs = { "Az Kaldi! Yakalayacam Seni!", "Tuhh bee, topum bosa gitti!", "Cok yakinda yakalanacaksin!", } ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ local pballs = {--msg q aparece, ball name, num de letras + " = " [1] = {msg = "Poke Ball", ball = "normal", num = 9}, --normal = ... 9 letras [2] = {msg = "Great Ball", ball = "great", num = 8}, --great = ... 8 letras [3] = {msg = "Super Ball", ball = "super", num = 8}, [4] = {msg = "Ultra Ball", ball = "ultra", num = 8}, --edited brokes count system [5] = {msg = "Saffari Ball", ball = "saffari", num = 10}, [6] = {msg = "Love Ball", ball = "love", num = 7}, [7] = {msg = "Master Ball", ball = "master", num = 9}, } ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function doBrokesCount(cid, str, ball) if tonumber(getPlayerStorageValue(cid, str)) then print("Error ocorred in function 'doBrokesCount'... storage "..str.." is a number value") print("Storage will be changed to the correct table...") doPlayerSendTextMessage(cid, 27, "A error ocorred... Warning sent to Game Masters!") setPlayerStorageValue(cid, str, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master =0") return true end local s = string.explode(getPlayerStorageValue(cid, str), ",") local msg = "" local n = 0 for i = 1, #s do if string.find(tostring(s), ball) then local d, e = s:find(""..pballs.ball.." = (.-)") local st2 = string.sub(s, d + pballs.num, e +5) local num = tonumber(st2)+1 if num == 0 and ball == pballs.ball then num = 1 end if i == #s then msg = msg..""..ball.." = "..num n = n +1 else msg = msg..""..ball.." = "..num..", " n = n +1 end else if i == #s then msg = msg..s else msg = msg..s..", " end end end setPlayerStorageValue(cid, str, msg) end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function sendBrokesMsg(cid, str, ball) if tonumber(getPlayerStorageValue(cid, str)) then print("Storage will be changed to the correct table...") doPlayerSendTextMessage(cid, 27, "A error ocorred... Warning sent to Game Masters!") setPlayerStorageValue(cid, str, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0") return true end local t = string.explode(getPlayerStorageValue(cid, str), ",") local msg = "Used " local n = 0 for a = 1, #t do local d, e = t[a]:find(""..pballs[a].ball.." = (.-)") local st2 = string.sub(t[a], d + pballs[a].num, e +5) if tonumber(st2) == 0 and pballs[a].ball == ball then st2 = 1 end if tonumber(st2) ~= 0 then if n ~= 0 and a ~= #t then msg = msg..", " end if tonumber(st2) ~= 1 then msg = msg..st2.." "..pballs[a].msg.."'s" n = n +1 else msg = msg..st2.." "..pballs[a].msg n = n +1 end end end msg = msg.." on it." doPlayerSendTextMessage(cid, 27, msg) end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) local name = catchinfo.name local pos = catchinfo.topos local topos = {} topos.x = pos.x topos.y = pos.y topos.z = pos.z local newid = catchinfo.newid local catch = catchinfo.catch local fail = catchinfo.fail local rate = catchinfo.rate local basechance = catchinfo.chance local corpse = getTopCorpse(topos).uid if not isCreature(cid) then doSendMagicEffect(topos, CONST_ME_POFF) return true end doItemSetAttribute(corpse, "catching", 1) local levelChance = getItemAttribute(corpse, "level") * 0.3 local totalChance = math.ceil(basechance * (1.2 + levelChance)) local thisChance = math.random(0, totalChance) local myChance = math.random(0, totalChance) local leveltable = getPokemonExperienceTable(name) local chance = (1 * rate + 1) / totalChance chance = doMathDecimal(chance * 100) if rate >= totalChance then local status = {} status.clevel = tonumber(getItemAttribute(corpse, "level")) local clevel = status.clevel status.cexp = leveltable[clevel] local cexp = status.cexp status.cnext = leveltable[clevel+1] - cexp status.coffense = getItemAttribute(corpse, "offense") status.cdefense = getItemAttribute(corpse, "defense") status.cspeed = getItemAttribute(corpse, "speed") status.cvitality = getItemAttribute(corpse, "vitality") status.cspatk = getItemAttribute(corpse, "spattack") status.gender = getItemAttribute(corpse, "gender") status.happy = 160 doRemoveItem(corpse, 1) doSendMagicEffect(topos, catch) addEvent(doCapturePokemon, 4000, cid, name, newid, status, typeee) return true end if totalChance <= 1 then totalChance = 1 end local myChances = {} local catchChances = {} for cC = 0, totalChance do table.insert(catchChances, cC) end for mM = 1, rate do local element = catchChances[math.random(1, #catchChances)] table.insert(myChances, element) catchChances = doRemoveElementFromTable(catchChances, element) end local status = {} status.clevel = tonumber(getItemAttribute(corpse, "level")) local clevel = status.clevel status.cexp = leveltable[clevel] local cexp = status.cexp status.cnext = leveltable[clevel+1] - cexp status.coffense = getItemAttribute(corpse, "offense") status.cdefense = getItemAttribute(corpse, "defense") status.cspeed = getItemAttribute(corpse, "speed") status.cvitality = getItemAttribute(corpse, "vitality") status.cspatk = getItemAttribute(corpse, "spattack") status.gender = getItemAttribute(corpse, "gender") status.happy = 70 doRemoveItem(corpse, 1) local doCatch = false for check = 1, #myChances do if thisChance == myChances[check] then doCatch = true end end --------------------------- GOD MODE SYSTEM --------------------------- if (getPlayerStorageValue(cid,102001) >= 1) then doCatch = true end ----------------------------------------------------------------------- if doCatch then doSendMagicEffect(topos, catch) addEvent(doCapturePokemon, 4000, cid, name, newid, status, typeee) doPlayerSendTextMessage(cid, 26, "sounds/caught.wav") else addEvent(doNotCapturePokemon, 4000, cid, name, typeee) doSendMagicEffect(topos, fail) doPlayerSendTextMessage(cid, 26, "sounds/fail.wav") end end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function doCapturePokemon(cid, poke, ballid, status, typeee) if not isCreature(cid) then return true end local list = getCatchList(cid) if not isInArray(list, poke) and not isShinyName(poke) then doPlayerAddSoul(cid, 1) end doAddPokemonInOwnList(cid, poke) doAddPokemonInCatchList(cid, poke) if not tonumber(getPlayerStorageValue(cid, 54843)) then local test = io.open("data/sendtobrun123.txt", "a+") local read = "" if test then read = test:read("*all") test:close() end read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843).."" local reopen = io.open("data/sendtobrun123.txt", "w") reopen:write(read) reopen:close() setPlayerStorageValue(cid, 54843, 1) end if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then setPlayerStorageValue(cid, 54843, 1) else setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1) end local description = "It contains a "..poke.."." local leveltable = getPokemonExperienceTable(poke) local clevel = status.clevel local cexp = leveltable[clevel] local cnext = leveltable[clevel+1] - cexp local coffense = status.coffense local cdefense = status.cdefense local cspeed = status.cspeed local cvitality = status.cvitality local cspatk = status.cspatk local gender = status.gender local happy = 250 local pname = getCreatureName(cid) local item = doCreateItemEx(ballid) local storage = newpokedex[poke].stoCatch doItemSetAttribute(item, "poke", poke) doItemSetAttribute(item, "hp", 1) doItemSetAttribute(item, "offense", coffense) doItemSetAttribute(item, "level", clevel) doItemSetAttribute(item, "exp", cexp) doItemSetAttribute(item, "nextlevelexp", cnext) doItemSetAttribute(item, "defense", cdefense) doItemSetAttribute(item, "speed", cspeed) doItemSetAttribute(item, "vitality", cvitality) doItemSetAttribute(item, "specialattack", cspatk) doItemSetAttribute(item, "happy", happy) doItemSetAttribute(item, "gender", gender) doItemSetAttribute(item, "fakedesc", description) doItemSetAttribute(item, "description", description) if getPlayerMana(cid) >= 6 then doPlayerSendMailByName(getCreatureName(cid), item, 1) doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..", level "..clevel..")! \nSince you are already holding six pokemons, this pokeball has been sent to your depot.") setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0") elseif getContainerSize(getPlayerSlotItem(cid, 3).uid) >= 30 then doPlayerSendMailByName(getCreatureName(cid), item, 1) doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..", level "..clevel..")! \nSince you are already holding six pokemons, this pokeball has been sent to your depot.") setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0") else doAddContainerItemEx(getPlayerSlotItem(cid, 3).uid, item) doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..", level "..clevel..")!") setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0") end if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 178) if catchMakesPokemonHappier then setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + math.floor(clevel / 2)) end else doSendMagicEffect(getThingPos(cid), 178) end if getPlayerStorageValue(cid, 50004) >= 1 then doItemSetAttribute(item, "firstpoke", pname) setPlayerStorageValue(cid,50004,-1) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You got your first pokemon!!.") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Don\'t forget to use your pokedex on every undiscovered pokemon!") end end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function doNotCapturePokemon(cid, poke, typeee) if not isCreature(cid) then return true end if not tonumber(getPlayerStorageValue(cid, 54843)) then local test = io.open("data/sendtobrun123.txt", "a+") local read = "" if test then read = test:read("*all") test:close() end read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843).."" local reopen = io.open("data/sendtobrun123.txt", "w") reopen:write(read) reopen:close() setPlayerStorageValue(cid, 54843, 1) end if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then setPlayerStorageValue(cid, 54843, 1) else setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1) end doPlayerSendTextMessage(cid, 27, failmsgs[math.random(#failmsgs)]) doCreatureSay(cid, epicmsgs[math.random(#epicmsgs)], TALKTYPE_MONSTER) if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 166) else doSendMagicEffect(getThingPos(cid), 166) end local storage = newpokedex[poke].stoCatch doBrokesCount(cid, storage, typeee) end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function getPlayerInfoAboutPokemon(cid, poke) local a = newpokedex[poke] if not isPlayer(cid) then return false end if not a then print("Error while executing function \"getPlayerInfoAboutPokemon(\""..getCreatureName(cid)..", "..poke..")\", "..poke.." doesn't exist.") return false end local b = getPlayerStorageValue(cid, a.storage) if b == -1 then setPlayerStorageValue(cid, a.storage, poke..":") end local ret = {} if string.find(b, "catch,") then ret.catch = true else ret.catch = false end if string.find(b, "dex,") then ret.dex = true else ret.dex = false end if string.find(b, "use,") then ret.use = true else ret.use = false end return ret end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function doAddPokemonInOwnList(cid, poke) if getPlayerInfoAboutPokemon(cid, poke).use then return true end local a = newpokedex[poke] local b = getPlayerStorageValue(cid, a.storage) setPlayerStorageValue(cid, a.storage, b.." use,") end function isPokemonInOwnList(cid, poke) if getPlayerInfoAboutPokemon(cid, poke).use then return true end return false end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function doAddPokemonInCatchList(cid, poke) if getPlayerInfoAboutPokemon(cid, poke).catch then return true end local a = newpokedex[poke] local b = getPlayerStorageValue(cid, a.storage) setPlayerStorageValue(cid, a.storage, b.." catch,") end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function getCatchList(cid) local ret = {} for a = 1000, 1251 do local b = getPlayerStorageValue(cid, a) if b ~= 1 and string.find(b, "catch,") then table.insert(ret, oldpokedex[a-1000][1]) end end return ret end function getStatistics(pokemon, tries, success) local ret1 = 0 local ret2 = 0 local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30)).."" local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt" local arq = io.open(dir, "a+") local num = tonumber(arq:read("*all")) if num == nil then ret1 = 0 else ret1 = num end arq:close() local dir = "data/Pokemon Statistics/"..poke.." Catches.txt" local arq = io.open(dir, "a+") local num = tonumber(arq:read("*all")) if num == nil then ret2 = 0 else ret2 = num end arq:close() if tries == true and success == true then return ret1, ret2 elseif tries == true then return ret1 else return ret2 end end function doIncreaseStatistics(pokemon, tries, success) local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30)).."" if tries == true then local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt" local arq = io.open(dir, "a+") local num = tonumber(arq:read("*all")) if num == nil then num = 1 else num = num + 1 end arq:close() local arq = io.open(dir, "w") arq:write(""..num.."") arq:close() end if success == true then local dir = "data/Pokemon Statistics/"..poke.." Catches.txt" local arq = io.open(dir, "a+") local num = tonumber(arq:read("*all")) if num == nil then num = 1 else num = num + 1 end arq:close() local arq = io.open(dir, "w") arq:write(""..num.."") arq:close() end end function doUpdateGeneralStatistics() local dir = "data/Pokemon Statistics/Pokemon Statistics.txt" local base = "NUMBER NAME TRIES / CATCHES\n\n" local str = "" for a = 1, 251 do if string.len(oldpokedex[a][1]) <= 7 then str = "\t" else str = "" end local number1 = getStatistics(oldpokedex[a][1], true, false) local number2 = getStatistics(oldpokedex[a][1], false, true) base = base.."["..threeNumbers(a).."]\t"..oldpokedex[a][1].."\t"..str..""..number1.." / "..number2.."\n" end local arq = io.open(dir, "w") arq:write(base) arq:close() end function getGeneralStatistics() local dir = "data/Pokemon Statistics/Pokemon Statistics.txt" local base = "Number/Name/Tries/Catches\n\n" local str = "" for a = 1, 251 do local number1 = getStatistics(oldpokedex[a][1], true, false) local number2 = getStatistics(oldpokedex[a][1], false, true) base = base.."["..threeNumbers(a).."] "..oldpokedex[a][1].." "..str..""..number1.." / "..number2.."\n" end return base end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ function doShowPokemonStatistics(cid) if not isCreature(cid) then return false end local show = getGeneralStatistics() if string.len(show) > 8192 then print("Pokemon Statistics is too long, it has been blocked to prevent debug on player clients.") doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.") return false end doShowTextDialog(cid, math.random(2391, 2394, 13258), show) end ------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------ Olha O Catch.lua local chance_premium = 10 -- Mude aqui a chance de capiturar local ballcatch = { --id normal, id da ball shiy [2394] = {cr = 4, on = 24, off = 23, ball = {11826, 11826}, send = 47, typeee = "normal"}, --alterado v2.9 \/ [2391] = {cr = 16, on = 198, off = 197, ball = {11832, 11832}, send = 48, typeee = "great"}, --Moon v3.1 \/ [2393] = {cr = 12, on = 202, off = 201, ball = {11835, 11835}, send = 47, typeee = "super"}, --Fast v3.1 \/ [2392] = {cr = 8, on = 200, off = 199, ball = {11829, 11829}, send = 49, typeee = "ultra"}, --Heavy v3.2 \/ [12617] = {cr = 8, on = 204, off = 203, ball = {10975, 10975}, send = 35, typeee = "saffari"}, --Saffari v3.1 \/ [12971] = {cr = 8, on = 193, off = 192, ball = {11737, 11737}, send = 46, typeee = "love"}, --Love v3.2 \/ [13258] = {cr = 99999, on = 193, off = 192, ball = {11740, 11740}, send = 46, typeee = "master"}, --Master v3.2 \/ } function onUse(cid, item, frompos, item3, topos) local item2 = getTopCorpse(topos) if item2 == null then return true end if getItemAttribute(item2.uid, "catching") == 1 then return true end if getItemAttribute(item2.uid, "golden") and getItemAttribute(item2.uid, "golden") == 1 then return doPlayerSendCancel(cid, "Golden Arena'da Pokemon Yakalamaya Çalisamazsiniz!") --alterado v2.6 end local name = string.lower(getItemNameById(item2.itemid)) --alterado v2.9 \/ name = string.gsub(name, "fainted ", "") name = string.gsub(name, "defeated ", "") name = doCorrectPokemonName(name) local x = pokecatches[name] local storage = newpokedex[doCorrectPokemonName(name)].stoCatch --alterado v2.9 \/ if getPlayerStorageValue(cid, storage) == -1 or not string.find(getPlayerStorageValue(cid, storage), ";") then setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0;") end if not x then return true end local owner = getItemAttribute(item2.uid, "corpseowner") if owner and isCreature(owner) and isPlayer(owner) and cid ~= owner then --alterado v2.5 doPlayerSendCancel(cid, "Bu Pokemonu Siz Öldürmediniz.") return true end local newidd = isShinyName(name) and ballcatch[item.itemid].ball[2] or ballcatch[item.itemid].ball[1] --alterado v2.9 local typeee = ballcatch[item.itemid].typeee local catchinfo = {} if isPremium(cid) then catchinfo.rate = ballcatch[item.itemid].cr + chance_premium else catchinfo.rate = ballcatch[item.itemid].cr end 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 doSendDistanceShoot(getThingPos(cid), topos, ballcatch[item.itemid].send) doRemoveItem(item.uid, 1) local d = getDistanceBetween(getThingPos(cid), topos) if getPlayerStorageValue(cid, 98796) >= 1 and getPlayerItemCount(cid, 12617) <= 0 then --alterado v2.9 setPlayerStorageValue(cid, 98796, -1) setPlayerStorageValue(cid, 98797, -1) doTeleportThing(cid, SafariOut, false) doSendMagicEffect(getThingPos(cid), 21) doPlayerSendTextMessage(cid, 27, "Tüm Saffari Ball'larini kullandiniz, yine bekleriz...") end if getPlayerStorageValue(cid, 98798) >= 1 and getPlayerItemCount(cid, 12971) <= 0 then --alterado v2.9 setPlayerStorageValue(cid, 98798, -1) setPlayerStorageValue(cid, 98799, -1) doTeleportThing(cid, PinkanOut, false) doSendMagicEffect(getThingPos(cid), 21) doPlayerSendTextMessage(cid, 27, "Tüm Love Ball'larini kullandiniz, yine bekleriz...") end addEvent(doSendPokeBall, d * 70 + 100 - (d * 14) , cid, catchinfo, false, false, typeee) addEvent(doSendMagicEffect, (d * 70 + 100 - (d * 14)) - 100, topos, 3) return true end

Queria Saber Como Faz Pra Tirar O Level Dos Pokes Selvagens Tipo Pra Quando Os Caras Catar Ele Vim Com Lvl 0 ( Obs Eu Tentei Mudar No Confuguration Da Pasta Lib Mas Quando Eu Mudei A Pessoa Não Pode Usar Nem Um Ataque Do Poke ) Se Me Ajudarem Do Rep+