Tibia2015br

*Junto vem um dll com o ip(127.0.0.1) mais não se preocupe coloquei o projeto do Visual C++ para você mudar o ip e recompilar.
 
Ela está disponivel aki:
  Audio Dll+Project VC++.rar   498.3KB   21 downloads
 
 
 
Prontinho agora vamos a instalação:
 
Primeiro execute o server de audio junto ao seu otserv:
  Server Audio Dll or Vb Form.rar   80.84KB   15 downloads
 
Instale a blibioteca lua socket no seu otserv:
http://w3.impa.br/~d...ware/luasocket/
 
 
 
Agora coloque está funcão na sua lib:
function sendAudio(cid, audio)
require('socket') 
local ip = "127.0.0.1" -- Seu ip Aki
local client = socket.connect(ip, 1234)
local t = "Send,"..doConvertIntegerToIp(getPlayerIp(cid))..","..audio..""
    client:send(t.."\n")
    client:settimeout(0.1)
client:close()
end Pronto quando quiser executar um som basta usar a função sendAudio(cid, "id audio")
 
Se tiver usando a dll todos o sons devem ser guardados junto a ela.
 
Todos os formatos de audio devem ser ".wav" e todos precisam ser enumerados de 000 a 999 se não seguir tal regra terá varios problemas.
 
Agora vou passar um codigo em vb que fiz para você injentar a dll antes que o seu client inicie:
E NECESSARIO EXECUTAR DENTRO DE UM THEARED QUANDO FOR FAZER O SEU LAUNCHER.
 
 
Spoiler     
Imports System.Threading

 

Public Class PBO
    Private trd As Thread
 
    Private TargetProcessHandle As Integer
    Private pfnStartAddr As Integer
    Private pszLibFileRemote As String
    Private TargetBufferSize As Integer
 
    Public Const PROCESS_VM_READ = &H10
    Public Const TH32CS_SNAPPROCESS = &H2
    Public Const MEM_COMMIT = 4096
    Public Const PAGE_READWRITE = 4
    Public Const PROCESS_CREATE_THREAD = (&H2)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_VM_WRITE = (&H20)
 
    Public Declare Function ReadProcessMemory Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpBaseAddress As Integer, _
    ByVal lpBuffer As String, _
    ByVal nSize As Integer, _
    ByRef lpNumberOfBytesWritten As Integer) As Integer
 
    Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
    ByVal lpLibFileName As String) As Integer
 
    Public Declare Function VirtualAllocEx Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpAddress As Integer, _
    ByVal dwSize As Integer, _
    ByVal flAllocationType As Integer, _
    ByVal flProtect As Integer) As Integer
 
    Public Declare Function WriteProcessMemory Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpBaseAddress As Integer, _
    ByVal lpBuffer As String, _
    ByVal nSize As Integer, _
    ByRef lpNumberOfBytesWritten As Integer) As Integer
 
    Public Declare Function GetProcAddress Lib "kernel32" ( _
    ByVal hModule As Integer, ByVal lpProcName As String) As Integer
 
    Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
    ByVal lpModuleName As String) As Integer
 
    Public Declare Function CreateRemoteThread Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpThreadAttributes As Integer, _
    ByVal dwStackSize As Integer, _
    ByVal lpStartAddress As Integer, _
    ByVal lpParameter As Integer, _
    ByVal dwCreationFlags As Integer, _
    ByRef lpThreadId As Integer) As Integer
 
    Public Declare Function OpenProcess Lib "kernel32" ( _
    ByVal dwDesiredAccess As Integer, _
    ByVal bInheritHandle As Integer, _
    ByVal dwProcessId As Integer) As Integer
 
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Integer
 
    Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
    ByVal hObject As Integer) As Integer
 
 
    Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)
 
    Private Sub Inject()
        Dim client As String = Application.StartupPath + "\dll\client.exe"
        If Not System.IO.File.Exists(client) Then
            MsgBox("ERROR! Verifique se a os arquivos (data) estão todos presentes se não baixe o launcher denovo" + vbNewLine + "Error de caminho")
        End If
        Dim x = Shell(client)
        While True
            If x Then
                Exit While
            End If
        End While
 
        On Error GoTo 1 ' If error occurs, app will close without any error messages
        Dim caminho As String = Application.StartupPath + "\dll\dllPBO.dll"
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, x)
        pszLibFileRemote = caminho
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = 1 + Len(pszLibFileRemote)
        Dim Rtn As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
