Ir para conteúdo

1027929

Membro
  • Registro em

  • Última visita

Histórico de Curtidas

  1. Gostei
    1027929 recebeu reputação de weslleyrr em [AJUDA] Tempo de respawn   
    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 =)
  2. Gostei
    1027929 recebeu reputação de Gabrielx17 em [AJUDA] Tempo de respawn   
    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 =)
  3. Obrigado
    1027929 recebeu reputação de russo000 em [AJUDA] Tempo de respawn   
    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 =)
  4. Curtir
    1027929 recebeu reputação de LuanMF em [AJUDA] Tempo de respawn   
    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 =)
  5. Curtir
    1027929 recebeu reputação de Soldoran em [AJUDA] Tempo de respawn   
    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 =)
  6. Gostei
    1027929 recebeu reputação de Ackerzin em [AJUDA] Tempo de respawn   
    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 =)
  7. Gostei
    1027929 recebeu reputação de Cricket em [AJUDA] Tempo de respawn   
    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 =)
  8. Gostei
    1027929 recebeu reputação de rodrigovalcacio em item que de 30 dias de premium & adicionar vip no nick   
    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.
  9. Gostei
    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 =)
  10. Gostei
    1027929 recebeu reputação de Enzo Caue em (Resolvido)NPC que troca items por montaria?   
    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 =)
  11. Gostei
    1027929 recebeu reputação de Farathor em (Resolvido)[Ajuda] Erro em Script   
    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)
  12. Gostei
    1027929 recebeu reputação de gbik em (Resolvido)[Duvida] Remover Tiles   
    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".
  13. Gostei
    1027929 deu reputação a tev em [10.77] Mapa: Dawnport   
    Tamanho: 388,68 KB.
    Conteúdo: Hunt.
    Versão: 10.77
    Créditos: Rydan
    Tópico: tev
    Anexos: Scan | Download
     
    Screenshot;

  14. Gostei
    1027929 recebeu reputação de falling em (Resolvido)[ARENA] BUG MOVEMENT   
    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
  15. Gostei
    function onTimer() Substitua por:
    function onTime(interval)
  16. Gostei
    1027929 recebeu reputação de alexpaimel em [BUG] Distro erro   
    ------- 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
  17. Gostei
    1027929 recebeu reputação de alexpaimel em [BUG] Distro erro   
    Poste o script do data/actions/scripts/cassino_slots.lua
  18. Gostei
    1027929 recebeu reputação de alexpaimel em [BUG] Distro erro   
    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.
  19. Gostei
    1027929 recebeu reputação de jonatasfl em [TALKACTION] Item Por Vocaçao   
    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
  20. Gostei
    1027929 recebeu reputação de arthur122222 em (Resolvido)[AJUDA] Monstros não veem utana vid   
    Vai no arquivo do Monstro que deseja mexer e procure por:
     
    <immunity invisible="0"/> Coloque:
    <immunity invisible="1"/>
  21. Negativo
    1027929 recebeu reputação de Wakon em Sem respostas no scripts   
    Poste os scripts aqui para eu ver onde ta o problema.

    No console apresenta algum erro?
  22. Gostei
    1027929 deu reputação a Linus em Procura-se Scripter Avançado!   
    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.
  23. Gostei
    1027929 deu reputação a Augusto em Apostila C# - Iniciando na Linguagem   
    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
  24. Gostei
    1027929 deu reputação a Renato em Criando seu tibia bot com TibiaAPI - Parte 1   
    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.
  25. Gostei
    1027929 deu reputação a Renato em Criando seu tibia bot com TibiaAPI - Parte 4   
    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! ;*

Informação Importante

Confirmação de Termo