action [PEDIDO] BALL SYSTEM PDA

Josegvb · Maio 18, 2016

ola! queria o sistema de ball que tipo x ball tem maior chance de pegar pokemons de x type

ej:

Pokéballs feitas por engenheiros:
Obs.: São 30% melhores que a Ultra Ball.

	Dusk Ball	Melhor chance de captura em pokémons do tipo ROCK e FIGHTING.
	Fast Ball	Melhor chance de captura em pokémons rápidos.
	Heavy Ball	Melhor chance de captura em pokémons pesados.
	Janguru Ball	Melhor chance de captura em pokémons do tipo POISON e GRASS.
	Magu Ball	Melhor chance de captura em pokémons do tipo FIRE e GROUND.
	Moon Ball	Melhor chance de captura em pokémons do tipo DARK e GHOST.
	Net Ball	Melhor chance de captura em pokémons do tipo BUG e WATER.
	Sora Ball	Melhor chance de captura em pokémons do tipo ICE e FLYING.
	Tale Ball	Melhor chance de captura em pokémons do tipo DRAGON e FAIRY.
	Tinker Ball	Melhor chance de captura em pokémons do tipo ELECTRIC a STEEL.
	Yume Ball	Melhor chance de captura em pokémons do tipo NORMAL e PSYCHIC.

entao queria um system pra isso, ja tinha visto um pra PDE mas foi retirado do forum procurei e procurei e nao achei outro, alem de meu catch system estar bugado ja u,u

Spoiler

failmsgs = {
"Sorry, you didn't catch that pokemon.",
"Sorry, your pokeball broke.",
"Sorry, the pokemon escaped.",
}

function doBrokesCount(cid, str, ball) --alterado v1.9 \/
if not isCreature(cid) then return false end
local tb = {
{b = "normal", v = 0},
{b = "great", v = 0},
{b = "super", v = 0},
{b = "ultra", v = 0},
{b = "saffari", v = 0},
{b = "dark", v = 0},
}
for _, e in ipairs(tb) do
if e.b == ball then
e.v = 1
break
end
end
local string = getPlayerStorageValue(cid, str)
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"
local t2 = ""

for n, g, s, u, s2, d in string:gmatch(t) do
t2 = "normal = "..(n+tb[1].v)..", great = "..(g+tb[2].v)..", super = "..(s+tb[3].v)..", ultra = "..(u+tb[4].v)..", saffari = "..(s2+tb[5].v)..", dark = "..(d+tb[6].v)..";"
end
return setPlayerStorageValue(cid, str, string:gsub(t, t2))
end

function sendBrokesMsg(cid, str, ball)
if not isCreature(cid) then return false end
local string = getPlayerStorageValue(cid, str)
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"
local msg = {}
table.insert(msg, "You have wasted: ")