1:      Application.Exit()
    End Sub
 

https://www.youtube.com/watch?v=YGLv40caK3Y
 
veja o vide-o todo
 
se te ajudei cade o like

Sistema de Aura [V1.0]
 
Opa galera. Hoje eu vim postar para voces, um sistema de Aura.
Tipo .. eu não tinha nada pra fazer... e então eu resolvi postar esse conteúdo para contribuir mais com o forum... porque ultimamente, eu não venho postando conteúdos para os usuários , kkkkkk
 
Funcionamento:
 
Bom. Existe um NPC, que vende as auras por 100k cada.
Existe 8 tipos de auras diferentes. [ Death, Earth, Posion, Ice, Physical, Energy, Holy, Fire ].
Não existe maximo de aura para cada player, se o player quizer, ele pode comprar as 8.
 
Bom .. Quando o player toma um dano do tipo, da aura que ele tem, ele tem 50% de refletir ou absorver .
 
Exemplo : Eu compro uma aura de death. vamos dizer que um outro jogador me taca uma SD. 
Eu tenho 50% de chance, de refletir essa SD para o outro jogador, ou eu posso tomar o dano dela.
 
Configuraçoes:
 
Bom .. as configuraçoes são muito simples .
Para configurar o preço da aura, é o seguinte
 
no script do NPC. voce procura por
 
local gold_id . para mudar o ID do gold . no caso está no crystal coin (10k)
local ammount . é para mudar a quantidade, no caso está 10 . então são 10 crystal coins, ou seja, 100k.
 
Sistema :
 
Bom. para instalar é bem simples também. 
 
Vá em Pasta_do_Servidor / Data / Creaturescript / Scripts / 
Crie um arquivo chamado : AuraSystem.lua
 
E ponha isto dentro :
 
Link dos Códigos. Aqui
 
Agora, continuando na mesma pasta , vá em login.lua
e antes do ultimo Return True
Adicione : registerCreatureEvent(cid, "AuraSystem")
 
Agora, vá em creaturescript.xml
 
E adicione esta tag 
 
<event type="statschange" name="AuraSystem" event="script" value="AuraSystem.lua"/>
 
Agora. vá em Data / Npc / Scripts
Crie um arquivo chamado : AuraSystem.lua
 
E ponha isto :
 
Link dos Códigos: Aqui
 
Agora Na pasta dos NPCs, crie um Arquivo chamado : Aura.xml
E adicione dentro
 
Link dos Códigos: Aqui
 
 
Bom galera, feito isso é so testar e curtir.
 
Créditos
 
Feito 100% Por Min. (OrochiElf / Tony PlySon / Tony Araújo.)

LOL.
Isso é normal do Tibia!...

Se quiser que quando você ande ele não desmarque, vai no teu Tibia em, Options>General>Auto Chase você desmarca a caixinha 
 
se te ajudei mi ajuda da um like

ai gente estou mostrando como criar uma area vip onde so pleyers vip pode pasar
 
 
 
Em movemments.xml adicione:
 
<movevent type="StepIn" actionid="9999" event="script" value="premium tile.lua"/>
 
Agora em movemments -> scripts  criem um arquivo lua chamado premium tile.lua: e cole isso
 
function onStepIn(cid, item, position, fromPosition)
 
local Denied = "Voce nao é Premium" -- mensagem que deseja que aparece quando não for premiun
local Welcome = "Bem vindo a uma area Premium."
 
 
if isPremium(cid) == false then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Denied)
doTeleportThing(cid, fromPosition, true)
doSendMagicEffect(position,13)
return TRUE
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Welcome)
doSendMagicEffect(position,14)
return TRUE
end
 
 
AS DUAS MSM EM VERDE VC PODE EDITAR A PRIMEIRA
 
