[MACRO] Escriba (Posibilidad de hacer 8 pergaminos diferentes)

[Aloisia]

Os dejo una macro para EasyUo para hacer pergaminos. A mí me está siendo muy util para subir, espero que a alguno de vosotros os ayude. Hay que tener en cuenta un par de cosas:

1. No puedes tener ingredientes en la mochila (o submochila) diferentes a los que requiere el pergamino que vas a hacer. Lo mejor es no tener ninguno, y la macro ya coge ella sola los ingredientes, las plumas, y los pergaminos en blanco.
2. En el cofre donde tengas los pergaminos, no tengas Lotes de pergaminos.
3. La macro te vacia la mochila cuando tienes más de 3 montones de pergaminos hechos (cada vez que subes 0.1 se amontonan en diferentes montones) o cuando uno de los montones tiene más de 40 pergaminos.
4. A mi me ha dado problemas con el Razor puesto. Lo mejor es usarla con el cliente "a pelo".
5. Al principio puedes escoger el pergamino que quieres hacer (de entre las opciones) con sólo pulsar el número correspondiente.

;==================================
; Script: Escriba
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 01 Febrero 2010
; Finalidad: Hace un tipo de pergamino de entre 8 a elegir.
;==================================
;Para la siguiente macro necesitas:
;1.- Una bolsa con plumas (herramienta indispensable).
;2.- Una bolsa con pergaminos en blanco y regentes.
;3.- Una bolsa donde guardar los pergaminos hechos.
;4.- Comida (peras o manzanas, si quieres otro tipo añadelo en set %comida)
;A tener en cuenta: La macro puede dar problemas si se ejecuta con el Razor cargado.
;A tener en cuenta: No tengas ningún regente encima diferente al del pergamino que vas a hacer.
set %pergablanco MMF ;pergamino en blanco
set %herramienta PBG ;Plumas
set %confp 0
set %comida YSD_QQD ;Peras, Manzanas

initevents
chooseskill insc real
set %skillini #skill

configurar:
if %confp = 0
{
	Event sysmessage 1.- Debilitar
	event sysmessage 2.- Veneno
	event sysmessage 3.- Rayo
	event sysmessage 4.- Recall
	event sysmessage 5.- Explosion
	event sysmessage 6.- Descarga de energia
	event sysmessage 7.- Flames
	event sysmessage 8.- Portal Magico
	set %confp 1
	goto ELECCION
}
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 donde se encuentran 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 donde quieres dejar los pergatas.
	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
}

ELECCION:
onHotKey 1
{
   msg .- Haremos pergaminos de debilitar.
   msg $
   set %pergata WXL
   set %rega KZF ;Garlic
   set %regb WZF ;Nightshade
   set %conf 1
   set %menu 1
   set %x 60
   set %y 70
   GoTo configurar:
}
onHotKey 2
{
   msg .- Haremos pergaminos de veneno.
   msg $
   set %pergata STL
   set %rega WZF ;Nightshade
   set %conf 1
   set %menu 2
   set %x 60
   set %y 70
   GoTo configurar:
}
onHotKey 3
{
   msg .- Haremos pergaminos de rayo.
   msg $
   set %pergata CUL
   set %rega KUF ;Black Pearl
   set %regb MZF ;Mandrake
   set %regc SZF ;Sulfurus
   set %conf 1
   set %menu 3
   set %x 100
   set %y 70
   GoTo configurar:
}
onHotKey 4
{
   msg .- Haremos pergaminos de recall.
   msg $
   set %pergata WTL
   set %rega KUF ;Black Pearl
   set %regb MZF ;Mandrake
   set %regc JUF ;BloodMoss
   set %conf 1
   set %menu 4
   set %x 150
   set %y 70
   GoTo configurar:
}
onHotKey 5
{
   msg .- Haremos pergaminos de explosion.
   msg $
   set %pergata FUL
   set %rega KUF ;Black Pearl
   set %regb MZF ;Mandrake
   set %regc SZF ;Sulfurus
   set %conf 1
   set %menu 5
   set %x 150
   set %y 70
   GoTo configurar:
}
onHotKey 6
{
   msg .- Haremos pergaminos de Descarga.
   msg $
   set %pergata GUL
   set %rega KUF ;Black Pearl
   set %regb WZF ;Nightshade
   set %conf 1
   set %menu 6
   set %x 150
   set %y 70
   GoTo configurar:
}
onHotKey 7
{
   msg .- Haremos pergaminos de flame.
   msg $
   set %pergata NUL
   set %rega RZF ;Spider
   set %regb SZF ;Sulfurus
   set %conf 1
   set %menu 7
   set %x 100
   set %y 70
   GoTo configurar:
}
onHotKey 8
{
   msg .- Haremos pergaminos de Portal Magico.
   msg $
   set %pergata YUL
   set %rega KUF ;Black Pearl
   set %regb MZF ;Mandrake
   set %regc SZF ;Sulfurus
   set %conf 1
   set %menu 8
   set %x 195
   set %y 70
   GoTo configurar:
}
GoTo ELECCION:

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
GoTo inicio:

