display ok Macro Retocada para Flecha Magica por Dinox
set %sulfuro SZF
set %c_regs 200
set %manaest 90
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 4
  goto get_id
}
goto get_backpack
get_id:
OnHotKey ESC
{
  set %pid #LTARGETID
  wait 20
  goto main
}
goto get_id
main:
if #MANA < 10
{
 while #mana < %manaest
 {
   event macro 13 46
   wait 1s
 }
}
gosub Check_Regs
FINDITEM %sulfuro C_ , #BACKPACKID
set %cantidad_s #FINDSTACK
setuotitle Sulfurush actual : %cantidad_s
event macro 15 4
target
set #LTARGETID %pid
event macro 22 0
wait 8
goto main
halt

sub Check_Regs
  FINDITEM %sulfuro C_ , #BACKPACKID
  if #FINDSTACK = 0
  {
    set #LOBJECTID %container_id
    event macro 17 0
    wait 5s
    FINDITEM %sulfuro C_ , %container_id
    if #FINDSTACK < %c_regs
    {
      event sysmessage Se quedo sin reagente.
      halt
    }
    else
    {
      event sysmessage Reponiendo Sulfurush Ash...
      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 Reagente renovado.
    }
  }
return