Jump to content

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


lucashgas

Recommended Posts

Onde eu mudo pro pokémon ganhar mais exp?

 

_____

 

[18/01/2012 03:31:00] [Error - LuaScriptInterface::loadFile] data/creaturescripts/scripts/look.lua:19: unexpected symbol near ')'
[18/01/2012 03:31:00] [Warning - Event::loadScript] Cannot load script (data/creaturescripts/scripts/look.lua)
[18/01/2012 03:31:00] data/creaturescripts/scripts/look.lua:19: unexpected symbol near ')'

 

Alguem me ajuda nisso tambem?

Edited by NiNu
Link to comment
Share on other sites

@NiNu

data\creaturescripts\scripts\look

 

function onLook(cid, thing, position, lookDistance)
local str = ""
if not isCreature(thing.uid) then
local iname = getItemInfo(thing.itemid)
if isPokeball(thing.itemid) then
local owner = getItemAttribute(thing.uid, "firstpoke")
local pokename = getItemAttribute(thing.uid, "poke")
local item = getItemInfo(thing.itemid)
str = "You see "..item.article.." "..item.name..".\n"
str = str.."It contains "..getArticle(pokename).." "..pokename.." [level "..getItemAttribute(thing.uid, "level").."].\n"
if owner and owner ~= getCreatureName(cid) then
str = str.."It belongs to "..owner..".\nIt is an unique item."
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)
return false
end
local boost = getItemAttribute(thing.uid, "boost") or 0
local boostshow = ""
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
str = str.."\n--- Status ---"
str = str.."\nOffense: "..math.floor(getItemAttribute(thing.uid, "offense")).." Defense: "..math.floor(getItemAttribute(thing.uid, "defense")).."\n"
str = str.."Agility: "..math.floor(getItemAttribute(thing.uid, "speed")).." Sp. Attack: "..math.floor(getItemAttribute(thing.uid, "specialattack")).."\n"
str = str.."Vitality: "..math.floor(getItemAttribute(thing.uid, "vitality"))..""
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)
return false
elseif string.find(iname.name, "fainted") or string.find(iname.name, "defeated") then
str = "You see a "..string.lower(iname.name).." ["..getItemAttribute(thing.uid, "level").."].\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
else
return true
end
end
local npcname = getCreatureName(thing.uid)
local l = string.len(npcname)
if not isPlayer(thing.uid) and not isMonster(thing.uid) then
--string.sub(npcname, l - 1, l) == "  " then
local article = getPlayerStorageValue(thing.uid, 9891) == 1 and "He is" or "She is"
local nname = string.sub(npcname, 1, l - 2)
if nname == getCreatureName(cid) then
nname = "yourself"
article = "You are"
end
str = "You see "..nname..". "..article.." a pokemon trainer."
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)
return false
end
if not isMonster(thing.uid) then
return true
end
if getCreatureName(thing.uid) == "Evolution" then return false end
if not isSummon(thing.uid) then
local str = "You see a wild "..string.lower(getCreatureName(thing.uid)).." [level "..getPokemonLevel(thing.uid).."].\n"
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
local boostlevel = getItemAttribute(getPlayerSlotItem(getCreatureMaster(thing.uid), 8).uid, "boost") or 0
local boostshow = " + "..boostlevel.."]"
if showBoostSeparated then
boostshow = "] [+"..boostlevel.."]"
end
local levelinfo = "["..getPokemonLevel(thing.uid)..""..boostshow..""
if getCreatureMaster(thing.uid) == cid then
local myball = getPlayerSlotItem(cid, 8).uid
local nexp = getItemAttribute(myball, "nextlevelexp")
local string = "You see your "..string.lower(getCreatureName(thing.uid)).." "..levelinfo.."."
string = string.."\nHit points: "..getCreatureHealth(thing.uid).."/"..getCreatureMaxHealth(thing.uid).."."
string = string.."\n"..getPokemonHappinessDescription(thing.uid)
if getItemAttribute(myball, "level") <= 99 then
string = string.."\nExperience needed to level up: "..nexp.."."
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, string)
else
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You see a "..string.lower(getCreatureName(thing.uid)).." "..levelinfo..".\nIt belongs to "..getCreatureName(getCreatureMaster(thing.uid))..".")
end

return false
end
return true
end

 

ver se com esse da erro

Edited by otal2012
Link to comment
Share on other sites

@brun123,CabritenhO,ZerefShirou,ALL

BUG Cooldown Bar

1- quando um player tem um pokemon com boost +50

e clica para troca de pokemon em qual quer outro pokemon sem ter boost pela Cooldown

o pokemon sem ter boost também fica com +50

2- quando tem um pokemon renomeado e clica para troca de pokemon na Cooldown

o pokemon normal fica com nome que foi renomeado

Edited by otal2012
Link to comment
Share on other sites

cara como vc faz para dar bost?

 

vc entra na conta de god ou gm usa comando /boostmachine

vai aparecer uma maquina ai coloca um pokemon e uma pedra do typo dele dps só clica no meio da maquina e pronto vai fica +1

 

edit

pra quem não tem cliente com dll ejetada no cliente a baixa ae

http://www.4shared.com/rar/tEiEobVd/POKE.html

Edited by otal2012
Link to comment
Share on other sites

tipo sera que tem como por logo no mapa pelo remeres?

sim tem mais ai vc tem que saber id ver pelo god

ae vc tem que coloca as 3 partes

ID 12354

ID 12355

ID 12356

Edited by otal2012
Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...