macro herrero.

[Escawen]

E estado provando esta macro y no consigo hacer que me vaya, me va muy bien asta k llega al menu de la daga, pero es como si no le diera los dos click a la daga, alguien sabe pork?


Macro crafted by SirRasel & Glacius [BdK]
; Retocada por Alex y BoXeR (BoXeR añadió un contador
; de lingotes del cofre un contador de dagas en la mochila
; y que dependiendo del nivel de herrería
; usara una coordenada para la daga u otra automáticamente)
; Macro de Herrero que fabrica martillos.
;------------------------------------------
; Quieres hacer tiquets el lote de dagas? escribe aquí si o no.
;--------------------------
set %tiquets si
:--------------------------

init events
;================================================= ================================================== ===========
;=========== VARIABLES ================================================== ======================================
;================================================= ================================================== ===========
chooseskill blac real
set %skillini #skill
set %martillo TLH
set %daga TSF
set %lingotes RMK
set %lotex 113
set %lotey 62
set %idlote CKF
set %pap BKF
set %gumpx1 94
set %gumpy1 172
set %gumpx2 305
set %gumpy2 343
set %dagax1 271
set %dagay1 67
set %dagax2 250
set %dagay2 67
set %dagax3 66
set %dagay3 67
set %martillox1 271
set %martilloy1 67
set %martillox2 250
set %martilloy2 67
set %martillox3 150
set %martilloy3 67
;================================================= ================================================== ===========
;================================================= ================================================== ===========
;=========== OPCIONES PREVIAS ================================================== ===============================
display Ok abre el cofre donde esten los materiales
wait 3s
set %cofre #lobjectid
set %cofrex #cursorx
set %cofrey #cursory
display Ok pon el cursor en la mochila de la foto del personaje
wait 3s
set %backpackx #cursorx
set %backpacky #cursory
;================================================= ================================================== ===========
;=========== INICIO DE LA MACRO ================================================== =============================
;================================================= ================================================== ===========
finditem %martillo c_ , #BACKPACKID
if #findKind = -1
{
HALT
}
set #LOBJECTID #FINDID
event macro 17 0
target
key ESC

inicio:
finditem %martillo c_ , #BACKPACKID
if #findcnt <= 1
{
GoSub FabricarMartillo
}
finditem %lingotes c_ , #BACKPACKID
if #findStack <= 20
{
goSub CojerLingotes
finditem %lingotes c_ , #BACKPACKID
}
set #LOBJECTID #FINDID
event macro 17 0
wait 40
click %dagax1 %dagay1 f
wait 20
click %dagax2 %dagay2 d
wait 20
click %dagax3 %dagay3 d
wait 20
if #SKILL <= 500
{
set %dagax4 100
set %dagay4 67
click %dagax4 %dagay4 d
}
if #SKILL > 500
{
set %dagax4b 56
set %dagay4b 60
click %dagax4b %dagay4b d
}
wait 3s
set %skillinc #SKILL - %skillini
finditem %lingotes C_ , %cofre
set %lingotescofre #FINDSTACK
finditem %daga c_ , #BACKPACKID
set %dagamochila #findCnt
{
setuotitle ------------< | Macro de Herrero | S.Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc | Lingotes que te quedan: %lingotescofre | Dagas mochila: %dagamochila | >------------
}
finditem %daga c_ , #BACKPACKID
if #findCnt >= 15
{
goSub PackDagas
gosub Guardarlote
}
goto inicio:

;================================================= ================================================== ===========
;=========== SUB COJER LINGOTES========================================== ======================================
;================================================= ================================================== ===========
Sub CojerLingotes
finditem %lingotes c_ , %cofre
if #findkind = -1
{
ignoreitem reset
HALT
}

set %carga #maxweight - #weight
set %carga %carga / 2
set %carga %carga + 1

if %carga <= 1
{
if %carga < 0
{
return
}
else
{
set %carga 2
}
}
event drag #findid
wait 10
msg %carga
msg $
wait 10
click %backpackx %backpacky p
return
;================================================= ================================================== ===========
;=========== SUB FABRICAR MARTILLO ================================================== ==========================
;================================================= ================================================== ===========
Sub FabricarMartillo
martillo:

