Tibia OT Mods

MAPA

2012-02-11T04:58:00.000-08:00

-=-= Quando o player pisar aparecerá (Ver foto a baixo)

Instalando

Crie um novo arquivo:
movements/scripts/mapmarks.lua
Cole isso:
local config = {
storage = 9432,
version = 1,
marks = {
{mark = 5, pos = {x = 166, y = 439, z = 7}, desc = "Main City Temple"},
{mark = 7, pos = {x = 300, y = 200, z = 7}, desc = "NPC with tools!"},
{mark = 1, pos = {x = 666, y = 666, z = 6}}
}
}

local f_addMark = doPlayerAddMapMark
if(not f_addMark) then f_addMark = doAddMapMark end

function onStepIn(cid, item, position, fromPosition)
if(isPlayer(cid) ~= TRUE or getPlayerStorageValue(cid, config.storage) == config.version) then
return
end

for _, m in pairs(config.marks) do
f_addMark(cid, m.pos, m.mark, m.desc ~= nil and m.desc or "")
end
setPlayerStorageValue(cid, config.storage, config.version)
return TRUE
end

Legenda:
version = 1 -> Aumente esse valor após a adição de novas marcas, então o jogador pode entrar novamente e
receber marcas novo no mapa.
mark = X -> Ai será a imagem que aparecerá no mapa (Ver a foto dos ids).
pos = {x = X, y = X, z = X} -> Será a posição aonde aparecerá no mapa.
desc = "Main City Temple" -> Sera a descrição apos passar o mouse em cima.

Depois vá para
movements/movements.xml
E adicione essa linha:

Legenda:
YOUR_ACTION_ID = Coloque a action que ficará no piso.

Segue as lista das opções de imagens que pode existir.

First itens por vocação

2012-02-11T04:19:00.000-08:00

Bom, vim aqui trazer um MOD simples, porém muito útil, a função dele é destribuir o First Itens por vocação.

Vá na pasta do seu servidor, abra a pasta mods e edite o arquivo "firstitems.xml" e substitua tudo por isto:

 xml version="1.0" encoding="UTF-8"?>

 name="First Items" version="1.0" author="The Forgotten Server" contact="otland.net" enabled="yes">

        name="firstitems_config">

        type="login" name="FirstItems" event="script">

Elevador

2012-02-09T04:26:00.000-08:00

Elevador

..:: Elevador ::..

Autor: Flatronez
Servidor Testado: TFS 0.3.6 Crying Damson
Descrição: É um elevador, onde o player pode subir/descer em uma área determinada.

Como Instalar

Arquivos:

Código:

-- ELEVADOR by FLATRONEZ
-- SE POSTAR EM OUTROS LUGARES, COLOQUE OS CRÉDITOS



-- NÃO ALTERE O CÓDIGO ABAIXO --
function elevador(cid, msg, newPos, i, playerPos, pisoElev, param)
local proxAnd = getTileThingByPos(newPos)
   if isInArray(pisoElev, proxAnd.itemid) and i <= tonumber(param[2]) then
     doTeleportThing(cid, newPos, true)
       elseif proxAnd.itemid ~= pisoElev then
         doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, msg.fimLinha)
   end
   if i == tonumber(param[2]) then
     doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg.chegada)
   end
end
-- NÃO ALTERE O CÓDIGO ACIMA --
 
 
function onSay(cid, words, param)
-- CONFIGURAÇÃO, ALTERE SOMENTE AQUI --
local param = string.explode(param, " ") -- Não altere
local pisoElev = { 406, 407 } -- IDs do piso do elevador
local cmd = {
  sobe = "subir",
  desce = "descer"
}
local stId = 700
local playerPos = getCreaturePosition(cid)
local areaElev = { -- Área do elevador, deve ser uma área quadrada
  ini = {x= 38, y= 66},  -- Primeiro tile do elevador (acima e à direita)
  fim = {x= 39, y= 67} -- Último tile do elevador (abaixo e à esquerda)
}
local tempo = 600 -- Delay para subir/descer um andar
local andares = {
  maxCima = 0, -- Valor da coordenada Z do andar máximo que se pode subir a partir do ground.
  maxBaixo = 7 -- Valor da coordenada Z do andar máximo que se pode descer a partir do ground.
}
local msg = { -- Mensagens que são exibidas para o player
  sobe = "Você irá subir em alguns instantes.",
  desce = "Você irá descer em alguns instantes.",
  fimLinha = "Fim da linha. O elevador não pode subir/descer mais.",
  chegada = "Pronto! Você chegou ao seu destino.",
  erro = { -- Mensagens de erro
    andInv = "O elevador não pode subir/descer a esse andar.",
    posErr = "Você não está em um elevador.",
    somNum = "Use somente números.",
    zero = "É impossível subir/descer 0 andares.",
    comInv = "Comando inválido. Para subir, use !elevador " .. cmd.sobe .. " N°. Para descer, use !elevador " .. cmd.desce .. " N°."
  }
}

-- NÃO ALTERE O CÓDIGO ABAIXO SE NÃO SOUBER O QUE ESTÁ FAZENDO --
-- Subida
   if param ~= nil and param[1] == cmd.sobe and tonumber(param[2]) ~= nil and tonumber(param[2]) > 0 and playerPos.z - tonumber(param[2]) >= 0 and playerPos.x >= areaElev.ini.x and playerPos.x <= areaElev.fim.x and playerPos.y >= areaElev.ini.y and playerPos.y <= areaElev.fim.y then
     doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg.sobe)   
       for i = 1, tonumber(param[2]) do
         local playerPos = getCreaturePosition(cid)
         local newPos = {x= playerPos.x, y= playerPos.y, z= playerPos.z-i}
         addEvent(elevador, i * tempo, cid, msg, newPos, i, playerPos, pisoElev, param)
       end
-- Descida
   elseif param ~= nil and param[1] == cmd.desce and tonumber(param[2]) ~= nil and tonumber(param[2]) > andares.maxCima and playerPos.z + tonumber(param[2]) <= andares.maxBaixo and playerPos.x >= areaElev.ini.x and playerPos.x <= areaElev.fim.x and playerPos.y >= areaElev.ini.y and playerPos.y <= areaElev.fim.y then
     local i = 1
     doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg.desce)
     while i <= tonumber(param[2]) do
       local newPos = {x= playerPos.x, y= playerPos.y, z= playerPos.z+i}
       addEvent(elevador, i * tempo, cid, msg, newPos, i, playerPos, pisoElev, param)
       i = i + 1
     end   
-- Tratamento de Erros
   elseif param == nil or table.find(cmd, param[1]) == nil then
     doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, msg.erro.comInv)
   elseif param ~= nil and tonumber(param[2]) == nil then
     doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, msg.erro.somNum)
   elseif playerPos.x < areaElev.ini.x or playerPos.x > areaElev.fim.x or playerPos.y < areaElev.ini.y or playerPos.y > areaElev.fim.y then
     doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, msg.erro.posErr)
   elseif param ~= nil and ((param[1] == cmd.sobe and playerPos.z - tonumber(param[2]) < andares.maxCima) or (param[1] == cmd.desce and playerPos.z + tonumber(param[2]) > andares.maxBaixo)) then
     doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, msg.erro.andInv)
   elseif param ~= nil and tonumber(param[2]) == 0 then
     doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, msg.erro.zero)
 end
 return true
end

Código:

<talkaction words="!elevador" access="0"  event="script" value="elevador.lua"/>

Pegue o arquivo elevador.lua e o coloque na pasta talkActions/scripts.

Depois abra o arquivo talkActions.xml e adicione a tag.

Depois abra o arquivo elevador.lua e configure a área do elevador.

Flexas saindo da parede

2012-02-09T04:25:00.000-08:00

Flexas saindo da Parede.

Nome: Flexas.
Autor: Neon.
Versão Testada: Cliente 8.54 - Servidor TFS 0.3.6

Bom vim aqui no Otnet postar um script que tenho em meu Servidor e acho legal para mapas que têem um grande numero de RPG.

O que vou mostrar hoje se resume na imagem abaixo.

Primeiro passo:
-Vá na pasta Movements de seu servidor e crie um arquivo lua com o seguinte código, e salve com o seguinte nome: arrow.lua

Código PHP:
function onStepIn(cid, item, topos) frompos = {x=52, y=177, z=9}topos = getPlayerPosition(cid)rand = math.random(10,18)rand2 = math.random(1,7) if (isPlayer(cid)) == 1 and rand2 > 2 then doSendDistanceShoot(frompos, topos, CONST_ANI_ARROW) doTargetCombatHealth(0, cid, COMBAT_PHYSICALDAMAGE, -70, -10, CONST_ME_HITAREA) doSendMagicEffect(topos,0) doSendAnimatedText(topos,rand,180) doCreateItem(2019,2,topos) elseif (isPlayer(cid)) == 1 and rand2 == 1 then doSendDistanceShoot(frompos, topos, CONST_ANI_ARROW) doTargetCombatHealth(0, cid, COMBAT_PHYSICALDAMAGE, -70, -10, CONST_ME_HITAREA) doSendMagicEffect(topos,2) else doSendDistanceShoot(frompos, topos, CONST_ANI_ARROW) doTargetCombatHealth(0, cid, COMBAT_PHYSICALDAMAGE, -70, -10, CONST_ME_HITAREA) doSendMagicEffect(topos,3) endreturn 1 end
Segundo passo:
- Agora va em Movements.xml e adicione a seguinte tag.

Código PHP:
<movevent type="StepIn" uniqueid="24241" event="script" value="arrow.lua" />
Terceiro passo:
-Adicionar o UniqueId no piso onde voce quer que quando o player passe leve uma flexada.
..:: Configurando ::..

Na seguinte linha, voce coloca o local de onde saira a flexa. X - Y - Z.
Código:
frompos = {x=52, y=177, z=9}
Ja nessa linha, voce configura o tanto de Damage que voce quer que o player leve ao pisar no tile. Voce pode variar, como mostra o script. Ali esta para variar os danos entre '70' e '10'. Configure do seu jeito.
Código:
doTargetCombatHealth(0, cid, COMBAT_PHYSICALDAMAGE, -70, -10, CONST_ME_HITAREA)
E no Movements.xml voce Coloca o Id que ira no UniqueId em seu MapEditor.
Código:
<movevent type="StepIn" uniqueid="24241" event="script" value="arrow.lua" />

ban nick, hora e comentario PERFEITO

2012-02-09T04:23:00.000-08:00

/Ban com nick, hora e comentário

