Marombalexx

OK, isto não é exatamente um sistema, visto que é composto por um único arquivo com um único callback, mas enfim.
Antes de começar a desenvolver o tópico, digo-lhes: o código é para poketibia, não outros derivados ou Tibia comum.
Introdução:
 
A pedidos de um amigo, resolvi escrever este script. Por não programar em OTClient, optei por escrevê-lo em uma talkaction. Para aqueles que não conhecem o sistema, consiste em praticidade para as transformações do Ditto: ao invés de repetir o cansativo processo de procurar o pokémon que deseja-se copiar, você pode simplesmente salvá-lo na memória do Ditto para, sempre que quiser, transformá-lo em um único comando. 
Você pode configurar quantos slots de "memória" quiser.
Para usar os comandos, você deve colocar uma pokebola com um Ditto no slot 8/feet (a.k.a "pokeball slot"). Alguns, no entanto, necessitam também que o pokémon esteja "solto".
Comandos:
/memory check Use este comando para verificar os atuais slots de seu Ditto. /memory forget [slot] Use este comando para deletar uma memória salva, respectiva ao slot indicado. Ex.: /memory forget 1 /memory save [slot] Use este comando para salvar uma memória, respectiva ao slot indicado. A memória salva será do pokémon que seu Ditto estará transformado no momento. Ex.: /memory save 3 /memory [slot] Use este comando para transformar seu Ditto no pokémon que estiver armazenado no slot indicado. Ex.: /memory 2 PS: Você também pode usar !memory.
Instalação:
 
Em data/talkactions/scripts, crie um arquivo com extensão .lua, nomeie-o dittomemory e coloque o seguinte conteúdo:



Em data/talkactions, abra o arquivo talkactions.xml e coloque a seguinte tag: <talkaction words="/memory;!memory" event="script" value="dittomemory.lua"/> Versão testada: 8.54 Servidor testado: PDA by Slicer, versão 1.9 É um código bem simples, escrito em poucos minutos. Resolvi postá-lo pois gostei do resultado apresentado.  Para alguns, pode não ser tão útil; para outros, espero que sim. É isso aí, até mais.

Seu client possui sprites próprias?
Se sim, vá em file - preferences - client version, e no diretório do Tibia 8.54 seleciona a pasta do seu client próprio 8.54.

Em qual protocolo do Tibia o editor está aberto? (ctrl + P)
Você deve por na pasta do map editor (data/versão) o itens.otb do seu OT (data/items/items.otb) para evitar conflitos na paleta.

Qual a versão que está aberta?
É derivado?

Desenvolvedor de Sprites - This Is Spriting
 
 
Descrição: O curso Desenvolvedor de Sprites tem como objetivo introduzir e preparar o aluno para o mundo do desenvolvimento de games, abordando técnicas utilizadas por profissionais. O aluno formado pelo curso estará apto a planejar, desenvolver e finalizar sprites, sendo possível atuar como Artista Gráfico, Ilustrador, Animador ou Spriter, de forma independente ou prestando serviços para jogos eletrônicos.
 
O diferencial do curso são as aulas em vídeo, facilitando o aprendizado dos alunos com explicações detalhadas.
 
Gratuito!
Módulos: ?
Início: 17/08
 
 
Se você tem o desejo de fazer sprites, essa é sua chance! 
 
 
 
[Módulo I] Aula 1
(o áudio está um pouco baixo, recomendo que usem fone de ouvido)
 
 
 