finditem %lingotes c_ , #BACKPACKID
if #findStack <= 20
{
goSub CojerLingotes
finditem %lingotes c_ , #BACKPACKID
}
set #LOBJECTID #FINDID
event macro 17 0
wait 40
click %martillox1 %martilloy1 f
wait 30
click %martillox2 %martilloy2 d
wait 30
click %martillox3 %martilloy3 d
wait 30
if #SKILL <= 500
{
set %martillox4 100
set %martilloy4 67
click %martillox4 %martillo4 d
}
if #SKILL > 500
{
set %martillox4b 135
set %martilloy4b 67
click %martillox4b %martilloy4b d
}
wait 4s
finditem %martillo c_ , #BACKPACKID
if #findCnt >= 3
{
return
}
goto martillo
;================================================= ================================================== ===========
;=========== SUB PACK DE DAGAS ================================================== ==============================
;================================================= ================================================== ===========
Sub PackDagas

findItem %martillo C_ , #BACKPACKID
if #findCnt <= 3
{
gosub FabricarMartillo
findItem %martillo C_ , #BACKPACKID
}
set #LOBJECTID #FINDID
event macro 17 0
target
key ESC
finditem %lingotes c_ , #BACKPACKID
if #findStack <= 20
{
goSub CojerLingotes
finditem %lingotes c_ , #BACKPACKID
}
set #LOBJECTID #FINDID
event macro 17 0
click %lotex %lotey d
wait 10
return
;================================================= ================================================== ===========
;=========== SUB DEJAR PACK DE DAGAS ================================================== ========================
;================================================= ================================================== ===========
sub Guardarlote

if %tiquets = no
{
dejar:
findItem %idlote C_ , #BACKPACKID
if #findkind <> -1
{
event drag #FINDID
wait 10
click %cofrex %cofrey p
gosub Guardarlote
}
return
}
if %tiquets = si
{
lote:

findItem %idlote C_ , #BACKPACKID
if #FINDCNT > 0
{
findItem %pap G_3
if #FINDSTACK = 0
{
goto dejar
}
else
{
set #LOBJECTID #FINDID
event macro 17
wait 20
click %gumpx1 %gumpy1 1
wait 20
click %gumpx2 %gumpy2 1
target
findItem %idlote C_ , #BACKPACKID
set #LTARGETID #FINDID
wait 20
event macro 22 0
wait 20
goto guardarlote
wait 10
key ESC
click %gumpx2 %gumpx2 r
goto lote
}
}
return
}
return
;================================================= ================================================== ===========
;======================================== FIN ================================================== ===============
;================================================= ================================================== ===========

[Escawen]

alguien podria echarle un vistazo o poner alguna k tire?

[Joseph]

hola, esta hace dagas y martillos a 100% la habilidad, si tienes menos cambia las coordenadas de los menús daga y martillo, espero te funcione.

;===========================
; Macro: Herreria
; Autor: JoSePh
; EasyUO 1.5, V.177
; Servidor: Ultima Alianza
; Cliente: 7.0.8.2
;===========================

display Comienza la Macro
;-----------CONFIGURACION----------------
set %tickets 2 ;1 hace tickets, 2 guarda las dagas
set %cofre XXXXXXX
set %s_recompensas XXXXXXX
set %bolsa_dagas XXXXXXX
;----COORDENADAS MENU DAGA----------
set %x1 270
set %x2 245
set %x3 64
set %x4 134
set %y 64
;----COORDENADAS MENU MARTILLO-----
set %xb1 270
set %xb2 245
set %xb3 152
set %xb4 145
;---COORDENADAS SISTEMA DE RECOMPENSAS---
set %xr1 86
set %yr1 162
set %xr2 313
set %yr2 336
;-----------------------------------------------
set %pack_dagas CKF
set %numero_dagas 15
set %dagas TSF
set %martillos TLH
set %hierro RMK


Inicio:
gosub hierro
gosub martillos
gosub dagas
goto inicio

sub hierro

finditem %hierro C_ , #backpackid
if #FINDSTACK < 25
{
finditem %hierro C_ , %cofre
exevent drag #FINDID 100
wait 5
exevent dropc #backpackid
}
return

sub dagas

