[Pokemon] Pda By Slicer

[Gabrieltxu 458]

[Pokemon] PDA By Slicer

Pokemon dash advanced editado por slicer, vários bugs retidos.

Ultimas Atualizações:

* Leiam o Change Log dentro da pasta do patch!

* Sigam as instruçoes do Change Log!!!

Downlaods:

PDA By Slicer Com Level System v2.6 ->http://www.mediafire...8iab98nfrr9pb5z

PDA By Slicer Sem Level System v1.6 ->http://www.mediafire...tfzit45z39ir47q

Atualizações:

EH OBRIGATORIO O USO DESSE CLIENT ABAIXO E USEM O .PIC TB!!!!!!!!!

Client v1.7/2.7 => http://www.mediafire...05cl5rpnn7spg51

Patch v1.7 =>http://www.mediafire...w983o0nzo8ghobn

Patch v2.7 =>http://www.mediafire...f0g1c1zrw918buo

Patch Correçao! Todos olhem! Atualizado dia 12/10!

Correçao para pokebar do serv com lvl!

1* va em lib/cooldown bar.lua, apague oq tiver dentro e cole isso la..

function getPlayerPokeballs(cid)

local ret = {}

local container = 0

if isCreature(cid) then

container = getPlayerSlotItem(cid, 3).uid

local myball = getPlayerSlotItem(cid, 8)

if myball.uid > 0 then

table.insert(ret, myball)

end

else

container = cid

end

if isContainer(container) and getContainerSize(container) > 0 then

for slot = 0, (getContainerSize(container) - 1) do

local item = getContainerItem(container, slot)

if isContainer(item.uid) then

local itemsbag = getPlayerPokeballs(item.uid)

if itemsbag and #itemsbag > 0 then

for i = 0, #itemsbag do

table.insert(ret, itemsbag)

end

end

elseif isPokeball(item.itemid) then

table.insert(ret, item)

end

end

end

return ret

end

function doUpdatePokemonsBar(cid)

local ret = "p#,"

local balls = getPlayerPokeballs(cid)

local times = 0

for a = 1, #balls do

local item = balls[a]

local hp = math.ceil(getItemAttribute(item.uid, "hp") * 100)

local name = getItemAttribute(item.uid, "poke")

local port = getPlayerSlotItem(cid, CONST_SLOT_LEGS)

if fotos[name] >= 11137 and fotos[name] <= 11387 then

times = times + 1

local foto = fotos[name] - 911

doItemSetAttribute(item.uid, "ballorder", times)

ret = ret..""..foto..","..name..""..times..","..hp..","

elseif fotos[name] >= 12577 then --ainda ta com problema com os 2 novos portraits...

times = times + 1 --depois tento da um jeito... ;x coisa tensaaaaaaa

local foto = 11916 --alterado v2.4

doItemSetAttribute(item.uid, "ballorder", times)

ret = ret..""..foto..","..name..""..times..","..hp..","

else

times = times + 1

local foto = fotos[name] - 928

doItemSetAttribute(item.uid, "ballorder", times)

ret = ret..""..foto..","..name..""..times..","..hp..","

end

end

doPlayerSendCancel(cid, ret)

end

function getNewMoveTable(table, n)

if n == 1 and table.move1 then

return table.move1

elseif n == 2 and table.move2 then

return table.move2

elseif n == 3 and table.move3 then

return table.move3

elseif n == 4 and table.move4 then

return table.move4

elseif n == 5 and table.move5 then

return table.move5

elseif n == 6 and table.move6 then

return table.move6

elseif n == 7 and table.move7 then

return table.move7

elseif n == 8 and table.move8 then

return table.move8

elseif n == 9 and table.move9 then

return table.move9

elseif n == 10 and table.move10 then

return table.move10

elseif n == 11 and table.move11 then

return table.move11

elseif n == 12 and table.move12 then

return table.move12

else

return false

end

end

function doUpdateMoves(cid)

local summon = getCreatureSummons(cid)[1]

local ret = "12&,"

if not summon then

for a = 1, 12 do

ret = ret.."n/n,"

end

doPlayerSendCancel(cid, ret)

addEvent(doUpdateCooldowns, 100, cid)

return true

end

local ret = "12&,"

if getCreatureName(summon) == "Ditto" and pokes[getPlayerStorageValue(summon, 1010)] and getPlayerStorageValue(summon, 1010) ~= "Ditto" then

moves = movestable[getPlayerStorageValue(summon, 1010)]

else --alterado v2.6

moves = movestable[getCreatureName(summon)]

end

for a = 1, 12 do

local b = getNewMoveTable(moves, a)

if b then

ret = ret..""..b.name..","

