1027929

Vai na pasta do seu mapa e abra o arquivo nomedomapa-spawn.xml com o bloco de notas.
 
Aperte CTRL+H e no primeiro campo digite: spawntime="60"
 
E no segundo digite: spawntime="tempo"
 
No lugar de tempo é só preencher quanto quer que seja o tempo de Respawn depois aperte em "Substituir Todos"
 
REP+ Se ajudei =)

Vai na pasta do seu mapa e abra o arquivo nomedomapa-spawn.xml com o bloco de notas.
 
Aperte CTRL+H e no primeiro campo digite: spawntime="60"
 
E no segundo digite: spawntime="tempo"
 
No lugar de tempo é só preencher quanto quer que seja o tempo de Respawn depois aperte em "Substituir Todos"
 
REP+ Se ajudei =)

Vai na pasta do seu mapa e abra o arquivo nomedomapa-spawn.xml com o bloco de notas.
 
Aperte CTRL+H e no primeiro campo digite: spawntime="60"
 
E no segundo digite: spawntime="tempo"
 
No lugar de tempo é só preencher quanto quer que seja o tempo de Respawn depois aperte em "Substituir Todos"
 
REP+ Se ajudei =)

Vai na pasta do seu mapa e abra o arquivo nomedomapa-spawn.xml com o bloco de notas.
 
Aperte CTRL+H e no primeiro campo digite: spawntime="60"
 
E no segundo digite: spawntime="tempo"
 
No lugar de tempo é só preencher quanto quer que seja o tempo de Respawn depois aperte em "Substituir Todos"
 
REP+ Se ajudei =)

Vai na pasta do seu mapa e abra o arquivo nomedomapa-spawn.xml com o bloco de notas.
 
Aperte CTRL+H e no primeiro campo digite: spawntime="60"
 
E no segundo digite: spawntime="tempo"
 
No lugar de tempo é só preencher quanto quer que seja o tempo de Respawn depois aperte em "Substituir Todos"
 
REP+ Se ajudei =)

Vai na pasta do seu mapa e abra o arquivo nomedomapa-spawn.xml com o bloco de notas.
 
Aperte CTRL+H e no primeiro campo digite: spawntime="60"
 
E no segundo digite: spawntime="tempo"
 
No lugar de tempo é só preencher quanto quer que seja o tempo de Respawn depois aperte em "Substituir Todos"
 
REP+ Se ajudei =)

Vai na pasta do seu mapa e abra o arquivo nomedomapa-spawn.xml com o bloco de notas.
 
Aperte CTRL+H e no primeiro campo digite: spawntime="60"
 
E no segundo digite: spawntime="tempo"
 
No lugar de tempo é só preencher quanto quer que seja o tempo de Respawn depois aperte em "Substituir Todos"
 
REP+ Se ajudei =)

Vai em actions/scripts e cria um novo script chamado premiumitem.lua e adicione:
local function doPlayerAddPremiumPoints(cid, count) db.query('UPDATE accounts SET premium_points = premium_points+'.. count ..' WHERE id = ' .. getAccountNumberByPlayerName(getCreatureName(cid))) end function onUse(cid, item, fromPosition, itemEx, toPosition) doPlayerAddPremiumPoints(cid, 30) doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "You have recived 30 shop points to your account.") doSendMagicEffect(getCreaturePosition(cid), 28) doRemoveItem(item.uid,1) return true end Em actions.xml adicione uma linha:
<action itemid="IDDOITEM" script="other/premiumitem.lua"/> Pra fazer um script com [vip] no nome eu precisava saber qual distro e versão que usa.

Se no config.lua está Sqlite e não está funcionando, quer dizer que a distro do servidor ignora essa opção, assim deixando apenas como Mysql...
 
Tente usar outra distro =)

