[Encerrado] [Pokemon] Dúvidas? - Pda

[zesy 6]

@bizao030188

 

@ZeSy

 

if isSummon(cid) and isSummon(attacker) then

if not getTileZoneInfo(getCreaturePosition(cid)) == 2 and not getTileZoneInfo(getCreaturePosition(duel)) == 2 then
if not isInParty(getCreatureMaster(cid)) or not isInParty(getCreatureMaster(attacker)) then
return false
end
if not getPlayerParty(getCreatureMaster(cid)) == getPlayerParty(getCreatureMaster(attacker)) then
return false
end
else
return true
end
doSleep(cid, value, true)
return false
end

 

tenta assim

 

 

Cara não deu certo e deu esse erro no Console:

 

 

 

[28/05/2012 00:01:09] [Error - LuaScriptInterface::loadFile] data/creaturescripts/scripts/exp.lua:1032: 'end' expected (to close 'function' at line 137) near '<eof>'

[28/05/2012 00:01:09] [Warning - Event::loadScript] Cannot load script (data/creaturescripts/scripts/exp.lua)

[28/05/2012 00:01:09] data/creaturescripts/scripts/exp.lua:1032: 'end' expected (to close 'function' at line 137) near '<eof>'

 

 

Tou quase desistindo disso... -.-'

Mas enquanto isso, vamo lá...

 

@ALL

E a respeito das Shinies Balls... já postei aqui pra alguém faze um script do catch.lua, mas ninguem respondeu...

Já tentei edita tbm, mais não vai aff...

 

Se alguém abilita-se a fazer esse script, concerteza ia ajudar mta gente aqui... todo mundo tá pedindo esse script, das Shinies Balls...

[zerefshirou 112]

@DeanWInchesterr

 

Ditto está com atks? algo assim, meu está com tudo igual e não da isso.

 

@Zesy

 

Tenta assim

 

if isSummon(cid) and isSummon(attacker) then

if not getTileZoneInfo(getCreaturePosition(cid)) == 2 and not getTileZoneInfo(getCreaturePosition(duel)) == 2 then
if not isInParty(getCreatureMaster(cid)) or not isInParty(getCreatureMaster(attacker)) then
return false
end
if not getPlayerParty(getCreatureMaster(cid)) == getPlayerParty(getCreatureMaster(attacker)) then
return false
end
doSleep(cid, value, true)
return false
end

Editado Maio 28, 2012 por ZerefShirou

[DeanWInchesterr 1]

@Zereft

 

Não ele não está com nenhum attack olha cm ta no configuration

 

["Ditto"] = {},

[zerefshirou 112]

@DeanWInchesterr

 

Testa com ele transformado e destransformado pra ve se em algum nao da erro ou da erros diferentes... estranho aqui tambem ta assim e porque vocês escrevem meu nick errado, Zereft? WTF?

[DeanWInchesterr 1]

@Zeref

 

Esse erro so da quando o ditto é selvagem, quando é do player a dex funciona normalmente

 

Malz por erra o nick é que eu to com sono ;x

[bozox 1]

ALL

 

Porque eu não posso mover onde eu quero que este CoolDownBar? Esse é o botão para atualizar este mesmo?

[StyloMaldoso 330]

Zere#All

 

Alguem Poderia Colaborar com um Npc de Torneio? ?

Queria uma base assim que as sómente as 13 h dá pra i pra arena e lvl 100 + tails se alguem pode ajuda agredç ;p

Editado Maio 28, 2012 por StyloMaldoso

[zerefshirou 112]

@DeanWInchesterr

 

tenta isso:

 

 

local skills = specialabilities

function doAddPokemonInDexList(cid, poke)

if getPlayerInfoAboutPokemon(cid, poke).dex then return true end

local a = newpokedex[poke]

local b = getPlayerStorageValue(cid, a.storage)

setPlayerStorageValue(cid, a.storage, b.." dex,")

end

function getPokemonEvolutionDescription(name, blank)