else

ret = ret.."n/n,"

end

end

doPlayerSendCancel(cid, ret)

addEvent(doUpdateCooldowns, 100, cid)

end

function doUpdateCooldowns(cid)

local a = getPlayerSlotItem(cid, 8)

local ret = "12|,"

if a.uid <= 0 or #getCreatureSummons(cid) <= 0 then

for cds = 1, 12 do

ret = useOTClient and ret.."-1|0," or ret.."-1," --alterado v2.7

end

doPlayerSendCancel(cid, ret)

return true

end

for cds = 1, 12 do --alterado v2.7 \/\/

----

local summon = getCreatureSummons(cid)[1]

if summon and getPlayerStorageValue(summon, 212123) >= 1 then

cdzin = "cm_move"..cds

else --alterado v1.5

cdzin = "move"..cds

end

----

if getCreatureName(summon) == "Ditto" and pokes[getPlayerStorageValue(summon, 1010)] and getPlayerStorageValue(summon, 1010) ~= "Ditto" then

moves = movestable[getPlayerStorageValue(summon, 1010)]

else

moves = movestable[getCreatureName(summon)]

end

local b = getNewMoveTable(moves, cds)

----

if getCD(a.uid, cdzin) > 0 then --alterado v2.8

ret = useOTClient and ret..""..(getCD(a.uid, cdzin)).."|"..b.level.."|".. getLevel(summon).."," or ret..""..(getCD(a.uid, cdzin) -1)..","

else

ret = (useOTClient and b) and ret.."0|"..b.level.."|".. getLevel(summon).."," or ret.."0," --alterado v2.8

end

end

doPlayerSendCancel(cid, ret) -- alterado v2.7 /\/\

end

function getBallsAttributes(item)

local t = {"boffense", "bdefense", "bagility", "bsattack", "offense", "defense", "speed", "level", "specialattack", "poke", "gender", "vitality", "nick",

"boost", "happy", "hunger", "hp", "description", "exp", "nextlevelexp", "transBegin", "transLeft", "transTurn", "transOutfit", "transName", "trans",

"light", "blink", "move1", "move2", "move3", "move4", "move5", "move6", "move7", "move8", "move9", "move10", "move11", "move12", "ballorder",

"hands", "aura", "burn", "burndmg", "poison", "poisondmg", "confuse", "sleep", "miss", "missSpell", "missEff", "fear", "fearSkill", "silence",

"silenceEff", "stun", "stunEff", "stunSpell", "paralyze", "paralyzeEff", "slow", "slowEff", "leech", "leechdmg", "Buff1", "Buff2", "Buff3", "Buff1skill",

"Buff2skill", "Buff3skill", "control", "unique", "task"} --alterado v2.7

local ret = {}

for a = 1, #t do

if getItemAttribute(item, t[a]) == "hands" then

return

end

ret[t[a]] = getItemAttribute(item, t[a]) or false

end

return ret

end

function doChangeBalls(cid, item1, item2)

if not isCreature(cid) then return true end

if item1.uid == item2.uid then

if #getCreatureSummons(cid) <= 0 then

doGoPokemon(cid, getPlayerSlotItem(cid, 8))

else

doReturnPokemon(cid, getCreatureSummons(cid)[1], getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect)

end

return true

end

if item1.uid > 0 and item2.uid > 0 then

local io = getBallsAttributes(item1.uid)

local it = getBallsAttributes(item2.uid)

for a, b in pairs (io) do

if b then

doItemSetAttribute(item2.uid, a, b)

else

doItemEraseAttribute(item2.uid, a)

end

end

for a, b in pairs (it) do

if b then

doItemSetAttribute(item1.uid, a, b)

else

doItemEraseAttribute(item1.uid, a)

end

end

local id = item2.itemid

doTransformItem(item2.uid, item1.itemid)

doTransformItem(item1.uid, id)

doGoPokemon(cid, getPlayerSlotItem(cid, 8))

else

local id = item2.itemid

local b = getBallsAttributes(item2.uid)

local a = doPlayerAddItem(cid, 2643, false)

for c, d in pairs (b) do

if d then

doItemSetAttribute(a, c, d)

else

doItemEraseAttribute(a, c)

end

end

doRemoveItem(item2.uid, 1)

doTransformItem(a, id)

doGoPokemon(cid, getPlayerSlotItem(cid, 8))

end

end

2* vai em 'pasta do OTClient'/mods/cdBar/cdBar.lua, apague oq ta dentro e cole isso la..