Crie um arquivo na pasta npc/scripts com nome de tokenexchange.lua e coloque isso:
local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) local config = { montaria = 74, -- ID Da montaria token = 21400 -- ID Do Token } if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid if(msgcontains(msg, 'trade') or msgcontains(msg, 'token')) then selfSay('Voce quer trocar Silver Raid Token pela montaria XXX?', cid) talkState[talkUser] = 1 elseif(msgcontains(msg, 'yes') and talkState[talkUser] == 1) then if(getPlayerItemCount(cid, config.token) >= 1) then doPlayerRemoveItem(cid, config.token, 1) doPlayerAddMount(cid, config.montaria) selfSay('Aqui esta sua montaria =).', cid) else selfSay('desculpe, voce nao tem este item.', cid) end talkState[talkUser] = 0 elseif(msgcontains(msg, 'no') and isInArray({1}, talkState[talkUser]) == TRUE) then talkState[talkUser] = 0 selfSay('Ok then.', cid) end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) Na pasta NPC crie um arquivo chamado tokenexchange.xml e coloque isso:
<?xml version="1.0" encoding="UTF-8"?> <npc name="Token Exchange" script="tokenexchange.lua" walkinterval="2000" floorchange="0"> <health now="100" max="100"/> <look type="134" head="55" body="60" legs="50" feet="75" addons="3"/> </npc> OBS: Configure o script e o nome à seu gosto =)

Nessa linha
itemr, amountr = rand[1], (not rand[2] and 1 or isItemStackable(rand[1]) and rand[2] or 1) Substitui por isso:
itemr, amountr = rand[1], (not rand[2] and 1 or rand[1] and rand[2] or 1)

Vá no Remeres Map Editor > House Palettte e depois selecione a cidade e vai listar pra você as houses.
 
Só selecionar uma e clicar em "Remove".

Tamanho: 388,68 KB.
Conteúdo: Hunt.
Versão: 10.77
Créditos: Rydan
Tópico: tev
Anexos: Scan | Download
 
Screenshot;

Na linha 18 ta assim:
local monster_uid = getGlobalStorageValue(arena_room+100) Adicione isso abaixo ficando assim:
 
local monster_uid = getGlobalStorageValue(arena_room+100) monster_uid = tonumber(monster_uid) Me avisa se funcionou zzz

function onTimer() Substitua por:
function onTime(interval)

