[Colocando Maxlevel No Seu Server!]

Bem interessante!

Nem sabia dessa

Flw's

[Habbo System Anti Palavrão]

Bom Script.. Vou arrumar os baguio dos pontos(.) Pra nao poder fala de geito nenhum, e invez de Fala Bobba, vo coloca pra fala: Eu sou viado! kk' Vai ser daora!

Vlw pelo script

[Lista Das Action]

Uma palavra para seu trabalho: Sen-sa-ci-o-nal !!

Cara, deve ter demorado muito..

[Bug Ot ']

Explique melhor Seu Problema para que possamos responder! :smile_positivo:

[Pagseguro Automatico]

Por Eu não vou testar não, sei lá tenho medo..Mas se alguem conseguir eu to dou o REP++ , Como o amigo acima disse, isso ajudará muitos players :smile_positivo:

[Editando Monstros Do Pokeserver!]

Opa, Valeu! Tava precisando arruma uns pokes, por min APROVADO!

[Modificando Rme Para Poketibia]

Simples Assim! Vai ajudar muita gente ae! Apesar de eu ter visto um topico quase igual a esse

[[Dica] Looktypes]

Realmente Site muito bom! APROVADO

[[Creature Scripts] Mensagem Do Player Ao Entrar No Server]

Muito Legal ! Vou ver se adiciono no meu Server!

[Alguns Script Para Pokemon Online.]

Alguem ja testou praPokemon Flash?

[[Tutorial]Adicionando Efeitos]

continuando...

Agora vamos mecher com as sources do servidor, com essas sources que se faz aquele executável que faz seu servidor rodar.

Com o Dev C++, abra o projeto, '0.3.4pl2'/dev-cpp/TheForgottenServer.dev

na parte da esquerda vá até 'const.h'

vá até isso

 

~~

Parei nessa parte! Não sei como abrir esse projeto! se puder explicar melhor pra min AGRADEÇo!

[[C++] Compilando Um Otserv]

Minhas Atualização não pega!

[[Dev C++] Como Compilar Um Otserv]

404 Not Found

TA dando isso, na hora de escolher qual o server seu.. :construction:

[[Ajuda] Fly, Ride System Bugados!]

Eaw galera!

Descobri Um problemão no meu Ot de Pokemon..

O Fly e Ride System estão Bugados!

Exemplo Do Bug: To voando com meu charizard, dai eu saio do voo, luto com algum pokemon, e o Charizard morre! Tpw o corpo dele fica no chão e vc pode usar ele denovo, Ou seja tenho um charizard infinito! (Obs:. Mais isso é com todos os pokes com Fly e Ride)

 

É so usar Fly ou Ride antes de seu poke morrer, que ele "ressucita"

 

Uso Server 8.54 Flash!

 

Meus Scripts de Fly E ride pra quem precisar:

Fly

 

function getPokemonMaxLife(name)

local file = io.open('data/monster/monsters.xml','r')

local arquivo = file:read(-1):lower():match('<monster name="'..name:lower()..'" file="(.-)"/>')

file:close()

local data = io.open('data/monster/'..(arquivo or ''),'r')

if not data then

return 100

end

local maximo = data:read(-1):match('max%s*=%s*"(%d+)"')

data:close()

return maximo

end

 

function onUse(cid, item, frompos, item2, topos)

 

local pokes = {

['Moltres'] = {229, 1000},

['Articuno'] = {230, 1000},

['Zapdos'] = {224, 1000},

['Mew'] = {232, 900},

['Mewtwo'] = {233, 900},

['Dragonite'] = {221, 300},

['Pidgeot'] = {222, 400},

['Shiny Pidgeot'] = {360, 800},

['Fearow'] = {226, 400},

['Aerodactyl'] = {227, 800},

['Charizard'] = {216, 600},

['Elder Charizard'] = {295, 800},

['Porygon'] = {316, 800},

}

local idballs = {

[2531] = {"Pokeball"},

[2557] = {"Superball"},

[2524] = {"Greatball"},

[2525] = {"Ultraball"},

[2523] = {"Masterball"},

}

 

local storage = 9393 -- Não mexa aqui!

local exhaust = 0 -- Tempo para player poder usar o item novamente! (tempo em segundos)

local time = 0 -- Tempo para ficar na montaria! (tempo em segundos)

local old_speed = getCreatureBaseSpeed(cid)

local summons = getCreatureSummons(cid)

if (getPlayerStorageValue(cid, storage) <= os.time()) then

if getPlayerStorageValue(cid, 24000) == 5 then

return doPlayerSendCancel(cid, "You are riding.")

end

if getPlayerStorageValue(cid, 17000) == 10 then

local nome = getItemName(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid)

local balls = idballs[getPlayerSlotItem(cid,8).itemid]

local poke_name = nome:match('(.-) '..balls[1])

local action_id = getItemAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "aid")

if action_id == -1 then

return doPlayerSendCancel(cid,"it uses pokemon correct to leave fly!")

end

