Magery

if not findalias 'chest'
  promptalias 'chest'
endif
if not findalias 'regs'
  promptalias 'regs'
endif
if not findalias 'mobrune'
  promptalias 'mobrune'
endif
if not findalias 'homerune'
  promptalias 'homerune'
endif
if not timerexists 'bufftimer'
  @createtimer 'bufftimer'
  playmacro 'Active Skill Gain'
endif
settimer 'bufftimer' 0
while not dead
  if @counttype 0xf8c 'any' 'backpack' < 10
    pause 1000
    useobject! 'chest'
    pause 1000
    useobject! 'regs'
    pause 1000
    organizer 'Sulfurous ash'
    while organizing
      pause 500
    endwhile
  endif
  if @counttype 0xf84 'any' 'backpack' < 10
    pause 1000
    useobject! 'chest'
    pause 1000
    useobject! 'regs'
    pause 1000
    organizer 'Garlic'
    while organizing
      pause 500
    endwhile
  endif
  if @counttype 0xf86 'any' 'backpack' < 15
    pause 1000
    useobject! 'chest'
    pause 1000
    useobject! 'regs'
    pause 1000
    organizer 'Mandrake root'
    while organizing
      pause 500
    endwhile
  endif
  if @counttype 0xf85 'any' 'backpack' < 10
    pause 1000
    useobject! 'chest'
    pause 1000
    useobject! 'regs'
    pause 1000
    organizer 'Ginseng'
    while organizing
      pause 500
    endwhile
  endif
  if @counttype 0xf7b 'any' 'backpack' < 15
    pause 1000
    useobject! 'chest'
    pause 1000
    useobject! 'regs'
    pause 1000
    organizer 'Bloodmoss'
    while organizing
      pause 500
    endwhile
  endif
  if @counttype 0xf8d 'any' 'backpack' < 10
    pause 1000
    useobject! 'chest'
    pause 1000
    useobject! 'regs'
    pause 1000
    organizer 'Spider silk'
    while organizing
      pause 500
    endwhile
  endif
  if @counttype 0xf88 'any' 'backpack' < 10
    pause 1000
    useobject! 'chest'
    pause 1000
    useobject! 'regs'
    pause 1000
    organizer 'Nightshade'
    while organizing
      pause 500
    endwhile
  endif
  if @counttype 0xf7a 'any' 'backpack' < 15
    pause 1000
    useobject! 'chest'
    pause 1000
    useobject! 'regs'
    pause 1000
    organizer 'Black pearl'
    while organizing
      pause 500
    endwhile
  endif
  if mana < 80
    useskill 'meditation'
    while not mana == maxmana
    endwhile
  endif
  while not hits == maxhits
    cast 'Greater Heal' 'self'
    pause 3000
  endwhile
  if timer 'bufftimer' > 540000
    playmacro 'Active Skill Gain'
  endif
  if skill 'Magery' == 100
    stop
  endif
  if skill 'Magery' >= 60 and skill 'Magery' < 80
    cast 'Energy Bolt' 'self'
  endif
  if skill 'Magery' >= 90 and skill 'Magery' < 100
    cast 'Summon Air Elemental'
  endif
  pause '7300'
  msg 'an air elemental release'
endwhile