Nome:(Um Novo Modo De Banir... )
.Versão: (tfs 0.3.4+).
Tipo do script: (talkactions.xml(talkaction.).
Servidor Testado: (tfs 0.3.4+)

Creditos: (Gesior.Pl) .
Comentario: Como Ele Funciona...
/ban Nick - Banir O jogador de tempo predefinido
/ban Nick,12 - Banir O jogador por 12 horas
/ban Nick,35,AFK BOT - Banir jogador de 35 horas com o comentário "AFK BOT"

Você pode Banir O Player offline jogadores!
Adicone Isto

talkactions.xml

Código:

<talkaction log="yes" words="/ban" access="3" event="script" value="ban.lua"/>

Crie O Nome Do Arquivo ban.lua

Código:

local default_comment = ""
local default_lenght = 1 -- ban time in hours

function onSay(cid, words, param)
 local parametres = string.explode(param, ",")
 if(parametres[1] ~= nil) then
     local accId = getAccountIdByName(parametres[1])
     if(accId > 0) then
         local lenght = default_lenght
         local comment = default_comment
         if(parametres[2] ~= nil and tonumber(parametres[2]) > 0) then
             lenght = tonumber(parametres[2])
         end
         if(parametres[3] ~= nil) then
             comment = parametres[3]
         end
         doAddBanishment(accId, lenght * 3600, 23, ACTION_BANISHMENT, comment, getPlayerGUID(cid), comment)
         local player = getPlayerByNameWildcard(parametres[1])
         if(isPlayer(player) == TRUE) then
             doRemoveCreature(player)
         end
     else
         doPlayerSendCancel(cid, "Player with name " .. parametres[1] .. " doesn't exist.")
     end
 else
     doPlayerSendCancel(cid, "You must enter name.")
 end
 return true
end

Caso o 1º Script Não Funcione Use Esse... Por: Hermes

Código:

<?xml version="1.0" encoding="UTF-8"?>
<mod name="/ban command" version="1.0" author="Gesior.pl & modded by Hermes" contact="otland.net" enabled="yes">
 <description>
     This mod will add new command for server staff - /ban.
     Usage:
         /ban Nick - ban player for default time (set in config)
         /ban Nick,12 - ban player for 12 hours
         /ban Nick,35,AFK BOT - ban player for 35 hours with comment "AFK BOT"
 </description>
 <config name="banishment_config"><![CDATA[
     banconfig = {
         default_comment = ""
         default_lenght = 1 -- ban time in hours
     }
 ]]></config>
 <talkaction log="yes" words="/ban" access="3" event="buffer"><![CDATA[
     domodlib('banishment_config')
     function onSay(cid, words, param)
         local parametres = string.explode(param, ",")
             if(parametres[1] ~= nil) then
                 local accId = getAccountIdByName(parametres[1])
                 if(accId > 0) then
                     local lenght = banconfig.default_lenght
                     local comment = banconfig.default_comment
                     if(parametres[2] ~= nil and tonumber(parametres[2]) > 0) then
                         lenght = tonumber(parametres[2])
                     end
                  
                     if(parametres[3] ~= nil) then
                         comment = parametres[3]
                     end
                     doAddBanishment(accId, lenght * 3600, 23, ACTION_BANISHMENT, comment, getPlayerGUID(cid), comment)
                     local player = getPlayerByNameWildcard(parametres[1])
                  
                     if(isPlayer(player) == TRUE) then
                         doRemoveCreature(player)
                     end
                 else
                     doPlayerSendCancel(cid, "Player with name " .. parametres[1] .. " doesn't exist.")
                 end
             else
                 doPlayerSendCancel(cid, "You must enter name.")
             end
         return true
     end
 ]]></talkaction>
</mod>

local default_lenght = 1 -- ban time in hours

Para

local default_lenght = 24 -- ban time in hours

Se você quiser mudá-lo de "horas" para "dia" (como padrão 1 dia e / ban Nick, 2, botting ban por 2 dias), você deve mudar:

doAddBanishment(accId, lenght * 3600, 23, ACTION_BANISHMENT, comment, getPlayerGUID(cid), comment)

doAddBanishment(accId, lenght * 3600 * 24, 23, ACTION_BANISHMENT, comment, getPlayerGUID(cid), comment)

Se Você Muda

local default_lenght = 24 -- ban time in hours

Por Mock.

local default_lenght = 1 -- ban time in hours

function onSay(cid, words, param)
local parametres = string.explode(param, ",")
if(parametres[1] ~= nil) then
local accId = getAccountIdByName(parametres[1])
if(accId > 0) then
local lenght = default_lenght
local comment = default_comment
if(parametres[2] ~= nil and tonumber(parametres[2]) > 0) then
lenght = tonumber(parametres[2])
end
if(parametres[3] ~= nil) then
comment = parametres[3]
end
doAddBanishment(accId, lenght * 3600, 23, ACTION_BANISHMENT, comment, getPlayerGUID(cid), comment)
local player = getPlayerByNameWildcard(parametres[1])
if(isPlayer(player) == TRUE) then
doRemoveCreature(player)
end
else
doPlayerSendCancel(cid, "Player with name " .. parametres[1] .. " doesn't exist.")
end
else
doPlayerSendCancel(cid, "You must enter name.")
end
return true
end
]=]
}

Thanks, Mock
Como Usa Essa Função.

/ban Nick - ban player for default time
/ban Nick,12 - ban player for 12 hours
/ban Nick,35,AFK BOT - ban player for 35 hours with comment "AFK BOT"
/ban Nick,0.02,1 minute ban - dont spam!

Caso De Erros Poste Aqui.http://forums.otserv.com.br/f13/

Aviso Não Flood Usem O Thanks...

Sistema AFK

2012-02-09T04:18:00.000-08:00

Olá, estou criando esse tutorial mostrando como fazer o Sistema de AFK em seu OTServ, Então vamos lá

Vá Na Pasta De Seu OTServ / Data / Talkactions / Scripts - Copie qualquer arquivo .lua que está lá, tire tudo que a dentro dele e renomeie como 'afk'
Coloque isso :

Código:
local time = 5 -- 1 = 1 sec, 2 = 2 sec, ...

local say_events = {}
local function SayText(cid)
if isPlayer(cid) == TRUE then
if say_events[getPlayerGUID(cid)] ~= nil then
if isPlayer(cid) == TRUE then
doSendAnimatedText(getPlayerPosition(cid),"Ausente !", math.random(01,255))
end
say_events[getPlayerGUID(cid)] = addEvent(SayText, time * 100 / 2, cid)
end
end
return TRUE
end
function onSay(cid, words, param, channel)
if(param == '') then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")
return true
end
if param == "on" then
if isPlayer(cid) == TRUE then
doSendAnimatedText(getPlayerPosition(cid),"Ausente !", math.random(01,255))
end
say_events[getPlayerGUID(cid)] = addEvent(SayText, time * 1000, cid)
doPlayerSendTextMessage(cid,MESSAGE_STATUS_WARNING ,"You Now Stated you are (afk).")
elseif param == "off" then
stopEvent(say_events[getPlayerGUID(cid)])
say_events[getPlayerGUID(cid)] = nil
doPlayerSendTextMessage(cid,MESSAGE_STATUS_WARNING ,"You Now stated your are not (afk).")
end
return TRUE
end

Depois vá em Pasta De Seu OTServ / Data / Talkactions / Talkactions.XML
Procure A Parte dos Players
Bote Isso :

<talkaction words="!afk on" event="script" value="afk.lua"/>

Obs : falando !afk off acaba com !afk on começa!

Gente então é isso salve feche e use

Abraços,
Victor Morin

FFD Fest Food Delivery

2012-02-09T04:17:00.000-08:00

Fast Food Delivery (FFD)

Nome: Fast Food Delivery (FFD)
Versão: 1.0 (Caso eu melhore-o, postarei novas versões)

Versão do Tibia: 8.5+ (não testado em versões anteriores)
Teste: TFS cryingdamson

Autor: PeJuGe (97%)

Nível: Iniciante (sou iniciante =D)