Introdução
Aula 1
O que é scripting?
Do modo mais simples possível: scripting é o ato de programar. O nome scripting vem do nome "script".
O que é um script?
De um modo geral, um script é um bloco de código escrito em uma linguagem de programação interpretada, ou seja, ele precisa que alguma coisa leia ele e possa "traduzir" seu conteúdo. Lembre-se de que "script" não é um termo específico de Open Tibia Servers.
O que é uma linguagem de programação interpretada?
Os brasileiros falam português, ingleses falam inglês e chineses falam mandarim, e com isso o mundo é composto por várias línguas.
No mundo da programação não é diferente. Existem várias línguas que podem ser usadas, cada uma com uma característica e modo de escrever diferente (Assim como o português é diferente do inglês).
Entre estas linguagens, existem 2 tipos: as linguagens interpretadas e as linguagens compiladas (Não-interpretadas). Podemos fazer uma comparação tosca com a vida real: o português seria uma linguagem interpretada (Nosso cérebro precisa "traduzir" a mensagem), e os desenhos seriam a língua compilada (Nosso cérebro reconhece automaticamente a "mensagem" do desenho).
As linguagens compiladas são aquelas que não precisam ser lidas por nenhum programa, pois "conversam" diretamente com o computador, enquando a linguagem interpretada não consegue se comunicar com o computador, então a linguagem compilada recebe a mensagem do codigo interpretado e traduz numa linguagem que o computador entenda, dai a linguagem interpretada pode conversar com o computador (Desde que alguém traduza suas mensagens).
Voltando para a parte de Open Tibia Servers, a linguagem compilada é a linguagem usada no seu servidor: o .exe no Windows, por exemplo, e a linguagem interpretada são os scripts .lua. O seu servidor compilado vai ler os scripts .lua e traduzir o conteúdo deles para que o computador possa executar o que o script manda.
Se os scripts são escritos em linguagens interpretadas, qual é a linguagem dos script usados nos Open Tibia Servers?
Os Open Tibia Servers usam uma linguagem de programação (Interpretada) chamada Lua, que foi feita aqui no Brasil mesmo.
Características da linguagem de programação Lua:
Linguagem de Programação Interpretada Linguagem de Programação Imperativa ou Programação Procedural Linguagem de Scripts ou Linguagem de Extensão Pequena, Fácil, Leve e Eficiente " Lua foi criada por um time de desenvolvedores do Tecgraf da PUC-Rio, a princípio, para ser usada em um projeto da Petrobras. Devido à sua eficiência, clareza e facilidade de aprendizado, passou a ser usada em diversos ramos da programação, como no desenvolvimento de jogos (a LucasArts, por exemplo, usou a linguagem no jogo Escape from Monkey Island), controle de robôs, processamento de texto, etc. Também é freqüentemente usada como uma linguagem de propósito geral. "
Wikipédia - Lua (Linguagem de Programação)
O que eu preciso para aprender Lua e começar a produzir meus scripts?
Paciência (Embora seja de fácil aprendizado, você vai levar algum tempo para aprender a linguagem)
  Humildade (Nunca se sinta o melhor, nem ridicularize aqueles que tiverem um conhecimento menor que o seu)
  Vontade (Não adianta fazer as coisas sem o menor interesse, você não chegará a lugar nenhum sem vontade)
  Criatividade (O principal para produzir um script é ter a idéia do que você vai fazer)
  Conhecer a Lógica da Programação (Não se preocupe, eu vou ensinar a Lógica da Programação nas próximas aulas.)
  Interpretador Lua (Para testar seus scripts, claro. Você pode usar o seu OTServer para testar, e ainda usar um interpretador Lua para testar seus scripts simples fora do OTServer)
  Editor Lua (Não é realmente necessário, uma vez que você pode usar um editor de textos qualquer, como o bloco de notas, mas ter um Editor Lua vai ajudar muito, e alguns até vêm com um Interpretador Lua junto!)
  Pagar uma taxa de R$ 700,00, afinal, não estou escrevendo estas aulas de graça! (OK, não precisa pagar nada, mas no mínimo poste seus scripts aqui e ajude a seção a crescer ) Onde posso encontrar um Interpretador e/ou Editor Lua?
Como interpretador (No caso de produzir scripts para Open Tibia Servers) você deve usar um servidor próprio, pessoal somente para testar os scripts que você fez, e pode usar também um Interpretador Lua geral, para testar seus scripts fora dos OTServers.
Como Editor Lua você pode usar qualquer editor de textos, mas eu recomendo usar um editor que seja próprio para a linguagem Lua. Existem dois editores que já vem com um Interpretador Lua "embutido". São eles: OTScript Live! [Download] e SciTE (Scintilla) [Download].
Exercício-Tarefa:
Pesquise mais na internet sobre a linguagem Lua, Scripts, etc...
Somente dúvidas serão aceitas aqui! Comentários que não forem dúvidas serão apagados e os autores serão reportados!
Essa aula foi escrita por uma raposa levada Skyen Hasus, todos os créditos são dele.
Aula 2 - Lógica da programação >> Script Live By colex.rar