------- Script by: Adriano Swatt ---- local condition_infight = createConditionObject(CONDITION_INFIGHT) setConditionParam(condition_infight, CONDITION_PARAM_TICKS, 8000) local gstrg = 12129 -- Não Mexa, Storage de Controle Item Global. local gstrg_control = 12130 -- Não Mexa, Storage de Controle Jogo em Execução. local istrg = {12131, 12132, 12133} -- Não Mexa, Storage de Itens. local items = { [0] = {0}, -- NEUTRO [1] = {2160}, -- ID do ITEM 1 [2] = {2140}, -- ID do ITEM 2 [3] = {8976}, -- ID do ITEM 3 [4] = {9002}, -- ID do ITEM 4 [5] = {5809}, -- ID do ITEM 5 [6] = {8266}, -- ID do ITEM 6 [7] = {5808}, -- ID do ITEM 7 [8] = {8983}, -- ID do ITEM 8 [9] = {8980}, -- ID do ITEM 9 [10] = {8979}, --ID do ITEM 10 [11] = {0} -- NEUTRO } local qtdd = 10 -- Quantidade de Itens a Sortear // Não precisa apagar as demais linhas de configuração acima. local valor = {2160, 20} -- ID da Moeda pra Jogar, Quantidade (preço) local comb1 = {2160, 50} -- ID , Quantidade, para quem acertar 1 item da combinação local comb2 = {2160, 250} -- ID , Quantidade, para quem acertar 2 item da combinação local comb3 = {2160, 500} -- ID , Quantidade, para quem acertar todos itens da combinação + o prêmio configurado acima local premio = {10309, 1} -- ID do Prêmio, Quantidade (que o player ganhará ao acertar os 3 itens) local iluck_pos = {x=159, y=43, z=6} -- Posição onde fica a amostra do item da sorte local pos = {{x=160, y=43, z=6}, {x=161, y=43, z=6}, {x=162, y=43, z=6}} -- Posições onde os itens sorteados aparecerão local effect = 26 -- Efeito na hora de selecionar o item da sorte local eff = 30 -- Efeito ao criar os itens na mesa (hora do sorteio) local reff = 29 -- Efeito ao remover itens da mesa (ao finalizar) -------- FIM DAS CONFIGURAÇÕES -------- function onUse(cid, item, frompos, item2, topos) local dir = getPlayerLookDir(cid) local gget = getGlobalStorageValue(gstrg) local gnumb = items[gget] local gnumba = items[gget + 1] local gnumbs = items[gget - 1] if gnumb then if dir == WEST or dir == EAST then -- Caso não esteja em posição de jogar. doPlayerSendTextMessage(cid, 18, "Para jogar, siga as dicas abaixo: \n Para escolher o item da sorte, vire-se para baixo e clique na alavanca até selecioná-lo. \n Para jogar, após ter selecionado o item da sorte, vire-se para cima e puxe novamente a alavanca.") elseif dir == NORTH then -- Posição de Jogar if gget ~= 0 then if getGlobalStorageValue(gstrg_control) < 1 then if getPlayerItemCount(cid, valor[1]) >= valor[2] then math1 = math.random(1, qtdd) math2 = math.random(1, qtdd) math3 = math.random(1, qtdd) doPlayerRemoveItem(cid, valor[1], valor[2]) mayNotMove(cid, true) doAddCondition(cid, condition_infight) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Máquina em funcionamento, aguarde.") setGlobalStorageValue(gstrg_control, 1) --- Criando itens doSendMagicEffect(pos[1], eff) doCreateItem(items[math1][1], pos[1]) setGlobalStorageValue(istrg[1], items[math1][1]) addEvent(doSendMagicEffect, 1000, pos[2], eff) addEvent(doCreateItem, 1000, items[math2][1], pos[2]) setGlobalStorageValue(istrg[2], items[math2][1]) addEvent(doSendMagicEffect, 2000, pos[3], eff) addEvent(doCreateItem, 2000, items[math3][1], pos[3]) setGlobalStorageValue(istrg[3], items[math3][1]) --- Checando Itens if gnumbs[1] == getGlobalStorageValue(istrg[1]) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você já acertou o primeiro item da combinação.") setPlayerStorageValue(cid, gstrg, (getPlayerStorageValue(cid, gstrg) + 1)) else doPlayerSendTextMessage(cid, 18, "Que pena, já perdeu na primeira chance.") end if gnumbs[1] == getGlobalStorageValue(istrg[2]) then addEvent(doPlayerSendTextMessage, 1000, cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acertou o segundo item da combinação.") setPlayerStorageValue(cid, gstrg, (getPlayerStorageValue(cid, gstrg) + 1)) else addEvent(doPlayerSendTextMessage, 1000, cid, 18, "Que pena, perdeu na segunda chance.") end if gnumbs[1] == getGlobalStorageValue(istrg[3]) then addEvent(doPlayerSendTextMessage, 2000, cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acertou o terceiro item da combinação.") setPlayerStorageValue(cid, gstrg, (getPlayerStorageValue(cid, gstrg) + 1)) else addEvent(doPlayerSendTextMessage, 2000, cid, 18, "Que pena, perdeu na terceira chance.") end addEvent(function() if (getTileItemById(pos[z], getGlobalStorageValue(istrg[z])).uid) > 0 then for z = 1, 3 do doRemoveItem(getTileItemById(pos[z], getGlobalStorageValue(istrg[z])).uid, 1) doSendMagicEffect(pos[z], reff) end end mayNotMove(cid, false) setGlobalStorageValue(gstrg_control, 0) addEvent(CassPremio, 500, cid) end, 5000) --- Fim Checagem else doPlayerSendCancel(cid, "Você precisa de "..valor[2].." "..getItemNameById(valor[1]).." para jogar.") end else doPlayerSendCancel(cid, "Precisa esperar o jogo finalizar para jogar novamente.") end else doPlayerSendCancel(cid, "Primeiro selecione o item de sorte para poder jogar.") end elseif dir == SOUTH then -- Posição de Selecionar Item da Sorte if getGlobalStorageValue(gstrg_control) < 1 then if gget <= 0 then doCreateItem(gnumba[1], 1, iluck_pos) doSendMagicEffect(iluck_pos, effect) doPlayerSendCancel(cid, "Você selecionou o "..getItemNameById(gnumba[1]).." como seu item da sorte.") setGlobalStorageValue(gstrg, 2) elseif gget >= 2 and gget < (qtdd + 1) then if getTileItemById(iluck_pos, gnumbs[1]).uid > 0 then doRemoveItem(getTileItemById(iluck_pos, gnumbs[1]).uid, 1) end doCreateItem(gnumb[1], 1, iluck_pos) doSendMagicEffect(iluck_pos, effect) doPlayerSendCancel(cid, "Você selecionou o "..getItemNameById(gnumb[1]).." como seu item da sorte.") setGlobalStorageValue(gstrg, (gget + 1)) elseif gget >= (qtdd + 1) then if getTileItemById(iluck_pos, gnumbs[1]).uid > 0 then doRemoveItem(getTileItemById(iluck_pos, gnumbs[1]).uid, 1) end doSendMagicEffect(iluck_pos, effect) doPlayerSendCancel(cid, "Você resetou os itens.") setGlobalStorageValue(gstrg, 0) end else doPlayerSendCancel(cid, "Precisa esperar o jogo finalizar para selecionar outro item da sorte.") end end else doPlayerSendCancel(cid, "Você ativou o Cassino Slots.") setGlobalStorageValue(gstrg, 0) end return true end function CassPremio(cid) if getPlayerStorageValue(cid, gstrg) == 1 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Hmmm, você acertou um item da combinação e foi recompensado em "..comb1[2].." "..getItemNameById(comb1[1])..".") doPlayerAddItem(cid, comb1[1], comb1[2]) setPlayerStorageValue(cid, gstrg, 0) elseif getPlayerStorageValue(cid, gstrg) == 2 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Uffa, foi por pouco, mas você acertou dois itens da combinação e foi recompensado em "..comb2[2].." "..getItemNameById(comb2[1])..".") doPlayerAddItem(cid, comb2[1], comb2[2]) setPlayerStorageValue(cid, gstrg, 0) elseif getPlayerStorageValue(cid, gstrg) == 3 then doBroadcastMessage("Parabéns ao jogador "..getPlayerName(cid).." acertou as 3 combinações da Cassino Slots e foi recompensado em "..comb3[2].." "..getItemNameById(comb3[1]).." e "..premio[2].." "..getItemNameById(premio[1])..".") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acertou TODOS itens da combinação e foi recompensado em "..comb3[2].." "..getItemNameById(comb3[1]).." e "..premio[2].." "..getItemNameById(premio[1])..".") doPlayerAddItem(cid, premio[1], premio[2]) doPlayerAddItem(cid, comb3[1], comb3[2]) setPlayerStorageValue(cid, gstrg, 0) elseif getPlayerStorageValue(cid, gstrg) > 3 then doPlayerSendCancel(cid, "Mais sorte da próxima vez.") setPlayerStorageValue(cid, gstrg, 0) end return true end