Outros Créditos:
2% Skyen Hasus e VConde2 -> Organização e concerto de um erro
1% MotoBoy -> Idéia do Fast Food (http://forums.otserv.com.br/f29/scri...-system-74781/)

Comentário: Este script consiste na entrega de alimento (facilmente adaptável para qualquer item) em um determinado tempo, cobrando na entrega.

Olá a todos, este é meu primeiro script (demorei um pouco pra fazer devido encontrar muitos erros). Bom, vi um script parecido hoje (acredite, apesar de ser meu primeiro script não copiei nada), do Notoriouss, mesmo assim postarei, pois o meu é mais completo e acredito ser mais educadito também =D.

Instalação

Script:

Código:

--[[ Autror : PeJuGe (2009)
    Outros créditos: 4% Skyen Hasus e VConde2 -> Organização e concerto de um erro
                     1% MotoBoy               -> Idéia do Fast Food
    EXCLUSIVIDADE: OTSERV.COM.BR
    NÃO REMOVA OS CRÉDITOS
]]--

--Configurações
local comidas = {   --> Coloque respectivamente "Nome" e Preço
["Meat"] = 50,
["Ham"] = 90,
["Fish"] = 150,
["Dragon Ham"] = 200
}
local tempo = 5 --> Tempo da entrega em segundos
local container = "Present"  --> Pacote em que será entrege o item

local msg = MESSAGE_STATUS_CONSOLE_BLUE  --> Tipo da mensagem
local sat = 350   --> Cor da mensagem animada
-- Fim das Configurações

function onSay(cid, words, param)

_, _, param1, param2= param:find("([%s%w]+) ([%s%w%d]+)")
local param2 = tonumber(param2)   
         
  if (param == '') then
      return doPlayerSendTextMessage(cid, msg, "Atendente: Bem vindo ao Fast Food Delivery. \nPara ver nosso cardápio utilize: !food cardapio\nPara fazer o seu pedido utilize: !food Alimento Quantidade (Ex.: !food Meat 5).\nPara cancelar seu pedido utilize: !food cancel")
  elseif (param == 'cardapio') then
         doPlayerSendTextMessage(cid, msg, "Atendente: Aqui no Fast Food Delivery vendemos:")
         for k,v in pairs(comidas) do
             doPlayerSendTextMessage(cid, msg, k.." por "..v.." gold(s) cada.")
         end
         return TRUE
  elseif (param == 'cancel') then
          if getPlayerStorageValue(cid, 2002) ==  1 then
             setPlayerStorageValue(cid, 2002, 0)
             doPlayerSendTextMessage(cid, msg, "Atendente: Sua entrega foi cancelada. Ligue novamente quando desejar.")
             doSendAnimatedText(getCreaturePosition(cid), "Cancelado", 350)
          else doPlayerSendTextMessage(cid, msg, "Atendente: Desculpe, não há nenhum pedido registrado em seu nome.")
          end
  return TRUE
  end

  if comidas[param1] ~= nil then
     if getPlayerStorageValue(cid, 2002) ==  0 then
        if param2 ~= nil or param2 == number then
           if param2 > 100 or param2 == 0 then
              return doPlayerSendTextMessage(cid, msg, "Atendente: Desculpe, nosso entregador carrega no máximo 100 unidades e no mínimo 1 unidade.")
           else if getPlayerMoney(cid) > comidas[param1] * param2 then
                   doPlayerSendTextMessage(cid, msg, "Atendente: Obrigado por utilizar o Fast Food Delivery. Seu pedido foi registrado e sua entrega chegará dentro de "..tempo.." segundo(s).\nPedido: "..param2.." "..param1.." por "..comidas[param1].." gold(s) cada.\nTotal: "..comidas[param1] * param2.." gold(s).")
                   doSendAnimatedText(getCreaturePosition(cid), "Pedido", sat)
                   setPlayerStorageValue(cid, 2002, 1)
                   stopEvent(onSay)
                   addEvent(MakeDelivery, 6000, cid, getItemIdByName(param1), comidas[param1],getItemIdByName(container), param2)    
                else doPlayerSendTextMessage(cid, msg, "Atendente: Desculpe, você não tem dinheiro suficiente.")
                end
           end
        else return doPlayerSendTextMessage(cid, msg, "Atendente: Por favor, informe um número (menor que 100 e maior que 0) com a quantidade desejada.")
        end
     else return doPlayerSendTextMessage(cid, msg, "Atendente: Por favor, aguarde a entrega do seu produto para fazer um novo pedido.\nPara cancelar seu pedido utilize: !food cancel")
     end
  else return doPlayerSendTextMessage(cid, msg, "Atendente: Desculpe, não vendemos este item ou a quantidade determininada é invalida.\nPara mais informações utilize: !food")
  end
 
return TRUE
end                                 

function MakeDelivery(uid, item, price, container, quantity)
     if getPlayerStorageValue(uid, 2002) == 1 then
        if doPlayerRemoveMoney(uid, price * quantity) == true then
           doAddContainerItem(doPlayerAddItem(uid, container, 1), item, quantity)
           doSendAnimatedText(getCreaturePosition(uid), "Entrega!", sat)
           doSendMagicEffect(getCreaturePosition(uid), 2)
           setPlayerStorageValue(uid, 2002, 0)
        else doPlayerSendTextMessage(uid, msg, "Entregador: Desculpe, a entrega pode ser feita somente mediante o pagamento, ligue novamente quando tiver dinheiro.")
             setPlayerStorageValue(uid, 2002, 0)
        end  
     end
     return TRUE
end

Agora surge a pergunta, como instalá-lo? Simples, siga os 3 passos a seguir e você terá seu script totalmente usável

1º Passo:
Crie um arquivo com nome fastfooddelivery (caso não saiba criar arquivos lua vá em Downloads e baixe ou copie um existente e renomeie) na pasta data/talkactions/scripts e copie o conteúdo (ou faça o download abaixo), "OMG, AINDA NÃO FUNCIONA", siga o proximo passo

2º Passo:
Vá a talkactions/talkactions.xml e copie este trecho para o arquivo:

"OMG de novo, esse cara de de zuação O.o uhauauh, quando eu entro as vezes fala pra eu mandar !food cancel". Claro, é porque tem que zerar quando o player sai sem pegar o food, siga o 3º Passo.

3º Passo: (opcional)
Último passo, este é opcional, pois é para corrigir um erro, como dito anteriormente, caso não queira instalar o player pode fazer isto manualmente dizendo !food cancel (diga !food quando estiver logado para saber os comandos ou leia o tópico seguinte =D).
Vá até a pasta data/creaturescripts e insira o trecho a seguir logo abaixo de onLogin(cid):

setPlayerStorageValue(cid, 2002, 0)

"OMG, ACABOU? YES =D" Pronto, seu script está instalado, agora basta aprender a configurá-lo.[/spoiler]

Configuração

Este script é bastante simples e por isso não requer muitas configurações. Ao final destes passos você saberá perfeitamente utilizar seu script =D. (já sei "OMG, DE NOVO ESSES PASSOS", relax, são menores uhauhauh)

1º Passo:
Configurar os alimentos que serão vendidos: (sugiro que faça o download no final do tópico e acompanhe com as linhas):

-- Linha 9 --

local comidas = { --> Coloque respectivamente "Nome" e Preço
["Meat"] = 50,
["Ham"] = 90,
["Fish"] = 150,
["Dragon Ham"] = 200
}
}

Bem simples, basta colocar o nome do alimento que você deseja inserir entre colchetes e posteriores aspas [" "] inserindo então sinal = e agora o valor de cada alimento. Simples né? Sabia que você também acharia .

2º Passo:
Configurar o tempo da entrega (caso sinta necessidade poste no tópico pedindo para colocar variação, por exemplo, se colocar para demorar 5 segundos, demorar de 1 a 5, no momento ele entrega no segundo determinado sempre, particularmente não acho necessidade de variação para não pois pesa o script) e o container (backpack, bag, present, ou qualquer outro), veja a seguir:
-- Linha 15 --

local tempo = 5 --> Tempo da entrega em segundos
local container = "Present" --> Pacote em que será entrege o item

Este também é simples, basta colocar em tempo o tempo desejado. lembrando sempre que é em segundos, em container coloque o nome do container desejado.

3º Passo: (opcional)
-- Linha 18 --
Este passo é para configuração da cor das mensagens e mensagens animadas, caso tenha dificuldade neste passo pode pulá-lo, não mudará em nada, já está uma gracinha (que gay uhahuauha, mas ta rox ).

local msg = MESSAGE_STATUS_CONSOLE_BLUE --> Tipo da mensagem
local sat = 350 --> Cor da mensagem animada

Em msg (no caso MESSAGE_STATUS_CONSOLE_BLUE) coloque o tipo de mensagem desejada e o tipo de mensagem animada em sat(no caso 350). Pronto, está configurado seu script =D. Qualquer outra informação você pode ver mais facilmente pelo jogo, o qual já é bastante explicativo, basta utilizar !food, não se esqueça de reiniciar o servidor ao instalar.

Download(s)

Script organizado: http://www.mediafire.com/?alwnwroommn

...

Obrigado a todos que leram esse monte de coisa uhahuah, este é meu primeiro script e qualquer dúvida ou pedido de complemento poste aqui no tópico. Se possível fazer sugestões quanto ao function MakeDelivery quando o player faz o pedido e da log out, pois não deveria enviar a mensagem de erro:"luaGetPlayerStorageValue(). Player not found" no console :/)

Espero que se divirtam e não deixem de comentar em

Agradecimentos: (não são créditos, agradecimentos huauha)
Skyen Hasus por postar maravilhosos tutoriais =D (todos os outros também, mas é que ele posta mais uahuahua)
Todos que postam script e enriquecem este fórum com bons scripts

Edit 28/11 -> Podem esperar a versão 2.0 , novas opções vem aí hehe (assim que eu aprender algumas coisas uhahua)

Sistema de tranformação por comando rider sistem

2012-02-09T04:13:00.000-08:00

Rider System por TalkAction

Rider System
by JhonnyMotta
Código:
Nome: Rider System por TalkAction
Autor: 
Versão: 8.5+
Servidor testado: Alissow
Adicionais:

Bom, eu criei esse talkactions para em vez de ser com um RING, seja apenas por comando para não atrabalhar o player usar outros ring.
Eu fiz ele muito simples, e meu amigo (Junior) pediu para eu por só para PremmyAccount, e achei que ia melhorar o script também!

O que o script realmente faz?
Quando o player digita !rider, troca para o outfist Orc Rider (configuravel)
e almenta a velocidade do player. (sendo que só PremmyAccount usa o comando)
e quando digita !riderback, volta para o outfist que estava usando e remove o Condition. (sendo que só PremmyAccount usa o comando)

Script:

1--> Vai a pasta "data/talkactions/script" e crie 2 arquivos.
o rider.lua e o riderback.lua.

2--> No rider.lua cole isso:

rider.lua
Código:
--Creditos JhonnyMotta--

local outfit = {lookType = 4, lookHead = 0, lookBody = 0, lookLegs = 0, lookFeet = 0, lookTypeEx = 0, lookAddons = 0}
local condition = createConditionObject(CONDITION_HASTE)[/font]
setConditionParam(condition, CONDITION_PARAM_TICKS, -1)[/font]
setConditionFormula(condition, 2.5, 0, 3.0, 0)[/font][/left]

function onSay(cid, words, param)
if isPremium(cid) then
doSetCreatureOutfit(cid, outfit, -1)
doAddCondition(cid, condition)[/font]
doSendMagicEffect(getPlayerPosition(cid),12)
else
doPlayerSendTextMessage(cid,22,"Você não é premmy!" )
end
end
[/spoiler]

Feche e salva!

OBS: para mudar o outfist, só mudar o numero no lookType = 4

(lookType 4 = Orc Rider)

3--> No riderback.lua cole isso:

riderback.lua
Código:
--Creditos JhonnyMotta--
function onSay(cid, words, param)
if isPremium(cid) then
   doRemoveCondition(cid, CONDITION_OUTFIT)
    doRemoveCondition(cid, CONDITION_HASTE)
   doSendMagicEffect(getPlayerPosition(cid),67)
  else
 doPlayerSendTextMessage(cid,22,"Você não é premmy!" )
end
end
[/spoiler]

Feche e salva.

4--> Vá na pasta "data/talkactions" e abra o arquivo talkactions.xml e coloque a tag:
Código:
      <talkaction words="!rider" script="rider.lua" />
     <talkaction words="!riderback" script="riderback.lua" />
Feche e salva.

Pronto, agora entra no char e use !rider.
Caso for FreeAccount, vai aparecer a msg "Você não é Premmy"
Caso for PremmyAccount, vai add o condition e virar o outfist.

Créditos:

100% Jhonny Motta

saber spells de vocation comando simples

2012-02-09T04:10:00.000-08:00

Nome: !spells
Versão: 8.1
Tipo do script: talkactions
Servidor Testado: Em Teste Thyrania 0.2.81
Autor: ♀LэoйªM♀

Isso Galera Os Cara Entrão No Seu Ot e nao sabe o spells que o ot tem
seus problema acabarão chegou !spells para ajudalo

Thyrania 0.2.81 XML\data\talkactions

Thyrania 0.2.81 XML\data\talkactions\scripts

Código:

function onSay(cid, words, param)
    local count = getPlayerInstantSpellCount(cid)
    local text = ""
    local t = {}
    for i = 0, count - 1 do
        local spell = getPlayerInstantSpellInfo(cid, i)
        if spell.level ~= 0 then
            if spell.manapercent > 0 then
                spell.mana = spell.manapercent .. "%"
            end
            table.insert(t, spell)
        end
    end
    table.sort(t, function(a, b) return a.level < b.level end)
    local prevLevel = -1
    for i, spell in ipairs(t) do
        local line = ""
        if prevLevel ~= spell.level then
            if i ~= 1 then
                line = "\n"
            end
            line = line .. "Spells for Level " .. spell.level .. "\n"
            prevLevel = spell.level
        end
        text = text .. line .. "  " .. spell.words .. " - " .. spell.name .. " : " .. spell.mana .. "\n"
    end
    doShowTextDialog(cid, 2175, text)
    return TRUE
