Mystara Legends

Fórum direcionado aos Players do Mystara Legends. Servidor de Ultima Online Brasileiro.


    Macro mining mina safety

    Compartilhe

    sidarta

    Mensagens : 13
    Data de inscrição : 30/10/2016

    Macro mining mina safety

    Mensagem por sidarta em Seg Jan 09, 2017 11:22 am

    Quem pode disponibilizar?
    avatar
    Crusher

    Mensagens : 71
    Data de inscrição : 29/10/2016

    Re: Macro mining mina safety

    Mensagem por Crusher em Qui Jan 12, 2017 12:46 pm

    UP!!!


    segue um macro pra easyuo, universal. não guarda no banco.

    ; =-=-=-=-=-=-=-=-=-=-
    ; ========== Facil Miner por SoloYo v.2.4 mod ==========
    ; =-=-=-=-=-=-=-=-=-=-

    initevents
    event sysmessage |||||||||| Facil Miner por SoloYo v.2.4 mod ||||||||||
    wait 1s

    set %cont1 0
    set %funcao 0
    set %tempg 1

    ; Abre status
    event macro 8 2
    wait 1s
    ; Abre backpack
    event macro 8 7
    wait 1s

    inicio:

    finditem RUD
    set #LOBJECTID #FINDID
    event macro 17 0

    set #ltargetid 0
    set #ltargetz 0
    set #ltargetkind 2
    gosub %cont1 1

    Set %cont1 %cont1 + 1

    if %cont1 > 7
    {
    Set %cont1 0
    goto caminha
    }

    mine:
    set %tempo 0

    {

    }

    finditem NPF_QPF
    set #lobjectid #findid
    event macro 17 0
    target
    event macro 22 0

    jornal:
    deletejournal
    scanjournal 1
    if There_is_no_ore_here_to_mine. in #journal
    {
    goto inicio
    }
    if Ore_in_your_pack in #journal
    {
    goto mine
    }
    set %tempo %tempo + 1
    if %tempo = 200
    {
    goto inicio
    }
    goto jornal

    caminha:
    gosub %funcao 2
    move #ltargetx #ltargety 0 2s
    Set %funcao %funcao + 1
    if %funcao > 7
    {
    Set %funcao 0
    }
    goto inicio

    sub 0
    set #ltargetx #charposx
    set #ltargety #charposy - %1
    return

    sub 1
    set #ltargetx #charposx + %1
    set #ltargety #charposy - %1
    return

    sub 2
    set #ltargetx #charposx + %1
    set #ltargety #charposy
    return

    sub 3
    set #ltargetx #charposx + %1
    set #ltargety #charposy + %1
    return

    sub 4
    set #ltargetx #charposx
    set #ltargety #charposy + %1
    return

    sub 5
    set #ltargetx #charposx - %1
    set #ltargety #charposy + %1
    return

    sub 6
    set #ltargetx #charposx - %1
    set #ltargety #charposy
    return

    sub 7
    set #ltargetx #charposx - %1
    set #ltargety #charposy - %1
    return

    ; =-=-=-=-=-=-=-=-=-=- Fim -=-=-=-=-=-=-=-=-=-=
    avatar
    Crusher

    Mensagens : 71
    Data de inscrição : 29/10/2016

    Re: Macro mining mina safety

    Mensagem por Crusher em Qui Jan 12, 2017 1:09 pm

    ; ================================================== ; Nome do Script: Mining Bank ; Criado por: Dark Spirit ou GM Joni (KDS) ou ForSek ; Revisado/Melhorado: Dark Spirit ou GM Joni (KDS) ou ForSek ; Agradecimentos: - ; ================================================== ; Versão: 0.6 Version ; Teste: 2 Players ; Aprovado: 100% ; Testado no: Dragon Shard ; Usado em: Qualquer Shard ; Data de Revisão: 31 . Dezembro . 2005 ; Lançamento Publico: 17 . Agosto . 2007 ; Bugs Encontrados: 0 ; ================================================== ; *Necessita: ; EASY UO v.1.5 e CLIENT= Free ; ================================================== ; *Como usar: ; Vá até uma mina qalquer que tenha acceso ao Banco quando voce digitar BANK ; Configure o Macro do Seu modo. ; ================================================== ; *Duvidas? *Bugs? *Agradecimentos? ; (Mande Mensagem pelo E-mail ou addicione: viniciustrabbi@hotmail.com) ; ================================================== ; LOGS: ; 0.6 - Liberacao do Macro. ; 0.6.1 - Atual.: Adicionada a Bag do Canto Direito Superior. ; - Atual.: Adicionada Rotas para o Shard(usuarios do) que utilizava o macro na epoca. ; 0.6.2 - Add: Modo Stealth - Minera escondido. ; 0.6.3 - Add: Alimentação do Char definida por variavel. ; - Altual.: Melhoramento no Macroem geral ; - Add: Macro separado para escolher ores (foi adicionado separado pois junto, o char demoraria mais para minerar) ; - Add: Title com Dados. ; 0.7 - *Versão definitiva*. ; - Add: Adicionada as rotas para as posicoes ficarem individuais e uma conta nao atrapalhar a outra. ; 0.7.1 - Add: Suporte para o Sistema de Seguranca e Selecao de Ores. ;===================================================================== ;=================== ;===== Inicio ====== ;=================== initevents ;=================================== ;===== Configuracoes Iniciais ====== ;=================================== in: ; Open Paperdoll event macro 8 1 wait 10 ; Open status event macro 8 2 wait 10 ; Open backpack event macro 8 7 wait 10 set #SYSMSGCOL 65 event sysmessage .::. Macro Mining Bank by Dark Spirit | Forsek .::. Versao: 1.0.1 .::. wait 3s ;===================================== ;===== Checagem 2 (nao remova!) ====== ;===================================== check: IF #CHARNAME { Display Adquirir: Para Aquirir este macro, faca contato com: 'viniciustrabbi@hotmail.com'. set #SYSMSGCOL 05 Event sysmessage Este macro nao foi feito para voce! ; halt } else } set #SYSMSGCOL 65 event sysmessage Verificado com sucesso. Obrigado #CHARNAME !!! { wait 4s goto rotas ;================== ;===== Rotas ====== ;================== rotas: set #SYSMSGCOL 65 event sysmessage Va ate o local onde voce deseja acessar o Banco para guardar os Ores e precione ENTER. goto tempo1 tempo1: OnHotkey ENTER goto continuerotas goto tempo1 continuerotas: set %trajeto_umx #CHARPOSX set %trajeto_umy #CHARPOSY wait 3s goto rotas2 rotas2: set #SYSMSGCOL 65 event sysmessage Va ate o local onde voce deseja ir minerar apos guarda os ores e precione ENTER. goto tempo2 tempo2: OnHotkey ENTER goto continuerotas2 goto tempo2 continuerotas2: set %trajeto_doisx #CHARPOSX set %trajeto_doisy #CHARPOSY wait 4s goto teste4 ;====================== ;===== RELATORIO ====== ;====================== teste4: set #SYSMSGCOL 65 event sysmessage Rotas finalizadas e gravadas. wait 2s event sysmessage Relatorio das Variveis: IF %alimentar = 1 { set #SYSMSGCOL 65 event sysmessage Alimento ao Char ON. } ELSEIF %alimentar = 0 { set #SYSMSGCOL 65 event sysmessage Alimento ao Char OFF. } wait 1s IF %hiding = 1 { set #SYSMSGCOL 65 event sysmessage Modo Stealth ON. } ELSEIF %hiding = 0 { set #SYSMSGCOL 65 event sysmessage Modo Stealth OFF. } wait 5s goto rotasok ;===================== ;===== ROTAS OK ====== ;===================== rotasok: set #SYSMSGCOL 65 event sysmessage Voce marcou as Rotas, agora, escolha qual a Bag que voce ira guardar os Ores! wait 2s goto Bagconfig ;======================================= ;===== Configuração - BAG de Ores ====== ;======================================= Bagconfig: set #SYSCOLMSG 65 move %trajeto_umx %trajeto_umy wait 3s msg Bank$ set %Banco #CONTID wait 3s contpos 10 10 Event SysMessage Deixe o mouse sobre onde sera descarregado os ORES e aperte ENTER. tempoenter: OnHotkey ENTER goto continueconfig goto tempoenter continueconfig: set %click_positionx #CURSORX set %click_positiony #CURSORY wait 2s Event SysMessage Ok! Iniciando o macro... event macro 5 5 goto BANKCONFIG ;========================================= ;===== CONFIGURACAO DA BAG NO BANCO ====== ;========================================= BANKCONFIG: set #SYSMSGCOL 40 event sysmessage Verificando BAG! Vai aparecer o nome da Bag que voce escolheu! move %trajeto_umx %trajeto_umy wait 1s msg bank Key Enter wait 3s contpos 10 10 wait 10 click %click_positionx %click_positiony wait 4s finditem CUD set #LOBJECTID #FINDID set #findY #FINDID set #findX #FINDID if #findkind = 0 set %X #FINDX set %Y #FINDY set %X %X + 20 set %Y %Y + 20 event sysmessage Bag OK! Indo Mineirar! move %trajeto_doisx %trajeto_doisy wait 1s ;=================================== ;===== CONFIGURACAO - MINERAR ====== ;=================================== if #MAXHITS > #HITS { msg Guards ! $ Key Enter wait 8s } ; Pickaxes set %pickaxe NPF_QPF_TWF_WWF ; Numero de tentativas set %tentativas 3 ; Tempo maximo de espera em cada tentativa (em segundos) set %tempo_max_tentativa 8 ; Tempo entre cada tentativa (pode ser usado no lag ou em servidores que não aceitam minerar muito rapido) set %tempoPickaxe 1 ; Distancia maxima a minerar (distancia em tiles) ; Padrao 2 (corresponde a 25 posições diferentes sem caminhar) set %target_max_distance 1 ; ========== CONFIGURAÇÕES - ALIMENTAR ; Alimentar? (Sim ou Nao) Set %alimentar Sim ; Comidas Set %comida RUD_FUD_BDF_GQE_IQE_ZPE_SQD_OQE_KPE_VQE_TQE_YSD_JQE_YWI_AXI_PQD_QQD_MQE_SPE_RQE_ END_RGG_AQD_FUD_ZBG_WLI_QRD_YLI_NRD_PRD_XLI_ACG_IGI_GUD_HND_QSD ; ========== CONFIGURAÇÕES - HIDING ; Hiding? (Sim ou Nao) Set %hiding Nao ; ========== CONFIGURAÇÕES - ANDAR ; Distancia a andar Set %distancia_andar 5 ; ========== CONFIGURAÇÕES - FIXAS (nao alterar) Set %target_tmp_X %target_max_distance Set %target_tmp_Y %target_max_distance Set #ltargetid 0 Set #ltargetz 0 Set #ltargetkind 3 ; ========== Title Ultima - Status do Char e Skill sub title set %delta #skill - %skill setuotitle Mining Bank Macro | Skill: %Skill : ( Valor Base: %skillr1 pontos e %skillr3 décimos ) | Peso: #weight / #maxweight | .::. Mining Bank by ForSek .::. return ; ========== INICIO Inicio: gosub ajusta_target ChooseSkill %Skill GoSub comida GoSub skillr GoSub skillv Set %Skill Mining GoSub skilli Set %tentativa_atual 0 goto mine ; ========== MINE mine: if #MAXHITS > #HITS { msg Guards ! $ Key Enter wait 8s } gosub title hiding: if #charstatus <> H && %hiding = Sim { event macro 13 21 wait 3s goto hiding } wait %TempoPickaxe Set %tentativa_atual %tentativa_atual + 1 if %tentativa_atual > %tentativas { goto inicio } gosub pickaxe Set #SCNT 0 goto jornal ;========================== ;===== GUARDAR BANCO ====== ;========================== banco: set #SYSMSGCOL 40 event sysmessage Voce esta muito pesado!!! Vamos visitar o banqueiro!? key esc event macro 8 7 contpos 600 400 set %Backpack #CONTID move %trajeto_umx %trajeto_umy wait 2s msg $Bank key enter set %Banco #CONTID wait 2s contpos 10 10 GO: FINDITEM TVJ_GWJ_EWJ_DWJ_EVF_UVF_HVF_GVF_FVF_OVF_BVF_VUF C_ , %Backpack if #findkind = 1 { ignoreitem #findid goto find } if #findkind = 0 { event drag #FINDID wait 1s key enter wait 2s click %click_positionx %click_positiony goto GO } if #findkind = -1 { wait 1s move %trajeto_doisx %trajeto_doisy wait 1s return ; ========== JORNAL jornal: if #MAXHITS > #HITS { msg Guards !$ Key Enter wait 8s } deleteJournal scanJournal 1 ;quando atacado if #sysmsg = YOU_ARE_PREOCCUPIED_WITH_THOUGHTS_OF_BATTLE. { event Macro 6 0 return } if #WEIGHT > 350 { goto banco } if #SCNT >= %tempo_max_tentativa { goto mine } ;mining_los if you_have_no_line_of_sight_to_that_location in #journal || voce_nao_tem_uma_linha_de_visao in #journal { goto inicio } ;mining_reach if that_is_too_far_away in #journal || aquele_esta_muito_distante in #journal { goto inicio } ;mining_1 if try_mining_elsewhere in #journal || tente_minerar_em_outro_lugar in #journal { goto inicio } ;mining_2 if there_is_nothing_here_to_mine_for in #journal || nao_a_nada_aqui_para_minerar in #journal { goto inicio } ;mining_3 if there_is_no_ore_here_to_mine in #journal || Aqui_nao_ha_nada_para_minerar in #journal { goto inicio } ;mining_4 if tente_minerar_em_outro_local in #journal || tente_minerar_na_rocha in #journal { goto inicio } if #MAXHITS > #HITS { msg Guards !$ Key Enter wait 8s } if Voce_pegou_apenas_pedras in #journal || nenhum_minerio_aproveitavel in #journal { goto mine } if in_your_pack in #journal || Voce_colocou in #journal { goto mine } if you_cannot_mine_so_close_to_yourself in #journal || Esta_muito_longe in #journal { goto mine } goto jornal ; ====================Ajusta target==================== sub ajusta_target if %target_tmp_Y < 0 - %target_max_distance { set %target_tmp_Y %target_max_distance set %target_tmp_X %target_tmp_X - 1 } if #MAXHITS > #HITS { msg Guards !$ Key Enter wait 8s } if %target_tmp_X < 0 - %target_max_distance { set %target_tmp_X %target_max_distance set %direcao %direcao + 1 set %anda_x #charposx set %anda_y #charposy if %direcao >= 4 { set %anda_y #charposy - %distancia_andar set %direcao 0 } if %direcao = 3 { set %anda_x #charposx - %distancia_andar } if %direcao = 2 { set %anda_y #charposy + %distancia_andar } if %direcao = 1 { set %anda_x #charposx + %distancia_andar } move %anda_x %anda_y 0 2s } set #ltargetx #charposx - %target_tmp_X set #ltargety #charposy - %target_tmp_Y set %target_tmp_Y %target_tmp_Y - 1 return ; ====================PICKAXE==================== sub pickaxe if #MAXHITS > #HITS { msg Guards !$ Key Enter wait 8s } finditem %Pickaxe if #findkind = 0 { set #LObjectID #FindID event macro 17 0 target event macro 25 0 event macro 22 0 return } if #findkind = 1 { ignoreitem #FindID gosub pickaxe return } if #findkind = -1 { ignoreitem reset event sysmessage Pickaxe nao encontrada wait 3s return } return ; ====================COMIDA==================== sub comida IF %alimentar = Sim { finditem %Comida if #findkind = 0 { set #LObjectID #FindID event macro 17 0 } if #findkind = 1 { ignoreitem #FindID gosub comida } if #findkind = -1 { ignoreitem reset event sysmessage Comida nao encontrada } } return ;============================ Sub Skill Real ============================; Sub skillr Set %skillr1 #skill / 10 Set %skillr2 %skillr1 * 10 Set %skillr3 #skill - %skillr2 return ;============================ Sub Skill Variável ============================; Sub skillv Set %skillv1 %skillr1 - %skilli1 Set %skillv2 %skillr3 - %skilli3 return ;============================ Sub Skill Inicial ============================; Sub skilli Set %skilli1 #skill / 10 Set %skilli2 %skilli1 * 10 Set %skilli3 #skill - %skilli2 return _____________ |=============| |==== FIM ====| |=============|vinicius possebon

    Cirolim

    Mensagens : 16
    Data de inscrição : 22/08/2016

    Re: Macro mining mina safety

    Mensagem por Cirolim em Sex Jan 13, 2017 12:58 pm

    Crusher esse segundo macro guarda no banco? é de easy uo? ALguem tem algum que guarda no banco?
    avatar
    Crusher

    Mensagens : 71
    Data de inscrição : 29/10/2016

    Re: Macro mining mina safety

    Mensagem por Crusher em Sex Jan 13, 2017 2:02 pm

    segue abaixo o macro que guarda na mina safe.
    agradecimento especial pro Dilluvian(TEMP), que fez adptação.

    ->>

    ===========================================================================|
    | Macro: Mining (Mina Safe Mystara) |
    | Cavaleiros Templarios - Mystara Legends

    |===========================================================================|

    initevents


    ; ========================CONFIGURA??ES INICIAIS - UO=====================
    initevents

    Set %Comida HND
    Set %Pickaxe QPF_NPF
    Set %Tentativa 3
    Set %TempoEspera 10
    Set %TempoPickaxe 2

    Set %cnt 0
    Set %funcao 0

    Set #ltargetid 0
    Set #ltargetz 0
    Set #ltargetkind 3

    move 5273 2034 10

    goto configurar
    }
    ; ========================CONFIGURA??ES INICIAIS - Vari?veis=====================



    set %comida RHD_QSD
    Set %Pickaxe NPF_QPF
    Set %Tentativa 3
    Set %TempoEspera 9
    Set %TempoPickaxe 2

    Set %cnt 0
    Set %funcao 0

    Set #ltargetid 0
    Set #ltargetz 0
    Set #ltargetkind 3

    ; ====================INICIO====================


    Inicio:

    gosub %cnt 1
    set %cnt %cnt + 1

    if %cnt > 7
    {
    set %cnt 0
    goto caminha
    goto hid
    }

    Set %Chance 0
    goto mine

    ; ====================MINE====================
    mine:
    Set #SCNT 0

    Set %Chance %Chance + 1
    if %Chance > %Tentativa
    {
    goto inicio
    }

    deletejournal
    gosub pickaxe

    Set #SCNT 0
    goto jornal

    ; ====================JORNAL====================
    jornal:


    scanjournal 1


    if hidden in #SYSMSG
    {
    goto inicio
    }

    if to_hide_here in #SYSMSG
    {
    goto hid
    }

    if #WEIGHT > 360
    {
    set %x #CHARPOSX
    set %y #CHARPOSY
    set #SCNT 0
    set %banco 0
    goto guarda
    }

    if There_is_nothing in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }


    if You_lose in #SYSMSG
    {
    goto mine
    }

    if away in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if play in #SYSMSG
    {
    goto espera
    }

    if Voce_pegou in #SYSMSG
    {
    goto mine
    }

    if Voce_nao in #SYSMSG
    {
    goto mine
    }

    if Voce_colocou in #SYSMSG
    {
    goto mine
    }

    if you_have in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if no_ore in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if fail in #SYSMSG
    {
    goto espera
    }

    if your_pack in #SYSMSG
    {
    goto mine
    }

    if Try in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if minerar in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if nao_a in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if your_skill in #SYSMSG
    {
    goto mine
    }

    if Pickaxe_nao in #SYSMSG
    {
    event macro 8 7
    event macro 8 2
    }

    if #SCNT >= %TempoEspera
    {
    goto mine
    }

    goto jornal
    ; ====================ESPERA====================
    espera:
    Set #SCNT 0

    goto inicio

    banco:
    move 5272 2034 0
    goto guarda

    mina:
    move %x %y
    set %banco 0
    goto mine

    guarda:
    move 5308 2021 0
    move 5308 2029 0
    move 5291 2032 0
    move 5286 2027 0
    move 5274 2027 0
    move 5272 2034 0
    wait 1s
    goto descarregar

    descarregar:
    set #nextcposx 300
    set #nextcposy 0
    msg $bank$
    finding:
    finditem TVJ_GWJ_EWJ_DWJ_UVF_OVF_VUF_FVF_HVF_GVF_BVF_EVF
    if #findkind = -1
    {
    move 5272 2034 0
    move 5274 2027 0
    move 5286 2027 0
    move 5291 2032 0
    move 5308 2029 0
    move 5308 2021 0
    move 5309 2006 0
    goto inicio
    }
    wait 1s
    Draging:
    event drag #findid
    key enter
    wait 1s
    click %bagx %bagy
    wait 2s
    goto finding


    configurar:
    set %configurado 1
    set #nextcposx 300
    set #nextcposy 0
    wait 1s
    msg $bank$
    wait 1s
    event sysmessage Deixe o cursor sobre a bag
    wait 3s
    set %bagx #cursorx
    set %bagy #cursory
    wait 1s
    move 5272 2034 0
    move 5274 2027 0
    move 5286 2027 0
    move 5291 2032 0
    move 5308 2029 0
    move 5308 2021 0
    move 5309 2006 0
    goto inicio

    ; ====================Caminhada====================
    caminha:
    gosub %funcao 5
    move #ltargetx #ltargety 0 1s
    wait 1s
    Set %funcao %funcao + 1

    if %funcao > 7
    {
    Set %funcao 0
    }
    goto hid

    ; ====================Ajusta targets Automatico====================
    sub 0
    set #ltargetx #charposx
    set #ltargety #charposy - %1
    return

    sub 1
    set #ltargetx #charposx + %1
    set #ltargety #charposy - %1
    return

    sub 2
    set #ltargetx #charposx + %1
    set #ltargety #charposy
    return

    sub 3
    set #ltargetx #charposx + %1
    set #ltargety #charposy + %1
    return

    sub 4
    set #ltargetx #charposx
    set #ltargety #charposy + %1
    return

    sub 5
    set #ltargetx #charposx - %1
    set #ltargety #charposy + %1
    return

    sub 6
    set #ltargetx #charposx - %1
    set #ltargety #charposy
    return

    sub 7
    set #ltargetx #charposx - %1
    set #ltargety #charposy - %1
    return

    ; ====================PICKAXE====================
    sub pickaxe
    finditem %Pickaxe

    if #findkind = 0
    {
    set #LObjectID #FindID
    event macro 17 0
    target
    event macro 22 0
    return
    }

    if #findkind = 1
    {
    ignoreitem #FindID
    gosub pickaxe
    return
    }

    if #findkind = -1
    {
    ignoreitem reset
    event sysmessage Pickaxe nao encontrada
    wait 3s
    return
    }
    return

    ; ====================COMIDA====================
    sub comida

    finditem %Comida

    if #findkind = 0
    {
    set #LObjectID #FindID
    event macro 17 0
    return
    }

    if #findkind = 1
    {
    ignoreitem #FindID
    gosub comida
    return
    }


    if #findkind = -1
    {
    ignoreitem reset
    event sysmessage Comida nao encontrada
    goto inicio

    Cirolim

    Mensagens : 16
    Data de inscrição : 22/08/2016

    Re: Macro mining mina safety

    Mensagem por Cirolim em Sex Jan 13, 2017 6:34 pm

    Crusher escreveu:segue abaixo o macro que guarda na mina safe.
    agradecimento especial pro Dilluvian(TEMP), que fez adptação.

    ->>

                    ===========================================================================|
    | Macro: Mining (Mina Safe Mystara)       |
    | Cavaleiros Templarios - Mystara Legends

    |===========================================================================|

    initevents


    ; ========================CONFIGURA??ES INICIAIS - UO=====================
    initevents

    Set %Comida HND
    Set %Pickaxe QPF_NPF
    Set %Tentativa 3
    Set %TempoEspera 10
    Set %TempoPickaxe 2

    Set %cnt 0
    Set %funcao 0

    Set #ltargetid 0
    Set #ltargetz 0
    Set #ltargetkind 3

    move 5273 2034 10

    goto configurar
    }
    ; ========================CONFIGURA??ES INICIAIS - Vari?veis=====================



    set %comida RHD_QSD
    Set %Pickaxe NPF_QPF
    Set %Tentativa 3
    Set %TempoEspera 9
    Set %TempoPickaxe 2

    Set %cnt 0
    Set %funcao 0

    Set #ltargetid 0
    Set #ltargetz 0
    Set #ltargetkind 3

    ; ====================INICIO====================


    Inicio:

    gosub %cnt 1
    set %cnt %cnt + 1

    if %cnt > 7
    {
    set %cnt 0
    goto caminha
    goto hid
    }

    Set %Chance 0
    goto mine

    ; ====================MINE====================
    mine:
    Set #SCNT 0

    Set %Chance %Chance + 1
    if %Chance > %Tentativa
    {
    goto inicio
    }

    deletejournal
    gosub pickaxe

    Set #SCNT 0
    goto jornal

    ; ====================JORNAL====================
    jornal:


    scanjournal 1


    if hidden in #SYSMSG
    {
    goto inicio
    }

    if to_hide_here in #SYSMSG
    {
    goto hid
    }

    if #WEIGHT > 360
    {
    set %x #CHARPOSX
    set %y #CHARPOSY
    set #SCNT 0
    set %banco 0
    goto guarda
    }

    if There_is_nothing in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }


    if You_lose in #SYSMSG
    {
    goto mine
    }

    if away in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if play in #SYSMSG
    {
    goto espera
    }

    if Voce_pegou in #SYSMSG
    {
    goto mine
    }

    if Voce_nao in #SYSMSG
    {
    goto mine
    }

    if Voce_colocou in #SYSMSG
    {
    goto mine
    }

    if you_have in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if no_ore in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if fail in #SYSMSG
    {
    goto espera
    }

    if your_pack in #SYSMSG
    {
    goto mine
    }

    if Try in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if minerar in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if nao_a in #SYSMSG
    {
    Set %Chance 0
    goto espera
    }

    if your_skill in #SYSMSG
    {
    goto mine
    }

    if Pickaxe_nao in #SYSMSG
    {
    event macro 8 7
    event macro 8 2
    }

    if #SCNT >= %TempoEspera
    {
    goto mine
    }

    goto jornal
    ; ====================ESPERA====================
    espera:
    Set #SCNT 0

    goto inicio

    banco:
    move 5272 2034 0
    goto guarda

    mina:
    move %x %y
    set %banco 0
    goto mine

    guarda:
    move 5308 2021 0
    move 5308 2029 0
    move 5291 2032 0
    move 5286 2027 0
    move 5274 2027 0
    move 5272 2034 0
    wait 1s
    goto descarregar

    descarregar:
    set #nextcposx 300
    set #nextcposy 0
    msg $bank$
    finding:
    finditem TVJ_GWJ_EWJ_DWJ_UVF_OVF_VUF_FVF_HVF_GVF_BVF_EVF
    if #findkind = -1
    {
    move 5272 2034 0
    move 5274 2027 0
    move 5286 2027 0
    move 5291 2032 0
    move 5308 2029 0
    move 5308 2021 0
    move 5309 2006 0
    goto inicio
    }
    wait 1s
    Draging:
    event drag #findid
    key enter
    wait 1s
    click %bagx %bagy
    wait 2s
    goto finding


    configurar:
    set %configurado 1
    set #nextcposx 300
    set #nextcposy 0
    wait 1s
    msg $bank$
    wait 1s
    event sysmessage Deixe o cursor sobre a bag
    wait 3s
    set %bagx #cursorx
    set %bagy #cursory
    wait 1s
    move 5272 2034 0
    move 5274 2027 0
    move 5286 2027 0
    move 5291 2032 0
    move 5308 2029 0
    move 5308 2021 0
    move 5309 2006 0
    goto inicio

    ; ====================Caminhada====================
    caminha:
    gosub %funcao 5
    move #ltargetx #ltargety 0 1s
    wait 1s
    Set %funcao %funcao + 1

    if %funcao > 7
    {
    Set %funcao 0
    }
    goto hid

    ; ====================Ajusta targets Automatico====================
    sub 0
    set #ltargetx #charposx
    set #ltargety #charposy - %1
    return

    sub 1
    set #ltargetx #charposx + %1
    set #ltargety #charposy - %1
    return

    sub 2
    set #ltargetx #charposx + %1
    set #ltargety #charposy
    return

    sub 3
    set #ltargetx #charposx + %1
    set #ltargety #charposy + %1
    return

    sub 4
    set #ltargetx #charposx
    set #ltargety #charposy + %1
    return

    sub 5
    set #ltargetx #charposx - %1
    set #ltargety #charposy + %1
    return

    sub 6
    set #ltargetx #charposx - %1
    set #ltargety #charposy
    return

    sub 7
    set #ltargetx #charposx - %1
    set #ltargety #charposy - %1
    return

    ; ====================PICKAXE====================
    sub pickaxe
    finditem %Pickaxe

    if #findkind = 0
    {
    set #LObjectID #FindID
    event macro 17 0
    target
    event macro 22 0
    return
    }

    if #findkind = 1
    {
    ignoreitem #FindID
    gosub pickaxe
    return
    }

    if #findkind = -1
    {
    ignoreitem reset
    event sysmessage Pickaxe nao encontrada
    wait 3s
    return
    }
    return

    ; ====================COMIDA====================
    sub comida

    finditem %Comida

    if #findkind = 0
    {
    set #LObjectID #FindID
    event macro 17 0
    return
    }

    if #findkind = 1
    {
    ignoreitem #FindID
    gosub comida
    return
    }


    if #findkind = -1
    {
    ignoreitem reset
    event sysmessage Comida nao encontrada
    goto inicio


    Crusher, liguei e nao funfou. Tem ação ou alguma coisa específica que tem que fazer pra funcionar?
    avatar
    Crusher

    Mensagens : 71
    Data de inscrição : 29/10/2016

    Re: Macro mining mina safety

    Mensagem por Crusher em Sex Jan 13, 2017 8:54 pm

    tem que estar proximo ao npc banker. com a bag aberta e com o status aberto. testa ai.

    Cirolim

    Mensagens : 16
    Data de inscrição : 22/08/2016

    Re: Macro mining mina safety

    Mensagem por Cirolim em Sab Jan 14, 2017 10:03 am

    Crusher escreveu:tem que estar proximo ao npc banker. com a bag aberta e com o status aberto. testa ai.


    deu certo, valeu!!

    Oloko_lk

    Mensagens : 24
    Data de inscrição : 07/11/2016

    Re: Macro mining mina safety

    Mensagem por Oloko_lk em Seg Jan 16, 2017 12:49 pm

    Esse macro tem um problema que quando ele erra, ele nao tenta de novo. E ai acaba perdendo os melhores ores nisso
    avatar
    Crusher

    Mensagens : 71
    Data de inscrição : 29/10/2016

    Re: Macro mining mina safety

    Mensagem por Crusher em Seg Jan 16, 2017 1:18 pm

    Oloko_lk escreveu:Esse macro tem um problema que quando ele erra, ele nao tenta de novo. E ai acaba perdendo os melhores ores nisso
    ajuda nós ai, posta o conserto!
    abração

    Oloko_lk

    Mensagens : 24
    Data de inscrição : 07/11/2016

    Re: Macro mining mina safety

    Mensagem por Oloko_lk em Seg Jan 16, 2017 4:13 pm

    Então, eu não manjo dessa programação. O que eu tentei fazer, que achei que resolveria, foi trocar:


    if You_lose in #SYSMSG
    {
    goto mine
    }

    POR


    if You_loosen in #SYSMSG
    {
    goto mine
    }

    Mas ele parece que não ta lendo isso, não sei, não ta funcionando

    Alguem que manje, da uma mão ai =)

    Anderick

    Mensagens : 6
    Data de inscrição : 23/01/2017

    Re: Macro mining mina safety

    Mensagem por Anderick em Sex Jan 27, 2017 4:47 pm

    To com outro macro de mining aqui que guarda no banco, mas não to conseguindo postar aqui!!
    avatar
    Crusher

    Mensagens : 71
    Data de inscrição : 29/10/2016

    Re: Macro mining mina safety

    Mensagem por Crusher em Sab Jan 28, 2017 1:38 am

    control c, control v, ou me manda mensagem privada que eu posto. abs

    Anderick

    Mensagens : 6
    Data de inscrição : 23/01/2017

    Re: Macro mining mina safety

    Mensagem por Anderick em Sab Jan 28, 2017 9:50 am

    Já tentei Control C, Control v, mais fala que não posso postar link ou email! Depois te mando no privado então!

    sidarta

    Mensagens : 13
    Data de inscrição : 30/10/2016

    Re: Macro mining mina safety

    Mensagem por sidarta em Sab Fev 04, 2017 9:11 am

    E ai, vamos compartilhar? ehhe

    Anderick

    Mensagens : 6
    Data de inscrição : 23/01/2017

    Re: Macro mining mina safety

    Mensagem por Anderick em Ter Fev 21, 2017 12:00 pm

    ; ==================================================
    ; Nome do Script: Mining Bank
    ; Criado por: Dark Spirit ou GM Joni (KDS) ou ForSek
    ; Revisado/Melhorado: Dark Spirit ou GM Joni (KDS) ou ForSek
    ; Agradecimentos: -
    ; ==================================================
    ; Versão: 0.6 Version
    ; Teste: 2 Players
    ; Aprovado: 100%
    ; Testado no:
    ; Usado em:
    ; Data de Revisão: 31 . Dezembro . 2005
    ; Lançamento Publico: 17 . Agosto . 2007
    ; Bugs Encontrados: 0
    ; ==================================================
    ; *Necessita:
    ; EASY UO v.1.5 e CLIENT= Free
    ; ==================================================
    ; *Como usar:
    ; Vá até uma mina qalquer que tenha acceso ao Banco quando voce digitar BANK
    ; Configure o Macro do Seu modo.
    ; ==================================================
    ; *Duvidas? *Bugs? *Agradecimentos?
    ; (Mande Mensagem pelo E-mail ou addicione: viniciustrabbi@hotmail.com)
    ; ==================================================
    ; LOGS:
    ; 0.6 - Liberacao do Macro.
    ; 0.6.1 - Atual.: Adicionada a Bag do Canto Direito Superior.
    ; - Atual.: Adicionada Rotas para o Shard(usuarios do) que utilizava o macro na epoca.
    ; 0.6.2 - Add: Modo Stealth - Minera escondido.
    ; 0.6.3 - Add: Alimentação do Char definida por variavel.
    ; - Altual.: Melhoramento no Macroem geral
    ; - Add: Macro separado para escolher ores (foi adicionado separado pois junto, o char demoraria mais para minerar)
    ; - Add: Title com Dados.
    ; 0.7 - *Versão definitiva*.
    ; - Add: Adicionada as rotas para as posicoes ficarem individuais e uma conta nao atrapalhar a outra.
    ; 0.7.1 - Add: Suporte para o Sistema de Seguranca e Selecao de Ores.
    ;=====================================================================


    ;===================
    ;===== Inicio ======
    ;===================
    initevents
    ;===================================
    ;===== Configuracoes Iniciais ======
    ;===================================
    in:
    ; Open Paperdoll
    event macro 8 1
    wait 10

    ; Open status
    event macro 8 2
    wait 10

    ; Open backpack
    event macro 8 7
    wait 10
    set #SYSMSGCOL 65
    event sysmessage .::. Macro Mining Bank by Dark Spirit | Forsek .::. Versao: 1.0.1 .::.
    wait 3s


    ;=====================================
    ;===== Checagem 2 (nao remova!) ======
    ;=====================================

    check:
    IF #CHARNAME <ForSek>
    {
    Display Adquirir: Para Aquirir este macro, faca contato com: 'viniciustrabbi@hotmail.com'.
    set #SYSMSGCOL 05
    Event sysmessage Este macro nao foi feito para voce!
    ;
    halt
    }
    else
    }
    set #SYSMSGCOL 65
    event sysmessage Verificado com sucesso. Obrigado #CHARNAME !!!
    {
    wait 4s
    goto rotas

    ;==================
    ;===== Rotas ======
    ;==================
    rotas:
    set #SYSMSGCOL 65
    event sysmessage Va ate o local onde voce deseja acessar o Banco para guardar os Ores e precione ENTER.
    goto tempo1

    tempo1:
    OnHotkey ENTER
    goto continuerotas
    goto tempo1

    continuerotas:
    set %trajeto_umx #CHARPOSX
    set %trajeto_umy #CHARPOSY
    wait 3s
    goto rotas2

    rotas2:
    set #SYSMSGCOL 65
    event sysmessage Va ate o local onde voce deseja ir minerar apos guarda os ores e precione ENTER.
    goto tempo2

    tempo2:
    OnHotkey ENTER
    goto continuerotas2
    goto tempo2

    continuerotas2:
    set %trajeto_doisx #CHARPOSX
    set %trajeto_doisy #CHARPOSY
    wait 4s
    goto teste4

    ;======================
    ;===== RELATORIO ======
    ;======================

    teste4:
    set #SYSMSGCOL 65
    event sysmessage Rotas finalizadas e gravadas.
    wait 2s
    event sysmessage Relatorio das Variveis:

    IF %alimentar = 1
    {
    set #SYSMSGCOL 65
    event sysmessage Alimento ao Char ON.
    }
    ELSEIF %alimentar = 0
    {
    set #SYSMSGCOL 65
    event sysmessage Alimento ao Char OFF.
    }

    wait 1s

    IF %hiding = 1
    {
    set #SYSMSGCOL 65
    event sysmessage Modo Stealth ON.
    }
    ELSEIF %hiding = 0
    {
    set #SYSMSGCOL 65
    event sysmessage Modo Stealth OFF.
    }
    wait 5s
    goto rotasok

    ;=====================
    ;===== ROTAS OK ======
    ;=====================

    rotasok:

    set #SYSMSGCOL 65
    event sysmessage Voce marcou as Rotas, agora, escolha qual a Bag que voce ira guardar os Ores!
    wait 2s
    goto Bagconfig

    ;=======================================
    ;===== Configuração - BAG de Ores ======
    ;=======================================

    Bagconfig:
    set #SYSCOLMSG 65
    move %trajeto_umx %trajeto_umy
    wait 3s
    msg Bank$
    set %Banco #CONTID
    wait 3s
    contpos 10 10
    Event SysMessage Deixe o mouse sobre onde sera descarregado os ORES e aperte ENTER.

    tempoenter:
    OnHotkey ENTER
    goto continueconfig
    goto tempoenter

    continueconfig:

    set %click_positionx #CURSORX
    set %click_positiony #CURSORY
    wait 2s
    Event SysMessage Ok! Iniciando o macro...
    event macro 5 5
    goto BANKCONFIG

    ;=========================================
    ;===== CONFIGURACAO DA BAG NO BANCO ======
    ;=========================================

    BANKCONFIG:
    set #SYSMSGCOL 40
    event sysmessage Verificando BAG! Vai aparecer o nome da Bag que voce escolheu!
    move %trajeto_umx %trajeto_umy
    wait 1s
    msg bank
    Key Enter
    wait 3s
    contpos 10 10
    wait 10
    click %click_positionx %click_positiony
    wait 4s

    finditem CUD
    set #LOBJECTID #FINDID
    set #findY #FINDID
    set #findX #FINDID
    if #findkind = 0

    set %X #FINDX
    set %Y #FINDY
    set %X %X + 20
    set %Y %Y + 20
    event sysmessage Bag OK! Indo Mineirar!
    move %trajeto_doisx %trajeto_doisy
    wait 1s


    ;===================================
    ;===== CONFIGURACAO - MINERAR ======
    ;===================================

    if #MAXHITS > #HITS
    {
    msg Guards ! $
    Key Enter
    wait 8s
    }

    ; Pickaxes
    set %pickaxe NPF_QPF_TWF_WWF

    ; Numero de tentativas
    set %tentativas 3

    ; Tempo maximo de espera em cada tentativa (em segundos)
    set %tempo_max_tentativa 8

    ; Tempo entre cada tentativa (pode ser usado no lag ou em servidores que não aceitam minerar muito rapido)
    set %tempoPickaxe 1

    ; Distancia maxima a minerar (distancia em tiles)
    ; Padrao 2 (corresponde a 25 posições diferentes sem caminhar)
    set %target_max_distance 1

    ; ========== CONFIGURAÇÕES - ALIMENTAR

    ; Alimentar? (Sim ou Nao)
    Set %alimentar Sim

    ; Comidas
    Set %comida RUD_FUD_BDF_GQE_IQE_ZPE_SQD_OQE_KPE_VQE_TQE_YSD_JQE_YWI_AXI_PQD_QQD_MQE_SPE_RQE_
    END_RGG_AQD_FUD_ZBG_WLI_QRD_YLI_NRD_PRD_XLI_ACG_IGI_GUD_HND_QSD

    ; ========== CONFIGURAÇÕES - HIDING

    ; Hiding? (Sim ou Nao)
    Set %hiding Nao

    ; ========== CONFIGURAÇÕES - ANDAR

    ; Distancia a andar
    Set %distancia_andar 5

    ; ========== CONFIGURAÇÕES - FIXAS (nao alterar)

    Set %target_tmp_X %target_max_distance
    Set %target_tmp_Y %target_max_distance

    Set #ltargetid 0
    Set #ltargetz 0
    Set #ltargetkind 3

    ; ========== Title Ultima - Status do Char e Skill

    sub title
    set %delta #skill - %skill
    setuotitle Mining Bank Macro | Skill: %Skill : ( Valor Base: %skillr1 pontos e %skillr3 décimos ) | Peso: #weight / #maxweight | .::. Mining Bank by ForSek .::.
    return

    ; ========== INICIO
    Inicio:
    gosub ajusta_target

    ChooseSkill %Skill
    GoSub comida
    GoSub skillr
    GoSub skillv
    Set %Skill Mining
    GoSub skilli

    Set %tentativa_atual 0

    goto mine

    ; ========== MINE
    mine:

    if #MAXHITS > #HITS
    {
    msg Guards ! $
    Key Enter
    wait 8s
    }

    gosub title

    hiding:
    if #charstatus <> H && %hiding = Sim
    {
    event macro 13 21
    wait 3s
    goto hiding
    }

    wait %TempoPickaxe

    Set %tentativa_atual %tentativa_atual + 1

    if %tentativa_atual > %tentativas
    {
    goto inicio
    }

    gosub pickaxe

    Set #SCNT 0

    goto jornal

    ;==========================
    ;===== GUARDAR BANCO ======
    ;==========================

    banco:
    set #SYSMSGCOL 40
    event sysmessage Voce esta muito pesado!!! Vamos visitar o banqueiro!?
    key esc
    event macro 8 7
    contpos 600 400
    set %Backpack #CONTID
    move %trajeto_umx %trajeto_umy
    wait 2s
    msg $Bank
    key enter
    set %Banco #CONTID
    wait 2s
    contpos 10 10


    GO:
    FINDITEM TVJ_GWJ_EWJ_DWJ_EVF_UVF_HVF_GVF_FVF_OVF_BVF_VUF C_ , %Backpack
    if #findkind = 1
    {
    ignoreitem #findid
    goto find
    }
    if #findkind = 0
    {
    event drag #FINDID
    wait 1s
    key enter
    wait 2s
    click %click_positionx %click_positiony
    goto GO
    }
    if #findkind = -1
    {
    wait 1s
    move %trajeto_doisx %trajeto_doisy
    wait 1s
    return


    ; ========== JORNAL
    jornal:
    if #MAXHITS > #HITS
    {
    msg Guards !$
    Key Enter
    wait 8s
    }
    deleteJournal
    scanJournal 1

    ;quando atacado
    if #sysmsg = YOU_ARE_PREOCCUPIED_WITH_THOUGHTS_OF_BATTLE.
    {
    event Macro 6 0
    return
    }

    if #WEIGHT > 350
    {
    goto banco
    }

    if #SCNT >= %tempo_max_tentativa
    {
    goto mine
    }

    ;mining_los
    if you_have_no_line_of_sight_to_that_location in #journal || voce_nao_tem_uma_linha_de_visao in #journal
    {
    goto inicio
    }

    ;mining_reach
    if that_is_too_far_away in #journal || aquele_esta_muito_distante in #journal
    {
    goto inicio
    }

    ;mining_1
    if try_mining_elsewhere in #journal || tente_minerar_em_outro_lugar in #journal
    {
    goto inicio
    }

    ;mining_2
    if there_is_nothing_here_to_mine_for in #journal || nao_a_nada_aqui_para_minerar in #journal
    {
    goto inicio
    }

    ;mining_3
    if there_is_no_ore_here_to_mine in #journal || Aqui_nao_ha_nada_para_minerar in #journal
    {
    goto inicio
    }

    ;mining_4
    if tente_minerar_em_outro_local in #journal || tente_minerar_na_rocha in #journal
    {
    goto inicio
    }

    if #MAXHITS > #HITS
    {
    msg Guards !$
    Key Enter
    wait 8s
    }

    if Voce_pegou_apenas_pedras in #journal || nenhum_minerio_aproveitavel in #journal
    {
    goto mine
    }

    if in_your_pack in #journal || Voce_colocou in #journal
    {
    goto mine
    }

    if you_cannot_mine_so_close_to_yourself in #journal || Esta_muito_longe in #journal
    {
    goto mine
    }

    goto jornal

    ; ====================Ajusta target====================
    sub ajusta_target

    if %target_tmp_Y < 0 - %target_max_distance
    {
    set %target_tmp_Y %target_max_distance
    set %target_tmp_X %target_tmp_X - 1
    }

    if #MAXHITS > #HITS
    {
    msg Guards !$
    Key Enter
    wait 8s
    }

    if %target_tmp_X < 0 - %target_max_distance
    {
    set %target_tmp_X %target_max_distance

    set %direcao %direcao + 1
    set %anda_x #charposx
    set %anda_y #charposy

    if %direcao >= 4
    {
    set %anda_y #charposy - %distancia_andar
    set %direcao 0
    }
    if %direcao = 3
    {
    set %anda_x #charposx - %distancia_andar
    }
    if %direcao = 2
    {
    set %anda_y #charposy + %distancia_andar
    }
    if %direcao = 1
    {
    set %anda_x #charposx + %distancia_andar
    }

    move %anda_x %anda_y 0 2s
    }

    set #ltargetx #charposx - %target_tmp_X
    set #ltargety #charposy - %target_tmp_Y

    set %target_tmp_Y %target_tmp_Y - 1

    return

    ; ====================PICKAXE====================
    sub pickaxe

    if #MAXHITS > #HITS
    {
    msg Guards !$
    Key Enter
    wait 8s
    }

    finditem %Pickaxe

    if #findkind = 0
    {
    set #LObjectID #FindID
    event macro 17 0
    target
    event macro 25 0
    event macro 22 0
    return
    }

    if #findkind = 1
    {
    ignoreitem #FindID
    gosub pickaxe
    return
    }

    if #findkind = -1
    {
    ignoreitem reset
    event sysmessage Pickaxe nao encontrada
    wait 3s
    return
    }
    return

    ; ====================COMIDA====================
    sub comida
    IF %alimentar = Sim
    {
    finditem %Comida
    if #findkind = 0
    {
    set #LObjectID #FindID
    event macro 17 0
    }

    if #findkind = 1
    {
    ignoreitem #FindID
    gosub comida
    }

    if #findkind = -1
    {
    ignoreitem reset
    event sysmessage Comida nao encontrada
    }
    }
    return

    ;============================ Sub Skill Real ============================;

    Sub skillr

    Set %skillr1 #skill / 10
    Set %skillr2 %skillr1 * 10
    Set %skillr3 #skill - %skillr2
    return

    ;============================ Sub Skill Variável ============================;

    Sub skillv

    Set %skillv1 %skillr1 - %skilli1
    Set %skillv2 %skillr3 - %skilli3
    return

    ;============================ Sub Skill Inicial ============================;

    Sub skilli

    Set %skilli1 #skill / 10
    Set %skilli2 %skilli1 * 10
    Set %skilli3 #skill - %skilli2
    return
    _____________
    |=============|
    |==== FIM ====|
    |=============|

    Conteúdo patrocinado

    Re: Macro mining mina safety

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Dom Jun 25, 2017 5:55 pm