--[[Coisas para saber!

local button = optionsWindow:recursiveGetChildById('Button'):setText("Fuu") == muda o nome do botao!

optionsWindow = g_ui.loadUI('bot.otui', modules.game_interface.getRightPanel()) == faz a janela ficar nos cantos!

local player = g_game.getLocalPlayer() == pega o player!

player:getInventoryItem(8):getId() == pega o id do item, id do .spr

]]

cdBar = {}

cdBar.options = {}

-- Private Variables

local optionsWindow_hori

local optionsWindow_vert

local optionsButton

local barra = 'Horizontal.otui'

local nameAtks = ""

local cdAtks = ""

local botoes = {

['Button1'] = {event = nil},

['Button2'] = {event = nil},

['Button3'] = {event = nil},

['Button4'] = {event = nil},

['Button5'] = {event = nil},

['Button6'] = {event = nil},

['Button7'] = {event = nil},

['Button8'] = {event = nil},

['Button9'] = {event = nil},

['Button10'] = {event = nil},

['Button11'] = {event = nil},

['Button12'] = {event = nil},

}

-- Private Functions

-- Public functions

function cdBar.init()

optionsWindow_hori = g_ui.displayUI(barra)

optionsWindow_vert = g_ui.displayUI('Vertical.otui')

optionsWindow_hori:setVisible(false)

optionsWindow_vert:setVisible(false)

------

local pos = {x = 10, y = 10}

optionsWindow_hori:setPosition(pos)

optionsWindow_vert:setPosition(pos)

------

optionsButton = TopMenu.addLeftButton('cdBarButton', 'cdBar', '/cdBar/cdBar.png', cdBar.toggle)

connect(g_game, { onGameStart = cdBar.online,

onGameEnd = cdBar.hide})

connect(g_game, 'onTextMessage', cdBar.barConfig)

cdBar.options = g_settings.getNode('cdBar') or {}

if g_game.isOnline() then

cdBar.online()

end

end

function cdBar.terminate()

disconnect(g_game, { onGameStart = cdBar.online,

onGameEnd = cdBar.hide})

disconnect(g_game, 'onTextMessage', cdBar.barConfig)

if g_game.isOnline() then

cdBar.offline()

end

optionsWindow_hori:destroy()

optionsWindow_hori = nil

optionsWindow_vert:destroy()

optionsWindow_vert = nil

optionsButton:destroy()

optionsButton = nil

cdBar.cleanEvents()

g_settings.setNode('cdBar', cdBar.options)

end

function cdBar.changeBar()

cdBar.hide()

if barra == 'Horizontal.otui' then

barra = 'Vertical.otui'

cdBar.show()

cdBar.toolTipChange()

g_game.talk('/reloadCDs')

elseif barra == 'Vertical.otui' then

barra = 'Horizontal.otui'

cdBar.show()

cdBar.toolTipChange()

g_game.talk('/reloadCDs')

end

end

function cdBar.barConfig(mode, text)

if not g_game.isOnline() then return end

if mode == MessageModes.Failure then

if string.find(text, '12//,') then

local t1 = text:explode(",")

if t1[2] == 'hide' then

cdBar.hide()

else

cdBar.show()

end

elseif string.find(text, '12|,') then

cdBar.atualizarCDs(text)

elseif string.find(text, '12&,') then

cdBar.toolTipChange(text)

end

end

end

function cdBar.barChange(but, num, lvl, lvlPoke)

if not g_game.isOnline() then return end

if not cdBar.getWindow():isVisible() then return end

local player = g_game.getLocalPlayer()

if num and num >= 1 then

local button = cdBar.getWindow():recursiveGetChildById('Button' ..but)

local pathOff = "/cdBar/imagens/"..button:getTooltip().."_off.png"

button:setImageSource(pathOff)

button:setText(num)

button:setColor('#FF0000') --#000080(azul) #006400(verde)

botoes['Button'..but].event = scheduleEvent(function() cdBar.barChange(but, num-1) end, 1000)

else

if botoes['Button' ..but] then

local button = cdBar.getWindow():recursiveGetChildById('Button' ..but)

if button:getTooltip() then

local pathOn = "/cdBar/imagens/"..button:getTooltip().."_on.png"

local pathOff = "/cdBar/imagens/"..button:getTooltip().."_off.png"

if tonumber(lvl) ~= nil and tonumber(lvlPoke) ~= nil and lvlPoke < lvl then

button:setImageSource(pathOff)

button:setText(lvl)

button:setColor('#FF0000')

elseif tonumber(lvl) ~= nil and player:getLevel() < lvl then

button:setImageSource(pathOff)

button:setText(lvl)

button:setColor('#FF0000')

else

button:setImageSource(pathOn)

button:setText("")

end

end

end

end

end

function cdBar.atualizarCDs(text)