end

A Vocation que usa o !spells ela mostra os spells que a vocation tem

Com Esse codigo ele ajuda a todos so funcinona com PLAYER....

♀LэoйªM♀ é meu RL

Anti chingo

2012-02-09T04:06:00.000-08:00

Proibir Palavrões e Bully

Nome Do Script: Proibir Palavrões e Bully
Tipo: Talkaction
Autor: Kekezito_lhp
Testado em: Tfs 0.4 dev "acretido teve funfiona em todas 8.x+
Ideia: Criei Esse Script Para Proibir Bully e Rasimos No Serv E Proibir Divulgaçao
OBS: Se Você Sube Edita Um pouco se pode ate Proibir Divulgaçao No Seu serv
OBS 2: Esse Script Tirei Algums Chigamentos e Coloquei os mais popular Por Que Nao sei se voce vai entente minha ideia para te criado esse script.

Bom Vamus Começa :

Agora vá até a pasta Scripts dentro da pasta Talkaction, faça um script chamado proibido.lua e coloque isso dentro:
Código:
--Script by kekezito_lhp OTNET--
function onSay(cid, words, param)
local time = 10 -- Tempo que ele ficará muted! (em segundos)
doSendAnimatedText(getPlayerPosition(cid), "Hey man, this is forbidden!", 19)
doPlayerSendTextMessage(cid, 23, "Now you are muted for "..time.." seconds!")
doMutePlayer(cid, time*1000)
return TRUE
end
Bom primeiramente já até a pasta data/talkaction, abra o arquivo Talkactions.xml e adicione esta tag:
Código:
<talkaction words="porra;caralho;cu;merda;buceta" event="script" value="proibido.lua"/>
Ateçao Onde Esta Em Vermelho Pode Edita, Para Coloca Mais palavras proibidas So Adiciona ; antes da palavra

Jail Sistem perfeito

2012-02-09T04:03:00.000-08:00

Jail System Perfeito

Titulo: Jail Sistem
Citação:
Nome: Jail Sistem (Sistema De Prisao Perfeito)
.Versão: (0.1).
Tipo do script: (Talkaction).
Servidor Testado: (The Forgotten Server).
Autor: (Gesior)

Jail System

Este Systema Permite Que Voce Prenda Um Jogador Por Um Determinado Tempo
Por Exemplo /jail "tempo,nome do player
O Player Ficara Determinado Tempo Na Cadeia
Muito Simples E Totalmente Configuravel

Abra a pasta data/Talkactions/script e adicione isso em um arquivo lua:

Código:

-- Default jail time in seconds --
default_jail = 30
-- The permission you need to jail someone --
grouprequired = 3
-- StorageValue that the player gets --
jailedstoragevalue_time = 1338
jailedstoragevalue_bool = 1339
-- POSIcaO DA CADEIA: --
jailpos = { x = POSX, y = posY, z =posz }
-- POSICAO DO TEMPLO: --
unjailpos = { x = 1029, y = 1005, z =7 }
-- auto kicker, dont edit
jail_list = {}
jail_list_work = 0

function checkJailList(param)
    addEvent(checkJailList, 1000, {})
    for targetID,player in ipairs(jail_list) do
        if isPlayer(player) == TRUE then
            if getPlayerStorageValue(player, jailedstoragevalue_time) < os.time() then
                doTeleportThing(player, unjailpos, TRUE)
                setPlayerStorageValue(player, jailedstoragevalue_time, 0)
                setPlayerStorageValue(player, jailedstoragevalue_bool, 0)
                table.remove(jail_list,targetID)
                doPlayerSendTextMessage(player,MESSAGE_STATUS_CONSOLE_ORANGE,'You were kicked from jail! See you later ')
            end
        else
            table.remove(jail_list,targetID)
        end
    end
end

function onSay(cid, words, param)
    if jail_list_work == 0 then
        jail_list_work = addEvent(checkJailList, 1000, {})
    end
    if param == '' and (words == '!unjail' or words == '/unjail') then
        if getPlayerStorageValue(cid, jailedstoragevalue_time) > os.time() then
            doPlayerSendTextMessage ( cid, MESSAGE_INFO_DESCR, 'You are jailed until ' .. os.date("%H:%M:%S", getPlayerStorageValue(cid, jailedstoragevalue_time)) .. ' (now is: ' .. os.date("%H:%M:%S", os.time()) .. ').')
        else
            if getPlayerStorageValue(cid, jailedstoragevalue_bool) == 1 then
                table.insert(jail_list,cid)
                doPlayerSendTextMessage ( cid, MESSAGE_INFO_DESCR, 'You will be kicked from jail in one second.')
            else
                doPlayerSendTextMessage ( cid, MESSAGE_INFO_DESCR, 'You are not jailed.')
            end
        end
        return TRUE
    end
    local jail_time = -1
    for word in string.gmatch(tostring(param), "(%w+)") do
        if tostring(tonumber(word)) == word then
            jail_time = tonumber(word)
        end
    end
    local isplayer = getPlayerByName(param)
    if isPlayer(isplayer) ~= TRUE then
        isplayer = getPlayerByName(string.sub(param, string.len(jail_time)+1))
        if isPlayer(isplayer) ~= TRUE then
            isplayer = getPlayerByName(string.sub(param, string.len(jail_time)+2))
            if isPlayer(isplayer) ~= TRUE then
                isplayer = getPlayerByName(string.sub(param, string.len(jail_time)+3))
            end
        end
    end
    if jail_time ~= -1 then
        jail_time = jail_time * 60
    else
        jail_time = default_jail
    end
    if words == '!jail' or words == '/jail' then
        if getPlayerGroupId ( cid ) >= grouprequired then
            if isPlayer(isplayer) == TRUE then
                doTeleportThing(isplayer, jailpos, TRUE)
                setPlayerStorageValue(isplayer, jailedstoragevalue_time, os.time()+jail_time)
                setPlayerStorageValue(isplayer, jailedstoragevalue_bool, 1)
                table.insert(jail_list,isplayer)
                doPlayerSendTextMessage ( cid, MESSAGE_INFO_DESCR, 'You jailed '.. getCreatureName(isplayer) ..' until ' .. os.date("%H:%M:%S", getPlayerStorageValue(isplayer, jailedstoragevalue_time)) .. ' (now is: ' .. os.date("%H:%M:%S", os.time()) .. ').')
                doPlayerSendTextMessage ( isplayer, MESSAGE_INFO_DESCR, 'You have been jailed by '.. getCreatureName(cid) ..' until ' .. os.date("%H:%M:%S", getPlayerStorageValue(isplayer, jailedstoragevalue_time)) .. ' (now is: ' .. os.date("%H:%M:%S", os.time()) .. ').')
                return TRUE
            else
                doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Player with this name doesn\'t exist or is offline.")
                return FALSE
            end
        else
            doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have access to unjail other players.")
            return FALSE
        end
    elseif words == '!unjail' or words == '/unjail' then
        if getPlayerGroupId ( cid ) >= grouprequired then
            if isPlayer(isplayer) == TRUE then
                doTeleportThing(isplayer, unjailpos, TRUE)
                setPlayerStorageValue(isplayer, jailedstoragevalue_time, 0)
                setPlayerStorageValue(isplayer, jailedstoragevalue_bool, 0)
                table.remove(jail_list,targetID)
                doPlayerSendTextMessage(isplayer,MESSAGE_STATUS_CONSOLE_ORANGE,getCreatureName(cid) .. ' let you go out from jail! See you later')
                doPlayerSendTextMessage ( cid, MESSAGE_INFO_DESCR, 'You unjailed '.. getCreatureName(isplayer) ..'.')
            else
                doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Player with this name doesn\'t exist or is offline.")
                return FALSE
            end
        else
            doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have access to unjail other players.")
            return FALSE
        end
    end
    return FALSE
end

Para Usar Basta Dar Os Commands
/jail "Tempo,Nomedoplayer
/unjail "NomeDoPlayer
Creditos:99% Gessior OTLand
1% RenanCabral Por Postar Na OTNet

Espero Que Gostem E Me Doem OT$ Se Possivel

SO FUNCIONA EM TFS

Trade System

2012-02-09T03:59:00.000-08:00

Nome do Script: Trade System
Nome do Autor: PoRaI
Servidor Testado: Nenhum ainda :S, não estou em minha casa mas após chegar eu testo.
Descrição: Sistema de trade onde você pode adicionar o item em uma seção de market.

O sistema e baseado em um market, você pode anunciar um item é assim possivel... Vender-lo... Crie um arquivo na pasta data/talkaction/scripts, chamado sell.lua e coloque as seguintes informações dentro dele:

Código PHP:

function onSay(cid, words, param) id = getItemIdByName(param) idby = getItemNameById(param) local data = string.explode(param, ",") iddata = getItemIdByName(data[1])

function doreturnadd(cid) local directory = "data//trade//tradelist.txt"           local newcontent

local file = io.open(directory,"r") local content = file:read(-1) newcontent = string.gsub (content, "end", 'doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "'.. getCreatureName(cid) ..' - '.. data[1] ..' - '.. data[2] ..'")', 1) file:close()
local file = io.open(directory,"w+") file:write(newcontent) file:close(newcontent) onFile("update", directory, "end") end
if tonumber(data[2]) == nil then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Coloque o preço.")
return TRUE
end if getPlayerStorageValue(cid,4535) == 1 then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce ja colocou um item a venda.")
return TRUE
end
    if(iddata == LUA_ERROR) == TRUE then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Este item não existe.")
return TRUE elseif getPlayerItemCount(cid, iddata) <= 0 then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não possui este item.")
return TRUE elseif(iddata == LUA_ERROR) == FALSE then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você deixou na lista de vendas sua ".. data[1] .." pelo preço de ".. data[2] .." gold coins.") doPlayerRemoveItem(cid, iddata, 1) setPlayerStorageValue(cid, 4535, 1) setPlayerStorageValue(cid, 4538, getItemIdByName(data[1])) setPlayerStorageValue(cid, 4539, data[2]) doreturnadd(cid)
return TRUE
end
end

em seguinda, na pasta talkactions/scripts novamente... um outro arquivo chamado buy.lua, contendo as seguintes informações:

Código PHP:

function onSay(cid, words, param) pid = getPlayerByName(param)
function doreturnadd(cid) local directory = "data//trade//tradelist.txt"           local newcontent