Poste o script do data/actions/scripts/cassino_slots.lua

function onStepIn(cid, item, position, fromPosition) local config = { msgDenied = "Voce nao tem a VIP3, para adquirir faca a quest logo ao lado <", msgWelcome = "Welcome to VIP 3!!" } if getPlayerStorageValue(cid, 445566) <= 0 then doTeleportThing(cid, fromPosition, true) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.msgDenied) doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE) return TRUE end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.msgWelcome) return TRUE end Tente assim.

Em :
items = {X, XX, XXX, XXXX} Modifique assim:
items = {X, XX, XXX, XXXX, a,b,c,d} Onde:
a = master sorcerer
b = elder druid
c = royal paladin
d = elite knight

obs: substitua essas 4 letras por ID de item

Vai no arquivo do Monstro que deseja mexer e procure por:
 
<immunity invisible="0"/> Coloque:
<immunity invisible="1"/>

Poste os scripts aqui para eu ver onde ta o problema.

No console apresenta algum erro?

Nome : Messi
 
Idade : 8 anos
 
Contato : [email protected]
 
Honorários : não conheço essa pessoa
 
A quantos anos meche com otservs ? a 5 minutos atras.

Galera, encontrei uma apostila muito boa de C#, e resolvi compartilhar com a comunidade.
Ela é voltada para os iniciantes nesta linguagem, abordando diversas ferramentas do Visual Studio (versão 2008).
A unica falha é a falta de exercícios para uma melhor fixação do aprendizado, mais em breve postarei alguns aqui.