finditem %hierro C_ , #backpackid
set #LOBJECTID #FINDID
event macro 17
wait 10
click %x1 %y
wait 10
click %x2 %y d
wait 10
click %x3 %y d
wait 10
click %x4 %y d
wait 5s
if %tickets = 1
{
finditem %dagas C_ , #backpackid
if #FINDCNT => %numero_dagas
{
finditem %hierro C_ , #backpackid
set #LOBJECTID #FINDID
event macro 17
wait 10
click 108 64 d
wait 10
finditem %s_recompensas
set #LOBJECTID #FINDID
event macro 17
wait 10
click %xr1 %yr1
wait 10
click %xr2 %yr2
wait 10
ciclo:
finditem %pack_dagas C_ , #backpackid
if #findcnt > 0
{
finditem %pack_dagas C_ , #backpackid
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 22
wait 10
goto ciclo
}
}
key esc
wait 5
click 277 193 r
wait 5
}
if %tickets = 2
{
finditem %dagas C_ , #backpackid
if #FINDCNT => %numero_dagas
{
ciclo_2:
finditem %dagas C_ , #backpackid
if #findcnt > 0
{
exevent drag #FINDID
wait 5
exevent dropc %bolsa_dagas
goto ciclo_2
}
}
}
goto inicio

sub Martillos

ciclo_3:
finditem %martillos C_ , #backpackid
if #FINDCNT < 2
{
finditem %hierro C_ , #backpackid
set #LOBJECTID #FINDID
event macro 17
wait 10
click %xb1 %y
wait 10
click %xb2 %y d
wait 10
click %xb3 %y d
wait 10
click %xb4 %y d
wait 5s
goto ciclo_3
}
return



Saludos!!

[Harry_el_Sucio]

Joseph, no me coge el hierro, ni me guarda las dagas, la macro se para. De hecho, ni siquiera me da opción a configurarla, se pone directamente a hacer dagas con lo que tengo en la mochila.

[Harry_el_Sucio]

Escawen, la macro que has posteado hay que retocarla:

1- En primer lugar, fíjate en la parte del principio, donde pone:

; Quieres hacer tiquets el lote de dagas? escribe aquí si o no.
;--------------------------
set %tiquets si
:--------------------------

Observa la última línea. Quita los dos puntos, y pon el punto y coma, si no, la macro petará cuando quieras dejar los lotes de dagas en el cofre.

2- Las dagas puede que no se te hagan porque las coordenadas establecidas en la variante no te sirven con tu skill. Fíjate en que al principio de la macro se establecen muchas variables:

init events
;================================================= ================================================== ===========
;=========== VARIABLES ================================================== ======================================
;================================================= ================================================== ===========
chooseskill blac real
set %skillini #skill
set %martillo TLH
set %daga TSF
set %lingotes RMK
set %lotex 113
set %lotey 62
set %idlote CKF
set %pap BKF
set %gumpx1 94
set %gumpy1 172
set %gumpx2 305
set %gumpy2 343
set %dagax1 271
set %dagay1 67
set %dagax2 250
set %dagay2 67
set %dagax3 66
set %dagay3 67
set %martillox1 271
set %martilloy1 67
set %martillox2 250
set %martilloy2 67
set %martillox3 150
set %martilloy3 67

Hasta ahí, todo bien. No obstante, en las variables concernientes a las dagas, falta una última coordenada, que es con la que la macro hace doble click en la daga del menú para fabricarla. Esa última variable está en la siguiente parte:

if #SKILL <= 500
{
set %dagax4 100
set %dagay4 67
click %dagax4 %dagay4 d
}
if #SKILL > 500
{
set %dagax4b 56
set %dagay4b 60
click %dagax4b %dagay4b d
}

En esa parte de la macro, ésta comprueba la skill de tu pj en Herrería. Si tienes menos de 50, toma unos valores, mientras que si tienes más de 50, toma otros. Como imagino que habrás empezado Herrería desde 50, simplemente cambia los numeritos de las coordenadas que aparecen ahí por los adecuados para tu caso. IMPORTANTE: recuerda que esta variable es la correspondiente al último doble click necesario para crear la daga. No toques las otras variables que te puse al principio.

Ya me dirás si has podido arreglar el problemilla

[Joseph]

Joseph, no me coge el hierro, ni me guarda las dagas, la macro se para. De hecho, ni siquiera me da opción a configurarla, se pone directamente a hacer dagas con lo que tengo en la mochila.

Hola, la macro no te da opción a configurarla una vez este en play...,

set %tickets 2
set %cofre XXXXXXX
set %s_recompensas XXXXXXX
set %bolsa_dagas XXXXXXX

tienes que modificar estas líneas antes de nada, sustituye las x por el id del objeto, dentro del cofre pon el hierro y la bolsa donde se guardarán las dagas "%bolsa_dagas".

Un saludo.

[Macac0]

Josehp, con tu macro hay veces que me fabrica muchas "Armadura de cuero tachonado", porque puede ser?

Es decir, me empieza haciendo dagas, pero de vez en cuando fabrica una armadura de estas y asi hasta que se amontonan muchas...