Fórum do melhor servidor de Ultima Online atualmente.


    Macro de Minning

    Compartilhe

    sergiojunior

    Mensagens : 8
    Data de inscrição : 03/03/2017

    Macro de Minning

    Mensagem por sergiojunior em Qui Mar 30, 2017 1:41 pm

    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

      Data/hora atual: Qui Ago 17, 2017 9:03 pm