//// start set up of timers and lists etc. (insert your runebook serial where required)
if not timerexists 'bandie'
  createtimer 'bandie'
  settimer 'bandie' 5001
endif
if not listexists 'Runebooks'
  createlist 'Runebooks'
endif
if not listexists 'Runes'
  createlist 'Runes'
endif
if list 'Runes' == 0
  pushlist 'Runes' 5
  pushlist 'Runes' 11
  pushlist 'Runes' 17
  pushlist 'Runes' 23
  pushlist 'Runes' 29
  poplist 'Runebooks' 'front'
endif
if list 'Runebooks' == 0
  pushlist 'Runebooks' 0x40acb54d
endif
//// end set up of timers and lists etc.
//// start heal in the mushrooms and near errant blood eles
if hits '0x5b2e9' < 90 '0x5b2e9'
  if hits '0x5b2e9' > 50 '0x5b2e9'
    miniheal
    pause 100
  else
    if hits '0x5b2e9' < 50 '0x5b2e9'
      if poisoned '0x5b2e9'
        msg '[drink greatercurepotion'
        pause 600
      endif
      msg '[drink greaterhealpotion'
      pause 200
      miniheal '0x5b2e9'
      pause 100
    endif
  endif
endif
//// end heal in the mushrooms and near errant blood eles
////start steed healing
if hits '0x5640e' < 85 '0x5640e'
  if @inrange '0x5640e' 1
    if timer 'bandie' > 5000
      bandage '0x5640e'
      settimer 'bandie' 0
      pause 800
    endif
  endif
  if poisoned '0x5640e'
    cast 'cure'
    waitfortarget 3000
    target '0x5640e'
    pause 1500
  endif
  cast 'greater heal'
  waitfortarget 3000
  target '0x5640e'
  pause 1500
endif
if hits '0x5640e' < 15
  cast 'recall'
  waitfortarget 3000
  target '0x4100794e'
  pause 2000
endif
////end steed healing
////start steed distance minimization
// start follow steed
if not @inrange '0x5640e' 1
  if @x '0x5640e' > x 'self' and @y '0x5640e' > y 'self'
    walk 'Southeast'
  elseif @x '0x5640e' < x 'self' and @y '0x5640e' > y 'self'
    walk 'Southwest'
  elseif @x '0x5640e' > x 'self' and @y '0x5640e' < y 'self'
    walk 'Northeast'
  elseif @x '0x5640e' < x 'self' and @y '0x5640e' < y 'self'
    walk 'Northwest'
  elseif @x '0x5640e' > x 'self' and @y '0x5640e' == y 'self'
    walk 'East'
  elseif @x '0x5640e' < x 'self' and @y '0x5640e' == y 'self'
    walk 'West'
  elseif @x '0x5640e' == x 'self' and @y '0x5640e' > y 'self'
    walk 'South'
  elseif @x '0x5640e' == x 'self' and @y '0x5640e' < y 'self'
    walk 'North'
  endif
endif
//end follow steed
//start calling errant steed
if not @inrange '0x5640e' 6
  yellmsg 'all come'
  yellmsg 'all come'
endif
//end calling errant steed
////end steed distance minimization
////start change of location process
//start summoning steed to you
if not @inrange '0x8a' 6
  if not @inrange '0x8c' 6
    useobject! Runebooks[0]
    waitforgump 0x554b87f3 15000
    replygump 0x554b87f3 Runes[]
    pause 2000
    poplist 'Runes' 'front'
    //end popping rune list
  endif
endif
//// end change of location process