Pra ajudar vocês que tem base Lendas Pokemon esto li dano a spr é dat Pokepro2 Atualizado Hoji 30/05/2018


 
Download : http://www.mediafire.com/file/syf7asqm8j00tli/Pokepro %2C.rar
Scan   :https://www.virustotal.com/pt/file/b2b41330849da3b3cbf0afa5bd58190de3b11d6d0e83bc894a569ff559daa1e3/analysis/1527717553/

pokeid , é preciso ter no phpmyadmin ou sqlite tbm , se nao da erro na distro , possuo no meu otserv , é uma forma de evitar clones , e com esse id tu pode "bloquear em caso de clones e tal" ,é um otimo sistema hehe

Vo posta apenas pra vim com nick do play basta edita pra aparecer o codigo numérico

           doItemSetAttribute(ball, "nick", "# ".. getPlayerName(cid) .. " #")
 

ta ai seus comandos de House :
 
tenta substituir por este :
 
pode editar ao seu gosto os comandos, fiz aqui agora.
 
Te ajudei ? REP +

Exclusivo! PokeTibia DxP OpenSource praticamente completo com sistemas e funções nunca liberados.
 
ATENÇÃO: Não dou suporte, apenas estou disponibilizando o server para quem quiser continua-lo ou pegar os sistemas. Se alguns grandes aqui do TK quiserem ajudar nos bugs fiquem a vontade, pois este server é praticamente completo, com funções e sistemas nas sources, acho que nunca liberados para o publico.
 Aconselho a trocarem o mapa ou criarem outro por que não testei o mesmo, e não sei se há bugs ou armadilhas.
 
 
 
• Menu:
├ Informações;
├ Bugs;
├ Prints;
├ Download;
└ Créditos.
 
• Informações Basicas •
• Duel System.
• Nick System.
• TV System.
• Autoloot System.
• Block Respaw System.
• Mega Evolução Ssystem.
• Auto Stacking System.
• Player passa por dentro de outros Players(Não sei o nome deste sistema kk).
• Ditto Memory System.
• Player pode usar potions, revive, soltar poke andando sem parar.
• Limite de efeitos aumentados nas sources até 380(Podendo aumentar muito mais)
• Transparência.
• Cliente criptografado(Acompanha OBD único para o cliente).
• Sistemas básicos como fly, ride, surf, order etc.
• Held System(Não tem todos, falta fazer alguns, ja tem o x-luck).
• Fishing trocando o outfit automaticamente.
• Icone System.
• Varias Pokeballs novas.
• Task System.
• Guild System.
E muito+, não testei o servidor todo. podem ter sistemas no server que eu esqueci de colocar aqui na lista.
 
 
 
• Bugs •
Irei postar os que eu sei, podem haver mais.
• Gym System não esta funcionando.
 
Postarei a lista completa de bugs conhecidos e o que ja foi corrigido logo mais.
 
 
• Prints •
 
• Mega Evolução

 
• Ditto Memory.

 
• TV System.

 
• Auto Loot System.

 
• Block Respaw System.

 
• Irei colocar mais prints em breve(Estou com pouco tempo agora).
 
• Downloads•
 
 
 
Alguns antivirus detectam virus, possiveis dlls não reconhecidas, baixem por sua conta em risco, não estou obrigando ninguem a baixar, estou trabalhando no server e nao tive problemas.
Caso tenham problemas na descompactação dos arquivos utilizem o 7zip, compactador que utilizei.
 
• Créditos •
•CipSoft
•Nintendo
•TFS Team
•Dark X Poke
•PXG
•Tom Lukz (Smix)
•Allan Harlen (Kttallan/lordsorte)
•Eduardo Meskita (FuuinFake)
•Noninhouh
•Tony Araujo
•Taiger/Dudu
•Drakopoulos
•Justiceiro751
•Techrlz
•RicardoRox
E a todos que tiveram alguma participação em sistemas, server, site, cliente etc.
 
 
Mais atualizações em breve!!!
 