ocal Denied = "Voce nao é Premium"  É A MSM Q VAI APARECER SE O PLAYER NÃO FOR PREMIUM
 
local Welcome = "Bem vindo a uma area Premium." É A MSM Q VAI APARECER SE O PLAYER FOR PREMIUN

Ola , pelo q eu vi parece ser bom o otserv mas para as pessoas ter mais certeza axo q você deveria add umas 3 prints a mais porque 2 duas prints as pessoas fika na duvida né

ai gente estou mostrando como criar uma area vip onde so pleyers vip pode pasar
 
 
 
Em movemments.xml adicione:
 
<movevent type="StepIn" actionid="9999" event="script" value="premium tile.lua"/>
 
Agora em movemments -> scripts  criem um arquivo lua chamado premium tile.lua: e cole isso
 
function onStepIn(cid, item, position, fromPosition)
 
local Denied = "Voce nao é Premium" -- mensagem que deseja que aparece quando não for premiun
local Welcome = "Bem vindo a uma area Premium."
 
 
if isPremium(cid) == false then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Denied)
doTeleportThing(cid, fromPosition, true)
doSendMagicEffect(position,13)
return TRUE
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Welcome)
doSendMagicEffect(position,14)
return TRUE
end
 
 
AS DUAS MSM EM VERDE VC PODE EDITAR A PRIMEIRA
 
ocal Denied = "Voce nao é Premium"  É A MSM Q VAI APARECER SE O PLAYER NÃO FOR PREMIUM
 
local Welcome = "Bem vindo a uma area Premium." É A MSM Q VAI APARECER SE O PLAYER FOR PREMIUN

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

Ai se tem outro tópico igual malz aew soq tenho certeza q não é com esse video
 
function onUse(cid, item)   local chest = {1746,1747,1748,1749} -- IDs dos chests   if isInArray(chests, item.itemid) then for i = 1, 10 do doPlayerAddItem(cid, getContainerItem(item.uid, i)) end else doPlayerSendCancel(cid, "The chest it's empty") end return true end  
credito do script Caronte
 
se te ajudei mi ajude dando um like

*Junto vem um dll com o ip(127.0.0.1) mais não se preocupe coloquei o projeto do Visual C++ para você mudar o ip e recompilar.
 
Ela está disponivel aki:
  Audio Dll+Project VC++.rar   498.3KB   21 downloads
 
 
 
Prontinho agora vamos a instalação:
 
Primeiro execute o server de audio junto ao seu otserv:
  Server Audio Dll or Vb Form.rar   80.84KB   15 downloads
 
Instale a blibioteca lua socket no seu otserv:
http://w3.impa.br/~d...ware/luasocket/
 
 
 
Agora coloque está funcão na sua lib:
function sendAudio(cid, audio)
require('socket') 
local ip = "127.0.0.1" -- Seu ip Aki
local client = socket.connect(ip, 1234)
local t = "Send,"..doConvertIntegerToIp(getPlayerIp(cid))..","..audio..""
    client:send(t.."\n")
    client:settimeout(0.1)
client:close()
end Pronto quando quiser executar um som basta usar a função sendAudio(cid, "id audio")
 
Se tiver usando a dll todos o sons devem ser guardados junto a ela.
 
Todos os formatos de audio devem ser ".wav" e todos precisam ser enumerados de 000 a 999 se não seguir tal regra terá varios problemas.
 
Agora vou passar um codigo em vb que fiz para você injentar a dll antes que o seu client inicie:
E NECESSARIO EXECUTAR DENTRO DE UM THEARED QUANDO FOR FAZER O SEU LAUNCHER.
 
 
Spoiler     
Imports System.Threading

 