local kev = poevo[name]

local stt = ""

local sss = " "--blank and " " or " "

if isInArray(specialevo, name) then

if name == "Poliwhirl" then

stt = stt.."\n"..sss.."~ Evolves to Poliwrath starting at\n "..sss.."level 36."

stt = stt.."\n"..sss.."~ Evolves to Politoed using\n "..sss.."a water stone and a king's rock."

elseif name == "Gloom" then

stt = stt.."\n"..sss.."~ Evolves to Vileplume using\n "..sss.."a leaf stone and a venom stone."

stt = stt.."\n"..sss.."~ Evolves to Bellosom using\n "..sss.."a leaf stone and a sun stone."

elseif name == "Slowpoke" then

stt = stt.."\n"..sss.."~ Evolves to Slowbro starting at\n "..sss.."level 28."

stt = stt.."\n"..sss.."~ Evolves to Slowking using\n "..sss.."a king's rock."

elseif name == "Tyrogue" then

stt = stt.."\n"..sss.."• Evolves starting at level 20 to:"

stt = stt.."\n"..sss.." ~ Hitmonlee if offense is higher\n"..sss.." than defense."

stt = stt.."\n"..sss.." ~ Hitmonchan if defense is higher\n"..sss.." than offense."

stt = stt.."\n"..sss.." ~ Hitmontop if defense is equal to\n"..sss.." offense."

elseif name == "Eevee" then

stt = stt.."\n"..sss.."~ Evolves to Flareon using\n "..sss.."a fire stone."

stt = stt.."\n"..sss.."~ Evolves to Vaporeon using\n "..sss.."a water stone."

stt = stt.."\n"..sss.."~ Evolves to Jolteon using\n "..sss.."a thunder stone."

stt = stt.."\n"..sss.."~ Evolves to Espeon when\n "..sss.."leveled up very happy during\n "..sss.."daytime."

stt = stt.."\n"..sss.."~ Evolves to Umbreon when\n "..sss.."leveled up very happy during\n "..sss.."nighttime."

elseif name == "Shiny Eevee" then

stt = stt.."\n"..sss.."~ Evolves to Shiny Flareon using\n "..sss.."a shining fire stone."

stt = stt.."\n"..sss.."~ Evolves to Shiny Vaporeon using\n "..sss.."a shining water stone."

stt = stt.."\n"..sss.."~ Evolves to Shiny Jolteon using\n "..sss.."a shining thunder stone."

elseif name == "Shiny Gloom" then

stt = stt.."\n"..sss.."~ Evolves to Shiny Vileplume using\n "..sss.."a shining leaf stone and a shining venom stone."

elseif name == "Shiny Slowpoke" then

stt = stt.."\n"..sss.."~ Evolves to Shiny Slowbro starting at\n "..sss.."level 28."

elseif name == "Shiny Poliwhirl" then

stt = stt.."\n"..sss.."~ Evolves to Shiny Poliwrath starting at\n "..sss.."level 36."

elseif name == "Ditto" then

stt = stt.."\n It doesn't evolve."

end

elseif kev then

stt = stt.."\n"..sss.."• Evolves to "..kev.evolution..""

if kev.level >= 7 then

stt = stt.." starting at\n "..sss.."level "..kev.level.."."

elseif kev.count >= 1 then

stt = stt.." using\n"

local id = tonumber(kev.stoneid)

local id2 = tonumber(kev.stoneid2)

if id > 1 then

local info = getItemInfo(id)

local a = kev.count == 1 and info.article or kev.count

local s = kev.count == 1 and "" or "s"

stt = stt.." "..sss..""..a.." "..info.name..""..s..""

end

if id2 > 1 then

local info2 = getItemInfo(id2)

local b = kev.count == 1 and info2.article or kev.count

stt = stt.." and "..b.." "..info2.name..""

end

stt = stt.."."

else

stt = stt.." when it\n "..sss.."levels up very happy."

end

stt = stt..""..getPokemonEvolutionDescription(kev.evolution, true)..""

