Macros necesito!!!

**Yesus** · 10-Dec-2007

Hola pues necesito estas macros:
Alguna que me suba artesania de arcos (si es hacer flechas mejor)
Alquimia que funcione para hacer keg con solo un frasco (la de siempre)
Carpinteria (que aga lotes de mapas o pergaminos)
Y LA QUE MAS NECESITO ES DE TALAR QUE NO SUELTE TRONCOS LOS GUARDE O QUE SUELTE PERO MEJOR UNA QUE GUARDE HAMBAS SON CORRECTAS

MUCHAS GRACIAS UN SALUDO

**Mortae Rex** · 10-Dec-2007

Alguien con necesidad de tantas macros, deberia aprender a hacerlas

Si decidis hacerlo, puedo ayudarte un poco a aprender, pero AYUDAR, no enseñar, ke para eso la unica manera es leyendo, analizando macros y probando.

toma mucho tiempo, pero vale la pena! tengo todas esas macros hechas por mi mismo ^^
pero te digo, me tomo meses o años llegar de macro para hiding a macros de esa complejidad y aun me falta muuucho por aprender...

y si no las paso, es porke ya lo he hecho antes y me arruina el comercio xD

pero como siempre, me ofrezco en todo lo ke pueda a ayudar a aprender

suerte!

**o0{BoXeR}0o** · 10-Dec-2007

Si usara el buscar se hubiera ahorrado este post.

**Yesus** · 11-Dec-2007

Vsle pues ayudame a hacer aber si es verdad y me ago todas la que quiera.
Boxer donde esta el buscar para poder ver las macros con exactitu ¿te refieres a eso no?

**Mortae Rex** · 11-Dec-2007

Regresar Ultima Alianza > Juegos UA > UA-Sphere > Ayuda > Macros
Recargar página Macros necesito!!!

Panel de Control Proyectos FAQ / Ayuda Lista de usuarios Calendario Nuevos mensajes Buscar Acceso rápido Cerrar sesión

ahi podes buscar en todo el foro. para buscar en una seccion especifica (como en ua-sphere --> macros) le das en buskeda avanzada

con gusto te ayudo.
abre el easy y le das click en el icono de la casita, para ir a la web del easy. vas a documentacion y comienzas por leer la ayuda para principiante.

luego, esta la documentacion propiamente... esa la consultaras siempre (yo lo sigo haciendo cada ke tengo una duda)

empieza a leer macros faciles, buscando ke hace cada comando para ke aprendas a "leer" el codigo.

luego intenta hacer algo similar.

algo para comenzar, podria ser ke hagas una macro muy sencilla de hiding.

comienza a aprender ke significa cada variable del sistema (las ke estan en la parte derecha del easy y comienzan con gato #) y a jugar con estas y las variables del usuario (con % )

consulta la seccion de "event macro" ke es muy util

mira la seccion de "flujo" ke te enseñara como ordenar los comandos

aprende luego a usar el comando FINDITEM para usarlos con "event macro 17 0" por ejemplo (mismo ke Last Object)

luego viene el comando Event Drag para arrastrar y despues aprende a hacer scripts mas ordenados usando "gosub" en vez de "goto"

para no olvidar lo ke haces, siempre intenta comentar lo ke estas haciendo
un punto y coma hace esto. el programa ignora todo lo ke le sigue al punto y come en la misma linea
ej:

;voy a asignar el ID de mi mochila a la variable %mochila
set #BACKPACKID %mochila

y asi vas yendo.

cualkier duda, pregunta aki... veras ke la gente es mucho mas accesible para ayudar a resolver un problema ke para hacerte una macro

Saludos!

**Rakel Winchester** · 11-Dec-2007

subir fabricar arcos, lo que hace es fabricar astiles a partir de troncos para lo cual necesitaréis madera y dagas.la macro es de hace mil años asi que ni idea de quien la hizo, yo no asi que por eso no puedo dar soporte, espero que te sirva Yesus

Prerrequisitos:

1) Tener en la mochila una bolsa o contenedor que tenga un tronco suelto dentro. El ID de esta bolsa hay que ponerlo en la variable %cTroncoID.