Public Class PBO
    Private trd As Thread
 
    Private TargetProcessHandle As Integer
    Private pfnStartAddr As Integer
    Private pszLibFileRemote As String
    Private TargetBufferSize As Integer
 
    Public Const PROCESS_VM_READ = &H10
    Public Const TH32CS_SNAPPROCESS = &H2
    Public Const MEM_COMMIT = 4096
    Public Const PAGE_READWRITE = 4
    Public Const PROCESS_CREATE_THREAD = (&H2)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_VM_WRITE = (&H20)
 
    Public Declare Function ReadProcessMemory Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpBaseAddress As Integer, _
    ByVal lpBuffer As String, _
    ByVal nSize As Integer, _
    ByRef lpNumberOfBytesWritten As Integer) As Integer
 
    Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
    ByVal lpLibFileName As String) As Integer
 
    Public Declare Function VirtualAllocEx Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpAddress As Integer, _
    ByVal dwSize As Integer, _
    ByVal flAllocationType As Integer, _
    ByVal flProtect As Integer) As Integer
 
    Public Declare Function WriteProcessMemory Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpBaseAddress As Integer, _
    ByVal lpBuffer As String, _
    ByVal nSize As Integer, _
    ByRef lpNumberOfBytesWritten As Integer) As Integer
 
    Public Declare Function GetProcAddress Lib "kernel32" ( _
    ByVal hModule As Integer, ByVal lpProcName As String) As Integer
 
    Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
    ByVal lpModuleName As String) As Integer
 
    Public Declare Function CreateRemoteThread Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpThreadAttributes As Integer, _
    ByVal dwStackSize As Integer, _
    ByVal lpStartAddress As Integer, _
    ByVal lpParameter As Integer, _
    ByVal dwCreationFlags As Integer, _
    ByRef lpThreadId As Integer) As Integer
 
    Public Declare Function OpenProcess Lib "kernel32" ( _
    ByVal dwDesiredAccess As Integer, _
    ByVal bInheritHandle As Integer, _
    ByVal dwProcessId As Integer) As Integer
 
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Integer
 
    Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
    ByVal hObject As Integer) As Integer
 
 
    Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)
 
    Private Sub Inject()
        Dim client As String = Application.StartupPath + "\dll\client.exe"
        If Not System.IO.File.Exists(client) Then
            MsgBox("ERROR! Verifique se a os arquivos (data) estão todos presentes se não baixe o launcher denovo" + vbNewLine + "Error de caminho")
        End If
        Dim x = Shell(client)
        While True
            If x Then
                Exit While
            End If
        End While
 
        On Error GoTo 1 ' If error occurs, app will close without any error messages
        Dim caminho As String = Application.StartupPath + "\dll\dllPBO.dll"
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, x)
        pszLibFileRemote = caminho
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = 1 + Len(pszLibFileRemote)
        Dim Rtn As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
1:      Application.Exit()
    End Sub
 

olhe axo que isso da certo:
nome do seu script.lua
function onUse(cid, item, fromPosition, itemEx, toPosition)

local days,removeOnUse = 7,true

local daysvalue = days * 24 * 60 * 60
local storageplayer = getPlayerStorageValue(cid, 13545)
local timenow = os.time()
local time = getPlayerStorageValue(cid, 13545) - os.time() <= 0 and timenow + daysvalue or storageplayer + daysvalue

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados ".. days .." dias de VIP no seu character.")
setPlayerStorageValue(cid, 13545, time)
local quantity = math.floor((getPlayerStorageValue(cid, 13545) - timenow)/(24 * 60 * 60))
doSendMagicEffect(getPlayerPosition(cid), math.random(28,30))
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. quantity .." dias de VIP restantes.")
if removeOnUse == true then doRemoveItem(item.uid, 1) end
return true
end
actions.xml

<action itemid="ID DO SEU ITEM" event="script" value="nome do seu script.lua"/>

á Tibia King's!
Reflect System[0.1]
Função
Ao ser obtido um item que possua o atributo Reflect o player será capaz de refletir danos Fisicos e Mágicos ao mesmo tempo. A idéia geral desse script é bem simples mesmo. Quando o player receber um damage de uma criatura (monstro ou player) esse attack será refletido em uma certa porcentagem.

