Recopilación de macros para subir currela

**Gonzalo Higuain** · 30-Sep-2016

Pues os voy a poner una recopilación de las macros que necesitáis para subiros un currela. Yo actualmente ando subiéndolo , y he tenido que buscar mucho para encontrar alguna macro que medio funcionase, así que os las dejare ya arregladas y explicadas de como hay que hacerlo.

MACRO PARA SUBIR CARPINTERÍA.
Necesitaremos subir esta habilidad para poder fabricar pergaminos en blanco, que después utilizaremos a su vez para subir escriba.
Necesitaremos un cofre , con muchos serruchos de carpintero dentro, y mucha madera (Yo he necesitado para subirlo 145ks de troncos ).
Recomendación (MUY IMPORTANTE): Ya que esta habilidad te sube al fabricar lotes de pergamino en blanco, y cuando empiezas con 40 de habilidad de carpintería fallas bastante, yo lo que hice es ponerme el delantal del carpintero , que te sube 5 de habilidad y hace que falles menos al fabricar el objeto y por tanto, sube antes la habilidad. Yo lo he usado hasta llegar a 70 de carpintería.
En la macro que os voy a poner , debéis llevar manzanas en la mochila para ir comiendo, y simplemente seguir los pasos que os dice.
Abrís el cofre y lo movéis a la parte derecha de la pantalla, para que no moleste al menú de carpintería, le dais a escape tres veces sobre el cofre( para coger serruchos , coger madera, soltar lotes de pergaminos en blanco) y después escape sobre la mochila de tu pj del paperdoll. NOTA

si se os raya la primera vez al coger la madera , quitáis manualmente lo que te sale al intentar sacar la madera y ya funciona a la perfección.
Se necesitan unas 6-7 noches para subirlo de 40 a 100

;==================================
; Script: Carpinteria (Pergaminos en blanco)
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 01 Febrero 2010
; Finalidad: Hace lotes de pergaminos en blanco.
;==================================
;Para la siguiente macro necesitas:
;1.- Una bolsa con serruchos (herramienta indispensable).
;2.- Una bolsa con madera.
;3.- Una bolsa donde guardar los lotes de pergaminos.
;4.- Comida (peras o manzanas, si quieres otro tipo añadelo en set %comida)

init events
chooseskill carp real
set %skillini #skill
set %madera ZLK
set %sierra AGG_EGG
set %lote MMF
set %confp 1
set %comida YSD_QQD ;Peras, Manzanas

configurar:
if %confp = 1
{
Event sysmessage Abre el contenedor donde tienes la madera.
event sysmessage Y presiona la tecla ESC.
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
event sysmessage Abre el contenedor de las herramientas.
event sysmessage Y presiona la tecla ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
event sysmessage Pon el cursor sobre el lugar donde quieres dejar los lotes.
event sysmessage Y presiona la tecla ESC
set %conf 3
set %confp 4
goto TESC
}
if %confp = 4
{
event sysmessage Pon el cursor sobre tu mochila.
event sysmessage Y presiona la tecla ESC
set %conf 4
goto TESC
}

TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
goto configurar
}
if %conf = 2
{
set %bolsa #LOBJECTID
goto configurar
}
if %conf = 3
{
set %destinox #CURSORX
set %destinoy #CURSORY
goto configurar
}
if %conf = 4
{
set %mochilax #CURSORX
set %mochilay #CURSORY
GoTo comienzo:
}
}
goto TESC

comienzo:
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
set %skillinc #SKILL - %skillini
setuotitle Carpintería: %skillini ( %skillinc )
finditem %madera c_ , #BACKPACKID
IF #findStack < 10
{
GoSub cogermadera
}
finditem %sierra c_ , #BACKPACKID
IF #findcnt < 2
{
GoSub cogersierra
}
finditem %lote c_ , #BACKPACKID
IF #findStack > 5
{
GoSub dejarlote
}
finditem %sierra c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 74 253 d
wait 5
click 274 172 d
wait 3s
GoTo comienzo:

Sub cogermadera
finditem %madera c_ , %cofre
IF #findStack < 100 || #findcnt < 1
{
halt
}
IF #weight > 320
{
msg Parando macro exceso de peso.
wait 10
msg $
halt
}
event drag #findid
wait 10
msg 80
msg $
wait 10
click %mochilax %mochilay p
wait 20
return

Sub cogersierra
finditem %sierra c_ , %bolsa
if #findcnt < 1
{
msg Parando macro faltan serruchos.
wait 10
msg $
halt
}
event drag #findid
wait 10
click %mochilax %mochilay p
wait 20
return

Sub dejarlote
finditem %lote c_ , #BACKPACKID
event drag #findid
wait 10
msg $
wait 10
click %destinox %destinoy p
wait 20
return

