[PDA] Pokemon T.E.S

[Josegvb 87]

Olá geral do xtibia!

agora a pouco um cara que nao tem oque fazer ficou de expertinho e consegueu accesar numa copia velinha do meu ex-server Pokemon TES

mts conenheram esse ot pois estaba bem avançado e bem dahora! tristemente pelas limitaçoes do PDA (nao ter sources) fikei limitado enquanto updates alem de ter um bug q nao consegui arrumar q

crashaba o server (nao esta nessa versao só na mais nova q nao esta liberada)

entao o cara que consegueu pegar minha base e agora ta tentando deixar igual a original que eu tinha mas tb esta mostrando o meu Trabalho como se for dele e isso é nem é tolerado!

entao irei deixar por aqui a versao que ele baixou em caso q alguem quizer usar-la pra alguma coisa

 

• Menu:
├ Informações;
├ Ediçoes;
├ Erros;
├ Prints;
├ Download;
└ Creditos.



• Informações Basicas •

Spoiler

Pokémons sem level System
Clã System
Boost Stone System

Pokedex System.

Smeargle System.

Held System.

1 a 4 Geração

Pokes: Shinys,Megas,DarkMegas,Minis
Inumeras Quests,incluindo 6 megas e 1 dark mega.
entre as coisas.

• Edições / Ajustes •

Spoiler

Mudou o MAP.
Colocado  novas quests
Modificando Todas as Magias
Adicionamos Novos Pokemons Shiny.
Eventos automatico

Area Vip Completa

Novas Quests

 

• Erros Do Servidor •

Spoiler

por algum motivo paresce q nao esta funfando o duel 

entre outros

 

• Prints •

Spoiler

 

 

 

  

• Download •

 

Spoiler

Server:

http://www.4shared.com/rar/Yv06GfFIce/Pokemon_TES_Server.html

Scan:

https://www.virustotal.com/es/file/902f3dbe7c761c26e777eb5c9d7e2d55f0c398b76c12c0dba4c815ff6224616a/analysis/1480794820/ 

Cliente:

http://www.mediafire.com/file/8dsxmy9o06xa556/Pokemon_T.E.S_Cliente.rar

nunca deu virus pra min mas baixe no seu risco!

 

• Creditos •

Spoiler

Brun123

Nibelins

Slicer

Stigal 

StyloMaldoso 

AnnaFeehz

Josegvb (eu pois adicionei mts coisas, fiz de mapper,spriter etc)

e tudo mundo que tiver mexido no PDA! nem posso citar tds pois são milhoes.

Lembrando que é uma versão antiga, e contens alguns erros a mais nova ta cmg.

 

Para quem quiser os codigos das spells mostradas nas prints adicionar em pokemon moves:

Spoiler