local file = io.open(directory,"r") local content = file:read(-1) newcontent = string.gsub (content, 'doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "'.. getCreatureName(pid) ..'', 'REMOVIDO', 1) file:close()
local file = io.open(directory,"w+") file:write(newcontent) file:close(newcontent) onFile("update", directory, 'doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "'.. getCreatureName(pid) ..'') end
if isPlayer(param) then if getPlayerMoney(cid) >= getPlayerStorageValue(pid,4539) then if getPlayerStorageValue(pid,4538) ~= -1 then if getPlayerStorageValue(pid,4535) ~= -1 then
doPlayerRemoveMoney(cid, getPlayerStorageValue(pid,4539)) doPlayerAddItem(cid, getPlayerStorageValue(pid,4538), 1) doPlayerAddMoney(pid, getPlayerStorageValue(pid,4539)) doPlayerRemoveItem(pid, getPlayerStorageValue(pid,4538), 1) setPlayerStorageValue(pid, 4538, -1) setPlayerStorageValue(pid, 4535, -1)
else doPlayerSendCancel(cid,"Ele não está negociando nenhum item.")         end else doPlayerSendCancel(cid,"Ele não está negociando nenhum item.") end else doPlayerSendCancel(cid,"Você não possui dinheiro.") end else doPlayerSendCancel(cid, param .." não está online ou ele não existe.") end
end[/SPOILER]
vá na pasta data e crie uma pasta chamada '[B]trade[/B]' e dentro dela um arquivo chamado tradelist.txt e dentro dele:
[SPOILER="tradelist.txt"]function onSay(cid, words, param) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "QUEM VENDE - NOME DO ITEM - PREÇO:") end

Agora você devera criar uma pasta no diretorio "data/..." com o nome de trade e dentro da pasta trade crie um arquivo chamadotradelist.txt e adicione as seguintes informações:

Código PHP:

function onSay(cid, words, param) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "QUEM VENDE - NOME DO ITEM - PREÇO:") end

Vá no arquivo, talkactions/talkactions.xml e adicione:

Código PHP:

    <talkaction log="yes" access="0" words="/buy" event="script" value="buy.lua"/>
    <talkaction log="yes" access="0" words="/sell" event="script" value="sell.lua"/>
    <talkaction log="yes" access="0" words="/view" event="script" value="data//trade//tradelist.txt"/>

/report BUG

2012-02-09T03:56:00.000-08:00

/report
Autor: Guitar Freak
Co-Autor: Colanus
Ideia: Shawak

Utilização: Muita gente tem problemas com bugs no mapa e até scripts, quests que não funcionam direito e outras coisas que passam despercebidos. E o pior de tudo é que o bug não reportado fica ali e prejudica ou incomoda os outros players. Com esse script, você pode verificar bugs e até mesmo o que os players estão achando do servidor, dá para fazer diferentes variações desse script.

Explicação: Esse é uma talkaction que reportará bugs, já enviando o local, nome do player que utilizou o reporte e horário em que foi reportado. Os reportes ficarão em data > logs em um arquivo chamado Reports.txt

Servidor Testado: 0.4
Não tenho certeza, mas parece que funciona a partir do 0.3+, incluindo 0.3.5

1º) Entre na pasta data > lib e abra o arquivo function.lua e coloque o código a seguir no final.

Código:

function setExhaust(cid, storage)
    setPlayerStorageValue(cid, storage, os.time())
end
 
function isExhausted(cid, storage, exhaust)
    local exhaustTime = getPlayerStorageValue(cid, storage)
    if exhaustTime == -1 then
        return FALSE
    end
    local isExhausted = os.time() - exhaustTime < exhaust
    return isExhausted and TRUE or FALSE

2º) Entre na pasta data > talkactions e abra o arquivo talkactions.xml e coloque o código a seguir abaixo de <talkactions>

Código PHP:

<talkaction log="no" words="/report" event="script" value="textreports.lua"/>

Obs.: Ele está adaptado para a versão 0.4, verifique a coerência de acordo com os outros talkactions e o adapte o código para servir melhor

3º) Ainda dentro da pasta talkactions, acesse a pasta scripts e copie um arquivo lua qualquer e renomeie para textreports colocando o código abaixo.

Código:

-- Créditos --
 -- Referencias: Shawak & Colandus.
 -- Modificações: Guitar Freak.
 
 local level = 8 -- Level mínimo para reportar.
 local minimum = 3 -- Número mínimo de caracteres por reporte.
 local maximum = 85 -- Número máximo de caracteres por reporte.
 
 local useExhaust = true -- True se você quiser usar exhaustion.
 local storageValue = 8000 -- Número para registrar a exaustão. Pode-se usar outro qualquer valor.
 local exhaustTime = 15 -- Tempo entre cada reporte (15 = 15 segundos).
  
function onSay(cid, words, param, channel)

        local getVoc = getPlayerVocationName(cid)
 local position = getCreaturePosition(cid)
 
 if getPlayerLevel(cid) < level then
   doPlayerSendTextMessage(cid,20,"Report Manager:")
   doPlayerSendTextMessage(cid,18,"You need to be at least level "..level.." to send a report.")
 
  elseif (useExhaust and isExhausted(cid, storageValue, exhaustTime) == TRUE) then
   doPlayerSendTextMessage(cid,20,"Report Manager:")
   doPlayerSendTextMessage(cid,18,"Sorry, you need to wait "..exhaustTime.." seconds before sending another report.")
 
  elseif param:len() < minimum then
   doPlayerSendTextMessage(cid,20,"Report Manager:")
   doPlayerSendTextMessage(cid,18,"Sorry, you need to enter atleast " .. minimum .. " characters to send in a report.")
 
  elseif param:len() > maximum then
   doPlayerSendTextMessage(cid,20,"Report Manager:")
   doPlayerSendTextMessage(cid,18,"Sorry, you can only write max. " .. maximum .. " characters per report.")
 
  else
   Log = io.open(getDataDir().."logs/Reports.txt", "a+")
   Log:write("Sent: "..os.date("%A %I:%M:%S %p.").."\n")
   Log:write("From position: X = "..position.x.." | Y = "..position.y.." | Z = "..position.z.."\n")
   Log:write(""..getPlayerName(cid).." ["..getPlayerLevel(cid).."] ("..getVoc.."): "..param.."\n\n")
   Log:close()
    doPlayerSendTextMessage(cid,20,"Report Manager:")
    doPlayerSendTextMessage(cid,27,"You have successfully sent your report. Thanks for your support.")
    setExhaust(cid, storageValue)
  end
  return TRUE
end

Agora é muito simples, basta dizer /report mensagem e a mensagem será reportada.

Obs.: Se você quiser adicionar as aspas do /report ", coloque o code
Código:
filter="quotation"
após "words" no xml. A mensagem será reportada dessa maneira /report " mensagem.

A mensagem ficará nesse estilo

Sent: Saturday 03:27:10 PM.
From position: X = 158 | Y = 51 | Z = 7
Player1 [30] (Knight): Hi there is a map bug in temple, please fix..

Agora, com um pequeno globalevent como esse, com o nome report.lua dentro de scripts:

Código:

function onThink(interval, lastExecution)
MENSAGEM = {
"Agora contamos com o sistema de reportar, onde o nome do que reporta, local e horário são automaticamente informados. Apenas fale /report e digite sua mensagem como por ex.: /report um erro no mapa aqui. " 
}
doBroadcastMessage(MENSAGEM, 22)
return TRUE
end

E adicionando isso no xml:

Código PHP:

<globalevent name="report" interval="950000" script="report.lua"/>

E os seus players serão alertados sobre o novo script.

!kit Pimeiros Socorros

2012-02-09T03:53:00.000-08:00

Nome do Script: Kit de Primeiros Socorros
Nome do Autor: TopMaster (topmaster)
Servidor Testado: TFS Tibia 8.60
Informações Adicionais: O script é simples ele adiciona a quem usa o comando uma bag com alguns itens essenciais para jogar como corda, shovel e etc.

Chega de papo e vamos começar =D

Primeiramente adicione essa tag em data/talkactions/talkactions.xml:

Código:

<talkaction log="yes" words="!kit" event="script" value="kit.lua"/>

Agora crie um arquivo kit.lua na pasta data/talkactions/scripts, e coloque isso dentro:

Código:

--[[Script by: TopMaster]]--

local reward = {
{item = 2120, count = 1}, -- Rope
{item = 5710, count = 1}, -- Light Shovel
{item = 2553, count = 1}, -- Pick
{item = 2420, count = 1}} -- Machete

local PRICE = 600 -- Coloque o valor em gps nesse caso puis 600gps.
local bag = doPlayerAddItem(cid, 5927, 1)

function onSay(cid, words, param)
  if doPlayerRemoveMoney(cid, PRICE) then
     for _, x in pairs(reward) do
      doAddContainerItem(bag, x.item, x.count)
     end
     doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Here's your first aid kit")
     doSendMagicEffect(getCreaturePosition(cid), CONST_ME_MAGIC_GREEN)
  else
     doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry, you don't have money!")
     doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
  end
 return true
end

Salve e fexe, pronto agora o jogador ao falar !kit ganhara o kit.

Vlw a todos =D

Edit--
Galera isso é para quando você esta preso num lugar que só de para sair usando shovel ou cortando algo com machete ou ate mesmo corda ou pick, como eu mesmo disse o script é simples e fiz ele porque já aconteceu diversas vezes isso comigo...

ate mais =D

Cemiterio amaldiçoado

2012-02-09T03:51:00.000-08:00

Bom gente primeiramente não quero que esperem que esse script seje 100% útil e nem que seje algo difícil, apenas pensei nele achei que fosse algo legal e fiz (garou deu uma leve compactada no tamanho dele =D).

Esse script funciona da seguinte maneira, no momento em que o player passar na área amaldiçoada do cemitério o script gerará uma math onde se o resultador for x sairá uma criatura morto-viva do chão . Viram é simples, mas bem divertido.

Vamos ensinar como fazer agora.

1º Passo:

Primeiramente você deverá abrir o map editor e colocar um Unique Id no chão que irá ficar amaldiçoado, é um trabalho chato mas alguém tem que fazer . No script que eu criei eu coloquei unique id 5002, mas você deve colocar outro caso possua algum script utilizando esse unique id.

2º Passo:
Com o segundo passo completo você deverá criar o script para que o unique id saiba o que fazer, como eu estou postando um script já pronto você não criará nada .
O script a seguir deverá ser posto na pasta (data/movements/scripts), sobre o nome do arquivo você coloca o que desejar, lembrando que a tag deverá conter o nome do arquivo que você colocar. Neste exemplo eu nomeei o arquivo de "cemiterio".

Código:

local config = {
   storage = 3500,
   interval = 2, -- em minutos
   monsters = {
       [1] = "Ghoul"
       [2] = "Skeleton"
   }
}

