Macro de talar terminada,xd
Explicación: La macro usa la hacha mágica. Está configurada para talar en tres bosques diferentes, tala1, tala2 y tala3. Las posiciones de las runas en el libro: En la primera posición del libro la casa, lógicamente al lado tenéis que poner el cofre donde dejareis regs y comida, sólo de una clase, peras o manzanas o ...., en la 2, 3 y 4 los bosques. Las coordenadas %posicionx_ son el #CHARPOSX de donde recaléis, es un sistema de seguridad por lo de los saves o lagazos varios. Por último cambiar el id del libro de runas y el cofre. Pongo en rojo lo que es obligatorio modificar, podéis comenzar la macro en cualquier punto de tala. Cuando te tira la madera la va recogiendo y arrastrando al siguiente punto hasta llegar a cierto peso total, %peso, entonces es cuando recalea, suerte.
Código:
;===========================
; Macro: Talar
; Autor: JoSePh
; EasyUO 1.5, V.202
; Servidor: Ultima Alianza
; Cliente: 7.0.8.2
;===========================
=========CONFIGURAR=========
set %libro_runas WBCPLND
set %cofre XANYTND
set %hacha FSF_ASF
set %casax 129
set %casay 70
set %posicionx_casa 1266
set %tala1x 129
set %tala1y 85
set %posicionx_tala1 667
set %tala2x 129
set %tala2y 100
set %posicionx_tala2 539
set %tala3x 129
set %tala3y 115
set %posicionx_tala3 527
============================
set %comida _PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF
+_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD_GQE_HND
set %arboles _3277_3278_3280_3281_3283_3284_3286_3287_3288
+_3289_3290_3291_3293_3294_3296_3297_3299_3300_3302_3303
set %regs JUF
set %regs2 MZF
set %regs3 KUF
set %madera ZLK
set %peso 750
set %Lugar 0
set %pasos 6
set %numero_arboles_talados 0
set %arboles_talados _
display Comienza la Macro!!
initevents
inicio:
event sysMessage * Escaneando... *
gosub buscar_arbol
if %lugar > 9
set %lugar 0
wait 5
if %arbol_encontrado = #true
{
event sysmessage * Llendo.. *
gosub mover
event sysmessage * Talando *
gosub talar
event sysmessage * Arboles Talados: %numero_arboles_talados
}
else
gosub caminar
goto inicio
sub buscar_arbol ;<==========================>
set %inicio_x ( #CharPosX - %pasos )
set %inicio_y ( #CharPosY - %pasos )
set %fin_x ( #CharPosX + %pasos )
set %fin_y ( #CharPosY + %pasos )
tile init
for %buscar_y %inicio_y %fin_y
{
for %buscar_x %inicio_x %fin_x
{
tile get %buscar_x %buscar_y 1 #CursKind
tile cnt %buscar_x %buscar_y #CursKind
if #TileCnt > 1
{
set %fin_ciclo #TileCnt
for %ciclo 0 %fin_ciclo
{
tile get %buscar_x %buscar_y %ciclo
if _ , #TileType , _ in %arboles
{
set %expresion _ , %buscar_x , : , %buscar_y , _
wait 5
if %expresion in %arboles_talados
{
set %arbol_encontrado #false
}
else
{
event sysmessage * Encontrado Arbol. *
set %mover_x %buscar_x
set %mover_y %buscar_y
set %tipo #TileType
set %arbol_encontrado #true
return
}
}
}
}
}
}
event sysmessage * Area Limpia *
return
sub talar ;<==========================>
set #LTargetX %mover_x
set #LTargetY %mover_y
set #LTargetZ 0
set #LTargetKind 3
set #LTargetTile %tipo
set %numero_arboles_talados %numero_arboles_talados + 1
set %arboles_talados %arboles_talados , %mover_x , : , %mover_y , _
finditem %madera C_, #BACKPACKID
exevent drag #FINDID
exevent dropc #BACKPACKID
wait 20
talar:
finditem %hacha
set #LOBJECTID #FINDID
event macro 17
target
event Macro 22
wait 10
Set %tiempo ( #SCnt + 10 )
diario:
wait 1
if %tiempo < #SCnt
goto talar
scanJournal 1
if pones_el in #JOURNAL || no_obtienes_ in #JOURNAL
goto talar
if aqui_no_ in #JOURNAL || Parece_que_ in #JOURNAL || No_lo_ in #JOURNAL || Prueba_a_ in #JOURNAL || _ni_idea_ in #JOURNAL || _muy_lejos_ in #JOURNAL || no_puedes_ in #JOURNAL
{
set %arbol_encontrado #FALSE
gosub casa
return
}
goto diario
sub casa ;<==========================>
finditem %madera G_1
exevent drag #FINDID #FINDSTACK
wait 20
gosub comprobar
return
sub comprobar ;<==========================>
wait 10
if #WEIGHT > %peso
gosub recalear
return
sub recalear ;<==========================>
gosub comer
set %lugar %lugar + 1
ciclo:
finditem %libro_runas
set #LOBJECTID #FINDID
event macro 17
wait 30
if #CONTNAME = generic_gump
click %casax %casay
else
goto ciclo
wait 12s
if #CHARPOSX <> %posicionx_casa
goto ciclo
ciclo_2:
event macro 8 7
wait 10
finditem %madera C_ , #BACKPACKID
exevent drag #FINDID #FINDSTACK
exevent dropc %cofre
wait 20
finditem %madera C_ , #BACKPACKID || %madera G_2
exevent drag #FINDID #FINDSTACK
exevent dropc %cofre
wait 20
finditem %cofre
set #LOBJECTID #FINDID
event macro 17
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDSTACK < 4
{
finditem %regs C_ , %cofre
exevent drag #FINDID 10
exevent dropc #BACKPACKID
wait 20
}
finditem %regs2 C_ , #BACKPACKID
if #FINDSTACK < 4
{
finditem %regs2 C_ , %cofre
exevent drag #FINDID 10
exevent dropc #BACKPACKID
wait 20
}
finditem %regs3 C_ , #BACKPACKID
if #FINDSTACK < 4
{
finditem %regs3 C_ , %cofre
exevent drag #FINDID 10
exevent dropc #BACKPACKID
wait 20
}
finditem %comida C_ , #BACKPACKID
if #FINDSTACK < 2
{
finditem %comida C_ , %cofre
exevent drag #FINDID 4
exevent dropc #BACKPACKID
wait 20
}
wait 10
if #WEIGHT > 100
goto ciclo_2
ciclo_3:
if %lugar < 4
{
finditem %libro_runas
set #LOBJECTID #FINDID
event macro 17
wait 30
if #CONTNAME = generic_gump
click %tala1x %tala1y
else
goto ciclo_3
wait 12s
if #CHARPOSX = %posicionx_tala1
return
else
goto ciclo_3
}
if %lugar > 6
{
finditem %libro_runas
set #LOBJECTID #FINDID
event macro 17
wait 30
if #CONTNAME = generic_gump
click %tala2x %tala2y
else
goto ciclo_3
wait 12s
if #CHARPOSX = %posicionx_tala2
return
else
goto ciclo_3
}
if %lugar > 3
{
finditem %libro_runas
set #LOBJECTID #FINDID
event macro 17
wait 30
if #CONTNAME = generic_gump
click %tala3x %tala3y
else
goto ciclo_3
wait 12s
if #CHARPOSX = %posicionx_tala3
return
else
goto ciclo_3
}
sub mover ;<==========================>
set %inicio_x #CharPosX
set %inicio_y #CharPosY
set %tiempo ( #SCnt + 1 )
mover:
move %mover_x %mover_y 1
if %tiempo < #SCnt
goto tiempo
if #CharPosX <> %mover_x || #CharPosY <> %mover_y
goto mover
tiempo:
if #CharPosX > ( %mover_x + 1 ) || #CharPosY > ( %mover_y + 1 )
gosub caminar
return
sub caminar ;<==========================>
ciclo_4:
event sysmessage * Buscando nueva ubicacion. *
set %random #random / 100
if %random < 3
goto ciclo_4
if %random = 3
{
set %inicio_x #charposx - %random
set %inicio_y #charposy - %random
move %inicio_x %inicio_y a 5s
}
wait 5
if %random = 4
{
set %inicio_x #charposx + %random
set %inicio_y #charposy + %random
move %inicio_x %inicio_y a 5s
}
wait 5
if %random = 5
{
set %inicio_x #charposx + %random
set %inicio_y #charposy
move %inicio_x %inicio_y a 5s
}
wait 5
if %random = 6
{
set %inicio_x #charposx - %random
set %inicio_y #charposy
move %inicio_x %inicio_y a 5s
}
wait 5
if %random = 7
{
set %inicio_x #charposx - %random
set %inicio_y #charposy + %random
move %inicio_x %inicio_y a 5s
}
wait 5
if %random >= 8
{
set %inicio_x #charposx + %random
set %inicio_y #charposy - %random
move %inicio_x %inicio_y a 5s
}
return
sub comer ;<=========================>
finditem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
return
Pd: Macro de minar en proceso, xdd
Saludos!!!