elseif spell == "Outrage" then    local config = {        outfit = {            --["pokemon_name"] = outfit,            ["Salamence"] = 2043,			["Shiny Salamence"] = 2043,		    ["Super Salamence"] = 2043,        },        AOE = {            times = 2,                                --Quantas vezes o golpe AOE será usado.            interval = 3000,                          --Intervalo de tempo, em milésimos de segundo, entre cada golpe AOE.            combat = DRAGONDAMAGE,                    --Elemento.            spell = {                --Uma tabela deverá ser configurada com a área e efeito da parte com socos, e a outra com a parte do efeito do Draco Meteor.                {area = OutrageArea1, effect = 112},  --{area = área do dano AOE, effect = efeito}                {area = OutrageArea2, effect = 248}            },           }    }        local function doOutrage(cid, times)        if not isCreature(cid) then return true end        for i = 1, #config.AOE.spell do            doMoveInArea2(cid, config.AOE.spell[i].effect, config.AOE.spell[i].area, config.AOE.combat, min, max, spell)        end        times = times - 1        if times <= 0 then            local rounds = math.random(4, 7)            rounds = rounds + math.floor(getPokemonLevel(cid) / 35)            local ret = {}            ret.id = cid            ret.cd = rounds            ret.check = getPlayerStorageValue(cid, conds["Confusion"])            ret.cond = "Confusion"            doCondition2(ret)            return true        end        addEvent(doOutrage, config.AOE.interval, cid, times)    end            local ret = {}    ret.id = cid    ret.cd = config.AOE.interval / 1000 * config.AOE.times    ret.eff = 0    ret.check = 0    ret.buff = spell    ret.first = true    doCondition2(ret)    doSetCreatureOutfit(cid, {lookType = config.outfit[getCreatureName(cid)]}, config.AOE.interval * config.AOE.times)    addEvent(doOutrage, config.AOE.interval, cid, config.AOE.times)	elseif spell == "Vines Grap" then  local ret = {}    ret.id = 0    ret.cd = 40                --Duração do silence, em milesimosdesegundos.    ret.check = 0    ret.eff = 104              --Efeito do silence.    ret.cond = "Silence"doDanoWithProtect(cid, psyDmg, getThingPosWithDebug(cid), selfArea2, min, max, 45)stopNow(cid, 200)           --alterado v1.6    doCreatureSetLookDir(cid, 2)	local effect = 0	local pos = getThingPosWithDebug(cid)	pos.x = pos.x + 1	pos.y = pos.y + 1	    local effect = getSubName(cid, target) == "Mega Tangrowth" and 229 or 229    local effect = getSubName(cid, target) == "Shiny Tangela" and 213 or 229	--alterado v1.6.1	doSendMagicEffect(pos, effect)	doDanoWithProtect(cid, GRASSDAMAGE, getThingPosWithDebug(cid), splash, -min, -max, 0)	elseif spell == "Extrasensory" then             local master = isSummon(cid) and getCreatureMaster(cid) or cidlocal function doFall(cid)for rocks = 1, 42 do    addEvent(fall, rocks*35, cid, master, GRASSDAMAGE, 99, 238)endendfor up = 1, 10 do    addEvent(upEffect, up*75, cid, 99)endaddEvent(doFall, 450, cid)addEvent(doMoveInArea2, 1400, cid, 0, BigArea2, GRASSDAMAGE, min, max, spell)                    	elseif spell == "Stored Power" then    local config = {        outfit = {            --["pokemon_name"] = outfit,            ["Gardevoir"] = 1923,            ["Mega Gardevoir"] = 1710,        },        AOE = {            times = 1,                                --Quantas vezes o golpe AOE será usado.            interval = 3000,                          --Intervalo de tempo, em milésimos de segundo, entre cada golpe AOE.            combat = PSYCHICDAMAGE,                    --Elemento.            spell = {                --Uma tabela deverá ser configurada com a área e efeito da parte com socos, e a outra com a parte do efeito do Draco Meteor.                {area = OutrageArea1, effect = 39},  --{area = área do dano AOE, effect = efeito}                {area = OutrageArea2, effect = 220}            },           }    }        local function doOutrage(cid, times)        if not isCreature(cid) then return true end        for i = 1, #config.AOE.spell do            doMoveInArea2(cid, config.AOE.spell[i].effect, config.AOE.spell[i].area, config.AOE.combat, min, max, spell)        end        times = times - 1        if times <= 0 then            local rounds = math.random(4, 7)            rounds = rounds + math.floor(getPokemonLevel(cid) / 35)            return true        end        addEvent(doOutrage, config.AOE.interval, cid, times)    end            local ret = {}    ret.id = cid    ret.cd = config.AOE.interval / 1000 * config.AOE.times    ret.eff = 0    ret.check = 0    ret.buff = spell    ret.first = true    doCondition2(ret)    doSetCreatureOutfit(cid, {lookType = config.outfit[getCreatureName(cid)]}, config.AOE.interval * config.AOE.times)    addEvent(doOutrage, config.AOE.interval, cid, config.AOE.times)    elseif spell == "Aura Sphere" then   doSendDistanceShoot(getThingPosWithDebug(cid), getThingPosWithDebug(target), 3)   doDanoInTargetWithDelay(cid, target, psyDmg, min, max, 59)  --alterado v1.7   elseif spell == "Brick Break" thenlocal ret = {}ret.id = 0ret.cd = 9                        ret.eff = 88ret.check = 0ret.first = trueret.cond = "Paralyze"local ret2 = {}ret2.id = 0ret2.cd = 9ret2.check = 0ret2.eff = -1ret2.cond = "Silence"local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)local p = getThingPosWithDebug(cid)local t = {[0] = {90, {x=p.x+1, y=p.y-1, z=p.z}},[1] = {90, {x=p.x+2, y=p.y+1, z=p.z}},   [2] = {90, {x=p.x+1, y=p.y+2, z=p.z}},[3] = {90, {x=p.x-1, y=p.y+1, z=p.z}},  }doMoveInArea2(cid, 0, BrickBeak, FIGHTINGDAMAGE, min, max, spell, ret)doMoveInArea2(cid, 0, BrickBeak, FIGHTINGDAMAGE, 0, 0, spell, ret2)doSendMagicEffect(t[a][2], t[a][1])elseif spell == "Air Vortex" thenlocal pos = getThingPosWithDebug(cid)local areas = {rock1, rock2, rock3, rock4, rock5}local ret = {}ret.id = 0ret.cd = 10ret.eff = 103ret.check = 0ret.first = trueret.cond = "Paralyze"local ret2 = {}ret2.id = 0ret2.cd = 10ret2.check = 0ret2.eff = 103ret2.cond = "Silence"    local config = {        outfit = 2394,              --Outfit.        time = {10	, 500},           --{Duração da spell, intervalo entre cada "tick" de dano (em milésimos de segundos)},        storage = 93828,        effects = {            pullEffects = {                distance = 223,     --Distance effect do efeito de puxar pokémons.                effect = 255,       --Efeito de tornado.            },            damageEffect = 307,     --Efeito do redemoinho que aplica dano.			damageSangre = 86,        },    }    local time = os.time() + config.time[1]    function Pull(cid, ret)        local pos = getPosfromArea(cid, pullArea)        if pos and #pos > 0 then            for i = 1, #pos do                local c = getTopCreature(pos[i]).uid                if c > 0 then				legendarios = { "",}                    if ehMonstro© and not isInArray(legendarios, getCreatureName©)then                        doTeleportThing(c, getClosestFreeTile(cid, getThingPos(cid)))                        doMoveDano2(cid, c, NORMALDAMAGE, 0, 0, ret, spell)						                        doMoveDano2(cid, c, NORMALDAMAGE, 0, 0, ret2, spell)                    elseif isSummon© then                        local master = getCreatureMaster©                        if isSummon(cid) then                            if (getPlayerStorageValue(master, 52480) >= 1 and getPlayerStorageValue(master, 52481) >= 0) then                                local masterCid = getCreatureMaster(cid)                                if isDuelingAgainst(masterCid, master) then                                    doTeleportThing(c, getClosestFreeTile(cid, getThingPos(cid)))                                    doMoveDano2(cid, c, NORMALDAMAGE, 0, 0, ret, spell)                                    doMoveDano2(cid, c, NORMALDAMAGE, 0, 0, ret2, spell)                                end                            end                        else                            doTeleportThing(c, getClosestFreeTile(cid, getThingPos(cid)))                            doMoveDano2(cid, c, NORMALDAMAGE, 0, 0, ret, spell)                            doMoveDano2(cid, c, NORMALDAMAGE, 0, 0, ret2, spell)                        end                    end                 end --            end        end    end    function doSendTornado(cid, pos)        if not isCreature(cid) then return true end        if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end        if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end        doSendDistanceShoot(getThingPos(cid), pos, config.effects.pullEffects.distance)        doSendMagicEffect(pos, config.effects.pullEffects.effect)    end    function vortexDamage(cid)        if not isCreature(cid) then            return true        elseif time - os.time() < 0 then            return true        end        doDanoWithProtect(cid, FLYINGDAMAGE, getThingPos(cid), damageArea, min, max, config.effects.damageEffect)        addEvent(vortexDamage, config.time[2], cid)    end    for b = 1, 3 do        for a = 1, 20 do            local pos = {x = getThingPos(cid).x + math.random(-4, 4), y = getThingPos(cid).y + math.random(-3, 3), z = getThingPos(cid).z}            addEvent(doSendTornado, a * 75, cid, pos)        end    end    Pull(cid, ret)    vortexDamage(cid)    doCreatureSetNoMove(cid, true)    doChangeSpeed(cid, -getCreatureSpeed(cid))    doSetCreatureOutfit(cid, {lookType = config.outfit}, config.time[1] * 1000)    setPlayerStorageValue(cid, config.storage, time)    addEvent(function()        if isCreature(cid) then            doCreatureSetNoMove(cid, false)            doRegainSpeed(cid)        end    end, config.time[1] * 1000)

 

 