inicio:
set %skillinc #SKILL - %skillini
setuotitle Escriba: #SKILL ( %skillinc )
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
   set #LOBJECTID #FINDID
   event macro 17
}
findItem %herramienta C_ , #BACKPACKID
if #findcnt < 2
{
   GoSub cogerherramienta
}
if #mana < #maxmana
{
   GoTo meditar:
}
findItem %pergata C_ , #BACKPACKID
if #findcnt > 3 || #findstack > 40
{
   GoSub dejarpergata
}
findItem %rega C_ , #BACKPACKID
if #findcnt < 1 || #findstack < 5
{
   GoSub cogerrega
}
if %menu <> 2
{
  findItem %regb C_ , #BACKPACKID
  if #findcnt < 1 || #findstack < 5
  {
     GoSub cogerregb
  }
  if %menu <> 1 && %menu <> 6 && %menu <> 7
  {
    findItem %regc C_ , #BACKPACKID
    if #findcnt < 1 || #findstack < 5
    {
       GoSub cogerregc
    }
  }
}
findItem %pergablanco C_ , #BACKPACKID
if #findcnt < 1 || #findstack < 5
{
   GoSub cogerperga
}
findItem %pergablanco C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click %x %y d
wait 20
if %menu <> 2
{
   click 60 70 d
}
wait 2s
GoTo inicio:


Sub cogerherramienta
finditem %herramienta c_ , %bolsa
if #findcnt < 1
{
   msg Faltan herramientas
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
click %mochilax %mochilay p
wait 20
return

Sub cogerrega
findItem %rega C_ , %cofre
if #findcnt < 1
{
   msg Falta Regente A
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
   msg $
}
else
{
   msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return

Sub cogerregb
findItem %regb C_ , %cofre
if #findcnt < 1
{
   msg Falta Regente B
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
   msg $
}
else
{
   msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return

Sub cogerregc
findItem %regc C_ , %cofre
if #findcnt < 1
{
   msg Falta Regente B
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
   msg $
}
else
{
   msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return

meditar:
event macro 13 46
wait 1s
if #mana < #maxmana
{
   GoTo meditar:
}
wait 1s
GoTo inicio:

Sub cogerperga
if #weight > #maxweight - 120
{
   GoSub dejarpergata
}
if #weight > #maxweight - 120
{
   msg Demasiado peso
   wait 10
   msg $
   halt
}
findItem %pergablanco C_ , %cofre
if #findcnt < 1
{
   msg Faltan Pergaminos
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
if #findstack < 100
{
   msg $
}
else
{
   msg 100 $
}
wait 20
click %mochilax %mochilay p
wait 20
return

Sub dejarpergata
findItem %pergata C_ , #BACKPACKID
if #findcnt < 1
{
   return
}
event drag #FINDID
wait 10
msg $
wait 20
click %destinox %destinoy p
wait 20
GoSub dejarpergata
return

PD.- Espero que os ayude.
PD.- No se porque el codigo deja tanto espacion en blanco al final :S
PD.- Cualquier sugerencia o crítica es bien recibida. Sentiros libres (sé que no hace falta que lo diga) de modificarla o publicarla donde creais conveniente.

[Sondrow]

Hay una macro por el foro que te deja hacer cualquier pergamino del libro de magia, de los 64 que hay.

[Aloisia]

Pues la verdad no la había visto, ahora que lo mencionaste, busque y encontré una (no se si es a la que te refieres).

De todas formas, aquí queda por si alguien la quiere, puse 8 pergaminos porque son los que más se usan, y a parte coge ella solita los regentes, pergaminos y demás, con lo que puedes pasarte 24 horas diarias con ella puesta (siempre y cuando tengas recursos, xd).

Un saludito.

[Ravendor]

muchas gracias por la macros

[Peloguisky]

Es muy buena. Gracias

Con pergas de debiliudad funciona 100% bien. Basta con comprar 2 cajitas de plumas y tenerlas abiertas y con eso funcionas bien de horas

[Aloisia]

Añadida unas lineas para que coma manzanas o peras. Se le pueden añadir otro tipo de productos alimenticios. :P

[Peloguisky]

Dos semanas y ya casi soy gm a falta de pocos puntos empezando de 30. Toooodo pergas debilidad, 30 medit 30 magery 30 escribano y haciendo talar y carpintero aún me ha dado para subir a 96 escribano y 97 medit. A los pergas les das salida haciendo que un colega de los que no te cobra te lance todos con 100 medit. Eso te sube el ressist de 50 a 70 fácil en un par de noches.

[Weed]

porque usa el libro d ecanciones para meditar? no puedes hacer que no use el libro de canciones??

[Aloisia]

Libro de canciones para meditar???

meditar:
event macro 13 46
wait 1s
if #mana < #maxmana
{
   GoTo meditar:
}
wait 1s
GoTo inicio:

Usa la habilidad meditar, no entiendo lo del libro de canciones.

[Weed]

Despues de mucho quebradero consegui arreglar la macro casi entera, solo me falta arreglar la aprte de cojer los pergaminos en blanco, me los coje de inicio y cuando se les gastan vuelve a cojer pero ya no para de cojer y se llena de pergaminos y tiene mucho peso.

[Aloisia]

;==================================
; Script: Escriba
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 01 Febrero 2010
; Finalidad: Hace un tipo de pergamino de entre 8 a elegir.
;==================================
;Para la siguiente macro necesitas:
;1.- Una bolsa con plumas (herramienta indispensable).
;2.- Una bolsa con pergaminos en blanco y regentes.
;3.- Una bolsa donde guardar los pergaminos hechos.
;4.- Comida (peras o manzanas, si quieres otro tipo añadelo en set %comida)
;A tener en cuenta: La macro puede dar problemas si se ejecuta con el Razor cargado.
;A tener en cuenta: No tengas ningún regente encima diferente al del pergamino que vas a hacer.
set %pergablanco MMF ;pergamino en blanco
set %herramienta PBG ;Plumas
set %confp 0
set %comida YSD_QQD ;Peras, Manzanas

initevents
chooseskill insc real
set %skillini #skill

configurar:
if %confp = 0
{
	Event sysmessage 1.- Debilitar
	event sysmessage 2.- Veneno
	event sysmessage 3.- Rayo
	event sysmessage 4.- Recall
	event sysmessage 5.- Explosion
	event sysmessage 6.- Descarga de energia
	event sysmessage 7.- Flames
	event sysmessage 8.- Portal Magico
	set %confp 1
	goto ELECCION
}
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 donde se encuentran 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 donde quieres dejar los pergatas.
	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
}

ELECCION:
onHotKey 1
{
   msg .- Haremos pergaminos de debilitar.
   msg $
   set %pergata WXL
   set %rega KZF ;Garlic
   set %regb WZF ;Nightshade
   set %conf 1
   set %menu 1
   set %x 60
   set %y 70
   GoTo configurar:
}
onHotKey 2
{
   msg .- Haremos pergaminos de veneno.
   msg $
   set %pergata STL
   set %rega WZF ;Nightshade
   set %conf 1
   set %menu 2
   set %x 60
   set %y 70
   GoTo configurar:
}
onHotKey 3
{
   msg .- Haremos pergaminos de rayo.
   msg $
   set %pergata CUL
   set %rega KUF ;Black Pearl
   set %regb MZF ;Mandrake
   set %regc SZF ;Sulfurus
   set %conf 1
   set %menu 3
   set %x 100
   set %y 70
   GoTo configurar:
}
onHotKey 4
{
   msg .- Haremos pergaminos de recall.
   msg $
   set %pergata WTL
   set %rega KUF ;Black Pearl
   set %regb MZF ;Mandrake
   set %regc JUF ;BloodMoss
   set %conf 1
   set %menu 4
   set %x 150
   set %y 70
   GoTo configurar:
}
onHotKey 5
{
   msg .- Haremos pergaminos de explosion.   ; Ahora Blood Moss Y mandrake, antes BP, MD, SF
   msg $
   set %pergata FUL
   set %rega JUF ;BloodMoss
   set %regb MZF ;Mandrake
   set %conf 1
   set %menu 5
   set %x 150
   set %y 70
   GoTo configurar:
}
onHotKey 6
{
   msg .- Haremos pergaminos de Descarga.
   msg $
   set %pergata GUL
   set %rega KUF ;Black Pearl
   set %regb WZF ;Nightshade
   set %conf 1
   set %menu 6
   set %x 100
   set %y 70
   GoTo configurar:
}
onHotKey 7
{
   msg .- Haremos pergaminos de flame.
   msg $
   set %pergata NUL
   set %rega RZF ;Spider
   set %regb SZF ;Sulfurus
   set %conf 1
   set %menu 7
   set %x 100
   set %y 70
   GoTo configurar:
}
onHotKey 8
{
   msg .- Haremos pergaminos de Portal Magico.
   msg $
   set %pergata YUL
   set %rega KUF ;Black Pearl
   set %regb MZF ;Mandrake
   set %regc SZF ;Sulfurus
   set %conf 1
   set %menu 8
   set %x 195
   set %y 70
   GoTo configurar:
}
GoTo ELECCION:

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
GoTo inicio:

inicio:
set %skillinc #SKILL - %skillini
setuotitle Escriba: #SKILL ( %skillinc )
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
   set #LOBJECTID #FINDID
   event macro 17
}
findItem %herramienta C_ , #BACKPACKID
if #findcnt < 2
{
   GoSub cogerherramienta
}
if #mana < #maxmana
{
   GoTo meditar:
}
findItem %pergata C_ , #BACKPACKID
if #findcnt > 3 || #findstack > 40
{
   GoSub dejarpergata
}
findItem %rega C_ , #BACKPACKID
if #findcnt < 1 || #findstack < 5
{
   GoSub cogerrega
}
if %menu <> 2
{
  findItem %regb C_ , #BACKPACKID
  if #findcnt < 1 || #findstack < 5
  {
     GoSub cogerregb
  }
  if %menu <> 1 && %menu <> 6 && %menu <> 7 && %menu <> 5
  {
    findItem %regc C_ , #BACKPACKID
    if #findcnt < 1 || #findstack < 5
    {
       GoSub cogerregc
    }
  }
}
findItem %pergablanco C_ , #BACKPACKID
if #findcnt < 1 || #findstack < 5
{
   GoSub cogerperga
}
findItem %pergablanco C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click %x %y d
wait 20
if %menu <> 2
{
   click 60 70 d
}
wait 2s
GoTo inicio:


Sub cogerherramienta
finditem %herramienta c_ , %bolsa
if #findcnt < 1
{
   msg Faltan herramientas
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
click %mochilax %mochilay p
wait 20
return

Sub cogerrega
findItem %rega C_ , %cofre
if #findcnt < 1
{
   msg Falta Regente A
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
   msg $
}
else
{
   msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return

Sub cogerregb
findItem %regb C_ , %cofre
if #findcnt < 1
{
   msg Falta Regente B
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
   msg $
}
else
{
   msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return

Sub cogerregc
findItem %regc C_ , %cofre
if #findcnt < 1
{
   msg Falta Regente B
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
   msg $
}
else
{
   msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return

meditar:
event macro 13 46
wait 1s
if #mana < #maxmana
{
   GoTo meditar:
}
wait 1s
GoTo inicio:

Sub cogerperga
if #weight > #maxweight - 120
{
   GoSub dejarpergata
}
if #weight > #maxweight - 120
{
   msg Demasiado peso
   wait 10
   msg $
   halt
}
findItem %pergablanco C_ , %cofre
if #findcnt < 1
{
   msg Faltan Pergaminos
   wait 10
   msg $
   halt
}
event drag #FINDID
wait 10
if #findstack < 100
{
   msg $
}
else
{
   msg 100 $
}
wait 20
click %mochilax %mochilay p
wait 20
return

Sub dejarpergata
findItem %pergata C_ , #BACKPACKID
if #findcnt < 1
{
   return
}
event drag #FINDID
wait 10
msg $
wait 20
click %destinox %destinoy p
wait 20
GoSub dejarpergata
return

No la he probado del todo, pero en teoría está solucionado el tema de cambio de regs y las posiciones de los pergaminos.

[KraTezZ]

Muchas gracias Aloisia ;D

[athanpsique]

buenas aloisa ami no me va solo coje los materiales las plumas y me pone k no consigo saber como se usa y asi todo el raato....porqe crees k puede ser??? esqe necesito subir escriba porqe kiero restaurar libros mas k nada porqe kiero subirme la repu elfical. gracias

[interapothek]

A mí me pasa lo mismo, la macro me funciona, pero no me deja de coger pergaminos todo el rato, cuando termina de dar dobles clicks en los lotes de pergaminos, vuelve a coger más lotes, y no para. Imagino que el problema estará en que el LLiftedtypeid es el mismo para el lotes de pergas que para los pergas en blanco, por tanto, aunque haga el event macro 17 para deshacer los pergaminos, y tú le digas, vale, cuando me queden por ejemplo 1 o 2 pergaminos en blanco en la mochila, cógeme más lotes de pergaminos y hazme más pergas en blanco para continuar, la macro se queda tonta y siempre piensa que MMF es el lote, no los pergas en blanco. A ver si le podemos hallar una solución entre todos. Un saludo.

[la paqui]

Pues acabo de probar esta macro y va perfecta. La solucion es tener los pegaminos en blanco, no en lotes para deshacerlos. Felicidades por la macro Aloisia.

[Cabalier]

gracias por la macro me va perfecta ^^

[freddydy]

Hola,

Tengo cierta duda con esta macro, alguien sabria o me podria aconsejar que debo de cambiar para que en vez de hacer un hechizo y meditar, vaciase la barra y luego meditase ?

Gracias de ante mano

(e probado cambiando los siguiente y demas pero no hay forma, )


wait 20
click %mochilax %mochilay p
wait 20
return

meditar:
event macro 13 46
wait 1s
if #mana < #maxmana
{
GoTo meditar:
}
wait 1s
GoTo inicio:

[neale]

No tengo mucha idea de macros easy, pero creo k si cambias:


if #mana < #maxmana

por

if #mana < 7 (o el minimo mana que quieras que tenga antes de meditar)

[Krender]

Gracias por la macro, funciona perfectamente!