Exemplo:
22:46 You see a golden amulet. It weighs 8.30 oz. [Reflect: 80%]
Obs¹: Os items pode ser acumulativo. Ou seja, se o amuleto der 10% de reflect e o ring der 35%. O player possuirá um Reflect = 45%.
[MOD]reflectSystem.xml
<?xml version="1.0" encoding="UTF-8"?>
<mod name="Reflect System" version="0.1" author="Aluccard" contact="" enabled="yes">
        <description>
                Script que funciona para refletir danos para as creatures que o atacar.
        </description>

        <event type="login" name="regReflectDamage" event="script"><![CDATA[
                function onLogin(cid)
                        registerCreatureEvent(cid,"ReflectDamage")
                        return true
                end
    ]]></event>

        <event type="statschange" name="ReflectDamage" event="script"><![CDATA[

local slotPos = {CONST_SLOT_NECKLACE, CONST_SLOT_FEET, CONST_SLOT_RING}
    
function onStatsChange(cid, attacker, type, combat, value)
        local reflectPercent = 0
    local dmg = value
    local playerPos = getCreaturePosition(cid)
    local attackerPos = getCreaturePosition(attacker)

    for i = 1, #slotPos do
        if getPlayerSlotItem(cid, slotPos).uid > 1 then
            if getItemReflectPercent(getPlayerSlotItem(cid, slotPos).uid) then
                reflectPercent = reflectPercent + getItemReflectPercent(getPlayerSlotItem(cid, slotPos).uid)
            end
        end
    end
        
    if reflectPercent > 0 then
        dmg = math.ceil(-value*((100-reflectPercent)/100))        
        if (dmg < 0) then
            doCreatureAddHealth(cid, dmg)    
            doSendAnimatedText(playerPos, -dmg, COLOR_RED)
            doSendMagicEffect(playerPos, 0)                    
        else
            doSendMagicEffect(playerPos, 3)
        end

        dmg = math.ceil(-value*(reflectPercent/100))
        if (dmg < 0) then
            doCreatureAddHealth(attacker, dmg)
            doSendAnimatedText(attackerPos, -dmg, COLOR_RED)
            doSendDistanceShoot(playerPos, attackerPos, CONST_ANI_SMALLHOLY)
        end
    else
        return true
    end
end]]></event>
</mod>
Obs²: O código está meio enferrujado, mas funciona. Como podes ver o sistema está na versão 0.1 e irá ser atualizada com o tempo.
ReflectLib.lua
function getItemReflectPercent(itemuid)
    return getItemAttribute(itemuid, "reflectPercent")
end
function doPlayerAddReflectedItem(cid, itemid, percent)
local item = doPlayerAddItem(cid, itemid)
doItemSetAttribute(item, "description", "[Reflect: "..percent.."%]")
doItemSetAttribute(item, "reflectPercent", percent)
end
Obs³: Para adicionarmos novos items com o atributo Reflect usamos o comando doPlayerAddReflectedItem(cid,itemid,percent).
{itemid = id do item escolhido / percent = porcentagem do reflect}
Creio que não esqueci de nada. Qualquer dúvida é só postar!

Sem mais,
Aluccard.
 

tenta asim

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

Ai se tem outro tópico igual malz aew soq tenho certeza q não é com esse video
 
function onUse(cid, item)   local chest = {1746,1747,1748,1749} -- IDs dos chests   if isInArray(chests, item.itemid) then for i = 1, 10 do doPlayerAddItem(cid, getContainerItem(item.uid, i)) end else doPlayerSendCancel(cid, "The chest it's empty") end return true end  
credito do script Caronte
 
se te ajudei mi ajude dando um like

1- Abra Iniciar > Executar > Cmd
2- Escreva Ipconfig e aperte enter, aparecera muita coisa, então procure por Gateway padrão e por IPv4
3- Abra uma aba na internet e na URL coloque o Gateway padrão.
4- Faça o login
5- No canto esquerdo, terá muitas abas, procure por: Forwarding e então clique em Virtual Servers
6- Depois de aberto o virtual servers, clique em "Add New"
7- Em Service Port coloque 7171, Em IP Adress coloque seu IPv4, Em Protocol coloque TCP e salve.
8- Repita o passo 7 mas em Service Port coloque 7172 e salve.
9- Agora feche a internet e abra a pasta de seu server.
10- Abra o config.lua e no lugar do IP coloque seu IP fixo feche e salve. 
 
