Domar en Yew:
Código:
event SysMessage TammingGenius by Nilaween
event SysMessage Intentando acudir a la ultima posicion. Por favor, ayudame a llegar.
chooseskill Anim real
ignoreitem *bloqueados
goto movimiento
INICIO:
set *posicion *posicion + 1
nuevotarget:
set %fail 0
set %intentos 3
set %distancia 19
set #LTARGETID #CHARID
finditem * G_18
for #FINDINDEX 1 #FINDCNT
{
if #FINDREP <> 3 2
ignoreitem #FINDID
set *bloqueados *bloqueados , _ , #FINDID
if #FINDREP = 3 && #FINDID notIn %recientameados && #FINDDIST < %distancia && #FINDX < 755 2
set #LTARGETID #FINDID
set %distancia #FINDDIST
}
if #LTARGETID = #CHARID
goto movimiento
event PROPERTY #LTARGETID
if ( OSO in #PROPERTY && #SKILL < 601 ) || SERPIENTE in #PROPERTY || HORRENDO in #PROPERTY 2
set %recientameados %recientameados , _ , #LTARGETID
goto nuevotarget
set #LTARGETKIND 1
finditem #LTARGETID
repitiendotarget:
event macro 13 35
target
event macro 22 0
set %tiempoespera #SYSTIME + 16000
set %jEnd #JINDEX
escaneando:
repeat
if %tiempoespera < #SYSTIME
goto repitiendotarget
gosub seguir
until %jEnd <> #JINDEX
set %jStart %jEnd + 1
set %jEnd #JINDEX
for %i %jStart %jEnd
{
scanjournal %i
if TE_ACEPTA in #JOURNAL || TU_HABILIDAD_EN_LA_DOMA_NO_ES in #JOURNAL || %fail > 5 3
msg all release$
set %recientameados %recientameados , _ , #LTARGETID
goto nuevotarget
if YA_ESTA in #JOURNAL || NO_PUEDE_SER in #JOURNAL || NO_PUEDES_DOMAR in #JOURNAL || GET_THERE in #JOURNAL || %intentos <= 0 3
set *bloqueados *bloqueados , _ , #LTARGETID
ignoreitem #LTARGETID
goto nuevotarget
if NO_PUEDES_VER in #JOURNAL || SEE_THE_TARGET in #JOURNAL || UNEXPECTED_TARGET in #JOURNAL || FUERA_DE_TU in #JOURNAL 3
set %fail %fail + 1
gosub seguir
goto repitiendotarget
if ESTAS_DEMASIADO_LEJOS in #JOURNAL 3
gosub seguir
wait 10
goto repitiendotarget
if NO_CONSIGUES_DOMAR_EL in #JOURNAL 2
set %intentos %intentos + 1
goto repitiendotarget
}
goto escaneando
sub seguir
if %tiempopathfind > #SYSTIME && %tiempopathfind <> N/A
return
set %tiempopathfind #SYSTIME + 2000
finditem #LTARGETID
if #FINDKIND <> -1 && #FINDDIST > 4
event pathfind #FINDX #FINDY #FINDZ
return
MOVIMIENTO:
set %nuevaronda 1
goto *posicion
0:
move 636 866
set * . #TIME #TIME
goto INICIO
1:
move 646 915
goto INICIO
2:
move 568 919
goto INICIO
3:
Fundir mineral:
Código:
init events
chooseskill mini real
set %skillini #skill
set %confp 1
set %mineral EWJ_DWJ_GWJ_TVJ
set %lingote RMK_NMK_TMK_XMK
set %comida YSD_QQD
configurar:
if %confp = 1
{
Event sysmessage Abre el contenedor donde tienes el mineral.
event sysmessage Y presiona la tecla ESC.
set %confp 2
goto TESC
}
TESC:
onHotKey ESC
{
if %confp = 2
{
set %cofre #LOBJECTID
goto comienzo
}
}
goto TESC
comienzo:
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
wait 15
}
finditem %lingote c_ , #backpackid
if #findstack > 0
{
exevent drag #findid #findstack
wait 15
exevent dropc %cofre
wait 15
}
set %skillinc #SKILL - %skillini
setuotitle Mineria: %skillini ( %skillinc )
finditem %mineral c_ , #backpackid
if #findstack < 1
{
finditem %mineral c_ , %cofre
if #findstack < 2
{
display ok No hay mineral
halt
}
exevent drag #findid 100
wait 15
exevent dropc #backpackid
wait 15
goto lingote
}
lingote:
finditem %mineral c_ , #backpackid
if #findstack > 0
{
set #LOBJECTID #FINDID
event macro 17
wait 15
goto comienzo
}
goto comienzo
Guardar Mats(martillos,sierras etc)
Código:
set %pluma PBG_CXF_CGG_BGG_AGG_EGG_MQF_LQF_RQF_GTL_GBG_CKF
set %confp 1
if %confp = 1
{
set #sysmsgcol 4000
Event sysmessage Abre el contenedor donde dejaras el mineral.
set #sysmsgcol 1100
event sysmessage Y presiona la tecla ESC.
set %confp 2
goto TESC
}
TESC:
onHotKey ESC
{
if %confp = 2
{
set %cofre #LOBJECTID
goto comienzo
}
}
goto TESC
comienzo:
finditem %pluma C_ , #BACKPACKID
if #findcnt > 0
{
exevent drag #findid #findcnt
wait 20
exevent dropc %cofre
wait 20
goto comienzo
}
display ok Se acabaron las plumas.
halt
Herreria:
Código:
=========CONFIGURAR=========
set %cofre MAGGDQD
=============================
set %numero_tornillos 1
set %tornillos YFG
set %martillos GBG_FBG_TLH_CGG_RMK_BGG
set %hierro RMK
set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE , _BDF_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD
display Comienza la Macro!!
initevents
inicio:
gosub hierro
gosub tornillos
goto inicio
sub hierro ;<=======================>
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
finditem %hierro C_ , #BACKPACKID
if #FINDSTACK < 5
{
finditem %hierro C_ , %cofre
exevent drag #FINDID 50
exevent dropc #BACKPACKID
wait 20
}
return
sub martillos ;<=======================>
wait 20
finditem %martillos C_ , %cofre
wait 20
exevent drag #FINDID 1
wait 20
exevent dropc #BACKPACKID
wait 20
return
sub tornillos ;<=======================>
finditem %martillos C_ , #CHARID
if #FINDCNT < 1
{
finditem %martillos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
finditem %martillos C_ , #CHARID
if #FINDSTACK < 1
{
gosub martillos
wait 10
finditem %martillos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
}
finditem %hierro C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 65 310
wait 10
click 270 150
wait 10
for %i 1 15
{
wait 10
if Pones_ in #SYSMSG
goto sigue
}
sigue:
finditem %tornillos C_ , #BACKPACKID
if #FINDCNT => %numero_tornillos
gosub fundirtornillos
return
sub fundirtornillos ;<=======================>
wait 1s
finditem %martillos C_ , #CHARID
if #FINDCNT < 1
{
finditem %martillos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
finditem %martillos C_ , #CHARID
if #FINDSTACK < 1
{
gosub martillos
wait 10
finditem %martillos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
}
finditem %hierro C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 69 423
finditem %tornillos C_ , #BACKPACKID
if #FINDCNT > 0
{
set #LTARGETID #FINDID
set #LTARGETKIND 1
wait 10
event macro 22
wait 10
goto sigue
}
key esc
click 277 200 r
return
ID:
Código:
initevent
display ok Pulsa Aceptar
+ y
+ selecciona
+ el objetivo
SET #TARGCURS 1
WHILE #TARGCURS = 1
WAIT 5
FINDITEM #LTARGETID
wait 5
event property #LTARGETID
DISPLAY OK ID : #LTARGETID $$
+TYPE : #FINDTYPE $$
+COLOR : #FINDCOL $$
+PROPIEDADES : #PROPERTY
stop
Loot Npc(hay que pulsar contro+q)
Código:
set %loot POF_OZF_XYF_EAG_SEE_RWF_QZF_RWF_LZF_UVF_IUF_WUF_KZF_GUL_KZF_KUF_JUF_RZF_VLK_HUF_LNK_SZF_GUF_DUF_JZF_
a:
onHotKey Q ctrl
goto Q
goto a
Q:
finditem %loot C_ , #CONTID
for #FINDINDEX 1 #FINDCNT
{
exevent drag #FINDID #FINDSTACK
wait 7
exevent dropc #BACKPACKID
wait 7
}
Insignias carpintero:
Código:
Código:
;==================================================
;GREMIO DE CARPINTERIA (INSIGNIAS) BY JAVIERCV
;==================================================
set #SYSMSGCOL 1100
event sysmessage Macro de preparacion de insignias
event sysmessage del gremio de carpinteros
event sysmessage By JavierCV
;==================================================
;CONFIGURACIÓN
;Para el funcionamiento del macro necesitas tener 6 bolsas dentro de un contenedor.
;bolsa 1: sierras de carpintero
;bolsa 2: madera normal
;bolsa 3: madera mágica
;bolsa 4: insignia diaria
;bolsa 5: insignia normal
;bolsa 6: insignia semanal
;==================================================
set %contenedor SUGJQOD ;Contenedor donde están las bolsas
set %BolsaSierras ESAQBND ;Bosa con las sierras de carpintero
set %BolsaMadera IUACBQD ;Bosa con madera
set %BolsaMagica NUACBQD ;Bosa con madera mágica
set %BolsaRapida JUACBQD ;Bosa donde dejar el material de la insignia RAPIDA (diaria)
set %BolsaNormal HUACBQD ;Bosa donde dejar el material de la insignia NORMAL
set %BolsaSemanal KUACBQD ;Bosa donde dejar el material de la insignia SEMANAL
;==================================================
;NO TOCAR NADA A PARTIR DE AQUÍ
;==================================================
set %insignia MTL ;ID de las insignias (todas tienen el mismo ID)
set %insigniacreada ACBB ;ID de las insignias creadas (todas tienen el mismo ID)
set %sierra AGG ;ID de las sierras
set %madera ZLK ;ID de la madera y la madera mágica
set %tablones DMK ;ID del lote de tablones
set %banco QIE ;ID de los bancos de cerezo
set %maquetabarco FWH ;ID de las maquetas de barcos
set %diana UNL ;ID de las dianas
set %trono EJE ;ID de los tronos
set %cofremadera KIF ;ID de los cofres de madera
set %estanteria BDE ;ID de las estanterias
set %dianaEntrenamiento WEG ;ID de la diana de entrenamiento
set %rueca XEG ;ID de la rueca
set %canaMagica XHF ;ID de la caña de pescar mágica
;==================================================
;HILO PRONCIPAL DEL MACRO
;==================================================
gosub Menu
loop:
if #menubutton <> n/a
{
gosub #menubutton
set #menubutton n/a
;INSIGNIA RAPIDA
sub EUOButton1
gosub InsigniaRapida
return
;INSIGNIA NORMAL
sub EUOButton2
gosub InsigniaNormal
return
;INSIGNIA SEMANAL
sub EUOButton3
gosub InsigniaSemanal
return
}
goto loop
;==================================================
;RENDERIZADO DEL MENÚ
;==================================================
sub Menu
menu Clear
menu Window Title Gremio de Carpinterios
menu Window Size 190 127
menu Font Size 8
menu Text EUOLabelb1a 5 17 Insignia Rapida
menu Button EUOButton1 100 5 80 35 CREAR
menu Text EUOLabelb2a 5 57 Insignia Normal
menu Button EUOButton2 100 45 80 35 CREAR
menu Text EUOLabelb3a 5 97 Insignia Semanal
menu Button EUOButton3 100 85 80 35 CREAR
menu Show
return
;==================================================
;INSIGNIA RAPIDA
;==================================================
sub InsigniaRapida
event sysmessage Iniciando creacion de insignia rapida
;abre cofre
set #LOBJECTID %contenedor
event macro 17 0
wait 10
;1- hace el lote de tablones
gosub tablones 1
;2- hace 5 bancos
gosub bancos 5
;3- hace 7 maquetas de barco
gosub maquetabarcos 7
;4- coge la insignia rapida
gosub coger %BolsaRapida %insignia 1
;5- hace la insignia
FindItem %insignia C_ , #BACKPACKID
SET #LOBJECTID #FINDID
Event Macro 17
wait 10
;6- deja la insignia
gosub dejar %BolsaRapida %insignia
gosub dejar %BolsaRapida %insigniacreada
event sysmessage Insignia rapida creada
return
;==================================================
;INSIGNIA NORMAL
;==================================================
sub InsigniaNormal
event sysmessage Iniciando creacion de insignia normal
;abre cofre
set #LOBJECTID %contenedor
event macro 17 0
wait 10
;1- hace el lote de tablones
gosub tablones 1
;2- hace 5 dianas
gosub dianas 5
;3- hace 5 tronos
gosub tronos 5
;4- hace 5 cofres de madera
gosub cofres 5
;5- hace 3 estanterias
gosub estanterias 3
;6- coge la insignia normal
gosub coger %BolsaNormal %insignia 1
;7- hace la insignia
FindItem %insignia C_ , #BACKPACKID
SET #LOBJECTID #FINDID
Event Macro 17
wait 10
;8- deja la insignia
gosub dejar %BolsaNormal %insignia
gosub dejar %BolsaNormal %insigniacreada
event sysmessage Insignia normal creada
return
;==================================================
;INSIGNIA SEMANAL
;==================================================
sub InsigniaSemanal
event sysmessage Iniciando creacion de insignia semanal
;abre cofre
set #LOBJECTID %contenedor
event macro 17 0
wait 10
;1- hace 2 lotes de tablones
gosub tablones 2
;2- hace 2 dianas de entrenamiento
gosub dianasEntrenamiento 2
;3- hace 2 ruecas
gosub ruecas 2
;4- hace 10 cofres de madera
gosub cofres 10
;5- hace 5 cañas mágicas
gosub canasMagicas 5
;6- Coge 20 de madera mágica
gosub coger %BolsaMagica %madera 20
;7- coge la insignia semanal
gosub coger %BolsaSemanal %insignia 1
;5- hace la insignia
FindItem %insignia C_ , #BACKPACKID
SET #LOBJECTID #FINDID
Event Macro 17
wait 10
;6- deja la insignia
gosub dejar %BolsaSemanal %insignia
gosub dejar %BolsaSemanal %insigniacreada
event sysmessage Insignia semanal creada
return
;==================================================
;TABLONES
;==================================================
sub tablones %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 150 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 lote de tablones
Event Macro 17
wait 20
click 69 251 ;otros
wait 2s
click 272 132 ;lote de tablones
wait 5s
;Hace lotes de tablones hasta que llega a la cantidad indicada
finditem %tablones C_ , #BACKPACKID
if #FINDSTACK = %cantidad
{
event sysmessage %cantidad Lote(s) de tablones creado(s)
}
else
{
gosub tablones %cantidad
}
return
;==================================================
;BANCOS
;==================================================
sub bancos %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 17 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 banco de cerezo
Event Macro 17
wait 20
click 69 171 ;mobiliario
wait 2s
click 437 350 ;siguiente
wait 2s
click 437 350 ;siguiente
wait 2s
click 275 250 ;banco de cerezo
wait 5s
;Hace bancos de cerezo hasta que llega a la cantidad indicada
finditem %banco C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad Banco(s) de cerezo creado(s)
}
else
{
gosub bancos %cantidad
}
return
;==================================================
;MAQUETAS DE BARCOS
;==================================================
sub maquetabarcos %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 10 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 maqueta de barco
Event Macro 17
wait 20
click 70 214 ;decoración
wait 2s
click 277 111 ;maqueta de barco
wait 5s
;Hace maquetas de barco hasta que llega a la cantidad indicada
finditem %maquetabarco C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad maqueta(s) de barco creada(s)
}
else
{
gosub maquetabarcos %cantidad
}
return
;==================================================
;DIANAS
;==================================================
sub dianas %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 5 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 diana
Event Macro 17
wait 20
click 70 291 ;entrenamiento
wait 2s
click 277 111 ;diana
wait 5s
;Hace dianas hasta que llega a la cantidad indicada
finditem %diana C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad diana(s) creada(s)
}
else
{
gosub dianas %cantidad
}
return
;==================================================
;TRONOS
;==================================================
sub tronos %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 17 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 trono
Event Macro 17
wait 20
click 70 170 ;Mobiliario
wait 2s
click 437 350 ;siguiente
wait 2s
click 277 290 ;trono
wait 5s
;Hace tronos hasta que llega a la cantidad indicada
finditem %trono C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad trono(s) creada(s)
}
else
{
gosub tronos %cantidad
}
return
;==================================================
;ESTANTERIAS
;==================================================
sub estanterias %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 25 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 estanteria
Event Macro 17
wait 20
click 70 170 ;Mobiliario
wait 2s
click 437 350 ;siguiente
wait 2s
click 277 109 ;estanteria
wait 5s
;Hace estanterias hasta que llega a la cantidad indicada
finditem %estanteria C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad estanteria(s) creada(s)
}
else
{
gosub estanterias %cantidad
}
return
;==================================================
;COFRES DE MADERA
;==================================================
sub cofres %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 20 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 cofre de madera
Event Macro 17
wait 20
click 70 150 ;Contenedores
wait 2s
click 270 130 ;Cofre de madera
wait 5s
;Hace cofres de madera hasta que llega a la cantidad indicada
finditem %cofremadera C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad cofre(s) de madera creada(s)
}
else
{
gosub cofres %cantidad
}
return
;==================================================
;DIANA DE ENTRENAMIENTO
;==================================================
sub dianasEntrenamiento %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 30 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 diana de entrenamiento
Event Macro 17
wait 20
click 70 293 ;entrenamiento
wait 2s
click 270 170 ;diana de entrenamiento
wait 5s
;Hace dianas de entrenamiento hasta que llega a la cantidad indicada
finditem %dianaEntrenamiento C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad diana(s) de entrenamiento creada(s)
}
else
{
gosub dianasEntrenamiento %cantidad
}
return
;==================================================
;RUECAS
;==================================================
sub ruecas %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 20 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMadera %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 rueca
Event Macro 17
wait 20
click 70 270 ;sastre
wait 2s
click 270 130 ;rueca
wait 5s
;Hace ruecas hasta que llega a la cantidad indicada
finditem %rueca C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad rueca(s) creada(s)
}
else
{
gosub ruecas %cantidad
}
return
;==================================================
;CAÑAS MÁGICAS
;==================================================
sub canasMagicas %1
set %cantidad %1
;check sierras
finditem %sierra C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub coger %BolsaSierras %sierra 1
}
;coge madera si necesita
finditem %madera C_ , #BACKPACKID
set %tmp 1 - #FINDSTACK
if %tmp > 0
{
gosub coger %BolsaMagica %madera %tmp
}
;selecciona sierra
FindItem %sierra C_ , #BACKPACKID
SET #LOBJECTID #FINDID
;hace 1 rueca
Event Macro 17
wait 20
click 70 230 ;herramientas
wait 2s
click 270 170 ;caña mágica
wait 5s
;Hace cañas mágicas hasta que llega a la cantidad indicada
finditem %canaMagica C_ , #BACKPACKID
if #FINDCNT = %cantidad
{
event sysmessage %cantidad caña(s) magica(s) creada(s)
}
else
{
gosub canasMagicas %cantidad
}
return
;==================================================
;COGER
;==================================================
sub coger %1 %2 %3 ;CONTENEDOR - ITEM - CANTIDAD
set #LOBJECTID %1
event macro 17 0
wait 10
finditem %2 C_ , %1
if #findcnt > 0
{
exevent drag #FINDID %3
wait 10
exevent dropc #BACKPACKID
wait 10
}
return
;==================================================
;DEJAR
;==================================================
sub dejar %1 %2 ;CONTENEDOR - ITEM
set #LOBJECTID %1
event macro 17 0
wait 10
finditem %2 C_ , #BACKPACKID
if #findcnt > 0
{
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc %1
wait 10
gosub dejar %1 %2 ;repite mientras queden
}
return