KarlKalvin

Usa esse:
 
 
 

Não... vou te explicar o "mais ou menos"
 
Vamos dizer que dentro do configuration.lua existe várias maçãs, e dentro de outros arquivos do servidor como na pasta actions/movements/creaturescripts/globalevents em fim... todos os arquivos .lua de  todas essas pastas tem funções, cada função faz uma coisa porém existe função que precisa capturar uma maça, e essa maça foi configurada dentro da pasta configuration.lua então para o servidor funcionar não depende só do configuration.lua depende também das funções dos outros arquivos.

Fora da source, já é auto configurado se você estiver usando um char que não seja GM/GOD apenas player, ali teria que estar funcionando normalmente.

Bom, o título do tópico já diz quase tudo né?
Muitos tópicos tem price só de loot, ou só de pokémon e com códigos contendo coisas desnecessárias então...
Não vou falar muito, nem prolongar.
A base que usei é DxP então ela funciona 100% com a base.
 
Primeiro vá no look.lua adicione essa tabela no começo do script:
 
 
 
Agora no mesmo arquivo, procure:
 
 
Você vai remover essa função toda até o local boost e vai trocar por essa...
 
 
Agora vamos ao LOOT, procure pelo ultimo :
 
 
E adicione em cima dele:
 
 
 
Para editar as tabelas fica no arquivo data/lib/107-main tables.lua.
 