if getSqmId(getCreaturePosition(cid)).itemid == CONST_FLYVOID then

return doPlayerSendCancel(cid,"Desça antes de sair do fly")

end

setPlayerStorageValue(cid, storage, os.time()+exhaust)

doChangeSpeed(cid, -(getCreatureSpeed(cid) - getCreatureBaseSpeed(cid)))

doRemoveCondition(cid, CONDITION_OUTFIT)

setPlayerStorageValue(cid, 17000, 7)

setPlayerStorageValue(cid, 23000, 6)

local monster = doCreateMonster(poke_name, getCreaturePosition(cid))

doConvinceCreature(cid, monster)

doCreatureAddHealth(monster, -(tonumber(getPokemonMaxLife(poke_name) - action_id)))

doPlayerSay(cid, poke_name .. ", I'm tired of flying!", TALKTYPE_SAY)

setPlayerStorageValue(cid, 9999,-1)

setPlayerStorageValue(cid, 8888,-1)

return true

end

if #getCreatureSummons(cid) < 1 then

return doPlayerSendCancel(cid, "Para voar você precisa de um pokemon")

end

 

if isPremium(cid) == FALSE then

return doPlayerSendCancel(cid, "Você não é premium account.")

end

local name = getCreatureName(getCreatureSummons(cid)[1])

local pokemon = pokes[getCreatureName(getCreatureSummons(cid)[1])]

 

if not pokes[name] then

return doPlayerSendCancel(cid, "Este pokemon não pode voar.")

end

setPlayerStorageValue(cid, storage, os.time()+exhaust)

doChangeSpeed(cid, pokemon[2])

setPlayerStorageValue(cid, 17000, 10)

setPlayerStorageValue(cid, 23000, 5)

doSetCreatureOutfit(cid, {lookType = pokemon[1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)

setPlayerStorageValue(cid,9999,pokemon[1])

setPlayerStorageValue(cid,8888,pokemon[2])

doItemSetAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "aid", getCreatureHealth(getCreatureSummons(cid)[1]))

function getPokemonId(summons)

for _, pid in ipairs(summons) do

return pid

end

end

doRemoveCreature(getPokemonId(summons))

doPlayerSay(cid, name .. ", Vamos voar!", TALKTYPE_SAY)

doPlayerSendTextMessage(cid,27,'Fale \'h1\' para subir e \'h2\' para descer!.' )

if fly.using(cid) then

local p = getCreaturePosition(cid)

p.stackpos = 0

local f = getTileThingByPos(p)

if fly.del(cid) then

if f.itemid ~= 0 and f.itemid ~= 1 and f.itemid ~= CONST_FLYVOID then

return true

else

setPlayerStorageValue(cid,10941,1)

local p = getCreaturePosition(cid)

setPlayerStorageValue(cid, 102011,p.x)

setPlayerStorageValue(cid, 102012,p.y)

setPlayerStorageValue(cid, 102013,p.z)

return true

end

else

doPlayerSendTextMessage(cid,27,'Você não pode voar neste local.')

end

end

end

return true

end

 

Ride

 

function getPokemonMaxLife(name)

local file = io.open('data/monster/monsters.xml','r')

local arquivo = file:read(-1):lower():match('<monster name="'..name:lower()..'" file="(.-)"/>')

file:close()

local data = io.open('data/monster/'..(arquivo or ''),'r')

if not data then

return 100

end

local maximo = data:read(-1):match('max%s*=%s*"(%d+)"')

data:close()

return maximo

end

 

function onUse(cid, item, frompos, item2, topos)

 

local pokes = {

['Tauros'] = {128, 200},

['Ninetales'] = {129, 300},

['Rapidash'] = {130, 350},

['Ponyta'] = {131, 200},

['Rhyhorn'] = {132, 150},

['Arcanine'] = {12, 500},

['Shiny Arcanine'] = {492, 800},

['Shiny Venusaur'] = {494, 700},

['Crystal Onix'] = {293, 400},

['Onix'] = {126, 350},

['Venusaur'] = {134, 350},

['Dodrio'] = {133, 350},

['Doduo'] = {135, 250},

}

local idballs = {

[2531] = {"Pokeball"},

[2557] = {"Superball"},

[2524] = {"Greatball"},

[2525] = {"Ultraball"},

[2523] = {"Masterball"},

}

 

local old_speed = getCreatureBaseSpeed(cid)

local summons = getCreatureSummons(cid)

local storage = 9393

local exhaust = 0

local time = 0

if (getPlayerStorageValue(cid, storage) <= os.time()) then

if getPlayerStorageValue(cid, 18000) == 10 then

local nome = getItemName(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid)

local balls = idballs[getPlayerSlotItem(cid,8).itemid]

local poke_name = nome:match('(.-) '..balls[1])

local action_id = getItemAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "aid")

if action_id == -1 then

return doPlayerSendCancel(cid,"it uses pokemon correct to leave ride!")

end

doChangeSpeed(cid, -(getCreatureSpeed(cid) - getCreatureBaseSpeed(cid)))

