Morkez

Para TFS 0.4/0.3.6 e OTX2
 
Em luascript.h depois de:
static int32_t luaGetCreatureName(lua_State* L); Adicionar:
static int32_t luaGetCreaturePathTo(lua_State* L); Em luascript.cpp depois de:
//getCreatureName(cid) lua_register(m_luaState, "getCreatureName", LuaInterface::luaGetCreatureName); Adicionar:
//getCreaturePathTo(cid, pos, maxSearchDist) lua_register(m_luaState, "getCreaturePathTo", LuaInterface::luaGetCreaturePathTo); Depois de:
int32_t LuaInterface::luaGetCreatureName(lua_State* L) { //getCreatureName(cid)     ScriptEnviroment* env = getEnv();     if(Creature* creature = env->getCreatureByUID(popNumber(L)))         lua_pushstring(L, creature->getName().c_str());     else     {         errorEx(getError(LUA_ERROR_CREATURE_NOT_FOUND));         lua_pushboolean(L, false);     }     return 1; } Adicionar:
int32_t LuaInterface::luaGetCreaturePathTo(lua_State* L) { //getCreaturePathTo(cid, pos, maxSearchDist)     ScriptEnviroment* env = getEnv();     int32_t maxSearchDist = popNumber(L);     PositionEx position;     popPosition(L, position);     Creature* creature = env->getCreatureByUID(popNumber(L));     if (!creature) {         lua_pushnil(L);         return 1;     }     std::list<Direction> dirList;     lua_newtable(L);     if (g_game.getPathTo(creature, position, dirList, maxSearchDist)) {         std::list<Direction>::const_iterator it = dirList.begin();         for (int32_t index = 1; it != dirList.end(); ++it, ++index) {             lua_pushnumber(L, index);             lua_pushnumber(L, (*it));             pushTable(L);         }     } else {         lua_pushboolean(L, false);     }     return 1; } E sejam felizes!
 
getCreaturePathTo(cid, position, maxSearchDist) retornará uma tabela com as direções que o jogador deve seguir para chegar no ponto position. Não contem as posições que ele deve passar por. maxSearchDist é o valor máximo de passos que ele vai dar em direção à essa position e na via das dúvidas coloque o maior valor de distancia entre as duas posições.
 

Em data/lib, pokemons moves.lua:
abaixo de:
local table = getTableMove(cid, spell) --alterado v1.6 adicione:
   if spell == "DB" then         table = getTableMove(cid, "Destiny Bound")     end Código do Destiny Bound: elseif spell == "Destiny Bound" then     local death = 3          --Tempo para morrer, em segundos.     setPlayerStorageValue(cid, 8401, 1)     addEvent(function()         if isCreature(cid) and getPlayerStorageValue(cid, 8401) > -1 then             setPlayerStorageValue(cid, 8401, -1)             doCreatureAddHealth(cid, -getCreatureHealth(cid))         end     end, death * 1000)       Código da spell que o Destiny Bound irá executar (caso o pokémon seja morto): elseif spell == "DB" then     spell = "Destiny Bound"     local config = {         effect = 136,            --Effect.         area = selfArea1,        --Área do golpe (criada em data/lib/areas.lua).         element = ghostDmg,      --Elemento do ataque.     } setPlayerStorageValue(cid, 8401, -1)     doMoveInArea2(cid, config.effect, config.area, config.element, min, max, spell) data/actions/scripts, goback.lua: acima de: doReturnPokemon(cid, z, item, effect) adicione:    if getPlayerStorageValue(z, 8401) > -1 then return setPlayerStorageValue(z, 8401, -1) and doCreatureAddHealth(z, -getCreatureHealth(z))     elseif getPlayerStorageValue(z, 8402) > -1 then         return setPlayerStorageValue(z, 8402, -1) and doCreatureAddHealth(z, -getCreatureHealth(z))     end abaixo de:
local pk = getCreatureSummons(cid)[1] if not isCreature(pk) then return true end adicione:    if getPlayerStorageValue(pk, 8401) > -1 then         return setPlayerStorageValue(pk, 8401, -1) and doCreatureAddHealth(pk, -getCreatureHealth(pk))     elseif getPlayerStorageValue(pk, 8402) > -1 then         return setPlayerStorageValue(pk, 8402, -1) and doCreatureAddHealth(pk, -getCreatureHealth(pk))     end data/creaturescripts/scripts, exp2.0.lua: troque:    if valor >= getCreatureHealth(cid) then         if isInArray(cannotKill, combat) and isPlayer(cid) then             valor = getCreatureHealth(cid) - 1         else             valor = getCreatureHealth(cid)          end     end por:    local config = {         sturdy = {                    --Pokémons que possuem a habilidade Sturdy. Configuração: ["nome_do_pokemon"] = lookType,             ["Aggron"] = lookType,         },         cd = 30,                      --Cooldown da habilidade.         duration = 8,                 --Duração, em segundos, do Sturdy.         storages = {             db = 8401,             s = 8402,             s_cd = 8403,         },     }     if getPlayerStorageValue(cid, config.storages.s) > -1 then         return false     end     local hp = getCreatureHealth(cid) - valor     if not isPlayer(cid) then         if hp <= 1 then             if config.sturdy[getCreatureName(cid)] then                 local b = true                 if isSummon(cid) then                     local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)                     if ball and getCD(ball.uid, "sturdy") > 0 then                         b = false                     end                 end                 if b then                     if hp < 1 then                         doCreatureAddHealth(cid, hp < 0 and (hp * -1) + 1 or 1)                     end                     setPlayerStorageValue(cid, config.storages.s, 1)                     if isSummon(cid) then                         local ball = getPlayerSlotItem(getCreatureMaster(cid), 8)                         if ball then                             setCD(ball.uid, "sturdy", config.duration + config.cd)                          end                     end                     doSetCreatureOutfit(cid, {lookType = config.sturdy[getCreatureName(cid)]}, config.duration * 1000)                     addEvent(function()                         if isCreature(cid) and getPlayerStorageValue(cid, config.storages.s) > -1 then                             setPlayerStorageValue(cid, config.storages.s, -1)                             doCreatureAddHealth(cid, -getCreatureHealth(cid))                         end                     end, config.duration * 1000)                 end             end         end     end     if valor >= getCreatureHealth(cid) then         if isInArray(cannotKill, combat) and isPlayer(cid) then             valor = getCreatureHealth(cid) - 1         else             valor = getCreatureHealth(cid)              if not isPlayer(cid) and getPlayerStorageValue(cid, config.storages.db) > -1 then                 docastspell(cid, "DB")              end         end     end data/lib, newStatusSyst.lua: Troque: doCreatureAddHealth(cid, -damage, 15, COLOR_BURN) por:    if getPlayerStorageValue(cid, 8402) == -1 then         doCreatureAddHealth(cid, -damage, 15, COLOR_BURN)       end Troque:
doCreatureAddHealth(cid, -dano, 8, COLOR_GRASS)   por:
   if getPlayerStorageValue(cid, 8402) == -1 then         doCreatureAddHealth(cid, -dano, 8, COLOR_GRASS)       end Troque:
       doCreatureAddHealth(cid, -damage)         doSendAnimatedText(getThingPos(cid), "-"..damage.."", 144)         doSendMagicEffect(getThingPos(cid), 45)     ------         local newlife = life - getCreatureHealth(cid)         if newlife >= 1 and attacker ~= 0 then             doSendMagicEffect(getThingPos(attacker), 14)             doCreatureAddHealth(attacker, newlife)             doSendAnimatedText(getThingPos(attacker), "+"..newlife.."", 32)         end por:
   if getPlayerStorageValue(cid, 8402) == -1 then         doCreatureAddHealth(cid, -damage)         doSendAnimatedText(getThingPos(cid), "-"..damage.."", 144)         doSendMagicEffect(getThingPos(cid), 45)     ------         local newlife = life - getCreatureHealth(cid)         if newlife >= 1 and attacker ~= 0 then             doSendMagicEffect(getThingPos(attacker), 14)             doCreatureAddHealth(attacker, newlife)             doSendAnimatedText(getThingPos(attacker), "+"..newlife.."", 32)         end      end

ATUALIZAÇÃO 09/09/2016!
Fala galera!
Bom venho atualizar este tópico que tem sido bem utilizado por todos, porém continha uma estrutura bem antiga/desatualizada.
Graças a um amigo Ivens Pontes que refez todo o sistema vou postar agora a nova atualização. Lembrando que esse sistema é feito baseado no Gesior ACC 2012.
 
1 - Se você utiliza linux é necessário ter instalado o php5-curl, mais abaixo irei deixar um comando completo:
apt-get install php5-mysql php5-curl php5-gd php5-intl php-pear php5-imagick php5-imap php5-mcrypt php5-memcache php5-pspell php5-recode php5-snmp php5-sqlite php5-tidy php5-xmlrpc php5-xsl [ATENÇÃO] após a instalação reinicie seu apache ou nginx.
 
2 - Acesse sua conta PagSeguro e nesse link cadastre o seu link de retorno e gere sua token em integrações.
http://seusite.com/retpagseguro.php 3 - Abra seu config.php e adicione as seguintes tags:
# PAGE: donate.php $config['site']['usePagseguro'] = true; //true show / false hide $config['site']['usePaypal'] = true; //true show / false hide $config['site']['useDeposit'] = true; //true show / false hide $config['site']['useZaypay'] = true; //true show / false hide $config['site']['useContenidopago'] = true; //true show / false hide $config['site']['useOnebip'] = true; //true show / false hide # Pagseguro config By IVENSPONTES $config['pagSeguro']['email'] = "[email protected]"; //Email Pagseguro $config['pagSeguro']['token'] = "YOURTOKENHERE"; // TOKEN $config['pagSeguro']['urlRedirect'] = 'http://seusite.com/?subtopic=donate&action=final'; //turn off redirect and notifications in pagseguro.com.br $config['pagSeguro']['urlNotification'] = 'http://seusite.com/retpagseguro.php'; //your return location $config['pagSeguro']['productName'] = 'Premium Points'; $config['pagSeguro']['productValue'] = 1.00; // 1.50 = R$ 1,50 etc... $config['pagSeguro']['doublePoints'] = false; ## Double points - true is on / false is off $config['pagSeguro']['host'] = 'localhost'; ## YOUR HOST $config['pagSeguro']['database'] = 'gesior860'; ## DATABASE $config['pagSeguro']['databaseUser'] = 'root'; ## USER $config['pagSeguro']['databasePass'] = ''; ## PASSWORD [ATENÇÃO] Leia atentamente e preencha todos os campos corretamente para não haver falhas imprevistas.
 
MySQL CODE:
CREATE TABLE `pagseguro_transactions` ( `transaction_code` VARCHAR( 36 ) NOT NULL , `name` VARCHAR( 200 ) DEFAULT NULL , `payment_method` VARCHAR( 50 ) NOT NULL , `status` VARCHAR( 50 ) NOT NULL , `item_count` INT( 11 ) NOT NULL , `data` DATETIME NOT NULL , UNIQUE KEY `transaction_code` ( `transaction_code` , `status` ) , KEY `name` ( `name` ) , KEY `status` ( `status` ) ) ENGINE = MYISAM DEFAULT CHARSET = latin1; 4 - Vou disponibilizar um download com alguns arquivos que devem ficar localizados na pasta www/html ou pra você que usa windows htdocs.
html-pag-files1.zip
Contém:
+/custom_scripts/PagSeguroLibrary +/dntpagseguro.php +/retpagseguro.php 5 - Mais uma vez vamos fazer o mesmo procedimento só que agora vamos adicionar os seguintes arquivos na pasta pages.
pages.zip
Contém:
+/donate_forms/files.php +/donate.php  
Bom é isso, faça um pequeno teste, comente e rep+.
 
Créditos:
Ivens Pontes

Bom sou iniciante e nesse topico so vou postar minhas tentativas de remakes de pokemons.
os remakes podem ter uma mudança consideravel ou somente o pintura!
avaliem!
                 <antes><Depois>
 
Caterpie        
Metapod              
Torkoal         
Oddish              
Grimer                
 
Camerupt                                    
 
Para ver melhor.
http://i.imgur.com/PHge5Wz.png
http://i.imgur.com/Vmf1vIy.png
http://i.imgur.com/VFd9Hoq.png
http://i.imgur.com/0IqhPbv.png
http://i.imgur.com/xN8flri.png
http://i.imgur.com/aAHwHGc.png
 
 
SHINYS:
 
Camerupt   
 
http://i.imgur.com/XttzKBt.png

Contem: Espeon, Flareon, Jolteon, Gallade, Heracross, Kangaskhan, Miltank, Rhydon, Mr. Mime, Snorlax, Togekiss, Umbreon e entre outros em formato obd.
Obs: Está faltando alguns corpses.
 
Print:

 
 
Download: Mega
 
 
 
Créditos: PxG - PAdventures

Fala galera, tava navegando aqui no meu PC e encontrei um Arquivo .txt, com links para downloads de alguns servidores. E no mesmo achei o DarkXPoke. A DxP(DarkXPoke) era um Projeto que o Smix e sua Equipe vinha desenvolvendo. O Servidor contem sistemas variados da PxG. Um Cliente excepcional e muitas outras coisas.
 
(Não sei se já possui esse servidor no TK, mas..)
 
Bom, sobre o servidor, contem esses sistemas que eu saiba.
TV Cam System
Duel System
Icon System igual a PxG.
Sistema de Shinys
(se não me engano, possui level system, não lembro).
AutoLoot Igual PxG
Poke Flutes
Nick System
Addon System
Novos Remakes
Shiny Ditto
Smeagle System
Clan System
Golden Arena
Cla's
Cyber Wolrd Quest
Rocket and Police
 
Atualizações postadas por Smix:
 



 



 
Por enquanto, só me lembro disso, qualquer coisa, se eu me lembrar, edito o tópico. UHEUEH
 
Como qualquer outro Servidor, o DxP também tem seus "bug's". Eu baixei ele aqui pra ver como tava e tal, dai o Servidor tava todo lagado, até o cliente passava em media 7 segundos para executar meu comando.
 

 
Vídeo demonstrando o servidor feito por Smix e Team.

https://www.youtube.com/watch?v=LRZFUFCwIMA

 
 
Download: DarkXPoke Serve.
Créditos: Todos ao Smix e Team.  
OBG: vá em data/wolrd tem uma parta la com o nome, mapa antigo, ou backup, basta copiar e jogar na world, e mudar no config.lua.

[MOD] Catch Window v1.3
 
Bom.. todos conhecem a nova janela, que quando algum jogador captura um pokemon, que nunca capturou antes, abre na tela informando quantas pokebolas (PokeBalls, GreatBalls, SuperBalls e UltraBalls), o jogador gastou para capturar aquele pokemon, e mostra também quanto de experiencia o jogador ganhou por capturar aquele pokemon.
 
Instalação.
Por enquanto o PDA, é o único servidor que está adaptada no tópico, se alguém adaptar para outros servidores, e quiser compartilhar, será muito bem vindo. Obrigado
 
Pokemon Dash Advanced
Vá na pasta Lib / Catch System.lua, e procure por:
doAddPokemonInCatchList(cid, poke) E abaixo adicione:
    CW_Count(cid, poke, typeee)     CW_Caught(cid, poke) Agora procure por:
doIncreaseStatistics(poke, true, false) E abaixo adicione:
CW_Count(cid, poke, typeee) Agora, vá na pasta Lib / Crie um arquivo chamado "CatchWindow_lib.lua".
E dentro adicione -> Link Direto (PasteBin) <- Atualizado v1.3 !
 
 
Agora baixe o arquivo"CatcherWindow.rar", e extrai-a os arquivos dentro da pasta MODS da pasta do OTClient.
 
Editando...
 
No arquivo que voce colocou na LIB, tem uma tabela chamada "CW_Pokes", lá voce adiciona os pokemons e os configura.
["bulbasaur"] = {DB_Balls = 500001, DB_PK = 900001, ID_Portrait = 11989, P_Experience = 5000}, Legenda:
 
[NomeDoPokemon] = {DB_Balls = Numero da storage, que irá ficar salvo as balls usadas.
DB_Pk, Numero da storage, que irá ficar salvo se o pokemon foi capturado ou não.
ID_Portrait = Item ID do Portrait de cada pokemon
P_Experience = A quantidade de experiencia que o jogador irá ganhar ao capturar este pokemon.}
 
Vídeo:
https://www.youtube.com/watch?v=9ERSelYANFY&feature=youtu.be
 
Galera, eu estou com uma meta de conseguir 30 rep+ neste tópico, GO!
 
Créditos: Tony Araújo (OrochiElf) 100%
catcherWindow.rar