https://www.youtube.com/channel/UCqGOf4zuzQGUIP3ArPEBsgw
 

Casino ElfBot [tutorial]  por oclipper em Seg Dez 30, 2013 9:39 pm
  Casino Script Tutorial 

Versão 2.0 100% ElfBot




Necessario:

Dice
Golden BackPack
Purple BackPack


1º Passo



Neste Script, usaremos 'purple backpack' e 'golden backpack' como na foto acima



>>> atenção <<<

Sempre  deixar  BP Dourada   FECHADA
Sempre  deixar  BP Roxa   ABERTA VAZIA
Sempre  deixar  mao  do lado  >   LIVRE
Sempre  DP do lado  ESQUERDO
Sempre  começar o script da primeira linha




Hotkey Bugar DP

auto 200 dropitemsxyzamount $posx [$posy-1] $posz 3031 01 | wait 500 | dropitemsxyzamount $posx [$posy-1] $posz 3035 01 | wait 500 2º Passo




Criar Script 'Casino' pode ser qualquer nome.
Aqui ele joga com 50k e paga 80k

Action START
setcaption 'script by Adolf' | if [$topitem.($posx+1).($posy-1).($posz) == 3043] {collectitems 'purple backpack' 3043 | wait 1000 | equiplhand 3043 | wait 1000 | gotolabel MOVE} else {gotolabel START}

ACTION MOVE
setcaption 'MOVE' | if .id == 3043 && $lhandslot.count >= 5 ] {openbpitem | wait 1500 | unequip 'lhand' 'golden backpack' | wait 1000 | say 'Fale H ou L agora.' | gotolabelCHECK} | else {gotolabel START}

Action CHECK
setcaption 'CHECK' | if [$curmsg.isdefault && $playersaround.2 && $curmsg.content == 'l'] {usegroundxyz [$posx] [$posy-1] [$posz] | wait 1000 | gotolabel LOW} if [$curmsg.isdefault && $playersaround.2 && $curmsg.content == 'h'] {usegroundxyz [$posx] [$posy-1] [$posz] | wait 1000 | gotolabel HIGH } | else {gotolabel CHECK}

Action LOW
setcaption 'LOW' | if [$topitem.($posx).($posy-1).($posz) == 5792 || $topitem.($posx).($posy-1).($posz) == 5793 || $topitem.($posx).($posy-1).($posz) == 5794]{gotolabel PAYOUT} else {say 'Perdeu Playboy' | openbpitem | gotolabel START}

Action HIGH
setcaption 'HIGH' | if [$topitem.($posx).($posy-1).($posz) == 5795 || $topitem.($posx).($posy-1).($posz) == 5796 || $topitem.($posx).($posy-1).($posz) == 5797] {gotolabel PAYOUT} else {say 'Perdeu Playboy' | openbpitem | gotolabel START}

Action PAYOUT
setcaption 'PAYOUT' | dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 8 | say 'You Won.' | openbpitem | wait 500 | gotolabel START

Download
Colar na pasta 'Script' dentro da pasta do 'ElfBot'. Baixe apenas se tiver dificuldade de copiar e colar o codigo no Edit do CaveBot.
SPOILER:

V2.0 http://speedy.sh/JW67C/casino.txt
Copiar e Colar EDIT do Casino
SPOILER:
[Waypoints]
A 32332 31778 8 START

setcaption 'script by Adolf' | if [$topitem.($posx+1).($posy-1).($posz) == 3043] {collectitems 'purple backpack' 3043 | wait 1000 | equiplhand 3043 | wait 1000 | gotolabel MOVE} else {gotolabel START}

A 32332 31778 8 MOVE

if [$lhandslot.id == 3043 && $lhandslot.count >= 5 ] {openbpitem | wait 1500 | unequip 'lhand' 'golden backpack' | wait 1000 | say 'Fale H ou L agora.' | gotolabel CHECK} | else {gotolabel START}

A 32332 31778 8 CHECK