Macro para subir minar.

Tenéis que poner un cofre con montones de mineral de 200 en 200, y estar al lado de una forja.
Al iniciar la macro , abrís el cofre con el mineral , le dais a escape y después sobre tu mochila, darle a escape , que es donde dejará el minera para fundir.
Sube muy rápido, en menos de 24 horas lo tienes si no se te raya ni nada así.

; Macro by Alex (Ultima Alianza)
; Para Separar ores y fundirlos.
; Necesitamos un cofre donde tengamos los ores a separar y poder dejar los lingotes,
; junto a una forja, vigilad que tengamos linea de visión con ambos.
; Primero tenemos que poner cuantos ores debe separar y fundir
; es recomendable poner de 50 a 100 para que no tengamos sobrepeso
; Al empezar deberemos configurar el Cofre y un punto de nuestra mochila.
; Los pasos se explican en el UO al darle a empezar, fijaros en la barra superior del UO.
; Una vez configurado la macro empezará sola a separar, fundir y guardar.
; Macro para funcionar en Ultima Alianza
; IMPORTANTE: Haced paquetes de 200 en 200 de los minerales, no superiores (dentro del baúl).
; Poner aquí el número de ores que irá separando y fundiendo cada vez. (10, 20, 30,...)
;--------------------------
set %sep 60
:--------------------------
initevents
set %confp 1
chooseskill mini
set %skillini #skill

configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los ores a separar y manten el cursor en el.
event sysmessage Y presiona la tecla ESC
setuotitle Abre el contenedor que contiene los ores y luego manten el cursor en el y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Pon el cursor donde quieras llevar el objeto a separar de tu mochila y presiona ESC
event sysmessage Pon el cursor donde desees dejar el objeto a separar
event sysmessage Y presiona la tecla ESC
set %conf 2
goto TESC
}

TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %dejarx #CURSORX
set %dejary #CURSORY
set %tot 0
set %vez 0
set %fin 0
goto separar
}
}
goto TESC

separar:
set %skillinc #SKILL - %skillini
for %vecesS 1 %sep
{
finditem TVJ c_ , %cofre
if #FINDSTACK = 0
{
findItem GWJ C_ , %cofre
if #FINDSTACK = 0
{
findItem EWJ C_ , %cofre
if #FINDSTACK = 0
{
findItem DWJ C_ , %cofre
if #FINDSTACK = 0
{
set %fin 1
}
}

}
}
event drag #FINDID
wait 10
msg 1 $
click %dejarx %dejary p
wait 10
setuotitle Accion: Separando | Cantidad: ( %vecesS / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
}

fundir:
findItem TVJ C_ , #BACKPACKID
if #FINDSTACK > 0
{
set #LOBJECTID #FINDID
event macro 17
set %vecesF %vecesF + 1
setuotitle Accion: Fundiendo | Cantidad: ( %vecesF / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
wait 10
goto fundir
}
if %fin = 1
{
set %fin 2
}
set %vecesF 0

guardar:
setuotitle Accion: Guardando | Veces: %vez | Guardado: %tot | Inicial: %skillini | Actual: #SKILL | Inc: %skillinc
findItem RMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem NMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem XMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem TMK C_ , #BACKPACKID
}

}

}
event drag #findid
wait 10
KEY ENTER
wait 10
click %cofrex %cofrey p
set %tot %tot + #FINDSTACK
findItem RMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem NMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem XMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem TMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
if %fin = 2
{
gosub finalizar
}
}
}

}

}
if #FINDSTACK > 0
{
goto guardar
}
set %vez %vez + 1
goto separar

sub finalizar
{
display OK Se ha finalizado la macro!$No se ha encontrado más mineral que fundir.
halt
}

MACRO SUBIR HERRERÍA:

Macro para subir herrería económicamente, ya que hace tornillos y después los funde y no gasta hierro. Necesitáis un cofre con muchos martillos de herrero y lingotes de hierro y estar situados al lado de una forja y yunke .
Solo hay que cambiar la ID del cofre donde tengas el hierro y los martillos , al inicio de la macro. Si no sabéis como mirarlo , en este otro post mio podéis sacarle la ID sencillamente. (http://ultima-alianza.com/foro/macro...16/#post529000 )
Actualmente ando subiéndola, no se cuanto se tardará pero no tiene pinta de subir demasiado rápido , tened paciencia

=========CONFIGURAR=========
set %cofre FHWLNOD
=============================
set %numero_tornillos 1
set %tornillos YFG
set %martillos GBG_FBG_TLH_CGG_RMK
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

Cuando termine herrería y me ponga a subir la siguiente habilidad, las iré posteando aquí para asegurarme de que funcionen correctamente