setPlayerStorageValue(cid, storage, os.time()+exhaust)

doRemoveCondition(cid, CONDITION_OUTFIT)

setPlayerStorageValue(cid, 18000, 7)

setPlayerStorageValue(cid, 25000, 6)

local monster = doCreateMonster(poke_name, getCreaturePosition(cid))

doConvinceCreature(cid, monster)

doCreatureAddHealth(monster, -(tonumber(getPokemonMaxLife(poke_name) - action_id)))

doPlayerSay(cid, poke_name .. ", I'm tired of riding!", TALKTYPE_SAY)

return true

end

 

if isPremium(cid) == FALSE then

return doPlayerSendCancel(cid, "Você não é premium account.")

end

 

if #getCreatureSummons(cid) < 1 then

return doPlayerSendCancel(cid, "Para dar ride você precisa de um pokemon")

end

 

 

local pokemon = pokes[getCreatureName(getCreatureSummons(cid)[1])]

local name = getCreatureName(getCreatureSummons(cid)[1])

if not pokes[name] then

return doPlayerSendCancel(cid, "Este pokemon não pode dar ride.")

end

setPlayerStorageValue(cid, storage, os.time()+exhaust)

doChangeSpeed(cid, pokemon[2])

setPlayerStorageValue(cid, 18000, 10)

setPlayerStorageValue(cid, 25000, 5)

doSetCreatureOutfit(cid, {lookType = pokemon[1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)

setPlayerStorageValue(cid,10000,pokemon[1])

setPlayerStorageValue(cid,8889,pokemon[2])

doItemSetAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "aid", getCreatureHealth(getCreatureSummons(cid)[1]))

function getPokemonId(summons)

for _, pid in ipairs(summons) do

return pid

end

end

doRemoveCreature(getPokemonId(summons))

doPlayerSay(cid, name .. ", Let's go RIDE!", TALKTYPE_SAY)

end

end

 

:weight_lift: Galera Por favor me ajude!!!

 

Galera Por favor é urgente!!

 

me ajudem

[Order [Sytem] Igual Do Pokemon Svke E Evolution Sistem]

Quando criar avisa ae!

To mto ancionso se puder terminar o mais rapido possivel AGRADEÇO!

[Tibia Dat Pra Deixar Order Usable]

link quebrado.

[[Resolvido] [Pokemon] Bug De Clonar Pokemon]

Cara eu fiz isso e ainda ta bugando..

Uso o Flash Client!

[Queria Um Action Que Quando O Player Estiver De Cap Full E Ganhar Itens, Os Itens Vão Pro Depot..]

O Titulo è Explicativo..

Bem eu não sei se é uma action mais deve ser ^^

Ot versão 8.54

Se precisa de alguma coisa so me avisar

Agradeçendo desde já ^^

Vlwwwwwwwwwww

[7° Pokemon Vai Pro Depot]

Daew gente. Será que tem como vcs arrumar o script do 7° Pokemon ir pro depot??

Eu Coloquei as pokeballs 1 de cap e o resto do itens 0 de cap, e os players com 6 de cap..

Dai so falta isso, quer puder ajudar

REP++++++

 

Ah e eu uso Pokemon Flash 8.54

[Problema Npc Comprador!]

Vlwwwwwww Cara!!

Que errinho bobo o meu

GANHO MEU REP+++

Virei seu fã

[Problema Npc Comprador!]

Ta ai o Script..

[Problema Npc Comprador!]

Vinic

Eu passei meu script pra vc por mensagem!

[Problema Npc Comprador!]

Bom gente, quando ligo o ot da o Seguinte erro:

 

[12/02/2011 00:44:08] [Error - LuaScriptInterface::loadFile] data/npc/scripts/buy_pokemons.lua:25: 'then' expected near '='

[12/02/2011 00:44:08] [Warning - NpcScript::NpcScript] Cannot load script: data/npc/scripts/buy_pokemons.lua

[12/02/2011 00:44:08] data/npc/scripts/buy_pokemons.lua:25: 'then' expected near '='

 

Eu tava arrumando o script do comprador (comprar pokemons) para colocar para vender todos os pokes.. so que deu esse infeliz problema..

 

Quem conseguir ler esse problema me avisa..

 

Valendo REP++

Flw garotada!!

[Npc Pokemoncollector Funcionando]

Cara usei a versão 2.0 e não da pra vender aqui não :neutral:

Eu falo o nome do pokemon (exemplo: bulbasaur) e o npc não fala nada ._.

Eu falei hi,pokemon,list.. tentei de tudo e não consegui, Se me puder ajudar

Ja garante SEU REP++

 

 

E..

Como faço pra adiciona mais poke pra vende ae?

Vale REP++ tbm :smile_positivo:

[Peça Seu Client Proprio]

NOME DO CLIENT:Pob

VESRSÃO DO CLIENT: 8.54

BACKGROUND:

IP DO SEU SERVIDOR:pokebom.servegame.com

DESEJA RECEBER O CLIENT: msn: gui_ewal@hotmail.com