[MACRO] Alquimia (Veneno menor)

**Aloisia** · 06-Feb-2010

Os dejo mi macro de alquimia, a mi me ha ido bastante bien con ella. Sólo hace veneno menor, y guarda en un cofre las pociones que va haciendo (no usa Kegs). Hay que tener en cuenta lo siguiente:

En la propia macro sólo hay que configurar una cosa: el tiempo que se tarda en hacer la poción, ya que éste varía con la cantidad de habilidad que tengas. La línea que hay que modificar es la siguiente:
Código:
```
wait 3s ;CONFIGURAR AQUI EL TIEMPO QUE TARDAS EN HACER POCION
```
El resto de variables (contenedores y demás) se configura al iniciar la macro.
Hay que tener un contenedor con botellas vacías y regentes (no puede haber ningún otro tipo de pociones o botellas en ese contenedor).
Hay que tener un contenedor con los morteros.
La macro te pedirá que pongas el cursor sobre el contenedor donde quieres dejar las pociones hechas. Es importante que este contenedor sea diferente al que contiene las botellas vacias.
No tenas regentes ni pociones encima cuando inices la macro.
Está pesada para pjs con fuerza elevada, que pueda sostener sobre 330 de peso, o algo más como mínimo.
La macro contiene comprobaciones de exceso de peso para evitar que se nos caigan al suelo los regentes o las botellas. Si excedemos una cierta cantidad de peso, la macro se detiene dándonos un aviso. Lo mismo pasa si andamos excasos de botellas, regentes o morteros, también se detiene y nos avisa.

Espero que les sea util la macro:

Código:

;==================================
; 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 60 60 d
wait 3s ;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

**Ravendor** · 06-Feb-2010

Una pasada la macros , perfect

**Silik** · 09-Feb-2010

Excelente macro y muy rapida, gracias por el aporte!

**Aloisia** · 02-Mar-2010

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

**Carlitooox** · 20-Apr-2010

Fallos que le veo:

Tienes que estar pendiente cada 20-30 minutos de echarle un ojo ya que se peta con los saves.

El tiempo de espera que viene por defecto es casi para gm, por lo que habría que subirlo a 6 o 7 si empezamos de 50.

Si quieres rellenar los kegs habrás de hacerlo a mano lo que no supone un gran contratiempo.

Por lo demás la macro cumple su función y puedes modificarla para que haga otra poción fácilmente y con poco conocimiento de easy.

**enDings** · 21-Apr-2010

Os pongo la macro que me hice yo para subir alquimia, lo unico esq la subi junto con mi habildiad de tinker, x lo q los morteros, botellas y tal las creaba yo si me quedaba sin ellas... puse un modificador para que si no eres tinker busque el material en el cofre, peeeero no lo he probado y no se como funcionara.

La macro guarda las pociones en uno, dos tres cuantos quiera kegs que haya, cuando uno se llena pasa a otro.

El unico problema que he visto, esq para empezar el target de meter pociones funciona mal, no se muy bien xq, se arregla seleccionando vosotrs la pocion una vez y ya esta.

El tiempo que espera cuando hay un save tambien es muy largo, mas vale prevenir que curar.

Código:

;easy uo 1.5 y cliente 2.0.3
;Macro de alquimia (Por enDings)
;Crea veneno menor y lo mete en un keg
;------------------------------------
;COnfiguracion
;Eres tinker? 1: Si 0: No
set %tinker 1
;Cofre con todos los materiales necesarios (Morteros, botellas vacias, nightsade - Si eres tinker iron)
set %cofre YZGKSPD     ;(#LOBJETCID)
;------------------------------------
;IDs de los distintos utensilios

;Mochila
set %mochila #BACKPACKID
;Botellas vacias
set %bvacia WUF
;Nightsade
set %ns WZF
;mortero
set %mortero RQF
;iron
set %iron RMK   ;2 Botellas 3Mortero 4Herramienta
;Herramienta de tinker
set %tk GTL
;keg
set %keg YBK_XBK_QMJ

;------------------------------------


















Event SysMessage Macro de alquimista por enDings (Ultima-Alianza)
Event SysMessage Comprobando materiales
chooseskill alch real
set %alch #skill
set %x #CharposX
set %y #charposy
if %tinker = 1
   {
   gosub compruebatinker
   }
if %tinket = 0
   {
   gosub notinker
   }
Finditem %keg
if #Findkind = -1
   {
   display ok NO hay keg
   stop
   }
Finditem %ns C_ , %cofre
if #FINDSTACK = 0
   {
   display ok No tienes nightsade en el cofre!
   halt
   }
Event SysMessage Hecho
goto comienzo


comienzo:
finditem %mortero C_ , %mochila
if #FINDCNT = 0
   {
   if %tinker = 1
      {
      gosub creamorteros
      }
   if %tinker = 0
      {
      gosub cogermoteros
      }
   }
finditem %bvacia C_ , %mochila
if #findcol = 368
   {
   gosub recuento
   }
if #FINDSTACK = 0
   {
    if %tinker = 1
       {
       gosub crearbotellas
       }
    if %tinker = 0
       {
       gosub cogerbotellas
       }
  }
Finditem %ns C_ , %mochila
if #Findstack = 0
   {
   gosub ns
   }
   
Finditem %tk c_ , %mochila
if #FINDCNT = 1
{
gosub creatk
}
goto alquimia


alquimia:
chooseskill Alch real
set %alchtu #skill
set %sub %alchtu - %alch
setuotitle Alquimia - Inicial: %alch Actual: %Alchtu Subido: %sub
set %prin #JINDEX
Finditem %ns C_ , %mochila
set #LOBJECTID #FINDID
wait 5
event Macro 17 0
wait 15
click 56 67 d
wait 105
set %fin #jindex
for %i %prin %fin
Scanjournal %i
if Pones_el_veneno in #journal
   {
   gosub recuento
   }
if AVISO:_Dentro_de_1_minuto in #journal || Comienza_la_grabacion in #journal
   {
   wait 2600
   gosub gump
   }
goto comienzo

;subs
sub compruebatinker
finditem %tk C_ , %mochila
if #FINDCNT =< 1
   {
   display ok Necesitas al menos dos herramientas de trinket
   halt
   }
finditem %iron C_ , %cofre
if #FINDSTACK =< 5
   {
   display ok No tienes iron suficiente para empezar a trabajar!
   halt
   }
return

sub notinker
findite %morteros C_ , %cofre
if #FINDCT = 0
   {
   display ok No tienes morteros para empezar!
   halt
   }
return

sub creamorteros
finditem %morteros C_ , %mochila
if #findcnt => 1
   {
   return
   }
finditem %iron C_ , %cofre
if #FINDSTACK =< 5
   {
   display ok Se acabo el iron!
   halt
   }
exevent Drag #findid 3
wait 10
exevent Dropc %mochila
wait 10
finditem %tk C_ , %mochila
if #FINDCNT =< 1
   {
   gosub creatk
   halt
   }
set #LOBJECTID #FINDID
event macro 17 0
wait 10
click 193 63 d
wait 10
click 146 63 d
wait 90
finditem %iron C_ , %mochila
exevent Drag #findid #FINDSTACK
wait 10
exevent Dropc %cofre
wait 10
finditem %mortero C_ , %mochila
set #LOBJECTID #Findid
wait 10
event macro 17 0
wait 10
key esc
return

sub creatk
finditem %iron C_ , %cofre
if #FINDSTACK =< 5
   {
   display ok Se acabo el iron!
   halt
   }
exevent Drag #findid 4
wait 10
exevent Dropc %mochila
wait 10
finditem %tk C_ , %mochila
if #FINDCNT = 0
   {
   display ok No hay herramientas O_O
   halt
   }
set #LOBJECTID #FINDID
event macro 17 0
wait 10
click 193 63 d
wait 10
click 268 66 d
wait 10
click 268 66 d
wait 10
click 268 66 d
wait 10
click 268 66 d
wait 10
click 239 66 d
wait 120
finditem %iron C_ , %mochila
exevent Drag #findid #FINDSTACK
wait 10
exevent Dropc %cofre
wait 10
return

sub cogermorteros
finditem %morteros C_ , %mochila
if findcnt => 1
   {
   return
   }
finditem %morteros c_ , %cofre
if #FINDCNT = 0
   {
   display ok Te quedaste sin morteros
   halt
   }
exevent drag #findid
wait 10
exevent dropc %mochila
wait 10
finditem %mortero C_ , %mochila
set #LOBJECTID #Findid
wait 10
event macro 17 0
wait 10
key esc
return

sub crearbotellas
finditem %bvacia C_ , %mochila
if #FINDCOL = 0
   {
         if #FINDSTACK => 8
         {
         return
         }
    set %vacias #findcnt
   }
set %vacias 0
finditem %iron C_ , %mochila
if #FINDSTACK = 0
   {
   finditem %iron C_ , %cofre
   if #FINDSTACK =< 5
      {
      display ok Se acabo el iron!
      halt
      }

  exevent Drag #findid 18
  wait 10
  exevent Dropc %mochila
  wait 10
 }
 
finditem %tk C_ , %mochila
if #FINDCNT =< 1
   {
   gosub creatk
   halt
   }
set #LOBJECTID #FINDID
event macro 17 0
wait 10
click 193 63 d
wait 10
click 103 68 d
wait 90
finditem %vacias C_ , %mochila
if #Findstack => 8
   {
   finditem %iron C_ , %mochila
   exevent Drag #findid #FINDSTACK
   wait 10
   exevent Dropc %cofre
   wait 10
   return
}
gosub crearbotellas

sub cogerbotellas
gosub recuento
finditem %bvacia C_ , %mochila
if #findstack => 8
   {
   return
   }
finditem %bvacia C_ , %cofre
if #Findstack = 0
   {
   display ok Te quedaste sin botellas vacias
   halt
   }
exevent drag #findid 9
wait 10
exevent dropc %mochila
wait 10
return


sub gump
click 108 63 r
wait 10
click 108 63 r
wait 10
move %x %y 0
return

sub ns
  finditem %ns C_ , %cofre
   if #findstack = 0
      {
      display ok No te queda Nightsade!
      halt
      }
   if #findstack =< 99
      {
      exevent drag #findid #findstack
      wait 10
      exevent dropc %mochila
      wait 10
      return
      }
   exevent Drag #findid 100
   wait 10
   execent Dropc %mochila
   wait 10
return

sub recuento
finditem %bvacia c_ , %mochila
if #FINDCOL = 368
   {
   finditem %keg
   wait 10
   set #LOBJECTID #FINDID
   set %ban #findid
   set %p #jindex
   wait 10
   event macro 17 0
   wait 10
   finditem %bvacia c_ , %mochila
   set #LTARGETID #FINDID
   wait 10
   event macro 22 0
   wait 20
   set %f #jindex
   for %h %p %f
   scanjournal %h
   if El_barril_esta_lleno in #journal
      {
      IGNOREITEM %ban
      gosub recuento
      }
   goto comienzo
   }

return