La macro que pongo a continuación, por sí sóla no sirve de nada. Es una macro que yo usaba para comprar regentes en varios puntos del mapa. A pesar de que necesitais tener un runebook con runas marcadas en puntos concretos para que esta macro funcione, seguramente la macro os sea util para haceros vosotros una, y que os sea más sencilla la labor de comprar regentes.
Esta fue la primera macro que yo use para comprar regentes. La que uso ahora es un poco más compleja (tiene ciertas mejoras), pero prefiero poner esta para que la gente la vea y se creen ellos sus propias macros.
Espero os sirva de orientación para aquellos que prefirais usar macros pa comprar regentes.
Básicamente la macro hace esto:Código:set %ns WZF ;nightshade set %gl KZF ;garlic set %bp KUF ;black pearl set %bm JUF ;blood moss set %gi JZF ;ginseng set %md MZF ;mandrake set %sf SZF ;sulfurus set %ss RZF ;spider silk set %cofre IFOGTPD ; id del cofre donde deja y coge los regentes set %comprarbp 1 ; poner a 0 si no quieres comprar este regente set %comprarbm 1 ; poner a 0 si no quieres comprar este regente set %comprargl 1 ; poner a 0 si no quieres comprar este regente set %comprargi 1 ; poner a 0 si no quieres comprar este regente set %comprarmd 1 ; poner a 0 si no quieres comprar este regente set %comprarns 1 ; poner a 0 si no quieres comprar este regente set %comprarsf 1 ; poner a 0 si no quieres comprar este regente set %comprarss 1 ; poner a 0 si no quieres comprar este regente initevents set %inicio 0 set %posruna 5 gosub librecall wait 10 gosub recalear msg antonio buy $ wait 1s gosub comprarmago msg allaard buy $ wait 1s gosub comprarmago set %posruna 6 gosub librecall wait 10 gosub recalear msg stacia buy $ wait 1s gosub compraralquimista set %posruna 7 gosub librecall wait 10 gosub recalear msg nigel buy $ wait 1s gosub comprarmago wait 10 msg briona buy $ wait 1s gosub compraralquimista set %posruna 8 gosub librecall wait 10 gosub recalear msg nathaniel buy $ wait 1s gosub compraralquimista set %posruna 9 gosub librecall wait 10 gosub recalear msg thorpe buy $ wait 1s gosub comprarmago msg iain buy $ wait 1s gosub comprarmago set %posruna 10 gosub librecall wait 10 gosub recalear msg danior buy $ wait 1s gosub comprarmago set %posruna 11 gosub librecall wait 10 gosub recalear msg ellery buy $ wait 1s gosub comprarmago set %posruna 12 gosub librecall wait 10 gosub recalear msg lionel buy $ wait 1s gosub comprarmago msg allen buy $ wait 1s gosub comprarmago wait 1s event macro 5 3 wait 1s event macro 5 3 wait 1s event macro 5 3 wait 1s msg canute buy $ wait 1s gosub comprarmago set %posruna 13 gosub librecall wait 10 gosub recalear msg velma buy $ wait 1s gosub comprarmago msg maris buy $ wait 1s gosub comprarmago msg crystal buy $ wait 1s gosub comprarmago set %posruna 14 gosub librecall wait 10 gosub recalear msg gana buy $ wait 1s gosub comprarmago set %posruna 15 gosub librecall wait 10 gosub recalear msg raoul buy $ wait 1s gosub comprarmago msg tobias buy $ wait 1s gosub compraralquimista set %posruna 16 gosub librecall wait 10 gosub recalear msg beck buy $ wait 1s gosub compraralquimista wait 1s event macro 5 5 wait 1s event macro 5 5 wait 1s event macro 5 5 wait 1s msg adem buy $ wait 1s gosub compraralquimista wait 1s set %posruna 2 gosub librecall wait 10 gosub recalear msg soterios buy $ wait 1s gosub comprarmago wait 1s msg melvin buy $ wait 1s gosub comprarmago wait 1s event macro 5 6 wait 1s event macro 5 6 wait 1s event macro 5 6 wait 1s msg farley buy $ wait 1s gosub comprarmago wait 1s set %posruna 3 gosub librecall wait 10 gosub recalear msg becca buy $ wait 1s gosub compraralquimista wait 1s msg bowman buy $ wait 1s gosub comprarmago set %posruna 4 gosub librecall wait 10 gosub recalear msg felix buy $ wait 1s gosub compraralquimista wait 1s event macro 5 5 wait 1s event macro 5 5 wait 1s event macro 5 5 wait 1s event macro 5 5 wait 1s msg bowman buy $ wait 1s gosub comprarmago set %inicio 1 gosub recallcasa sub recalear { set #LOBJECTID QVDNAQD event macro 17 wait 1s click %runex %runey wait 1s event macro 13 46 wait 11s event macro 13 46 msg .resend $ wait 10 return } sub comprarmago { if %comprarbp = 1 { wait 1s click 378 150 } if %comprarbm = 1 { wait 1s click 378 210 } if %comprargl = 1 { wait 1s click 378 270 } if %comprargi = 1 { wait 1s click 378 330 } if %comprarmd = 1 { wait 1s click 378 390 } if %comprarns = 1 { wait 1s click 378 450 } if %comprarsf = 1 { wait 1s click 400 540 wait 1s click 378 150 } if %comprarsf = 1 { wait 1s click 400 540 wait 1s click 378 210 } wait 1s click 600 535 wait 1s gosub compruebapeso wait 10 return } sub compraralquimista { if %comprarbp = 1 { wait 1s click 378 210 } if %comprarbm = 1 { wait 1s click 378 270 } if %comprargl = 1 { wait 1s click 378 330 } if %comprargi = 1 { wait 1s click 378 390 } if %comprarmd = 1 { wait 1s click 378 450 } if %comprarns = 1 { wait 1s click 400 540 wait 1s click 378 150 } if %comprarsf = 1 { wait 1s click 400 540 wait 1s click 378 210 } if %comprarsf = 1 { wait 1s click 400 540 wait 1s click 378 270 } wait 1s click 600 535 wait 1s gosub compruebapeso wait 10 return } sub compruebapeso { if #WEIGHT > 350 { gosub recallcasa } 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 recallcasa { set %posruna 1 gosub librecall wait 10 gosub recalear wait 10 gosub dejarregs wait 1s gosub cogerregs if %inicio > 0 { msg Ronda realizada $ halt } return } sub cogerregs { wait 1s click 440 285 d wait 1s findItem %md C_ , %cofre event drag #FINDID wait 1s msg 45 $ click 1105 205 p wait 1s findItem %bp C_ , %cofre event drag #FINDID wait 1s msg 45 $ click 1105 205 p wait 1s findItem %bm C_ , %cofre event drag #FINDID wait 1s msg 45 $ click 1105 205 p wait 1s return } sub dejarregs { set %noregs 0 finditem %bp c_ , #BACKPACKID if #FINDSTACK = 0 { findItem %bm C_ , #BACKPACKID if #FINDSTACK = 0 { finditem %gl c_ , #BACKPACKID if #FINDSTACK = 0 { findItem %gi C_ , #BACKPACKID if #FINDSTACK = 0 { finditem %md c_ , #BACKPACKID if #FINDSTACK = 0 { findItem %ns C_ , #BACKPACKID if #FINDSTACK = 0 { finditem %sf c_ , #BACKPACKID if #FINDSTACK = 0 { findItem %ss C_ , #BACKPACKID if #FINDSTACK = 0 { set %noregs 1 } } } } } } } } if %noregs = 0 { event drag #FINDID wait 20 KEY ENTER wait 10 click 440 285 p gosub dejarregs } return }
1º.- Recalea al punto que le toca, y compra los regentes que le indiquemos a cada uno de los vendedores que hay.
2º.- Despues de cada compra comprueba el peso. Si supera X peso, recalea a casa y deja los regentes.
3º.- Despues de dejar los regentes, coge regentes para el recall.
4º.- Sigue recaleando al siguiente punto para seguir comprando regentes.
5º.- Al terminar va a casa, deja los regentes, y se detiene.
Algunas sugerencias:
* Podeis hacer que la macro se repita cada X tiempo.
* También podeis hacer que se repita sólo X veces (para evitar un gasto excesivo de dinero).
* Que al terminar se valla a un sitio seguro, para evitar que os maten.
* Que si eres atacado llame a guardias.
* Que al terminar de comprar, vuelva al principio, e intente comprar siempre un regente. Si tu peso no aumenta, es que todavía no ha hecho restock el vendor, si tu peso aumenta, el vendor ha hecho restock y puede volver a iniciarse la macro.
Espero que os sirva de ayuda, o al menos de orientación para haceros vuestras propias macros, :P


Citar








