Bueno pues cuelgo una macro de bowcraft con una modificacion por mi para que valla rapidsima
Código:;================================== ; Script: Bowcraft ; Autor: Kabuterimon (Modificacion por morin para que valla mas rapida) ; 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 1 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 1 event macro 17 wait 1 findItem ZLK C_ , %bolsita wait 1 set #LTARGETID #FINDID wait 6 event macro 22 wait 6 click 110 65 d wait 6 goto inicio dejarastil: findItem SLK C_ , #BACKPACKID event drag #FINDID wait 6 msg $ wait 6 click %dejarx %dejary p wait 6 goto inicio cogermadera: findItem ZLK C_ , %cofre wait 6 set %madera #FINDSTACK wait 6 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 4 click %mochilax %mochilay p wait 4 goto inicio
Citar