2) Tener un cofre cerca donde debe estar la madera almacenada, que será donde se dejen los astiles. El ID de este cofre se configura en %cofreID y su posición en %x y %y (coordenadas del ratón a partir del sitio donde vais a macrear).

3) Dentro del cofre de la madera debe haber una bolsa o contenedor que contenga las dagas que se emplean para fabricar los arcos. El ID de esta bolsa se configura en %cDagasID.

4) Por último hay que configurar la posición de la mochila del paperdoll, son las coordenadas del ratón que se guardan en %mochilaX y %mochilaY.

Código:

# COMENZAD CON ALGUNAS DAGAS EN LA MOCHILA
# Y UN TRONCO SUELTO DENTRO DE ALGUN CONTENEDOR
# QUE ESTE EN LA MOCHILA

chooseskill BOWC REAL
set %habilidadInicial #SKILL
set %cofreID PMAXBQD
set %cDagasID VPOZCPD
set %cTroncoID FXIYUPD
set %mochilaX 761
set %mochilaY 9
set %x 64
set %y 64

nextCPos 0 150
set #LOBJECTID %cTroncoID
event Macro 17 0 0
wait 5
gosub EsperaContenedor #CONTID %cofreID
finditem ZLK C_ , %cTroncoID
wait 5
set %troncoID #FINDID

INICIO:

setuotitle FABRICAR ARCOS | Inicial: %habilidadInicial | Actual: #SKILL
nextCPos 0 350
set #LOBJECTID %cofreID
event Macro 17 0 0
wait 5
gosub EsperaContenedor #CONTID %cofreID

finditem ZLK C_ , #BACKPACKID
wait 5
if #FINDSTACK < 10
{
  finditem ZLK C_ , %cofreID
  wait 5
  event Drag #FINDID
  wait 15
  gosub EsperaVentana CONTNAME stack_gump
  msg 50 $
  click %mochilaX %mochilaY p
  wait 1s
}

finditem %cDagasID C_ , %cofreID
nextCPos 0 150
set #LOBJECTID %cDagasID
event Macro 17 0 0
wait 5
gosub EsperaContenedor #CONTID %cDagasID

finditem TSF C_ , %cDagasID
wait 5
event Drag #FINDID
wait 5
click %mochilaX %mochilaY p
wait 1s

finditem TSF C_ , #BACKPACKID
wait 5
set #LOBJECTID #FINDID
wait 5
event Macro 17 0 0
target 1s
key ESC

FABRICANDO:

finditem ZLK C_ , #BACKPACKID
wait 5
if #FINDSTACK > 5
{
  finditem TSF C_ , #BACKPACKID
  wait 5
  set #LOBJECTID #FINDID
  set #LTARGETID %troncoID
  set #LTARGETKIND 1
  wait 5
  event Macro 17 0 0
  target 1s
  event Macro 22 0 0
  gosub EsperaVentana CONTNAME objpicker_gump
  click 106 61 d
  wait 15
  goto FABRICANDO
}

nextCPos 0 150
finditem SLK C_ , #BACKPACKID
wait 5
event Drag #FINDID
wait 5
gosub EsperaVentana CONTNAME stack_gump
msg $
click %x %y p
wait 5

goto INICIO

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,

sub EsperaVentana
  set %tMax #SCNT
  ESPERA1:
  if # . %1 <> %2
  {
    wait 1
    if %tMax + 5 < #SCNT
      return #FALSE
    goto ESPERA1
  }
return #TRUE

sub EsperaCofre
  set %tMax #SCNT
  ESPERA2:
  if # . %3 <> 180_240 || # . %1 <> %2
  {
    wait 1
    if %tMax + 5 < #SCNT
      return #FALSE
    goto ESPERA2
  }
