buenas nesesito unas macros

[tramer]

buenas disculpen las molestias pero queria saber si alguien tendra las siguientes macros para que pueda subir las habilidades

macros:
todas las macros para hacer un busca tesoros abrir cerraduras y todo eso
todas las macros de un ladron seria robar fisgonear conocimiento de armas entre otras
y para hacerme un buen currante sastreria astesania todas
yo creo que con eso espero me ayuden porfavor a y tambn vean en el mercadillo que tambn nesesito comprar regs xD y flchas aprovecho para ponerlo aqui bueno aunque ya lo puse anteriormente muxas gracias

un saludo

[Pablit0]

Utiliza el buscador como hacemos todos

[wini13]

;==================================
; Script: Alquimia (Veneno menor)
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 06 Febrero 2010
; Finalidad: Hace pociones de veneno menor y las guarda.
;==================================
;Para la siguiente macro necesitas:
;1.- Una bolsa con morteros (herramienta indispensable).
;2.- Una bolsa con botellas vacias y nightshade.
;3.- Una bolsa donde guardar las pociones de veneno.
;4.- Comida (peras o manzanas, si quieres otro tipo añadelo en set %comida)
;A tener en cuenta: Cuando inicies la macro no tengas ni regentes, ni botellas ni pociones encima.
;A tener en cuenta: Antes de empezar asegurate de no tener mucho peso encima (no mas de unos 70 u 80 stones).
;TIENES QUE CONFIGURAR EL TIEMPO QUE TARDAS EN HACER LA POCION, ABAJO ESTA EL LUGAR DONDE LO TIENES QUE CAMBIAR.
set %night WZF
set %herramienta RQF
set %botella WUF
set %hechas 0
set %comida YSD_QQD ;Peras, Manzanas

initevents
set %confp 1

configurar:
if %confp = 1
{
Event sysmessage Abre el contenedor donde tienes los materiales.
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 las pociones.
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 principio:
}
}
goto TESC

principio:
finditem %herramienta c_ , #BACKPACKID
IF #findcnt < 1
{
GoSub cogerherramienta
}
findItem %herramienta C_ , #BACKPACKID
wait 10
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 20
key ESC
wait 10
GoTo comienzo:

comienzo:
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
finditem %botella c_ , #BACKPACKID
IF #findcnt = 0
{
GoSub cogerbotellas
}
IF #findcnt = 1 && %hechas > 4
{
GoSub dejarpociones
}
finditem %herramienta c_ , #BACKPACKID
IF #findcnt < 2
{
GoSub cogerherramienta
}
finditem %night c_ , #BACKPACKID
IF #findStack < 10
{
GoSub cogerreg
}
finditem %night c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 58 69 d
wait 5s ;CONFIGURAR AQUI EL TIEMPO QUE TARDAS EN HACER POCION
set %hechas %hechas + 1
GoTo comienzo:

Sub cogerreg
finditem %night c_ , %cofre
IF #findStack < 10
{
msg Parando macro por falta de nightshade
wait 10
msg $
halt
}
IF #weight > 300
{
msg Parando macro por exceso de peso
wait 10
msg $
halt
}
event drag #findid
wait 10
IF #FINDSTACK < 300
{
msg #FINDSTACK
}
else
{
msg 300
]
msg $
wait 10
click %mochilax %mochilay p
wait 20
return

Sub cogerherramienta
finditem %herramienta c_ , %bolsa
if #findcnt < 1
{
msg Parando macro por falta de herramientas.
wait 10
msg $
halt
}
event drag #findid
wait 10
click %mochilax %mochilay p
wait 40
return

Sub dejarpociones
wait 3s
finditem %botella c_ , #BACKPACKID
event drag #findid
wait 10
msg $
wait 20
click %destinox %destinoy p
wait 20
set %hechas 0
wait 20
IF #weight > 150
{
msg Parando macro por exceso de peso
wait 10
msg $
halt
}
finditem %botella c_ , %cofre
if #findstack < 10
{
msg Parando macro por falta de botellas.
wait 10
msg $
halt
}
event drag #findid
wait 20
if #findstack < 150
{
msg #findstack
}
else
{
msg 150
}
wait 10
msg $
wait 20
click %mochilax %mochilay p
wait 20
return

Sub cogerbotellas
finditem %botella c_ , %cofre
if #findstack < 10
{
msg Parando macro por falta de botellas.
wait 10
msg $
halt
}
event drag #findid
wait 20
if #findstack < 150
{
msg #findstack
}
else
{
msg 150
}
wait 10
msg $
wait 20
click %mochilax %mochilay p
wait 20
return

[wini13]

=========================
JoSePh: ============================
; Macro by JoSePh -Artesano-
; -Ultima Alianza-
; Client: 7.0.8.2
; EasyUO 1.5 V.177
============================