Bom galera do TK, vim disponibilizar algumas sprites das Mega Evoluções do anime Pokémon
 
Mega Alakazam
 Mega Ampharos [Novo]
Mega Banete [Novo]
Mega Blastoise
Mega Blaziken
Mega Charizard X
Mega Charizard Y
Mega Gengar
Mega Latias [Novo]
Mega Lucario
Mega Tyranitar
 
Print
 

 
 
DOWNLOAD  
 
4SHARED / MEDIAFIRE
 
Créditos.
 
PokeXGames por ter feito a maioria das sprites;
Eu por ter cortado (Mega Latias, Mega Banete), e postado.
 
Atualizado - 17 de outubro de 2014, 22:20.

Para Criar magias, vc vai no pokemon moves.lua, Abre o procura por uma spell que você deseja "imitar" (Você só ira copiar, colar e trocar o efeito). Irei usar de Exemplo a "Earthquake":
 
elseif spell == "Earthquake" then   local eff = getSubName(cid, target) == "Shiny Onix" and 175 or 118  --alterado v2.6.1   local function doQuake(cid) if not isCreature(cid) then return false end if isSleeping(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return false end if isWithFear(cid) and getPlayerStorageValue(cid, 3644587) >= 1 then return true end    doMoveInArea2(cid, eff, confusion, GROUNDDAMAGE, min, max, spell) end   times = {0, 500, 1000, 1500, 2300, 2800, 3300, 3800, 4600, 5100, 5600, 6100, 6900, 7400, 7900, 8400, 9200, 10000}   setPlayerStorageValue(cid, 3644587, 1) addEvent(setPlayerStorageValue, 10000, cid, 3644587, -1) for i = 1, #times do                   --alterado v1.4     addEvent(doQuake, times, cid) end   - Azul: Nome da Spell Vermelho: ID do efeito da spell Ciano: Tipo do Dano que a spell irá causar (DARKDAMAGE, PSYCHICDAMAGE, WATERDAMAGE ....)   ~~ Você terá q copiar a spell e colar abaixo, em Seguida troque o nome da spell em Azul pelo nome que você preferir. ~~Logo Após, onde está Vermelho, Coloque o id do Efeito do Spell (Você pode escolher o Efeito por game fazendo /z 1, /z 2, /z 3, /z 4, etc. ou Abrindo seu Dat Editor ou Object Builder e veja o ID do efeito lá. ~~Mude o efeito da parte em Ciano para o efeito que a spell ira causar(FLYINGDAMAGE, FIGHTINGDAMAGE, ROCKDAMAGE, FIREDAMAGE, GRASSDAMAGE, GHOSTDAMAGE, etc...)   Agora Vá na pasta spells/scripts/ps e Crie um arquivo em lua com o nome da spell que você criou no pokemon moves.lua e adicione isso:  
 
Coloque o mesmo  nome da spell lá na parte Verde.
 
~~Agora, abra o spells.xml e Adicione isso lá nas ultimas linhas:
  <instant name="Nome Da Spell" words="spell301" lvl="1000" mana="0" event="script" value="ps/Nome da spell.lua"></instant>     Espero ter ajudado, Postem suas duvidas sobre o assunto aqui, se houver..  

Apenas pegando o spr e dat e colocando em um otclient qualquer caso se for pokemon procure um otc de pokemon e use como base para seu servidor.
 
Obs: o seu tópico será movido para suporte de clients

Yo boyz, cá estou novamente.
Eu estava procurando um Addon System funcional e vi que todos tinham bugs, então eu peguei um aqui no fórum mesmo, 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 1.0).
 
 
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 end end function 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 true end  
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, 1200}, -- Pidgeot [850] = {210, 800}, -- Dragonair procure por: flys
e acima disso adicione:
flysAddon = { [205] = {540, 1200}, [201] = {541, 1200}, --[número do looktype normal] = {looktype voando, número da tabela abaixo.} }  
procure por: rides
e acima disso adicione:
ridesAddon = { [556] = {555, 30}, --[número do looktype] = {looktype montado, número da tabela abaixo.} }  
procure por: rides
e acima disso adicione:
surfsAddon = { [201] = {541, 10}, [552] = {553, 10}, --[número do looktype] = {looktype nadando, speed da tabela abaixo.} }  
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 true end  
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 end end  
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