return #TRUE

sub EsperaContenedor
  set %tMax #SCNT
  ESPERA3:
  if %1 <> %2
  {
    wait 1
    if %tMax + 5 < #SCNT
      return #FALSE
    goto ESPERA3
  }
return #TRUE

**Rakel Winchester** · 11-Dec-2007

Código:

; Macro de CARPINTERIA
; por Da Vinci

set %mochilaX 798
set %mochilaY 215
set %mapas no
set %contMaderaID KLQKDPD
set %x 342
set %y 201

INICIO:

nextCPos 0 350
set #LOBJECTID %contMaderaID
event Macro 17 0 0
wait 5
gosub EsperaContenedor #CONTID %contMaderaID


finditem ZLK C_ , #BACKPACKID
wait 1s
if #FINDSTACK < 30
{
  finditem ZLK C_ , %contMaderaID
  wait 5
  event Drag #FINDID
  wait 5
  gosub EsperaVentana CONTNAME stack_gump
  msg 70 $
  click %mochilaX %mochilaY p
  wait 1s
}

FABRICANDO:
finditem ZLK C_ , #BACKPACKID
wait 1s
if #FINDSTACK > 8
{
  chooseSkill Carpentry
  finditem AGG C
  wait 5
  set #LOBJECTID #FINDID
  event Macro 17 0 0
  gosub EsperaVentana CONTNAME objpicker_gump
  click 266 67 x 20
  click 75 75 d
  gosub EsperaVentana CONTNAME objpicker_gump
  wait 1
  if %mapas = si
    click 102 62 d
  else
    click 60 62 d
  wait 8s
  goto FABRICANDO
}
wait 6s
nextCPos 0 150
finditem MMF C_ , #BACKPACKID
wait 5
event Drag #FINDID
wait 5
gosub EsperaVentana CONTNAME stack_gump
msg $
click %x %y p

goto INICIO

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,

sub EsperaVentana
  set %tMax #SCNT
  ESPERA1:
  if # . %1 <> %2
  {
    wait 1
    if %tMax + 5 < #SCNT
      return #FALSE
    goto ESPERA1
  }
return #TRUE

sub EsperaCofre
  set %tMax #SCNT
  ESPERA2:
  if # . %3 <> 180_240 || # . %1 <> %2
  {
    wait 1
    if %tMax + 5 < #SCNT
      return #FALSE
    goto ESPERA2
  }
return #TRUE

sub EsperaContenedor
  set %tMax #SCNT
  ESPERA3:
  if %1 <> %2
  {
    wait 1
    if %tMax + 5 < #SCNT
      return #FALSE
    goto ESPERA3
  }
return #TRUE

**Rakel Winchester** · 11-Dec-2007

Código:

; Macro by Charlie (Ultima Alianza)
; Para hacer la pocion que queramos hasta 5 kegs
; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA
; Necesitamos un cofre/bolsa/contenedor donde tengamos los materiales (mucha cantidad de regs y morteros)
; En la mochila necesitamos tener un o dos morteros (cuando se acaben cogera mas morteros del cofre)
; Al empezar habrá que configurar el cofre/bolsa/contenedor donde se tiene los materiales dichos arriba
; Después donde queremos que deje los materiales en nuestra mochila, e indicar la mochila del parpedoll y kegs que usaremos
; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA

; CONFIGURACIóN :
;--------------------------
; Indica que pocion quieres hacer:
; 1- Veneno Menor
; 2- Veneno
; 3- Veneno Mejorado
; 4- Veneno Mortal
; 5- Curación Menor
; 6- Curación
; 7- Curación Mejorada
; 8- Antidoto Menor
; 9- Antidoto
; 10- Antidoto Mejorada
; 11- Agilidad
; 12- Agilidad Mejorada
; 13- Resistencia
; 14- Resistencia Mejorada
; 15- Fuerza
; 16- Fuerza Mejorada
; 17- Explosion Menor
; 18- Explosion
; 19- Explosion Mejorada
; 20- Visión Nocturna
; 21- Encoger
; 22- Mana
; 23- Mana Total
; 24- Piel de Piedra
; 25- Invisibilidad
; 26- Disipar
; 27- Bendecir
; 28- Armor Reactive
; 29- Sustento
; 30- Cambio de Sexo
;--------------------------
set %pocion 1
;--------------------------