Edited December 9, 2016 by Josegvb

[kaleudd 200]

pda pode ter os ajustes mais avançados que tiver,sempre será um mero servidor 'cheio de problemas';

[Josegvb 87]

Agora, kaleudd disse:

pda pode ter os ajustes mais avançados que tiver,sempre será um mero servidor 'cheio de problemas';

 

sim por isso q desisti dele

[kaleudd 200]

fez bem hhueahe

[Nikolass 1]

Link quebrado

 

[ShadowkidHD 0]

Link pls

[viniciusd 2]

Top,só acho que esse que vc tem ai,nao tem as quests dos 6 megas,só a mega toise kkk e nao tem dark mega ^^ e essas skill nova tb não tem,boa sorte aí ^^

[Nikolass 1]

Smeargle system nao tem ^^

 

Gostaria de alguns creditos por imagens mais dx quieto

 

[Thann Muller 3]

Link Off

[Josegvb 87]

link arrumado

[tickzera 1]

link quebrado

 

[Josegvb 87]

12 minutos atrás, tickzera disse:

link quebrado

 

 

teste com o link do 4shared

 

[Prometheus X 58]

@Josegvb

REP+ pela contribuição

[Pedrolui 2]

po  eu abro tudo certo mais eu entro no serve esta todo bugado pq

 

[Wicke 60]

E o credito do Xandeloko por postar a base pyrus?

5 minutos atrás, Pedrolui disse:

po  eu abro tudo certo mais eu entro no serve esta todo bugado pq

 

Tenta adicionar alguma coisa no serve de sprite... Qualquer item