Créditos: Kalvin Karl
Favor não postar em outro fórum sem os créditos... (:

Não fiz muitos ajustes e também não fiz muitos testes mas está ai para quem já quer começar, começa do básico.
O nome do tópico já diz tudo então primeiramente seu OTc tem que ter opcodes, após adicionar o opcode...
 
 
modules/gamelib/opcodes.lua
 
 
 
 
Após isso vá até a pasta modules e crie uma pasta chamada game_spellm nela você vai ter que criar 4 arquivos 1ª:
 
configs.lua
 
 
 
 
spellm.lua
 
 
 
 
spellm.otui
 
 
 
 
Finalmente spellm.otmod
 
 
 
 
Lembrando: Para fazer a principal edição, você vai editar no configs.lua, está de acordo com as vocations. E quando quiser adicionar mais quadros de spells, tem que adicionar no OTUI.
 
Print:
 

 
Créditos:
 
Hundanger - Criador
Kalvin - Edição

Boa Noite Galera do EKZ! bom eu adaptei uma source no famoso Cyan ja que com vários servidores bons postados continuam usando o Cyan ... então é isso 
 
CREDITOS:
Brun - Por Criar o Servidor Slicer - Por Editar o Servidor Mulurka - Pelas outfits Stylo - Pelo tuto do ícone system Noninhu - Por ajudar em alguns spells Dandanrvb - Pelos scripts do icone system Erondino - Por algumas caves ih é só bjundão a all Tioj - Pelas edições Kuuhaku - Pela cave dos geot . AnnaFeeh - Pelo script do ditto system pxg Vudi - Por ter postado originalmente Gabrielbsales pedrojosex - Por ter editado um pouco mais Jairkevick - por ter modificado/editado a base.  
OBS: todos os helds estão funcionando perfeitamente 
 
 
     
 
 
• Menu:
├ Informações;
├ Edições;
├ Erros;
├ Prints;
├ Mapa
├ Download;
├ Atualização;
├ Utilitários;
└ Créditos.
 
                                      
                                                   
 
 • Informações Básicas •
 
 
 
 
 
 
 
• Edições / Ajustes •
 
 
 
 
 

 
• Erros do Servidor •
 
 
 
 
 

 
• Prints•
 
 
 
 
 
 
 
• MAPA •
 
 
 
 
 

 
• Downloads •
 
 
 

Primeiro mude seu config.php para esse:
 
 

 
 
Agora vá no SQL da sua database e adicione isso:
 


 
Caso dê erro se tentar adicionar todos de vez, adicione um por 1 alter table.
E pronto!

Não fiz muitos ajustes e também não fiz muitos testes mas está ai para quem já quer começar, começa do básico.
O nome do tópico já diz tudo então primeiramente seu OTc tem que ter opcodes, após adicionar o opcode...
 
 
modules/gamelib/opcodes.lua
 
 
 
 
Após isso vá até a pasta modules e crie uma pasta chamada game_spellm nela você vai ter que criar 4 arquivos 1ª:
 
configs.lua
 
 
 
 
spellm.lua
 
 
 
 
spellm.otui
 
 
 
 
Finalmente spellm.otmod
 
 
 
 
Lembrando: Para fazer a principal edição, você vai editar no configs.lua, está de acordo com as vocations. E quando quiser adicionar mais quadros de spells, tem que adicionar no OTUI.
 
Print:
 

 
Créditos:
 
Hundanger - Criador
Kalvin - Edição

Não fiz muitos ajustes e também não fiz muitos testes mas está ai para quem já quer começar, começa do básico.
O nome do tópico já diz tudo então primeiramente seu OTc tem que ter opcodes, após adicionar o opcode...
 
 
modules/gamelib/opcodes.lua
 
 
 
 
Após isso vá até a pasta modules e crie uma pasta chamada game_spellm nela você vai ter que criar 4 arquivos 1ª:
 
configs.lua
 
 
 
 
spellm.lua
 
 
 
 
spellm.otui
 
 
 
 
Finalmente spellm.otmod
 
 
 
 
Lembrando: Para fazer a principal edição, você vai editar no configs.lua, está de acordo com as vocations. E quando quiser adicionar mais quadros de spells, tem que adicionar no OTUI.
 
Print:
 

 
Créditos:
 
Hundanger - Criador
Kalvin - Edição

Algo legal para vocês que tinha no meu server SxR e em nenhum outro ( NA MINHA BASE SXR JÁ CONTEM ESSAS SPRITES ). alguns flys/rides de lendários e megas e alguns novos pokemons
 
segue algumas print do que tem dentro da pasta: ( Todos em OBD )













Pokemons Para o Adm.rar

Tem como adicionar sim... estou terminando de editar aqui e vou postar pra vocês.

Você quer aumentar a força dos seus respectivos pokémons pelo wildLvl né? se você por 1000 ali o poke vai ficar bem mais forte que um de 100 não é isso que você quer?
Se é isso que você quer você vai na lib/levelsystem.lua
logo no começo tem isso
 
 
Pronto agora quando você editar no wildLvl lá a força vai ser diferenciada!
Deixa assim:
 
 

Você quer aumentar a força dos seus respectivos pokémons pelo wildLvl né? se você por 1000 ali o poke vai ficar bem mais forte que um de 100 não é isso que você quer?
Se é isso que você quer você vai na lib/levelsystem.lua
logo no começo tem isso
 
 
Pronto agora quando você editar no wildLvl lá a força vai ser diferenciada!
Deixa assim:
 
 

Eu já li os códigos que você utilizou, é um bom conteúdo mas pra minha base funciona diferente o sistema de Price é uma linha checando uma tabela.. já oque eu preciso já é mais complexo é uma função checando uma tabela antes de checar outra.
 
Não me ajuda, mas é um bom conteúdo. Rep+ pela iniciativa!

Yo boyz!
Eu estava procurando um Addon System funcional e vi que todos tinham bugs, então eu peguei um código que achei em outro fórum, corrigi os bugs e fiz para que o sistema funcione com fly, ride, surf, look e que o addon suma quando o pokémon evoluir. Também é possível substituir um addon por outro, sem que o pokémon fique com o addon antigo.
São muitos arquivos envolvidos, então, se eu esquecer algo e o sistema não esteja 100%, por favor, me fale.
Deixei alguns exemplos no código para caso você esteja com preguiça e queira testar, além de comentar como adicionar novos addons.
 
OBS: Eu testei apenas em PDA PokexCyan (TFS 0.3.6).
 
 
actions/scripts
nome_arquivo.lua
local addons = {[14876] = {pokemon = "Shiny Charizard" , looktype = 1950},[12344] = {pokemon = "Pidgeot" , looktype = 205},[13990] = {pokemon = "Pidgeot" , looktype = 201},--[ID do item] = {nome do pokémon, looktype},}local function getOldAddon (looktype) for index, value in pairs (addons) do if value.looktype == looktype then return index end endendfunction onUse(cid, item, fromPosition, itemEx, toPosition) local numero = addons[item.itemid].looktype local pb = itemEx.uid local pk = addons[item.itemid].pokemon if not isPokeball(itemEx.itemid) then doPlayerSendCancel(cid, "Você só poder usar este item em uma poke ball.") return true end if getPlayerSlotItem (cid, 8).uid == pb and (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1) then doPlayerSendCancel (cid, "Desmonte do seu pokémon e volte-o para a poke ball.") return true end if getItemAttribute(pb, "addon") and getItemAttribute(pb, "addon") == numero then doPlayerSendCancel(cid, "Seu pokémon já está com este addon.") return true end if #getCreatureSummons(cid) > 0 then doPlayerSendCancel(cid, "Por favor, volte o seu pokémon para a poke ball.") return true end if getItemAttribute(pb, "poke") ~= pk then doPlayerSendCancel(cid, "Desculpe, você não pode adicionar este addon neste pokémon.") return true end if getItemAttribute (pb, "addon") and getItemAttribute (pb, "addon") > 1 then doPlayerSendTextMessage(cid, 27, "Você substituiu um "..getItemNameById (getOldAddon (getItemAttribute (pb, "addon"))).." por um "..getItemNameById (item.itemid).."!") else doPlayerSendTextMessage(cid, 27, "Agora seu pokémon usará este "..getItemNameById (item.itemid).."!") end doRemoveItem(item.uid, 1) doSetItemAttribute(pb, "addon", numero) return trueend  
actions.xml:
<action itemid="13989;12344;13990;ID do item; ID do item;" event="script" value="nome_arquivo.lua"/>  
em actions/order.lua, abaixo de:
if not isCreature(pk) then pk = doCreateMonster(pokemon, backupPos) if not isCreature(pk) then doPlayerSendCancel(cid, "You can't stop flying/riding here.") return true end doConvinceCreature(cid, pk) end  
adicione:
local pb = getPlayerSlotItem(cid, 8).uid local flyAdd = flysAddon[getItemAttribute (pb, "addon")] local rideAdd = ridesAddon[getItemAttribute (pb, "addon")] if flyAdd then if getItemAttribute(pb, "addon") > 1 then doSetCreatureOutfit(pk, {lookType = getItemAttribute (pb, "addon")}, -1) end elseif rideAdd then if getItemAttribute(pb, "addon") > 1 then doSetCreatureOutfit(pk, {lookType = getItemAttribute (pb, "addon")}, -1) end end  
em lib/configuration.lua, será necessário adicionar três tabelas, uma para fly, outra para ride e outra para surf. Nesta tabela, o nome do pokémon não é requirido, o que talvez faça você se perder. Se você achar necessário, comente com "--" o nome do pokémon.
Exemplo:
[205] = {540}, -- Pidgeot[850] = {210}, -- Dragonair procure por: flys
e acima disso adicione:
flysAddon = {[205] = {540},[201] = {541},--[número do looktype do addon] = {looktype do addon voando}}  
procure por: rides
e acima disso adicione:
ridesAddon = {[556] = {555},--[número do looktype do addon] = {looktype do addon montado}}  
procure por: rides
e acima disso adicione:
surfsAddon = {[201] = {541},[552] = {553},--[número do looktype do addon] = {looktype do addon nadando}}  
em lib/order.lua, procure por:
elseif skill == "fly" then  
e abaixo adicione:
local pb = getPlayerSlotItem(cid, 8).uid if getItemAttribute(pb, "addon") < 1 then doSetCreatureOutfit(cid, {lookType = flys[getPokemonName(getCreatureSummons(cid)[1])][1] + 351}, -1) else doSetCreatureOutfit(cid, {lookType = flysAddon[getItemAttribute (pb, "addon")][1]}, -1) end  
depois, no mesmo arquivo, procure por:
elseif skill == "ride" then  
e abaixo adicione:
local pb = getPlayerSlotItem(cid, 8).uid if getItemAttribute(pb, "addon") < 1 then doSetCreatureOutfit(cid, {lookType = rides[getPokemonName(getCreatureSummons(cid)[1])][1] + 351}, -1) else doSetCreatureOutfit(cid, {lookType = ridesAddon[getItemAttribute (pb, "addon")][1]}, -1) end  
em movements/surf.lua, procure por:
if getPlayerStorageValue(cid, 6598754) == 1 or getPlayerStorageValue(cid, 6598755) == 1 then doPlayerSendCancel(cid, "You can't do it while in the PVP Zone!") --alterado v1.7 doTeleportThing(cid, fromPosition, false)return trueend  
e abaixo adicione:
local pb = getPlayerSlotItem(cid, 8).uid if getItemAttribute(pb, "addon") < 1 then doSetCreatureOutfit(cid, {lookType = surfs[getPokemonName(getCreatureSummons(cid)[1])].lookType}, -1)else doSetCreatureOutfit(cid, {lookType = surfsAddon[getItemAttribute(pb, "addon")][1]}, -1)end  
logo abaixo disso, vocês vão encontrar:
(isso não envolve o funcionamento do sistema de addon, mas é um bug que eu achei no meu surf. Todos os pokémon tinham velocidade fixa de 1500.)
local speed = 75 + PlayerSpeed + getSpeed(getCreatureSummons(cid)[1]) * 8 * speedRate  
substitua por:
local speed = 75 + PlayerSpeed + surfs[getPokemonName(getCreatureSummons(cid)[1])].speed * 8 * speedRate  
no mesmo arquivo, procure por:
if getItemAttribute(item.uid, "nick") then doCreatureSay(cid, getItemAttribute(item.uid, "nick")..", I'm tired of surfing!", 1) else doCreatureSay(cid, getItemAttribute(item.uid, "poke")..", I'm tired of surfing!", 1) end doSummonMonster(cid, pokemon) local pk = getCreatureSummons(cid)[1]  
e abaixo adicione:
local pb = getPlayerSlotItem(cid, 8).uid if surfsAddon[getItemAttribute(pb, "addon")] then if getItemAttribute(pb, "addon") > 1 then doSetCreatureOutfit(pk, {lookType = getItemAttribute(pb, "addon")}, -1) end end  
 
em actions/goback.lua, procure por:
doSendMagicEffect(getCreaturePosition(pk), effect)  
abaixo adicione:
local pk = getCreatureSummons(cid)[1] local pb = getPlayerSlotItem(cid, 8).uid local look = getItemAttribute(pb, "addon") if not look then doSetItemAttribute(pb, "addon", 0) end if look and look > 0 then doSetCreatureOutfit(pk, {lookType = look}, -1) end  
em actions/evolution.lua, procure por:
local ball = getPlayerSlotItem(cid, 8).uid  
há 12 linhas iguais a essa nesse arquivo e embaixo de TODAS elas, adicione:
doItemSetAttribute (ball, "addon", 0)  
em creaturescripts/look.lua, procure por:
if getItemAttribute(thing.uid, "gender") == SEX_MALE then table.insert(str, "It is male.") elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then table.insert(str, "It is female.") else table.insert(str, "It is genderless.") end  
se novamente, esse código aparece duas vezes no arquivo.
E também, novamente, embaixo dos dois, adicione:
if getItemAttribute(thing.uid, "addon") then if flysAddon[getItemAttribute (thing.uid, "addon")] or ridesAddon[getItemAttribute (thing.uid, "addon")] or surfsAddon[getItemAttribute (thing.uid, "addon")] then if getItemAttribute(thing.uid, "addon") > 1 then table.insert(str, " Has the addon "..getItemNameById (getAddonId (getItemAttribute (thing.uid, "addon")))..".") end end end  
E no começo desse arquivo, adicione:
local addons = {[14876] = {pokemon = "Shiny Charizard" , looktype = 1950},[12344] = {pokemon = "Pidgeot" , looktype = 205},[13990] = {pokemon = "Pidgeot" , looktype = 201},--[ID do item] = {nome do pokémon, looktype},}local function getAddonId (looktype) for index, value in pairs (addons) do if value.looktype == looktype then return index end endend  
a tabela "addons" deve ser a mesma que a do actions/addon.lua. Então, quando você adicionar algo no addon.lua, deverá adicionar também no look.lua.
 
em login.lua, procure por:
doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1)  
e substitua por:
if getItemAttribute(item.uid, "addon") < 1 then doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1) else doSetCreatureOutfit(cid, {lookType = flysAddon[getItemAttribute (item.uid, "addon")][1]}, -1) end  
procure por:
doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1  
substitua por:
if getItemAttribute(item.uid, "addon") < 1 then doSetCreatureOutfit(cid, {lookType = surfs[poke].looktype + 351}, -1) else doSetCreatureOutfit(cid, {lookType = surfsAddon[getItemAttribute (item.uid, "addon")][1]}, -1) end  
procure por:
doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1)  
substitua por:
if getItemAttribute(item.uid, "addon") < 1 then doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1) else doSetCreatureOutfit(cid, {lookType = ridesAddon[getItemAttribute (item.uid, "addon")][1]}, -1) end  

