Subir

Resultados 1 al 3 de 3

Tema: Ayuda macro veterinario

  1. #1
    Avatar de Amon Amarth
    Fecha de ingreso
    July-2015
    Facción
    Neutral
    Nacimiento
    Minoc
    Mensajes
    688
    Reputacion: 28
    Poder de reputación
    14

    Ayuda macro veterinario

    He cogido esta macro que me he encontrado por el foro, pero quería preguntaros, yo estoy macreando sólo con dos animales, no con 3 ó 4, entonces sólo me interesan los dos primeros "set %target", ¿sabéis como los puedo poner bien? Son dos caballos.
    set %target1 YCUFCB
    set %target2 WTBOCB
    ;set %target3 ELANYD
    ;set %target4 PPWRKD

    finditem VEE_QEE_TEE_WEE C_ , #BACKPACKID
    if #FINDKIND = -1 2
    Event SysMessage DEBES TENER UN PILON EN LA MOCHILA!
    Halt
    set %pilon #FINDID

    cambio:
    set %a %a + 1
    if %target . %a = N/A
    set %a 1
    set #LTARGETID %target . %a

    veterinary:
    msg .vendas $
    set %jEnd #JINDEX
    target
    event macro 22 0
    set %timeout #SYSTIME + 15000
    if #SYSTIME > %limpiar || %limpiar = N/A
    gosub limpiar

    a:
    repeat
    repeat
    until #contname <> waiting_gump && #contname <> MainMenu_gump && #contname <> Login_gump && #contname <> normal_gump
    if %comidatiempo < #SYSTIME || %comidatiempo = N/A
    gosub comida
    if %timeout < #SYSTIME
    goto cambio
    until %jEnd <> #JINDEX
    set %jStart %jEnd + 1
    set %jEnd #JINDEX
    for %i %jStart %jEnd
    {
    scanjournal %i
    if PERO_FALLAS in #JOURNAL
    goto veterinary
    if NO_NECESITA_CURARSE in #JOURNAL 2
    wait 10
    goto cambio
    if CURAS_A in #JOURNAL
    goto cambio
    }
    goto a

    sub limpiar
    set %limpiar #SYSTIME + 300000
    finditem ZLF C_ , #BACKPACKID
    set %contaje 0
    for #FINDINDEX 1 #FINDCNT
    set %contaje %contaje + #FINDSTACK
    if %contaje < 100
    {
    finditem AMF C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17 0
    set #LTARGETID %pilon
    target
    event macro 22 0
    }
    return
    Veganismo = Compromiso - Respeto - Igualdad

  2. #2
    Avatar de Aramil
    Fecha de ingreso
    July-2007
    Facción
    Neutral
    Nacimiento
    Haven
    Edad
    37
    Mensajes
    1.640
    Reputacion: 68
    Poder de reputación
    15

    Re: Ayuda macro veterinario

    yo usaba esta para macrear al wyrm, que te vale igual para subir vet. Es de hace tiempo, así que prueba a ver si vale, no prometo nada xD

    Dice all stop para más seguridad, si no quítaselo:

    set %vendaslimpias ZLF
    set %vendasscucias AMF

    set %vendas ZLF
    set %sucias AMF

    set #SYSMSGCOL 18
    event sysmessage #CHARNAME SELECCIONA A LA MASCOTA
    msg .vendas $
    wait 5s
    set %wyrm #LTARGETID
    wait 15

    set #SYSMSGCOL 58
    event sysmessage #CHARNAME SELECCIONA AL ATACANTE DE LA MASCOTA
    msg .vendas $
    wait 5s
    set %cuca #LTARGETID
    wait 15

    event exMsg #CHARID 3 90 Selecciona el pilon de tu mochila
    event exMsg #CHARID 3 90 Tienes 5 segundos
    msg .vendas $
    wait 5s
    set %pilon #LTARGETID

    Comienzo:

    msg all kill $
    target
    finditem %cuca G_3
    set #LTARGETID #FINDID
    target
    event macro 22
    wait 15s
    msg All stop $

    {
    findItem %vendaslimpias C_ , #BACKPACKID
    set %vendaslimpiass #FINDSTACK
    findItem %vendasscucias C_ , #BACKPACKID
    set %vendasscuciass #FINDSTACK
    setuotitle >=---=< | #CHARNAME %oculto #SHARD | >=---=< | Vida: #HITS / #MAXHITS | Mana: #MANA / #MAXMANA | Stamina: #STAMINA / #MAXSTAM | Peso: #WEIGHT / #MAXWEIGHT | Nº vendas limpias: %vendaslimpiass | Nº vendas sucias: %vendasscuciass |>=---=<
    }
    if H in #CHARSTATUS
    {
    set %oculto -OCULTO-
    }
    else
    {
    set %oculto -VISIBLE-
    }

    CurarWyrm:
    {
    ;LimpiaVendas
    finditem ZLF c_ , #BACKPACKID
    if #findkind = -1
    {
    finditem AMF c_ , #BACKPACKID
    set #lobjectid #findid
    event macro 17 0
    wait 1s
    set #ltargetid %pilon
    event macro 22 0
    wait 2s
    }
    msg .vendas $
    target
    finditem %wyrm G_3
    set #LTARGETID #FINDID
    event macro 22
    wait 1s
    scanjournal
    wait 20
    if vendas_sucias in #journal
    {
    wait 6s
    }
    if fallas in #JOURNAL
    {
    wait 10
    }
    if no_necesita in #JOURNAL
    {
    goto CurarCuca
    }
    goto CurarWyrm
    }

    CurarCuca:
    {
    ;LimpiaVendas
    finditem ZLF c_ , #BACKPACKID
    if #findkind = -1
    {
    finditem AMF c_ , #BACKPACKID
    set #lobjectid #findid
    event macro 17 0
    wait 1s
    set #ltargetid %pilon
    event macro 22 0
    wait 2s
    }
    msg .vendas $
    target
    finditem %cuca G_3
    set #LTARGETID #FINDID
    event macro 22
    wait 1s
    scanjournal
    wait 20
    if vendas_sucias in #journal
    {
    wait 6s
    }
    if pero_fallas in #JOURNAL
    {
    wait 10
    }
    if no_necesita in #JOURNAL
    {
    goto salir
    }
    goto CurarCuca
    }

    salir:

    ; Busca aviso de SAVE
    ;set %jrnl 30
    ;while %jrnl > 0
    ; {
    ; scanjournal %jrnl
    ; wait 10
    ; if SAVE_automatico in #journal
    ; {
    ; halt
    ; }
    ; set %jrnl %jrnl - 1
    ; }

    goto Comienzo
    Última edición por Aramil; 09-Oct-2015 a las 09:36

  3. #3
    Avatar de Amon Amarth
    Fecha de ingreso
    July-2015
    Facción
    Neutral
    Nacimiento
    Minoc
    Mensajes
    688
    Reputacion: 28
    Poder de reputación
    14

    Re: Ayuda macro veterinario

    Gracias de todas formas ^^ encontré una que come, limpia... etc
    Veganismo = Compromiso - Respeto - Igualdad

Temas similares

  1. ayuda macro
    Por xamorra en el foro Macros
    Respuestas: 8
    Último mensaje: 06-Sep-2011, 18:46
  2. Busco macro domar y veterinario
    Por Portgas D Ace en el foro Macros
    Respuestas: 22
    Último mensaje: 14-Apr-2010, 00:21
  3. ayuda macro
    Por Tasslehoff en el foro Macros
    Respuestas: 4
    Último mensaje: 13-Nov-2009, 12:54
  4. Ayuda pls con un macro !!!
    Por Valeria en el foro Macros
    Respuestas: 7
    Último mensaje: 17-May-2008, 16:01
  5. [A]Ayuda macro
    Por Hate en el foro Macros
    Respuestas: 7
    Último mensaje: 25-Dec-2007, 15:26

Etiquetas para este tema

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  
YoutubeFbChat IRCTwit