function onStepIn(cid, item, pos)
   local chance = math.random(1, #monsters)
   if isPlayer(cid) then
       if item.uid == 5002 then
           if getStorage(config.storage) <= os.time() then
               doCreateMonster(config.monsters[chance], pos)
               doSendMagicEffect(pos, 14)
               doSetStorage(config.storage, (os.time()+interval*60))
           end
       end
    end
    return true
end

Como alterar o script:
Você deve ter reparado que deixei algumas áreas coloridas no script, as alterações serão feitas lá, a seguir explicarei o que cada cor faz:
Verde: Ali no verde você irá colocar o unique id utilizado no script.
Vermelho: No vermelho você deverá colocar que número deverá dar para que um determinado monstro apareça, na tabela do script, foi configurado o número 1 para criar "Ghoul" e o número 2 para criar "Skeleton".
Marrom: Ali você irá colocar que monstro irá aparecer.
Blue: De quanto em quanto tempo surjirá um monstro.

3º passo:
Você agora irá dizer ao seu servidor aonde localizar a função daquela unique id, para isto você adicionará a tag a seguir em (data/movements/movements.xml):

Código:

<movevent event="StepIn" uniqueid="5002" script="cemiterio.lua" />

Pronto, o script está ai agora para quem quizer usar. Espero que tenham gostado, apesar de ser um script simples e não ter nenhuma real utilidade eu acho que é um script bem divertido.
Lembrando que vocês não precisam usar o script só em "cemitérios", quando eu tive a ideia eu pensei no filme a volta dos mortos vivos por isso o nome. Se você tiver ideias pode usar o script para criar por exemplo, a equipe rocket para um servidor de pokemon.

Qualquer dúvida é só postar aqui que eu responderei assim que possível (ou alguem que entenda ).

Garou - 50%
Dreus Exozol - 50%

Atenciosamente,
Dreus Exozol.

Mount Doll

2012-02-09T03:31:00.000-08:00

Mount Doll

Bom, eu procurei por todo canto esse script e não encontrei. Ai me vi necessitado a tentar criar por mim mesmo, porém faz alguns anos que não mexo com isso..

O script consiste em, um Doll onde o player que o possuir pode trocar por uma mount dizendo !mount (nome da mount). Ex: !mount midnight panther

O script não ficou muito bom, e deve tar todo gambiarrado como todos falam, porém, mesmo que ainda esteja incompleto, funciona.

Vamos lá:

Crie um arquivo mounts.lua na pasta talkactions/scripts e edite com o seguinte código:
Código:
-- Script by DMLDR
function onSay(cid, words, param, channel)
      
       local id = {
               ["widow queen"] = 1,
               ["racing bird"]= 2,
               ["war bear"] = 3,
               ["black sheep"] = 4,
               ["midnight panther"] = 5,
               ["draptor"] = 6,
               ["titanica"] = 7,
               ["tin lizzard"] = 8,
               ["blazebringer"] = 9,
               ["rapid boar"] = 10,
               ["stampor"] = 11,
               ["undead cavebear"] = 12
       }

       if (param == '') then
          doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Como usar: !mount (nome da mount)")
          return true

end

local mount = id[param:lower()]

if(mount) then
  if doPlayerRemoveItem(cid, 13031, 1) then
     doPlayerAddMount(cid, mount)
     doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você recebeu sua nova mount!")
  else
     doPlayerSendCancel(cid, "Você não tem um Mount Doll")
  end
end
return true
end
Entendendo o code:

Em Vermelho são os nomes que o player irá falar (no caso as mounts). Se seu OT tiver novas mounts, basta adicionar aqui com o nome e o ID delas.
Em Roxo são os id's das mounts (checar em XML/mounts.xml)
Em Amarelo é a mensagem quando o player disser apenas !mount
Em Rosa é a mensagem ao receber uma nova mount
Em Azul Claro é a mensagem quando o player não possuir o Mount Doll
Em Azul é o ID do Mount Doll (no caso está como o Draken Doll no meu OT)

Depois adicione a TAG ao talkactions.xml:
Código:
<talkaction words="!mount" event="script" value="mounts.lua"/>
Bacana DMLDR, mas o que ta faltando?
Bem, se o player tiver 2 Mount Dolls e comprar uma vez a mount da black sheep por exemplo, ele irá obter a mount. Se ele disser novamente !mount black sheep outro Mount Doll será consumido e ele irá receber a mensagem de que recebeu a mount que ele já tinha. Se alguem puder me ajudar a dar um jeito nisso (eu tentei de varias formas e não consegui) eu agradeço .

E eu espero que aprovem o script porque eu gastei 5 horas da minha vida tentando fazer

Comando adcionar itens aos players

2012-02-09T03:28:00.000-08:00

Adicionando Itens Para Todos Os Players.

Esse script dar itens para todos os players online.

Nome do Sistema ou Script : Additem
Nome do Autor : Dubler
Servidor Testado e/ou Versão do Tibia : 8.60 TFS 0.4_SVN
Descrição e/ou Informações Adicionais :
Manda o item desejado para todos os players do ot.

Exemplo:
/additem 2160,10

Link Direto para a imagem clique aqui

Em /data/talkactions/talkactions.xml

adicione:
Código:
<talkaction words="/additem" access="5" event="script" value="additem.lua"/>
Em /data/talkactions/scripts/additem.lua

adicione:
Código:
function onSay(cid, words, param, channel) -- Script by Dubler, written for megaevo.net
local t = string.explode(param, ",")
if t[1] ~= nil and t[2] ~= nil then
local list = {}
for i, tid in ipairs(getPlayersOnline()) do -- Script by Dubler, written for megaevo.net
list[i] = tid
end
for i = 1, #list do
doPlayerAddItem(list[i],t[1],t[2])
end -- Script by Dubler, written for megaevo.net
doBroadcastMessage(getPlayerName(cid) .. " has given reward: " .. t[2] .." ".. getItemNameById(t[1]) .. " for all players!")
else
doPlayerPopupFYI(cid, "No parm...\nSend:\n /itemadd itemid,how_much_items\nexample:\n /itemadd 2160,10")
end
return true
end -- Script by Dubler. custumizado por BERTOTTO
__________________________________________________ ______________________

Uma possível utilidade para o script:

Em datas comemorativas eu uso este comando para presentear todos os players com um item chamado
~~ premium da sorte
Com este item o player pode dar "use" e ganhar items raros/2 dias de vip/dinheiro ou nada.

Guild List !GLIST

2012-02-09T03:26:00.000-08:00

Guild List

Nome: Guild List
Autor: Vodkart
Versão Testada: 8.54 ~ 8.60
Comentários: Existem dois comandos neste script
/glist
Mostra em uma janela A lista de guilds que existem no seu servidor:

/glist NOME DE UMA GUILD
Mostra em uma janela os Membros,lider e vice-lider dessa guild.

talkactions/scripts

guildlist.lua

Código:

function onSay(cid, words, param, channel)
      if param == '' then
              local lista = db.getResult("SELECT `name` FROM `guilds`;")
              if(lista:getID() ~= -1) then
                      local a = ''
                      repeat
                              a = a .. lista:getDataString("name")  .. "\n"
                      until not lista:next()
                      lista:free()
                      doShowTextDialog(cid, 2529, a)
              else
                      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Não existem guilds no servidor.")
              end
      else
              local b = getGuildId(param)
              if b then
                      local lista = db.getResult("SELECT `name`, `rank_id` FROM `players` WHERE `rank_id` IN (SELECT `id` FROM `guild_ranks` WHERE `guild_id` = " .. b .. ");")
                      if(lista:getID() ~= -1) then
                              local a = ''
                              repeat
                                      local rank = db.getResult("SELECT `name` FROM `guild_ranks` WHERE `id` = " .. lista:getDataInt("rank_id") .. " LIMIT 1;")
                                      a = a .. lista:getDataString("name")  .. " [" .. rank:getDataString("name") .. "]\n"
                                      rank:free()
                              until not lista:next()
                              lista:free()
                              doShowTextDialog(cid, 2529, a)
                      else
                              doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Não há jogadores nesta guild.")
                      end
              else
                      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Está Guild não existe.")
              end
      end
      return TRUE
end

talkactions.lua

Código:

<talkaction words="/glist" script="guildlist.lua"/>

Piso Heala XXX veses

2012-02-09T03:25:00.000-08:00

piso que heala por x vezes

* Nome do Sistema ou Script: Piso Heal

Nome do Autor: Karyus
Servidor Testado e/ou Versão do Tibia: 8.60, tfs 0.4_dev
Descrição e/ou Informações Adicionais: Bem, antes de começar fiz esse script para treinar.
Ele funciona assim, ao pisar no tile ele ira healar o player X vezes (configuraveis) a cada Y (segundos).
Scripts e Como Instalar: va ate data/movements/movements.xml e adicione a seguinte tag
<movevent type="StepIn" actionid="xxxx" event="script" value="piso.lua"/>
Legenda: xxxx = a sua action, que voce colocará no piso atraves do mapa editor.

apos isso va em data/movements/scripts e crie um arquivo chamado piso.lua abra e coloque o codigo abaixo:
Código:
--CONFIGURAÇÕES--
local config = {
healMax = 500, -- Máximo que vai curar, retire um zero para calculos exemplo se for 500 sera 50, se for 2000 sera 200 o valor do max.
healMin = 250, -- Mínimo que vai curar, retire um zero para calculos exemplo se for 250 sera 25, se for 1000 sera 100 o valor do min.
healTime = 10, -- Quantas vezes ira healar o player
healexausted = 1, -- Tempo de cada healada em segundos
storage = 100, -- Storage, não altere
}

--NÃO ALTERE NADA ABAIXO SE NÃO SOUBER O QUE ESTÁ FAZENDO--

function healPlayer(cid, i, hp)
if isPlayer(cid) then
doCreatureAddHealth(cid, math.ceil(hp/config.healTime))
if (i < config.healTime) then
addEvent(healPlayer, config.healexausted*1000, cid, i+1, hp)
end
end
end

function onStepIn(cid, item, pos)
if getPlayerStorageValue(cid, config.storage) <= 0 then
setPlayerStorageValue(cid, config.storage, 1)
local hp = math.random(config.healMin, config.healMax)
addEvent(healPlayer, config.healexausted*1000, cid, 1, hp)
addEvent(setPlayerStorageValue, config.healTime*1000, cid, config.storage, -1)
return true
end
end
Creditos: 95% a mim
5% a IUNIX por me avisar de uns erros

Magia Life Drain "x"

2012-02-08T07:37:00.000-08:00

Nome: Life Drain
.Versão: Testado em TFS 8.54, mas funciona em qualquer ot..
Tipo do script: Spell.
Servidor Testado: Youots 8.54.
Autor: Willlian BC
.Explicação: A magia suga a vida de uma criatura, e pega pra ela.
.Comentario: Bom, eu nao postei nem uma SS, por que ela nao tem efeito nem um em especial, (o mesmo efeito do exura quando enche a vida.) Ela Tem um dano balanceado de 10% da vida do alvo e nao pode ser usada para matar ( ela so tira no maximo 60% da vida, depois disso manda uma msg...) ,

eu nao escolhe as vocaçoes (ou seja todos podem usar).
DATA/SPELL/spell.xml

Código:

<instant name="Life Draw" words="life drain x"    lvl="50" mana="300"  range="5" needtarget="1" blockwalls="1"  exhaustion="2000"  event="script" value="Battle/support/lifedrain.lua">
   </instant>

DATA/SPELL/Battle/support/lifedrain.lua

Código:

--[[
--    You can use this spell and copy and modify it.    --
--                Created By SailorMoonLive                --
--    But pls don't remove this comment                --
]]

function onCastSpell(cid, var)
    local CreatureMaxHealth =    getCreatureMaxHealth(getCreatureTarget(cid))
if getCreatureTarget(cid)  then
    local CreatureHealth =        getCreatureHealth(getCreatureTarget(cid))
    local critLife = CreatureMaxHealth/2
    local lifedraw = ( CreatureHealth / 10)
     if CreatureHealth >= critLife  then
         local Target = getCreatureTarget(cid)
         local targetPos = getPlayerPosition(Target)
             doCreatureAddHealth(Target, -lifedraw, COMBAT_LIFEDRAIN)
              doSendAnimatedText(targetPos, lifedraw , TEXTCOLOR_GOLD)
             doSendMagicEffect(targetPos, 0)
         local pos = getPlayerPosition(cid)
             doCreatureAddHealth(cid, lifedraw, 1)
             doSendAnimatedText(playerPos, lifedraw , TEXTCOLOR_GOLD)
           doSendMagicEffect(pos, CONST_ME_MAGIC_BLUE)
       else
           doCreatureSay(getCreatureTarget(cid), "No Kill Me PLS", 1)
           doCreatureSay(cid, "Vasa Daqui antes que eu mude de ideia", 1)         
     end
end
end

Magia (ALQUIMIA) cria itens

2012-02-08T07:27:00.000-08:00

Nome: Alquimia

Versão: 8.6

Tipo do script: Spell
.
Servidor Testado: The Forgotten Server
.
Autor: Alkaliine

Descrição:bem a magia e bem simples com determinados itens vc cria uma potion.

Comentário:~

Vá na pasta data/spells/scripts/support e copie qualquer arquivo dali e renomeie para alquimia.lua depois apague tudo que tem dentro e coloque isto:

Código PHP:

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)