Eu fiz um script de preço no look e um cara com a base DxP disse que funcionou, então presumo que sim.
Sei que é broxante ver o tanto de linhas que tem que adicionar para "instalar" o sistema que eu fiz para TALVEZ funcionar, mas eu acho que funciona sim.

function onUse(cid, item, frompos, item2, topos) print("inicio") local chance = 10 -- chance de cortar local madeiras = {17180, 17081, 17182, 17183} -- item que o player irá ganhar local premio = madeiras[math.random(1, #madeiras)] local texts = {"Coletando Informações..."} -- texto que irá aparecer quando usar o item local randoms = texts[math.random(1,#texts)] local time = 2 -- Segundos de outfit coletando informações local outfit = 38 -- ID da Outfit Male. local outfit2 = 31 -- ID da Outfit Female. if isRiderOrFlyOrSurf(cid) then return doPlayerSendCancel(cid, MSG_NAO_E_POSSIVEL) end local name = getItemNameById(item2.itemid) if not name:find("fainted") then doPlayerSendCancel(cid, MSG_NAO_E_POSSIVEL) return true end print("nao esta de fly") if getPlayerStorageValue(cid, 12015) ~= 1 then doPlayerSendCancel(cid, "Nao pode.") return true end if getPlayerSex(cid) == 1 then doSetCreatureOutfit(cid, {lookType = outfit, lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, time*1*1000) print("male") else doSetCreatureOutfit(cid, {lookType = outfit2, lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, time*1*1000) print("female") end doCreatureSetNoMove(cid, true) addEvent(function() if not isPlayer(cid) then return true end doCreatureSetNoMove(cid, false) end, 1000) local name = getItemNameById(item2.itemid) if name:find("fainted") and item2.actionid ~= 4432 then print("isCorpse and not have a actionid") if math.random(1,100) >= chance then print("chance >") doItemSetAttribute(item2.uid, "aid", 4432) doSendAnimatedText(topos, ""..randoms.."", TEXTCOLOR_GREEN) item = doCreateItemEx(premio, math.random(2,5)) doItemSetAttribute(item, "unique", getCreatureName(cid)) doPlayerAddItemEx(cid, item) addEvent(function() doCreatureSetNoMove(cid, false) doPlayerSendTextMessage(cid, 22, "Você coletou informações e ganhou pontos.") print("nao coletou") end, time * 1000) else print("chance < ") doItemSetAttribute(item2.uid, "aid", 4432) doSendAnimatedText(topos, ""..randoms.."", TEXTCOLOR_GREEN) addEvent(function() doCreatureSetNoMove(cid, false) doPlayerSendTextMessage(cid,22,"Você não conseguiu coletar.") print("nao coletou") end, time * 1000) end end return trueend Usa esse script, executa o action e me manda print do que aparece na tela...

Algo legal para vocês que tinha no meu server SxR e em nenhum outro ( NA MINHA BASE SXR JÁ CONTEM ESSAS SPRITES ). alguns flys/rides de lendários e megas e alguns novos pokemons
 
segue algumas print do que tem dentro da pasta: ( Todos em OBD )













Pokemons Para o Adm.rar

Use essa Database para o seu site
 
Database DXP.rar
 
Ai é só recriar os chars novamente que vai estar com o depot corretamente.

Here (bugou a identação, ignora ela pls ehauehahu):
function onUse(cid, item, frompos, item2, topos)local chance = 10 -- chance de cortarlocal madeiras = {17180, 17081, 17182, 17183} -- item que o player irá ganharlocal premio = madeiras[math.random(1, #madeiras)]local scanningFailCanRepeat = false --ponha true se quiser que de para escanear novamente se o escaneamento falhar. Se botar false, só vai dar pra escanear o mesmo corpse 1x, independente da falha ou sucessolocal transformItem = 0local texts = {"Coletando Informações..."}  -- texto que irá aparecer quando usar o itemlocal randoms = texts[math.random(1,#texts)]local time = 2 -- Minutos para crescer novamentelocal tempo = 1local outfit = 38                   -- ID da Outfit Male.local outfit2 = 31                  -- ID da Outfit Female.if isRiderOrFlyOrSurf(cid) then   return doPlayerSendCancel(cid, MSG_NAO_E_POSSIVEL)end   local name = getItemNameById(item2.itemid)    if not name:find("fainted") then doPlayerSendCancel(cid, MSG_NAO_E_POSSIVEL) return trueend if getPlayerStorageValue(cid, 12015) ~= 1 thendoPlayerSendCancel(cid, "Nao pode.")return trueend   if getPlayerSex(cid) == 1 then      doSetCreatureOutfit(cid, {lookType = outfit, lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, time*1*1000)  --  Tempo em que a outfit estará trocada.   else       doSetCreatureOutfit(cid, {lookType = outfit2, lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, time*1*1000)  --  Tempo em que a outfit estará trocada.enddoCreatureSetNoMove(cid, true)addEvent(function()    if not isPlayer(cid) then return true end    doCreatureSetNoMove(cid, false)end, 1000)    local name = getItemNameById(item2.itemid)    if name:find("fainted") then                    if math.random(1,100) >= chance then                        doSendAnimatedText(topos, ""..randoms.."", TEXTCOLOR_GREEN) doItemSetAttribute(item2.uid, "name", "scanned Pokémon corpse") --modifica aqui o nome que o corpse do Pokémon vai ficar pós escaneado                        item = doCreateItemEx(premio, math.random(2,5))                        doItemSetAttribute(item, "unique", getCreatureName(cid))                        doPlayerAddItemEx(cid, item)                        addEvent(doCreatureSetNoMove, cid, false)                        addEvent(doPlayerSendTextMessage, cid, 22, "Você coletou informações e ganhou pontos.")    else if scanningFailCanRepeat == false then doItemSetAttribute(item2.uid, "name", "scanned Pokémon corpse") --modifica aqui o nome que o corpse do Pokémon vai ficar pós escaneado end                        doSendAnimatedText(topos, ""..randoms.."", TEXTCOLOR_GREEN)                        addEvent(doCreatureSetNoMove, cid, false)                        addEvent(doPlayerSendTextMessage, cid,22,"Você não conseguiu coletar.")                end            end    return trueend  

To dando upload em um site de terceiros para que resolva! jaja posto o link! 
 
http://www.mediafire.com/download/19ypuu4m61y4jl8/sxr.rar
 
 
Pois é, mas dentro do client/server tem um pequeno e bom que pode ser aproveitado em outro lugar!

Obrigado, aprovado?

De nada! use como quiser!

Quer o CLIENT Completo? toma ai então.
 
CLIENT.rar
 
Só alterar seu IP na pasta Modules/Entergame.Lua
Procure por "SEUIP"
 
Incrível também que só reclamam, agradecer...nada!