Cole os arquivos items.otb e  items.xml do seu servidor dentro da pasta rme/data/8.60.

Então no caso você cria um arquivo chamado viptile.lua
e põe isso :

e no movements.xml põe :

<movevent type="StepIn" actionid="29859" event="script" value="viptile.lua"/>
e no piso que for pra vip,vc põe 29859 no ACTIONID do piso,no mapa.


se no caso for magias,põe isso dentro do script da magia :

local storage = STORAGE DO SEU VIP SYSTEM

caso encontre erros só me avisar!

andresa.

Olá pessoal, trago para vocês um script talkaction que add e remove premium points por comandos in-game.

Primeira, vá em data/talkactions/talkactions.xml e add a tag:
<talkaction words="/addpoints;/removepoints" access="3" script="premium_points.lua"/> Depois crie um arquivo chamado premium_points.lua em data/talkactions/scripts/ e coloque esse código dentro:
function onSay(cid, words, param) local t = string.explode(param, ",") if param == '' then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Missing params.") return true end local player, balance, pid = getPlayerByName(t[1]), t[2], getPlayerByNameWildcard(t[1]) if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "That players doesnt exist or is offline.") return true end if t[2] == null then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Missing ammount of points.") return true end local accountName = getPlayerAccount(player) local accountPoints = db.getResult("SELECT `premium_points` FROM `accounts` WHERE `name` = '" .. accountName .. "' LIMIT 1;") local points = tonumber(accountPoints:getDataInt("premium_points")) local name = getPlayerName(cid) if(words == "/addpoints") then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You added "..balance.." premium points to "..t[1].." account.") doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_ORANGE, "You got "..balance.." premium points from "..name..".") points = (points+balance) db.query("UPDATE `accounts` SET `premium_points` = " .. points .. " WHERE `name`='" .. accountName .. "' LIMIT 1;") elseif (words == "/removepoints") then points = (points-balance) if points < 0 then doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_ORANGE, ""..name.." removed all your premium points.") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You removed all "..t[1].." account premium points.") db.query("UPDATE `accounts` SET `premium_points` = '0' WHERE `name`='" .. accountName .. "' LIMIT 1;") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You removed "..balance.." premium points to "..t[1].." account.") db.query("UPDATE `accounts` SET `premium_points` = " .. points .. " WHERE `name`='" .. accountName .. "' LIMIT 1;") doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_ORANGE, ""..name.." removed "..balance.." premium points from your account.") end end return true end Para usar é simples: /COMANDO PLAYER, QUANTIDADE
 
exemplo: /addpoints Luan, 10
 
Créditos: Shispa
 
Bem simples né pessoal? Espero que ajude, abraços e até mais!

tenta
 
function onStepIn(cid, item, position, fromPosition)
if isMonster(cid) then
doTeleportThing(cid, fromPosition, true)
doSendMagicEffect(getThingPos(cid), 2)
return true
end
if getPlayerGroup(cid) == 6 then
doTeleportThing(cid, fromPosition, true)
doPlayerSendTextMessage(cid, 25, "ops você não é da staff!.")
doSendMagicEffect(getThingPos(cid), 2)
return false
end
doPlayerSendTextMessage(cid, 25, "Bem-vindo(a)!.")
doSendMagicEffect(getThingPos(cid), 12)
return true
end
 
movements.xml
 
<movevent event="StepIn" uniqueid="3003" script="piso staff.lua"/> 
 
3003 é unique que vai no piso pelo mapa editor.
 
entra com player e tenta passar, depois passa com o god pois n testei só fiz!