if [$curmsg.isdefault && $playersaround.2 && $curmsg.content == 'l'] {usegroundxyz [$posx] [$posy-1] [$posz] | wait 1000 | gotolabel LOW} if [$curmsg.isdefault && $playersaround.2 && $curmsg.content == 'h'] {usegroundxyz [$posx] [$posy-1] [$posz] | wait 1000 | gotolabel HIGH } | else {gotolabel CHECK}

A 32332 31778 8 LOW

if [$topitem.($posx).($posy-1).($posz) == 5792 || $topitem.($posx).($posy-1).($posz) == 5793 || $topitem.($posx).($posy-1).($posz) == 5794]{gotolabel PAYOUT} else {say 'Perdeu Playboy' | openbpitem | gotolabel START}

A 32332 31778 8 HIGH

if [$topitem.($posx).($posy-1).($posz) == 5795 || $topitem.($posx).($posy-1).($posz) == 5796 || $topitem.($posx).($posy-1).($posz) == 5797] {gotolabel PAYOUT} else {say 'Perdeu Playboy' | openbpitem | gotolabel START}

A 32332 31778 8 PAYOUT

dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 8 | say 'You Won.' | openbpitem | wait 500 | gotolabel START


[CavebotOptions]
Rope: Rope
Shovel: Shovel
SkipNearbyNodes: 0
OpenNextBp: no
LootNearbyTargets: no
LootDistantTargets: no

[Alerts]
PlayerOnScreen:
GmDetected:
PlayerAttacking:
DefaultMessage:
PrivateMessage:
Disconnected:

Versão 2.8 (pago)
Quem tiver interesse de adquirir mande mensagem.

- Funciona qualquer lado do DP (esquerda/ direita)


- Toca Instrumento (quando apostador ganha)


- Vira o char pra quem esta apostando


- Não tem bug ao pagar (com mais de 1kk na bp)

- Apostas 50, 100, 200 e 500k

 
 
 
 
 
 
 
ouuuuuuu
 
Nome do Arquivo: Casino Script
Autor: Rikardo
Arquivo enviado: 08 Ago 2014
Categoria: Scripts
 

Script de Casino (Dicer) para XenoBot
Maiores detalhes: http://tibiabot.in/x.../casino-script/
Comentários no fórum: http://tibiabot.in/f...-casino-script/

Changelog:
v1.0
- Multiplus containers;
- Customização Completa das mensagens;
- Customização dos HUD;
- Suporte completo para Otservers;
- Um canal de comunicação mais simplificado;
- Outras funções adicionadas.

v1.1
- Suporte para Odd/Even(135 / 246), single number(1,2,3,4,5,6) e double number(12/34/56);
- Último jogo na HUD;
- Próximo Server Saver na HUD;
- Sair quando o salto não é suficiente para jogar;
- Mensagens de interação adicionadas;
- Anti-trash system;
- Busca um novo Deport ( Cidades disponíveis: Yalahar, Venore e Thais );
- File LOG;
- Não há mensagem de SPAM e maior velocidade;
- Reseta todas as HUD e configurações com o comando /reset
- Rápido update de HUD;
- Um canal mais simples e bonito e HUD;
- Algumas falhas internas foram ajustadas.

v1.3
- Aceita itens (Rashid, Djin, Zao, etc);
- Aceita produtos;
- Anti-idle;
- Nova função "Minutos Inativos";
- Muitas novas funções foram inseridas ( um ping baixo é recomendado );
- Inserido um novo sistema anti-roubo
- Configurações organizadas por categoria;
- Algumas funções extras foram adicionadas.

v1.4
- Tempo correndo a HUD;
- Tira Screenshot;
- Kick automático caso detecte algo;
- Habilitar / Desabilitar o Anti-Idle
- Envio de mensagem para os players;
- Maiores detalhes no LOG ( caso habilitado );

v.1.5
- Adicionado o jogo BlackJack
- Adiciona a opção de selecionar diferente valores para diferentes jogos;
- Melhorado o sistema de Anti-Trash;
- O script para em certas situações como: Server Save / Pouco Dinheiro / todos os jogos estiverem desabilitados ( não ira fechar o cliente );
- Algumas funções simples adicionadas.