display Comienza la Macro
======CONFIGURAR============
set %cofre BEUDKND
set %producto 2 ; 1.- engranajes ; 2.- ganzuas
set %producto_guardar NWH ; engranajes RCG ; ganzuas NWH
set %limite_producto 30
============================
set %hierro RMK
set %herramienta GTL
set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE_KPE_QQD_RQ E_RUD_SQD_SPE_JQE_ZPE_IQE_YSD_HND
inicio:
gosub Herramientas
gosub HacerProducto
goto inicio
sub ReponerMaterial ;<=========================>
FINDITEM %hierro C_ , #BACKPACKID
IF #FINDSTACK < 25
{
gosub comer
FINDITEM %hierro C_ , %cofre
exevent drag #FINDID 90
wait 10
exevent dropc #BACKPACKID
wait 10
}
return
sub Herramientas ;<=========================>
ciclo:
gosub ReponerMaterial
FINDITEM %herramienta C_ , #BACKPACKID
IF #FINDCNT < 2
{
set #LOBJECTID #FINDID
event macro 17 0
wait 10
click 236 64 d
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 235 63 d
wait 3s
goto ciclo
}
return
sub HacerProducto ;<=========================>
gosub ReponerMaterial
gosub clear
FINDITEM %producto_guardar C_ , #BACKPACKID
IF #FINDSTACK >= %limite_producto
{
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc %cofre
}
wait 10
ciclo_1:
finditem %herramienta C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 10
if %producto = 1
{
if #CONTNAME = objpicker_gump
click 177 68 d
else
goto ciclo_1
wait 10
if #CONTNAME = objpicker_gump
click 105 56 d
else
goto ciclo_1
wait 2s
}
if %producto = 2
{
if #CONTNAME = objpicker_gump
click 237 63 d
else
goto ciclo_1
wait 10
if #CONTNAME = objpicker_gump
click 67 63 d
else
goto ciclo_1
wait 2s
}
return
sub clear ;<=========================>
ciclo_3:
if #CONTNAME = objpicker_gump
{
if #CONTPOSX < 0
set %x 0
else
set %x #CONTPOSX
if #CONTPOSY < 0
set %y 0
else
set %y #CONTPOSY
wait 5
click %x %y r
}
wait 5
if #CONTNAME = objpicker_gump
goto ciclo_3
else
return
sub comer ;<=========================>
finditem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
return

[wini13]

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

display Comienza la Macro
;-----------CONFIGURACION----------------
set %tickets 1 ;1 hace las bolsas tickest, 2 guarda las dagas
set %cofre REHPPMD
set %s_recompensas UNVEMND
set %bolsa_dagas ZCLIJND
;----COORDENADAS MENU DAGAS--------------
set %x1 195
set %x2 69
set %x3 120
set %x4 66
set %y 64
;----COORDENADAS MENU MARTILLOS----------
set %xb1 3028
set %xb2 221
set %xb3 148
set %xb4 59
;---COORDENADAS SISTEMA DE RECOMPENSAS---
set %xr1 86
set %yr1 162
set %xr2 313
set %yr2 336
;----------------------------------------
set %pack_dagas CKF_SSK_NSH_OSH
set %numero_dagas 15
set %dagas TSF
set %martillos TLH
set %hierro RMK

Inicio:
gosub hierro
gosub martillos
gosub dagas
goto inicio

sub hierro
wait 10
finditem %hierro C_ , #backpackid
if #FINDSTACK < 25
{
finditem %hierro C_ , %cofre
exevent drag #FINDID 100

exevent dropc #backpackid
}
return

sub dagas
wait 10
finditem %hierro C_ , #backpackid
set #LOBJECTID #FINDID
event macro 17
wait 10

cicloa:
if #CONTTYPE = N/A
{
click %x1 %y
}
else
goto cicloa

wait 10
ciclob:
if #CONTTYPE = N/A
{
click %x2 %y d
}
else
goto ciclob

wait 10
cicloc:
if #CONTTYPE = N/A
{
click %x3 %y d
}
else
goto cicloc

wait 10
ciclod:
if #CONTTYPE = N/A
{
click %x4 %y d
}
else
goto ciclod

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 1
wait 10
exevent dropc %bolsa_dagas
wait 10
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

cicloa:
if #CONTTYPE = N/A
{
click %xb1 %y
}
else
goto cicloa

wait 10
ciclob:
if #CONTTYPE = N/A
{
click %xb2 %y d
}
else
goto ciclob

wait 10
cicloc:
if #CONTTYPE = N/A
{
click %xb3 %y d
}
else
goto cicloc

wait 10
ciclod:
if #CONTTYPE = N/A
{
click %xb4 %y d
}
else
goto ciclod

wait 5s
goto ciclo_3
}
return

[wini13]

