Aloisia, espero que no te importe pero he modificado dos aspectos de la macro, te la pongo aquí por si te interesa.
Una macro genial, gracias!
Parte modificada:
Código:
if %confp = 4
{
set #TARGCURS 1 ; NOTA: activa el target del ratón sin usar poisoning
TARGET
event sysmessage Targetea el tronco que esta solo en un contenedor.
event sysmessage Recuerda que dicho contenedor no puede estar en tu mochila
event sysmessage Y presiona la tecla ESC
set %conf 4 ; NOTA: estaba a 5 y no hacía nada
goto TESC
}
Macro completa:
Código:
;==================================
; Script: Bowcraft
; Autor: Aloisia
; Version: 1.1 (Gracias a Darksplit por darme a conocer el comando Exevent)
; Cliente: 2.0.3
; Fecha del script: 05 Febrero 2010; v1.1 08 Mayo 2010
; 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 %daga TSF
set %tronco ZLK
set %astil SLK
set %confp 1
set %comida YSD_QQD ;Peras, Manzanas
chooseskill bowc real
set %skillini #skill
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 Abre el contenedor donde quieras dejar los ástiles
event sysmessage Y presiona la tecla ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
event sysmessage Abre el contenedor donde tengas las dagas
event sysmessage Y presiona la tecla ESC
set %conf 3
set %confp 4
goto TESC
}
if %confp = 4
{
set #TARGCURS 1
TARGET
event sysmessage Targetea el tronco que esta solo en un contenedor.
event sysmessage Recuerda que dicho contenedor no puede estar en tu mochila
event sysmessage Y presiona la tecla ESC
set %conf 4
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %destino #LOBJECTID
goto configurar
}
if %conf = 3
{
set %bolsa #LOBJECTID
goto configurar
}
if %conf = 4
{
set %tronquito #LTARGETID
goto inicio
}
}
goto TESC
inicio:
set %skillinc #SKILL - %skillini
setuotitle Bowcraft: #SKILL ( %skillinc )
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
findItem %daga C_ , #CHARID
if #findcnt < 1
{
findItem %daga C_ , #BACKPACKID
if #findcnt < 1
{
goto cogerdaga
}
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 1s
Key ESC
}
findItem %tronco C_ , #BACKPACKID
if #findstack < 5
{
goto cogermadera
}
findItem %astil C_ , #BACKPACKID
if #findstack > 100 ; tras hacer 100 astiles los deja en el lugar indicado
{
goto dejarastil
}
finditem %daga C_ , #CHARID
set #LOBJECTID #FINDID
event macro 17
wait 20
set #LTARGETID %tronquito
event macro 22
wait 20
click 110 65 d
wait 10
goto inicio
dejarastil:
findItem %astil C_ , #BACKPACKID
Exevent Drag #findid #findstack
wait 10
Exevent Dropc %destino
wait 1s
goto inicio
cogermadera:
findItem %tronco C_ , %cofre
if #Findstack = 0
{
msg halt madera $
halt
}
IF #weight > 220
{
msg Parando macro exceso de peso.
wait 10
msg $
halt
}
Exevent Drag #findid 50
wait 10
Exevent Dropc #BACKPACKID
wait 1s
goto inicio
cogerdaga:
findItem %daga C_ , %bolsa
set %tools #findcnt
if %tools = 0
{
msg No quedan dagas $
halt
}
Exevent Drag #findid
wait 10
Exevent Dropc #BACKPACKID
wait 10
goto inicio
Citar