; Indica cuanta cantidad quieres hacer ( 999 son 1000 pociones, 499 son 500 pociones, etc...):
; Si falla una poción no contara como una vez hecha
;--------------------------
set %veces 999
;--------------------------

; Indica cuantos kegs vas a usar para meter las pociones:
; 0- Mete las pociones en un solo keg
; 1- Mete las pociones en DOS kegs
; 2- Mete las pociones en TRES kegs
; 3- Mete las pociones en CUATRO kegs
; 4- Mete las pociones en CINCO kegs
; Los kegs hay que tenerlo bloqueados en el suelo de la casa
;--------------------------
set %kegs 0
;--------------------------




initevents
set %confp 1
set %conf 0
set %confx 0

set %menu1x 61
set %menu1y 64
set %menu2x 101
set %menu2y 66
set %menu3x 146
set %menu3y 65

; ---- Pociones ----

set %pocionblanco WUF

; ---- Materiales ----

set %mortero RQF
set %ss RZF
set %sa SZF
set %ns WZF
set %mr MZF
set %gs JZF
set %gl KZF
set %bm JUF
set %bp KUF
set %am IUF
set %on LZF
set %bt FUF
set %sd QZF

set %kegx
set %kegy
set %keg1x
set %keg1y
set %keg2x
set %keg2y
set %keg3x
set %keg3y
set %keg4x
set %keg4y
set %keg5x
set %keg5y

configurar:
if %confp = 1
{
	Event sysmessage Abre el cofre en el que tienes los materiales, manten el cursor sobre el.
	event sysmessage Y presiona la tecla ESC
	setuotitle  Abre el contenedor que contiene los materiales y luego manten el curso en el y presiona ESC
	set %conf 1
	set %confp 2
	goto TESC
}
if %confp = 2
{
	Event sysmessage Pon el cursor donde desees dejar los materiales en tu mochila
	event sysmessage Y presiona la tecla ESC
	setuotitle  Pon el cursor donde quieras llevar los materiales en tu mochila y presiona ESC
	set %conf 2
	set %confp 3
	goto TESC
}
if %confp = 3
{
	Event sysmessage Haz doble click a la mochila de tu parpedoll
	event sysmessage Y presiona la tecla ESC
	setuotitle  Haz doble click a la mochila de tu parpedoll y presiona ESC
	set %conf 3
	set %confp 4
	goto TESC
}
if %confp = 4
{
	Event sysmessage Pon el cursor donde tengas un keg bloqueado en el suelo
	event sysmessage Y presiona la tecla ESC
	setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
	set %conf 4
	set %confp 5
	goto TESC
}

if %confp = 5
{
	if %kegs = 1
	{
		Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
		event sysmessage Y presiona la tecla ESC
		setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
		set %conf 5
		set %confp 6
		goto TESC
	}
set %confp 6
goto configurar
}
if %confp = 6
{
	if %kegs = 2
	{
		if %confx = 0
		{
			Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 6
			goto TESC
		}
		if %confx = 1
		{
			Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 6
			goto TESC
		}
		if %confx = 2
		{
			goto start
		}
	}
set %confp 7
goto configurar
}
if %confp = 7
{
	if %kegs = 3
	{
		if %confx = 0
		{
			Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 7
			goto TESC
		}
		if %confx = 1
		{
			Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 7
			goto TESC
		}
		if %confx = 2
		{
			Event sysmessage Pon el cursor donde tengas un cuarto keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 7
			goto TESC
		}
		if %confx = 3
		{
			goto start
		}
	}
set %confp 8
goto configurar
}
if %confp = 8
{
	if %kegs = 4
	{
		if %confx = 0
		{
			Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 8
			goto TESC
		}
		if %confx = 1
		{
			Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 8
			goto TESC
		}
		if %confx = 2
		{
			Event sysmessage Pon el cursor donde tengas un cuarto keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 8
			goto TESC
		}
		if %confx = 3
		{
			Event sysmessage Pon el cursor donde tengas un quinto keg bloqueado en el suelo
			event sysmessage Y presiona la tecla ESC
			setuotitle  Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
			set %conf 8
			goto TESC
		}
		if %confx = 4
		{
			goto start
		}
	}
}
goto start

