[Ajuda] Servidor de Pokemon

Postado Janeiro 7, 2013 12 anos

Título do tópico arrumado para se adequar melhor a categoria.

Bruno Carvalho / Ex-Administrador TibiaKing

Em 26/12/2016 em 03:47, Spraypaint disse:

A força da alienação vem dessa fragilidade dos indivíduos, quando apenas conseguem identificar o que os separa e não o que os une.

-miltinho

Citar

Mention

Respostas 9
Visualizações 879
Created 12 anos12 anos
Última resposta 12 anos12 anos

Popular Days

Postado Janeiro 8, 2013 12 anos

Autor

Aff ajuda ae né so vem pra muda o nome do tipico ¬¬"

Meu novo projeto.

http://oi58.tinypic.com/2yplmrk.jpg

Citar

Mention

Postado Janeiro 8, 2013 12 anos

Calma que daqui a pouco a sua dúvida será sanada.

Skype @kaiquegabriel__ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Atenciosamente,

kaiquegabriel.

Não dou suporte via pm.

Em caso de dúvidas, crie um tópico e espere o suporte.

Citar

Mention

Postado Janeiro 8, 2013 12 anos

¬¬

Tenta assim no 2º:



function onSay(cid, words, param)


local typess = {

[1] = "normal",

[2] = "great",

[3] = "super",

[4] = "ultra"

}


if param == "" then

doPlayerSendCancel(cid, 'Command needs parameters, function structure: "/cb [Pokemon Name], [Pokemon Level], [Strength], [Gender], [boost]".')

return 0

end


local t = string.explode(param, ",")


local name = ""

local stre = 1

local level = 1

local gender = 0

local btype = typess[math.random(1, 4)]			    --"normal"

local typeee = typess[math.random(1, 4)]


if t[1] then

local n = string.explode(t[1], " ")

local str = string.sub(n[1], 1, 1)

local sta = string.sub(n[1], 2, string.len(n[1]))

name = ""..string.upper(str)..""..string.lower(sta)..""

if n[2] then

str = string.sub(n[2], 1, 1)

sta = string.sub(n[2], 2, string.len(n[2]))

name = name.." "..string.upper(str)..""..string.lower(sta)..""

end

if not pokes[name] then

doPlayerSendCancel(cid, "Sorry, a pokemon with the name "..name.." doesn't exists.")

return true

end

print(""..name.." ball has been created by "..getPlayerName(cid)..".")

end


if t[3] and tonumber(t[3]) ~= nil then

stre = 0.8 + tonumber(t[3]) * 0.2

end


if t[2] and tonumber(t[2]) ~= nil then

level = tonumber(t[2])

else

level = pokes[name].level

end


local genders = {

["male"] = 4,

["female"] = 3,

["1"] = 4,

["0"] = 3}


if t[4] then

if genders[t[4]] then

gender = genders[t[4]]

else

local rate = newpokedex[name].gender

if rate == 0 then

gender = 3

elseif rate == 1000 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 1000) <= rate then

gender = 4

else

gender = 3

end

end

else

local rate = newpokedex[name].gender

if rate == 0 then

gender = 3

elseif rate == 1000 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 1000) <= rate then

gender = 4

else

gender = 3

end

end


local mypoke = pokes[name]

local coffense = ""..(mypoke.offense) * (level) * (stre)..""

local cdefense = ""..(mypoke.defense) * (level) * (stre)..""

local cspeed = ""..(mypoke.agility) * (level) * (stre)..""

local cvitality = ""..(mypoke.vitality) * (level) * (stre)..""

local cspatk = ""..(mypoke.specialattack) * (level) * (stre)..""

local happy = 255

local leveltable = getPokemonExperienceTable(name)


local item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", name)

doItemSetAttribute(item, "hp", 1)

doItemSetAttribute(item, "level", level)

doItemSetAttribute(item, "exp", leveltable[level])

doItemSetAttribute(item, "nextlevelexp", 1)

doItemSetAttribute(item, "offense", coffense)  

doItemSetAttribute(item, "defense", cdefense)

doItemSetAttribute(item, "speed", cspeed)

doItemSetAttribute(item, "vitality", cvitality)

doItemSetAttribute(item, "specialattack", cspatk)

doItemSetAttribute(item, "happy", happy)

doItemSetAttribute(item, "gender", gender)

if name == "Shiny Hitmonchan" or name == "Hitmonchan" then

   doItemSetAttribute(item, "hands", 0)

end

doItemSetAttribute(item, "description", "Contains a "..name..".")

doItemSetAttribute(item, "addon", 0)

doItemSetAttribute(item, "fakedesc", "Contains a "..name..".")

---------------boost------------------------

if t[5] and tonumber(t[5]) > 0 and tonumber(t[5]) <= 50 then

   local off = pokes[name].offense * boost_rate * tonumber(t[5])

   local def = pokes[name].defense * boost_rate * tonumber(t[5])

   local agi = pokes[name].agility * tonumber(t[5])

   local spatk = pokes[name].specialattack * boost_rate * tonumber(t[5])

   local vit = pokes[name].vitality * boost_rate * tonumber(t[5])


   doSetItemAttribute(item, "boost", tonumber(t[5]))

   doItemSetAttribute(item, "offense", getItemAttribute(item, "offense") + off)

   doItemSetAttribute(item, "defense", getItemAttribute(item, "defense") + def)

   doItemSetAttribute(item, "speed", getItemAttribute(item, "speed") + agi)

   doItemSetAttribute(item, "specialattack", getItemAttribute(item, "specialattack") + spatk)

   doItemSetAttribute(item, "vitality", getItemAttribute(item, "vitality") + vit)  

