Subir

Resultados 1 al 10 de 10

Tema: Varias Macros

  1. #1

    Fecha de ingreso
    September-2015
    Clan
    Sin Clan
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    417
    Reputacion: 78
    Poder de reputación
    10

    Varias Macros

    Para no perderlo todo,y en ayuda de quien lo necesite,dejo varias macros que he ido acumulando a lo largo de este tiempo.
    Algunos se cabrearan,otros lo agradeceran,yo soy de los que piensa,que cobrar por una macro es de ser muy...en fin,ahi voy dejando algunas:

    Macro Alquimia:
    Código:
    ;*************************************************************************************************
    ;Macro ALQUIMIA (Veneno Menor) by OverQueen
    ;*************************************************************************************************
    set #SYSMSGCOL 10
    event sysmessage Macro para subir alquimia by OverQueen
    
    
    ;*************************************************************************************************
    ;            CONFIGURACIONES (EDITAR)
    ;*************************************************************************************************
    set %contenedor1 PMDPXOD ; regs, barriles, bolsas de morteros y botellas vacías
    set %contenedor2 RYCPXOD ; bariles llenos
    set %bolsitas IUD_LKF_CKF
    set %comida RGG_NRD_QSD_ZBG_WLI_QRD_END_FUD_YLI_WLI_HGI_KGI_EGI_QLI_KLI_MLI_KRD_HQD_AQD_MQE_VQE_TQE_JQE_IQE_GQE_SPE_ZPE_OQE_BDF_KPE_RQE_YSD_SQD_YWI_AXI_PQD_QQD
    set %regs WZF
    set %botellas WUF
    set %barril QMJ
    set %morteros RQF
    
    
    set #LOBJECTID %contenedor1
    wait 20
    event macro 17 0
    wait 20
    set #LOBJECTID %contenedor2
    wait 20
    event macro 17 0
    wait 20
    Abrirbolsitas:
    Finditem %Bolsitas C
    if #Findkind = -1
    GoTo inicio: ;   return
    ignoreitem #FindID bags
    set #LObjectID #FindID
    event macro 17
    wait 20
    goto Abrirbolsitas:
    
    
    Inicio:
    gosub comer
    gosub cogerBa
    gosub cogerBo
    gosub cogerM
    gosub cogerR
    gosub pociones
    gosub llenar
    gosub dejarBa
    gosub seguridad
    goto inicio
    
    
    ;*************************************************************************************************
    ;                    COMER
    ;*************************************************************************************************
    sub comer
    set #LOBJECTID #FINDID
    findItem %comida C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    wait 10
    event macro 17
    return
    
    
    ;*************************************************************************************************
    ;                 COGER BARRILES
    ;*************************************************************************************************
    sub cogerBa
    finditem %barril C_ , #BACKPACKID
    iF #FINDCNT = 0
    {
    finditem %barril C_ , %contenedor1
    exevent drag #FINDID 1
    wait 10
    exevent dropc #BACKPACKID
    wait 10
    }
    return
    
    
    ;*************************************************************************************************
    ;                  COGER BOTELLAS
    ;*************************************************************************************************
    sub cogerBo
    finditem %botellas C_ , #BACKPACKID
    if #FINDCNT < 3
    {
    finditem %botellas C_ , %contenedor1
    exevent drag #FINDID 2
    exevent dropc #BACKPACKID
    wait 5
    }
    return
    
    
    ;*************************************************************************************************
    ;                 COGER MORTEROS
    ;*************************************************************************************************
    sub cogerM
    finditem %morteros C_ , #BACKPACKID
    iF #FINDCNT < 2
    {
    finditem %morteros C_
    exevent drag #FINDID
    exevent dropc #BACKPACKID
    wait 5
    }
    return
    
    
    ;*************************************************************************************************
    ;                   COGER REGS
    ;*************************************************************************************************
    sub cogerR
    finditem %regs C_ , #BACKPACKID
    if #FINDSTACK < 5
    {
    finditem %regs C_ , %contenedor1
    exevent drag #FINDID 50
    exevent dropc #BACKPACKID
    wait 5
    }
    return
    
    
    ;*************************************************************************************************
    ;                  HACER POCIONES
    ;*************************************************************************************************
    sub pociones
    finditem %morteros C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17 0
    click 64 210
    wait 5
    click 269 109
    wait 2s
    return
    
    
    ;*************************************************************************************************
    ;                  LLENAR BARRIL
    ;*************************************************************************************************
    sub llenar
    
    
    FINDITEM %barril , _ , %botellas C_ , #BACKPACKID
    for #FINDINDEX 1 #FINDCNT
    {
    if #FINDTYPE = %barril
    set #LOBJECTID #FINDID
    if #FINDTYPE = %botellas
    set #LTARGETID #FINDID
    }
    event macro 17
    set #LTARGETKIND 1
    target
    event macro 22 0
    wait 10
    scanjournal
    if lleno in #JOURNAL
    {
    finditem %barril C_ , #BACKPACKID
    exevent drag #FINDID
    exevent dropc %contenedor2
    wait 20
    }
    return
    
    
    ;*************************************************************************************************
    ;                  CAMBIAR BARRIL
    ;*************************************************************************************************
    SCANJOURNAL
    if El_barril_esta_lleno. in #JOURNAL
    {
    finditem %barril C_ , #BACKPACKID
    exevent drag #FINDID
    wait 10
    exevent dropc %contenedor2
    wait 10
    }
    return
    
    
    ;*************************************************************************************************
    ;            SEGURIDAD no perder botellas
    ;*************************************************************************************************
    sub seguridad
    if #weight >= %cargamax
    {
    set #SYSMSGCOL 10
    event sysmessage Estás cogiendo demasiados frascos... se acabó el macreo
    halt
    }
    goto Inicio:
    Macro anatomia 65(para heaven)
    Set %ID JZFIYC ;Objetivo en nuestro personaje.
    goto Anatomia

    Anatomia:
    Chooseskill Anat Real
    If ( #Skill >= 650 ) ;Si la habilidad es igual o mayor de 65 la macro se detiene.
    Halt
    else
    If ( #Skill < 650 ) ;Si la habilidad es menor que 65 la macro continua.
    Event Macro 13 1
    Target
    Set #LTargetID %ID
    Set #LTargetKind 1
    Event Macro 22
    Wait 4s
    Return
    Macro anatomia:
    Macro:
    event macro 13 1
    event macro 23 0
    wait 4s
    goto macro
    Macro Artesania:
    set %lingote RMK
    set %herramienta GTL
    set %conf 1
    set %engranaje RCG
    set %comida YSD_QQD

    configurar:
    if %conf = 1
    {
    Event sysmessage Abre el contenedor donde tienes los lingotes.
    event sysmessage Y presiona la tecla ESC.
    set %conf 2
    goto TESC
    }
    if %conf = 2
    {
    event sysmessage Abre el contenedor donde tienes las herramientas.
    event sysmessage Y presiona la tecla ESC
    set %conf 3
    goto TESC
    }


    TESC:
    onHotKey ESC
    {
    if %conf = 2
    {
    set %cofre #LOBJECTID
    goto configurar
    }
    if %conf = 3
    {
    set %bolsa #LOBJECTID
    goto comienzo
    }
    }
    goto TESC

    comienzo:
    findItem %comida C_ , #BACKPACKID
    if #findcnt > 0
    {
    set #LOBJECTID #FINDID
    event macro 17
    wait 20
    }
    findItem %engranaje C_ , #BACKPACKID
    if #findstack > 30
    {
    exevent drag #FINDID 30
    wait 20
    exevent dropc %cofre
    wait 20
    }
    finditem %lingote C_ , #backpackid
    IF #findStack < 4
    {
    finditem %lingote c_ , %cofre
    if #findStack < 3
    {
    display ok No hay lingotes.
    halt
    }
    exevent drag #Findid 30
    wait 20
    exevent dropc #backpackid
    wait 20
    }
    finditem %herramienta C_ , #backpackid
    if #findcnt < 1
    {
    finditem %herramienta C_ , %bolsa
    if #findcnt < 1
    {
    display ok No hay herramientas.
    halt
    }
    exevent drag #Findid 1
    wait 20
    exevent dropc #backpackid
    wait 20
    }
    finditem %herramienta C_ , #backpackid
    set #LOBJECTID #FINDID
    event macro 17 0
    wait 10
    click 64 151
    wait 10
    click 270 150
    wait 10s
    goto comienzo
    Twitter: @Nevil_Gamer

  2. #2

    Fecha de ingreso
    September-2015
    Clan
    Sin Clan
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    417
    Reputacion: 78
    Poder de reputación
    10

    Re: Varias Macros

    Autocuracion (para pvm va genial)
    Código:
    set %jStart #JINDEX
    b:
    set %jEnd #JINDEX
    for %i %jStart %jEnd
    {
    scanjournal %i
    if TE_CURAS_A_TI in #JOURNAL || NO_NECESITAS_CURARTE in #JOURNAL || PERO_FALLAS in #JOURNAL
    {
    dentro:
    repeat
    until #HITS < #MAXHITS
    set %venda #SYSTIME + 20000
    set %jEnd #jindex
    msg .vendas $
    target 5s
    event macro 23 0
    break
    }
    }
    repeat
    if %venda = N/A || %venda < #SYSTIME
    goto dentro
    until %jEnd <> #JINDEX
    set %jStart %jEnd + 1
    goto b
    Carpinteria:
    Código:
    initevents ; Si tienes menos de 40 de SKill pon 1
    Set %TIpodeLotes 2 ; 1=Lote de Mapas en Blanco y 2=Lote de Pergaminos en Blanco.
    set %bolsaMateriales SUGJQOD ; Bolsa donde se encuentra la madera
    set %bolsaSerruchos ESAQBND ; Bolsa donde se encuentran los Serruchos
    ;<=========NO TOCAR==========>
    chooseskill carp real
    set %madera ZLK
    set %sierra AGG_EGG
    set %lote MMF
    set %comida YSD_QQD ;Peras, Manzanas
    
    Inicio:
    setuotitle || Skill de Carpinteria #SKill ||
    Gosub Madera
    GoSub Herramientas
    Gosub Fabricar
    Goto Inicio
    
    ;<=======================>
    Sub Madera
    findItem %comida C_ , #BACKPACKID
    if #findcnt > 0
    {
    set #LOBJECTID #FINDID
    event macro 17
    }
    set #lobjectid %bolsaMateriales
    event macro 17
    wait 5
    finditem %madera C_ , #BACKPACKID
    if #FINDSTACK < 6
    {
    finditem %madera C_ , %bolsaMateriales
    exevent drag #FINDID 50
    exevent dropc #BACKPACKID
    wait 20
    }
    return
    
    ;<=======================>
    Sub Herramientas
    FindItem %Sierra C_ , #backpackid
    if #findcnt < 1
    {
    set #lobjectid %bolsaMateriales
    event macro 17
    wait 5
    FindItem %Sierra C_ , %bolsaSerruchos
    Exevent Drag #findid #findstack
    wait 5
    Exevent DRopc #backpackid
    wait 10
    }
    return
    
    ;<=======================>
    
    Sub Fabricar
    FindItem %Sierra C_ , #backpackid
    SET #LOBJECTID #FINDID
    Event Macro 17
    wait 10
    click 67 251 ;Categoria Otros
    wait 10
    if %tipodelotes = 1
    {
    click 274 188 ;Mapas en Blanco
    wait 10
    For %i 1 10
    {
    wait 10
    if pones_ In #SysMsG
    goto guardar
    }
    }
    if %tipodelotes = 2
    {
    Click 274 172 ;Lote de pergaminos
    wait 10
    For %i 1 10
    {
    wait 10
    If pones_ In #SySMsg
    goto guardar
    }
    }
    guardar:
    FIndItem %Lote C_ , #backpackid
    If #FindCnt > 0
    {
    Exevent Drag #FindId #FindStack
    wait 10
    Exevent Dropc %bolsamateriales
    wait 10
    goto guardar
    }
    return
    Comprar regs:
    Código:
    ;hay que ir sin montura
    ;resolucion utilizada ventana de juego 800/600  p completa 1024/768
    ;y resolucion grafica de pantalla (la real ke se usa) 1024/768,
    ;si os va a la buestra ole ke way sino ya sabeis cual hay ke usar
    ;la pantalla de juego esta alineada a las coodenadas 0/0 en la parte superior izq
    ;=========PARTE MODIFICABLE=========
    ;set %cofre KSHFQOD  ;tu cofre fuera de la casa, se sobreentiende no??
    ;poner si si quereis que lo compre o dejarlo vacio,poner no para no comprar
    set %cperla no
    set %cmusgo no
    set %cajo si
    set %cginsen no
    set %cmandragora no
    set %cbelladona si
    set %cceniza si
    set %cseda no
    set %conf 1
    
    ;==========NO TOCAR NADA============
    set %nsMx 375
    set %nsMy 450
    set %glMx 375
    set %glMy 273
    set %mdMx 375
    set %mdMy 390
    set %bmMx 375
    set %bmMy 210
    set %bpMx 375
    set %bpMy 150
    set %sfMx 375
    set %sfMy 151
    set %gsMx 375
    set %gsMy 332
    set %spMx 375
    set %spMy 212
    set %glAx 375
    set %glAy 333
    set %nsAx 375
    set %nsAy 152
    set %mdAx 375
    set %mdAy 452
    set %bmAx 375
    set %bmAy 270
    set %bpAx 375
    set %bpAy 210
    set %sfAx 375
    set %sfAy 210
    set %gsAx 375
    set %gsAy 390
    set %spAx 375
    set %spAy 269
    set %nextx 400
    set %nexty 540
    set %okeyx 605
    set %okeyy 536
    set %Mandragora MZF
    set %musgo JUF
    set %perla KUF
    set %belladona WZF
    set %ajo KZF
    set %seda RZF
    set %Ginsen JZF
    set %ceniza SZF
    display Macro De Nevil. Disfrutala!!!
    
    ;==================================
    
    
    configurar
    if %conf = 1
       {
       set #sysmsgcol 1364
       event sysmessage Abre el cofre donde dejar los regs y presiona ESC
       set %conf 2
       goto TESC
       }
    
    TESC:
    onHotKey ESC
       {
       if %conf = 2
          {
          set %cofre #LOBJECTID
          goto comienzo
          }
       }
    goto TESC
    
    
    
    comienzo:
    event sysmessage Abre el runebook y presiona ESC
    
    Bucle1:
    onhotkey ESC
     {
     set %libro #lobjectid
    
     goto Inicio:
     }
    goto Bucle1:
    Inicio:
    
    
    vendor1:
    {
    gosub comprobar
    set #lobjectid %libro
    event macro 17 0
    wait 40
    contpos 30 30
    wait 10
    click 160 100 dmc
    event macro 13 46
    wait 3s
    event macro 13 46
    wait 3s
    event macro 13 46
    wait 3s
    event macro 13 46
    wait 3s
    msg Hola$
    wait 10
    msg buy$
    wait 2s
    gosub comprar
    msg adios $
    if #weight >= #maxweight - 120
    {
    gosub dejar
    Veterinaria:
    Código:
    ;==================================
    ; Script: Veterinaria (2 animales)
    ; Autor: Aloisia
    ; Version Easyuo: 1.5, 148
    ; Version: 1.0
    ; Cliente: 2.0.3
    ; Fecha del script: 12 Febrero 2010
    ; Finalidad: Cura a 2 animales diferentes que se pegan entre sí.
    ;==================================
    ;Para la siguiente macro necesitas:
    ;1.- Dos animales que se estén pegando entre sí.
    ;2.- Vendas en la mochila (unas 500, dependiendo de lo que falles)
    ;3.- Un pilón de agua y comida (peras o manzanas, si quieres otro tipo añadelo en set %comida).
    set %vendas ZLF
    set %sucias AMF
    set %pilon WEE_TEE_VEE_QEE
    set %confp 1
    set %comida YSD_QQD ;Peras, Manzanas
    
    initevents
    chooseskill vete real
    set %skillini #skill
    
    configurar:
    if %confp = 1
    {
      set #TARGCURS 1
      TARGET
    	Event sysmessage Selecciona animal 1.
    	event sysmessage Y presiona la tecla ESC.
    	set %conf 1
     set %confp 2
    	goto TESC
    }
    if %confp = 2
    {
      set #TARGCURS 1
      TARGET
    	Event sysmessage Selecciona animal 2.
    	event sysmessage Y presiona la tecla ESC.
    	set %conf 2
    	goto TESC
    }
    
    TESC:
    onHotKey ESC
    {
    	if %conf = 1
    	{
    		set %animal1 #LTARGETID
    		goto configurar:
    	}
    	if %conf = 2
    	{
    		set %animal2 #LTARGETID
    		goto inicio
    	}
     }
    goto TESC
    
    inicio:
    set %skillinc #SKILL - %skillini
    setuotitle Veterinaria: #SKILL ( %skillinc )
    findItem %comida C_ , #BACKPACKID
    if #findcnt > 0
    {
       set #LOBJECTID #FINDID
       event macro 17
    }
    findItem %sucias C_ , #BACKPACKID
    if #findstack > 100
    {
       GoSub limpiarvendas
    }
    findItem %vendas C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    wait 10
    event macro 17
    wait 10
    TARGET
    wait 10
    set #LTARGETID %animal1
    event macro 22
    wait 6s
    event macro 17
    wait 10
    TARGET
    wait 10
    set #LTARGETID %animal2
    event macro 22
    wait 6s
    wait 10
    event macro 22 0
    GoTo inicio:
    
    Sub limpiarvendas
    findItem %sucias C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    wait 10
    event macro 17
    wait 10
    finditem %pilon c_ , #BACKPACKID
    set #LTARGETID #findid
    event macro 22 0
    wait 1s
    return
    Deshacer lotes de pergas:
    Código:
                          set %lote MMF
    set %cofre JVGLCQD ; LOBJECTID del cofre o bolsa donde están los lotes de pergaminos
    set %cofredejar SUGJQOD ; LOBJECTID del cofre o bolsa donde dejaremos los pergaminos, no puede ser el mismo que el anterior.
    
    comienzo:
    
    finditem %lote c_ , %cofre
    exevent drag #Findid 1
    wait 10
    exevent dropc #backpackid
    wait 10
    findItem %lote C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    finditem %lote c_ , #BACKPACKID
    exevent drag #findid #findstack
    wait 10
    exevent dropc %cofredejar
    wait 10
    return
    Twitter: @Nevil_Gamer

  3. #3

    Fecha de ingreso
    September-2015
    Clan
    Sin Clan
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    417
    Reputacion: 78
    Poder de reputación
    10

    Re: Varias Macros

    Domar en Yew:
    Código:
    event SysMessage TammingGenius by Nilaween
    event SysMessage Intentando acudir a la ultima posicion. Por favor, ayudame a llegar.
    chooseskill Anim real
    ignoreitem *bloqueados
    goto movimiento
    
    INICIO:
    set *posicion *posicion + 1
    
    nuevotarget:
    set %fail 0
    set %intentos 3
    set %distancia 19
    set #LTARGETID #CHARID
    finditem * G_18
    for #FINDINDEX 1 #FINDCNT
    {
    if #FINDREP <> 3 2
    ignoreitem #FINDID
    set *bloqueados *bloqueados , _ , #FINDID
    if #FINDREP = 3 && #FINDID notIn %recientameados && #FINDDIST < %distancia && #FINDX < 755 2
    set #LTARGETID #FINDID
    set %distancia #FINDDIST
    }
    if #LTARGETID = #CHARID
    goto movimiento
    event PROPERTY #LTARGETID
    if ( OSO in #PROPERTY && #SKILL < 601 ) || SERPIENTE in #PROPERTY || HORRENDO in #PROPERTY 2
    set %recientameados %recientameados , _ , #LTARGETID
    goto nuevotarget
    set #LTARGETKIND 1
    finditem #LTARGETID
    
    repitiendotarget:
    event macro 13 35
    target
    event macro 22 0
    set %tiempoespera #SYSTIME + 16000
    set %jEnd #JINDEX
    
    escaneando:
    repeat
    if %tiempoespera < #SYSTIME
    goto repitiendotarget
    gosub seguir
    until %jEnd <> #JINDEX
    set %jStart %jEnd + 1
    set %jEnd #JINDEX
    for %i %jStart %jEnd
    {
    scanjournal %i
    if TE_ACEPTA in #JOURNAL || TU_HABILIDAD_EN_LA_DOMA_NO_ES in #JOURNAL || %fail > 5 3
    msg all release$
    set %recientameados %recientameados , _ , #LTARGETID
    goto nuevotarget
    if YA_ESTA in #JOURNAL || NO_PUEDE_SER in #JOURNAL || NO_PUEDES_DOMAR in #JOURNAL || GET_THERE in #JOURNAL || %intentos <= 0 3
    set *bloqueados *bloqueados , _ , #LTARGETID
    ignoreitem #LTARGETID
    goto nuevotarget
    if NO_PUEDES_VER in #JOURNAL || SEE_THE_TARGET in #JOURNAL || UNEXPECTED_TARGET in #JOURNAL || FUERA_DE_TU in #JOURNAL 3
    set %fail %fail + 1
    gosub seguir
    goto repitiendotarget
    if ESTAS_DEMASIADO_LEJOS in #JOURNAL 3
    gosub seguir
    wait 10
    goto repitiendotarget
    if NO_CONSIGUES_DOMAR_EL in #JOURNAL 2
    set %intentos %intentos + 1
    goto repitiendotarget
    }
    goto escaneando
    
    sub seguir
    if %tiempopathfind > #SYSTIME && %tiempopathfind <> N/A
    return
    set %tiempopathfind #SYSTIME + 2000
    finditem #LTARGETID
    if #FINDKIND <> -1 && #FINDDIST > 4
    event pathfind #FINDX #FINDY #FINDZ
    return
    
    MOVIMIENTO:
    set %nuevaronda 1
    goto *posicion
    0:
    move 636 866
    set * . #TIME #TIME
    goto INICIO
    1:
    move 646 915
    goto INICIO
    2:
    move 568 919
    goto INICIO
    3:
    Fundir mineral:
    Código:
    init events
    chooseskill mini real
    set %skillini #skill
    set %confp 1
    set %mineral EWJ_DWJ_GWJ_TVJ
    set %lingote RMK_NMK_TMK_XMK
    set %comida YSD_QQD
    
    configurar:
    if %confp = 1
       {
       Event sysmessage Abre el contenedor donde tienes el mineral.
       event sysmessage Y presiona la tecla ESC.
       set %confp 2
       goto TESC
       }
    
    TESC:
    onHotKey ESC
       {
       if %confp = 2
          {
          set %cofre #LOBJECTID
          goto comienzo
          }
       }
    goto TESC
    
    comienzo:
    findItem %comida C_ , #BACKPACKID
    if #findcnt > 0
       {
       set #LOBJECTID #FINDID
       event macro 17
       wait 15
       }
    finditem %lingote c_ , #backpackid
    if #findstack > 0
       {
       exevent drag  #findid #findstack
       wait 15
       exevent dropc %cofre
       wait 15
       }
    set %skillinc #SKILL - %skillini
    setuotitle Mineria: %skillini ( %skillinc )
    finditem %mineral c_ , #backpackid
    if #findstack < 1
       {
       finditem %mineral c_ , %cofre
       if #findstack < 2
          {
          display ok No hay mineral
          halt
          }
       exevent drag #findid 100
       wait 15
       exevent dropc #backpackid
       wait 15
       goto lingote
       }
    
    lingote:
    finditem %mineral c_ , #backpackid
    if #findstack > 0
       {
       set #LOBJECTID #FINDID
       event macro 17
       wait 15
       goto comienzo
       }
    goto comienzo
    Guardar Mats(martillos,sierras etc)
    Código:
    set %pluma PBG_CXF_CGG_BGG_AGG_EGG_MQF_LQF_RQF_GTL_GBG_CKF
    set %confp 1 
    if %confp = 1 
    { 
    set #sysmsgcol 4000 
    Event sysmessage Abre el contenedor donde dejaras el mineral. 
    set #sysmsgcol 1100 
    event sysmessage Y presiona la tecla ESC. 
    set %confp 2 
    goto TESC 
    } 
    TESC: 
    onHotKey ESC 
    { 
    if %confp = 2 
    { 
    set %cofre #LOBJECTID 
    goto comienzo 
    } 
    } 
    goto TESC 
    comienzo: 
    finditem %pluma C_ , #BACKPACKID 
    if #findcnt > 0 
    { 
    exevent drag #findid #findcnt 
    wait 20 
    exevent dropc %cofre 
    wait 20 
    goto comienzo 
    } 
    display ok Se acabaron las plumas. 
    halt
    Herreria:
    Código:
    =========CONFIGURAR=========
    set %cofre MAGGDQD
    =============================
    set %numero_tornillos 1
    set %tornillos YFG
    set %martillos GBG_FBG_TLH_CGG_RMK_BGG
    set %hierro RMK
    set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE , _BDF_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD
    display Comienza la Macro!!
    initevents
    inicio:
    gosub hierro
    gosub tornillos
    goto inicio
    sub hierro ;<=======================>
    findItem %comida C_ , #BACKPACKID
    if #findcnt > 0
    {
       set #LOBJECTID #FINDID
       event macro 17
    }
    finditem %hierro C_ , #BACKPACKID
    if #FINDSTACK < 5
    {
    finditem %hierro C_ , %cofre
    exevent drag #FINDID 50
    exevent dropc #BACKPACKID
    wait 20
    }
    return
    sub martillos ;<=======================>
    wait 20
    finditem %martillos C_ , %cofre
    wait 20
    exevent drag #FINDID 1
    wait 20
    exevent dropc #BACKPACKID
    wait 20
    return
    
    sub tornillos ;<=======================>
    finditem %martillos C_ , #CHARID
    if #FINDCNT < 1
    {
    finditem %martillos C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    finditem %martillos C_ , #CHARID
    if #FINDSTACK < 1
    {
    gosub martillos
    wait 10
    finditem %martillos C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    }
    finditem %hierro C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    click 65 310
    wait 10
    click 270 150
    wait 10
    for %i 1 15
    {
    wait 10
    if Pones_ in #SYSMSG
    goto sigue
    }
    sigue:
    finditem %tornillos C_ , #BACKPACKID
    if #FINDCNT => %numero_tornillos
    gosub fundirtornillos
    return
    sub fundirtornillos ;<=======================>
    wait 1s
    finditem %martillos C_ , #CHARID
    if #FINDCNT < 1
    {
    finditem %martillos C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    finditem %martillos C_ , #CHARID
    if #FINDSTACK < 1
    {
    gosub martillos
    wait 10
    finditem %martillos C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    }
    finditem %hierro C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    click 69 423
    finditem %tornillos C_ , #BACKPACKID
    if #FINDCNT > 0
    {
    set #LTARGETID #FINDID
    set #LTARGETKIND 1
    wait 10
    event macro 22
    wait 10
    goto sigue
    }
    key esc
    click 277 200 r
    return
    ID:
    Código:
                    initevent
    display ok Pulsa Aceptar
    + y
    + selecciona
    + el objetivo
    SET #TARGCURS 1
    WHILE #TARGCURS = 1
    WAIT 5
    FINDITEM #LTARGETID
    wait 5
    event property #LTARGETID
    DISPLAY OK ID : #LTARGETID $$
    +TYPE : #FINDTYPE $$
    +COLOR : #FINDCOL $$
    +PROPIEDADES : #PROPERTY
    stop
    Loot Npc(hay que pulsar contro+q)
    Código:
    set %loot POF_OZF_XYF_EAG_SEE_RWF_QZF_RWF_LZF_UVF_IUF_WUF_KZF_GUL_KZF_KUF_JUF_RZF_VLK_HUF_LNK_SZF_GUF_DUF_JZF_
    
    a:
    onHotKey Q ctrl
    goto Q
    goto a
    
    Q:
    finditem %loot C_ , #CONTID
    for #FINDINDEX 1 #FINDCNT
    {
    exevent drag #FINDID #FINDSTACK
    wait 7
    exevent dropc #BACKPACKID
    wait 7
    }
    Insignias carpintero:
    Código:
    Código:
    
    ;==================================================
    ;GREMIO DE CARPINTERIA (INSIGNIAS) BY JAVIERCV
    ;==================================================
    set #SYSMSGCOL 1100
    event sysmessage Macro de preparacion de insignias
    event sysmessage del gremio de carpinteros
    event sysmessage By JavierCV
    
    
    ;==================================================
    ;CONFIGURACIÓN
    ;Para el funcionamiento del macro necesitas tener 6 bolsas dentro de un contenedor.
    ;bolsa 1: sierras de carpintero
    ;bolsa 2: madera normal
    ;bolsa 3: madera mágica
    ;bolsa 4: insignia diaria
    ;bolsa 5: insignia normal
    ;bolsa 6: insignia semanal
    ;==================================================
    set %contenedor SUGJQOD            ;Contenedor donde están las bolsas
    set %BolsaSierras ESAQBND          ;Bosa con las sierras de carpintero
    set %BolsaMadera IUACBQD           ;Bosa con madera
    set %BolsaMagica NUACBQD           ;Bosa con madera mágica
    set %BolsaRapida JUACBQD           ;Bosa donde dejar el material de la insignia RAPIDA (diaria)
    set %BolsaNormal HUACBQD           ;Bosa donde dejar el material de la insignia NORMAL
    set %BolsaSemanal KUACBQD          ;Bosa donde dejar el material de la insignia SEMANAL
    ;==================================================
    ;NO TOCAR NADA A PARTIR DE AQUÍ
    ;==================================================
    set %insignia MTL                  ;ID de las insignias (todas tienen el mismo ID)
    set %insigniacreada ACBB           ;ID de las insignias creadas (todas tienen el mismo ID)
    set %sierra AGG                    ;ID de las sierras
    set %madera ZLK                    ;ID de la madera y la madera mágica
    set %tablones DMK                  ;ID del lote de tablones
    set %banco QIE                     ;ID de los bancos de cerezo
    set %maquetabarco FWH              ;ID de las maquetas de barcos
    set %diana UNL                     ;ID de las dianas
    set %trono EJE                     ;ID de los tronos
    set %cofremadera KIF               ;ID de los cofres de madera
    set %estanteria BDE                ;ID de las estanterias
    set %dianaEntrenamiento WEG        ;ID de la diana de entrenamiento
    set %rueca XEG                     ;ID de la rueca
    set %canaMagica XHF                ;ID de la caña de pescar mágica
    
    
    ;==================================================
    ;HILO PRONCIPAL DEL MACRO
    ;==================================================
    gosub Menu
    
    loop:
         if #menubutton <> n/a
         {
            gosub #menubutton
            set #menubutton n/a
    
            ;INSIGNIA RAPIDA
            sub EUOButton1
                gosub InsigniaRapida
            return
    
            ;INSIGNIA NORMAL
            sub EUOButton2
                gosub InsigniaNormal
            return
    
            ;INSIGNIA SEMANAL
            sub EUOButton3
                gosub InsigniaSemanal
            return
         }
    goto loop
    
    
    
    
    ;==================================================
    ;RENDERIZADO DEL MENÚ
    ;==================================================
    sub Menu
       menu Clear
       menu Window Title Gremio de Carpinterios
       menu Window Size 190 127
       menu Font Size 8
       menu Text EUOLabelb1a 5 17 Insignia Rapida
       menu Button EUOButton1 100 5 80 35 CREAR
       menu Text EUOLabelb2a 5 57 Insignia Normal
       menu Button EUOButton2 100 45 80 35 CREAR
       menu Text EUOLabelb3a 5 97 Insignia Semanal
       menu Button EUOButton3 100 85 80 35 CREAR
       menu Show
    return
    
    
    ;==================================================
    ;INSIGNIA RAPIDA
    ;==================================================
    sub InsigniaRapida
        event sysmessage Iniciando creacion de insignia rapida
        ;abre cofre
        set #LOBJECTID %contenedor
        event macro 17 0
        wait 10
        ;1- hace el lote de tablones
        gosub tablones 1
        ;2- hace 5 bancos
        gosub bancos 5
        ;3- hace 7 maquetas de barco
        gosub maquetabarcos 7
        ;4- coge la insignia rapida
        gosub coger %BolsaRapida %insignia 1
        ;5- hace la insignia
        FindItem %insignia C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        Event Macro 17
        wait 10
        ;6- deja la insignia
        gosub dejar %BolsaRapida %insignia
        gosub dejar %BolsaRapida %insigniacreada
        event sysmessage Insignia rapida creada
    return
    
    
    ;==================================================
    ;INSIGNIA NORMAL
    ;==================================================
    sub InsigniaNormal
        event sysmessage Iniciando creacion de insignia normal
        ;abre cofre
        set #LOBJECTID %contenedor
        event macro 17 0
        wait 10
        ;1- hace el lote de tablones
        gosub tablones 1
        ;2- hace 5 dianas
        gosub dianas 5
        ;3- hace 5 tronos
        gosub tronos 5
        ;4- hace 5 cofres de madera
        gosub cofres 5
        ;5- hace 3 estanterias
        gosub estanterias 3
        ;6- coge la insignia normal
        gosub coger %BolsaNormal %insignia 1
        ;7- hace la insignia
        FindItem %insignia C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        Event Macro 17
        wait 10
        ;8- deja la insignia
        gosub dejar %BolsaNormal %insignia
        gosub dejar %BolsaNormal %insigniacreada
        event sysmessage Insignia normal creada
    return
    
    
    ;==================================================
    ;INSIGNIA SEMANAL
    ;==================================================
    sub InsigniaSemanal
        event sysmessage Iniciando creacion de insignia semanal
        ;abre cofre
        set #LOBJECTID %contenedor
        event macro 17 0
        wait 10
        ;1- hace 2 lotes de tablones
        gosub tablones 2
        ;2- hace 2 dianas de entrenamiento
        gosub dianasEntrenamiento 2
        ;3- hace 2 ruecas
        gosub ruecas 2
        ;4- hace 10 cofres de madera
        gosub cofres 10
        ;5- hace 5 cañas mágicas
        gosub canasMagicas 5
        ;6- Coge 20 de madera mágica
        gosub coger %BolsaMagica %madera 20
        ;7- coge la insignia semanal
        gosub coger %BolsaSemanal %insignia 1
        ;5- hace la insignia
        FindItem %insignia C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        Event Macro 17
        wait 10
        ;6- deja la insignia
        gosub dejar %BolsaSemanal %insignia
        gosub dejar %BolsaSemanal %insigniacreada
        event sysmessage Insignia semanal creada
    return
    
    
    ;==================================================
    ;TABLONES
    ;==================================================
    sub tablones %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 150 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 lote de tablones
        Event Macro 17
        wait 20
        click 69 251 ;otros
        wait 2s
        click 272 132 ;lote de tablones
        wait 5s
        ;Hace lotes de tablones hasta que llega a la cantidad indicada
        finditem %tablones C_ , #BACKPACKID
        if #FINDSTACK = %cantidad
        {
           event sysmessage %cantidad Lote(s) de tablones creado(s)
        }
        else
        {
           gosub tablones %cantidad
        }
    return
    
    
    ;==================================================
    ;BANCOS
    ;==================================================
    sub bancos %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 17 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 banco de cerezo
        Event Macro 17
        wait 20
        click 69 171 ;mobiliario
        wait 2s
        click 437 350 ;siguiente
        wait 2s
        click 437 350 ;siguiente
        wait 2s
        click 275 250 ;banco de cerezo
        wait 5s
        ;Hace bancos de cerezo hasta que llega a la cantidad indicada
        finditem %banco C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad Banco(s) de cerezo creado(s)
        }
        else
        {
           gosub bancos %cantidad
        }
    return
    
    
    ;==================================================
    ;MAQUETAS DE BARCOS
    ;==================================================
    sub maquetabarcos %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 10 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 maqueta de barco
        Event Macro 17
        wait 20
        click 70 214 ;decoración
        wait 2s
        click 277 111 ;maqueta de barco
        wait 5s
        ;Hace maquetas de barco hasta que llega a la cantidad indicada
        finditem %maquetabarco C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad maqueta(s) de barco creada(s)
        }
        else
        {
           gosub maquetabarcos %cantidad
        }
    return
    
    
    ;==================================================
    ;DIANAS
    ;==================================================
    sub dianas %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 5 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 diana
        Event Macro 17
        wait 20
        click 70 291 ;entrenamiento
        wait 2s
        click 277 111 ;diana
        wait 5s
        ;Hace dianas hasta que llega a la cantidad indicada
        finditem %diana C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad diana(s) creada(s)
        }
        else
        {
           gosub dianas %cantidad
        }
    return
    
    
    
    ;==================================================
    ;TRONOS
    ;==================================================
    sub tronos %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 17 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 trono
        Event Macro 17
        wait 20
        click 70 170 ;Mobiliario
        wait 2s
        click 437 350 ;siguiente
        wait 2s
        click 277 290 ;trono
        wait 5s
        ;Hace tronos hasta que llega a la cantidad indicada
        finditem %trono C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad trono(s) creada(s)
        }
        else
        {
           gosub tronos %cantidad
        }
    return
    
    
    
    ;==================================================
    ;ESTANTERIAS
    ;==================================================
    sub estanterias %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 25 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 estanteria
        Event Macro 17
        wait 20
        click 70 170 ;Mobiliario
        wait 2s
        click 437 350 ;siguiente
        wait 2s
        click 277 109 ;estanteria
        wait 5s
        ;Hace estanterias hasta que llega a la cantidad indicada
        finditem %estanteria C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad estanteria(s) creada(s)
        }
        else
        {
           gosub estanterias %cantidad
        }
    return
    
    
    
    ;==================================================
    ;COFRES DE MADERA
    ;==================================================
    sub cofres %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 20 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 cofre de madera
        Event Macro 17
        wait 20
        click 70 150 ;Contenedores
        wait 2s
        click 270 130 ;Cofre de madera
        wait 5s
        ;Hace cofres de madera hasta que llega a la cantidad indicada
        finditem %cofremadera C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad cofre(s) de madera creada(s)
        }
        else
        {
           gosub cofres %cantidad
        }
    return
    
    
    ;==================================================
    ;DIANA DE ENTRENAMIENTO
    ;==================================================
    sub dianasEntrenamiento %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 30 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 diana de entrenamiento
        Event Macro 17
        wait 20
        click 70 293 ;entrenamiento
        wait 2s
        click 270 170 ;diana de entrenamiento
        wait 5s
        ;Hace dianas de entrenamiento hasta que llega a la cantidad indicada
        finditem %dianaEntrenamiento C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad diana(s) de entrenamiento creada(s)
        }
        else
        {
           gosub dianasEntrenamiento %cantidad
        }
    return
    
    
    ;==================================================
    ;RUECAS
    ;==================================================
    sub ruecas %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 20 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMadera %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 rueca
        Event Macro 17
        wait 20
        click 70 270 ;sastre
        wait 2s
        click 270 130 ;rueca
        wait 5s
        ;Hace ruecas hasta que llega a la cantidad indicada
        finditem %rueca C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad rueca(s) creada(s)
        }
        else
        {
           gosub ruecas %cantidad
        }
    return
    
    
    ;==================================================
    ;CAÑAS MÁGICAS
    ;==================================================
    sub canasMagicas %1
        set %cantidad %1
        ;check sierras
        finditem %sierra C_ , #BACKPACKID
        if #FINDSTACK = 0
        {
           gosub coger %BolsaSierras %sierra 1
        }
        ;coge madera si necesita
        finditem %madera C_ , #BACKPACKID
        set %tmp 1 - #FINDSTACK
        if %tmp > 0
        {
           gosub coger %BolsaMagica %madera %tmp
        }
        ;selecciona sierra
        FindItem %sierra C_ , #BACKPACKID
        SET #LOBJECTID #FINDID
        ;hace 1 rueca
        Event Macro 17
        wait 20
        click 70 230 ;herramientas
        wait 2s
        click 270 170 ;caña mágica
        wait 5s
        ;Hace cañas mágicas hasta que llega a la cantidad indicada
        finditem %canaMagica C_ , #BACKPACKID
        if #FINDCNT = %cantidad
        {
           event sysmessage %cantidad caña(s) magica(s) creada(s)
        }
        else
        {
           gosub canasMagicas %cantidad
        }
    return
    
    
    ;==================================================
    ;COGER
    ;==================================================
    sub coger %1 %2 %3 ;CONTENEDOR - ITEM - CANTIDAD
        set #LOBJECTID %1
         event macro 17 0
         wait 10
         finditem %2 C_ , %1
         if #findcnt > 0
         {
            exevent drag #FINDID %3
            wait 10
            exevent dropc #BACKPACKID
            wait 10
         }
    return
    
    
    ;==================================================
    ;DEJAR
    ;==================================================
    sub dejar %1 %2 ;CONTENEDOR - ITEM
         set #LOBJECTID %1
         event macro 17 0
         wait 10
         finditem %2 C_ , #BACKPACKID
         if #findcnt > 0
         {
            exevent drag #FINDID #FINDSTACK
            wait 10
            exevent dropc %1
            wait 10
            gosub dejar %1 %2 ;repite mientras queden
         }
    return
    Twitter: @Nevil_Gamer

  4. #4

    Fecha de ingreso
    September-2015
    Clan
    Sin Clan
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    417
    Reputacion: 78
    Poder de reputación
    10

    Re: Varias Macros

    Magia In nox
    Código:
    ; ------------------------------------------------------
    ; Macro de Tirar Magia/Medit para UA-Sphere (Sphere 0.56b-Nightly)
    ; Creado por: darksplit el 08/04/2010
    ; Ultima edición: N/A
    ; Modificaciones de: N/A
    ; ------------------------------------------------------
    ;
    ;
    ; Explicación:
    ; Se trata de una Macro para Tirar Magia Meditando y reponerse fácilmente
    ; desde un contenedor. Sólo tienes que abrir el contenedor donde están los regs,
    ; seleccionar la persona a la que van dirigidos los hechizos y la macro hará el resto.
    ; Cogerá siempre 100 regs de cada.
    ; Gastará siempre 20 de maná antes de empezar a meditar
    ; Para los usuarios más avanzados, dejo las variables a continuación
    ; por si se quiere poner que gaste más antes de meditar, y por si queréis coger más regs.
    ;
    ; ==================================
    set %managastado #MAXMANA - 1 ; Este número simboliza el maná gastado máximo antes de meditar
    set %numeroregs 200 ; Número de regs que cogerá para reponerse cada vez.
    ; ==================================
    
    chooseskill mage real
    set %skillinimagia #skill
    chooseskill medi real
    set %skillinimedit #skill
    set #sysmsgcol 0000
    event sysmessage Iniciando Macro...
    event sysmessage
    set #targCurs 0
    
    configurar:
    if %confp = 1 || %confp = N/A
    {
    set #sysmsgcol 1264
    setuotitle Abre el contenedor donde estan los Regs.
    event sysmessage ================
    event sysmessage Abre el contenedor de Regs
    event sysmessage Presiona la tecla ESC.
    event sysmessage ================
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    set #sysmsgcol 1264
    setuotitle Selecciona tu objetivo
    event sysmessage ================
    event sysmessage Selecciona tu objetivo
    event sysmessage ================
    set #sysmsgcol 0000
    set #targCurs 1
    wait 1s
    goto CURSOR
    }
    
    CURSOR:
    if #TARGCURS = 1
    {
    goto CURSOR
    }
    if #TARGCURS = 0
    {
    set %objetivo #LTARGETID
    gosub uotitle
    goto loop
    }
    goto CURSOR
    
    
    TESC:
    onHotKey ESC
    {
    set %idcaja #LOBJECTID
    goto configurar
    }
    goto TESC
    
    scanjournal 1
    
    loop:
    wait 40
    repeat
    {
    gosub check
    set #LTARGETID %objetivo
    event macro 15 19
    wait 8
    event macro 22 0
    gosub uotitle
    }
    until #mana <= %managastado
    repeat
    {
    gosub meditar
    }
    until #mana = #int
    goto loop
    
    sub uotitle
    wait 10
    chooseskill mage real
    set %skillmagiaahora #SKILL
    chooseskill medi real
    set %skillmeditahora #SKILL
    finditem KZF C_ , #BACKPACKID
    set %cuantogarlic #FINDSTACK
    finditem WZF C_ , #BACKPACKID
    set %cuantonight #FINDSTACK
    setuotitle || Magia | Ini: %skillinimagia | Actual: %skillmagiaahora || Medit | Ini: %skillinimedit | Actual: %skillmeditahora || Regs | Garlic: %cuantogarlic | Night: %cuantonight ||
    return
    
    sub meditar
    event macro 13 46
    if pierdes in #journal
    {
    gosub meditar ; Meditamos hasta que no perdamos la concentración
    }
    if trance in #journal
    repeat
    {
    wait 40
    event macro 13 46 ; Aseguramos que mientras meditemos no perdamos la concentración. Así que cada 2 segundos meditará.
    }
    until #mana = #int
    return
    
    
    sub check
    finditem WZF C_ , #BACKPACKID
    if #FINDCNT = 0
    {
    gosub abrircaja
    wait 5
    Minar con recall:
    Código:
    ; ------------------------------------------------------
    ; Macro de Minar para UA-Sphere (Sphere 0.56b-Nightly)
    ; Creado por: Alex
    ; Ultima edición: 08/04/2010 por darksplit
    ; Modificaciones de: DaviD JoneS, darksplit, f.nandoco.
    ; ------------------------------------------------------
    ;
    ; Explicación:
    ; Esta macro ha sido creada para Minar dejando el mineral en casa con la ayuda de Runas.
    ; Al comienzo y cada vez que vuelva a casa, se comprobará el número de regs del personaje,
    ; y se cogerán los necesarios para volver a tener 5 de cada para evitar pérdidas en el caso de una
    ; matanza de un PK en la mina.
    ; Se meditará antes y después de recalear para subir el maná para acelerar el proceso,
    ; aún así, no es realmente necesaria la skill de Meditar.
    ; Minará por toda la mina, de manera aleatoria, pero evitando volver a minar allí dónde ya lo hiciste.
    ;
    ;
    ;
    ; IMPORTANTE:
    ; - Debes estar, al dar Play, en el lugar donde te deja la runa que te devuelve a casa.
    ; - Las runas de las minas deben estar marcadas DENTRO de ellas.
    ; - No se funde el material, macro de separar/fundir disponible en el foro
    ; - Sólo se podrá utilizar la macro en las minas preestablecidas, mostradas a continuación.
    ; - No es necesario tener regs de recall encima al iniciar la Macro, lo comprueba y coge automáticamente.
    ; - Regs y Mineral deberan estar en el MISMO CONTENEDOR.
    ; - Esta macro mina únicamente en una mina de tu elección.
    ; - Skill de Magia a 30 para poder recalear.
    ;
    ;
    ; Configuración:
    ; - Hueco donde tengas la runa que te llevará al cofre para guardar los minerales (1-16)
    ;--------------------
    set %runacasa 13
    ;--------------------
    ; - Hueco donde tengas la runa que te llevará DENTRO de la mina (1-16)
    ;--------------------
    set %runamina 9
    ;--------------------
    ; - Elige una mina de la lista a continuación y escribe su número en la variante siguiente:
    ; -------------------
    set %lugar 24 ; Mina en la que actuará la macro
    ; -------------------
    ; Las Minas actuales son:
    ; 0- Ninguna (Mina solo igual, pero si se sale de dentro de la mina no se volverá a meter, deberás moverlo tu)
    ; 1- Shame (Norte de la entrada Shame (Trabajos Forzados))
    ; 2- Covetous 1 (Primera Mina a la derecha de la Dungeon Covetous)
    ; 3- Covetous 2 (Segunda Mina a la derecha de la Dungeon Covetous)
    ; 4- Covetous 3 (De las dos minas juntas en Covetous Norte, la de arriba)
    ; 5- Covetous 4 (De las dos minas juntas en Covetous Norte, la de abajo, meterse bien adentro antes de iniciar la macro)
    ; 6- Minoc Ciudad 1 (La mina que hay al Este de Minoc, pasando el puente)
    ; 7- Minoc Ciudad 2 (La mina al lado de la que hay pasando el puente de Minoc)
    ; 8- Minoc Mina 1 (De las Minas del Norte de Minoc, la primera de la izquierda abajo)
    ; 9- Minoc Mina 2 (De las Minas del Norte de Minoc, la de la izquierda donde hay dos (Haven))
    ; 10- Minoc Mina 3 (De las Minas del Norte de Minoc, la de la derecha donde hay dos (Haven))
    ; 11- Destard 1 (Un poco a la izquierda de La Dungeon Destard)
    ; 12- Destard 2 (Desde la entrada de Destard Dungeon bajando bordeando, la primera mina que encuentras)
    ; 13- Destard 3 (Desde la entrada de Destard Dungeon bajando bordeando, la segunda mina que encuentras)
    ; 14- Destard 4 (Desde la entrada de Destard Dungeon bajando bordeando, la terera mina que encuentras, en la de la parte derecha de la montaña)
    ; 15- Wrong 1 (Junto a la entrada de la Dungeon de Wrong)
    ; 16- Wrong 2 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la primera que encuentras)
    ; 17- Wrong 3 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la segunda que encuentras)
    ; 18- Hythloth 1 (Bordeando la montaña, hacia arriba desde Hythloth, la primera que encuentras)
    ; 19- Hythloth 2 (Bordeando la montaña, hacia abajo derecha de Hythloth, la primera Mina que encuentras)
    ; 20- Hythloth 3 (Bordeando la montaña, hacia abajo derecha de Hythloth, la segunda Mina que encuentras)
    ; 22- Avatar Norte 1 (De la montaña del Norte de Avatar, la primera que encuentas)
    ; 23- Avatar Norte 2 (De la montaña del Norte de Avatar, desde la primera, a la derecha bordeando, la primera que encuentras)
    ; 24- Desierto (En el cruce de caminos)
    ; 25- Shame Sur
    ; ==================================
    
    
    chooseskill mini real
    set %skillini #skill
    set %locs LOCATIONS_PISADAS
    set %borrado 0
    set #SYSMSGCOL 0000
    event sysmessage Iniciando Macro...
    event sysmessage
    gosub lugares
    
    configurar:
    if %confp = 1 || %confp = N/A
    {
    set #SYSMSGCOL 1264
    setuotitle Abre el contenedor donde dejar los minerales y donde estaran los Regs
    event sysmessage ================
    event sysmessage Abre el contenedor donde dejar
    event sysmessage los Minerales
    event sysmessage y donde estaran los Regs de Recall.
    event sysmessage Presiona la tecla ESC.
    event sysmessage ================
    set %conf 1
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    set #SYSMSGCOL 1264
    setuotitle Abre el Libro de Runas donde tengas las runas a tu Casa y a la Mina y presiona ESC
    event sysmessage ================
    event sysmessage Abre el Libro de Runas donde tengas las runas de Casa y Mina.
    event sysmessage Presiona la tecla ESC.
    event sysmessage ================
    set #SYSMSGCOL 0000
    set %conf 2
    goto TESC
    }
    
    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %idcaja #LOBJECTID
    set %dondecasax #CHARPOSX
    set %dondecasay #CHARPOSY
    set %dondeminax 0
    gosub regs
    set #SYSMSGCOL 1000
    event Sysmessage Desequipando manos...
    event macro 24 2
    wait 15
    goto configurar
    }
    if %conf = 2
    {
    set %runebook #LOBJECTID
    goto recallmina
    }
    }
    goto TESC
    
    comienzo:
    findItem NPF
    if #FINDSTACK = 0
    {
    findItem QPF
    }
    set #LOBJECTID #FINDID
    set %cmsg #JINDEX
    wait 5 ; añadido
    event macro 17
    wait 10
    set %fmsg #JINDEX
    for %i %cmsg %fmsg
    {
    scanJournal %i
    if Donde_quieres_utilizar in #JOURNAL
    {
    set %seguridad 0
    goto acabapicar
    }
    }
    goto comienzo
    
    acabapicar:
    set %cmsg #JINDEX
    set #LTARGETX #CHARPOSX + 1
    set #LTARGETY #CHARPOSY - 1
    wait 5 ; añadido
    event macro 22
    wait 10
    set %fmsg #JINDEX
    for %i %cmsg %fmsg
    {
    scanJournal %i
    if Pones_el in #journal || No_encuentras in #JOURNAL ; Consigue minar, y lo vuelve a hacer.
    {
    set %skillinc #SKILL - %skillini
    setuotitle Skill de Mining | Inicial: %skillini | Actual: #SKILL | Incremento: %skillinc | Peso: #WEIGHT
    gosub compruebapeso
    goto comienzo
    }
    if Aqui_no_hay_nada_por in #JOURNAL || Prueba_a in #JOURNAL || You_cannot_mine_so in #JOURNAL || No_puedes_ver_bien in #JOURNAL ; No se puede minar, cambio de lugar.
    {
    gosub compruebapeso
    goto moverse
    }
    }
    gosub seguridad
    goto acabapicar
    
    moverse:
    if %lugar > 0
    {
    if #CHARPOSX , _ , #CHARPOSY notIn %locs
    {
    set %borrado %borrado + 1
    if %borrado > 100
    {
    set %locs LOCATIONS_PISADAS
    set %borrado 0
    }
    set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY
    }
    if %lugar = 5
    {
    if %lugaro > #CHARPOSX
    {
    for %i 1 6
    {
    event macro 5 3
    wait 10
    }
    }
    
    }
    if %lugarp = X
    {
    if %lugaro < #CHARPOSX
    {
    for %i 1 6
    {
    event macro 5 7
    wait 10
    }
    }
    }
    if %lugarp = Y
    {
    if %lugaro < #CHARPOSY
    {
    for %i 1 6
    {
    event macro 5 1
    wait 10
    }
    }
    }
    }
    set %mover #RANDOM % 7
    event macro 5 %mover
    wait 20
    event macro 5 %mover
    wait 20
    if #CHARPOSX , _ , #CHARPOSY in %locs
    {
    goto moverse
    }
    goto comienzo
    
    recallcasa:
    set %posruna %runacasa
    gosub librecall
    set #LOBJECTID %runebook
    event macro 17
    wait 20
    click %runex %runey f
    event macro 13 46
    wait 10s
    event macro 13 46
    msg .resend $
    wait 10
    if #CHARPOSX = %dondecasax && #CHARPOSY = %dondecasay
    {
    gosub abrir_cofre
    gosub regs
    goto dejarminerales
    }
    else
    {
    event macro 13 46
    goto recallcasa
    }
    
    recallmina:
    IF #WEIGHT >= 70
    {
    goto dejarminerales
    }
    set %posruna %runamina
    gosub librecall
    set #LOBJECTID %runebook
    event macro 17
    wait 20
    click %runex %runey f
    event macro 13 46
    wait 10s
    event macro 13 46
    msg .resend $
    wait 10
    if %dondeminax = 0
    {
    if #CHARPOSX <> %dondecasax && #CHARPOSY <> %dondecasay
    {
    set %dondeminax #CHARPOSX
    set %dondeminay #CHARPOSY
    }
    }
    if #CHARPOSX = %dondeminax && #CHARPOSY = %dondeminay
    {
    event macro 13 46
    goto comienzo
    }
    else
    {
    goto recallmina
    }
    
    dejarminerales:
    set %v1 %v1 + 1
    if %v1 > 12
    {
    set %v1 0
    goto recallmina
    }
    wait 10
    finditem TVJ c_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem GWJ C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem EWJ C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem DWJ C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    goto recallmina
    }
    }
    }
    }
    exevent drag #FINDID #FINDSTACK
    wait 20
    exevent dropc %idcaja
    wait 20
    goto dejarminerales
    
    sub abrir_cofre
    set #LOBJECTID %idcaja
    event macro 17 0
    wait 30
    return
    
    sub regs
    set #SYSMSGCOL 1100
    event sysmessage ================
    event sysmessage Comprobando y cogiendo Regs...
    gosub mandrake
    gosub black
    gosub blood
    event sysmessage ================
    return
    
    sub mandrake
    finditem MZF C_ , #BACKPACKID
    event sysmessage Mandrake antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #FINDSTACK
    set %reg MZF
    gosub coger
    }
    finditem MZF C_ , #BACKPACKID
    event sysmessage Mandrake: #FINDSTACK
    return
    
    sub black
    finditem KUF C_ , #BACKPACKID
    event sysmessage Black Pearl antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #FINDSTACK
    set %reg KUF
    gosub coger
    }
    finditem KUF C_ , #BACKPACKID
    event sysmessage Black Pearl: #FINDSTACK
    return
    
    sub blood
    finditem JUF C_ , #BACKPACKID
    event sysmessage Blood Moss antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #FINDSTACK
    set %reg JUF
    gosub coger
    }
    finditem JUF C_ , #BACKPACKID
    event sysmessage Blood Moss: #FINDSTACK
    return
    
    sub coger
    set %debocoger 5 - %regcnt
    finditem %reg C_ , %idcaja
    exevent drag #FINDID %debocoger
    wait 10
    exevent dropc #BACKPACKID
    wait 10
    return
    
    sub librecall
    {
    if %posruna < 9
    {
    set %runex 130
    if %posruna = 1
    {
    set %y 0
    }
    else
    {
    set %runea %posruna - 1
    set %y 15 * %runea
    }
    set %runey 70 + %y
    }
    if %posruna > 8
    {
    set %runex 290
    if %posruna = 9
    {
    set %y 0
    }
    else
    {
    set %runea %posruna - 9
    set %y 15 * %runea
    }
    set %runey 70 + %y
    }
    return
    }
    
    sub seguridad
    {
    set %seguridad %seguridad + 1
    if %seguridad > 15
    {
    set %seguridad 0
    goto comienzo
    }
    return
    }
    
    sub lugares
    {
    if %lugar = 1
    {
    set %lugaro 1460
    set %lugarp Y
    }
    if %lugar = 2
    {
    set %lugaro 2448
    set %lugarp X
    }
    if %lugar = 3
    {
    set %lugaro 910
    set %lugarp Y
    }
    if %lugar = 4
    {
    set %lugaro 828
    set %lugarp Y
    }
    if %lugar = 5
    {
    set %lugaro 2355
    set %lugarp X
    }
    if %lugar = 6
    {
    set %lugaro 499
    set %lugarp Y
    }
    if %lugar = 7
    {
    set %lugaro 2602
    set %lugarp X
    }
    if %lugar = 8
    {
    set %lugaro 2426
    set %lugarp X
    }
    if %lugar = 9
    {
    set %lugaro 2440
    set %lugarp X
    }
    if %lugar = 10
    {
    set %lugaro 66
    set %lugarp Y
    }
    if %lugar = 11
    {
    set %lugaro 266
    set %lugarp Y
    }
    if %lugar = 12
    {
    set %lugaro 1259
    set %lugarp X
    }
    if %lugar = 13
    {
    set %lugaro 2729
    set %lugarp Y
    }
    if %lugar = 14
    {
    set %lugaro 2895
    set %lugarp Y
    }
    if %lugar = 15
    {
    set %lugaro 1991
    set %lugarp X
    }
    if %lugar = 16
    {
    set %lugaro 1499
    set %lugarp X
    }
    if %lugar = 17
    {
    set %lugaro 1941
    set %lugarpX
    }
    if %lugar = 18
    {
    set %lugaro 1918
    set %lugarp X
    }
    if %lugar = 19
    {
    set %lugaro 3822
    set %lugarp Y
    }
    if %lugar = 20
    {
    set %lugaro 4766
    set %lugarp X
    }
    if %lugar = 21
    {
    set %lugaro 4817
    set %lugarp X
    }
    if %lugar = 22
    {
    set %lugaro 3302
    set %lugarp Y
    }
    if %lugar = 23
    {
    set %lugaro 4554
    set %lugarp X
    }
    if %lugar = 24
    {
    set %lugaro 1812
    set %lugarp X
    }
    if %lugar = 25
    {
    set %lugaro 1695
    set %lugarp Y
    }
    return
    }
    
    sub compruebapeso
    {
    if #WEIGHT >= #MAXWEIGHT - 25
    {
    goto recallcasa
    }
    return
    }
    Nigromancia:
    Código:
    set %typearma ZSF
    set %arma ZSF
    
    chooseskill necr real
    set %skillini #SKILL
    
    display ok Macro by Nilaween.
    finditem *vendor
    if #FINDREP <> 1 6
    Event SysMessage NO SE HA ENCONTRADO EL VENDOR CERCA!
    Event SysMessage Por favor, targetea el vendor.
    set #TARGCURS 1
    repeat
    until #TARGCURS = 0
    set *vendor #LTARGETID
    
    
    finditem %arma C_ , #BACKPACKID
    for %a 1 #FINDCNT
    {
    set %arma . %a #FINDID
    set #FINDINDEX #FINDINDEX + 1
    }
    set %a 1
    
    magia:
    finditem YZF C_ , #BACKPACKID
    if #FINDSTACK =< 30 || #FINDKIND = -1
    gosub comprar
    
    repeat
    
    set %skillinc #SKILL - %skillini
    setuotitle Habilidad de nigromancia | S. Inicial:: %skillini | S. Actual: #SKILL | S. Inc: %skillinc |
    msg .nigro 04 $
    set %mana #MANA
    set %a %a + 1
    if %arma . %a = N/A
    set %a 1
    set %tiempo #SYSTIME + 3000
    set #LOBJECTID %arma . %a
    set %jEnd #JINDEX
    a:
    if #SYSTIME < %tiempo && #MANA >= %mana
    goto a
    event macro 17 0
    
    until #MANA < 8
    
    medit:
    repeat
    
    event macro 13 46
    
    meditando:
    repeat
    if #MANA = #MAXMANA
    goto magia
    until %jEnd <> #JINDEX
    set %jStart %jEnd + 1
    set %jEnd #JINDEX
    for %i %jStart %jEnd
    {
    scanjournal %i
    if ESTAS_EN_PAZ in #JOURNAL || #MANA = #MAXMANA
    goto magia
    if PIERDES_LA_CONCENTRACION in #JOURNAL
    goto medit
    }
    goto meditando
    
    sub comprar
    finditem *vendor
    if #FINDKIND <> -1
    move #FINDX #FINDY
    msg Berminghald buy $
    gosub gump 3000 800_590 medit
    gosub click 375 450 dmc
    gosub gump 3000 800_590 medit
    gosub click 600 535 dmc
    wait 10
    goto magia
    
    sub gump
    set %tiempo #SYSTIME + %1
    repeat
    if %tiempo < #SYSTIME
    goto %3
    until #CONTSIZE = %2
    return
    
    sub click
    set %clickx #CONTPOSX + %1
    set %clicky #CONTPOSY + %2
    click %clickx %clicky %3
    return
    Twitter: @Nevil_Gamer

  5. #5

    Fecha de ingreso
    September-2015
    Clan
    Sin Clan
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    417
    Reputacion: 78
    Poder de reputación
    10

    Re: Varias Macros

    Espero que os sirvan

    Un saludo a todos!!
    Twitter: @Nevil_Gamer

  6. #6

    Fecha de ingreso
    September-2015
    Clan
    Sin Clan
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    417
    Reputacion: 78
    Poder de reputación
    10

    Re: Varias Macros

    Rastrear:
    Código:
    ;==================================
    ; Macro: Rastrear
    ; Autor: JoSePh
    ; Version Easyuo: 1.5, 177
    ; Servidor: Ultima Alianza
    ; Cliente: 5.0.9
    ;==================================
    
    ; Situate al lado del golem y pulsa play.
    
    set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE_KPE_QQD_RQ E_SQD_SPE_JQE_ZPE_IQE_YSD
    ChooseSkill trac real
    Set %SkillIni #SKILL
    
    inicio:
    gosub comer
    for %i 1 50
    {
    set %subidos #skill - %SkillIni
    Setuotitle | Rastrear | S.Inicial: %SkillIni | S. Actual: #SKILL | Incremento: %subidos
    Event Macro 13 38
    wait 10
    click 16 128
    wait 10
    click 16 60
    wait 20
    }
    goto inicio
    
    sub comer
    
    finditem %comida C_ , #backpackid
    set #lobjectid #findid
    event macro 17
    return
    Sastreria:
    Código:
    ;********************************Configuracion********************************
    set %bandanas_vender 50 ;Cuando llegue a esta cantidad, se venderan.
    set %vendor Kelby ;Nombre del vendor
    ;********************************Macro********************************
    set %rollo ZZF
    set %tela RTI
    set %kit HAG
    set %bandana TDI
    set %alimento PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE_KPE_QQD_RQ E_SQD_SPE_JQE_ZPE_IQE_YSD
    display ok Macro by Nilaween
    
    ciclo:
    FINDITEM %tela C_ , #BACKPACKID
    IF #FINDSTACK =< 4
    {
    event sysmessage -----Reponiendo tela...-----
    tela:
    msg %vendor buy$
    gosub gump 6000 800_590 ciclo
    gosub click 400 260
    gosub gump 6000 800_590 ciclo
    gosub esperar 600 540 dmc salir
    }
    salir:
    
    finditem %rollo C_ , #BACKPACKID
    if #FINDKIND <> -1
    {
    set #LOBJECTID #FINDID
    for %i 1 #FINDSTACK
    {
    event macro 17 0
    wait 7
    }
    }
    
    FINDITEM %kit C_ , #BACKPACKID
    IF #FINDCNT < 3
    {
    set %repeticiones 3 - #FINDCNT
    event sysmessage -----Reponiendo kit de costura...-----
    msg %vendor buy$
    gosub gump 6000 800_590 ciclo
    for %i 1 %repeticiones
    {
    gosub click 400 140 dmc
    gosub gump 6000 800_590 ciclo
    }
    gosub esperar 600 540 dmc salir
    }
    
    FINDITEM %bandana C_ , #BACKPACKID
    IF #FINDCNT >= %bandanas_vender
    {
    msg %vendor sell$
    for %i 1 6
    {
    gosub click 400 530 dmc
    gosub gump 6000 800_590 ciclo
    }
    gosub click 375 150 dmc
    gosub gump 6000 800_590 ciclo
    gosub esperar 600 540 dmc salir
    }
    IF #FINDCNT < %bandanas_vender
    {
    FINDITEM %kit , _ , %tela C_ , #BACKPACKID
    for #FINDINDEX 1 #FINDCNT
    {
    if #FINDTYPE = %kit
    set #LOBJECTID #FINDID
    if #FINDTYPE = %tela
    set #LTARGETID #FINDID
    }
    event macro 17
    set #LTARGETKIND 1
    target
    event macro 22 0
    gosub gump 6000 530_480 ciclo
    gosub click 30 190 dmc
    gosub gump 6000 530_480 ciclo
    bandanas:
    set %control #SYSTIME
    gosub click 230 70 dmc
    finditem %tela C_ , #BACKPACKID
    gosub gump 6000 530_480 ciclo
    set %control #SYSTIME - %control
    if #FINDSTACK <= 4 || %control < 1000
    goto ciclo
    goto bandanas
    }
    goto ciclo
    
    sub gump
    repeat
    until #contname <> waiting_gump && #contname <> MainMenu_gump && #contname <> Login_gump && #contname <> normal_gump
    set %tiempo #SYSTIME + %1
    repeat
    if %comida < #SYSTIME || %comida = N/A
    gosub comer
    if %tiempo < #SYSTIME
    goto %3
    until #CONTSIZE = %2
    return
    
    sub esperar
    set %weight #WEIGHT
    gosub click 600 540 dmc
    set %control #SYSTIME + 3000
    repeat
    if %control < #SYSTIME
    goto %4
    until %weight <> #WEIGHT
    return
    
    sub click
    set %clickx #CONTPOSX + %1
    set %clicky #CONTPOSY + %2
    click %clickx %clicky %3
    return
    Hablar con espiritus:
    Código:
    ; ********************************************************************************
    ; ********************************************************************************
    ; Script Name: Spirit Speak
    ; Author: Blaizzer
    ; Version: 1.0
    ; Client Tested with: 7.0.8.3
    ; EUO version tested with: 1.5
    ; Shard OSI / FS: Ultima Alianza
    ; Private release: 28-01-11
    ; Public Release: 28-01-11
    ; Items needed: Manzanas por defecto
    ; Purpose: Sube Spirit Speak de ~30 a 100
    ; ********************************************************************************
    ; ********************************************************************************
    
    ; Type de la comida, manzanas por defecto
    set %comida YSD_QQD
    
    ; No modificar a partir de aquí
    ; a no ser que sepas lo que estás haciendo
    
    ; Skill info
    chooseskill Spir Real
    set %skill_ini #SKILL
    
    initevents:
    goSub SS
    goSub SysMsg
    goSub info
    goSub comer
    goTo initevents
    
    Sub SS
    event macro 13 32
    wait 2s
    
    return
    
    Sub SysMsg
    set %seguridad 0
    esperar:
    if logras_contactar in #SysMsg
    return
    if your_skill in #SysMsg
    return
    if %seguridad = 300
    return
    
    set %seguridad %seguridad + 1
    
    goTo esperar:
    
    return
    
    Sub info
    set %skill_gain #SKILL - %skill_ini
    setuotitle | Skill Inicial: %skill_ini | Skill Actual: #skill | P. Ganados: %skill_gain
    
    return
    
    Sub comer
    finditem %comida c_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    
    return
    Talar semiasistida Isla magica:
    Código:
    ; ------------------------------------------------------
    ; Macro de Talar semi asistido en Isla Mágica para UA-Sphere (Sphere 0.56b-Nightly)
    ; Creado por: darksplit
    ; Ultima edición: N/A
    ; Modificaciones de: N/A
    ; ------------------------------------------------------
    
    
    set #sysmsgcol 33
    
    bucle:
    onhotkey F1
    {
    gosub talar
    }
    goto bucle
    
    
    sub talar
    gosub targetear
    gosub talar_todo
    return
    
    sub targetear
    finditem ASF_FSF c_ , #charid
    set %hacha #findid
    set #lobjectid %hacha
    event macro 17 0
    event sysmessage Selecciona el arbol a talar
    gosub cursor
    return
    
    sub talar_todo
    scanjournal 1
    if Pones_el in #journal || Talas_durante_un in #journal ; Aun hay madera.
    {
    gosub talando
    }
    if not_enough in #journal || cannot_see in #journal || No_lo_alcanzas in #journal || lejos in #journal || can't_use in #journal || Aqui_no_hay in #journal || cannot_be_seen in #journal || inmune in #journal || Dismount in #journal
    {
    event sysmessage No queda mas madera
    return
    }
    gosub talar_todo
    return
    
    sub cursor
    if #TARGCURS = 1
    {
    gosub cursor
    }
    if #TARGCURS = 0
    {
    gosub talar_todo
    }
    gosub cursor
    
    sub talando
    set #lobjectid %hacha
    event macro 17 0
    wait 10
    event macro 22 0
    gosub talar_todo
    return
    Twitter: @Nevil_Gamer

  7. #7

    Fecha de ingreso
    August-2017
    Clan
    Sin Clan
    Nacimiento
    Haven
    Mensajes
    46
    Reputacion: 10
    Poder de reputación
    7

    Re: Varias Macros

    Gracias ! Compartir es vivir!

  8. #8

    Fecha de ingreso
    August-2011
    Edad
    48
    Mensajes
    120
    Reputacion: 35
    Poder de reputación
    13

    Re: Varias Macros

    gracias por las macros, a mas de uno le servira de ayuda.

  9. #9

    Fecha de ingreso
    February-2016
    Clan
    Sin Clan
    Nacimiento
    Haven
    Edad
    33
    Mensajes
    1.311
    Reputacion: 11
    Poder de reputación
    14

    Re: Varias Macros

    oh, has colgado una macro de anatomia, me enfado y no respiro.

    Muchas gracias por las macros, esperamos tu vuelta.

  10. #10

    Fecha de ingreso
    April-2011
    Mensajes
    120
    Reputacion: 11
    Poder de reputación
    13

    Re: Varias Macros

    Uooh, hay alguna de las mias, k honor ;P

    Gracias por el aporte

Temas similares

  1. hola buenas necesito VARIAS MACROS
    Por Caprica en el foro Macros
    Respuestas: 0
    Último mensaje: 27-Aug-2016, 13:12
  2. macros varias
    Por CRISTIANO RONALDO 7 en el foro Macros
    Respuestas: 1
    Último mensaje: 12-Dec-2014, 11:53
  3. buenas nesesito varias macros
    Por tramer en el foro Macros
    Respuestas: 6
    Último mensaje: 14-Nov-2011, 00:53
  4. Varias macros utiles
    Por Conde Karismat en el foro Macros
    Respuestas: 1
    Último mensaje: 08-Jan-2011, 12:16
  5. Varias Macros.
    Por Hate en el foro Macros
    Respuestas: 15
    Último mensaje: 01-Jan-2009, 18:51

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