Dragon Shard - Ultima Online Shard

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Fórum do melhor servidor de Ultima Online atualmente.


    macro de fishing

    avatar
    Staff' Shadow


    Mensagens : 7
    Data de inscrição : 06/06/2017

    macro de fishing Empty macro de fishing

    Mensagem por Staff' Shadow Sáb Jul 01, 2017 6:03 pm

    if not @listexists 'east'
    @createlist 'east'
    endif
    if not @listexists 'north'
    @createlist 'north'
    endif
    if not @listexists 'west'
    @createlist 'west'
    endif
    if not @listexists 'south'
    @createlist 'south'
    endif
    if not @listexists 'guardarfishing'
    @createlist 'guardarfishing'
    pushlist 'guardarfishing' 0x9cc
    pushlist 'guardarfishing' 0x9cd
    pushlist 'guardarfishing' 0x9ce
    pushlist 'guardarfishing' 0x9cf
    pushlist 'guardarfishing' 0x99f
    pushlist 'guardarfishing' 0x14eb
    endif
    if list 'south' == 5
    @clearlist 'east'
    @clearlist 'north'
    @clearlist 'west'
    @clearlist 'south'
    endif
    if not @findobject 'vara'
    headmsg 'Selecione a vara de pescar.'
    promptalias 'vara'
    equipitem 'vara' 1
    @clearlist 'east'
    @clearlist 'north'
    @clearlist 'west'
    @clearlist 'south'
    else
    equipitem 'vara' 1
    endif
    if not @findobject 'escotilha'
    headmsg 'Selecione a escotilha do barco'
    promptalias 'escotilha'
    useobject 'escotilha'
    else
    useobject 'escotilha'
    endif
    ///////////////////////
    // Pescar
    /////////////////////
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! -4 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! -3 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 4 -4 -3
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! -2 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! -1 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 0 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 1 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 2 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 3 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 4 -3 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! -3 4 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! -2 4 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! -1 4 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 0 4 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 1 4 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 2 4 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 3 4 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 4 4 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 2 0 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 3 0 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 4 0 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 2 1 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 3 1 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 4 1 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 2 -1 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 3 -1 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    for 6
    clearjournal
    useobject 0x409c92b7
    waitfortarget 15000
    targettileoffset! 4 -1 0
    pause 500
    if @injournal 'There are no fish' 'system'
    break
    endif
    for 26
    if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
    break
    elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
    break
    endif
    pause 500
    endfor
    endfor
    clearjournal
    /////////////////////
    // Navegar e Guardar
    /////////////////////
    if list 'east' < 7
    pushlist 'east' 'mais'
    msg 'forward'
    pause 6000
    msg 'stop'
    pause 1000
    for 0 to 'guardarfishing'
    while @movetype guardarfishing[] 'world' 'escotilha' 'any' 'all' 2
    pause 1000
    endwhile
    endfor
    else
    if list 'north' < 5
    pushlist 'north' 'mais'
    msg 'left'
    pause 8000
    msg 'stop'
    pause 1000
    for 0 to 'guardarfishing'
    while @movetype guardarfishing[] 'world' 'escotilha' 'any' 'all' 2
    pause 1000
    endwhile
    endfor
    else
    if list 'west' < 7
    pushlist 'west' 'mais'
    msg 'back'
    pause 6000
    msg 'stop'
    pause 1000
    for 0 to 'guardarfishing'
    while @movetype guardarfishing[] 'world' 'escotilha' 'any' 'all' 2
    pause 1000
    endwhile
    endfor
    else
    if list 'south' < 5
    pushlist 'south' 'mais'
    msg 'right'
    pause 8000
    msg 'stop'
    pause 1000
    for 0 to 'guardarfishing'
    while @movetype guardarfishing[] 'world' 'escotilha' 'any' 'all' 2
    pause 1000
    endwhile
    endfor
    endif
    endif
    endif
    endif

      Data/hora atual: Qui Mar 28, 2024 7:19 am