end


doPlayerAddItemEx(cid, item, true)


   doTransformItem(item, pokeballs[btype].on)

return 1

end

[/code]

Bruno Carvalho / Ex-Administrador TibiaKing

[email protected]

Em 26/12/2016 em 03:47, Spraypaint disse:

A força da alienação vem dessa fragilidade dos indivíduos, quando apenas conseguem identificar o que os separa e não o que os une.

-miltinho

Citar

Mention

Postado Janeiro 8, 2013 12 anos

Autor

Vlw esse aki deu certo

function onSay(cid, words, param)

local typess = {

[1] = "normal",

[2] = "great",

[3] = "super",

[4] = "ultra"

}

if param == "" then

doPlayerSendCancel(cid, 'Command needs parameters, function structure: "/cb [Pokemon Name], [Pokemon Level], [strength], [Gender], [boost]".')

return 0

end

local t = string.explode(param, ",")

local name = ""

local stre = 1

local level = 1

local gender = 0

local btype = typess[math.random(1, 4)] --"normal"

local typeee = typess[math.random(1, 4)]

if t[1] then

local n = string.explode(t[1], " ")

local str = string.sub(n[1], 1, 1)

local sta = string.sub(n[1], 2, string.len(n[1]))

name = ""..string.upper(str)..""..string.lower(sta)..""

if n[2] then

str = string.sub(n[2], 1, 1)

sta = string.sub(n[2], 2, string.len(n[2]))

name = name.." "..string.upper(str)..""..string.lower(sta)..""

end

if not pokes[name] then

doPlayerSendCancel(cid, "Sorry, a pokemon with the name "..name.." doesn't exists.")

return true

end

print(""..name.." ball has been created by "..getPlayerName(cid)..".")

end

if t[3] and tonumber(t[3]) ~= nil then

stre = 0.8 + tonumber(t[3]) * 0.2

end

if t[2] and tonumber(t[2]) ~= nil then

level = tonumber(t[2])

else

level = pokes[name].level

end

local genders = {

["male"] = 4,

["female"] = 3,

["1"] = 4,

["0"] = 3}

if t[4] then

if genders[t[4]] then

gender = genders[t[4]]

else

local rate = newpokedex[name].gender

if rate == 0 then

gender = 3

elseif rate == 1000 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 1000) <= rate then

gender = 4

else

gender = 3

end

end

else

local rate = newpokedex[name].gender

if rate == 0 then

gender = 3

elseif rate == 1000 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 1000) <= rate then

gender = 4

else

gender = 3

end

end

local mypoke = pokes[name]

local coffense = ""..(mypoke.offense) * (level) * (stre)..""

local cdefense = ""..(mypoke.defense) * (level) * (stre)..""

local cspeed = ""..(mypoke.agility) * (level) * (stre)..""

local cvitality = ""..(mypoke.vitality) * (level) * (stre)..""

local cspatk = ""..(mypoke.specialattack) * (level) * (stre)..""

local happy = 255

local leveltable = getPokemonExperienceTable(name)

local item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", name)

doItemSetAttribute(item, "hp", 1)

doItemSetAttribute(item, "level", level)

doItemSetAttribute(item, "exp", leveltable[level])

doItemSetAttribute(item, "nextlevelexp", 1)

doItemSetAttribute(item, "offense", coffense)

doItemSetAttribute(item, "defense", cdefense)

doItemSetAttribute(item, "speed", cspeed)

doItemSetAttribute(item, "vitality", cvitality)

doItemSetAttribute(item, "specialattack", cspatk)

doItemSetAttribute(item, "happy", happy)

doItemSetAttribute(item, "gender", gender)

if name == "Shiny Hitmonchan" or name == "Hitmonchan" then

doItemSetAttribute(item, "hands", 0)

end

doItemSetAttribute(item, "description", "Contains a "..name..".")

doItemSetAttribute(item, "addon", 0)

doItemSetAttribute(item, "fakedesc", "Contains a "..name..".")

---------------boost------------------------

if t[5] and tonumber(t[5]) > 0 and tonumber(t[5]) <= 50 then

local off = pokes[name].offense * boost_rate * tonumber(t[5])

local def = pokes[name].defense * boost_rate * tonumber(t[5])

local agi = pokes[name].agility * tonumber(t[5])

local spatk = pokes[name].specialattack * boost_rate * tonumber(t[5])

local vit = pokes[name].vitality * boost_rate * tonumber(t[5])

doSetItemAttribute(item, "boost", tonumber(t[5]))

doItemSetAttribute(item, "offense", getItemAttribute(item, "offense") + off)

doItemSetAttribute(item, "defense", getItemAttribute(item, "defense") + def)

doItemSetAttribute(item, "speed", getItemAttribute(item, "speed") + agi)

doItemSetAttribute(item, "specialattack", getItemAttribute(item, "specialattack") + spatk)

doItemSetAttribute(item, "vitality", getItemAttribute(item, "vitality") + vit)

end

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, pokeballs[btype].on)

return 1

end