elseif not blank then

stt = stt.."\n It doesn't evolve."

end

return stt

end

local skillcheck = {"fly", "ride", "surf", "teleport", "rock smash", "cut", "dig", "light", "blink", "ghostwalk"}

local skilldescr = {

["fly"] = " • Fly:\n #You can mount this pokemon and fly with it to reach other places through the sky (use order on yourself)",

["ghostwalk"] = " • Ghost Walk:\n #This pokemon can walk through walls and unpassable terrain. This pokemon is also invulnerable to physical attacks.",

["ride"] = " • Ride:\n #You can mount this pokemon to move faster on land (use order on yourself)",

["rock smash"] = " • Rock Smash:\n #This pokemon is able to break smashable rocks (use order on the rock)",

["cut"] = " • Cut:\n #This pokemon is able to cut cuttable bushes (use order on the bush)",

["dig"] = " • Dig:\n #This pokemon is able to dig holes and make them exploitable (use order on a closed hole)",

["light"] = " • Flash:\n #This pokemon is able to illuminate a place (use order on the pokemon)",

["blink"] = " • Blink:\n #This pokemon can teleport itself to another place (use order on the desired place)",

["teleport"] = " • Teleport:\n #This pokemon can teleport itself and it's trainer to another city (type either h\" or /h)",

["surf"] = " • Surf:\n #You can mount this pokemon and swim with it (just walk on the water)",

}

local function doCheckMoveTarget(table)

if not table then return true end

if table.target == 1 then

return "Yes ("..table.dist.. " max. range)."

else

return "No."

end

end

local function getMoveDexDescr(name, number)

local x = movestable[name]

local y = {}

local z = "\n"

if number == 1 and x.move1 then

y = x.move1

z = ""

elseif number == 2 and x.move2 then

y = x.move2

elseif number == 3 and x.move3 then

y = x.move3

elseif number == 4 and x.move4 then

y = x.move4

elseif number == 5 and x.move5 then

y = x.move5

elseif number == 6 and x.move6 then

y = x.move6

elseif number == 7 and x.move7 then

y = x.move7

elseif number == 8 and x.move8 then

y = x.move8

elseif number == 9 and x.move9 then

y = x.move9

elseif number == 10 and x.move10 then

y = x.move10

elseif number == 11 and x.move11 then

y = x.move11

elseif number == 12 and x.move12 then

y = x.move12

elseif number == 13 and x.move13 then

y = x.move13

elseif number == 14 and x.move14 then

y = x.move14

elseif number == 15 and x.move15 then

y = x.move15

else

return ""

end

if not movesinfo[y.name] then

print(""..y.name.." faltando")

return "unknown error"

end

local txt = ""..z.."\n • "..y.name.." (move "..number.." / m"..number.."):\n #Type: "..movesinfo[y.name].t.."\n #Cooldown: "..y.cd.." seconds.\n #Needs target: "..doCheckMoveTarget(y)..""

return txt

end

--#Required level: "..y.level.."\n

function doShowPokedexRegistration(cid, pokemon, ball, table)

local item2 = pokemon

local virtual = false

if type(pokemon) == "string" then

virtual = true

end

local myball = ball

local name = virtual and pokemon or getCreatureName(item2.uid)

local leveltable = table

local v = fotos[name]

local stt = ""

stt = "-General:\n It's named "..name.." "

if pokes[name].type2 and pokes[name].type2 ~= "no type" then

stt = stt.."("..pokes[name].type.."/"..pokes[name].type2..")."

else

stt = stt.."("..pokes[name].type..")."

end

if virtual then

stt = stt.."\n"

else

if isSummon(item2.uid) then

stt = stt.."\n It belongs to "..getCreatureName(getCreatureMaster(item2.uid)).."."

if getItemAttribute(myball.uid, "nick") then

stt = stt.."\n It's nickname is: "..getItemAttribute(myball.uid, "nick").."."

end

end

stt = stt.."\n\n-Status:\n"