Desculpe a demora para responder.
Segue o Link
Criando área vip http://tibiaking.com/forum/topic/12853-criando-area-vip/)
Este script já teleporta automaticamente para o templo quando a vip acaba.
Creio eu.

*/r - remove um iten do chao = /r 100 - remove 100 itens de uma vez */t - voltar para o templo = /t nome do char manda o char para o templo */a - anda um sql = /a 50 anda 50 sql */s - invoca um pokemon para você como se tivesse em uma pokeball */i nome do iten - faz ele exemplo- /i ultra ball obs-tbm funciona com id do iten exp-/i 2160 */m nome do pokemon-sumona um pokemon q da loot e exp */n nome do npc-cria um npc no seu lado */c nome do player ou npc - puxa o npc ou o player ate você */goto nome do player,npc,pokemon - vai ate o player,npc,pokemon */close - feicha o server so tutor,gm,cm,god fica online */open - abre o server todos poden entrar */up - sobe un andar a cima de vc */down - desce um andar abaixo de vc */owner nome do player-da a casa para o player */b - manda msg para o server todo exemplo -/b Bem vindo ao blog do erondino */town numero da cidade - vai ate o templo da city exemplo -/town 1 /town 2... */ghost - fica invisivel se vc for gm so os gm,cm,god pode te ver se vc for cm so os cm,god pode te ver mais se vc for god so os god pode te ver */attr group 1,2,3,4,5,6 - promove um player exemplo -quer promove um player para tutor /attr group 2 , para senior tutor /attr group 3 promover para gm /attr group 4 , para cm /attr group 5 , para god /attr group 6 */attr set name "pikachu Ultraball - coloque a poke,great,super,ultra ball na sua frente e aperte enter ai colocara o pikachu na poke,great,super,ultra ball obs-ali esta atualizado para ultra ball para great é Greatball para super Superball para poke ball Pokeball no lugar do pikachu vc poe o nome do pokemon que vc quiser obs-se tem que capturar um pokemon primeiro */attr set name "escreve algo aqui - vire para a placa e aperte enter ai se muda o nome dela * /attr position x y z - coloca uma posição no portal exemplo - /attr position 1000 1000 1000 nao poe virgula */attr health 10000 - Da vida para algun ser vivo se colocar um menos na frente do 10000 tira vida esse comando pode ser usado para matar gods */attr sex - muda o sexo do player 1-Homen 2-Mulher */mode - muda o server de pvp,non pvp > /mode pvp > /mode nonpvp */attr cap - Aumenta a capacidade do player de usar pokemon

Copia e cola em um bloco de notas que fica melhor pra visualizar

So me explica outra coisa como dar rep+ nesse forum??

PokeZot
Olá Galerinha, alguns devem me conheçer, sou o ADM Wolf, criador do "PokeZot".. Hoje venho apresentar a vocês tudo que o servidor tem de bom..Vamos Começar
 
~~Versão 1.0
PokeZot 1.0
OBS: Desculpe pelo tamanho excessivo do servidor, minhas ferramentas que uso no servidor foram junto ai ficou muito pesado. @Atualizado 16/08
 
Abaixo disponibilizo a vocês o Servidor PokeZot 2.0, atualização do 1.0, onde ocorreu varias mudanças, e foi um ótimo trabalho na minha opinião
 
• Menu:
├ Informações; ├ Ediçoes; ├ Erros; ├ Prints; ├ Download; └ Creditos.   Informações  
  Edições  
  Erros  
  Prints  
  Downloads  
  Créditos  
  Então, é isso.. Espero que gostem e aproveitem bastante. E se Gostou, por favor Deixe um "Gostei" aqui que me Ajuda Muito Até a Próxima Galera

Amigo Esse Servidor Tem 40 Pokemons da 5° geraçao e Varios Lendarios Não São todos mais o Restante é só voce Adicionar no Cliente
 
http://www.mediafire.com/?41tth1y28qw915h
 
 
 
Se for Util Da um Rep+ aee

Cara e so vc adicionar os pokemons ou roubar as sprites deles se quiser um tutorial eu sei onde tem
Da rep+ ae xD
Procura No youtube erodino site oficil ta cheio de tutos la