Segue em anexo.
Apostila de OOP com CSharp.pdf

Olá Tibia Botters!




Criando seu tibia bot com TibiaAPI - Parte 1
{Conhecendo o Visual Basic e o TibiaAPI}

Necessário:

TibiaAPI (8.1 - 8.62) - Download
Visual Basic 9 (2008) - Download

O download do TibiaAPI é direto do site da googlecode e o do Visual Basic direto do site da microsoft.
Então ta na cara que não precisa de scan, só perca de tempo.

O que é o Visual Basic?
O Visual Basic (abreviado como VB) é uma linguagem de programação produzida pela empresa Microsoft, e é parte integrante do pacote Microsoft Visual Studio. Sua versão mais recente faz parte do pacote Visual Studio .NET, voltada para aplicações .Net. Sua versão anterior fez parte do Microsoft Visual Studio 6.0, ainda muito utilizado atualmente. [leia o resto]

O que é TibiaAPI?
TibiaAPI é uma fonte aberta de programação de aplicativo para facilitar a criação de programas de interação com o cliente do multiplayer online RPG Tibia.

Compatível com todas as linguages .NET
Open Souce (código abero)
Compilada e distribuída como um DLL

Abraços.

Criando seu tibia bot com TibiaAPI - Parte 4
{Form2 e Funções Básicas}


Agora criaremos o Form2, aonde ficará as funções do bot.

Criando outra Form.

Do lado direito em Solution Explorer, onde está os arquivos do seu programa clique com o botão direito no nome do seu bot, o primeiro arquivo lá em cima. Vá em Add > New Item, então selecione Windows Form. Não renomeie.

Pronto agora você criou uma outra form no seu programa, o Form2. Se não abrir automaticamente, clique com o botão direito em solution explorer e depois em Open.

Adaptando o Form2.

Abra o code do Form2. Verá que ele está 'seco' igual no começo do form1. Então importe o Tibia e Declare as variáveis de novo.

Andes de Public Class Form2:


Imports Tibia
Imports Tibia.Util
Imports Tibia.Objects
Imports Tibia.Constantes
[/code] Depois de Public Class Form2: [code]
Dim c As Client
Dim p As Player
Então:
Imports Tibia
Imports Tibia.Util
Imports Tibia.Objects
Imports Tibia.Constants

Public Class Form2
Dim c As Client
Dim p As Player