stt = stt.." • Level: "..getLevel(item2.uid)..""

if isSummon(item2.uid) then

local boost = getItemAttribute(myball.uid, "boost")

if boost then

stt = stt.." +"..boost.."\n"

else

stt = stt.."\n"

end

local boff = getItemAttribute(myball.uid, "boffense") and " + "..math.floor(getItemAttribute(myball.uid, "boffense")).." trans. bonus" or ""

local bdef = getItemAttribute(myball.uid, "bdefense") and " + "..math.floor(getItemAttribute(myball.uid, "bdefense")).." trans. bonus" or ""

local bagi = getItemAttribute(myball.uid, "bagility") and " + "..math.floor(getItemAttribute(myball.uid, "bagility")).." trans. bonus" or ""

local bspa = getItemAttribute(myball.uid, "bsattack") and " + "..math.floor(getItemAttribute(myball.uid, "bsattack")).." trans. bonus" or ""

stt = stt.." • Vitality: "..math.floor(getItemAttribute(myball.uid, "vitality")).."\n"

stt = stt.." • Offense: "..math.floor(getItemAttribute(myball.uid, "offense"))..""..boff.."\n"

stt = stt.." • Defense: "..math.floor(getItemAttribute(myball.uid, "defense"))..""..bdef.."\n"

stt = stt.." • Spc. Atk.: "..math.floor(getItemAttribute(myball.uid, "specialattack"))..""..bspa.."\n"

stt = stt.." • Agility: "..math.floor(getItemAttribute(myball.uid, "speed"))..""..bagi.."\n"

else

stt = stt.."\n"

stt = stt.." • Vitality: "..getVitality(item2.uid).."\n"

stt = stt.." • Offense: "..getOffense(item2.uid).."\n"

stt = stt.." • Defense: "..getDefense(item2.uid).."\n"

stt = stt.." • Spc. Atk.: "..getSpecialAttack(item2.uid).."\n"

stt = stt.." • Agility: "..getSpeed(item2.uid).."\n"

end

if isSummon(item2.uid) then

local myexp = getItemAttribute(myball.uid, "exp")

local nlexp = getItemAttribute(myball.uid, "nextlevelexp")

local expdesselevel = myexp - leveltable[getLevel(item2.uid)]

local faltadesselevel = myexp + nlexp - leveltable[getItemAttribute(myball.uid, "level")]

local percent = math.floor(expdesselevel / faltadesselevel * 100)

if getPokemonLevel(item2.uid) == 100 then

stt = stt.." • Experience: "..leveltable[100].." (max)\n"

else

local exptext = ""..myexp.." / "..(myexp + nlexp).." ("..percent.."%)"

local art = "Experience"

if string.len(exptext) > 22 then

art = "Exp."

end

stt = stt.." • "..art..": "..exptext.."\n"

stt = stt.." • Exp. to level up: "..getItemAttribute(getPlayerSlotItem(getCreatureMaster(item2.uid), 8).uid, "nextlevelexp").."\n"

end

end

end

stt = stt.."\n-Evolutions:"

stt = stt..""..getPokemonEvolutionDescription(name).."\n"

stt = stt.."\n-Moves and attacks:"

if name == "Ditto" then

if getPlayerStorageValue(item2.uid, 1010) == "Ditto" then

stt = stt.."\n It doesn't use any moves until\n transformed."

else

for a = 1, 15 do

stt = stt..""..getMoveDexDescr(getPlayerStorageValue(item2.uid, 1010), a)..""

end

end

else

for a = 1, 15 do

stt = stt..""..getMoveDexDescr(name, a)..""

end

end

local totalab = 0

local abtexts = ""

local skipline = ""

for b = 1, #skillcheck do

if isInArray(skills[skillcheck], name) then

abtexts = abtexts..""..skipline..""..skilldescr[skillcheck]..""

totalab = totalab + 1

skipline = "\n \n"

end

end

if totalab == 0 then

if name == "Ditto" then