function onCastSpell(cid, var)
    pos = getPlayerPosition(cid)
    if getPlayerItemCount(cid, 2674) >= 1 and getPlayerItemCount(cid, 2675) >= 1 then
        if doPlayerRemoveItem(cid, 2674, 1) and doPlayerRemoveItem(cid, 2675, 1) then
            chance = math.random(1,2)
            if chance == 1 then 
                doPlayerAddItem(cid, 8704, 1)
                doSendAnimatedText(getCreaturePosition(cid), 'CREATE!', COLOR_ORANGE)
                doSendMagicEffect(pos,13)
            else
                doPlayerAddItem(cid, 7636, 1)
                doSendAnimatedText(getCreaturePosition(cid), 'FAIL!', COLOR_ORANGE)
                doSendMagicEffect(pos,7)
            end
        return doCombat(cid, combat, var)
        end
    else
        doPlayerSendCancel(cid, 'Você nao tem os itens certos.')
        doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
    end
end

Explicando.

A criaçao de potion tem chances de dar certo ou nao.

2674 = 1 iten necessario para criar a potion(no caso e uma maça)obs: mude os 2 ids2675 = 2 item necessario para criaçao da potion ( no caso uma laranja)8704 = ID da potion que vc irá ganhar.7636 = ID do iten que vc ira receber caso vc nao consiga fazer a potion.

Depois vá em data/spells e abra o arquiivo spells.xml e adicione isto :

Código PHP:

    <instant name="create potion" words="create potion" lvl="100" mana="300" direction="1" exhaustion="3000" needlearn="0" script="support/alquimia.lua">
        <vocation name="Elder Druid" />
        <vocation name="Druid" />
         </instant>

Explicando.

create potion = nome que vc ira usar para conjurar a magia.

Ate a proxima .
OBS; Pesso para quem testar, diponibilizar a foto caso nao seja incomodo.

Sacricifing Souls (alemnta vida com as souls)

2012-02-08T07:23:00.000-08:00

Nome: Sacricifing Souls
Autor: Saymon
Versão Testada: Mix War (TCS) 8.60

Faaaala galera, aqui estou eu com mais outra magia, dessa vez uma magia mais simples, quando o player usar essa magia gastará uma determinada quantidade de Soul's, em troca disso ele vai regenerar todo o life e mana, por isso aconselho colocar para gastar toda soul.

crie um arquivo com o nome Sacrifice.lua, e coloque isso dentro:[code=lua]function onCastSpell(cid, var)

local soul = 200 -- quantidade de soul

if getPlayerSoul(cid) >= soul then
doCreatureAddMana(cid, getCreatureMaxMana(cid))
doCreatureAddHealth(cid, getCreatureMaxHealth(cid))
doSendAnimatedText(getPlayerPosition(cid), "Sacrifice", 210)
doPlayerAddSoul(cid, -soul)
local pos = getPlayerPosition(cid)
local effectPositions = {
{x = pos.x, y = pos.y - 3, z = pos.z},
{x = pos.x, y = pos.y + 3, z = pos.z},
{x = pos.x - 3, y = pos.y, z = pos.z},
{x = pos.x + 1, y = pos.y, z = pos.z},
{x = pos.x - 2, y = pos.y - 2, z = pos.z},
{x = pos.x + 2, y = pos.y - 2, z = pos.z},
{x = pos.x + 3, y = pos.y + 2, z = pos.z},
{x = pos.x - 3, y = pos.y + 2, z = pos.z}
}
for _, ePos in ipairs(effectPositions) do
doSendDistanceShoot(pos, ePos, 30)
doSendMagicEffect(ePos, 49)
end
else
doPlayerSendCancel(cid, "Sorry, you need "..soul.." or more for use this spell.")
end
return FALSE
end[/code]
em seguida vá no spells.xml e coloque a seguinte tag:

Código PHP:

    <instant name="Sacrificing Souls" words="utori ani" lvl="50" mana="0" prem="1" selftarget="1" blockwalls="1" exhaustion="5000" needlearn="0" script="Sacrifice.lua">       
<vocation name="NOME DA VOCAÇÃO AQUI"/>       
<vocation name="NOME DA VOCAÇÃO AQUI"/>   
</instant>

Pronto ! agora vo ensinar a mudar a quantidade de soul's, procure no script por essa função:

Código PHP:

local soul = 200 -- quantidade de soul

Ai no caso estar 200, mude para quantidade que voçe quiser, até mais. :loool:

Transformação Animal

2012-02-08T07:22:00.000-08:00

Transformação animal.

Autor:
Servidor testado: TFS 0.3.1
Versao: 1.1

Bem, quem frequenta forums concorrentes sabe que essa spell quem fez foi shawak, eu fiz muito antes dele, eu nao o culpo por ter a mesma idea que eu, essa spell mal chegou para o pulblico, so apareceu uma vez no pharenight, é uma spell de buff.
Bem eu vou ensinar logo como se instala e instalar logo para depois eu explicar.

Vá ate spells.xml e adcione essas tags:

Código PHP:

        <instant name="Transformation Bear" words="utamo anima bear" lvl="34" mana="0" aggressive="0" exhaustion="1500" needlearn="0" script="druidbear.lua">
        <vocation name="Druid"/>
        <vocation name="Elder Druid"/>

    </instant>
            <instant name="Transformation tiger" words="utamo anima tiger" lvl="34" mana="0" aggressive="0" exhaustion="1500" needlearn="0" script="druidtiger.lua">
        <vocation name="Druid"/>
        <vocation name="Elder Druid"/>
    </instant>
                <instant name="Transformation elephant" words="utamo anima elephant" lvl="34" mana="0" aggressive="0" exhaustion="1500" needlearn="0" script="druidele.lua">
        <vocation name="Druid"/>
        <vocation name="Elder Druid"/>
</instant>

Scripts em lua

-----------------------------------------------------------------

Código:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_SUBID, 1)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, -10)

local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat2, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition2 = createConditionObject(CONDITION_REGENERATION)
setConditionParam(condition2, CONDITION_PARAM_SUBID, 2)
setConditionParam(condition2, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition2, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition2, CONDITION_PARAM_HEALTHGAIN, 25)
setConditionParam(condition2, CONDITION_PARAM_HEALTHTICKS, 1500)

local combat3 = createCombatObject()
setCombatParam(combat3, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat3, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition3 = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition3, CONDITION_PARAM_SUBID, 3)
setConditionParam(condition3, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition3, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition3, CONDITION_PARAM_STAT_MAGICLEVEL, 2)

function onCastSpell(cid, var,param)
pos = getCreaturePosition(cid)

local mana = (400)
   if(getCreatureMana(cid) < mana) then
 doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTENOUGHMANA)
 doSendMagicEffect(pos, CONST_ME_POFF)
 return LUA_ERROR
end
if(doCombat(cid, combat, var) ~= LUA_NO_ERROR) then
 doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
 doSendMagicEffect(pos, CONST_ME_POFF)

 return LUA_ERROR
end
doSetCreatureOutfit(cid,{lookType = 16, lookHead =  getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet, lookAddons = getCreatureOutfit(cid).lookAddons},2 * 60 * 1000)
   doAddCondition(cid, condition)
   if param == bixos[1] then
   end
   doAddCondition(cid, condition2)
   doAddCondition(cid, condition3)
doCreatureAddMana(cid, -mana, FALSE)
doPlayerAddSpentMana(cid, mana)
return LUA_NO_ERROR
end

-----------------------------------------------------------------

Código:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_SUBID, 1)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, -100)

local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat2, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition2 = createConditionObject(CONDITION_REGENERATION)
setConditionParam(condition2, CONDITION_PARAM_SUBID, 2)
setConditionParam(condition2, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition2, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition2, CONDITION_PARAM_HEALTHGAIN, 1)
setConditionParam(condition2, CONDITION_PARAM_HEALTHTICKS, 1500)

local combat3 = createCombatObject()
setCombatParam(combat3, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat3, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition3 = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition3, CONDITION_PARAM_SUBID, 3)
setConditionParam(condition3, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition3, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition3, CONDITION_PARAM_STAT_MAGICLEVEL, 25)

local condition4 = createConditionObject(CONDITION_HASTE)
setConditionParam(condition4, CONDITION_PARAM_TICKS,  2 * 60 * 1000)
setConditionFormula(condition4, 1.8, -72, 2.8, -72)


function onCastSpell(cid, var,param)
pos = getCreaturePosition(cid)

local mana = (400)
   if(getCreatureMana(cid) < mana) then
 doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTENOUGHMANA)
 doSendMagicEffect(pos, CONST_ME_POFF)
 return LUA_ERROR