End Class
[/code] [color=#006400][b][size=4]Terminando o Loader[/size][/b][/color] Clique duas vezes no form2 para abrir o Form2_Loader e então ponha o código: [code]
c = Form1.ComboBox1.SelectedItem
If c.LoggedIn Then
p = c.GetPlayer
Form1.Hide()
Else
Me.Hide()
MsgBox("Você precisa escolher o seu personagem.")
End If
Explicando: If c.LoggedIn Then - se client estiver "loggedIn" (logado) então p = c.GetPlayer - define o p, que é o player. Form1.Hide() - fechará o form1. Else - (se não estiver logado) Me.Hide() - Me, se refere a ele mesmo, ou seja, form2, que irá "esconder" (hide) MsgBox("") - aparecerá a mensagem ao usuário. Dica: se quiser, coloque dentro do If, Me.Text = p.Name, ficará o nome do player em vez do nome do bot. Por exemplo o Alien Bot eu coloquei Me.Text = "AlienBot [" + p.Name + "] TibiaBots.NET", ou seja, fica (AlienBot [nomedoplayer] TibiaBots.NET) Como ficará o código:
Imports Tibia
Imports Tibia.Util
Imports Tibia.Objects
Imports Tibia.Constants

Public Class Form2
Dim c As Client
Dim p As Player

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
c = Form1.ComboBox1.SelectedItem
If c.LoggedIn Then
p = c.GetPlayer
Form1.Hide()
Else
Me.Hide()
MsgBox("You need choose your character")
End If
End Sub
End Class
[/code] Tudo está carregado, pronto para usar o bot. Mas, vou usar o que? O bot tá vazio.. [color=#006400][size=4][b]Funções Básicas[/b][/size][/color] [size=3][b]• Full Light[/b][/size] Vou lhes ensinar a criar um Light Hack. é a coisa mais fácil de um bot. Crie dois botões, em um botão ponha Ativar Light e outro Desativar Light. No botão de ativar ponha: [code]
c.Map.FullLightOn()
E no botão de desativar ponha:
c.Map.FullLightOff()
[/code] Pronto, abra o tibia 8.5 ao 8.62, entre em algum char e teste seu bot. (Aperte F5 para testar). [size=3][b]• Outfits[/b][/size] Outfits já é mais difícil pois tem If e ElseIf e eu não expliquei ElseIf ainda, mas vamos lá. Crie um ComboBox, selecione ele e em properties (abaixo do Solution Explorer) procure por Items = (collection). Clique em collection e irá aparecer um botão com reticências (...) do lado, então clique-o. Ai você vai colocar tudo que aparecerá no ComboBox. Ponha: [code]
Assassin
Beggar
Que serão meus exemplos. Agora crie um Botão, ao lado ou abaixo do combobox escrito "Trocar Outfit". Acione o evento _Click do botão, clicando duas vezes nele. Então ponhe:
If ComboBox1.SelectedItem = "Beggar" Then
p.OutfitType = Tibia.Constants.OutfitType.BeggarMale
ElseIf ComboBox1.SelectedItem = "Assassin" Then
p.OutfitType = Tibia.Constants.OutfitType.AssassinMale
End If
[/code]

Explicando:


[b]If ComboBox1.SelectedItem = "Beggar" Then[/b] - [i]Se o Item selecionado do ComboBox1 for Beggar, então[/i]
[b]p.OutfitType = Tibia.Constants.OutfitType.BeggarMale[/b] - [i]outfit do player vai ser beggarmale.[/i]
[b]ElseIf ComboBox1.SelectedItem = "Assassin" Then[/b] - [i]Mas se o Item selecionado do ComboBox1 for Assassin, então[/i]
[b]p.OutfitType = Tibia.Constants.OutfitType.AssassinMale[/b] - [i]outfit do player vai ser assassinmale.[/i]
[b]End If[/b] - [i]Fechar condição 'se'.[/i]

Não esqueça de conferir se o Name do combobox é combobox1. Se não for, substitua no código ComboBox2 ou ComboBox3, como for o "Name" dele. Para ver selecione ele e vá em properties (abaixo do solution explorer) e procure por 'Name'. Se quiser mude também (melhor para se organizar).

Aperte F5 e teste seu bot (:

Até o próximo tutorial! ;*