TESC:
onHotKey ESC
{
	if %conf = 1
	{
		set %cofre #LOBJECTID
		goto configurar
	}
	if %conf = 2
	{
		set %dejarx #CURSORX
		set %dejary #CURSORY
		goto configurar
	}
	if %conf = 3
	{
		set %mochila #LOBJECTID
		goto configurar
	}
	if %conf = 4
	{
		set %kegx #CURSORX
		set %kegy #CURSORY
		goto configurar
	}
	if %conf = 5
	{
		set %keg1x #CURSORX
		set %keg1y #CURSORY
		goto configurar
	}
	if %conf = 6
	{
		if %confx = 0
		{
			set %keg1x #CURSORX
			set %keg1y #CURSORY
                                           set %confx 1
			goto configurar
		}
		if %confx = 1
		{
			set %keg2x #CURSORX
			set %keg2y #CURSORY
                                           set %confx 2
			goto configurar
		}
	}
	if %conf = 7
	{
		if %confx = 0
		{
			set %keg1x #CURSORX
			set %keg1y #CURSORY
                                           set %confx 1
			goto configurar
		}
		if %confx = 1
		{
			set %keg2x #CURSORX
			set %keg2y #CURSORY
                                            set %confx 2
			goto configurar
		}
		if %confx = 2
		{
			set %keg3x #CURSORX
			set %keg3y #CURSORY
                                           set %confx 3
			goto configurar
		}
		if %confx = 3
		{
			set %keg4x #CURSORX
			set %keg4y #CURSORY
                                           set %confx 4
			goto configurar
		}
	}
	if %conf = 8
	{
		if %confx = 0
		{
			set %keg1x #CURSORX
			set %keg1y #CURSORY
                                           set %confx 1
			goto configurar
		}
		if %confx = 1
		{
			set %keg2x #CURSORX
			set %keg2y #CURSORY
                                           set %confx 2
			goto configurar
		}
		if %confx = 2
		{
			set %keg3x #CURSORX
			set %keg3y #CURSORY
                                           set %confx 3
			goto configurar
		}
		if %confx = 3
		{
			set %keg4x #CURSORX
			set %keg4y #CURSORY
                                           set %confx 4
			goto configurar
		}
		if %confx = 4
		{
			set %keg5x #CURSORX
			set %keg5y #CURSORY
                                           set %confx 5
			goto configurar
		}
	}
}
goto TESC