for n, g, s, u, s2, d in string:gmatch(t) do
if tonumber(n) and tonumber(n) > 0 then
table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))
end
if tonumber(g) and tonumber(g) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))
end
if tonumber(s) and tonumber(s) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))
end
if tonumber(u) and tonumber(u) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))
end
if tonumber(s2) and tonumber(s2) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))
end
if tonumber(d) and tonumber(d) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(d).." Dark ball".. (tonumber(d) > 1 and "s" or ""))
end
end
if #msg == 1 then
return true
end
if string.sub(msg[#msg], 1, 1) == "," then
msg[#msg] = " and".. string.sub(msg[#msg], 2, #msg[#msg])
end
table.insert(msg, " trying to catch it.")
sendMsgToPlayer(cid, 27, table.concat(msg))
end --alterado v1.9 /\
--------------------------------------------------------------------------------

function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) --Edited brokes count system

   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

   if pokes[getPlayerStorageValue(cid, 854788)] and name == getPlayerStorageValue(cid, 854788) then
   rate = 85
end

local corpse = getTopCorpse(topos).uid

   if not isCreature(cid) then
       doSendMagicEffect(topos, CONST_ME_POFF)
   return true
   end

doItemSetAttribute(corpse, "catching", 1)

local level = getItemAttribute(corpse, "level") or 0
local levelChance = level * 0.02

   local totalChance = math.ceil(basechance * (1.2 + levelChance))
   local thisChance = math.random(0, totalChance)
   local myChance = math.random(0, totalChance)
   local chance = (1 * rate + 1) / totalChance
       chance = doMathDecimal(chance * 100)

   if rate >= totalChance then
       local status = {}
       status.gender = getItemAttribute(corpse, "gender")
       status.happy = 500

       doRemoveItem(corpse, 1)
       doSendMagicEffect(topos, catch)
       addEvent(doCapturePokemon, 3000, 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.gender = getItemAttribute(corpse, "gender")
   status.happy = 500

doRemoveItem(corpse, 1)

local doCatch = false

   for check = 1, #myChances do
       if thisChance == myChances[check] then
           doCatch = true
       end
   end

   if doCatch then
       doSendMagicEffect(topos, catch)
       addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)
   else
       addEvent(doNotCapturePokemon, 3000, cid, name, typeee)
       doSendMagicEffect(topos, fail)
   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 pokes[poke] then
local test = io.open("data/catch.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
if string.find(poke, "Shiny") then
read = read.."\n\n\nName: "..getCreatureName(cid).." - Pok駑on: "..poke..""
else
read = read.."\nName: "..getCreatureName(cid).." - Pok駑on: "..poke..""
end

if newpokedex[poke].stoCatch ~= -1 then
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);"
local msg = {}
storage = getPlayerStorageValue(cid, newpokedex[poke].stoCatch)
for n, g, s, u, s2 in storage:gmatch(t) do
if tonumber(n) and tonumber(n) > 0 then
table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))
end
if tonumber(g) and tonumber(g) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))
end
if tonumber(s) and tonumber(s) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))
end
if tonumber(u) and tonumber(u) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))
end
if tonumber(s2) and tonumber(s2) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))
end
end
read = read.." - "..table.concat(msg)..""
end
local reopen = io.open("data/catch.txt", "w")
reopen:write(read)
reopen:close()
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

if icons[poke] then
ballid = icons[poke].on
end

local description = "Contains a "..poke.."."

local gender = status.gender
local happy = 200
--alterado v1.9 \/
if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
item = doCreateItemEx(ballid)
else
item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)
end

       doItemSetAttribute(item, "poke", poke)
       doItemSetAttribute(item, "hp", 1)
       doItemSetAttribute(item, "happy", happy)
       doItemSetAttribute(item, "gender", gender)
       doItemSetAttribute(item, "fakedesc", description)
       doItemSetAttribute(item, "description", description)
       doItemSetAttribute(item, "addon", 0)
       if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then
       doItemSetAttribute(item, "hands", 0)
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
doTransformItem(item, icons[getItemAttribute(item, "poke")].on) -- tiene
       end
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
doTransformItem(item, icons[getItemAttribute(item, "poke")].on) -- tiene
       ----------- task clan ---------------------
if pokes[getPlayerStorageValue(cid, 854788)] and poke == getPlayerStorageValue(cid, 854788) then
sendMsgToPlayer(cid, 27, "Quest Done!")
doItemSetAttribute(item, "unique", getCreatureName(cid))
doItemSetAttribute(item, "task", 1)
setPlayerStorageValue(cid, 854788, 'done')
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
doTransformItem(item, icons[getItemAttribute(item, "poke")].on) -- tiene
end
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
doTransformItem(item, icons[getItemAttribute(item, "poke")].on) -- tiene
------------------------------------------- --alterado v1.9 \/
   if getPlayerFreeCap(cid) >= 6 then
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
doTransformItem(item, icons[getItemAttribute(item, "poke")].on) --- tiene
doPlayerSendMailByName(getCreatureName(cid), item, 1)
doTransformItem(item, icons[getItemAttribute(item, "poke")].on) ---tiene
       doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!")
       doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
       doPlayerSendTextMessage(cid, 27, "Digite !save para evitar perdas!")