;Macro de Sastrería por Mordor/Asuma.
;********************************Configuracion********************************
set %bandanas_vender 50 ;Cuando llegue a esta cantidad, se venderan.
;********************************Macro********************************
set %rollo ZZF
set %tela RTI
set %kit HAG
set %bandana TDI
set %menu1_x 192
set %menu1_y 63
set %bandana_x 59
set %bandana_y 66
chooseskill tail real
set %skill_ini #skill
display ok Macro by Asuma/Mordor
ciclo:
FINDITEM %rollo C_ , #BACKPACKID
IF #FINDCNT > 0
{
set #LOBJECTID #FINDID
event macro 17 0
wait 20
}
IF #HITS < 90
msg guards$
goSub CompraKit
goSub CompraTela
goSub Bandanas
goSub Renovar_Titulo
goto ciclo

;********************************Subs********************************

sub Bandanas
FINDITEM %bandana C_ , #BACKPACKID
IF #FINDCNT < %bandanas_vender
{
FINDITEM %kit C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
target
FINDITEM %tela C_ , #BACKPACKID
set #LTARGETID #FINDID
event macro 22 0
wait 17
IF #SYSMSG = NO_TIENES_NI_IDEA_DE_COMO_UTILIZAR_ESTO.
{
wait 20
event sysmessage Arreglando bug...
goSub Fix
wait 20
event sysmessage Arreglado
}
;Ahora selecciono la bandana
click %menu1_x %menu1_y d
wait 17
click %bandana_x %bandana_y d
wait 15
}
IF #FINDCNT >= %bandanas_vender
{
msg Vendor sell$
wait 2s
click 329 580
wait 2s
click 376 151
wait 2s
click 601 537
wait 2s
}
return

sub Fix
set #LOBJECTID #BACKPACKID
event macro 17 0
contpos 655 390
wait 20
FINDITEM %kit C_ , #BACKPACKID
event drag #FINDID
wait 20
click 838 429 p
wait 20
FINDITEM %tela C_ , #BACKPACKID
event drag #FINDID
wait 20
key Enter
wait 20
click 707 430 p
wait 20
click 824 464 d
wait 20
click 710 462 mc
wait 20
click 710 462
wait 2s
click 100 70 r
wait 2s
click 354 252 mc
return

sub CompraTela
FINDITEM %tela C_ , #BACKPACKID
IF #FINDSTACK < 10
{
event sysmessage -----Reponiendo tela...-----
msg Vendor buy$
wait 2s
click 397 258
wait 2s
click 601 537
wait 3s
FINDITEM %rollo C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 20
}
return

sub CompraKit
FINDITEM %kit C_ , #BACKPACKID
IF #FINDCNT = 1
{
event sysmessage -----Reponiendo kit de costura...-----
msg Vendor buy$
wait 2s
click 398 138
wait 2s
click 601 537
wait 2s
goSub Comer
}
IF #FINDCNT = 0
{
event sysmessage -----Reponiendo kit de costura...-----
msg Vendor buy$
wait 2s
click 398 138
wait 2s
click 398 138
wait 2s
click 601 537
wait 2s
goSub Comer
}
return

sub Comer
FINDITEM YSD C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
return

sub Renovar_Titulo
set %skill_gain #skill - %skill_ini
FINDITEM %tela C_ , #BACKPACKID
set %c_tela #FINDSTACK
FINDITEM %bandana C_ , #BACKPACKID
set %c_bandanas #FINDCNT
SetUoTitle Sastre | Skill Inicial : %skill_ini | Skill Actual : #skill | Puntos Ganados : %skill_gain | Telas : %c_tela | Bandanas : %c_bandanas
return

[wini13]

;Macro de Cupitan para Ultima Alianza.
;Sube robar y fisgonear.
;Necesitas a otra persona al lado tuyo utilizando la misma macro.
;Antes de iniciar abre el inventario de la otra persona.
;Se ha de tener un contenedor en el inventario y bastantes monedas.
;Se recomiendo usar el modo entrenamiento, el modo masoquista y no entrar en el gremio de ladrones.
;Agradecimientos a Morius y Derlin.
;Un saludo y a disfrutarla.



initevents
chooseskill STEA real
set %skillrini #SKILL


set %dinero POF
display Ok Doble click sobre el contenedor que tienes en tu inventario y mantén el cursor encima.
wait 5s
set %micontenedor #lobjectid
set %micontenedorx #cursorx
set %micontenedory #cursory

display Ok Doble click en el contenedor del inventario de la otra persona.
wait 5s
set %contenedor #lobjectid
goto comprobar


comprobar:
{
finditem %dinero C_ , %micontenedor
if #findstack = 0
{
finditem %dinero c_ , #backpackid
event drag #findid
wait 10
msg 1
msg $
wait 10
click %micontenedorx %micontenedory p
wait 20
goto comprobar
}
else
{
goto robar
}
return
}


robar:
{
set %skillinc #SKILL - %skillrini
setuotitle Robando... | SKILL INICIAL: %skillrini | SKILL ACTUAL #SKILL | INCREMENTO %skillinc
set #lobjectid %contenedor
event macro 17 0
wait 80
finditem %dinero c_ , %contenedor
set #LTARGETID #FINDID
set #lTargetKind 1
event macro 13 33
wait 10
event macro 22 0
wait 80
goto comprobar
return
}