start:
setuotitle Macro de Alchemy Full - UA Sphere EasyUO Project - http://uasphere-euo.ath.cx
if %pocion = 1
{
	goto venenomenor
}
if %pocion = 2
{
	goto veneno
}
if %pocion = 3
{
	goto venenomejorado
}
if %pocion = 4
{
	goto venenomortal
}
if %pocion = 5
{
	goto curacionmenor
}
if %pocion = 6
{
	goto curacion
}
if %pocion = 7
{
	goto curacionmejorada
}
if %pocion = 8
{
	goto antidotomenor
}
if %pocion = 9
{
	goto antidoto
}
if %pocion = 10
{
	goto antidotomejorada
}
if %pocion = 11
{
	goto agilidad
}
if %pocion = 12
{
	goto agilidadmejorada
}
if %pocion = 13
{
	goto resistencia
}
if %pocion = 14
{
	goto resistenciamejorada
}
if %pocion = 15
{
	goto fuerza
}
if %pocion = 16
{
	goto fuerzamejorada
}
if %pocion = 17
{
	goto explosionmenor
}
if %pocion = 18
{
	goto explosion
}
if %pocion = 19
{
	goto explosionmejorada
}
if %pocion = 20
{
	goto visionnocturna
}
if %pocion = 21
{
	goto encoger
}
if %pocion = 22
{
	goto mana
}
if %pocion = 23
{
	goto manatotal
}
if %pocion = 24
{
	goto pieldepiedra
}
if %pocion = 25
{
	goto invisibilidad
}
if %pocion = 26
{
	goto disipar
}
if %pocion = 27
{
	goto bendecir


}
if %pocion = 28
{
	goto armorreactive
}
if %pocion = 29
{
	goto sustento
}
if %pocion = 30
{
	goto cambiosexo
}


venenomenor:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %ns C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	 event Drag #findID
wait 1s
msg 3
msg $
click %dejarx %dejary p
finditem %mortero c_ , #backpackid
set #LOBJECTID #FINDID
event macro 17
wait 2s
deletejournal
scanjournal 1
if aviso:_dentro_de in #journal
{
wait 120s
}
finditem %ns c_ , #backpackid
set #LTARGETID #findid
event macro 22
wait 2s
click %menu2x %menu2y d
wait 8s
deleteJournal
goto cargar

veneno:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %ns C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 2
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu2x %menu2y d
	wait 8s
	deleteJournal
	goto cargar

venenomejorado:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %ns C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 4
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu3x %menu3y d
	wait 8s
	deleteJournal
	goto cargar

venenomortal:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %ns C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 8
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu4x %menu4y d
	wait 8s
	deleteJournal
	goto cargar

curacionmenor:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %gs C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

curacion:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %gs C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 3
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu2x %menu2y d
	wait 8s
	deleteJournal
	goto cargar

curacionmejorada:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %gs C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 7
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu3x %menu3y d
	wait 8s
	deleteJournal
	goto cargar

antidotomenor:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %gl C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
  	goto cargar

antidoto:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %gl C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 3
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu2x %menu2y d
	wait 8s
	deleteJournal
	goto cargar

antidotomejorada:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %gl C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 6
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu3x %menu3y d
	wait 8s
	deleteJournal
	scanjournal 1
	goto cargar

agilidad:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %bm C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

agilidadmejorada:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %bm C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 3
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu2x %menu2y d
	wait 8s
	deleteJournal
	goto cargar

resistencia:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %bp C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

resistenciamejorada:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %bp C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 6
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu2x %menu2y d
	wait 8s
	deleteJournal
	goto cargar

fuerza:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %mr C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 2
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

fuerzamejorada:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %mr C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 5
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu2x %menu2y d
	wait 8s
	deleteJournal
	goto cargar

explosionmenor:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %sa C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 3
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

explosion:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %sa C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 5
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu2x %menu2y d
	wait 8s
	deleteJournal
	goto cargar

explosionmejorada:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %sa C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 10
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu3x %menu3y d
	wait 8s
	deleteJournal
	goto cargar

visionnocturna:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %ss C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

encoger:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %am C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 2
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	scanjournal 1
	goto cargar

mana:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %on C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 3
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

manatotal:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %on C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 8
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu2x %menu2y d
	wait 8s
	deleteJournal
	goto cargar

pieldepiedra:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %bt C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 4
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

invisibilidad:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %sd C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 3
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	scanjournal 1
	goto cargar

disipar:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %sa C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %gl C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %mr C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

bendecir:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %gl C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %mr C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

armorreactive:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %ss C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %sa C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %gl C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

sustento:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %bp C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %bm C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %sa C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