stt = stt.."\n\n-Special abilities:\n • Transform:\n #Ditto can transform into any other species of pokémon for 2 minutes with 40 seconds cooldown (use order on any pokemon)"

else

stt = stt.."\n\n-Special abilities:\n none."

end

else

stt = stt.."\n\n-Special abilities:\n"..abtexts..""

end

 

if string.len(stt) > 8192 then

print("Error while making pokedex info with pokemon named "..name..".\n Pokedex registration has more than 8192 letters (it has "..string.len(stt).." letters), it has been blocked to prevent fatal error.")

doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.")

return true

end

doShowTextDialog(cid, v, stt)

end

 

 

Veja se vai pegar com ditto, ditto transformado, ditto selvagem e outros pokemons.

 

@StyloMaldoso

 

Me pediram isso ontem, mas não tava em casa, odeio npc, odeio tempo, odeio "," ai fica tenso fazer e não gosto de ficar fazendo "pedidos"

Editado Maio 28, 2012 por ZerefShirou

[StyloMaldoso 330]

Zere#

e o negocio da ball brilha pra shiny ? voce vai conversa o ricardo ? ^^

 

mesmo assim vlw ;p vo tenta cria um aki npc do torneio AUHUSH'

[zerefshirou 112]

@StyloMaldoso

 

 

Assim que você quer? Nem sei fazer :S ahsuasa le spoiler

 

 

 

 

Procure isso no catch.lua (data/actions)

 

local name = string.lower(getItemNameById(item2.itemid))

name = string.gsub(name, "fainted ", "")
name = string.gsub(name, "defeated ", "")

 

Embaixo coloca isso

 

 

if string.find(name, "shiny ") then
ballcatch = {
[2394] = {cr = 3000, on = 24, off = 23, ball = 11737, send = 47},
[2391] = {cr = 6, on = 198, off = 197, ball = 11740, send = 48},
[2393] = {cr = 10, on = 202, off = 201, ball = 11743, send = 46},
[2392] = {cr = 15, on = 200, off = 199, ball = 11747, send = 49},
}
end

 

Depois testa e muda o catch ali que como to testando ta 3000 de chance hasuahsa

 

 

[cacaiu 10]

@All

 

tem como alguem min arruma o dat e a spr do psoul, la no site deles nao ta pegando o download do client se alguem min mandar dou rep+

[BrunooMaciell 83]

@Zeref

 

0.o nossa eu add la no cath na hora de testa eu fiz o comando de /cb shiny arcanine nee so pra testa mais aki nao pego ou eo 300o mil que pasa o efeito =s

 

@All

 

tem como alguem min arruma o dat e a spr do psoul, la no site deles nao ta pegando o download do client se alguem min mandar dou rep+

manda o site do psoul que abaixo o cliente e coloco o dat eo spr pra dowload e mando pra vc ^^

[StyloMaldoso 330]

no meu action não tem akilo lá que vc mando procurar eagora ? '-'

 

Ops achei adicionei agr e o bang que o lek falo ? EDIT#

 

oia o erro que aparçeeu '-'

 

 

 

 

[28/05/2012 13:07:52] [Error - LuaScriptInterface::loadFile] data/actions/scripts/catch.lua:22: 'then' expected near 'thenballcatch'

[28/05/2012 13:07:52] [Warning - Event::loadScript] Cannot load script (data/actions/scripts/catch.lua)

[28/05/2012 13:07:52] data/actions/scripts/catch.lua:22: 'then' expected near 'thenballcatch'

Editado Maio 28, 2012 por StyloMaldoso

[cacaiu 10]

http://psoulfan.tumblr.com/downloadClient

 

bruno o caso é que eles tiraram o client para download mais ver ai se vc conssegue

[zerefshirou 112]

@StyloMaldoso

 

catch.lua do action? então passa em spoiler o catch.lua

 

@Brunnoo

 

Português falado corretamente é tão bonito, porfavor escreva de um jeito que de para entender...