//set container, book, and ship rune
if not findalias 'restock'
  promptalias 'restock'
endif
if not findalias 'bankRunebook'
  promptalias 'bankRunebook'
endif
if not findalias 'shipRune'
  promptalias 'shipRune'
endif
//create timers
if not timerexists 'Dispersion'
  createtimer 'Dispersion'
  settimer 'Dispersion'  60000
endif
if not timerexists 'Vivify'
  createtimer 'Vivify'
  settimer 'Vivify' 60000
endif
//recall to bank and restock regs
if @counttype 0xf7b 'any' 'backpack' < 10
  pause 1000
  cast 'recall'
  pause 2000
  target! 'bankRunebook'
  pause 1000
  msg 'bank'
  if @movetype 0xf8c 'restock' 'backpack' 0 0 0 'any' 250
    pause 1500
  else
    sysmsg 'Out of regs!' 25
    @canceltarget
    stop
  endif
  if @movetype 0xf86 'restock' 'backpack' 0 0 0 'any' 200
    pause 1500
  else
    sysmsg 'Out of regs!' 25
    @canceltarget
    stop
  endif
  if @movetype 0xf8d 'restock' 'backpack' 0 0 0 'any' 200
    pause 1500
  else
    sysmsg 'Out of regs!' 25
    @canceltarget
    stop
  endif
  if @movetype 0xf7b 'restock' 'backpack' 0 0 0 'any' 200
    pause 1500
  else
    sysmsg 'Out of regs!' 25
    @canceltarget
    stop
  endif
  //restock moss and pearl and root (recall regs)
  if @counttype 0xf7a 'any' 'backpack' < 10
    if @movetype 0xf7a 'restock' 'backpack' 0 0 0 'any' 10
      pause 1500
    else
      sysmsg 'Out of regs!' 25
      @canceltarget
      stop
    endif
    if @movetype 0xf7b 'restock' 'backpack' 0 0 0 'any' 10
      pause 1500
    else
      sysmsg 'Out of regs!' 25
      @canceltarget
      stop
    endif
    if @movetype 0xf7b 'restock' 'backpack' 0 0 0 'any' 10
      pause 1500
    else
      sysmsg 'Out of regs!' 25
      @canceltarget
      stop
    endif
  endif
  pause 1000
  cast 'recall'
  pause 2000
  target! 'shipRune'
  pause 1000
endif
//restock triggered by ash is low
if @counttype 0xf8c 'any' 'backpack' < 10
  pause 1000
  cast 'recall'
  pause 2000
  target! 'bankRunebook'
  pause 1000
  msg 'bank'
  if @movetype 0xf8c 'restock' 'backpack' 0 0 0 'any' 250
    pause 1500
  else
    sysmsg 'Out of regs!' 25
    @canceltarget
    stop
  endif
  //restock moss and pearl and root (recall regs)
  if @counttype 0xf7a 'any' 'backpack' < 10
    if @movetype 0xf7a 'restock' 'backpack' 0 0 0 'any' 10
      pause 1500
    else
      sysmsg 'Out of regs!' 25
      @canceltarget
      stop
    endif
    if @movetype 0xf7b 'restock' 'backpack' 0 0 0 'any' 10
      pause 1500
    else
      sysmsg 'Out of regs!' 25
      @canceltarget
      stop
    endif
    if @movetype 0xf7b 'restock' 'backpack' 0 0 0 'any' 10
      pause 1500
    else
      sysmsg 'Out of regs!' 25
      @canceltarget
      stop
    endif
  endif
  pause 1000
  cast 'recall'
  pause 2000
  target! 'shipRune'
  pause 1000
endif
//meditate if mana low
clearjournal
if mana < 10
  useskill 'meditation'
  while mana < 80
    pause 1000
  endwhile
endif
//start Dispersion Loop
while timer 'Dispersion' >= 54000
  clearjournal
  if @counttype 0xf8c 'any' 'backpack' < 10
    break
  endif
  //cast magic arrow on evs
  if @findtype 0xa4 'any' 'ground' 1 12
    @setalias 'ev' 'found'
    clearjournal
    if mana < 20
      useskill 'meditation'
      while mana < 80
        pause 1000
      endwhile
    endif
    if mana > 20
      cast 'magic arrow'
      target! 'ev'
      pause 2500
    endif
  endif
  if @findtype 0xdc 'any' 'ground' 1 12
    @setalias 'ev' 'found'
    clearjournal
    if mana < 20
      useskill 'meditation'
      while mana < 80
        pause 1000
      endwhile
    endif
    if mana > 20
      cast 'magic arrow'
      target! 'ev'
      pause 2500
    endif
  endif
  if @injournal 'rest''system'
    pause 60000
    break
  endif
  //if relics proc, reset their timer
  if @injournal 'Dispersion: Activated.' 'system'
    settimer 'Dispersion' 0
  endif
endwhile
//start vivify loop (need mandrake root to run this part)
//check for mandrake root
if @findtype 0xf86 'any' 'backpack'
  while timer 'Vivify' >= 41000
    clearjournal
    //meditate if < 50 mana
    if mana < 50
      useskill 'meditation'
      while mana < 90
        pause 1000
      endwhile
    endif
    //use daemon scrolls if you have them, else use regs
    if @findtype 0x1f69 'any' 'backpack'
      usetype 0x1f69 any 'backpack'
    else
      cast "Summon Daemon"
    endif
    pause 4000
    //release the daemon if found
    if @findtype 0xa 'any' 'ground' 1 2
      @setalias 'daemon' 'found'
      waitforcontext 'daemon' 5 15000
      pause 1000
    endif
    //reset Vivify timer if it procs
    if @injournal 'Vivify: Activated.' 'system'
      settimer 'Vivify' 0
    endif
    clearjournal
    if not @findtype 0xf86 'any' 'backpack'
      break
    endif
  endwhile
endif