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