Bueno, a continuación pongo una macro que he hecho para subir el bowcraft. No se si en el antiguo foro había alguna, así que subo al nuevo foro la que he hecho.
Aclarar que para hacerla he tomado como base varias macros anteriormente realizadas por otras personas de esta comunidad.
La macro es muy sencilla:Código:;================================== ; Script: Bowcraft ; Autor: Kabuterimon ; Version: 1.0 ; Cliente: 2.0.3 ; Fecha del script: 07 Febrero 2007 ; Finalidad: Hace astiles de flecha para subir el bowcraft. ;================================== ;Para la siguiente macro necesitas: ;1.- Una bolsa con dagas (herramienta indispensable) ;2.- Una bolsa con un sólo tronco (no puede estar en tu mochila) ;3.- Una bolsa donde esté la madera ; ;Las dagas y la madera pueden estar en la misma bolsa, eso al gusto del consumidor. ;El tronco separado ha de estar sin más madera en esa bolsa. ;La macro dejará los ástiles de flecha en donde nosotros le mandemos. ;Si no queda madera o dagas, la macro se detiene. initevents set %confp 1 configurar: if %confp = 1 { Event sysmessage Primero has de abrir el cofre/bolsa donde se encuentran los troncos. event sysmessage Y presiona la tecla ESC set %conf 1 set %confp 2 goto TESC } if %confp = 2 { event sysmessage Pon el cursor sobre tu mochila en tu hoja de personaje. event sysmessage Y presiona la tecla ESC set %conf 2 set %confp 3 goto TESC } if %confp = 3 { event sysmessage Pon el cursor donde quieras dejar los ástiles event sysmessage Y presiona la tecla ESC set %conf 3 set %confp 4 goto TESC } if %confp = 4 { event sysmessage Abre el contenedor donde tengas las dagas event sysmessage Y presiona la tecla ESC set %conf 4 set %confp 5 goto TESC } if %confp = 5 { setuotitle Abre el contenedor donde tengas el tronco suelto y presiona ESC event sysmessage Abre el contenedor donde tengas el tronco suelto event sysmessage Recuerda que dicho contenedor no puede estar en tu mochila event sysmessage Y presiona la tecla ESC set %conf 5 goto TESC } TESC: onHotKey ESC { if %conf = 1 { set %cofre #LOBJECTID set %cofrex #CURSORX set %cofrey #CURSORY goto configurar } if %conf = 2 { set %mochilax #CURSORX set %mochilay #CURSORY goto configurar } if %conf = 3 { set %dejarx #CURSORX set %dejary #CURSORY goto configurar } if %conf = 4 { set %bolsa #LOBJECTID goto configurar } if %conf = 5 { set %bolsita #LOBJECTID goto inicio } } goto TESC inicio: findItem TSF C_ , #CHARID set %tool #findcnt if %tool < 1 { findItem TSF C_ , #BACKPACKID set %tool #findcnt if %tool < 1 { goto cogerdaga } set #LOBJECTID #FINDID wait 10 event macro 17 wait 1s Key ESC } findItem ZLK C_ , #BACKPACKID set %tronco #findstack if %tronco < 5 { goto cogermadera } findItem SLK C_ , #BACKPACKID set %astil #findstack if %astil > 100 ; tras hacer 100 astiles los deja en el lugar indicado { goto dejarastil } finditem TSF C_ , #CHARID set #LOBJECTID #FINDID wait 10 event macro 17 wait 10 findItem ZLK C_ , %bolsita wait 10 set #LTARGETID #FINDID wait 1s event macro 22 wait 1s click 110 65 d wait 1s goto inicio dejarastil: findItem SLK C_ , #BACKPACKID event drag #FINDID wait 1s msg $ wait 1s click %dejarx %dejary p wait 1s goto inicio cogermadera: findItem ZLK C_ , %cofre wait 1s set %madera #FINDSTACK wait 1s if %madera = 0 { msg halt madera $ halt } event drag #FINDID wait 1s msg 50 $ ; coge de 50 en 50 troncos wait 1s click %mochilax %mochilay p wait 1s goto inicio cogerdaga: findItem TSF C_ , %bolsa set %tools #findcnt if %tools = 0 { msg No quedan dagas $ halt } event drag #FINDID wait 10 click %mochilax %mochilay p wait 10 goto inicio
1.- Coge dagas de una bolsa si no tienes ninguna.
2.- Coge los troncos de una bolsa si no tienes en la mochila.
3.- Deja los ástiles en una bolsa que tu le indiques cuando superan cierta cantidad.
4.- Si se terminan los troncos o las dagas, la macro se detiene.
5.- Es conveniente tener previamente muchas dagas en la bolsa, para permitir un macreo más duradero.
También adjunto otras dos macros, que a mi por lo menos me son muy útiles. La primera es para hacer dagas y guardarlas en una bolsa (que posteriormente uso para la macro anterior). La otra macro es para mover herramientas de una mochila a otra; la uso por ejemplo para mover morteros de mi mochila (los compro en enormes cantidades en los NPCs) a una bolsa para posteriormente macrear.
Crear dagas y guardarlas en una bolsa:
En esta macro se puede configurar la cantidad de dagas que quieres crear (primero las hace todas, y luego las guarda todas), así como la herramienta que usarás para hacerlas (en mi caso un martillo de herrero).Código:;================================== ; Script: HacerGuardarDagas ; Autor: Kabuterimon ; Version: 1.0 ; Cliente: 2.0.3 ; Fecha del script: 07 Febrero 2007 ; Finalidad: Hacer dagas y guardarlas para su futuro uso (en bowcraft por ejemplo) ;================================== ;Para la siguiente macro necesitas: ;1.- Una bolsa con martillos (herramienta indispensable). ;2.- Una bolsa con hierro. ;3.- Una bolsa donde guardar las dagas. initevents set %cantidad 50 ; aqui ponemos cuantas dagas queremos hacer set %confp 1 set %martillo GBG ;configurar aquí el tipo de martillo configurar: if %confp = 1 { Event sysmessage Abre el cofre donde se encuentra el hierro. event sysmessage Y presiona la tecla ESC set %conf 1 set %confp 2 goto TESC } if %confp = 2 { event sysmessage Pon el cursor sobre tu mochila en tu hoja de personaje. event sysmessage Y presiona la tecla ESC set %conf 2 set %confp 3 goto TESC } if %confp = 3 { event sysmessage Abre el cofre donde se encuentran los martillos. event sysmessage Y presiona la tecla ESC set %conf 3 set %confp 4 goto TESC } if %confp = 4 { event sysmessage Pon el cursor sobre la bolsa donde quieres guardar las dagas. event sysmessage Y presiona la tecla ESC set %conf 4 goto TESC } TESC: onHotKey ESC { if %conf = 1 { set %cofre #LOBJECTID goto configurar } if %conf = 2 { set %dejarx #CURSORX set %dejary #CURSORY goto configurar } if %conf = 3 { set %bolsa #LOBJECTID goto configurar } if %conf = 4 { set %dagax #CURSORX set %dagay #CURSORY goto inicio } } goto TESC inicio: findItem %martillo C_ , #CHARID set %tool #findcnt if %tool < 1 { findItem %martillo C_ , #BACKPACKID set %tool #findcnt if %tool < 1 { goto cogermartillo } set #LOBJECTID #FINDID wait 10 event macro 17 wait 1s Key ESC } findItem RMK C_ , #BACKPACKID set %hierro #findstack if %hierro < 15 { goto cogerhierro } findItem RMK C_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 wait 1s click 270 70 wait 1s click 245 65 d wait 1s click 70 65 d wait 1s click 140 65 d wait 2s findItem TSF C_ , #BACKPACKID if #FINDCNT > %cantidad { goto guardar } goto inicio guardar: findItem TSF C_ , #BACKPACKID if #FINDSTACK = 0 { msg FIN $ halt } event drag #FINDID wait 10 click %dagax %dagay p wait 1s goto guardar cogerhierro: findItem RMK C_ , %cofre event drag #FINDID wait 10 msg 50 $ wait 1s click %dejarx %dejary p wait 10 goto inicio cogermartillo: findItem %martillo C_ , %bolsa event drag #FINDID wait 1s click %dejarx %dejary p wait 10 goto inicio
Mover herramientas de un contenedor a otro:
Si teneis cualquier duda, o alguna de la macro os da error, avisarme e intentaré corregirla. De todas formas a mi las tres me funcionan correctamente.Código:;================================== ; Script: MoverHerramientas ; Autor: Kabuterimon ; Version: 1.0 ; Cliente: 2.0.3 ; Fecha del script: 07 Febrero 2007 ; Finalidad: Mover herramientas de un contenedor a otro ;================================== ;Para la siguiente macro necesitas: ;1.- La bolsa donde se encuentran las herramientas (puede ser tu mochila) ;2.- Una bolsa donde quieras guardar las herramientas. ;3.- Una herramienta como mínimo (sino la macro no tendría sentido, :P) ;Esta macro es útil para cuando compramos muchas herramientas en un vendedor y queremos ;guardarlas en alguna bolsa en nuestra casa para macrear posteriormente. initevents set %confp 1 configurar: if %confp = 1 { Event sysmessage Dobleclick a la herramienta que deseas mover. event sysmessage Y presiona la tecla ESC set %conf 1 set %confp 2 goto TESC } if %confp = 2 { event sysmessage Abre el contenedor donde se encuentran las herramientas (origen) event sysmessage Y presiona la tecla ESC set %conf 2 set %confp 3 goto TESC } if %confp = 3 { event sysmessage Pon el cursor sobre el lugar donde quieres dejar las herramientas. event sysmessage Y presiona la tecla ESC set %conf 3 goto TESC } TESC: onHotKey ESC { if %conf = 1 { set %herramienta #LOBJECTTYPE goto configurar } if %conf = 2 { set %origen #LOBJECTID goto configurar } if %conf = 3 { set %dejarx #CURSORX set %dejary #CURSORY goto inicio } } goto TESC inicio: findItem %herramienta C_ , %origen if #FINDSTACK = 0 { msg Movidas todas las herramientas $ halt } event drag #FINDID wait 10 click %dejarx %dejary p wait 1s goto inicio
Citar