if not g_game.isOnline() then return end

if not cdBar.getWindow():isVisible() then return end

local t = text:explode(",")

table.remove(t, 1)

local table = {}

for j = 1, 12 do

local t2 = t[j]:explode("|")

if tonumber(t2[3]) ~= nil then

table[j] = {t2[1], t2[2], t2[3]} --alterado v2.8

else

table[j] = {t2[1], t2[2]}

end

end

for i = 1, #table do

if tonumber(table[3]) ~= nil then

cdBar.barChange(i, tonumber(table[1]), tonumber(table[2]), tonumber(table[3])) --alterado v2.8

else

cdBar.barChange(i, tonumber(table[1]), tonumber(table[2]))

end

end

end

function cdBar.toolTipChange(text)

if barra == "Horizontal.otui" then

cdBar.getWindow():setHeight(490)

cdBar.getWindow():setWidth(65)

else

cdBar.getWindow():setWidth(480)

cdBar.getWindow():setHeight(80)

end

if not text then

text = nameAtks

else

nameAtks = text

end

local t2 = text:explode(",")

local count = 0

for i = 2, 13 do

if t2 == 'n/n' then

button = cdBar.getWindow():recursiveGetChildById('Button' ..(i-1)):hide()

count = count+1

else

button = cdBar.getWindow():recursiveGetChildById('Button' ..(i-1)):show()

button = cdBar.getWindow():recursiveGetChildById('Button' ..(i-1)):setTooltip(t2)

end

end

if count > 0 and count ~= 12 then

if barra == "Horizontal.otui" then

cdBar.getWindow():setHeight(490 - (count*38))

else

cdBar.getWindow():setWidth(480 - (count*38))

end

elseif count == 12 then

cdBar.getWindow():setHeight(40)

cdBar.getWindow():setWidth(50)

end

end

function cdBar.cleanEvents(button)

if button then

if botoes[button] then

if botoes[button].event ~= nil then

removeEvent(botoes[button].event)

botoes[button].event = nil

end

end

else

for i = 1, 12 do

removeEvent(botoes['Button'..i].event)

botoes['Button'..i].event = nil

end

end

end

function cdBar.getWindow()

if barra == 'Vertical.otui' then

return optionsWindow_vert

else

return optionsWindow_hori

end

end

function cdBar.toggle()

if cdBar.getWindow():isVisible() then

cdBar.changeBar()

end

end

function cdBar.show()

if g_game.isOnline() then

cdBar.getWindow():show()

end

end

function cdBar.hide()

scheduleEvent(cdBar.cleanEvents(), 100)

cdBar.getWindow():hide()

end

function cdBar.online()

if not g_game.isOnline() then

cdBar.hide()

end

end

function cdBar.offline()

if not g_game.isOnline() then

cdBar.hide()

end

end

Créditos:

Brun123

Nibelins

Slicer

Stigal (mapa)

StyloMaldoso (edições no mapa)

Slicer (Criador)

[Nogard 344]

Bacana, haha.

[EdsonJunior 966]

Scan!?

[Gabrieltxu 458]

Não acredito que tu postou isso man'

Pra que? Me diz.

...

Num entendi manow?

EdsonJunior: não Consigo Postar Scan minha net Num deixa mais Num tem Virus

[43216 1]

aff o mapa nem tem respaw mais que droga cara

[Gabrieltxu 458]

Se ta loko cara ¬¬' tem que baixar as 1.7 etc.. tem o map ¬¬

[Itamarbsl 32]

Esse serve é bom, só fazer uns ajuste e fica bom

[43216 1]

po só to falando que quando começa o mapa é minimo e n tem hunts de pokemon pow , vo em cinnabar n tem respaw nenhum nem outras citys , o resto tudo ta bom mais é foda cara

[Gabrieltxu 458]

Bom veey ai seis pede de mais Seis quer um Server 100% Faz o Seu Proprio Todos que estão para download é para base ¬¬'

[43216 1]

poha eu sei mais mapa só tem 2 city e cheio de bug man respaw ta 0 só tem os oddish e os pidgey MAIS ND poha ai fica foda mais o resto ta bom '-'

[Genocadew Miquilino 0]

Eu não consigo baixar nada do MediaFire porque ?

[heverton1221 8]

Ótimo Post..
Vou usar como base pro meu server vlw
A propósito vo posta o scan, aguardem o #Edit....

 

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

#Edit

 

Server(Sem Lv Sistem)

Client

Ver.2.7(Com Lv)

Editado Julho 13, 2014 por heverton1221 (veja o histórico de edições)

[zoroblack 0]

ta faltando o otclient dele voce deixou as istruções mais n deixou o otclient.