Fórum do melhor servidor de Ultima Online atualmente.


    [MACRO] Mining + Bank

    Compartilhe

    jexnico

    Mensagens : 11
    Data de inscrição : 18/02/2017
    Idade : 20
    Localização : Colatina - ES

    [MACRO] Mining + Bank

    Mensagem por jexnico em Dom Fev 19, 2017 4:26 pm

    Tenho esse macro aqui mas não foi eu que fiz, tem que ajeitar ele pq as vezes o boneco para de minerar

    Macro escreveu:if not listexists 'Pos_X'
    createlist 'Pos_X'
    endif
    @clearlist 'Pos_X'
    pushlist! 'Pos_X' -1
    pushlist! 'Pos_X' 0
    pushlist! 'Pos_X' 1
    if not listexists 'Pos_Y'
    createlist 'Pos_Y'
    endif
    @clearlist 'Pos_Y'
    pushlist! 'Pos_Y' -1
    pushlist! 'Pos_Y' 0
    pushlist! 'Pos_Y' 1
    if not listexists 'Directions'
    createlist 'Directions'
    endif
    @clearlist 'Directions'
    pushlist! 'Directions' 'Southeast'
    pushlist! 'Directions' 'North'
    pushlist! 'Directions' 'Northwest'
    pushlist! 'Directions' 'East'
    pushlist! 'Directions' 'South'
    pushlist! 'Directions' 'Southwest'
    pushlist! 'Directions' 'West'
    pushlist! 'Directions' 'Northeast'
    if not listexists 'RunXY'
    createlist 'RunXY'
    endif
    @clearlist 'RunXY'
    pushlist! 'RunXY' 'East'
    pushlist! 'RunXY' 'South'
    pushlist! 'RunXY' 'Southeast'
    pushlist! 'RunXY' 'North'
    pushlist! 'RunXY' 'Northwest'
    pushlist! 'RunXY' 'Southwest'
    pushlist! 'RunXY' 'West'
    pushlist! 'RunXY' 'Northeast'
    if not @findobject 'bankstock'
    msg 'bank'
    sysmsg 'Voce precisa setar um bau no bank para depositar os ores.' '33'
    promptalias 'bankstock'
    endif
    msg 'bank'
    while @movetype 0x19b9 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    for 0 to 'RunXY'
    for 0 to 'Directions'
    for 0 to 'Pos_X'
    for 0 to 'Pos_Y'
    @unsetalias 'quit'
    while not @findalias 'quit'
    if not @useobject! 'righthand'
    usetype! 0xe85 'any' 'backpack'
    endif
    waitfortarget 5000
    clearjournal
    targettileoffset 'Pos_X[]' 'Pos_Y[]' 0
    @settimer 't_timeout' 0
    while @timer 't_timeout' < 10000
    if @injournal 'You put' 'system' or @injournal 'nenhum minerio' 'system'
    break
    elseif @injournal 'There is nothing' 'system' or @injournal 'Try mining elsewhere' 'system'
    @setalias 'quit' 'self'
    break
    elseif @injournal 'no line of sight' 'system'
    @setalias 'quit' 'self'
    break
    endif
    endwhile
    if diffweight < 20
    replay
    endif
    endwhile
    endfor
    endfor
    for 4
    walk 'Directions[]'
    endfor
    endfor
    for 8
    walk 'RunXY[]'
    endfor
    endfor

    jexnico

    Mensagens : 11
    Data de inscrição : 18/02/2017
    Idade : 20
    Localização : Colatina - ES

    Re: [MACRO] Mining + Bank

    Mensagem por jexnico em Dom Fev 19, 2017 5:06 pm

    Arrumei o macro galera, mas se continuar bugando avisa ai
    macro arrumado escreveu:if not listexists 'Pos_X'
    createlist 'Pos_X'
    endif
    @clearlist 'Pos_X'
    pushlist! 'Pos_X' -1
    pushlist! 'Pos_X' 0
    pushlist! 'Pos_X' 1
    if not listexists 'Pos_Y'
    createlist 'Pos_Y'
    endif
    @clearlist 'Pos_Y'
    pushlist! 'Pos_Y' -1
    pushlist! 'Pos_Y' 0
    pushlist! 'Pos_Y' 1
    if not listexists 'Directions'
    createlist 'Directions'
    endif
    @clearlist 'Directions'
    pushlist! 'Directions' 'Southeast'
    pushlist! 'Directions' 'North'
    pushlist! 'Directions' 'Northwest'
    pushlist! 'Directions' 'East'
    pushlist! 'Directions' 'South'
    pushlist! 'Directions' 'Southwest'
    pushlist! 'Directions' 'West'
    pushlist! 'Directions' 'Northeast'
    if not listexists 'RunXY'
    createlist 'RunXY'
    endif
    @clearlist 'RunXY'
    pushlist! 'RunXY' 'East'
    pushlist! 'RunXY' 'South'
    pushlist! 'RunXY' 'Southeast'
    pushlist! 'RunXY' 'North'
    pushlist! 'RunXY' 'Northwest'
    pushlist! 'RunXY' 'Southwest'
    pushlist! 'RunXY' 'West'
    pushlist! 'RunXY' 'Northeast'
    if not @findobject 'bankstock'
    msg 'bank'
    sysmsg 'Voce precisa setar um bau no bank para depositar os ores.' '33'
    promptalias 'bankstock'
    endif
    msg 'bank'
    while @movetype 0x19b9 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    for 0 to 'RunXY'
    for 0 to 'Directions'
    for 0 to 'Pos_X'
    for 0 to 'Pos_Y'
    @unsetalias 'quit'
    while not @findalias 'quit'
    if not @useobject! 'righthand'
    usetype! 0xe85 'any' 'backpack'
    endif
    waitfortarget 5000
    clearjournal
    targettileoffset 'Pos_X[]' 'Pos_Y[]' 0
    @settimer 't_timeout' 0
    while @timer 't_timeout' < 10000
    if @injournal 'You put' 'system' or @injournal 'nenhum minerio' 'system'
    break
    elseif @injournal 'You cannot' 'system' or @injournal 'yourself' 'system'
    @setalias 'quit' 'self'
    break
    elseif @injournal 'Voce achou' 'system' or @injournal 'Try mining elsewhere' 'system'
    @setalias 'quit' 'self'
    break
    elseif @injournal 'There is nothing' 'system' or @injournal 'Try mining elsewhere' 'system'
    @setalias 'quit' 'self'
    break
    elseif @injournal 'no line of sight' 'system'
    @setalias 'quit' 'self'
    break
    endif
    endwhile
    if diffweight < 20
    replay
    endif
    endwhile
    endfor
    endfor
    for 4
    walk 'Directions[]'
    endfor
    endfor
    for 8
    walk 'RunXY[]'
    endfor
    endfor

    chileno

    Mensagens : 1
    Data de inscrição : 19/02/2017

    Re: [MACRO] Mining + Bank

    Mensagem por chileno em Ter Fev 21, 2017 2:41 am

    boa ta funcionando aqui

    jexnico

    Mensagens : 11
    Data de inscrição : 18/02/2017
    Idade : 20
    Localização : Colatina - ES

    Re: [MACRO] Mining + Bank

    Mensagem por jexnico em Sab Mar 04, 2017 1:46 am

    Galera, adicionei os restos dos minérios e das pedras, agora o macro tá guardando literalmente tudo que envolva mining da bag.

    Atualizado escreveu:if not listexists 'Pos_X'
    createlist 'Pos_X'
    endif
    @clearlist 'Pos_X'
    pushlist! 'Pos_X' -1
    pushlist! 'Pos_X' 0
    pushlist! 'Pos_X' 1
    if not listexists 'Pos_Y'
    createlist 'Pos_Y'
    endif
    @clearlist 'Pos_Y'
    pushlist! 'Pos_Y' -1
    pushlist! 'Pos_Y' 0
    pushlist! 'Pos_Y' 1
    if not listexists 'Directions'
    createlist 'Directions'
    endif
    @clearlist 'Directions'
    pushlist! 'Directions' 'Southeast'
    pushlist! 'Directions' 'North'
    pushlist! 'Directions' 'Northwest'
    pushlist! 'Directions' 'East'
    pushlist! 'Directions' 'South'
    pushlist! 'Directions' 'Southwest'
    pushlist! 'Directions' 'West'
    pushlist! 'Directions' 'Northeast'
    if not listexists 'RunXY'
    createlist 'RunXY'
    endif
    @clearlist 'RunXY'
    pushlist! 'RunXY' 'East'
    pushlist! 'RunXY' 'South'
    pushlist! 'RunXY' 'Southeast'
    pushlist! 'RunXY' 'North'
    pushlist! 'RunXY' 'Northwest'
    pushlist! 'RunXY' 'Southwest'
    pushlist! 'RunXY' 'West'
    pushlist! 'RunXY' 'Northeast'
    if not @findobject 'bankstock'
    msg 'bank'
    sysmsg 'Voce precisa setar um bau no bank para depositar os ores.' '33'
    promptalias 'bankstock'
    endif
    msg 'bank'
    while @movetype 0x19b9 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0xf13 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0xf16 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0xf11 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0xf26 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0xf18 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0xf0f 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0xf10 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0xf15 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0x19b7 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0x19b8 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    while @movetype 0x19ba 'backpack' 'bankstock' 0 0 0 'any'
    pause 1000
    endwhile
    for 0 to 'RunXY'
    for 0 to 'Directions'
    for 0 to 'Pos_X'
    for 0 to 'Pos_Y'
    @unsetalias 'quit'
    while not @findalias 'quit'
    if not @useobject! 'righthand'
    usetype! 0xe85 'any' 'backpack'
    endif
    waitfortarget 5000
    clearjournal
    targettileoffset 'Pos_X[]' 'Pos_Y[]' 0
    @settimer 't_timeout' 0
    while @timer 't_timeout' < 10000
    if @injournal 'You put' 'system' or @injournal 'nenhum minerio' 'system'
    break
    elseif @injournal 'You cannot' 'system' or @injournal 'yourself' 'system'
    @setalias 'quit' 'self'
    break
    elseif @injournal 'Voce achou' 'system' or @injournal 'Try mining elsewhere' 'system'
    @setalias 'quit' 'self'
    break
    elseif @injournal 'There is nothing' 'system' or @injournal 'Try mining elsewhere' 'system'
    @setalias 'quit' 'self'
    break
    elseif @injournal 'no line of sight' 'system'
    @setalias 'quit' 'self'
    break
    endif
    endwhile
    if diffweight < 20
    replay
    endif
    endwhile
    endfor
    endfor
    for 4
    walk 'Directions[]'
    endfor
    endfor
    for 8
    walk 'RunXY[]'
    endfor
    endfor

    Conteúdo patrocinado

    Re: [MACRO] Mining + Bank

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Jun 29, 2017 1:35 am