Macro de Meditación (Come)

[Tangente]

Esta es una macro de meditación que come peras, manzanas y plátanos.
Obviamente se pueden cambiar.
Se necesita un cofre con mucho garlic y nightshade cerca del personaje y un objetivo al que lanzarle el hechizo.
Para poder poner la macro en funcionamiento se necesita al menos 1 de cada de dichos ingredientes para cogerle el target al objetivo.
Aquí dejo dicha macro, es una modificación de una de magia.

display ok Macro by Asuma/Mordor/Tangente.
set %comida YSD                     ; peras
set %nightshade WZF
set %garlic KZF
set %c_regs 200
event sysmessage Abra el contenedor de los reagentes y presione ESC.
get_cont:
OnHotKey ESC
{
  set %container_id #LOBJECTID
  wait 20
  event sysmessage Coloque el cursor en la mochila de la foto de su personaje y presione ESC.
  goto get_backpack
}
goto get_cont
get_backpack:
OnHotKey ESC
{
  set %backpack_x #CURSORX
  set %backpack_y #CURSORY
  wait 20
  event sysmessage Seleccione a la persona y presione ESC.
  event macro 15 7
  goto get_id
}
goto get_backpack
get_id:
OnHotKey ESC
{
  set %pid #LTARGETID
  wait 20
  goto main
}
goto get_id
main:
if #MANA < 100
{
 while #mana <> #maxmana
 {
   event macro 13 46
   wait 3s
 }
}
gosub Check_Regs
FINDITEM %nightshade C_ , #BACKPACKID
set %cantidad_n #FINDSTACK
FINDITEM %garlic C_ , #BACKPACKID
set %cantidad_g #FINDSTACK
chooseskill meditation real
setuotitle Skill: #SKILL Nightshade actual : %cantidad_n | Garlic actual : %cantidad_g
event macro 15 7
target
set #LTARGETID %pid
event macro 22 0
wait 40
goto main
halt

sub Check_Regs
  FINDITEM %nightshade C_ , #BACKPACKID
  if #FINDSTACK = 0
  {
    set #LOBJECTID %container_id
    event macro 17 0
    wait 5s
    FINDITEM %nightshade C_ , %container_id
    if #FINDSTACK < %c_regs
    {
      event sysmessage Se quedo sin reagentes.
      halt
    }
    else
    {
      event sysmessage Reponiendo nightshade...
      event drag #FINDID
      wait 1s
      key 2
      wait 20
      key 0
      wait 20
      key 0
      wait 20
      key enter
      wait 20
      click %backpack_x %backpack_y
      wait 2s
      event sysmessage Reponiendo garlic...
      FINDITEM %garlic C_ , %container_id
      event drag #FINDID
      wait 1s
      key 2
      wait 20
      key 0
      wait 20
      key 0
      wait 20
      key enter
      wait 20
      click %backpack_x %backpack_y
      wait 2s
      event sysmessage Reagentes renovados.
      wait 1s
          finditem %comida c_ , #BACKPACKID   ; peras por defecto
    If #FINDKIND = -1
    {
    set %comida FWI                 ; platanos
    finditem %comida c_ , #BACKPACKID
        If #FINDKIND = -1
    {
    set %comida QQD                ; manzanas
    finditem %comida c_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    }
    If #Findkind = 0
    {
    set #LOBJECTID #FINDID
    event macro 17
    event macro 17
    event macro 17
    event macro 17
     }
    set #LOBJECTID #FINDID
    event macro 17
    event macro 17
    event macro 17
    event macro 17
    }
    If #Findkind = 0
    {
    set #LOBJECTID #FINDID
    event macro 17
    event macro 17
    event macro 17
    event macro 17
    event macro 17
     }
    }
  }
return

Saludos!