[Encerrado] price do pokemons

[outbreaks 1]

Queria uma Script que mostra o preço

do pokemon ao da look nele!

serv e PDA!

 

[Kluivert 142]

Da uma olhada ai \/

Price System - Pokemons (PDA by Slicer)

[outbreaks 1]

eu ja testei esse ai e n funciono!

script do look

 

  Mostrar conteúdo oculto

function onLook(cid, thing, position, lookDistance)

local str = ""

if not isCreature(thing.uid) then

local iname = getItemInfo(thing.itemid)

if isPokeball(thing.itemid) then

unLock(thing.uid)

local lock = getItemAttribute(thing.uid, "lock") --alterado v1.8

local pokename = getItemAttribute(thing.uid, "poke")

local item = getItemInfo(thing.itemid)

str = "You see "..item.article.." "..item.name.."."

if getItemAttribute(thing.uid, "unique") then --alterado v1.8

str = str.." It's an unique item."

end

str = str.."\nIt contains "..getArticle(pokename).." "..pokename..".\n" --alterado v1.6

if lock and lock > 0 then

str = str.."It will unlock in ".. os.date("%d/%m/%y %X", lock)..".\n" --alterado v1.8

end

local boost = getItemAttribute(thing.uid, "boost") or 0

if boost > 0 then

str = str.."Boost level: +"..boost..".\n"

end

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

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

end

if getItemAttribute(thing.uid, "gender") == SEX_MALE then

str = str.."It is male."

elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

elseif string.find(iname.name, "fainted") or string.find(iname.name, "defeated") then --corpses

str = "You see a "..string.lower(iname.name)..". " --alterado v1.8 \/

if isContainer(thing.uid) then

str = str.."(Vol: "..getContainerCap(thing.uid)..")"

end

str = str.."\n"

if getItemAttribute(thing.uid, "gender") == SEX_MALE then

str = str.."It is male."

elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

elseif isContainer(thing.uid) then --containers

local info = getItemInfo(thing.itemid) --alterado v1.7

if info.name == "dead human" and getItemAttribute(thing.uid, "pName") then

str = "You see a dead human (Vol:"..getContainerCap(thing.uid).."). "

str = str.."You recognize ".. getItemAttribute(thing.uid, "pName")..". ".. getItemAttribute(thing.uid, "article").." was killed by a "

str = str.."".. getItemAttribute(thing.uid, "attacker").."."

else

str = "You see "..info.article.." "..info.name..". (Vol:"..getContainerCap(thing.uid)..")."

end

if getPlayerGroupId(cid) >= 4 and getPlayerGroupId(cid) <= 6 then

str = str.."\nItemID: ["..thing.itemid.."]" --alterado v1.8

local pos = getThingPos(thing.uid)

str = str.."\nPosition: [X: "..pos.x.."][Y: "..pos.y.."][Z: "..pos.z.."]" --alterado v1.8

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

elseif getItemAttribute(thing.uid, "unique") then --alterado v1.8 \/

local info = getItemInfo(thing.itemid)

local p = getThingPos(thing.uid)

local str = "You see "

if thing.type > 0 then

str = str..thing.type.." "..info.plural.."."

else

str = str..info.article.." "..info.name.."."

end

str = str.." It's an unique item.\n"

str = str..info.description.."\nItemID: ["..thing.itemid.."]"

str = str.."\nPosition: ["..p.x.."]["..p.y.."]["..p.z.."]"

sendMsgToPlayer(cid, MESSAGE_INFO_DESCR, str)

return false

else

return true

end

end

local NPCBattle = {

["Brock"] = {artig = "He is", cidbat = "Pewter"},

["Misty"] = {artig = "She is", cidbat = "Cerulean"},

["Blaine"] = {artig = "He is", cidbat = "Cinnabar"},

["Sabrina"] = {artig = "She is", cidbat = "Saffron"}, --alterado v1.7

["Kira"] = {artig = "She is", cidbat = "Viridian"},

["Koga"] = {artig = "He is", cidbat = "Fushcia"},

["Erika"] = {artig = "She is", cidbat = "Celadon"},

["Surge"] = {artig = "He is", cidbat = "Vermilion"},

}

local npcname = getCreatureName(thing.uid)

if ehNPC(thing.uid) and NPCBattle[npcname] then --npcs duel

str = "You see "..npcname..". "..NPCBattle[npcname].artig.." leader of the gym from "..NPCBattle[npcname].cidbat.."." --alterado v1.7

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

elseif ehNPC(thing.uid) and getPlayerStorageValue(thing.uid, 697548) ~= -1 then --npcs de TV

local str = getPlayerStorageValue(thing.uid, 697548) --alterado v1.7

local pos = getThingPos(thing.uid)

str = youAre[getPlayerGroupId(cid)] and str.."\nPosition: [X: "..pos.x.."][Y: "..pos.y.."][Z: "..pos.z.."]" or str

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

end

if not isPlayer(thing.uid) and not isMonster(thing.uid) then --outros npcs

str = "You see "..getCreatureName(thing.uid).."."

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

end

if isPlayer(thing.uid) then --player

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, getPlayerDesc(cid, thing.uid, false)) --alterado v1.7

return false

end

if getCreatureName(thing.uid) == "Evolution" then return false end

if not isSummon(thing.uid) then --monstros

local str = "You see a wild "..string.lower(getCreatureName(thing.uid))..".\n"

str = (getPlayerGroupId(cid) >= 4) and str.."Hit Points: "..getCreatureHealth(thing.uid).." / "..getCreatureMaxHealth(thing.uid)..".\n" or str

if getPokemonGender(thing.uid) == SEX_MALE then

str = str.."It is male."

elseif getPokemonGender(thing.uid) == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

elseif isSummon(thing.uid) and not isPlayer(thing.uid) then --summons

local boostlevel = getItemAttribute(getPlayerSlotItem(getCreatureMaster(thing.uid), 8).uid, "boost") or 0

if getCreatureMaster(thing.uid) == cid then

local myball = getPlayerSlotItem(cid, 8).uid

local string = "You see your "..string.lower(getCreatureName(thing.uid)).."."

if boostlevel > 0 then

string = string.."\nBoost level: +"..boostlevel.."."

end

string = string.."\nHit points: "..getCreatureHealth(thing.uid).."/"..getCreatureMaxHealth(thing.uid).."."

string = string.."\n"..getPokemonHappinessDescription(thing.uid)

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, string)

else

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You see a "..string.lower(getCreatureName(thing.uid))..".\nIt belongs to "..getCreatureName(getCreatureMaster(thing.uid))..".")

end

return false

end

return true

end

 

Editado Novembro 3, 2013 por outbreaks

[Jakson Souza 95]

baixa o pokemon mysterion by stylo maldoso e pega o sistema de price facil ^^

[zipter98 1101]

edit: já vi o que é, ignorem meu comentário anterior (antes do edit)

Recomendo fazer o que o snix disse, mais fácil e você vê o sistema "ao vivo", digamos assim.

Editado Novembro 3, 2013 por zipter98

[outbreaks 1]

pode fecha topico eu conseguir desenvolve minha script

[Omega 377]

Tópico movido para a seção de dúvidas e pedidos resolvidos.

[Stigal 584]

A questão neste tópico de suporte foi encerrada por falta de respostas. Este tópico está fechado e foi movido para Suporte - Tópicos Sem Resposta.

+ Caso a dúvida não tenha sido resolvida você poderá criar outro tópico solicitando ajuda.
* Lembre-se que é permitido dar UP no tópico a cada 24 horas para assim o destacar e manter movimentado.