end

local storage = newpokedex[poke].stoCatch
sendBrokesMsg(cid, storage, typeee)
setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0; dark = 0;") --alterado v1.9 /\

   if #getCreatureSummons(cid) >= 1 then
       doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173)
           if catchMakesPokemonHappier then
               setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + 20)
if useOTClient then
       doCreatureExecuteTalkAction(cid, "/salvar")
end
           end
   else
       doSendMagicEffect(getThingPos(cid), 173)
   end

doIncreaseStatistics(poke, true, true)

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)])

   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)
doIncreaseStatistics(poke, true, false)

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), show)
end

NatsuRush · Maio 19, 2016

Vá em data/actions/scripts/catch.lua e modifique essa tabela:

local ballcatch = {

Na ultima linha antes do fim dela adicione:

[iDVAZIA] = {cr = chance, on = efeitocatch-1, off = efeitofail-1, ball = {ballcompokemon, ballcompokemon}, send = efeitogoback-1, typeee = "tipo"},

Um exemplo:

[15030] = {cr = 35, on = 373, off = 374, ball = {15027, 15027}, send = 367, typeee = "moon"},

Agora em actions/actions.xml ache:

E modifique assim:

Agora em data/movements/movements.xml ache:

E Edite assim:

Agora em data/lib/configurations.lua ache:

pokeballs = {
["normal"] = {effect = 188, on = 11826, use = 11827, off = 11828, all = {11826,11827,11828}},
["great"] = {effect = 189, on = 11832, use = 11833, off = 11834, all = {11832, 11833, 11834}},
["super"] = {effect = 190, on = 11835, use = 11836, off = 11837, all = {11835, 11836, 11837}},
["ultra"] = {effect = 191, on = 11829, use = 11830, off = 11831, all = {11829, 11830, 11831}},
["saffari"] = {effect = 344, on = 15023, use = 15025, off = 15024, all = {15023, 15025, 15024}}, --alterado v2.9
["love"] = {effect = 343, on = 15055, use = 15057, off = 15056, all = {15055, 15057, 15056}}, --alterado v3.1
["dive"] = {effect = 342, on = 15063, use = 15065, off = 15064, all = {15063, 15065, 15064}}, --alterado v3.1
["fast"] = {effect = 341, on = 15039, use = 15041, off = 15040, all = {15039, 15041, 15040}}, --alterado v3.1
["master"] = {effect = 196, on = 11740, use = 11741, off = 11742, all = {11740, 11741, 11742}}, --alterado v3.1

["shinynormal"] = {effect = 188, on = 11826, use = 11827, off = 11828, all = {11826, 11827, 11828}},
["shinygreat"] = {effect = 189, on = 11832, use = 11833, off = 11834, all = {11832, 11833, 11834}},
["shinysuper"] = {effect = 190, on = 11835, use = 11836, off = 11837, all = {11835, 11836, 11837}},
["shinyultra"] = {effect = 191, on = 11829, use = 11830, off = 11831, all = {11829, 11830, 11831}},
["shinysaffari"] = {effect = 195, on = 10975, use = 10976, off = 10977, all = {10975, 10976, 10977}},
["shinylove"] = {effect = 194, on = 11737, use = 11738, off = 11739, all = {11737, 11738, 11739}}, --alterado v3.1
["shinymaster"] = {effect = 196, on = 11740, use = 11741, off = 11742, all = {11740, 11741, 11742}}, --alterado v3.1
}

Em baixo de:

["master"] = {effect = 196, on = 11740, use = 11741, off = 11742, all = {11740, 11741, 11742}}, --alterado v3.1

Adicione:

["TIPO"] = {effect = EFEITOGOBACK-1, on = POKEBOLAVIVO, use = POKEBOLAUSADA, off = POKEBOLAMORTO, all = {POKEBOLAVIVO, POKEBOLAUSADA, POKEBOLAMORTO}},

Exemplo:

["dive"] = {effect = 342, on = 15063, use = 15065, off = 15064, all = {15063, 15065, 15064}},

Pokébolas com maior chance de catch dependendo do tipo do pokemon!

Como exemplo vou usar a DiveBall!

Vá em actions/catch.lua e encontre:

catchinfo.chance = x.chance

Abaixo adicione:

if item.itemid == ID DIVE and (pokes[name].type == "water" or pokes[name].type2 == "water") then
catchinfo.chance = divechance
end

Em actions/catch.lua antes de :

local ballcatch = {

Adicione:

divechance = 3.5 * x.chance

Para adicionar mais tipos é só adicionar:
NOMEDABALLchance = QUANTIDADE A MAIS * x.chance

E adicionar em baixo de:

if item.itemid == ID DIVE and (pokes[name].type == "water" or pokes[name].type2 == "water") then
catchinfo.chance = divechance

Isso aqui:

elseif item.itemid == ID BALL and (pokes[name].type == "TIPO" or pokes[name].type2 == "TIPO") then
catchinfo.chance = NOMEDABALLchance

Ficando:

if item.itemid == ID DIVE and (pokes[name].type == "water" or pokes[name].type2 == "water") then
catchinfo.chance = divechance
elseif item.itemid == ID BALL and (pokes[name].type == "TIPO" or pokes[name].type2 == "TIPO") then
catchinfo.chance = NOMEDABALLchance
end

Josegvb · Maio 20, 2016

@NatsuRush

pode ser desse jeito?

if item.itemid == 2393 and (pokes[name].type == "ice" or pokes[name].type2 == "flying") then
catchinfo.chance = divechance
end

pra ser 2 tipos? pq to confudido pelo type1 e type2 q vc coloca quando ta adicionando pokes :P: entao nem sei se pelo "type 2" ela vai pegar o type do pokemon tipo

um gyarados é configurado type 1 water, type 2 flying, se eu colocar no teu script type == rock e type2 == water, nao iria funfar no gyarados pelo ele estar configurado de water no type1? e nao no 2?

Editado Maio 20, 2016 por Josegvb

Josegvb · Maio 20, 2016

ta dando esse erro aki

[19/05/2016 23:03:09] data/actions/scripts/catch.lua:1: attempt to index global 'x' (a nil value)
[19/05/2016 23:03:09] [Warning - Event::loadScript] Cannot load script (data/actions/scripts/catch.lua)

Spoiler

sorachance = 3.5 * x.chance
maguchance = 3.5 * x.chance
tinkerchance = 3.5 * x.chance
yumechance = 3.5 * x.chance

local ballcatch = { --id normal, id da ball shiy
[2394] = {cr = 4, on = 193, off = 192, ball = {11826, 11737}, send = 47, typeee = "magu", boost = "0"}, --alterado v1.9 \/
[2391] = {cr = 4, on = 198, off = 197, ball = {11832, 11740}, send = 48, typeee = "tinker", boost = "0"},
[2393] = {cr = 4, on = 202, off = 201, ball = {11835, 11743}, send = 46, typeee = "sora", boost = "0"},
[2392] = {cr = 7, on = 200, off = 199, ball = {11829, 11746}, send = 49, typeee = "ultra", boost = "0"},
[12617] = {cr = 4, on = 204, off = 203, ball = {10975, 12621}, send = 35, typeee = "yume", boost = "0"},
[12832] = {cr = 100000, on = 23, off = 24, ball = {12826, 12829}, send = 181, typeee = "dark", boost = "0"},
}

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, "You can't try to catch a pokemon in the Golden Arena!")
end

local name = string.lower(getItemNameById(item2.itemid))
name = string.gsub(name, "fainted ", "")
name = string.gsub(name, "defeated ", "")
name = doCorrectPokemonName(name)
local x = pokecatches[name]

if not x then return true end

local shinys = {"Mega Kangaskhan", "Mega Lucario", "Shiny Aggron", "Mega Sableye", "Mega Sceptile", "Mega Blaziken", "Shiny Alakazam", "Shiny Scyther", "Shiny Electivire", "Shiny Magmortar", "Shiny Salamence", "Shiny Magmar", "Shiny Mantine", "Shiny Gyarados", "Shiny Snorlax", "Shiny Onix", "Shiny Electabuzz", "Shiny Pidgeot", "Aerodactyl", "Ditto", "Shiny Gengar", "Mimo Verde", "Shiny Absol", "Shiny Tropius", "Shiny Piloswine", "Shiny Tangrowth", "Shiny Slowking", "Shiny Donphan", "Shiny Flygon", "Shiny Sudowoodo", "Shiny Miltank", "Shiny Skarmory", "Shiny Sceptile", "Shiny Torterra", "Shiny Infernape", "Shiny Empoleon", "Shiny Swampert", "Shiny Metagross", "Shiny Scizor", "Shiny Steelix", "Shiny Kingdra", "Shiny Blaziken", "Shiny Magcargo", "Shiny Octillery"}
if item.itemid == 12832 and isInArray(shinys, name) then
doPlayerSendCancel(cid, "Voc・n縊 pode catar esse pokemon com a master ball!")
return true
end

local storage = newpokedex[name].stoCatch
if getPlayerStorageValue(cid, storage) == -1 or not string.find(getPlayerStorageValue(cid, storage), ";") then --alterado v1.9
setPlayerStorageValue(cid, storage, "magu = 0, tinker = 0, sora = 0, ultra = 0, yume = 0, dark = 0;") --alterado v1.9
end

local owner = getItemAttribute(item2.uid, "corpseowner")

if owner and isCreature(owner) and isPlayer(owner) and cid ~= owner then
doPlayerSendCancel(cid, "You are not allowed to catch this pokemon.")
return true
end

local newidd = isShinyName(name) and ballcatch[item.itemid].ball[2] or ballcatch[item.itemid].ball[1] --alterado v1.9
local typeee = ballcatch[item.itemid].typeee
local boost = ballcatch[item.itemid].boost

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

if item.itemid == 2393 and (pokes[name].type == "ice" or pokes[name].type2 == "flying") then
catchinfo.chance = sorachance
end

if item.itemid == 2394 and (pokes[name].type == "fire" or pokes[name].type2 == "ground") then
catchinfo.chance = maguchance
end

if item.itemid == 2391 and (pokes[name].type == "electric" or pokes[name].type2 == "steel") then
catchinfo.chance = tinkerchance
end

if item.itemid == 12617 and (pokes[name].type == "normal" or pokes[name].type2 == "psychic") then
catchinfo.chance = yumechance
end

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 v1.9
setPlayerStorageValue(cid, 98796, -1)
setPlayerStorageValue(cid, 98797, -1)
doTeleportThing(cid, SafariOut, false)
doSendMagicEffect(getThingPos(cid), 21)
doPlayerSendTextMessage(cid, 27, "You spend all your saffari balls, good luck in the next time...")
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

eu apenas trokei os nomes das antigas balls por elas, ja que irei retirar as antigas

Josegvb · Maio 27, 2016

up?

Josegvb · Maio 27, 2016

up

Entrar

action [PEDIDO] BALL SYSTEM PDA

Pergunta

Josegvb 87

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

NatsuRush 8

Link para o comentário

Compartilhar em outros sites

Josegvb 87

Link para o comentário

Compartilhar em outros sites

Josegvb 87

Link para o comentário

Compartilhar em outros sites

Josegvb 87

Link para o comentário

Compartilhar em outros sites

Josegvb 87

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar

Healing Machine

catch system Erro catch system

Sacrificar itens em determinadas posições teleporta player

tfs0.3.6 Pedido adaptaçao de scripit

10.x [10.35] Rookgaard (Com Isle of Destiny)

Fóruns

Tutoriais

Suporte