cambiosexo:
for %x 0 %veces
{
	findItem %mortero C_ , %mochila
	if #FINDSTACK = 0
	{
		goto morteros
	}
	findItem %bm C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %bs C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
	wait 2s
	findItem %mr C_ , %cofre
	if #FINDSTACK = 0
	{
		set %fin 1
		gosub finalizar
	}
	event Drag #findID
	wait 1s
	msg 1
	msg $
	click %dejarx %dejary p
        set #LOBJECTID #FINDID
	wait 2s
	event macro 17
	wait 2s
	click %menu1x %menu1y d
	wait 8s
	deleteJournal
	goto cargar

keg:
if %kegs = 0
{
	set %fin 2
	gosub finalizar
}
if %kegs = 1
	set %kegx %keg1x
	set %kegy %keg1y

              set %kegs 0
	goto start
}
if %kegs = 2
	set kegs 1
	set %kegx %keg2x
	set %kegy %keg2y
              set %kegs 1
	goto start
}
if %kegs = 3
	set kegs 2
	set %kegx %keg3x
	set %kegy %keg3y
              set %kegs 2
	goto start
}
if %kegs = 4
	set kegs 3
	set %kegx %keg4x
	set %kegy %keg4y
              set% kegs 3
	goto start
}
goto start

cargar:
findItem %pocionblanco C_ , %mochila
if #FINDCOL <>  0
{
	scanjournal 1
	if You_put in #journal || Your in #journal
	{
		wait 3s
		findItem %pocionblanco C_ , %mochila
		click %kegx %kegy d
		wait 3s
		set #LTARGETID #FINDID
		event macro 22 0
		wait 3s
		goto cargar
	}
	if You_toss_the_failed in #journal
	{
		set %veces 1 + %veces
	}
}
goto start

morteros:
findItem %mortero C_ , %cofre
if #FINDSTACK = 0
{
	set %fin 1
	gosub finalizar
}
event drag #FINDID
wait 3s
click %dejarx %dejary p
findItem %mortero C_ , %mochila
if #FINDSTACK = 0
{
	goto morteros
}
goto start

sub finalizar
{
	if %fin = 1
	{
		display OK Macro terminada!$No se han encontrado los materiales necesarios!
	}
	if %fin = 2
	{
		display OK Macro terminada!$Ya tienes hecho el keg!
	}
	halt
	return
}

LAS MACROS TIENEN MIL AÑOS POR LO QUE ESTAN EN EL FORO ANTIGUO, SI BUSCAS ALLI AHORRAS TRABAJO A TODOS Y A TI MISMO http://ultima-alianza.com/foros/uasp...66d34e566126dc

**Mortae Rex** · 11-Dec-2007

wow!
Alguien se rompio el coco con estas macros

Ira un pokito lenta la de alki, pero las 2 macros deberian funcionar.

**Yesus** · 15-Dec-2007

wowow muchas gracias a todos co nesta macro podre subir algo y con las que me ago yo tambe

Seguir poniendo las que me faltan si se puede

Un gran saludo

**Yesus** · 17-Dec-2007

Hola pues añado k busko macro de herreria de hacer lotes de dagas k las k tengo no funcionan podian poner una decente y corriente gracias a kien la ponga claro

UN GRAN SALUDO

**Matias El Humilde** · 18-Dec-2007

usa la maldita tecla del foro de buscar, en el nuevo estan las de alx, no hace falta ni q te vayas al antiguo.

Al final querras que la gente vaya a tu casa a enxufarte el easyuo y todo

**Yesus** · 18-Dec-2007

Olle tu les los pensmientos eso lo iba a poner ahora mismo

Que es broma vale gracias esque como no estoi acostumbrado a buscar cosas se me olvida
Un saludo

Tema: Macros necesito!!!

Herramientas

Buscar tema

Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Re: Macros necesito!!!

Temas similares

Macros.

Necesito macros!!

Macros de uo

Permisos de publicación