end
if(doCombat(cid, combat, var) ~= LUA_NO_ERROR) then
 doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
 doSendMagicEffect(pos, CONST_ME_POFF)

 return LUA_ERROR
end
doSetCreatureOutfit(cid,{lookType = 125, lookHead =  getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet, lookAddons = getCreatureOutfit(cid).lookAddons},2 * 60 * 1000)
   doAddCondition(cid, condition)
   doAddCondition(cid, condition2)
   doAddCondition(cid, condition3)
   doAddCondition(cid, condition4)
doCreatureAddMana(cid, -mana, FALSE)
doPlayerAddSpentMana(cid, mana)
return LUA_NO_ERROR
end

-----------------------------------------------------------------

Código:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_SUBID, 1)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, 30)

local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat2, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition2 = createConditionObject(CONDITION_REGENERATION)
setConditionParam(condition2, CONDITION_PARAM_SUBID, 2)
setConditionParam(condition2, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition2, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition2, CONDITION_PARAM_HEALTHGAIN, 1)
setConditionParam(condition2, CONDITION_PARAM_HEALTHTICKS, 1500)

local combat3 = createCombatObject()
setCombatParam(combat3, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat3, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition3 = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition3, CONDITION_PARAM_SUBID, 3)
setConditionParam(condition3, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition3, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition3, CONDITION_PARAM_STAT_MAGICLEVEL, -10)

function onCastSpell(cid, var,param)
pos = getCreaturePosition(cid)

local mana = (400)
   if(getCreatureMana(cid) < mana) then
 doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTENOUGHMANA)
 doSendMagicEffect(pos, CONST_ME_POFF)
 return LUA_ERROR
end
if(doCombat(cid, combat, var) ~= LUA_NO_ERROR) then
 doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
 doSendMagicEffect(pos, CONST_ME_POFF)

 return LUA_ERROR
end
doSetCreatureOutfit(cid,{lookType = 211, lookHead =  getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet, lookAddons = getCreatureOutfit(cid).lookAddons},2 * 60 * 1000)
   doAddCondition(cid, condition)
   doAddCondition(cid, condition2)
   doAddCondition(cid, condition3)
doCreatureAddMana(cid, -mana, FALSE)
doPlayerAddSpentMana(cid, mana)
return LUA_NO_ERROR
end

-----------------------------------------------------------------

Agora posso explicar

Bem, o script é o seguinte, você fala poe exemplo utamo anima bear, e você se transforma em um urso por um periodo de tempo gastando 400 de mana, e nisso perdendo 10 skills de shiend, sua regeneração de HP aumentada e seu ML em +2.
Caso fale utamo anima tiger você: fica com 0 de shielding mais seu ML é aumentado em 25
Caso use o modo elefante o ML dece em 10 pontos e o shield sobe em 20 pontos.
Eu privei o usso de SS nesse topico pois nao vejo por que postar foto. apenas para deichar o topico maior? A nescessidade de SS nao existe pois seria a mesma coisa de se usar utevo res ina so que você ganha status

Quem quiser agradeça a shawak, eu fiz primeiro mais ele postou primeiro caso de briga algo assim pode me falar que eu mando os arquivos originais que a utima modificação foi em quinta-feira, 4 de junho de 2009, 19:40:24

Soul Burn (almenta soul do player)

2012-02-08T07:20:00.000-08:00

Aviso: A cópia deste script, assim como outros feitos por mim, é proibida, tanto na própria OTServ Networks quanto em outros fórums.

Padrão de Postagem

Nome: Soul Burn
Autor: Skyen Hasus
Tipo: Magia (Spell)
Data de Criação: 18 de Julho de 2009
Versão Testada: The Forgotten Server Versão 3 Beta 3

Esta magia foi modificada: 1 vez.

Histórico: 1ª Mudança

Mudança no dano da magia.
Adicionada Screenshot.

Informações

Palavras: Utamo Ina
Nível Necessário: 20
Área Afetada: 16 por 16, centralizada no jogador. (8 Tiles a cada direção do jogador.)
Efeitos: Yalahari Ghost e Magic Red
Animações: Energy Ball

Descrição

Esta magia extrai a alma dos monstros que estiverem na área de efeito. O monstro perderá 33% dos pontos de vida, e aumentará entre 1 a 3 pontos de Soul do jogador que usou a magia. Como efeito colateral, o jogador vai perder a mesma quantidade de vida que o monstro, por isso deve-se tomar cuidado ao usar a magia, pois você pode morrer se não souber o que está fazendo. Se você tiver 1000 pontos de vida, e atacar 10 monstros com 600 de vida, você morrerá.

Screenshot

".../data/spells/scripts/Soul Burn.lua"

Código PHP:

function onCastSpell(cid, param)
  local spec = getSpectators(getCreaturePosition(cid), 8, 8, FALSE)
    for i, pid in ipairs(spec) do
        if isMonster(pid) == TRUE and isPlayer(cid) and getCreatureHealth(pid) > 1 then
          doCreatureAddHealth(cid, -(getCreatureHealth(pid)/3))
          doCreatureAddHealth(pid, -(getCreatureHealth(pid)/3))
          doSendMagicEffect(getCreaturePosition(pid), CONST_ME_YALAHARIGHOST)
          doSendDistanceShoot(getCreaturePosition(pid), getCreaturePosition(cid), CONST_ANI_ENERGYBALL)
          doPlayerAddSoul(cid, math.random(1, 3))
        end
    end
  doSendMagicEffect(getCreaturePosition(cid), CONST_ME_MAGIC_RED)
  return TRUE
end

".../data/spells/spells.xml"

Código PHP:

<instant name="Soul Burn" words="utamo ina" lvl="20" mana="200" exhaustion="1000" script="soul burn.lua"/>

Esta magia foi criada em prol do movimento 'CABE'. (Contra As Bostas Editadas.)

Criatura Anti BOT

2012-02-08T07:16:00.001-08:00

Olá pessoal!
Hoje vim trazer-lhes uma coisa que me foi muito útil durante o período em que meu server estava aberto, minhas criaturas anti-bot!

Detalhes:

Você pode encontrar sistemas anti-bot mais complexos tão ou mais funcionais que o meu.
Meu sistema é simples, MUITO SIMPLES, pois não envolve nada além de uma criatura.xml e também não perturba jogadores normais com equações matemáticas complexas(2+2?)!

Funcionalidade:

O god, ou gm, que seja, deve apenas sumonar a criatura em uma área próxima de onde o botter estiver.
A criatura tem atributos identicos a uma normal. No caso desse tópico, usei uma Rotworm.
O botter irá atacar a Rotworm genérica, e aí a festa começa: ela sempre se distancia do jogador, logo o jogador começa a ser lurado para outras criaturas normais --> essa já é uma possibilidade de morte
Se o jogador consegue encostar na criatura, ele começará a tomar mana e life drain. O mana drain é útil para evitar que os players se curem com spells. O life drain vai infrigindo um dano cada vez maior ao jogador, e lembrando, que por ser life drain - e não porrada - os skills e equips do jogador não interferem no dano recebido! --> essa é a principal possibilidade de morte!
Depois de determinado tempo, a criatura anti-bot some sozinha.

Detalhes de funcionalidade:

É muito difícil um jogador normal morrer para uma dessas criaturas, pois elas se distanciam e têm comportamentos bizarros(inclusive falas bizarras). Um jogador normal logo perceberia que "aquela rot ta bugada" e deixaria ela em paz, até a hora que ela sumir.
Meu servidor era pequeno, então eu não tinha muitos botters, e podia sumonar as criaturas manualmente. Mas se você preferir, pode fazer uma raid você mesmo, para dar mais autonomia na hora de summonar as criaturas anti-bot.
Você pode configurar o que quiser no script, faça o que você achar melhor.

Instalando o script:

Vá na pasta monster, e crie um arquivo chamado antibot.xml.
Dentro do antibot.xml, cole o código abaixo

Código HTML:

<?xml version="1.0" encoding="UTF-8"?>
<monster name="Rotworm" nameDescription="a rotworm" race="undead" experience="0" speed="250" manacost="0">
   <health now="65" max="65"/>
   <look type="26" head="0" body="0" legs="0" feet="0" corpse="0"/>
   <targetchange interval="5000" chance="0"/>
   <strategy attack="200" defense="0"/>
   <flags>
       <flag summonable="0"/>
       <flag attackable="1"/>
       <flag hostile="1"/>
       <flag illusionable="0"/>
       <flag convinceable="0"/>
       <flag pushable="0"/>
       <flag canpushitems="1"/>
       <flag canpushcreatures="1"/>
       <flag targetdistance="2"/>
       <flag staticattack="80"/>
       <flag runonhealth="0"/>
   </flags>
   <attacks>
       <attack name="lifedrain" interval="2000" range = "1" max="-35"/>
       <attack name="lifedrain" interval="8000" range = "1" min="-35" max="-70"/>
       <attack name="lifedrain" interval="32000" range = "1" min="-70" max="-140"/>
       <attack name="lifedrain" interval="64000" range = "1" min="-140" max="-210"/>
       <attack name="lifedrain" interval="120000" range = "1" min="-210" max="-280"/>
       <attack name="manadrain" interval="1900" range = "1" min ="-5" max="-5"/>
   </attacks>
   <defenses armor="15" defense="12">
      
       <defense name="healing" interval="121000" chance="100" min="-1">
           <attribute key="areaEffect" value="poff"/>
       </defense>
         <defense name="invisible" interval="96000" duration="24000">
         <attribute key="areaEffect" value="poff"/>
      </defense>
   </defenses>
   <immunities>
       <immunity physical="1"/>
       <immunity energy="1"/>
       <immunity fire="1"/>
       <immunity poison="1"/>
       <immunity lifedrain="1"/>
       <immunity ice="1"/>
       <immunity paralyze="1"/>
       <immunity outfit="1"/>
       <immunity drunk="1"/>
       <immunity invisible="1"/>
       <immunity death="1"/>
       <immunity holy="1"/>
       <immunity drunk="1"/>       
   </immunities>

   <voices interval="5000" chance="10">
       <voice sentence="Don't waste your time with me, human."/>
       <voice sentence="I am here for another proposals."/>
       <voice sentence="Leave me alone, and I won't disturb you."/>
       <voice sentence="LaLaLaLaLaLa EaE LaLaLaLaLaLaLa"/>
   </voices>
</monster>

Ainda na pasta monster, abra o aqruivo monsters.xml, e coloque a linha abaixo onde preferir.

Código HTML:

<monster name="Anti Bot" file="antibot.xml"/>

Detalhes adicionais:

Funciona com qualquer servidor SQL/SQLite, vide TFS, Crystal Server, etc.
Esse sistema é útil para o caso de você preferir uma punição alternativa ao sistema de banir. Você não o expulsa do servidor, mas apenas dá aquela trollada deliciosa ;D
Créditos: Delvire

SS:

Espero ter sido útil! Até mais!