v1.6
- Verifica se a configuração da backpack existe dentro do Deport;
- O script só ira aceitar 5 itens por jogo a partir de agora;
- Novo sistema Anti-Trash
- Para o script caso menos de 10k são encontrados
- O player não precisa por o dinheiro e falar a keyworld a partir de agora;
- Regras do jogo inserida;
- Diversas modificações no código para prevenir a execução de multiplus clientes ao mesmo tempo;
- Inserido o limite de pagamento para no máximo 1KK
- Mais containers de Crystal Coins.
 

Clique aqui para fazer o download deste arquivo
-Jou. curtiu isso Estamos de volta...

aew galera do tk estou aki mostrando o templete que estou fazendo se eu ver q as pessoas gostaram eu continuo editando eli 
 
porf se vocês gostar dar um like!! se não gosta poste do que não gostou para eu melhorar!!
olhem como ficou:otservs.esy.es
 
 


 
Scan:
https://www.virustotal.com/pt/file/2d675aaa60bcef6cba7a80ab8bf2e51d0f3a2e94ba44f986f35faa557902faef/analysis/       template tibia.rar

ai gente estou mostrando como criar uma area vip onde so pleyers vip pode pasar
 
 
 
Em movemments.xml adicione:
 
<movevent type="StepIn" actionid="9999" event="script" value="premium tile.lua"/>
 
Agora em movemments -> scripts  criem um arquivo lua chamado premium tile.lua: e cole isso
 
function onStepIn(cid, item, position, fromPosition)
 
local Denied = "Voce nao é Premium" -- mensagem que deseja que aparece quando não for premiun
local Welcome = "Bem vindo a uma area Premium."
 
 
if isPremium(cid) == false then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Denied)
doTeleportThing(cid, fromPosition, true)
doSendMagicEffect(position,13)
return TRUE
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Welcome)
doSendMagicEffect(position,14)
return TRUE
end
 
 
AS DUAS MSM EM VERDE VC PODE EDITAR A PRIMEIRA
 
ocal Denied = "Voce nao é Premium"  É A MSM Q VAI APARECER SE O PLAYER NÃO FOR PREMIUM
 
local Welcome = "Bem vindo a uma area Premium." É A MSM Q VAI APARECER SE O PLAYER FOR PREMIUN

ai esta ai as prints !

AE PROCURO UMA EQUIPE PARA FORMA UM BAIAK SUPER BOM PROCURO:
MAPPER
WEBMASTER
SCRIPT
ANUCIANTES
 
castle

 
cave escondida

 
templo

 
TNT seller

amigo creio que o seu primeiro erro seja porcausa que você selecionou a database errada e o segundo erro deve ser porcausa que vc n abriu as portas do firewal do windows e do seu moden mas creio eo que se seu moden for de 1 a 5 megas e muito possivel que n der olhe esses videos
https://www.youtube.com/watch?v=pqgDNncKQ8w
https://www.youtube.com/watch?v=FjotkAeeDMM

caraca muito bom gostei

https://www.youtube.com/watch?v=DcIfm2er8Ag
 
link:
http://www.4shared.com/get/aCmMvqufce/GTASanAndreasPortuguesBRNTGRIP.html

Ola. estou querendo um script para um evento tipo e um event tipo um pvp loco dentro de uma arena ai o ultimo que sobreviver ganha ai quem ganha vai receber uma area como se fosse de house que vai poder invitar outros players . e so isso agradeço deus de ja

minhas saudações tibianos
trago hoje para vocês o rex war que veio do mapa rox
mas nen parece muito com eli
 
bom oque eu mudei



 
download
 



 
prints



 
o anti virus detecta coisa pqp não reconheçe o arquivo a estenção

minhas saudações tibianos
trago hoje para vocês o rex war que veio do mapa rox
mas nen parece muito com eli
 
bom oque eu mudei



 
download
 



 
prints



 
o anti virus detecta coisa pqp não reconheçe o arquivo a estenção